REM SUITE IMAGES BY USER JAPANESE REM ASSET: PLAYING CARDS RANDOMIZE TIMER GAMEPAD 1 REM WAS8BIT DIM GLOBAL XDIR(3),YDIR(3),RDIR(3),CARDS(3),SETS(3) GLOBAL BACKUP,CX,CY FOR I=0 TO 3 READ XDIR(I),YDIR(I) NEXT I DATA 1,0,0,1,-1,0,0,-1 CX=9 CY=5 PAUSE OFF NEWGAME: FOR I=0 TO 3 X=4+4*I PAL 0 CELL X,0,I+2 PAL 1 NUMBER X+1,0,SETS(I),2 NEXT I PAL 1 ILEVEL=1 TEXT 0,0,"L" NUMBER 1,0,ILEVEL,2 PX=0 PY=0 CALL NEWPIECE(PX,PY) WAIT 60 DO IF BUTTON(0,0) THEN CALL DRAWIMO(PX,PY,0,0,-1) IF BUTTON(0,1) THEN CALL DRAWIMO(PX,PY,0,0,1) IF LEFT(0) THEN CALL DRAWIMO(PX,PY,-1,0,0) IF RIGHT(0) THEN CALL DRAWIMO(PX,PY,1,0,0) IF UP(0) THEN CALL DRAWIMO(PX,PY,0,-1,0) IF DOWN(0) THEN CALL DRAWIMO(PX,PY,0,1,0) IF PAUSE THEN CALL NEWPIECE(PX,PY) WAIT VBL LOOP END SUB NEWPIECE(IX,IY) IX=CX IY=CY PAL 0 FOR I=0 TO 3 CARDS(I)=RND(3)+2 NEXT I X=CX Y=CY CELL X,Y,CARDS(0) WAIT 3 BACKUP=0 FOR I=1 TO 3 C=1 IF I=3 AND RND(3)=0 THEN BACKUP=1 X=OX Y=OY END IF WHILE C<>0 R=RND(3) XX=X+XDIR(R) YY=Y+YDIR(R) C=CELL.C(XX,YY) WEND OX=X OY=Y X=XX Y=YY RDIR(I)=R CELL X,Y,CARDS(I) NEXT I END SUB SUB DRAWIMO(XX,YY,DX,DY,R) X=XX Y=YY ADD XX,DX ADD YY,DY CELL X,Y,0 PAL 0 FOR II=1 TO 3 RR=RDIR(II) IF II=3 AND BACKUP=1 THEN X=OX Y=OY END IF OX=X OY=Y ADD X,XDIR(RR) ADD Y,YDIR(RR) CELL X,Y,0 NEXT II X=XX Y=YY FOR I=0 TO 3 ADD RDIR(I),R,0 TO 3 NEXT I CELL X,Y,CARDS(0) FOR II=1 TO 3 RR=RDIR(II) IF II=3 AND BACKUP=1 THEN X=OX Y=OY END IF OX=X OY=Y ADD X,XDIR(RR) ADD Y,YDIR(RR) CELL X,Y,CARDS(II) NEXT II PLAY 0,40,1 WAIT 15 END SUB #1:MAIN PALETTES 193F3000003F3F00003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 7E8195A995A9817E00003C3C3C3C0000 FFFFFFFFFFFFFFFF0010387C7C103800 FFFFFFFFFFFFFFFF00103838D6FE6C00 FFFFEFC783C7EFFF000010387C381000 FFFF938383C7EFFF00006C7C7C381000