REM CHAR/CELL/PAL REM 1,2,0 REM 2,4,2 REM 3,6 0 REM 4,8,2 REM 5,10,3 REM 6,34,3 REM 7,36,0 REM 8,38,2 REM 9,40,4 REM 10,42,2 TOUCHSCREEN REM WAS8BIT DIM GLOBAL PCHIP(10),NCHIP(10) FOR I=1 TO 10 READ NCHIP(I) READ PCHIP(I) NEXT I DATA 2,0,4,2,6,0,8,2,10,3 DATA 34,3,36,0,38,2,40,4,42,2 SPRITE 1,,, SPRITE 1 SIZE 1 IDRAG=0 BG COPY 0,0,20,16 TO 0,0 REM GRAPHICS: REM DRGONZO: GHOST, KOOPA, GOOMBA REM TIMO: MARIO REM OTHERS: WAS8BIT DO IF TOUCH THEN IF IDRAG=0 THEN TX=(TOUCH.X-4)\16 TY=(TOUCH.Y-4)\16 TRACE TX,TY CHIP=0 IF TY=0 THEN CALL CHIPSPRITE(TX+1) IDRAG=1 PLAY 1,90,1 SOUND 1 ELSE IDRAG=-1 END IF ELSE IF IDRAG=1 THEN SPRITE 0,TOUCH.X-4,TOUCH.Y-4, SPRITE 1,TOUCH.X-8,TOUCH.Y-8, END IF ELSE IF IDRAG=1 THEN TX=(TOUCH.X-4)\16 TY=(TOUCH.Y-4)\16 CALL CHIPSPRITE(0) CALL PUSH(TX,TY,CHIP) IDRAG=0 PLAY 1,70,1 SOUND 1 ELSE IF IDRAG=-1 THEN IDRAG=0 END IF END IF WAIT VBL LOOP SUB CHIPSPRITE(C) IF C=0 THEN SPRITE OFF 1 ELSE P=PCHIP(C) N=NCHIP(C) SPRITE 1,,,N SPRITE 1 PAL P END IF END SUB SUB PUSH(TX,TY,C) END SUB SUB DRAWCHIP(TX,TY,C) P=PCHIP(C) N=NCHIP(C) IF C=0 THEN BG 1 PAL 0 CELL TX,TY,2 BG 0 PAL P CELL TX*2,TY*2,0 ELSE BG 1 PAL P CELL TX,TY,4 BG 0 PAL P CELL TX*2,TY*2,208+N END IF END SUB #1:MAIN PALETTES 3F340C000038200000383400003F3C00 003F2A00003F1F3B00002A15003F2A16 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 0718204040808080071921735F8C8888 E018040202010101E09884CEFA311111 071921735F8C8888071E3E4C60F3F7F7 E09884CEFA311111E0787C3206CFEFEF 0123777FFFFF7F7F01225448808C5240 80C4EEFEFFFFFEFE80442A1201619202 00000001020408100000000102040810 1E678301010242841E7FDF5F5F423E04 0102020478828242010303077FFFFF7F 008080403C828284008080C0FCFEFEFC 47982040408080804798204040808080 E219040202010101E219040202010101 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000FFFFFFFF0 0000000FFFFFFFF00000000000000000 8080FFF26220301F98FCFFF26220301F 0101FF4F46040CF8193FFF4F46040CF8 98FCFFF26220301FE7C3FFF26220301F 193FFF4F46040CF8E7C3FF4F46040CF8 3F1F073A4682837C2018073B7FFFFF7C FCF8E0784482827C0418E0F8FCFEFE7C 11222428317EE0C010202020215EA0C0 08102040800000000810204080000000 20102020414698E03F1F3F3F7F7EF8E0 0810080804C4320EF8F0F8F8FCFC3E0E 80808040402098478080804040209847 01010102020419E201010102020419E2 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000077F404040404040 0000000000000000E0FE020202020202 030C101120202020030C13162D2D2D2D C030088844444444C030F878FCFCFCFC 183C7E6FEF8FFFFF18244665E4808199 7C92A945834529117CFEFFFFFFFFFFFF 0000000F1F3F3F0F00070F0C1630300C 0E1E0EFEFEFCFCF800C8F09E0644FC18 00071F3F7F7FFFFF0007182040549480 00C0F0F8FCFCFEFE00C0300804040242 000000001804070403070F1F3F7777F5 000000001820E020C0E0F0F8FCEEEEAF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000004040404040407F07 0000000000000000020202020202FEE0 2020202011100C032D2D2F2F1F1F0F03 44444444880830C0FCFCFCFCF8F8F0C0 EFCF1F3F3F1F3F3FAACA12252F10203F 11AAFEFFFFFEBF1FFFFEFE0101FEA11F 3E3E3C1C666360403F3723077F7F7E40 B0A0820606860000F0F072FEFEFE0000 D5C1C1606A3F1F03AABEBE5F55201C03 FEFFFFFFFEFCF0E082916101020C10E0 0000070F0F1F1F0FF1FF780000181C0E 0000E0F0FCFEFEFC8FFF1E000C3E7E7C #3:MAIN BG 00001410020003000402050206000700 080209020A030B032203230324002500 26022702280429042A022B0212001300 1402150216001700180219021A031B03 32033303340035003602370238043904 3A023B02100610061006100610061006 10061006100610061006100610061006 10061006100610061006100610061006 10061006100610061006100610061006 10061006100610061006100610061006 100610060C050D050C050D050C050D05 0C050D050C050D050C050D050C050D05 0C050D050C050D050C050D051C051D05 1C051D051C051D051C051D051C051D05 1C051D051C051D051C051D051C051D05 1C051D050C050D050C050D050C050D05 0C050D050C050D050C050D050C050D05 0C050D050C050D050C050D051C051D05 1C051D051C051D051C051D051C051D05 1C051D051C051D051C051D051C051D05 1C051D05200521052005210520052105 20052105200521052005210520052105 20052105200521052005210530053105 30053105300531053005310530053105 30053105300531053005310530053105 30053105200521052005210520052105 20052105200521052005210520052105 20052105200521052005210530053105 30053105300531053005310530053105 30053105300531053005310530053105 30053105200521052005210520052105 20052105200521052005210520052105 20052105200521052005210530053105 30053105300531053005310530053105 30053105300531053005310530053105 30053105100610061006100610061006 10061006100610061006100610061006 10061006100610061006100610061006 10061006100610061006100610061006 10061006100610061006100610061006 10061006