POPERTEX game unfinished!!!

By gamecast

Expert (101)

gamecast さんの画像

12-08-2011, 00:16

Hello guys,

This time I make a nice gift .....

Unfortunately I was not able to finish this game last year 2010, I found myself in trouble on its programming and, unfortunately, has some POPERTEX BUG!

If you quancuno MSX programmer users and if you are really tinkered on real MSX, I wonder if any of you would end up the programming POPERTEX my video game, because after all the trouble I did, it would be a shame to throw it away ! True? ^ _ ^
I hope you users of MSX, the think like me!

Below are his instructions POPERTEX game and beneath all its basic source.
What I can say now is: GOOD WORK .......
See you soon ^ _ ^
Andrea

Game Instructions for POPERTEX.

History of the game:

You're a nice builder, and you're in a basement of a bank and that the task of making holes in the walls to take the diamond with your jackhammer, but also drill to make holes on the floor of the bank Subterranean .
The friendly builder besides using his tools as a thief, it can also jump to avoid falling into holes, the holes will fall if you lose a life, but if you take the object tool umbrella then you will save because there is by parachute.
Then into the subterranean bank there are very large mice almost like rats, that if you go off to lose a life, but if you hinder your journey into the underground bank can kill them throwing a wrench to back to the mice.
For each rat killed accumulate a score of 300 points.
To finish each level of play bisonga first take all the diamonds that are in
the subterranean walls of the bank, every diamond but accumulate a score of
100 points, made all the diamonds, a staircase will appear in the top left and you
will run away and go to the next level!
The game is very good with good music occompagnamente and the new entry of my new software house called GAMECAST, I thought of doing this to give a new image and a new logo to my new video games for MSX.

Select an object with key instrument GRPH cursor down

1) NO TOOL, to clear the object tool selected before.
2) DRILL GREEN, to make the holes on the floors.
3) UMBRELLA, this item tool used to save your life when
fall from a peak, in fact when you activate this tool, when
1UP character falls will be activated automatically umbrella
There will be a parachute. Without them I crashed on the floor.
4) pneumatic drill, this tool is subject to break
the walls of the left side and right side wall.
5) Wrench, this object is used to pull a key tool
English to kill mice.
6) EXIT, this object is only to exit the menu item of choice
if you accidentally entered the menu item selection tool.

BONUS EXTRA LIFE 1UP
Reached a score of 50000 points each, plus you will get an extra life
will be signaled by a sound effect.

***************************************************************************

Commands to play keyboard and joystick port 1
Keyboard commands:
Press the cursor keys for the 4-way
button press spacebar to jump player 1UP
press button GRPH + cursor down to enter and select a tool from the object
menu choice is located in the top right.
GRPH press button to use the object tool selected from the menu
Commands from joystick port 1:
the 4 direction joystick
press a fire button to jump 1UP
press fire button joystick down 2 + enter and select an object from the tool
menu choice is located in the top right.
press fire button 2 to use the object tool selected from the menu

****************************************************************************

GOOD FUN!

(C)2010 GAMECAST Entertainment


