Posts: 34
Threads: 5
Joined: May 2005
Hi,
I own Windows 98SE and I don't know anybody near my location who owns Windows XP so I could test if my demos work with it.
All I need you to do, Windows XP owner, is to test the two following demos in your OS to see if they run fine. Of course, you should use the proper parameters in these demos shortcuts to run them in a Windows 95 compatible environment in 256 colors.
But I'm sure you already figured it out. Here are the two following demos I'm talking about:
http://www.cam.org/~clay/krpg/krpged12.zip
http://www.cam.org/~clay/krpg/krpged21.zip
Thank you in advance for your precious help.
Posts: 525
Threads: 23
Joined: Oct 2004
Hi Clay,
Welcome aboard this forum :-). Glad to have you here :-).
I have Windows XP Professional on my system. My Wife has Windows XP home edition on hers.
I've tested both demos on both systems.
i'm happy to report that so far I have seen no glitch, problems, bugs of any kind. The game seems to behave as it should and as it probably does on Windows 98 SE.
Good work by the way. There's definitaly Zelda type game lovers around here for sure :-). I know I'm gonna enjoy it when it's done :-).
Keep up the good work and let me know if you want anything else tested out :-).
Posts: 34
Threads: 5
Joined: May 2005
MystickShadows, thank you for your reply!
Do you, or anybody else, know if DirectQB is compatible with Windows XP?
Posts: 525
Threads: 23
Joined: Oct 2004
Well I can't answer that per se... However I did try a few Direct QB examples that seemed to work fine on my system but I'm not sure if all of DirectQB elements/functions/subs would work :-). I'll let someone answer that part in more details :-).
However, there is DOS Box a great DOS emulator for Windows that works great with many libraries. You can get it here (or tell XP users to get it here :-):
http://dosbox.sourceforge.net :-)
Hope this helps,
Posts: 34
Threads: 5
Joined: May 2005
MystikShadows, thanks again for your reply!
If DirectQB is not the culprit of my fourth demo then maybe that old asm mouse program is it:
Quote:DECLARE SUB Delay (Time AS SINGLE)
DECLARE FUNCTION MouseButtons% ()
DECLARE FUNCTION MouseChoice% ()
DECLARE SUB MouseHide ()
DECLARE SUB MouseInit ()
DECLARE FUNCTION MouseSlct% (x AS INTEGER, y AS INTEGER, xchoice AS INTEGER, ychoice AS INTEGER, interval AS INTEGER)
DECLARE SUB MouseShow ()
DECLARE FUNCTION MousePX% ()
DECLARE FUNCTION MousePY% ()
DIM SHARED A(34) AS INTEGER
DIM SHARED mx%, my%
'Loading machine codes for working with the mouse
DEF SEG = VARSEG(A%(0))
FOR i% = 0 TO 63
READ d%
POKE VARPTR(A%(0)) + i%, d%
NEXT i%
DEF SEG
DATA 00,00
DATA 00,00
DATA 00,00
' Mashine codes : Assembler commands
DATA &HB8,00,00 : 'mov ax,000h
DATA &HCD,&H33 : 'int 33h
DATA &H3D,&HFF,&HFF : 'cmp ax,0FFFFh
DATA &H75,&H0D : 'jne @@notPresent
DATA &H0E : 'push cs
DATA &H07 : 'pop es
DATA &HBA,&H24,&H00 : 'mov dx,offset MouseHandler
DATA &HB9,&HFF,&HFF : 'mov cx,0FFFFh
DATA &HB8,&H0C,&H00 : 'mov ax,000Ch
DATA &HCD,&H33 : 'int 33h
: '@@NotPresent:
DATA &HCB : 'ret
DATA &HB8,00,00 : 'mov ax,0000h
DATA &HCD,&H33 : 'int 33h
DATA &HCB : 'ret
DATA &H2E,&H89,&H0E,00,00 : 'mov [cs:mouseX],cx
DATA &H2E,&H89,&H16,02,00 : 'mov [cs:mouseY],dx
DATA &H2E,&H89,&H1E,04,00 : 'mov [cs:mouseButtons],bx
DATA &HCB : 'ret
DATA &HB8,01,00 : 'mov ax,0001h
DATA &HCD,&H33 : 'int 33h
DATA &HCB : 'ret
DATA &HB8,02,00 : 'mov ax,0002h
DATA &HCD,&H33 : 'int 33h
DATA &HCB : 'ret
SCREEN 13
MouseInit
MouseShow
DO
Choice = MouseSlct(0, 0, 16, 10, 20)
IF MouseButtons% = 1 THEN
END
EXIT DO
END IF
LOOP
SUB Delay (Time AS SINGLE)
Waiter = TIMER
DO
IF TIMER > Waiter + Time THEN EXIT DO
LOOP
END SUB
DEFINT A-Z
FUNCTION MouseButtons%
MouseButtons% = A%(2)
END FUNCTION
FUNCTION MouseChoice%
mx% = (MousePX% / 2): my% = MousePY%
MouseChoice% = 1
END FUNCTION
SUB MouseHide
DEF SEG = VARSEG(A%(0))
CALL ABSOLUTE(VARPTR(A%(0)) + &H3A)
DEF SEG
END SUB
SUB MouseInit
DEF SEG = VARSEG(A%(0))
CALL ABSOLUTE(VARPTR(A%(0)) + 6)
DEF SEG
END SUB
FUNCTION MousePX%
MousePX% = A%(0)
END FUNCTION
FUNCTION MousePY%
MousePY% = A%(1)
END FUNCTION
SUB MouseReset
DEF SEG = VARSEG(A%(0))
CALL ABSOLUTE(VARPTR(A%(1)) + &H1E)
DEF SEG
END SUB
SUB MouseShow
DEF SEG = VARSEG(A%(0))
CALL ABSOLUTE(VARPTR(A%(0)) + &H34)
DEF SEG
END SUB
FUNCTION MouseSlct% (x AS INTEGER, y AS INTEGER, xchoice AS INTEGER, ychoice AS INTEGER, interval AS INTEGER)
Delay (.25)
MouseShow
DO
IF (MouseChoice% <> 0) THEN
IF (MouseButtons% = 1) THEN
IF (mx% > x AND my% > y) AND (mx% < x + xchoice * interval AND my% < y + ychoice * interval) THEN
MouseHide
MouseSlct% = INT((mx% - x) / interval) + INT((my% - y) / interval) * xchoice + 1
EXIT DO
END IF
ELSEIF (MouseButtons% = 2) THEN
MouseHide
MouseSlct% = 0
EXIT DO
END IF
END IF
LOOP
END FUNCTION
SUB Wait4Click
Delay (.25)
MouseShow
DO
IF (MouseChoice% <> 0) THEN
IF (MouseButtons% <> 0) THEN
MouseHide
EXIT DO
END IF
END IF
LOOP
END SUB
Please try it and give me some feedback,
I also put the link of my fourth and last demo here just in case you want to test it:
http://www.cam.org/~clay/krpg/krpged43.zip
Thanks in advance,
P.S. I'm tired now so I'll see you tomorrow...
Posts: 544
Threads: 27
Joined: Jan 2005
CLAY DRAGON & Mystic:
As you can see from my 'signature". I am running on Windows XP Home Edition with Service Pack 2. Here are two of my results:
I opend the first of your files, krpged12.zip, did all the downloading, and, finally, when I double clicked the resultant .exe file, I got an error message, "The parameter is incorrect".
I opened the second file, krpged21.zip, did the above, and got the exact, same message!
Mystic, could it be that Service Pack 2 is the culprit, here?
Ralph, using QuickBASIC 4.5 and Windows XP Home Edition and Service Pack 2, with HP LaserJet 4L printer.
Posts: 525
Threads: 23
Joined: Oct 2004
I dont think so...my XP pro has SP2 and so does my wife's Windows Home has SP2 too.
Hmmm..not sure why you can't run them.
I think you're right Craig, that mouse part is giving me a problem too.
Posts: 34
Threads: 5
Joined: May 2005
Hi MystickShadows & Ralph,
So, you both think that mouse ASM program is the culprit right? Did you compile it to test it properly?
Well, if that's the case that would be a great relief for me, I though for a second that DirectQB was the culprit!
Posts: 525
Threads: 23
Joined: Oct 2004
Posts: 34
Threads: 5
Joined: May 2005
MystickShadows,
What kind of problem did that asm mouse program in your OS?
|