REM PICHU (16)= PIKACHU (32)= RAICHU.... YELLOW REM CHARMANDER > CHARMELEON > CHARIZARD... RED REM SQUIRTLE > WARTORTLE > BLASTOISE.... BLUE REM BULBASAUR > IVYSAUR > VENUSAUR.... GREEN REM #'S.. 1-3, 1-6, 1-9 REM SOLITAIRE CARDS REM YATZEE DICE REM MAJONG MATCH REM COIN MATCH SCROLL 0,-4,-4 CELL SIZE 1,1 BG 1 BG FILL 0,0 TO 9,7 CHAR 2 GLOBAL CHIPMAX,CHIP CHIPMAX=99 DIM GLOBAL STACK(9,7,CHIPMAX),PCHIP(CHIPMAX),NCHIP(CHIPMAX) REM CHIP#0=NO CHIP RANDOMIZE TIMER I=0 FOR P=0 TO 3 FOR N=1 TO 9 INC I PCHIP(I)=P NCHIP(I)=N NEXT N NEXT P FOR I=1 TO 36 X=RND(9) Y=RND(7) CALL PUSH(X,Y,I) PLAY 0,90,1 WAIT 5 NEXT I TOUCHSCREEN REM WAS8BIT SPRITE 1,,, SPRITE 1 SIZE 1 SPRITE 0,,, IDRAG=0 DO IF TOUCH THEN IF IDRAG=0 THEN TX=(TOUCH.X-4)\16 TY=(TOUCH.Y-4)\16 CHIP=0 CALL POP(TX,TY,CHIP) IF CHIP>0 THEN CALL CHIPSPRITE(CHIP) IDRAG=1 PLAY 0,90,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 0,70,1 ELSE IF IDRAG=-1 THEN IDRAG=0 END IF END IF WAIT VBL LOOP SUB CHIPSPRITE(C) IF C=0 THEN SPRITE OFF 0 SPRITE OFF 1 ELSE P=PCHIP(C) N=NCHIP(C) SPRITE 0,,,208+N SPRITE 0 PAL P SPRITE 1,,,4 SPRITE 1 PAL P END IF 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 SUB POP(X,Y,COUT) IF STACK(X,Y,0)>0 THEN COUT=STACK(X,Y,0) FOR I=0 TO CHIPMAX-1 STACK(X,Y,I)=STACK(X,Y,I+1) NEXT I CALL DRAWCHIP(X,Y,STACK(X,Y,0)) END IF END SUB SUB PUSH(X,Y,CIN) FOR I=CHIPMAX TO 1 STEP -1 STACK(X,Y,I)=STACK(X,Y,I-1) NEXT I STACK(X,Y,0)=CIN CALL DRAWCHIP(X,Y,CIN) PLAY 0,90,1 SOUND 0 END SUB SUB ROLL(X,Y) IF STACK(X,Y,1)>0 THEN FOR I=0 TO 100 IF STACK(X,Y,I)=0 THEN TOT=I-1 I=100 END IF NEXT I CARD=STACK(X,Y,TOT) STACK(X,Y,TOT)=0 CALL PUSH(X,Y,CARD) END IF END SUB #1:MAIN PALETTES 1500003C003030380004040C0024240B 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000510004000800080 40100400020001000000000000000000 00030F1F3F3F7F7F071F3F7F7FFFFFFF 00C0F0F8FCFCFEFEE0F8FCFEFEFFFFFF 00030C1028244040071F3C7068E4C0C0 00C0300814240202E0F83C0E16270303 00000000040404070510004C08880888 40100400222021E00000003010101010 00000007070404040510004808880888 401004C0E27031300000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00800040002008020000000000000000 000000000000000001000100020008A0 7F7F3F3F1F0F0300FFFFFF7F7F3F1F07 FEFEFCFCF8F0C000FFFFFFFEFEFCF8E0 40402428100C0300C0C0E468703C1F07 020224140830C000030327160E3CF8E0 078404400C2008020808080C00000000 E02020003000000011101130020008A0 0484044700200802080808080F000000 303060C00000000001001120C20008A0