10 REM POPERTEX
20 REM (C)2010 GAMECAST
30 REM VERSION 11.5
40 REM UPDATE 26/9/2010
50 REM MUSIC PLAY OFF!
60 REM
70 CLEAR500,&HCFFF:COLOR,0,0:SCREEN1,2,0:COLOR15,0,0:WIDTH32:KEYOFF:DEFINTA-Z
80 HI=3494:DEFUSR1=&H41:DEFUSR2=&H44
90 DEFUSR3=&HD000:DEFUSR4=&HD008
100 RESTORE120:FORI=&HD000TO&HD00F:READA$
110 POKEI,VAL("&H"+A$):NEXTI
120 DATA 06,E3,0E,01,CD,47,00,C9
130 DATA 06,E2,0E,01,CD,47,00,C9
140 REM DEFINIZIONE CARATTERI
150 RESTORE 170:FOR A=0 TO 7:READ B:VPOKE 1024+A,B:NEXT A
160 REM MURO
170 DATA 255,195,129,129,129,129,195,255
180 REM 1UP
190 RESTORE200:FOR A=124*8 TO 125*8-1:READ B:VPOKEA,B:NEXT A
200 DATA 126,255,128,255,229,197,65,62
210 REM MATTONE
220 RESTORE230:FOR A=144*8 TO 145*8-1:READ B:VPOKEA,B:NEXT A
230 DATA 251,251,251,0,127,127,127,0
240 RESTORE 260:FOR A=0 TO 15:READ B:VPOKE 1088+A,B:NEXT A
250 REM SCALE
260 DATA 192,192,192,255,255,192,192,192
270 DATA 3,3,3,255,255,3,3,3
280 RESTORE330:FOR A=152*8 TO 157*8-1:READ B:VPOKEA,B:NEXT A
290 RESTORE350:FOR A=160*8 TO 165*8-1:READ B:VPOKEA,B:NEXT A
300 RESTORE370:FOR A=168*8 TO 172*8-1:READ B:VPOKEA,B:NEXT A
310 RESTORE390:FOR A=176*8 TO 184*8-1:READ B:VPOKEA,B:NEXT A
320 REM NOTOOL
330 DATA 0,0,0,18,26,22,18,18,0,119,37,37,37,39,0,0,0,0,0,96,144,144,144,96,0,116,84,84,84,118,0,0
340 REM EXIT
350 DATA 0,0,0,0,116,70,67,65,97,67,70,116,0,0,0,0,0,0,0,0,87,210,146,18,18,146,210,82,0,0,0,0
360 REM WRENCH (chiave inglese)
370 DATA 0,0,0,0,0,0,1,3,7,15,127,254,252,28,28,24,24,56,56,63,127,254,240,224,192,128,0,0,0,0,0,0
380 REM MOUSE
390 DATA 112,248,251,255,123,59,126,127,127,62,135,95,71,63,14,30,28,62,190,254,188,184,252,252,252,248,192,240,192,192,224,240
400 REM DIAMOND
410 DATA 0,0,31,49,74,132,255,68,0,0,248,140,82,33,255,34,34,18,9,5,2,1,0,0,68,72,144,160,64,128,0,0
420 GOSUB2480:REM NAMCO
430 REM COLORA CARATTERI
440 VPOKE8207,16*6+10:VPOKE 8208,16*14+13:VPOKE8209,7*16:VPOKE8210,16*12+10:VPOKE8211,16*7+4:VPOKE8212,16*7+12
450 VPOKE8213,16*4:VPOKE8215,16*9:VPOKE8216,16*8:VPOKE8217,16*10+6
460 FORA=8200TO8203:VPOKEA,16*10:NEXT
470 VPOKE8198,16*14:VPOKE8199,16*14
480 REM DEFINIZIONE SPRITE 16x16
490 RESTORE510:FORS=1TO18:A$="":FORF=1TO32:READA:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
500 RESTORE700:FORS=19TO31:A$="":FORF=1TO32:READA:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
510 DATA 0,0,0,0,1,4,7,1,0,16,48,0,0,0,0,0,0,0,0,192,160,224,192,128,0,56,48,0,0,0,0,0
520 DATA 0,0,12,15,14,11,8,6,0,0,12,63,63,60,0,0,0,0,0,0,0,0,0,0,64,0,0,240,240,224,0,0
530 DATA 0,7,3,0,0,0,0,0,15,15,3,192,192,192,129,1,0,128,192,0,0,0,0,0,128,192,192,0,0,0,192,224
540 DATA 0,0,0,0,2,3,0,0,32,112,0,0,0,0,0,0,0,0,96,208,112,224,192,0,3,2,0,0,0,0,0,0
550 DATA 0,6,7,7,5,4,3,1,0,1,7,15,31,6,0,0,0,0,128,0,128,0,0,32,144,104,248,248,248,56,0,0
560 DATA 3,1,0,0,0,0,0,30,31,6,0,0,0,56,56,28,192,224,0,0,0,0,0,192,108,148,2,6,6,6,0,0
570 DATA 0,0,0,3,5,7,3,1,0,28,12,0,0,0,0,0,0,0,0,0,128,32,224,128,0,8,12,0,0,0,0,0
580 DATA 0,0,0,0,0,0,0,0,2,0,0,15,15,7,0,0,0,0,48,240,112,208,16,96,0,0,48,252,252,60,0,0
590 DATA 0,1,3,0,0,0,0,0,1,3,3,0,0,0,3,7,0,224,192,0,0,0,0,0,240,240,192,3,3,3,129,128
600 DATA 0,0,6,11,14,7,3,0,192,64,0,0,0,0,0,0,0,0,0,0,64,192,0,0,4,14,0,0,0,0,0,0
610 DATA 0,0,1,0,1,0,0,4,9,22,31,31,31,28,0,0,0,96,224,224,160,32,192,128,0,128,224,240,248,96,0,0
620 DATA 3,7,0,0,0,0,0,3,54,41,64,96,96,96,0,0,192,128,0,0,0,0,0,120,248,96,0,0,0,28,28,56
630 DATA 0,0,0,0,0,7,0,0,96,96,0,0,0,0,0,0,24,24,0,0,0,224,0,0,0,0,0,0,0,0,0,0
640 DATA 0,7,3,0,0,0,4,4,30,31,31,31,15,8,0,0,0,224,192,0,0,0,32,32,120,252,252,248,0,128,0,0
650 DATA 0,0,4,15,15,56,123,123,1,0,0,0,0,7,15,7,0,0,56,252,252,28,216,216,128,0,0,0,120,0,192,192
660 DATA 24,24,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,224,0,0,6,6,0,0,0,0,0,0
670 DATA 0,7,3,0,0,0,4,4,30,63,63,31,0,1,0,0,0,224,192,0,0,0,32,32,120,248,248,248,240,16,0,0
680 DATA 0,0,28,63,63,56,27,27,1,0,0,0,30,0,3,3,0,0,32,240,240,28,222,222,128,0,0,0,0,224,240,224
690 REM HAMMER&DIGGER
700 DATA 0,0,0,0,0,31,63,127,127,63,14,28,56,112,0,0,0,0,0,0,0,248,196,255,196,248,0,0,0,0,0,0
710 DATA 0,0,0,0,0,63,71,255,71,63,0,0,0,0,0,0,0,0,0,0,0,248,252,254,254,252,112,56,28,14,0,0
720 DATA 0,0,0,6,3,0,3,7,13,13,13,15,2,1,0,0,0,0,0,48,224,128,224,240,88,88,88,248,160,64,128,128
730 REM UMBRELLA&BOX
740 DATA 0,1,7,11,21,43,127,255,147,1,1,1,1,1,1,0,0,128,224,208,168,212,254,255,145,0,0,0,0,0,32,192
750 DATA 255,192,128,128,128,128,128,128,128,128,128,128,128,128,192,255,255,3,1,1,1,1,1,1,1,1,1,1,1,1,3,255
760 REM WRENCH (chiave inglese)
770 DATA 0,0,0,0,0,0,1,3,7,15,127,254,252,28,28,24,24,56,56,63,127,254,240,224,192,128,0,0,0,0,0,0 
780 REM DEATH 1UP
790 DATA 0,0,0,0,0,0,0,0,0,24,44,62,22,4,12,0,0,0,0,0,0,0,0,0,0,0,0,0,4,6,7,7
800 DATA 0,0,0,0,0,0,0,0,0,0,0,1,40,58,114,124,0,0,0,0,4,60,30,30,62,95,255,127,58,0,0,0
810 DATA 0,0,0,0,1,1,0,0,0,0,65,192,193,193,128,0,0,0,0,120,248,128,0,0,0,160,0,128,192,248,248,120
820 REM TITLE POPERTEX
830 DATA 254,255,195,195,195,195,195,255,254,192,192,192,192,192,192,192,62,127,119,99,99,99,99,99,99,99,99,99,99,119,127,62
840 DATA 252,254,198,198,198,198,198,254,252,192,192,192,192,192,192,192,127,255,254,192,192,192,192,248,248,192,192,192,192,254,255,127
850 DATA 252,254,198,198,198,198,198,198,248,252,198,198,198,198,198,198,255,255,255,24,24,24,24,24,24,24,24,24,24,24,24,24
860 DATA 254,254,252,192,192,192,192,248,248,192,192,192,192,252,254,254,195,195,195,195,195,102,102,60,60,102,102,195,195,195,195,195
870 CLS:FORA=0TO31:PUTSPRITEA,,,0:NEXTA
880 LI=2:SC=0:BO=500:LV=1:ST=1:TI=3000
890 PRINT" SCORE        HI SCORE"
900 PRINTSC*100;SPC(10);HI*100
910 A=USR3(0)
920 PUTSPRITE28,(60,50),4,28:PUTSPRITE29,(93,50),5,29:PUTSPRITE30,(126,50),7,30:PUTSPRITE31,(159,50),5,31
930 LOCATE 1,18:PRINT"1UP BONUS EVERY FOR 50000 PTS"
940 LOCATE 1,20:PRINT"@ 2010 GAMECAST ENTERTAINMENT"
950 LOCATE 2,22:PRINT"PUSH SPACE OR FIRE TO START":A=USR2(0)
960 PLAY"V15L8T160S10M3000O5DEFCEFO4B-O5EFO4AV7AV6AV5AV4AV3AV2AV1AV0A","V15L8T160S10M3000O4FFFFFFFFFCV7CV6CV5CV4CV3CV2CV1CV0C","V15L8T160S10M3000O2B-B-B-AAAGGGFV7FV6FV5FV4FV3FV2FV1FV0F"
970 STRIG(0)ON:STRIG(1)ON:STRIG(3)ON
980 ON STRIG GOSUB 1010,1010,1010,1010
990 GOTO 970
1000 REM SCORE,LIVES
1010 A=USR1(0):FORA=0TO31:PUTSPRITEA,,,0:NEXTA:CLS:A=USR4(0):A=USR2(0)
1020 CLS:FORA=1TO4:PUTSPRITEA,,,0:NEXT:LOCATE 11,10:PRINT"STAGE";LV
1030 LOCATE 12,12:PRINT"READY!"
1040 PLAY"T200V15O5L2CO4L8GGGS13M500GGV15GGGGEFGL4ABO5CDEL8FFFEDCDDO4AAABO5L4CCC","T200V10O4L2CO3L8GGGGGGGGGEFGL4ABO4CDEL8FFFEDCDDO3AAABO4L4CCC","V15O4L4AL8GFEDL4FEEFL8EDC+O3BO4L4C+DD"
1050 FORI=0TO4000:NEXTI
1060 A=USR1(0):CLS:LOCATE 1,0:PRINT"SCORE":LOCATE12,0:PRINT"HI-SCORE"
1070 LOCATE0,1:PRINTSC*100:LOCATE11,1:PRINTHI*100:LOCATE3,2:PRINT"STAGE";ST:LOCATE12,2:PRINTUSING"TIME####";TI
1080 LF=LI:IFLF>11THENLF=11
1090 FOR A=1 TO LF
1100 LOCATE20,2:PRINTSTRING$(LF,124);
1110 PUTSPRITE8,(208,0),14,19:PUTSPRITE9,(176,0),12,21:PUTSPRITE10,(192,0),11,22
1120 LOCATE20,0:PRINTCHR$(152)+CHR$(154):LOCATE20,1:PRINTCHR$(153)+CHR$(155)
1130 LOCATE28,0:PRINTCHR$(168)+CHR$(170):LOCATE28,1:PRINTCHR$(169)+CHR$(171)
1140 LOCATE30,0:PRINTCHR$(160)+CHR$(162):LOCATE30,1:PRINTCHR$(161)+CHR$(163)
1150 REM LOAD STAGE
1160 IFLV>2THENLV=1
1170 ON LV GOSUB3100,3330
1180 A=USR2(0)
1190 X%=176:Y%=167:SP%=1:MP=0:DM=0
1200 ON STRIG GOSUB 2000,2000,1780,1780
1210 STRIG(0)ON:STRIG(1)ON:STRIG(3)ON
1220 PLAY"V15T200S8M5000L8","V15T200S9M3000L8","V15T200S1M5000L8"
1230 INTERVALON:ONINTERVAL=225GOSUB3030
1240 GOSUB3030
1250 ONSTICK(0)ORSTICK(1)GOSUB1430,1430,1440,1440,1450,1450,1460,1460
1260 IFSTICK(0)ORSTICK(1)>0THENZ%=Z%+3ANDZ%<1
1270 X1=X
1280 IF(PEEK(&HFBE0)AND(&H4))=0ANDSTICK(0)=5THENGOSUB1700
1290 IFSTRIG(3)=-1ANDSTICK(1)=5THENGOSUB1700
1300 IF(PEEK(&HFBE0)AND(&H4))=0THENGOSUB1840
1310 IFF1=1THENSTRIG(0)OFF:STRIG(1)OFF:GOSUB2030ELSEIFF1=2THENSTRIG(0)OFF:STRIG(1)OFF:GOSUB2060
1320 PUTSPRITE1,(X%,Y%),10,SP%+Z%:PUTSPRITE2,(X%,Y%),6,SP%+1+Z%:PUTSPRITE3,(X%,Y%),4,SP%+2+Z%
1330 IFX%>240THENX%=X%-8
1340 IFX%<8THENX%=X%+8
1350 IFSC=>BOTHENBO=BO+500:GOSUB2260
1360 IFSC=>HITHENHI=SC:LOCATE11,1:PRINTHI*100
1370 IFF1=0THENIFVPEEK(6144+INT(INT((Y%+24)/8)*32+((X%)/8)))=32THENGOSUB1640
1380 IFDM=4THENGOSUB2350
1390 IFX=8ANDY=7THENGOTO2390
1400 TI=TI-10:LOCATE16,2:PRINTUSING"####";TI:IFTI=0THENTI=3000:GOSUB2140
1410 GOTO 1250
1420 REM ANIMAZIONE 1UP
1430 GOSUB1470:IFUP%=136ANDF1=0THENPS%=1:STRIG(0)OFF:STRIG(1)OFF:PUTSPRITE4,,0,0:SP%=13:Y%=Y%-8:RETURNELSEPS%=0:STRIG(0)ON:STRIG(1)ON:RETURN
1440 IFPS%=0THENSP%=1:X%=X%+8:S=0:GOSUB1840:GOSUB1500:RETURNELSERETURN
1450 GOSUB1480:IFDW%=136ANDF1=0THENPS%=1:STRIG(0)OFF:STRIG(1)OFF:PUTSPRITE4,,0,0:SP%=13:Y%=Y%+8:RETURNELSEPS%=0:STRIG(0)ON:STRIG(1)ON:RETURN
1460 IFPS%=0THENSP%=7:X%=X%-8:S=4:GOSUB1840:GOSUB1560:RETURNELSERETURN
1470 UP%=VPEEK(6144+INT(INT((Y%+1)/8)*32+((X%)/8))):RETURN
1480 DW%=VPEEK(6144+INT(INT((Y%+17)/8)*32+((X%)/8))):RETURN
1490 REM COLLIDE WALL
1500 Z1=(6144+INT(INT((Y%+8)/8)*32+((X%+8)/8)))
1510 Z2=VPEEK(6144+INT(INT((Y%+8)/8)*32+((X%+8)/8)))
1520 IFZ2=128THENX%=X1:F1=0:RETURN
1530 IFZ2=144THENX%=X1:F1=0:RETURN
1540 IFZ2=176THENGOSUB2140
1550 IFZ2=180THENGOSUB2830:VPOKEZ1,32:VPOKEZ1+1,32:VPOKEZ1+32,32:VPOKEZ1+33,32:SC=SC+1:DM=DM+1:LOCATE0,1:PRINTSC*100:RETURN
1560 Z1=(6144+INT(INT((Y%+8)/8)*32+((X%)/8)))
1570 Z2=VPEEK(6144+INT(INT((Y%+8)/8)*32+((X%)/8)))
1580 IFZ2=128THENX%=X1:F1=0:RETURN
1590 IFZ2=144THENX%=X1:F1=0:RETURN
1600 IFZ2=176THENGOSUB2140
1610 IFZ2=180THENGOSUB2830:VPOKEZ1,32:VPOKEZ1+1,32:VPOKEZ1+32,32:VPOKEZ1+33,32:SC=SC+1:DM=DM+1:LOCATE0,1:PRINTSC*100:RETURN
1620 RETURN
1630 REM CADUTA 1UP
1640 STRIG(0)OFF:STRIG(1)OFF:IFVPEEK(6144+INT(INT((Y+24)/8)*32+((X)/8)))=32THENY=Y+8
1650 PUTSPRITE1,(X%,Y%),10,SP%+Z%:PUTSPRITE2,(X%,Y%),6,SP%+1+Z%:PUTSPRITE3,(X%,Y%),4,SP%+2+Z%:PUTSPRITE4,,0,0
1660 IFUM=1THENPUTSPRITE4,(X%,Y%-16),11,22
1670 IFVPEEK(6144+INT(INT((Y+24)/8)*32+((X)/8)))<>32THENPUTSPRITE4,,0,0:IFUM=0THENGOSUB2140:UM=0:IT=0:STRIG(0)ON:STRIG(1)ON:RETURNELSEUM=0:IT=0:STRIG(0)ON:STRIG(1)ON:RETURN
1680 GOTO1640
1690 REM CHOISE ITEM
1700 IT=0:XT=160:YT=0:PUTSPRITE7,(XT,YT),15,23:GOSUB2960
1710 JK=STICK(0)ORSTICK(1)
1720 IFJK=3ANDIT<5THENXT=XT+16:GOSUB2870:IT=IT+1:IFIT>6THENIT=6
1730 IFJK=7ANDIT>0THENXT=XT-16:GOSUB2870:IT=IT-1:IFIT<0THENIT=1
1740 IF(PEEK(&HFBE0)AND(&H4))=0THENPUTSPRITE7,,0,0:GOSUB2970:GOSUB1780:RETURN
1750 PUTSPRITE7,(XT,YT),15,23
1760 GOTO1710
1770 REM TAKE TOOL
1780 IFIT=0THENH1=0:UM=0:PUTSPRITE4,,0,0:GOSUB2830:RETURN
1790 IFIT=3THENGOSUB2920:H1=1
1800 IFIT=2THENGOSUB2920:UM=1:H1=0:PUTSPRITE4,,0,0:RETURN
1810 IFIT=1THENGOSUB2920:H1=2
1820 IFIT=4THENGOSUB2920:H1=3
1830 IFIT=5THENGOSUB2830:RETURN
1840 IFH1=1ANDS=0THENH2=1:PUTSPRITE4,(X%+8,Y%),14,19:GOTO1890ELSEIFH1=2ANDS=0THENPUTSPRITE4,(X%+10,Y%),12,21:GOTO1890
1850 IFH1=1ANDS=4THENH2=1:PUTSPRITE4,(X%-8,Y%),14,20:GOTO1880ELSEIFH1=2ANDS=4THENPUTSPRITE4,(X%-10,Y%),12,21:GOTO1880
1860 IFH1=3ANDS=0THENPUTSPRITE4,(X%+8,Y%),4,24:IF(PEEK(&HFBE0)AND(&H4))=0THENGOSUB1940:H1=0:RETURN
1870 IFH1=3ANDS=4THENPUTSPRITE4,(X%-8,Y%),4,24:IF(PEEK(&HFBE0)AND(&H4))=0THENGOSUB1940:H1=0:RETURN
1880 IFH2=1ANDS=4AND(PEEK(&HFBE0)AND(&H4))=0THENMX=X%:MY=Y%:Z6=(6144+INT(INT((MY+8)/8)*32+((MX)/8))):Z7=VPEEK(6144+INT(INT((MY+8)/8)*32+((MX)/8))):IFZ7=144THENGOSUB2990:PUTSPRITE4,,0,0:H2=0:H1=0:IT=0:VPOKEZ6,32:VPOKEZ6+32,32
1890 IFH2=1ANDS=0AND(PEEK(&HFBE0)AND(&H4))=0THENMX=X%:MY=Y%:Z6=(6144+INT(INT((MY+8)/8)*32+((MX+8)/8))):Z7=VPEEK(6144+INT(INT((MY+8)/8)*32+((MX+8)/8))):IFZ7=144THENGOSUB2990:PUTSPRITE4,,0,0:H2=0:H1=0:IT=0:VPOKEZ6,32:VPOKEZ6+32,32
1900 IFH1=2ANDS=4ANDY%<167AND(PEEK(&HFBE0)AND(&H4))=0THENTX=X%:TY=Y%:Z8=(6144+INT(INT((TY+24)/8)*32+((TX-16)/8))):Z9=VPEEK(6144+INT(INT((TY+24)/8)*32+((TX-16)/8))):IFZ9=128ORZ9=144THENGOSUB2990:H1=0:IT=0:PUTSPRITE4,,0,0:VPOKEZ8,32:VPOKEZ8+1,32
1910 IFH1=2ANDS=0ANDY%<167AND(PEEK(&HFBE0)AND(&H4))=0THENTX=X%:TY=Y%:Z8=(6144+INT(INT((TY+24)/8)*32+((TX+16)/8))):Z9=VPEEK(6144+INT(INT((TY+24)/8)*32+((TX+16)/8))):IFZ9=128ORZ9=144THENGOSUB2990:H1=0:IT=0:PUTSPRITE4,,0,0:VPOKEZ8,32:VPOKEZ8+1,32
1920 RETURN
1930 REM POOL CHIAVE INGLESE
1940 WX=X%:WY=Y%
1950 IFS=0THENWX=WX+8:PUTSPRITE4,(WX,WY),4,24:Z4=VPEEK(6144+INT(INT((WY+8)/8)*32+((WX)/8))):Z5=(6144+INT(INT((WY+8)/8)*32+((WX)/8))):IFZ4=176THENGOSUB1980:RETURNELSEIFWX>256THENPUTSPRITE4,,0,0:RETURNELSE1950
1960 IFS=4THENWX=WX-8:PUTSPRITE4,(WX,WY),4,24:Z4=VPEEK(6144+INT(INT((WY+8)/8)*32+((WX)/8))):Z5=(6144+INT(INT((WY+8)/8)*32+((WX)/8))):IFZ4=176THENGOSUB1980:RETURNELSEIFWX<0THENPUTSPRITE4,,0,0:RETURNELSE1960
1970 REM DEATH MOUSE
1980 PUTSPRITE4,,0,0:VPOKEZ5,32:VPOKEZ5+1,32:VPOKEZ5+32,32:VPOKEZ5+33,32:GOSUB2850:SC=SC+3:LOCATE0,1:PRINTSC*100:RETURN
1990 REM JUMP 1UP
2000 IFS=0ANDVPEEK(6144+INT(INT((Y%+8)/8)*32+((X%+8)/8)))=144THENX%=X1:F1=0:STRIG(0)ON:STRIG(1)ON:RETURN
2010 IFS=4ANDVPEEK(6144+INT(INT((Y%+8)/8)*32+((X%)/8)))=144THENX%=X1:F1=0:STRIG(0)ON:STRIG(1)ON:RETURN
2020 F1=1:STRIG(0)ON:STRIG(1)ON:GOSUB2920
2030 IFS=0THENGOSUB2100:Y%=Y%-4:YJ=YJ+1ANDYJ<4:IFYJ=4THENYJ=0:F1=2:RETURNELSERETURN
2040 IFS=4THENGOSUB2100:Y%=Y%-4:YJ=YJ+1ANDYJ<4:IFYJ=4THENYJ=0:F1=2:RETURNELSERETURN
2050 RETURN
2060 IFS=0THENGOSUB2100:Y%=Y%+4:YJ=YJ+1ANDYJ<4:IFYJ=4THENYJ=0:F1=0:STRIG(0)ON:STRIG(1)ON:RETURNELSERETURN
2070 IFS=4THENGOSUB2100:Y%=Y%+4:YJ=YJ+1ANDYJ<4:IFYJ=4THENYJ=0:F1=0:STRIG(0)ON:STRIG(1)ON:RETURNELSERETURN
2080 RETURN
2090 REM CHECK PUT TOOL JUMP
2100 IFIT>0ANDS=0THENPUTSPRITE4,(X%+12,Y%+4):RETURN
2110 IFIT>0ANDS=4THENPUTSPRITE4,(X%-12,Y%+4):RETURN
2120 RETURN
2130 REM MORTE 1UP
2140 INTERVALOFF
2150 PUTSPRITE1,(X%,Y%),10,25:PUTSPRITE2,(X%,Y%),6,26:PUTSPRITE3,(X%,Y%),4,27
2160 GOSUB2880:PLAY"V15T200O4L4FFFC+C+C+O3AAAAFF","V15T200O4L4C+C+C+O3B-B-B-FFFDDD","T200V10O4L8CCCFE-E-E-E-E-E-E-FE-E-E-FCCCFE-E-E-EV9GV8GV7GV6GV5GV4GV3GV2GV1GV0G"
2170 FORI=0TO3000:NEXTI
2180 LI=LI-1:IF LI<0 THEN 2320
2190 LF=LI:IFLI>12THENLF=12
2200 IFLI>12THEN2210ELSELOCATE 20+LF,2:PRINTCHR$(32)
2210 UM=0:H1=0:IT=0:SP%=1:X%=176:Y%=167:F1=0:PS%=0
2220 INTERVALON
2230 PLAY"V15T200S8M5000L8","V15T200S9M3000L8","V15T200S1M5000L8"
2240 RETURN1250
2250 REM BONUS 1UP
2260 GOSUB2940
2270 LI=LI+1
2280 LF=LI:IFLF>12THENLF=12
2290 LOCATE 19+LF,2:PRINTCHR$(124)
2300 RETURN
2310 REM GAME OVER
2320 LOCATE 10,10:PRINT" GAME OVER "
2330 FORI=0TO4000:NEXTI:GOTO870
2340 REM PUT SCALA
2350 FORA=2TO7:LOCATE1,A:PRINTCHR$(136)+CHR$(137):NEXT:RETURN
2360 FORI=1TO3000:NEXTI
2370 GO=1:F1=0:PS%=0:GOTO90
2380 REM ROUND CLEAR
2390 INTERVALOFF:LOCATE10,10:PRINT"STAGE CLEAR!"
2400 LV=LV+1:ST=ST+1:GOSUB2950:GOSUB2820:FORI=0TO1000:NEXTI:FORA=0TO4:PUTSPRITEA,,0,0:NEXTA
2410 LOCATE5,14:PRINT"BONUS TIME";TI;"*10 PTS":TI=TI/10:BT=INT(TI)
2420 LOCATE5,16:PRINT"BONUS SCORE";BT*100:SC=SC+BT:LOCATE0,1:PRINTSC*100:GOSUB2950
2430 FORI=0TO3000:NEXTI:GOSUB2820
2440 UM=0:H1=0:IT=0:SP%=1:F1=0:PS%=0:TI=3000:BT=0
2450 FORA=0TO31:PUTSPRITEA,,,0:NEXTA
2460 GOTO1020
2470 REM REM NAMCO LETTERS
2480 RESTORE2500:FOR I=256TO767:READA$
2490 VPOKEI,VAL("&H"+A$):NEXTI:RETURN
2500 DATA 00,00,00,00,00,00,00,00,18,3C,3C,3C,18,00,18,00
2510 DATA 6C,6C,48,00,00,00,00,00,6C,FE,6C,6C,6C,FE,6C,00
2520 DATA 18,3E,58,3C,1A,7C,18,00,00,C6,CC,18,30,66,C6,00
2530 DATA 70,C8,C8,70,9A,8C,76,00,18,18,10,00,00,00,00,00
2540 DATA 0C,18,30,30,30,18,0C,00,30,18,0C,0C,0C,18,30,00
2550 DATA 00,18,5A,3C,3C,5A,18,00,00,18,18,7E,18,18,00,00
2560 DATA 00,00,00,00,18,18,08,10,00,00,00,7C,00,00,00,00
2570 DATA 00,00,00,00,00,18,18,00,00,06,0C,18,30,60,C0,00
2580 DATA 38,4C,C6,C6,C6,64,38,00,18,38,18,18,18,18,7E,00
2590 DATA 7C,C6,0E,3C,78,E0,FE,00,7E,0C,18,3C,06,C6,7C,00
2600 DATA 1C,3C,6C,CC,FE,0C,0C,00,FC,C0,FC,06,06,C6,7C,00
2610 DATA 3C,60,C0,FC,C6,C6,7C,00,FE,C6,0C,18,30,30,30,00
2620 DATA 7C,C6,C6,7C,C6,C6,7C,00,7C,C6,C6,7E,06,0C,78,00
2630 DATA 00,18,18,00,18,18,00,00,00,18,18,00,18,18,08,10
2640 DATA 0C,18,30,60,30,18,0C,00,00,00,7C,00,7C,00,00,00
2650 DATA 60,30,18,0C,18,30,60,00,7C,C6,06,1C,30,00,30,00
2660 DATA 3C,42,99,A1,A1,99,42,3C,38,6C,C6,C6,FE,C6,C6,00
2670 DATA FC,C6,C6,FC,C6,C6,FC,00,3C,66,C0,C0,C0,66,3C,00
2680 DATA F8,CC,C6,C6,C6,CC,F8,00,FE,C0,C0,F8,C0,C0,FE,00
2690 DATA FE,C0,C0,F8,C0,C0,C0,00,3E,60,C0,CE,C6,66,3E,00
2700 DATA C6,C6,C6,FE,C6,C6,C6,00,7E,18,18,18,18,18,7E,00
2710 DATA 06,06,06,06,06,C6,7C,00,C6,CC,D8,F0,F8,DC,CE,00
2720 DATA C0,C0,C0,C0,C0,C0,FE,00,C6,EE,FE,FE,D6,C6,C6,00
2730 DATA C6,E6,F6,FE,DE,CE,C6,00,7C,C6,C6,C6,C6,C6,7C,00
2740 DATA FC,C6,C6,C6,FC,C0,C0,00,7C,C6,C6,C6,DE,CC,76,00
2750 DATA FC,C6,C6,CE,F8,DC,CE,00,78,CC,C0,7C,06,C6,7C,00
2760 DATA 7E,18,18,18,18,18,18,00,C6,C6,C6,C6,C6,C6,7C,00
2770 DATA C6,C6,C6,EE,7C,38,10,00,C6,C6,D6,FE,FE,6C,44,00
2780 DATA C6,EE,7C,38,7C,EE,C6,00,66,66,66,3C,18,18,18,00
2790 DATA FE,0E,1C,38,70,E0,FE,00,F8,C0,C0,C0,C0,C0,F8,00
2800 DATA 00,80,40,20,10,08,00,00,F8,18,18,18,18,18,F8,00
2810 DATA 00,00,20,50,88,00,00,00,00,00,00,00,00,00,00,F8
2820 SOUND8,15:FORI=50TO165STEP8:SOUND0,I:SOUND1,178-I:FORE=1TORND(9)*100:NEXTE:NEXTI:SOUND8,0:RETURN
2830 SOUND1,2:FOR I=255 TO 50 STEP -8:SOUND8,13:SOUND0,I:NEXT:FOR O=10 TO 0 STEP -8:FOR I=50 TO 0 STEP -9:SOUND0,I:NEXT:SOUND8,O:NEXT:SOUND0,0:SOUND1,0
2840 RETURN
2850 FORQ=250TO50STEP-100:FORW=QTOQ-50STEP-1:SOUND8,13:SOUND0,W:NEXTW:NEXTQ:SOUND0,0
2860 RETURN
2870 FORQ=250TO0STEP1:FORW=QTOQ-100STEP-10:SOUND8,13:SOUND0,W:NEXTW:NEXTQ:SOUND0,0:RETURN
2880 FOR I=0 TO 200 STEP 2:FOR O=I TO I+50STEP50:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
2890 RETURN
2900 FOR I=250 TO 50 STEP -80:FOR O=I TO I-80 STEP -20:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
2910 RETURN
2920 FOR I=250 TO 50 STEP -60:FOR O=I TO I-50 STEP -8:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
2930 RETURN
2940 FORLC=1TO5:FOR I=0 TO 250 STEP25:FOR O=I TO I+250STEP-1:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0:NEXT:RETURN
2950 FOR I=0 TO 200 STEP 4:FOR O=I TO I+50STEP10:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0:RETURN
2960 FOR I=0 TO 200 STEP30:FOR O=I TO I+70STEP10:SOUND8,13:SOUND0,O:SOUND1,O:NEXT:NEXT:SOUND0,0:SOUND1,0:RETURN
2970 FOR I=0 TO 200 STEP30:FOR O=I TO I+70STEP10:SOUND8,13:SOUND1,O:SOUND2,O:NEXT:NEXT:SOUND0,0:SOUND1,0:SOUND2,0:RETURN
2980 FOR I=0 TO 130 STEP10:FOR O=I TO I-70STEP1:SOUND8,13:SOUND1,O:SOUND2,O:NEXT:NEXT:SOUND0,0:SOUND1,0:SOUND2,0:RETURN
2990 SOUND7,7:FORI=0TO31STEP2:SOUND6,I:FORJ=1TO15:SOUND8,J:NEXTJ:NEXTI:SOUND8,0:SOUND7,0:SOUND6,0:J=0:I=0:BEEP
3000 PLAY"V15T200S8M5000L8","V15T200S9M3000L8","V15T200S1M5000L8"
3010 RETURN
3020 REM ROUTINE MUSIC!
3030 MP=MP+1:ON MP GOSUB 3040,3050,3060,3070,3080
3040 PLAY"O3AAGAFED4.B-B-4","O4AAGAFED4.B-B-4","O6AAGAFED4.B-B-4":RETURN
3050 PLAY"B-2AB-O4C2O3FFF4.EF4G2.G2","B-2AB-O5C2O4FFF4.EF4G2.G2","B-2AB-O5C2O6FFF4.EF4G2.G2":RETURN
3060 PLAY"CCFGA2FED4.B-8B-4","CCFGA2FED4.B-8B-4","CCFGA2FED4.B-8B4":RETURN
3070 PLAY"B-2B-B-A4.GF4E4.FG4F2","B-2B-B-A4.GF4E4.FG4F2","B-2B-B-A4.GF4E4.FG4F2":RETURN
3080 MP=0:RETURN
3090 REM LEVEL 2
3100 PRINT "€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€";
3110 PRINT "                        ";
3120 PRINT "                        ";
3130 PRINT "        °²´µ´µ     °²       ";
3140 PRINT "     ˆ‰ ±³¶·¶·     ±³ ˆ‰    ";
3150 PRINT "€€€€€ˆ‰€€€€€€€€€€€€    €€€ˆ‰€€  ";
3160 PRINT "     ˆ‰                   ˆ‰ €  ";
3170 PRINT "     ˆ‰                   ˆ‰ €  ";
3180 PRINT "  °² ˆ‰                 °²ˆ‰ €  ";
3190 PRINT "  ±³ ˆ‰   ˆ‰       ˆ‰   ±³ˆ‰ €  ";
3200 PRINT "€€€€€€€€€€ˆ‰€€   €€ˆ‰€€€€€€€€€  ";
3210 PRINT "          ˆ‰       ˆ‰      €  ";
3220 PRINT "          ˆ‰       ˆ‰      €  ";
3230 PRINT "  °²      ˆ‰ °²    ˆ‰   °² €  ";
3240 PRINT "  ±³ ˆ‰   ˆ‰ ±³    ˆ‰ ˆ‰±³ €  ";
3250 PRINT "€€€€€ˆ‰€€€€€€€€€   €€€ˆ‰€€€€€€  ";
3260 PRINT "     ˆ‰         ˆ‰    ";
3270 PRINT "     ˆ‰         ˆ‰    ";
3280 PRINT "     ˆ‰   ´µ      ˆ‰ ´µ ";
3290 PRINT "     ˆ‰   ¶·      ˆ‰ ¶· ";
3300 PRINT "€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€";:VPOKE6911,128
3310 RETURN
3320 REM STAGE 2
3330 PRINT "€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€";
3340 PRINT "                        ";
3350 PRINT "                        ";
3360 PRINT "        °²´µ´µ     °²       ";
3370 PRINT "     ˆ‰ ±³¶·¶·     ±³ ˆ‰    ";
3380 PRINT "€€€€€ˆ‰€€€€€€€€€€€€    €€€ˆ‰€€  ";
3390 PRINT "     ˆ‰                   ˆ‰ €  ";
3400 PRINT "     ˆ‰                   ˆ‰ €  ";
3410 PRINT "  °² ˆ‰                 °²ˆ‰ €  ";
3420 PRINT "  ±³ ˆ‰   ˆ‰       ˆ‰   ±³ˆ‰ €  ";
3430 PRINT "€€€€€€€€€€ˆ‰€€   €€ˆ‰€€€€€€€€€  ";
3440 PRINT "          ˆ‰       ˆ‰      €  ";
3450 PRINT "          ˆ‰       ˆ‰      €  ";
3460 PRINT "  °²      ˆ‰ °²    ˆ‰   °² €  ";
3470 PRINT "  ±³ ˆ‰   ˆ‰ ±³    ˆ‰ ˆ‰±³ €  ";
3480 PRINT "€€€€€ˆ‰€€€€€€€€€   €€€ˆ‰€€€€€€  ";
3490 PRINT "     ˆ‰         ˆ‰    ";
3500 PRINT "     ˆ‰         ˆ‰    ";
3510 PRINT "     ˆ‰   ´µ      ˆ‰ ´µ ";
3520 PRINT "     ˆ‰   ¶·      ˆ‰ ¶· ";
3530 PRINT "€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€";:VPOKE6911,128
3540 RETURN

 

