GAMEPAD 1 RANDOMIZE TIMER CELL SIZE 1,1 BG 1 BG COPY 0,0,10,8 TO 0,0 DIM GLOBAL XBOARD(30),YBOARD(30),PBOARD(30) FOR I=1 TO 30 READ XBOARD(I),YBOARD(I) NEXT I DATA 0,2,1,2,2,2,3,2,4,2,5,2,6,2,7,2,8,2,9,2 DATA 9,4,8,4,7,4,6,4,5,4,4,4,3,4,2,4,1,4,0,4 DATA 0,6,1,6,2,6,3,6,4,6,5,6,6,6,7,6,8,6,9,6 SPRITE 0,0,2*16,38 SPRITE 0 SIZE 1 FOR I=1 TO 5 SPRITE I SIZE 1 PAL 1 SPRITE I,,,34 NEXT I FOR I=6 TO 10 SPRITE I SIZE 1 PAL 2 SPRITE I,,,36 NEXT I SPRITE 11,0,16, SPRITE 11 SIZE 1 PAL 5 RESET: NEW_GAME: P1=1 P2=6 FOR I=1 TO 30 IF I>10 THEN PBOARD(I)=0 ELSE IF I\2<>I/2 THEN PBOARD(I)=P1 INC P1 ELSE PBOARD(I)=P2 INC P2 END IF END IF NEXT I CALL SHOWBOARD IFLASH=0 CFLASH=40 CURSOR=1 MOVE=1 PSCORE=0 CSCORE=0 IROUND=0 IROLL=0 IPLAY=0 BG 0 PAL 3 TEXT 9,1,"GAME" NUMBER 10,0,IROUND,2 NEXT_PLAYER: ADD IPLAY,1,1 TO 2 IF IPLAY=1 THEN GOTO PLAYER ELSE GOTO COMPUTER PLAYER: BG 0 PAL 3 TEXT 2,1,"PLAYER" NUMBER 3,0,PSCORE,2 PAL 0 TEXT 16,1,"COMP" NUMBER 17,0,CSCORE,2 CALL ROLL(IROLL) MDIR=1 DO ADD IFLASH,1,0 TO 5 IF IFLASH=0 THEN IF RIGHT(0) THEN ADD CURSOR,1,1 TO 30 IF LEFT(0) THEN ADD CURSOR,-1,1 TO 30 SPRITE OFF 11 PC=PBOARD(CURSOR) IF PC>0 AND PC<=5 AND IPLAY=1 THEN CM=CURSOR+IROLL*MDIR IF IROLL>0 AND CM>=1 AND CM<=30 THEN SPRITE 11,XBOARD(CM)*16,YBOARD(CM)*16,CFLASH DEST=PBOARD(CM) IF (DEST=0 OR DEST>5) AND BUTTON(0,0) THEN PLAY 0,90,10 SOUND 0 IF DEST=0 THEN PBOARD(CURSOR)=0 PBOARD(CM)=PC CALL SHOWBOARD SPRITE OFF 11 GOTO NEXT_PLAYER ELSE PBOARD(CURSOR)=DEST PBOARD(CM)=PC CALL SHOWBOARD SPRITE OFF 11 GOTO NEXT_PLAYER END IF END IF END IF END IF IF DOWN(0) THEN MDIR=-1 IF UP(0) THEN MDIR=1 ADD CFLASH,2,38 TO 42 SPRITE 0,XBOARD(CURSOR)*16,YBOARD(CURSOR)*16,CFLASH END IF WAIT VBL LOOP COMPUTER: GOTO NEXT_PLAYER SUB SHOWBOARD FOR I=1 TO 30 IF PBOARD(I)>0 THEN SPRITE PBOARD(I),XBOARD(I)*16,YBOARD(I)*16, NEXT I END SUB SUB ROLL(I) SPRITE 0,,,0 WAIT 30 PLAY 0,50,1 BG 0 PAL 3 TEXT 9,0,"ROLL" TEXT 9,1,"(B) " WHILE NOT BUTTON(0,1) WAIT VBL WEND PLAY 0,50,1 WAIT 30 WHILE NOT BUTTON(0,1) S1=RND(100) S2=RND(100) S3=RND(100) S4=RND(100) IF S1>40 THEN S1=1 ELSE S1=0 IF S2>40 THEN S2=1 ELSE S2=0 IF S3>40 THEN S3=1 ELSE S3=0 IF S4>40 THEN S4=1 ELSE S4=0 TEXT 9,0,STR$(S1)+STR$(S2)+STR$(S3)+STR$(S4) PLAY 0,40,1 WAIT 3 WEND PLAY 0,50,1 WAIT 30 N=S1+S2+S3+S4 IF N=0 THEN I=6 ELSE I=N TEXT 9,1," "+STR$(I)+" " END SUB #1:MAIN PALETTES 053F0800003F380000282400003F3F00 002A2A15002E2A04003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 007F7F7F7F7F7F7F007F7F7F7F7F7F7F 00FEFEFEFEFEFEFE00FEFEFEFEFEFEFE 000000000000000FFFFFFFFFFFFFFFFF 0000000000C0E0F0FFFFFFFFFFFFFFFF 000000000003070FFFFFFFFFFFFFFFFF 00000000000000F0FFFFFFFFFFFFFFFF 0000000001010101FFFFFFFFFFFFFFFF 0000000080808080FFFFFFFFFFFFFFFF 00000F1020202020FFFFFFFFFFFFFFFF 0000F00804040404FFFFFFFFFFFFFFFF 0040201008040201FFFFFFFFFFFFFFFF 0002040810204080FFFFFFFFFFFFFFFF 00552A552A542850FFFFFFFFFFFFFFFF 0055AA552A150A05FFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F007F7F7F7F7F7F7F00 FEFEFEFEFEFEFE00FEFEFEFEFEFEFE00 0F00000000000000FFFFFFFFFFFFFFFF F0E0C00000000000FFFFFFFFFFFFFFFF 0F07030000000000FFFFFFFFFFFFFFFF F000000000000000FFFFFFFFFFFFFFFF 0707030100000000FFFFFFFFFFFFFFFF E0E0C08000000000FFFFFFFFFFFFFFFF 20202020100F0000FFFFFFFFFFFFFFFF 0404040408F00000FFFFFFFFFFFFFFFF 0102040810204000FFFFFFFFFFFFFFFF 8040201008040200FFFFFFFFFFFFFFFF 205028542A552A55FFFFFFFFFFFFFFFF 02050A152A55AA55FFFFFFFFFFFFFFFF 004070787C7C7E7E7F7F7F7F7F7F7F7F 00020E1E3E3E7E7EFEFEFEFEFEFEFEFE 0F1F3C3D037E00010F19237F7FFFFFFF 006818666666009EE0F8FC98BA99FFED 070F0F1F1E101010001236646DEFEFEF 60F0F0E000EE660080684CDEFEFFFFFF 5B800080800080801280000080000080 6C010100010100014801000001000001 6D008080008080004900008000008000 B6000101000101002400010000010000 36808000808000802400800000800000 DA010001010001019200000100000100 0F1F3C3D037E0001FFF9E3FFFFFFFFFF 006818666666009EFFFFFF99BB99FFED 070F0F1F1E101010F8F2F6E4EDEFEFEF 60F0F0E000EE66009F6F4FDFFFFFFFFF 7E7E7C7C787040007F7F7F7F7F7F7F7F 7E7E3E3E1E0E0200FEFEFEFEFEFEFEFE 433E0000110E0000FFFFFF7F7F3F1F07 3F3F3FBE00306040EDFFFFECFEFCF8E0 383F3F7F7F3F1F07C7C0C00000000000 3CFEFC8080000000C31D037E7EFCF8E0 80008080008080368000008000008012 01010001010001DA0100000100000148 008080008080006D0000800000800024 00010100010100B60001000001000092 808000808000805B0080000080000049 010001010001016C0000010000010024 433E0000110E0000FFFFFFFFFFFFFFFF 3F3F3FBE00306040EDFFFFEDFFFFFFFF 383F3F7F7F3F1F07C7C0C08080C0E0F8 3CFEFC8080000000C31D037F7FFFFFFF #3:MAIN BG 00010A082C0100000000000000000002 00002E02000000000200020002000200 02000200020002000200020004000400 04000400040004000400040004000800 02000200020002000200020002000200 02002000080006000600060006000600 06000600060006002000020002000200 02000200020002000200020004000400 0400040004000A000C000A000A000E00 02000200020002000200020002000200 02000200