REM BATTLE CARDS REM CARD ART BY WAS8BIT REM PROGRAM BY WASHAW GAMES REM NUMBERS 1-9 REM ACTION CARDS A B REM A= ALL PLAYERS LOSE A CARD REM B= BATTLE MODE (SAME AS A TIE) RANDOMIZE TIMER REM NUMBER FOR EACH TYPE OF CARD MAXCARDS=10 DECKMAX=11*MAXCARDS REM PLAYER, COMPUTER, TABLE DIM DECK(DECKMAX),PHAND(DECKMAX),CHAND(DECKMAX),PTABLE(DECKMAX),CTABLE(DECKMAX) DIM CARDTYPE$(11) FOR I=1 TO 11 READ CARDTYPE$(I) NEXT I DATA "1","2","3","4","5","6","7","8","9","A","B" DIM CARDSHOW(11) FOR I=1 TO 11 READ CARDSHOW(I) NEXT I DATA 4,8,12,64,68,72,76,128,132,136,140 IDECK=0 FOR II=1 TO MAXCARDS FOR I=1 TO 11 IDECK=IDECK+1 DECK(IDECK)=I NEXT I NEXT II FOR I=1 TO DECKMAX*10 C1=INT(RND*DECKMAX)+1 C2=INT(RND*DECKMAX)+1 SWAP DECK(C1),DECK(C2) NEXT I IDEAL=1 IDECK=DECKMAX WHILE IDECK>0 PHAND(IDEAL)=DECK(IDECK) IDECK=IDECK-1 CHAND(IDEAL)=DECK(IDECK) IDECK=IDECK-1 IDEAL=IDEAL+1 WEND IDEAL=IDEAL-1 IPHAND=IDEAL ICHAND=IDEAL IPTABLE=0 ICTABLE=0 GOSUB SHOWCARDS FOR I=0 TO 16 SPRITE I,,,1 SPRITE.A I,(1,,,,) NEXT I SPRITE 20,,,32 SPRITE.A 20,(1,,,1,1) DRAW: GOSUB PDRAW GOSUB CDRAW WAIT 30 IF PSHOW=CSHOW AND PSHOW<10 THEN GOTO DRAW IF PSHOW=10 THEN PLAY 1,70,10 SOUND 2 FOR FL=1 TO 7 GOSUB FLASHCARDS NEXT FL IPHAND=IPHAND-1 ICHAND=ICHAND-1 GOSUB SHOWCARDS END IF IF CSHOW=10 THEN PLAY 2,75,10 SOUND 2 FOR FL=1 TO 7 GOSUB FLASHCARDS NEXT FL IPHAND=IPHAND-1 ICHAND=ICHAND-1 GOSUB SHOWCARDS END IF IF PSHOW=10 THEN GOTO DRAW IF CSHOW=10 THEN GOTO DRAW IF PSHOW=11 THEN GOTO DRAW IF CSHOW=11 THEN GOTO DRAW IF PSHOW>CSHOW THEN GOSUB WINPLAYER WHILE IPTABLE>0 PLAY 0,40,2 SOUND 1 FOR IX=16 TO -16 STEP -1 SPRITE 20,IX,56, WAIT VBL NEXT IX GOSUB ADDPCARD IPTABLE=IPTABLE-1 GOSUB SHOWCARDS IF IPTABLE>0 THEN PSHOW=PTABLE(IPTABLE) GOSUB PSHOWCARD ELSE PSHOW=0 GOSUB PSHOWCARD END IF WAIT VBL WEND WHILE ICTABLE>0 PLAY 0,40,2 SOUND 1 FOR IX=16 TO -16 STEP -1 SPRITE 20,IX,56, WAIT VBL NEXT IX PSHOW=CSHOW GOSUB ADDPCARD ICTABLE=ICTABLE-1 GOSUB SHOWCARDS IF ICTABLE>0 THEN CSHOW=CTABLE(ICTABLE) GOSUB CSHOWCARD ELSE CSHOW=0 GOSUB CSHOWCARD END IF WAIT VBL WEND ELSE GOSUB WINCOMPUTER WHILE ICTABLE>0 PLAY 0,45,2 SOUND 1 FOR IX=128 TO 164 SPRITE 20,IX,56, WAIT VBL NEXT IX GOSUB ADDCCARD ICTABLE=ICTABLE-1 GOSUB SHOWCARDS IF ICTABLE>0 THEN CSHOW=CTABLE(ICTABLE) GOSUB CSHOWCARD ELSE CSHOW=0 GOSUB CSHOWCARD END IF WAIT VBL WEND WHILE IPTABLE>0 PLAY 0,45,2 SOUND 1 FOR IX=128 TO 164 SPRITE 20,IX,56, WAIT VBL NEXT IX CSHOW=PSHOW GOSUB ADDCCARD IPTABLE=IPTABLE-1 GOSUB SHOWCARDS IF IPTABLE>0 THEN PSHOW=PTABLE(IPTABLE) GOSUB PSHOWCARD ELSE PSHOW=0 GOSUB PSHOWCARD END IF WAIT VBL WEND END IF WAIT 30 GOTO DRAW CHECKWIN: IF IPHAND=0 THEN TEXT 0,1,"GAME LOST" IF ICHAND=0 THEN TEXT 11,1,"GAME LOST" IF IPHAND*ICHAND=0 THEN IF IPHAND>0 THEN TEXT 0,1,"WINNER" IF ICHAND>0 THEN TEXT 11,1,"WINNER" END END IF RETURN ADDPCARD: IPHAND=IPHAND+1 FOR I=IPHAND TO 2 STEP -1 PHAND(I)=PHAND(I-1) NEXT I PHAND(1)=PSHOW RETURN ADDCCARD: ICHAND=ICHAND+1 FOR I=ICHAND TO 2 STEP -1 CHAND(I)=CHAND(I-1) NEXT I CHAND(1)=CSHOW RETURN PDRAW: PSHOW=PHAND(IPHAND) IPHAND=IPHAND-1 IPTABLE=IPTABLE+1 PTABLE(IPTABLE)=PSHOW GOSUB ANIPLAYER GOSUB PSHOWCARD GOSUB SHOWCARDS RETURN CDRAW: CSHOW=CHAND(ICHAND) ICHAND=ICHAND-1 ICTABLE=ICTABLE+1 CTABLE(ICTABLE)=CSHOW GOSUB ANICOMPUTER GOSUB CSHOWCARD GOSUB SHOWCARDS RETURN PSHOWCARD: CC=CARDSHOW(PSHOW) IF CC>0 THEN FOR IY=0 TO 3 FOR IX=0 TO 3 CELL 3+IX,6+IY,CC+IX+(IY*16) NEXT IX NEXT IY ELSE FOR IY=0 TO 3 FOR IX=0 TO 3 CELL 3+IX,6+IY,0 NEXT IX NEXT IY END IF RETURN CSHOWCARD: CC=CARDSHOW(CSHOW) IF CC>0 THEN FOR IY=0 TO 3 FOR IX=0 TO 3 CELL 13+IX,6+IY,CC+IX+(IY*16) NEXT IX NEXT IY ELSE FOR IY=0 TO 3 FOR IX=0 TO 3 CELL 13+IX,6+IY,0 NEXT IX NEXT IY END IF RETURN ANIPLAYER: CX=8*5-4 CY=60 FOR R=0 TO 8*3 STEP 1.5 ISPRITE=0 FOR A=0 TO 2*PI STEP PI/8 PX=CX+R*COS(A) PY=CY+R*SIN(A) SPRITE ISPRITE,PX,PY, PLAY 0,R,1 SOUND 0 ISPRITE=ISPRITE+1 NEXT A WAIT VBL NEXT R FOR I=0 TO 16 SPRITE I,200,200, NEXT I RETURN WINPLAYER: CX=8*5-4 CY=60 FOR FL=1 TO 10 FOR R=8*3 TO 8*4 STEP 2 ISPRITE=0 FOR A=0 TO 2*PI STEP PI/8 PX=CX+R*COS(A) PY=CY+R*SIN(A) SPRITE ISPRITE,PX,PY, PLAY 0,R*2.5,1 SOUND 3 ISPRITE=ISPRITE+1 NEXT A WAIT VBL NEXT R NEXT FL FOR I=0 TO 16 SPRITE I,200,200, NEXT I RETURN ANICOMPUTER: CX=8*15-4 CY=60 FOR R=0 TO 8*3 STEP 1.5 ISPRITE=0 FOR A=0 TO 2*PI STEP PI/8 PX=CX+R*COS(A) PY=CY+R*SIN(A) SPRITE ISPRITE,PX,PY, PLAY 1,R+3,1 SOUND 0 ISPRITE=ISPRITE+1 NEXT A WAIT VBL NEXT R FOR I=0 TO 16 SPRITE I,200,200, NEXT I RETURN WINCOMPUTER: CX=8*15-4 CY=60 FOR FL=1 TO 10 FOR R=8*3 TO 8*4 STEP 2 ISPRITE=0 FOR A=0 TO 2*PI STEP PI/8 PX=CX+R*COS(A) PY=CY+R*SIN(A) SPRITE ISPRITE,PX,PY, PLAY 1,R*2+3,1 SOUND 3 ISPRITE=ISPRITE+1 NEXT A WAIT VBL NEXT R NEXT FL FOR I=0 TO 16 SPRITE I,200,200, NEXT I RETURN SHOWCARDS: ATTR (0,,,,) TEXT 0,0,"P C" TEXT 7,7,"CARDS:" NUMBER 2,0,IPHAND,3 REM NUMBER 6,0,IPTABLE,3 REM NUMBER 11,0,ICTABLE,3 NUMBER 15,0,ICHAND,3 NUMBER 8,9,(IPTABLE+ICTABLE),3 GOSUB CHECKWIN RETURN REDCARDS: ATTR (1,,,,) TEXT 0,0,"P C" NUMBER 2,0,IPHAND,3 REM NUMBER 6,0,IPTABLE,3 REM NUMBER 11,0,ICTABLE,3 NUMBER 15,0,ICHAND,3 GOSUB CHECKWIN RETURN FLASHCARDS: GOSUB REDCARDS WAIT 5 GOSUB SHOWCARDS WAIT 5 RETURN #1:MAIN PALETTES 043F2A150030353A003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0018245A5A24180000183C66663C1800 00000000000000000000000000000000 00000000000000000000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000010101010101 FFFFFFFFFFFFFFFF0000000000000000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000070000000000 FFFFFFFFFFFFFFFF0000F00808080808 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000070000000000 FFFFFFFFFFFFFFFF0000F00808080808 FEFEFEFEFEFEFEFE0000000000000000 00FF003F00FF003F7FFF7F007FFF7F00 00FF00FC00FF00FCFEFFFE00FEFFFE00 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0101010101000000 FFFFFFFFFFFFFFFF0000000000000000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0308080808080700 FFFFFFFFFFFFFFFFF00000000000F000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0700000000000700 FFFFFFFFFFFFFFFFF00808080808F000 FEFEFEFEFEFEFEFE0000000000000000 00FF003F00FF003F7FFF7F007FFF7F00 00FF00FC00FF00FCFEFFFE00FEFFFE00 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000000808080808 FFFFFFFFFFFFFFFF0000000808080808 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000070808080808 FFFFFFFFFFFFFFFF0000F00000000000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000070808080808 FFFFFFFFFFFFFFFF0000F00000000000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000070000000000 FFFFFFFFFFFFFFFF0000F00808080808 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0700000000000000 FFFFFFFFFFFFFFFFF008080808080000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0700000000000700 FFFFFFFFFFFFFFFFF00808080808F000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0708080808080700 FFFFFFFFFFFFFFFFF00808080808F000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0008080808080000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 001F3F7F7F7F7F7F000000101111111C 00FFFFFFFFFFFFFF0000008D51494599 00FFFFFFFFFFFFFF0000008915951589 00F8FCFEFEFEFEFE0000002CA86C282C 001F3F7F7F7F7F7F0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00FFFFFFFFFFFFFF0000000000000000 00F8FCFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000070808080808 FFFFFFFFFFFFFFFF0000F00808080808 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0000070808080808 FFFFFFFFFFFFFFFF0000F00808080808 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF00000000001010D0 FFFFFFFFFFFFFFFF000020204042829A FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF00001F0101010101 FFFFFFFFFFFFFFFF0000F00000000000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0708080808080700 FFFFFFFFFFFFFFFFF00808080808F000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0700000000000700 FFFFFFFFFFFFFFFFF00808080808F000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF1111120204040000 FFFFFFFFFFFFFFFF0202020000000000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F7F7F7F0000000000000000 FFFFFFFFFFFFFFFF0101010101000000 FFFFFFFFFFFFFFFF0000000000000000 FEFEFEFEFEFEFEFE0000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 7F7F7F7F7F3F1F000000000000000000 FFFFFFFFFFFFFF000000000000000000 FFFFFFFFFFFFFF000000000000000000 FEFEFEFEFEFCF8000000000000000000 7F7F7F7F7F3F1F000001010100000000 FFFFFFFFFFFFFF00B911111191000000 FFFFFFFFFFFFFF003221312132000000 FEFEFEFEFEFCF8000000000000000000 7F7F7F7F7F3F1F000001010100000000 FFFFFFFFFFFFFF00B911111191000000 FFFFFFFFFFFFFF003221312132000000 FEFEFEFEFEFCF8000000000000000000 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 003C666E76663C000000000000000000 0018381818187E000000000000000000 003C660C18307E000000000000000000 003C660C06663C000000000000000000 0066667E060606000000000000000000 007E607C06067C000000000000000000 001C307C66663C000000000000000000 007E060C183030000000000000000000 003C663C66663C000000000000000000 003C663E06663C000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00183C667E6666000000000000000000 007C667C66667C000000000000000000 003C666060663C000000000000000000 00786C66666C78000000000000000000 007E607860607E000000000000000000 007E6078606060000000000000000000 003C606E66663C000000000000000000 0066667E666666000000000000000000 003C181818183C000000000000000000 001E060606663C000000000000000000 00666C78786C66000000000000000000 0060606060607E000000000000000000 0042667E7E6666000000000000000000 0066767E6E6666000000000000000000 003C666666663C000000000000000000 007C667C606060000000000000000000 003C66666A6C3E000000000000000000 007C667C786C66000000000000000000 003E603C06067C000000000000000000 007E1818181818000000000000000000 0066666666663C000000000000000000 00666666663C18000000000000000000 0066667E7E6642000000000000000000 00663C183C6666000000000000000000 0066663C181818000000000000000000 007E0C1830607E000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000 #15:MAIN SOUND 280031BB00045000080084CC11DB0000 220003AA02FFE000080034CC05BB0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000