ログイン/登録して投稿

By gamecast

Expert (101)

gamecast さんの画像

31-08-2011, 21:54

THEN!!! PEOPLE!!! OF MSX!.....

WHY DO YOU DON'T ANSWER ???
If you have to put the white flag?? ^_^

If you want play game free, then I ask your help for me!!
it rights!! =_= !?!?

I hope of to be was clear in my little speech...

Look, if you do not answer after I get angry!

See you to soon....
^_^
AG.

By pitpan

Prophet (3155)

pitpan さんの画像

31-08-2011, 23:03

Please, please, flood us with more BASIC listings. I've been waiting all my life for this moment LOL!

By hbarcellos

Hero (642)

hbarcellos さんの画像

31-08-2011, 23:15

Maybe we really should FIX the code for him and re-post here.
Using some cool asm routines that turn on and off some hw MOTOR/k7 switches several times per second, which should improve the enemies movement.

By lionelritchie

Champion (439)

lionelritchie さんの画像

31-08-2011, 23:17

werent you banned for disliking gay hitlers?

By boblet

Master (187)

boblet さんの画像

01-09-2011, 11:15

I'm going to steal this game concept and sell it on xbox live and make like $30

then live like a king on the proceeds

By hbarcellos

Hero (642)

hbarcellos さんの画像

01-09-2011, 15:50

Let's see who will approve first: Microsoft or Sony.
A friend of mine recompiled gamecast's art for the upcoming PSVita, and he said that he'll live like a queen on the proceeds.