jrhodes Posted July 16, 2018 Share Posted July 16, 2018 I am attempting to convert a game that uses joystick 2 to use joystick 1.I know i should change 630 CALL KEY(2,K,S) to 630 CALL KEY(1,K,S),and change 640 CALL JOYST(2,YJ,XJ) to 640 CALL JOYST(1,YJ,XJ)but i am confused what to use here:780 IF K=-7 THEN 810Original: 630 CALL KEY(2,K,S) :: IF S THEN 780 640 CALL JOYST(2,YJ,XJ) :: IF XJ+YJ=0 THEN 620 780 IF K=-7 THEN 810 What i have so far: 630 CALL KEY(1,K,S) :: IF S THEN 780 640 CALL JOYST(1,YJ,XJ) :: IF XJ+YJ=0 THEN 620 780 IF K=[b][i]??[/i][/b] THEN 810 Original game is attached to this post. 100 !*********************** 110 !* TUTANCHAMON'S TOMB * 120 !* Version 2.3 * 130 !*---------------------* 140 !* For the TI-99/4A * 150 !* Home Computer * 160 !* with Extended Basic * 170 !* and Joystick * 180 !* in Port 2 * 190 !*---------------------* 200 !* Size:12659 Bytes * 210 !*---------------------* 220 !* By Remco Polman * 230 !* Onderste Wehr 43 * 240 !* 6433LC Hoensbroek * 250 !* HOLLAND * 260 !*********************** 270 GOTO 310 280 CALL CHAR :: CALL COINC :: CALL DELSPRITE :: CALL GCHAR :: CALL HCHAR :: CALL JOYST :: CALL KEY :: CALL LOCATE :: CALL MOTION :: CALL PATTERN :: CALL SOUND :: CALL SPRITE :: CALL VCHAR 290 A,A$,HI,HIT,K,KEY,LV,M,P,Q,QQ,S,SCR,T,TEK,TEK1,X,XJ,Y,YJ 300 DATA 310 RANDOMIZE :: OPTION BASE 1 :: DIM D(4) :: DEF H(X)=(X+7)/8 320 CALL MAGNIFY(3) :: CALL CLEAR :: CALL SCREEN(2) :: CALL COLOR(0,2,7,1,7,2,9,12,6,10,12,11,11,16,2,12,5,2,13,16,2) 330 REM !@P- 340 FOR T=3 TO 8 :: CALL COLOR(T,16,2) :: NEXT T 350 CALL CHAR(40,"C3FFC3C3C3FFC3C33C10081008100810",43,"18181818181818181C22221C08180838") 360 CALL CHAR(34,"FFFE131BBA1D1F1E5E4E5E7EBDD11",36,"FE282828282828384438282828282828FFF8E41CCEF3FCFFFF0FB73B78E71FFF") 370 A$="66666666" :: CALL CHAR(58,"7E7E"&RPT$("18",28),70,A$&A$,74,A$&"667E3C18",81,"3C7E"&A$&"7E7E",87,A$&"767676766E6E6E6E"&A$,100,"",90,A$&"66667E7E") 380 CALL CHAR(112,"1C3E7360606060606060606063733E1C4242424266667E7E0E0E0408",116,"3C7E"&A$&A$&A$&"7E3C1C3E736360703C1E0703030363677E3C") 390 CALL CHAR(96,"0103070F1F3F7FFF80C0E0F0F8FCFEFF071F3F7F7FFFFFFFFFFFFF7F7F3F1F07",102,"E0F8FCFEFEFFFFFFFFFFFFFEFEFCF8E000"&RPT$("F",30)) 400 FOR T=0 TO 16 STEP 4 :: CALL CHAR(T+126,"",T+127,"") :: NEXT T 410 A$="1C7F3A3F0E081C3E" :: CALL CHAR(128,A$&"3E3E3E1C0808081E",132,A$&"7EBEBE1C5474444F") 420 A$="38FE5CFC7010387C" :: CALL CHAR(136,A$&"7C7C7C3810101078",140,A$&"7EFD7D382A2E22F2") 430 CALL CHAR(60,"00001000080004100008001000080018",62,"",63,"",124,"1C7F3E7F5D495D3E3E3E3E1C222214FF") 440 CALL CHAR(64,"3C4299919199423C",92,"0000181818FFFFFF1818181818187EFF",94,"",95,"") 450 !************************ 460 HI=MAX(P,HI) :: CALL DELSPRITE(ALL) :: P,KEY=0 :: M=4 :: Q,SCR,LV=1 :: GOTO 1200 470 CALL DELSPRITE(#1) :: CALL HCHAR(1,1,31,768) :: CALL VCHAR(1,31,33,96) :: FOR T=1 TO 22 STEP 3 :: CALL VCHAR(T,2,32,2) :: CALL VCHAR(T,31,32,2) :: NEXT T 480 FOR T=1 TO 4 :: D(T)=6 :: NEXT T 490 DISPLAY AT(12,9)SIZE(14):"UP TO SCREEN";SCR :: DISPLAY AT(14,8)SIZE(16):USING "######## POINTS":P :: DISPLAY AT(16,12)SIZE(:"LEVEL";LV :: RANDOMIZE :: ON SCR GOSUB 1110,1130,1150,1170 500 FOR X=1 TO 22 STEP 3 :: READ A$ :: DISPLAY AT(X,1):A$ 510 IF 9-(X+2)/3>D(SCR)THEN 560 ELSE A=1 520 Y=POS(SEG$(A$,1,28)," ",A) 530 IF Y<25 AND SEG$(A$,Y+55+A,1)="!" THEN CALL HCHAR(X,Y+2,44)ELSE A=A+1 :: GOTO 520 540 RANDOMIZE :: Y=INT(RND*24+4) 550 CALL GCHAR(X,Y,TEK) :: CALL GCHAR(X-1,Y,TEK1) :: IF TEK<>32 OR TEK1<>33 THEN 540 ELSE CALL HCHAR(X,Y,36) :: CALL HCHAR(X+1,Y,37) 560 NEXT X 570 CALL HCHAR(1,30,44) :: GOSUB 1820 :: GOSUB 1830 :: FOR T=1 TO 6 580 Q=-Q :: X=(RND*5+3*LV)*Q :: CALL SPRITE(#T*2,120,RND*13+3,T*24+1,100,0,X) :: IF LV>2 THEN CALL SPRITE(#T*2+1,120,RND*13+3,T*24+1,225,0,X) 590 NEXT T :: IF SCR>1 THEN X=1 :: Y=25 :: CALL SPRITE(#1,124,11,X,Y) :: GOTO 910 600 Y=(INT(RND*28+3))*8-7 :: CALL GCHAR(1,H(Y),TEK) :: IF TEK<>32 THEN 600 610 X=1 :: CALL SPRITE(#1,128,11,X,Y) 620 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 630 CALL KEY(2,K,S) :: IF S THEN 780 640 CALL JOYST(2,YJ,XJ) :: IF XJ+YJ=0 THEN 620 650 IF XJ THEN CALL PATTERN(#1,124) :: GOTO 920 660 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 670 CALL GCHAR(H(X),H(Y+2*YJ),TEK) :: IF TEK>32 THEN 720 680 Q=-Q :: QQ=8*(YJ=-4) :: IF Q=1 THEN CALL PATTERN(#1,128-QQ)ELSE CALL PATTERN(#1,132-QQ) 690 CALL MOTION(#1,0,2*YJ) 700 Y=Y+2*YJ :: CALL MOTION(#1,0,0) :: CALL LOCATE(#1,X,Y) :: IF TEK=43 THEN 880 710 CALL SOUND(1,-5,0) :: GOTO 620 720 CALL MOTION(#1,0,0) 730 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 740 IF TEK>39 AND TEK<44 THEN 680 750 IF TEK=44 THEN CALL SOUND(200,880,0,990,0,1100,0) :: KEY=KEY+1 :: P=P+10 :: CALL HCHAR(H(X),H(Y+2*YJ),32) :: GOSUB 1820 :: GOTO 680 760 IF TEK=36 AND KEY>0 THEN KEY=KEY-1 :: D(SCR)=D(SCR)-1 :: CALL SOUND(200,110,0,220,0,330,0) :: P=P+20 :: CALL VCHAR(H(X),H(Y+2*YJ),32,2) :: GOSUB 1820 :: GOTO 680 770 GOTO 620 780 IF K=-7 THEN 810 790 CALL PATTERN(#1,60) :: FOR T=1 TO 50 :: NEXT T 800 CALL DELSPRITE(#1) :: FOR T=0 TO 30 :: CALL SOUND(-1,-5,30-T) :: NEXT T :: Y=41 :: CALL SPRITE(#1,60,11,1,Y) :: FOR T=1 TO 50 :: NEXT T :: GOTO 610 810 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE IF YJ=0 OR(Y<25 AND YJ<0)OR(Y>232 AND YJ>0)THEN 870 820 CALL GCHAR(H(X),H(Y+2*YJ),TEK) :: IF TEK=33 OR TEK=36 THEN CALL MOTION(#1,-10,0) :: GOTO 850 ELSE CALL MOTION(#1,-3,2*YJ) :: CALL GCHAR(H(X),H(Y+4*YJ),TEK) 830 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 840 IF TEK=33 OR(TEK=36 AND KEY=0)THEN CALL MOTION(#1,3,-YJ/2) :: GOTO 660 ELSE 860 850 CALL MOTION(#1,0,0) :: CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL LOCATE(#1,X,Y) :: CALL SOUND(-10,-6,0) :: GOTO 620 860 Y=Y+2*YJ :: CALL MOTION(#1,1,YJ) :: GOTO 660 870 CALL MOTION(#1,-10,0) :: CALL PATTERN(#1,124) :: YJ=0 :: CALL MOTION(#1,0,0) :: CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL LOCATE(#1,X,Y) :: CALL SOUND(-10,-6,0) :: GOTO 640 880 S=880 :: CALL PATTERN(#1,124) 890 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE S=S-20 :: CALL SOUND(-1000,S,0,S+110,0,S+220,0) 900 CALL GCHAR(H(X)+3,H(Y),TEK) :: X=X+8 :: CALL LOCATE(#1,X,Y) :: IF TEK-33 THEN 890 ELSE CALL SOUND(-10,-6,0) :: GOTO 620 910 CALL GCHAR(H(X-XJ/4),H(Y),TEK) :: IF TEK=32 THEN 620 920 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 930 IF XJ=4 THEN 1000 940 IF X=177 THEN 1670 950 CALL GCHAR(H(X+16),H(Y),TEK) :: IF TEK<>42 AND TEK<>40 THEN 1060 960 X=X+8 :: CALL MOTION(#1,5,0) :: IF TEK<41 THEN CALL SOUND(-50,880,0,990,0,1100,0) :: GOTO 990 970 FOR T=30 TO 0 STEP-10 :: CALL COINC(ALL,HIT) :: IF HIT THEN 1640 980 CALL SOUND(-40,-5,T) :: NEXT T 990 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL MOTION(#1,0,0) :: CALL LOCATE(#1,X,Y) :: GOTO 1060 1000 IF X=1 THEN IF SCR>1 AND Y=25 THEN SCR=SCR-1 :: GOTO 1810 ELSE 620 1010 CALL GCHAR(H(X-,H(Y),TEK) :: IF(TEK>32 AND TEK<40)OR TEK>42 THEN 1060 1020 X=X-8 :: CALL MOTION(#1,-5,0) :: IF TEK<41 THEN CALL SOUND(-50,880,0,990,0,1100,0) :: GOTO 1050 1030 FOR T=30 TO 0 STEP-10 :: CALL COINC(ALL,HIT) :: IF HIT THEN 1640 1040 CALL SOUND(-40,-5,T) :: NEXT T 1050 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL MOTION(#1,0,0) :: CALL LOCATE(#1,X,Y) 1060 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL JOYST(2,YJ,XJ) :: IF XJ THEN 920 1070 IF YJ=0 THEN 1060 1080 CALL GCHAR(H(X+,H(Y+2*YJ),TEK) :: IF TEK=33 THEN 1060 1090 GOTO 660 1100 !************************ 1110 CALL CHAR(33,"FBFB007700DD0077",42,"0810081008100810",120,"03060605040302050A050A050A050201E0B0B0D010E020D028D028D028D020C") 1120 CALL COLOR(1,15,2,2,16,2) :: RESTORE 1280 :: RETURN 1130 CALL CHAR(33,"FE0670777707E0EE",42,"1000100008001000",120,"3748555B2F5B5F2D5FAB9E6D152A241830C828E6D26AF4ECB2FAF46E61916A04") 1140 CALL COLOR(1,11,2,2,16,2) :: RESTORE 1370 :: RETURN 1150 CALL CHAR(33,"FF818181FFAE2420",42,"1028281008141408",120,"CF5FD24D47A7120F020F0207F84020F080C04081121F20C000800000F8102078") 1160 CALL COLOR(1,5,2,2,6,2) :: RESTORE 1460 :: RETURN 1170 CALL CHAR(33,"F7F7F7007F7F7F",42,"11,2") 1180 CALL CHAR(33,"F7F7F7007F7F7F",42,"1008040804081020",120,"020A0A68776FE90DEE0FF4031801191980A0A80EEEF697B077F02FC018809898") 1190 CALL CHAR(120,"020A0A68776FE90DEE0FF4031801191980A0A80EEEF697B077F02FC018809898") :: RESTORE 1550 :: RETURN 1200 GOSUB 1190 1210 CALL HCHAR(1,1,100,256) :: CALL HCHAR(9,1,105,512) :: CALL CHAR(33,"") :: DISPLAY AT(2,14)SIZE(13):"`adddddddddbf" :: DISPLAY AT(3,13)SIZE(14):"`hhaddddddddcg" 1220 FOR T=2 TO 6 :: DISPLAY AT(T+2,14-T)SIZE(2*T+2):"`"&RPT$("h",T*2)&"a" :: NEXT T :: FOR T=11 TO 22 :: CALL HCHAR(T,4,32,27) :: NEXT T 1230 DISPLAY AT(13,4)SIZE(23):"" :F:QWpZQrtWsv :trQ "" :: DISPLAY AT(14,4)SIZE(23):"# ;J;FXqFFFuX w ;uFu #" 1240 DISPLAY AT(16,4)SIZE(23):"&` BY REMCO POLMAN &`" :: DISPLAY AT(17,13)SIZE(5):"@1986" :: DISPLAY AT(20,9)SIZE(13):"PRESS BUTTON" 1250 DISPLAY AT(19,8)SIZE(15):USING "HISCORE ######":HI :: CALL SPRITE(#1,120,5,49,121) 1260 CALL KEY(2,K,S) :: IF S=0 THEN 1260 ELSE 470 1270 !*********************** 1280 DATA " , + + !!!!!!!!!!!(!!!!+!!!!!!!!!!!" 1290 DATA ") + (!+ + ( ) * + (!+ + ( * *!!!+!!!!!!(!+!!+!(!!!!!!*!!" 1300 DATA "* (!+ (!( !* * (!+ (!( !* *!!!!!!!!!!(!+!!!!(!(!!!!*!!" 1310 DATA "* !) ( (!(!+ * (* !* ( (!(!+ * (!!!*!!!!!!!!!!!!!!!!(!+!!!!(" 1320 DATA " * ( + + ( ! ) ( + ( * ( + + ( ! * ( + (!!!*!!(!+!+!(!!!!*!!!!+!!!!(" 1330 DATA " )!* ( !+!( * ! ( *!* ( !+!( * ! (!*!!!!(!!!+!(!!!!*!!!!!!!!!(" 1340 DATA " * ( ! ((! * + ( * ( ! ((! * + (!*!!!!!!!!!(!!!!!!!!!+!!!!!(" 1350 DATA " * ( ( * ( (!*!!!!!!!!!!!!!!!!!!!!!!!!!!" 1360 !*********************** 1370 DATA "!*! ( + ( + !*! ( + ( + !*!!!!(!!!!!(!!!+!!!!!(!+!!!" 1380 DATA " * (!) ( +!( ( + ) * (!* ( +!( ( + * !!!!!!!!*!!!(!!!+!(!!!!!+!*!" 1390 DATA "( * ( + ( + * ( * ( + ( + * (!!!!!!!*!!!!!!!+!(!!!!!+!!!" 1400 DATA "( ) * ) ( ( ( ( * * * ( ( ( (!!!!!*!*!!!!*!(!!!!(!!!!!!!" 1410 DATA "( ) * * + *!( ( ) ( * * * + *!( ( * !!*!!!*!!!!+!!!(!!!!(!!!!*!!" 1420 DATA " * * + ( ( + * * * + ( ( + * !!*!!!*!!!!+!!!(!!!!!!!+!*!!" 1430 DATA " )* * !( + * ** * !( + * !*!!!!!!!!!!!!!(!!+!!!!!!*!!" 1440 DATA " * ( * * ( * !*!!!!!!!!!!!!!!!!!!!!!!!!!!" 1450 !*********************** 1460 DATA " * ++ + ) * ++ + * !*!!++!!!(!!!!!!+!!!!*!!!!!!" 1470 DATA " *! + ( ( + * ! ) *! + ( ( + * ! * !*!!!+!!!(!!!!(!+!!!!*!!!!*!" 1480 DATA "(* + (! ( + * * (* + (! ( + * * (!!!!+!!!!!!!!(!+!!!!!!!!!*!" 1490 DATA "( ++ + ( +++ ( * ( ++ + ( +++ ( * !!!++!!!!!+!!!!!+++!!!(!!!!!" 1500 DATA " + ) + ! + + ( ) ( + * + ! + + ( * (!!!!+!!!*!+!!!!!+!+!!!!!*!!(" 1510 DATA " + * ! + ( * ( + * ! + ( * (!!!!+!!!*!!!!!!!+!!!(!!!!!!(" 1520 DATA " ( * + ) ( ( ( * + * ( (!(!!!!!!*!!!+!!!!!*!!!!!!!!(" 1530 DATA " ( * * ( ( * * (!(!!!!!!!!!!!!!!!!!!!!!!!!!!" 1540 !********************** 1550 DATA "!*" ) + ( ) !*# * + ( * !*!!!*!!!!!(!!!!+!!!!!!(!!*!" 1560 DATA "!* *!) (!(!!!!+!!!) ( !*!!* *!* (!(!&'!+!"!* ( !*!!*!!!!!(!(!(!!!!+!#!*!!(!!*!" 1570 DATA " * *!( ( ) * ( * * *!( ( * * ( * !(!!!!!*!!!!!*!!!!!!!!!(!!!!" 1580 DATA "!(!) !*!!"!!*!( ! (!( !(!* !*!!#!!*!( ! (!( !(!*!!!*!!!!!*!(!!!!!!!!!(!!" 1590 DATA "!( *!( *! + * (!!+ ( !( *!( *! + * (!!+ ( !(!!!(!!!!!+!!!(!!+!!!!!!(!!" 1600 DATA " ( (!!"!! (!! )!!! ()! ( (!!#!! (!! *!!! (*!!!!!!!!!!!!!!!!(!!!*!!!!!!*!" 1610 DATA "!"""!xz!&'!"!!!((!!* ( *!!###!y(!!!!#!!!((!!* ( *!!!!!!!!!!!!!!!!!(!!!!!!(!!!!" 1620 DATA " ( ( ( ( ( ( !(!!!!!!!!!!!!!!!!!!!!!!!!!!" 1630 !********************** 1640 CALL MOTION(#1,0,0) :: M=M-1 :: CALL PATTERN(#1,60) :: CALL PATTERN(#1,92) :: FOR T=220 TO 110 STEP-5 :: CALL SOUND(-50,T,0) :: NEXT T :: GOSUB 1830 :: IF M>0 THEN 800 1650 FOR T=10 TO 16 :: CALL HCHAR(T,11,31,13) :: NEXT T :: DISPLAY AT(11,11)SIZE(9):"GAME OVER" :: DISPLAY AT(13,9)SIZE(13):"PRESS BUTTON" :: DISPLAY AT(15,11)SIZE(9):"TO REPLAY" 1660 CALL KEY(2,K,S) :: IF S<1 THEN 1660 ELSE 460 1670 IF D(SCR)>0 THEN DISPLAY AT(1,8)SIZE(14):"OPEN EACH+DOOR" :: CALL SOUND(-200,220,0) :: DISPLAY AT(1,8)SIZE(14):" + " :: GOTO 1060 1680 CALL MOTION(#1,127,0) :: CALL SOUND(-100,880,0,990,0) :: SCR=SCR+1 :: CALL DELSPRITE(ALL) :: CALL VCHAR(1,3,31,672) :: IF SCR<5 THEN 490 1690 CALL VCHAR(1,3,33,672) :: FOR T=7 TO 15 :: CALL HCHAR(T,T-3,32,3) :: NEXT T :: CALL VCHAR(1,4,40, 1700 CALL HCHAR(14,14,32,2) :: CALL HCHAR(15,15,32,4) :: FOR T=9 TO 14 :: CALL HCHAR(T,16,32,9) :: NEXT T :: FOR T=17 TO 23 STEP 2 1710 CALL HCHAR(10,T,34) :: CALL HCHAR(11,T,35) :: NEXT T :: CALL SPRITE(#2,120,5,97,153,#1,124,11,1,25) 1720 FOR T=1 TO 49 STEP 3 :: CALL LOCATE(#1,T,25) :: FOR X=1 TO 15 :: NEXT X :: CALL SOUND(1,880,0,990,0) :: NEXT T :: CALL PATTERN(#1,128) :: FOR T=49 TO 105 STEP 8 :: CALL LOCATE(#1,T,T-16) 1730 FOR X=1 TO 15 :: NEXT X :: CALL SOUND(1,-5,0) :: NEXT T :: FOR T=97 TO 137 STEP 8 :: Q=-Q :: CALL PATTERN(#1,2*Q+130) :: CALL LOCATE(#1,105,T) :: FOR X=1 TO 20 :: NEXT X 1740 CALL SOUND(1,-5,0) :: NEXT T :: FOR T=1 TO 20 :: CALL LOCATE(#1,100,137) :: FOR X=1 TO 10 :: NEXT X :: CALL LOCATE(#1,105,137) :: CALL SOUND(1,-6,0) :: FOR X=1 TO 20 :: NEXT X :: NEXT T 1750 CALL DELSPRITE(ALL) :: M=M+1 :: LV=LV+1 :: SCR=1 :: P=P+100*LV :: CALL VCHAR(1,3,31,672) :: GOTO 480 1760 GOSUB 1810 1770 FOR T=1 TO 8 :: READ A$ :: DISPLAY AT(T*3-2,1):A$ :: NEXT T :: GOSUB 1820 :: GOSUB 1830 :: CALL HCHAR(1,30,44) 1780 X=177 :: Y=25 :: CALL SPRITE(#1,124,11,X,Y) :: FOR T=1 TO 6 1790 Q=-Q :: S=(RND*5+3*LV)*Q :: CALL SPRITE(#T*2,120,RND*13+3,T*24+1,1,0,S) :: IF LV>2 THEN CALL SPRITE(#1*2+1,120,RND*13+3,T*24+1,125,0,S) 1800 NEXT T :: GOTO 910 1810 CALL SOUND(-100,880,0,990,0) :: CALL DELSPRITE(ALL) :: CALL VCHAR(1,3,31,672) :: DISPLAY AT(12,8)SIZE(16):"BACK TO SCREEN";SCR :: ON SCR GOSUB 1110,1130,1150,1170 :: GOTO 1770 1820 A$=STR$(P) :: DISPLAY AT(24,6)SIZE(LEN(A$)):A$ :: RETURN 1830 CALL HCHAR(24,16,33,4) :: CALL HCHAR(24,16,128,M) :: RETURN TUTACHAMON.zip Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted July 16, 2018 Share Posted July 16, 2018 If that line works then I would think changing the scanned units in CALL KEY and CALL JOYST should be sufficient. 1 Quote Link to comment Share on other sites More sharing options...
jrhodes Posted July 16, 2018 Author Share Posted July 16, 2018 Just was not sure. I was searching for new games, previewing them through TI99Dir. I hate swapping my joystick around. I actually have not run it yet, just running through what i think i will need to do to make it work with joystick 1. The following loop never yields a -7 with CALL KEY(2,K,S), so i'm honestly not sure what they are looking for here: 1 CALL KEY(2,K,S) 2 IF S=0 THEN 1 3 PRINT K :: GOTO 1 Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted July 17, 2018 Share Posted July 17, 2018 Got me. I cannot find (CTRL-F) any other place in the program which literally sets K. Unless the programmer is exploiting some quirk of the key scan which could possibly produce a -7 return. EDIT: I think your pasted listing is missing something. I cannot find anywhere TEK is actually assigned, either. Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted July 17, 2018 Share Posted July 17, 2018 Got me. I cannot find (CTRL-F) any other place in the program which literally sets K. Unless the programmer is exploiting some quirk of the key scan which could possibly produce a -7 return. EDIT: I think your pasted listing is missing something. I cannot find anywhere TEK is actually assigned, either. Nope. The program lists the same way. My brain hurts right now Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted July 17, 2018 Share Posted July 17, 2018 You need to edit lines 1060, 1260, 1660. These have JOYST and KEY calls. 1 Quote Link to comment Share on other sites More sharing options...
sparkdrummer Posted July 18, 2018 Share Posted July 18, 2018 I have that game as well - good game. No need to change 780, it is correct as is. As OLD CS1 states above, you do need to change those other lines. I can upload my copy if needed. 1 Quote Link to comment Share on other sites More sharing options...
jrhodes Posted July 18, 2018 Author Share Posted July 18, 2018 (edited) You need to edit lines 1060, 1260, 1660. These have JOYST and KEY calls. Got it. Attached version is joystick #1, thanks for the help! TUTACHMNJ1.zip Edited July 18, 2018 by jrhodes 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.