Hi Guys of MSX System!!,
I need to fix my KARATE CHING for MSX1 in basic-msx.
Unfortunately doesn't work the jump of the enemy,
instead the sprite 1UP work enough well.
Of course, than still the new videogame there is very from work!!
Therefore, I ask your help for me, for to fix, Ok???
Of course, than I still must programmer the punch high and
punch low, for 1UP and eneny sprite, there is still very
but very work from make!!
See you later
Bye bye
Andrea
10 REM KARATE CHING
20 REM (C)2009 AGsoftware
30 REM ANDREA GASPARRINI SOFT
40 REM CON SFONDO GRAFICO
50 REM SPRITES COMPLETI
60 REM
70 CLEAR200:COLOR,0,0:SCREEN2,2,1:COLOR 15,5,7:DEFINTA-Z
80
RESTORE110:FORS=1TO63:A$="":FORF=1TO32:READA:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
90 GOSUB3020
100 REM HEAD-1
110 DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1
120 DATA 0,0,0,0,0,0,0,0,0,240,248,248,224,240,240,160
130 REM BODY-1
140 DATA 7,7,15,14,0,12,29,27,27,24,24,14,6,8,15,15
150 DATA 128,192,192,192,192,128,128,128,182,30,128,0,128,128,192,192
160 REM LEGS-1
170 DATA 7,7,11,11,13,13,11,27,59,59,61,24,96,0,241,121
180 DATA 192,192,192,192,224,224,224,224,224,224,192,0,192,0,224,248
190 REM HEAD-2
200 DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1
210 DATA 0,0,0,0,0,0,0,0,0,240,248,248,224,240,240,160
220 REM BODY-2
230 DATA 7,15,14,46,14,110,46,47,0,15,0,31,31,30,31,15
240 DATA 128,192,224,224,0,192,192,230,126,56,0,0,0,0,0,0
250 REM LEGS-2
260 DATA 15,7,7,15,30,30,60,60,121,121,49,64,160,192,240,56
270 DATA 64,64,96,96,112,112,240,240,224,224,192,0,192,0,240,248
280 REM MAN LOW-1
290 DATA
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,60,126,126,120,124,124
300 REM MAN LOW-2
310 DATA
1,7,23,55,49,110,13,47,112,61,30,222,222,252,252,120,216,224,240,240,64,44,244,244,22,142,62,60,0,24,56,126
320 REM MAN LOW-3
330 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,14,10,12,6
340 REM JUMPMAN-1
350 REM
360 DATA
0,1,3,3,3,1,1,3,7,15,30,6,25,25,30,7,0,224,240,240,192,224,224,64,128,192,192,64,128,128,96,224
370 REM JUMPMAN-2
380 DATA
30,1,62,63,31,15,1,0,7,15,15,3,12,24,28,15,0,0,0,128,224,240,184,120,120,240,192,0,0,0,0,0
390 REM KICK MID-1
400 DATA
1,7,15,15,13,8,7,7,0,0,0,0,0,0,0,0,224,248,224,218,58,231,159,127,255,238,116,124,124,120,120,120
410 REM KICK MID-2
420 DATA
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,120,120,120,120,248,248,248,248,248,248,112,0,48,0,112,240
430 REM KICK MID-3
440 DATA
0,7,63,255,255,254,240,192,0,192,192,0,0,0,0,0,196,214,235,225,192,0,0,0,0,0,0,0,0,0,0,0
450 REM KICK LOW-1
460 DATA
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28,62,126,120,124,124,120
470 REM KICK LOW-2
480 DATA
0,3,3,7,7,0,7,7,112,255,240,252,68,56,8,248,182,207,255,125,125,248,6,254,3,222,25,7,0,0,0,0
490 REM KICK LOW-3
500 DATA
0,0,128,128,64,192,192,224,128,120,255,255,255,3,0,0,0,0,0,0,0,0,0,0,0,0,128,248,248,254,255,15
510 REM KICK HIGH-1
520 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
530 DATA 0,0,0,0,0,0,60,126,126,120,60,60,104,240,248,248
540 REM KICK HIGH-2
550 DATA 0,3,3,3,6,6,3,1,0,0,1,1,1,0,0,0
560 DATA 216,16,144,96,225,103,31,223,223,30,248,240,0,248,248,120
570 REM KICK HIGH-3
580 DATA 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0
590 DATA 120,120,120,240,240,240,240,240,240,224,0,96,0,96,56,28
600 REM KICK HIGH-4
610 DATA 0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,6
620 DATA 0,0,0,0,0,0,0,0,0,0,128,192,224,224,64,128
630 REM KICK HIGH-5
640 DATA 15,31,127,255,252,224,192,128,128,0,0,0,0,0,0,0
650 DATA 0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0
660 REM PUNCH HIGH-2
670 DATA 7,15,15,47,15,111,47,47,0,15,0,15,31,31,15,15
680 DATA 128,239,239,224,0,192,128,128,0,0,0,0,0,128,128,192
690 REM PUNCH HIGH-3
700 DATA 7,3,5,14,30,61,61,125,123,121,49,64,160,192,240,56
710 DATA 192,224,224,224,240,240,224,224,224,224,192,0,192,0,240,248
720 REM PUNCH HIGH-4
730 DATA 0,248,252,24,0,0,0,0,0,0,0,0,0,0,0,0
740 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
750 REM GUARDIA-1
760 DATA 0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3
770 DATA 0,0,0,0,0,0,0,0,0,0,224,240,240,192,224,224
780 REM GUARDIA-2
790 DATA 3,7,15,11,27,29,30,31,31,6,24,6,56,62,63,31
800 DATA 194,7,131,198,236,120,48,0,0,0,0,0,0,0,128,192
810 REM GUARDIA-3
820 DATA 15,19,29,30,14,14,28,61,61,61,1,48,0,113,113,56
830 DATA 224,224,240,240,240,240,224,224,224,224,192,0,192,0,224,248
840 REM PUNCH LOW-1
850 DATA 0,0,3,7,7,7,7,7,3,7,15,15,30,31,95,95
860 DATA 0,0,192,224,224,128,192,192,0,223,223,192,0,128,128,128
870 REM PUNCH LOW-2
880 DATA 31,15,15,0,30,0,63,63,31,15,48,187,189,63,31,7
890 DATA 128,0,0,12,62,126,254,254,246,236,28,188,128,152,164,62
900 REM PUNCH LOW-3
910 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
920 DATA 0,0,0,0,0,0,0,0,0,0,0,2,6,6,6,3
930 REM PUNCH LOW-4
940 DATA 0,0,0,0,0,0,0,0,0,240,248,48,0,0,0,0
950 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
960 REM SPRITE ENEMY SX
970 REM HEAD-1 SX
980 DATA 0,0,0,0,0,0,0,0,0,15,31,31,7,15,15,5
990 DATA 0,0,0,0,0,0,0,0,0,0,128,128,128,0,0,128
1000 REM BODY-1 SX
1010 DATA 3,7,7,7,6,2,3,3,219,240,2,0,2,2,7,7
1020 DATA 192,192,224,224,0,96,112,176,176,48,48,224,192,32,224,224
1030 REM LEGS-1 SX
1040 DATA 3,3,3,3,7,7,7,7,7,7,3,0,3,0,7,15
1050 DATA 224,224,208,208,176,176,208,216,220,220,188,24,6,0,143,159
1060 REM BODY-2 SX
1070 DATA 3,7,14,14,0,6,6,207,252,57,0,1,1,0,1,1
1080 DATA 192,224,224,232,224,236,232,232,0,224,0,240,240,240,240,224
1090 REM LEGS-2 SX
1100 DATA 2,2,6,6,14,14,15,15,7,7,3,0,3,0,15,31
1110 DATA 240,224,224,240,120,120,60,60,158,158,140,2,5,3,15,28
1120 REM LOWMAN-1 SX
1130 DATA 0,0,0,0,0,0,0,0,0,0,60,126,126,62,126,126
1140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1150 REM LOWMAN-2 SX
1160 DATA 27,7,15,15,2,52,47,47,104,113,124,60,0,24,28,126
1170 DATA 128,224,232,236,140,118,176,244,14,188,120,123,123,63,63,30
1180 REM LOWMAN-3 SX
1190 DATA 0,0,0,0,0,0,0,0,0,0,0,32,112,80,48,96
1200 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1210 REM JUMPMAN-1 SX
1220 DATA 0,7,15,15,7,15,15,5,3,7,6,4,3,3,12,15
1230 DATA 0,128,192,192,192,128,0,128,192,224,240,192,48,48,240,192
1240 REM JUMPMAN-2 SX
1250 DATA 0,0,0,1,7,15,29,30,30,15,3,0,0,0,0,0
1260 DATA 120,128,124,252,248,240,128,0,224,240,240,192,48,24,56,240
1270 REM KICKMID-1 SX
1280 DATA 7,31,71,91,156,231,249,254,119,47,62,62,62,30,30,30
1290 DATA 128,224,240,240,176,16,224,224,0,0,0,0,0,0,0,0
1300 REM KICKMID-2 SX
1310 DATA 30,30,30,30,30,31,31,31,31,31,14,0,12,0,14,15
1320 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1330 REM KICKMID-3 SX
1340 DATA 35,107,215,135,3,0,0,0,0,0,0,0,0,0,0,0
1350 DATA 0,224,252,255,255,127,15,3,0,3,3,0,0,0,0,0
1360 REM KICKLOW-1 SX
1370 DATA 0,0,0,0,0,0,0,0,0,56,124,126,30,62,62,30
1380 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1390 REM KICKLOW-2 SX
1400 DATA 109,243,255,190,190,31,96,127,192,123,152,224,0,0,0,0
1410 DATA 0,192,192,224,224,0,224,224,14,255,15,63,34,28,16,31
1420 REM KICKLOW-3 SX
1430 DATA 0,0,0,0,0,0,0,0,0,0,1,31,31,127,255,240
1440 DATA 0,0,1,1,3,3,7,3,1,30,255,255,255,192,0,0
1450 REM KICKHIGH-1 SX
1460 DATA 0,0,0,0,0,0,60,126,126,30,62,60,22,15,31,31
1470 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128
1480 REM KICKHIGH-2 SX
1490 DATA 27,8,9,6,135,230,248,251,251,120,31,15,0,31,31,30
1500 DATA 0,192,192,192,96,96,192,128,0,0,128,128,128,0,0,0
1510 REM KICKHIGH-3 SX
1520 DATA 30,30,30,15,15,15,15,15,15,7,0,6,0,6,28,56
1530 DATA 0,0,0,0,0,128,128,128,128,0,0,0,0,0,0,0
1540 REM KICKHIGH-4 SX
1550 DATA 0,0,0,0,0,0,0,0,0,0,1,3,7,7,2,1
1560 DATA 0,0,0,0,0,0,0,0,0,128,0,0,0,0,128,96
1570 REM KICKHIGH-5 SX
1580 DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
1590 DATA 240,248,254,255,63,7,3,1,1,0,0,0,0,0,0,0
1600 REM PUNCH HIGH-2
1610 DATA 1,247,247,7,0,3,1,1,0,0,0,0,0,1,1,3
1620 DATA 224,240,240,244,240,246,244,244,0,240,0,240,248,248,240,240
1630 REM PUNCH HIGH-3
1640 DATA 3,7,7,7,15,15,7,7,7,7,3,0,3,0,15,31
1650 DATA 224,192,160,112,120,188,188,190,222,158,140,2,5,3,15,28
1660 REM PUNCH HIGH-4
1670 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1680 DATA 0,31,63,24,0,0,0,0,0,0,0,0,0,0,0,0
1690 REM GUARDIA-1 SX
1700 DATA 0,0,0,0,0,0,0,0,0,0,7,15,15,3,7,7
1710 DATA 0,0,0,0,0,0,0,0,0,0,128,192,192,192,192,192
1720 REM GUARDIA-2 SX
1730 DATA 67,224,193,99,55,30,12,0,0,0,0,0,0,0,1,3
1740 DATA 192,224,240,240,248,248,120,248,248,96,24,96,28,124,252,248
1750 REM GUARDIA-3 SX
1760 DATA 7,7,15,15,15,15,7,7,7,7,3,0,3,0,7,15
1770 DATA 240,200,184,120,112,112,56,188,188,188,128,12,0,142,142,28
1780 REM PUNCH LOW-1 SX
1790 DATA 0,0,3,7,7,1,3,3,0,251,251,3,0,1,1,1
1800 DATA 0,0,192,224,224,224,224,224,192,224,240,240,120,250,250,250
1810 REM PUNCH LOW-2 SX
1820 DATA 1,0,0,48,124,126,127,127,119,57,60,61,1,25,37,124
1830 DATA 248,240,240,0,120,0,252,252,248,240,12,221,189,252,248,224
1840 REM PUNCH LOW-3 SX
1850 DATA 0,0,0,0,0,0,0,0,0,0,0,64,96,96,96,192
1860 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1870 REM PUNCH LOW-4 SX
1880 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1890 DATA 0,0,0,0,0,0,0,0,0,15,31,12,0,0,0,0
1900 REM
1910 REM
1920 X=70:Y=142:SP=1:Z=0:X2=140:Y2=142:SK=33:Z2=0:MV=0
1930
PUTSPRITE1,(X,Y),15,SP+Z:PUTSPRITE2,(X,Y+16),15,SP+1+Z:PUTSPRITE3,(X,Y+32),15,SP+2+Z
1940
PUTSPRITE6,(X2,Y2),2,SK+Z2:PUTSPRITE7,(X2,Y2+16),2,SK+1+Z2:PUTSPRITE8,(X2,Y2+32),2,SK+2+Z2
1950 PLAY
"t210l4o5m10000s0cc8c8o4a+a+ggd+2l8fgfd+l4cd+r4v15d2.","l4o4s0t235g+t210g+8g+8o4ffddc+2r1r4v14c+2."
1960 FORA=0TO5000:NEXTA
1970
SOUND0,16:SOUND2,8:SOUND4,0:SOUND1,7:SOUND3,7:SOUND5,7:SOUND7,156:FORI=15TO0STEP-1:SOUND6,I+10:SOUND8,I:SOUND9,I:SOUND10,I*.8:FORW=0TO150:NEXTW,I
1980 FORA=0TO10:SOUNDA,0:NEXTA:BEEP
1990 ONSTRIGGOSUB2240,2240
2000 STRIG(0)ON:STRIG(1)ON
2010 ONSTICK(0)ORSTICK(1)GOSUB2180,2180,2110,2130,2150,2130,2120,2130
2020 IFSTICK(0)ORSTICK(1)>0THENZ=Z+3ANDZ<1
2030 IFX>X2-16THENX=X2-16
2040 IFX<8THENX=8
2050 IFK1=1THENGOSUB2290
2060 IFK2=1THENGOSUB2340
2070 IFF1=1THENGOSUB2200ELSEIFF1=2THENGOSUB2210
2080 IFKH=1THENF1=0:GOSUB2390
2090 GOSUB2490
2091 IFK3=1THENGOSUB2710
2092 IFK4=1THENGOSUB2760
2093 IFF3=1THENGOSUB2640ELSEIFF3=2THENGOSUB2650
2100 GOTO2010
2110
IFJP=1THENRETURNELSEX=X+4:SP=1:PUTSPRITE1,(X,Y),15,SP+Z:PUTSPRITE2,(X,Y+16),15,SP+1+Z:PUTSPRITE3,(X,Y+32),15,SP+2+Z:PUTSPRITE4,,0,0:RETURN
2120
IFJP=1THENRETURNELSEX=X-4:SP=1:PUTSPRITE1,(X,Y),15,SP+Z:PUTSPRITE2,(X,Y+16),15,SP+1+Z:PUTSPRITE3,(X,Y+32),15,SP+2+Z:PUTSPRITE4,,0,0:RETURN
2130 RETURN
2140 REM low man
2150
IFK2=1THENRETURNELSESP=7:PUTSPRITE4,,0,0:PUTSPRITE5,,0,0:PUTSPRITE1,(X-1,Y+16),15,SP:PUTSPRITE2,(X,Y+32),15,SP+1:PUTSPRITE3,(X-16,Y+32),15,SP+2
2160 SP=1:RETURN
2170 REM JUMP MAN
2180
STRIG(0)OFF:STRIG(1)OFF:IFJP=1THENRETURNELSEIFKH=0THENSP=10:Y=143:JP=1:PUTSPRITE1,(X,Y),15,SP:PUTSPRITE2,(X,Y+16),15,SP+1:PUTSPRITE3,,0,0:PUTSPRITE4,,0,0ELSESP=18:Y=143:JP=1:GOSUB2390
2190 F1=1:GOSUB2520
2200
IFKH=0THENY=Y-4:PUTSPRITE1,(X,Y),15,SP:PUTSPRITE2,(X,Y+16),15,SP+1:YJ=YJ+1:IFYJ>10THENYJ=0:F1=2:RETURNELSEIFKH=1THENSP=18:GOSUB2390:RETURNELSERETURN
2210
Y=Y+4:PUTSPRITE1,(X,Y),15,SP:PUTSPRITE2,(X,Y+16),15,SP+1:YJ=YJ+1:IFYJ>10THENYJ=0:F1=0:JP=0:ELSEIFSTRIG(0)=-1ANDYJ<4THENKH=1:YJ=0:F1=0:RETURNELSERETURN
2220
SP=1:Y=142:PUTSPRITE1,(X,Y),15,SP+Z:PUTSPRITE2,(X,Y+16),15,SP+1+Z:PUTSPRITE3,(X,Y+32),15,SP+2+Z:PUTSPRITE4,,0,0:STRIG(0)ON:STRIG(1)ON:RETURN
2230 REM KICK MID
2240 IFJP=1THENGOSUB2390
2250 IFSTICK(0)=0ORSTICK(0)=3ORSTICK(0)=7THEN2280
2260 IFSTICK(0)=5THEN2330
2270 REM
2280
SP=9:K3=1:Z=3:PUTSPRITE1,(X,Y),15,1:PUTSPRITE2,(X,Y+16),15,SP+Z:PUTSPRITE3,(X,Y+32),15,SP+1+Z:PUTSPRITE4,(X+16,Y+16),15,SP+2+Z:GOSUB2890
2290 KC=KC+1:IFKC>20THENKC=0:GOTO2310ELSERETURN
2300 RETURN
2310
SP=1:K3=0:Z=3:PUTSPRITE4,,0,0:PUTSPRITE1,(X,Y),15,SP+Z:PUTSPRITE2,(X,Y+16),15,SP+1+Z:PUTSPRITE3,(X,Y+32),15,SP+2+Z:STRIG(0)ON:STRIG(1)ON:RETURN
2320 REM KICK LOW
2330
K4=1:SP=15:Z=0:PUTSPRITE1,(X,Y+16),15,SP+Z:PUTSPRITE2,(X,Y+32),15,SP+1+Z:PUTSPRITE3,(X+16,Y+32),15,SP+2+Z:GOSUB2890:RETURN
2340 KF=KF+1:IFKF>5THENKF=0:K2=0:GOTO2360ELSERETURN
2350 RETURN
2360
K4=0:SP=7:Z=0:PUTSPRITE1,(X-1,Y+16),15,SP:PUTSPRITE2,(X,Y+32),15,SP+1:PUTSPRITE3,(X-16,Y+32),15,SP+2:RETURN
2370 RETURN
2380 REM KICK HIGH
2390 IFFL=0THENGOSUB2910:FL=1
2400
SP=18:KH=1:Y=Y+4:PUTSPRITE1,(X,Y),15,SP:PUTSPRITE2,(X,Y+16),15,SP+1:PUTSPRITE3,(X,Y+32),15,SP+2:PUTSPRITE4,(X+16,Y),15,SP+3:PUTSPRITE5,(X+16,Y+16),15,SP+4:YH=YH+1:IFYH>3THENYH=0:F1=0:JP=0:KH=0ELSERETURN
2410 IFY<142THENY=142
2420
SP=1:PUTSPRITE1,(X,Y),15,SP+Z:PUTSPRITE2,(X,Y+16),15,SP+1+Z:PUTSPRITE3,(X,Y+32),15,SP+2+Z:PUTSPRITE4,,0,0:PUTSPRITE5,,0,0
2430 FL=0:STRIG(0)ON:STRIG(1)ON:RETURN
2440 REM
2450 REM
2460 REM
2470 REM
2480 REM MOVING SPRITE ENEMY
2490 MV=MV-1:IFMV<1THENMV=5:MZ=INT(RND(-TIME)*5+1)ELSEGOTO2460
2500 Z2=Z2+2ANDZ2<1:ONMZGOSUB2520,2530,2510,2550
2510 RETURN
2520
X2=X2+4:SK=33:PUTSPRITE6,(X2,Y2),2,33:PUTSPRITE7,(X2,Y2+16),2,SK+1+Z2:PUTSPRITE8,(X2,Y2+32),2,SK+2+Z2:PUTSPRITE9,,0,0:IFX2>224THENX2=224:RETURNELSERETURN
2530
X2=X2-4:SK=33:PUTSPRITE6,(X2,Y2),2,33:PUTSPRITE7,(X2,Y2+16),2,SK+1+Z2:PUTSPRITE8,(X2,Y2+32),2,SK+2+Z2:PUTSPRITE9,,0,0:IFX2<X+24THENX2=X+24:RETURNELSERETURN
2540 REM MOVING ENEMY
2550 MM=INT(RND(-TIME)*3+1)
2560 ONMMGOSUB 2750,2700,2590
2570 GOTO2510
2580 REM low man sx
2590
SK=38:PUTSPRITE9,,0,0:PUTSPRITE10,,0,0:PUTSPRITE6,(X2-1,Y2+16),2,SK:PUTSPRITE7,(X2,Y2+32),2,SK+1:PUTSPRITE8,(X2+16,Y2+32),2,SK+2
2600 SK=33:RETURN
2610 REM JUMP MAN sx
2620
SK=41:Y2=143:PUTSPRITE6,(X2,Y2),2,SK:PUTSPRITE7,(X2,Y2+16),2,SK+1:PUTSPRITE8,,0,0:PUTSPRITE9,,0,0:PUTSPRITE10,,0,0ELSESK=49:Y2=143:GOSUB2810
2630 F3=1:GOSUB2520
2640
Y2=Y2-4:PUTSPRITE6,(X2,Y2),2,SK:PUTSPRITE7,(X2,Y2+16),2,SK+1:YL=YL+1:IFYL>10THENYL=0:F3=2:RETURNELSEIFKH=1THENSK=49:GOSUB2810:RETURNELSERETURN
2650
Y2=Y2+4:PUTSPRITE6,(X2,Y2),2,SK:PUTSPRITE7,(X2,Y2+16),2,SK+1:YL=YL+1:IFYL>10THENYL=0:F3=0:ELSEIFYL<4THENYL=0:F1=0:RETURNELSERETURN
2660
SK=33:Y2=142:PUTSPRITE6,(X2,Y2),2,SK+Z2:PUTSPRITE7,(X2,Y2+16),2,SK+1+Z2:PUTSPRITE8,(X2,Y2+32),2,SK+2+Z2:PUTSPRITE9,,0,0:RETURN
2670 REM KICK MID
2680 REM
2690 REM
2700
SK=41:K1=1:Z2=2:PUTSPRITE6,(X2,Y2),2,33:PUTSPRITE7,(X2,Y2+16),2,SK+Z2:PUTSPRITE8,(X2,Y2+32),2,SK+1+Z2:PUTSPRITE9,(X2-16,Y2+16),2,SK+2+Z2:GOSUB2890
2710 KQ=KQ+1:IFKQ>20THENKQ=0:GOTO2730ELSERETURN
2720 RETURN
2730
SK=33:K1=0:Z2=2:PUTSPRITE9,,0,0:PUTSPRITE6,(X2,Y2),2,SK+Z2:PUTSPRITE7,(X2,Y2+16),2,SK+1+Z2:PUTSPRITE8,(X2,Y2+32),2,SK+2+Z2:RETURN
2740 REM KICK LOW
2750
K3=1:SK=46:Z2=0:PUTSPRITE9,,0,0:PUTSPRITE10,,0,0:PUTSPRITE6,(X2,Y2+16),2,SK+Z2:PUTSPRITE7,(X2,Y2+32),2,SK+1+Z2:PUTSPRITE8,(X2-16,Y2+32),2,SK+2+Z2:GOSUB2890:RETURN
2760 KQ=KQ+1:IFKQ>5THENKQ=0:K2=0:GOTO2780ELSERETURN
2770 RETURN
2780
K2=0:SK=40:Z2=0:PUTSPRITE6,(X2-1,Y2+16),2,SK:PUTSPRITE7,(X2,Y2+32),2,SK+1:PUTSPRITE8,(X2-16,Y2+32),2,SK+2:RETURN
2790 RETURN
2800 REM KICK HIGH
2810 IFFL=0THENFL=1:GOSUB2910
2820
SK=49:KH=1:Y2=Y2+4:PUTSPRITE6,(X2,Y2),2,SK:PUTSPRITE7,(X2,Y2+16),2,SK+1:PUTSPRITE8,(X2,Y2+32),2,SK+2:PUTSPRITE9,(X2-16,Y2),2,SK+3:PUTSPRITE10,(X2-16,Y2+16),2,SK+4:Y3=Y3+1:IFY3>3THENY3=0:F1=0:JP=0:KH=0ELSERETURN
2830 IFY2<142THENY2=142
2840
SK=33:PUTSPRITE6,(X2,Y2),2,SK+Z2:PUTSPRITE7,(X2,Y2+16),2,SK+1+Z2:PUTSPRITE8,(X2,Y2+32),2,SK+2+Z2:PUTSPRITE9,,0,0:PUTSPRITE10,,0,0
2850 FL=0:RETURN
2860 REM
2870 SOUND1,2:FOR I=255 TO 50 STEP -8:SOUND8,15:SOUND0,I:NEXT:FOR O=15 TO 0
STEP -8:FOR I=50 TO 0 STEP -9:SOUND0,I:NEXT:SOUND8,O:NEXT:SOUND0,0:SOUND1,0
2880 RETURN
2890 FORQ=250TO50:FORW=QTOQ-20STEP-1:SOUND8,15:SOUND0,W:NEXTW:NEXTQ:SOUND0,0
2900 RETURN
2910 FOR I=0 TO 150 STEP8:FOR O=I TO
I+90STEP80:SOUND8,15:SOUND0,O:NEXT:NEXT:SOUND0,0
2920 RETURN
2930 FOR I=250 TO 50 STEP -80:FOR O=I TO I-80 STEP
-20:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
2940 RETURN
2950 FOR I=250 TO 50 STEP -60:FOR O=I TO I-50 STEP
-8:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
2960 RETURN
2970 FORLC=1TO3:FOR I=0 TO 250 STEP13:FOR O=I TO
I+255STEP-1:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0:NEXT:RETURN
2980 FOR I=0 TO 200 STEP 4:FOR O=I TO
I+50STEP10:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0:RETURN
2990 SCREEN2
3000 COLOR 15,5,7
3010 REM
3020 CLS
3030 XB=122+INT(RND(1)*255)
3040 LINE(XB-2,192)-(XB-2,184),8
3050 X=XB-2
3060 Y=184
3070 X=X-8
3080 Y=Y-INT(RND(1)*60)+INT(RND(1)*40)
3090 IFY<45THENY=Y+45
3100 IFY>184THENY=184
3110 DRAW"C8M=X;,=Y;"
3120 IFX>0THEN3070
3130 PAINT(250,190),8,8
3140 CIRCLE(190,30),20,10
3150 PAINT(195,35),10,10
3160 RETURN
_______________________________________________
MSX mailing list (msx@stack.nl)
Info page: http://lists.stack.nl/mailman/listinfo/msx
