SmileBASIC Switch - Sale

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|495\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Console Coding -> SmileBASIC Switch - Sale
Page : 1 2 3 4 5 6 7 Prev 8 Next
Sat, 19 Apr 2025, 08:35
spinal	This looks like it might work... https://smilebasicsource.com/forum/thread/transfer-smilebasic-4-programs-from-your-switch-to-your-smartp acls dim bindata%[0] var filedata$ = loadv("txt:main.prg") var i%, j% for i% = 0 to len(filedata$) - 1 for j% = 7 to 0 step -1 push bindata%, (asc(filedata$[i%]) >> j%) and 1 next next xscreen 1280, 720 var x% = 0 var y% = 0 for i% = 0 to len(bindata%) - 1 if bindata%[i%] then gcolor rgb(255, 255, 255) else gcolor rgb(0, 0, 0) endif gpset x%, y% inc x% if x% >= 1280 then x% = 0 inc y% endif next while !keyboard(40):wend while keyboard(40):wend acls --v Here is Nogging for example ' _____________________________________________________________ ' \___________________________________________________________/ ' ' __ _______ _______ _______ _________ __ ' ( ( /\| ( ___ ) ( ____ \ ( ____ \ \__ __/ ( ( /\| ' \| \ ( \| \| ( ) \| \| ( \/ \| ( \/ ) ( \| \ ( \| ' \| \ \| \| \| \| \| \| \| \| \| \| \| \| \| \ \| \| ' \| (\ \) \| \| \| \| \| \| \| ____ \| \| ____ \| \| \| (\ \) \| ' \| \| \ \| \| \| \| \| \| \| \_ ) \| \| \_ ) \| \| \| \| \ \| ' \| ) \ \| \| (___) \| \| (___) \| \| (___) \| ___) (___ \| ) \ \| ' \|/ )_) (_______) (_______) (_______) \_______/ \|/ )_) ' ' ___________________________________________________________ ' /___________________________________________________________\ ' ' A unique new card game, where the aim is to turn over every ' card in the deck. To do so, you must move only the exact ' number of spaces dictated by the face of the card you last ' turned over. You can move only up, down, left or right, never ' diagonally. Picture cards are handled in the following way... ' ' o Jacks - You must pick the next card from the 'spares' pile ' and use that in place of the jack. ' ' o Queens - You can select ANY card in the same column or row ' as the Queen as your next card, but you MUST turn ' every card in either the column or row, depending ' on which you picked. ' ' o Kings - As with the Queen, you may pick any card in the ' same column or row. But this time, you only need ' turn over the card you select, no others. ' ' o Jokers - When a Joker is selected (this game has 4), then ' you may move a single space. However, you are ' given a 'wildcard' move to be used at any time. ' When using this wildcard, you may move to ANY ' position on the board. This can only be done once ' per wildcard collected. ' _____________________________________________________________ ' \___________________________________________________________/ ' ' GAMEHASSTARTED = 0 STARTMENUOPEN = 0 @RESTART RESTORE @FONTDATA TARGETFPS = 60 LIMITFRAMERATE = 0 DIM PLAYFIELD[137] DIM SPRITEGRID[137] ' SPRITE NUMBERS USED FOR EACH CARD DIM JACKSPRITE[4] ' SPRITE NUMBERS FOR THE JACK CARDS 'DIM LEVEL[137]=[0,0,0,0,1,1,1,1,1,0,0,0,0, 0,0,0,1,1,1,1,1,1,1,0,0,0, 2,0,1,1,1,1,1,1,1,1,1,0,3, 2,0,1,1,1,1,1,1,1,1,1,0,3, 2,0,1,1,1,1,1,1,1,1,1,0,3, 2,0,0,1,1,1,1,1,1,1,0,0,3, 0,0,0,0,1,1,1,1,1,0,0,0,0] DIM LEVEL[137]=[0,0,0,1,1,1,1,1,1,1,0,5,4, 0,0,0,1,1,1,1,1,1,1,0,0,0, 0,0,0,1,1,1,1,1,1,1,0,2,2, 0,0,0,1,1,1,1,1,1,1,0,2,2, 0,0,0,1,1,1,1,1,1,1,0,0,0, 0,0,0,1,1,1,1,1,1,1,0,3,3, 0,0,0,1,1,1,1,1,1,1,0,3,3] TIMEX=0 TIMEY=0 MOVESX=0 MOVESY=0 LEVELCOMPLETED = 0 MENUITEM = 0 'DIM LEVEL[137]=[0,0,0,0,0,0,1,0,0,0,0,0,0, 3,0,0,0,0,1,1,1,0,0,0,0,2, 3,3,0,0,1,1,1,1,1,0,0,2,2, 3,0,0,1,1,1,1,1,1,1,0,0,2, 0,0,1,1,1,1,1,1,1,1,1,0,0, 0,1,1,1,1,1,1,1,1,1,1,1,0, 1,1,1,1,1,1,1,1,1,1,1,1,1] ' DATA FOR FONT DIM FDAT[127,8] HELD = 0 NEW = 1 RELEASED = 2 COMPLETEPAD = 0 EXPAD = 0 TEMPPAD = 0 MYPAD = 0 LW = 13 LH = 7 DIM B_UP[3], B_DOWN[3], B_LEFT[3], B_RIGHT[3], B_A[3], B_B[3], B_X[3], B_Y[3] DIM CD_ANIMLENGTH[20] DIM CD_AN[20] DIM CD_CUX[20] DIM CD_CUY[20] DIM CD_JX[20] DIM CD_JY[20] DIM CD_USED[20] T_SECONDS=0 T_MINUTES=0 T_HOURS=0 FIRSTFRAME=0 HOLDINGWILDCARD = 0 SHOWALLCARDS = 0 STARTSPRITE = 120 CURSOR_SPRITE = 56 BLUE_SPRITE = 57 RED_SPRITE = 58 SHADDOW_SPRITE = 59 EMPTY_CARD = 60 EMPTY_WILD = 61 EMPTY_JACK = 62 L_TRAY = 63 H_TRAY = 64 R_TRAY = 65 T_TRAY = 66 V_TRAY = 67 B_TRAY = 68 DIM CARDLIST[56] ' FULL DECK OF CARDS DIM CARDFACE[LWLH] DIM CLEAR_X[4] DIM CLEAR_Y[4] DIM WYLD_X[4] DIM WYLD_Y[4] DIM WYLD_C[4] DIM CURRENTPATH[56] ' MORE THAN THE MAX NUMBER OF MOVES PATHCOUNT = 0 ROTFRAME=0 ROTDIR=1 'MY_BGCOLOUR = RGB(0,133,74) MY_BGCOLOUR = RGB(60,110,166) 'CURSORCOLOUR = RGB(255,0,0) MY_SCALE = 1 CARDWIDTH=5 CARDHEIGHT=5 MY_GRID_X = (CARDWIDTH+1)16 MY_GRID_y = (CARDHEIGHT+1)16 PLAYFIELD_TOP = (MY_GRID_X/2)+((720/MY_SCALE)-(MY_GRID_XLH))/2 PLAYFIELD_LEFT = (MY_GRID_X/2)+((1280/MY_SCALE)-(MY_GRID_XLW))/2 C_ANIM_X = 0 C_ANIM_Y = 0 CURSORX = 0 CURSORY = 0 OLDCURSORX = 0 OLDCURSORY = 0 CURSORWIDTH=6 CURSORHEIGHT=6 CURSORSIZE = 66 CUR = 0 CFRAME = 17 COFF = -7 CSPRITE = 60 CURRENTSPRITE = 0 CURSORSPRITENUMBER = NUMSPRITES SPARESPRITE = 2 ' HACK TO FIX A GFX GLITCH WORDBGSPRITE = 1022 CLOCKSPRITE = 1020 PLUSSPRITE = 1018 BIGCARDICON = 1016 BIGCARDSHADDOW = 1017 QUEENMOVE = 0 MENUBACKGROUND = 1023 MENUBACKGROUNDSHADDOW = 1021 ' N O G I Y U W L S E DIM LETTERSPRITE[10]=[900,901,902,903,904,905,906,907,908,909] DIM LETTERWIDTHS[10]=[166,150,164,99 ,175,155 ,225,147,129,154] MOVESOUND = 156 MOVEFAILSOUND = 47 REMOVESOUND = 9 COLLECTSOUND = 32 FLIPSOUND = 40 DROPSOUND = 142'149 BGMUSIC = 45 ' OR 57 BGMVOLUME = 127 SFXVOLUME = 127 ' CURSOR TOP,BOTTOM,LEFT,RIGHT CX1 = 0 CX2 = 0 CY1 = 0 CY2 = 0 NUMSPRITES = 40 CURRENTCARD = 0 MOVESLEFT = 100 NUMWYLDCARDS = 0 NUMJACKS = 0 MOVESTYLE = 0 ' 0 = NORMAL ' 1 = KING ' 2 = QUEEN ' 3 = JACK ' 4 = WILDCARD GAMEMODE = 0 CARDSIZE = CARDWIDTHCARDHEIGHT DIM CARDGFX[CARDSIZE]=[96,97,97,97,98,128,129,129,129,130,128,129,129,129,130,128,129,129,129,130,160,161,161,161,162] DIM CURSORGFX[CURSORSIZE]=[99,100,100,100,100,101,131,132,132,132,132,133,131,132,132,132,132,133,131,132,132,132,132,133,131,132,132,132,132,133,163,164,164,164,164,165] DIM CARDVALUES[14]= [1,2,3,4,5,6,7,8,9,10,99,99,0,1] DIM CURSORSTYLE[14]=[1,1,1,1,1,1,1,1,1,1 ,2 ,2 ,1,1] @RETURN_10 MAIN DEF LOADLEVEL LEV SHUFFLE NUMWYLDCARDS=0 T = 0 JNUM = 0 CC=LEV(LWLH) CC1=0 FOR Y = 0 TO 6 FOR X = 0 TO 12 CARDFACE[CC1] = 0 IF LEVEL[CC] == 0 THEN ' EMPTY PLAYFIELD[CC1]=-1 ENDIF IF LEVEL[CC] == 1 THEN ' CARD PLAYFIELD[CC1] = CARDLIST[T] CARDFACE[CC1] = 0 T=T+1 ENDIF IF LEVEL[CC] == 2 THEN ' FREE PILE WYLD_X[WNUM] = X-0.5 WYLD_Y[WNUM] = Y WNUM = WNUM + 1 ENDIF IF LEVEL[CC] == 3 THEN ' JACK PILE CLEAR_X[CNUM] = X-0.5 CLEAR_Y[CNUM] = Y CNUM = CNUM + 1 ENDIF IF LEVEL[CC] == 4 THEN ' TIME TIMEX = X TIMEY = Y ENDIF IF LEVEL[CC] == 5 THEN ' MOVES MOVESX = X -0.5 MOVESY = Y ENDIF CC=CC+1 CC1=CC1+1 NEXT NEXT STARTGAME END DEF SHUFFLE JACKS = 12 DONESHUFFLE = 0 WHILE DONESHUFFLE == 0 FOR T = 0 TO 55 CARDLIST[T] = T NEXT T FOR T = 0 TO 55 RNUM = RND(55) TMP = CARDLIST[RNUM] CARDLIST[RNUM] = CARDLIST[T] CARDLIST[T] = TMP CARDFACE[T] = 0 NEXT T IF INT(CARDLIST[49]/4) != JACKS AND INT(CARDLIST[50]/4) != JACKS AND INT(CARDLIST[51]/4) != JACKS AND INT(CARDLIST[52]/4) != JACKS THEN DONESHUFFLE = 1 WEND END DEF TITLESCREEN BGMSTOP GCLS ' CLEAR THE GFX SCREEN SPCLR ' CLEAR THE SPRITES AWAY CLS ' CLEAR THE TEXT LAYER BACKCOLOR MY_BGCOLOUR ' XSCREEN 1280/MY_SCALE,720/MY_SCALE, MY_SCALE, 0 ' FOR Y = 0 TO (720/256) ' FOR X = 0 TO (1280/256) ' GCOPY 4,0,0,255,255, X256,Y256,0 ' NEXT ' NEXT ' R1=27 ' G1=114 ' B1=210 ' R2=15 ' G2=70 ' B2=120 ' WIDTH=1280 ' FOR Y = 0 TO 719 ' FOR X = 0 TO WIDTH-1 ' R=R1+(X(R2-R1)/WIDTH) ' G=G1+(X(G2-G1)/WIDTH) ' B=B1+(X(B2-B1)/WIDTH) ' GCOLOR RGB(255,R+(RND(20)-10),G+(RND(20)-10),B+(RND(20)-10)) ' GPSET X,Y ' NEXT ' NEXT ' DIM BACKGROUND[0] ' GSAVE 0,0,1280,720,BACKGROUND ' SAVEG "BACKDROP",0 LOADG "BACKDROP",0 TY = 250 ' 'NOGGIN TX = 150 DRAWSPRITE TX,TY,LETTERSPRITE[0], 0, 1, 255:TX=TX+LETTERWIDTHS[0]+10 DRAWSPRITE TX,TY,LETTERSPRITE[1], 0, 1, 255:TX=TX+LETTERWIDTHS[1]+10 DRAWSPRITE TX,TY,LETTERSPRITE[2], 0, 1, 255:TX=TX+LETTERWIDTHS[2]+10 DRAWSPRITE TX,TY,LETTERSPRITE[2], 0, 1, 255:TX=TX+LETTERWIDTHS[2]+10 DRAWSPRITE TX,TY,LETTERSPRITE[3], 0, 1, 255:TX=TX+LETTERWIDTHS[3]+10 DRAWSPRITE TX,TY,LETTERSPRITE[0], 0, 1, 255 MYPRINT "THE GAME THAT'S TAKING THE WORLD BY STORM",150,TY-70,90.5 MYPRINT "PRESS A TO START",150+300,TY+240,100 UPDATEBUTTONS WHILE B_A[HELD] WEND WHILE B_A[HELD]==0 UPDATEBUTTONS WEND SHOWALLCARDS = 0 GAMEMODE = 9 FIRSTFRAME=1 END DEF WINSCREEN BGMSTOP GCLS ' CLEAR THE GFX SCREEN SPCLR ' CLEAR THE SPRITES AWAY CLS ' CLEAR THE TEXT LAYER BACKCOLOR MY_BGCOLOUR LOADG "BACKDROP",0 TY = 250 ' YOU WIN TX = 80 DRAWSPRITE TX,TY,LETTERSPRITE[4], 0, 1, 255:TX=TX+LETTERWIDTHS[4]+10 DRAWSPRITE TX,TY,LETTERSPRITE[1], 0, 1, 255:TX=TX+LETTERWIDTHS[1]+10 DRAWSPRITE TX,TY,LETTERSPRITE[5], 0, 1, 255:TX=TX+LETTERWIDTHS[5]+120 DRAWSPRITE TX,TY,LETTERSPRITE[6], 0, 1, 255:TX=TX+LETTERWIDTHS[6]+10 DRAWSPRITE TX,TY,LETTERSPRITE[3], 0, 1, 255:TX=TX+LETTERWIDTHS[3]+10 DRAWSPRITE TX,TY,LETTERSPRITE[0], 0, 1, 255:TX=TX+LETTERWIDTHS[0]+10 MYPRINT "YOU SEEM TO HAVE COMPLETED A LEVEL! NICE!",150,TY-70,90.5 MYPRINT "PRESS A TO START",150+300,TY+240,100 UPDATEBUTTONS WHILE B_A[HELD] WEND WHILE B_A[HELD]==0 UPDATEBUTTONS WEND GAMEMODE = 0 END DEF DRAWMOVESANDTIME IF STARTMENUOPEN == 1 THEN ALFA = 255 SPSET NUMSPRITES, MENUBACKGROUND SPOFS NUMSPRITES, 969, 45, -8 ' PRIORITY -8 NUMSPRITES=NUMSPRITES+1 SPSET NUMSPRITES, MENUBACKGROUNDSHADDOW SPOFS NUMSPRITES, 969, 45, -8 ' PRIORITY -8 SPCOLOR NUMSPRITES,RGB(127,255,255,255) NUMSPRITES=NUMSPRITES+1 LINE = 110 MV = STRWIDTH("QUIT GAME",80)/2 MYPRINT "QUIT GAME",1120-MV+14,LINE,60 LINE = LINE + 50 MV = STRWIDTH("HELP",80)/2 MYPRINT "HELP",1120-MV+14,LINE,60 LINE = LINE + 50 MV = STRWIDTH("ABOUT",80)/2 MYPRINT "ABOUT",1120-MV+14,LINE,60 ENDIF ' START MENU SPSET NUMSPRITES, WORDBGSPRITE SPOFS NUMSPRITES, 1120, 72 NUMSPRITES=NUMSPRITES+1 MV = STRWIDTH("MENU",80)/2 MYPRINT "MENU",1120-MV+14,50,80 SPSET NUMSPRITES, PLUSSPRITE SPOFS NUMSPRITES, 1120-58, 72, -10 NUMSPRITES=NUMSPRITES+1 LEFTSIDE = 168 FONTSIZE = 74 ' PERCENT ' CLOCK SPSET NUMSPRITES, WORDBGSPRITE SPOFS NUMSPRITES, LEFTSIDE, 72 NUMSPRITES=NUMSPRITES+1 SPSET NUMSPRITES, CLOCKSPRITE SPOFS NUMSPRITES, LEFTSIDE-58, 72 NUMSPRITES=NUMSPRITES+1 ' INGAME CLOCK H$ = STR$(T_HOURS) IF LEN(H$)==1 THEN H$="0"+H$ M$ = STR$(T_MINUTES) IF LEN(M$)==1 THEN M$="0"+M$ S$ = STR$(T_SECONDS) IF LEN(S$)==1 THEN S$="0"+S$ MYSTRING = M$+":"+S$ MV = STRWIDTH("0000",FONTSIZE)/2 ' MYPRINT MYSTRING,LEFTSIDE-MV+14,50,FONTSIZE 'DRAW EACH CHARACTER SO IT DOESNT WIGGLE MYPRINT LEFT$(M$,1),LEFTSIDE-MV+14,50,FONTSIZE MYPRINT MID$(M$,1,1),LEFTSIDE-MV+34,50,FONTSIZE MYPRINT ":",LEFTSIDE-MV+54,56,FONTSIZE MYPRINT LEFT$(S$,1),LEFTSIDE-MV+63,50,FONTSIZE MYPRINT MID$(S$,1,1),LEFTSIDE-MV+84,50,FONTSIZE MV = STRWIDTH("CURRENT",FONTSIZE)/2 MYPRINT "CURRENT",LEFTSIDE-MV,130,FONTSIZE MV = STRWIDTH("CARD",FONTSIZE)/2 MYPRINT "CARD",LEFTSIDE-MV,174,FONTSIZE MV = STRWIDTH("MOVES",FONTSIZE)/2 MYPRINT "MOVES",LEFTSIDE-MV,430,FONTSIZE MV = STRWIDTH("LEFT",FONTSIZE)/2 MYPRINT "LEFT",LEFTSIDE-MV,474,FONTSIZE T$ = STR$(MOVESLEFT) IF MOVESLEFT < 10 THEN MYSTRING = "0" + T$ ELSE MYSTRING = T$ ENDIF MV = STRWIDTH("0",150) IF MOVESLEFT <=10 THEN MYPRINT LEFT$(MYSTRING,1),LEFTSIDE-MV,550,150 MYPRINT RIGHT$(MYSTRING,1),LEFTSIDE,550,150 ENDIF DRAWBIGCARD END DEF DRAWBIGCARD CD = PLAYFIELD[OLDCURSORX+LWOLDCURSORY] IF LEVEL[OLDCURSORX+LWOLDCURSORY] == 1 THEN CARD = INT(CD/4) SUIT = CD MOD 4 ALFA = 255/3 SPSET BIGCARDICON, CARD+14SUIT SPSET BIGCARDICON+1, SHADDOW_SPRITE SPOFS BIGCARDICON, 160, 320 SPOFS BIGCARDICON+1, 168, 328 SPSCALE BIGCARDICON,2.0,2.0 SPSCALE BIGCARDICON+1,2.0,2.0 SPCOLOR BIGCARDICON+1,RGB(ALFA,255,255,255) ENDIF END DEF TRIGGERANIM CUX,CUY,JX,JY,ANIMLENGTH FOUNTONE=0 FOR T = 0 TO 19 IF CD_USED[T] == 0 AND FOUNDONE == 0 THEN FOUNDONE=1 CD_USED[T] = 1 CD_ANIMLENGTH[T] = ANIMLENGTH CD_JX[T] = JX CD_JY[T] = JY CD_CUX[T] = CUX CD_CUY[T] = CUY CD_AN[T] = 0 ENDIF NEXT END DEF CARDANIM VSYNC 1 ALFA = 255/3 FOR T = 0 TO 19 IF CD_USED[T]==1 THEN X1 = SMOOTH (CD_AN[T],CD_CUX[T],CD_JX[T]-CD_CUX[T], CD_ANIMLENGTH[T]) Y1 = SMOOTH (CD_AN[T],CD_CUY[T],CD_JY[T]-CD_CUY[T], CD_ANIMLENGTH[T]) SPSET 2+(T2), BLUE_SPRITE SPOFS 2+(T2), X1, Y1 SPSET 3+(T2), SHADDOW_SPRITE SPOFS 3+(T2), X1+8, Y1+8 ' CARDS SHADDOW SPCOLOR 3+(T2),RGB(ALFA,255,255,255) CD_AN[T] = CD_AN[T] + 1 IF CD_AN[T] == CD_ANIMLENGTH[T] THEN CD_USED[T] = 0 BEEP DROPSOUND,0,SFXVOLUME/2 DRAWCARD 99,CD MOD 4,CD_JX[T], CD_JY[T] ENDIF ENDIF NEXT END DEF STARTGAME ' VSYNC 1 ' WAIT FOR SYNC BGMSTOP ' GCLS ' CLEAR THE GFX SCREEN SPCLR ' CLEAR THE SPRITES AWAY CLS ' CLEAR THE TEXT LAYER BACKCOLOR MY_BGCOLOUR ALFA = 255/3 ANIMLENGTH = 10 NUMSPRITES = 40 STARTSPRITE = NUMSPRITES ' USE THIS TO DISCOVER THE CURRENT CARD NUMSPRITES = 512 ' WYLD CARDS PILE ' SPAREOFFSET = PLAYFIELD_LEFT + 10MY_GRID_X JNUM=0 FOR Y = 0 TO 1 FOR X = 0 TO 1 DRAWSPRITE PLAYFIELD_LEFT + WYLD_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + WYLD_Y[JNUM]MY_GRID_Y, EMPTY_WILD,0,1,ALFA SPRITEGRID[X+LWY] = NUMSPRITES JNUM=JNUM+1 NEXT X NEXT Y ' SPARES PILE (JACKS) JNUM=0 FOR Y = 0 TO 1 FOR X = 0 TO 1 DRAWSPRITE PLAYFIELD_LEFT + CLEAR_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + CLEAR_Y[JNUM]MY_GRID_Y, EMPTY_JACK,0,1,ALFA JNUM=JNUM+1 NEXT X NEXT Y DRAWMOVESANDTIME NUMSPRITES = 40 CUX = 0 CUY = 0 FOR T = 0 TO 19 CD_USED[T] = 0 NEXT X=0 Y=0 DEALTCARDS = 0 WHILE DEALTCARDS == 0 IF LEVEL[X+LWY] == 1 THEN JX = PLAYFIELD_LEFT + XMY_GRID_X JY = PLAYFIELD_TOP + YMY_GRID_Y TRIGGERANIM CUX,CUY,JX,JY,ANIMLENGTH FOUNDUSED = 1 WHILE FOUNDUSED == 1 FOUNDUSED = 0 FOR T = 0 TO 19 AL = CD_ANIMLENGTH[T] AN = CD_AN[T] IF AN != AL AND AN != AL/2 THEN FOUNDUSED = 1 NEXT CARDANIM WEND ENDIF X = X + 1 IF X== LW THEN X = 0 Y = Y + 1 IF Y == 7 THEN DEALTCARDS = 1 ENDIF WEND 'JACKS JNUM=0 X=0 Y=0 DEALTCARDS = 0 WHILE DEALTCARDS == 0 JX = PLAYFIELD_LEFT + CLEAR_X[JNUM]MY_GRID_X JY = PLAYFIELD_TOP + CLEAR_Y[JNUM]MY_GRID_Y TRIGGERANIM CUX,CUY,JX,JY,ANIMLENGTH FOUNDUSED = 1 WHILE FOUNDUSED == 1 FOUNDUSED = 0 FOR T = 0 TO 19 AL = CD_ANIMLENGTH[T] AN = CD_AN[T] IF AN != AL AND AN != AL/2 THEN FOUNDUSED = 1 NEXT CARDANIM WEND JNUM=JNUM+1 X = X + 1 IF X== 2 THEN X = 0 Y = Y + 1 IF Y == 2 THEN DEALTCARDS = 1 ENDIF WEND END DEF CHECKPATH(X,Y) IF X == LW OR X == -1 THEN RETURN -1 IF Y == LH OR Y == -1 THEN RETURN -1 RETURN PLAYFIELD[X+LWY] END DEF FLIPCARD(X1,Y1,FACE) 'SPRESPRITE IS USED FOR THE MOVING CARD AND IS VERY HACKY SPARESPRITE = SPARESPRITE+1 IF SPARESPRITE==20 THEN SPARESPRITE=2 CURRENTSPRITE = SPRITEGRID[X1+LWY1] FLIPFRAMES = 20 CD = PLAYFIELD[X1+LWY1] CARD = INT(CD/4) SUIT = CD MOD 4 'VIBRATE 1,3 BEEP FLIPSOUND,0,SFXVOLUME/2,0 'Scratch BEEP FLIPSOUND,0,SFXVOLUME/2,127 'Scratch FOR ROTFRAME = FLIPFRAMES TO 0 STEP -2 VSYNC(1) SPSCALE CURRENTSPRITE,FLOAT(ROTFRAME/FLIPFRAMES),1 SPSCALE CURRENTSPRITE+1,FLOAT(ROTFRAME/FLIPFRAMES),1 IF QUEENMOVE == 0 THEN ' BIG CARD ALSO SPSCALE BIGCARDICON,FLOAT(ROTFRAME/FLIPFRAMES)2,2 SPSCALE BIGCARDSHADDOW,FLOAT(ROTFRAME/FLIPFRAMES)2,2 ENDIF NEXT SPSET CURRENTSPRITE, CARD+14SUIT CUX = PLAYFIELD_LEFT + X1MY_GRID_X CUY = PLAYFIELD_TOP + Y1MY_GRID_Y SPOFS CURRENTSPRITE, CUX, CUY SPSCALE CURRENTSPRITE,FLOAT(ROTFRAME/FLIPFRAMES),1 SPSCALE CURRENTSPRITE+1,FLOAT(ROTFRAME/FLIPFRAMES),1 IF QUEENMOVE == 0 THEN ' BIG CARD ALSO SPSET BIGCARDICON, CARD+14SUIT SPOFS BIGCARDICON, 160, 320 SPSCALE BIGCARDICON,FLOAT(ROTFRAME/FLIPFRAMES)2,2 SPSCALE BIGCARDICON+1,FLOAT(ROTFRAME/FLIPFRAMES)2,2 ENDIF FOR ROTFRAME = 0 TO FLIPFRAMES STEP 2 VSYNC(1) SPSCALE CURRENTSPRITE,FLOAT(ROTFRAME/FLIPFRAMES),1 SPSCALE CURRENTSPRITE+1,FLOAT(ROTFRAME/FLIPFRAMES),1 IF QUEENMOVE == 0 THEN ' BIG CARD ALSO SPSCALE BIGCARDICON,FLOAT(ROTFRAME/FLIPFRAMES)2,2 SPSCALE BIGCARDICON+1,FLOAT(ROTFRAME/FLIPFRAMES)2,2 ENDIF NEXT SPSCALE CURRENTSPRITE,1,1 SPSCALE CURRENTSPRITE+1,1,1 ' BIG CARD ALSO SPSCALE BIGCARDICON,2,2 SPSCALE BIGCARDICON+1,2,2 CURRENTCARD = INT(PLAYFIELD[X1+LWY1]/4) IF CURRENTCARD == 12 THEN ' JACK? CUX = PLAYFIELD_LEFT + X1MY_GRID_X CUY = PLAYFIELD_TOP + Y1MY_GRID_Y CD = PLAYFIELD[X1+LWY1] JX = PLAYFIELD_LEFT + CLEAR_X[NUMJACKS]MY_GRID_X JY = PLAYFIELD_TOP + CLEAR_Y[NUMJACKS]MY_GRID_Y ANIMLENGTH = 50 CD = CARDLIST[49+NUMJACKS] CARD = INT(CD/4) SUIT = CD MOD 4 MYSPRITE = JACKSPRITE[NUMJACKS]-2 SPRITEGRID[X1+LWY1] = CD SPSET MYSPRITE, EMPTY_JACK SPOFS MYSPRITE, JX, JY SPCOLOR MYSPRITE,RGB(255/3,255,255,255) SPSET SPARESPRITE, BLUE_SPRITE SPOFS SPARESPRITE, JX, JY SPSET MYSPRITE+1, SHADDOW_SPRITE SPOFS MYSPRITE+1, JX+8, JY+8 SPCOLOR MYSPRITE+1,RGB(255/3,255,255,255) ' THE FLIP SOUND IS STEREO, SO PLAYING IT THROUGH THE LEFT AND RIGHT ' SPEAKER "ALMOST" TURNS IT MONO BEEP FLIPSOUND,0,SFXVOLUME/2,0 'Scratch BEEP FLIPSOUND,0,SFXVOLUME/2,127 'Scratch FOR ROTFRAME = FLIPFRAMES TO 0 STEP -2 VSYNC(1) SPSCALE SPARESPRITE,FLOAT(ROTFRAME/FLIPFRAMES),1 SPSCALE MYSPRITE+1,FLOAT(ROTFRAME/FLIPFRAMES),1 NEXT SPSET SPARESPRITE, CARD+14SUIT SPOFS SPARESPRITE, JX, JY SPSCALE SPARESPRITE,FLOAT(ROTFRAME/FLIPFRAMES),1 FOR ROTFRAME = 0 TO FLIPFRAMES STEP 2 VSYNC(1) SPSCALE SPARESPRITE,FLOAT(ROTFRAME/FLIPFRAMES),1 SPSCALE MYSPRITE+1,FLOAT(ROTFRAME/FLIPFRAMES),1 NEXT BEEP COLLECTSOUND ALFA = 255/3 SPSET MYSPRITE, EMPTY_JACK SPOFS MYSPRITE, JX, JY SPCOLOR MYSPRITE,RGB(ALFA,255,255,255) SPSET SPARESPRITE, CARD+14SUIT SPOFS SPARESPRITE, JX, JY FOR AN = 0 TO ANIMLENGTH VSYNC 1 X = SMOOTH (AN,CUX,JX-CUX, ANIMLENGTH) Y = SMOOTH (AN,CUY,JY-CUY, ANIMLENGTH) X2 = SMOOTH (ANIMLENGTH-AN,CUX,JX-CUX, ANIMLENGTH) Y2 = SMOOTH (ANIMLENGTH-AN,CUY,JY-CUY, ANIMLENGTH) SPOFS SPARESPRITE, X2, Y2 SPOFS MYSPRITE+1, X2+8, Y2+8 ' CARDS SHADDOW NEXT PLAYFIELD[X1+LWY1] = CARDLIST[49+NUMJACKS] CURRENTCARD = INT(PLAYFIELD[X1+LWY1]/4) MOVESLEFT = CARDVALUES[CURRENTCARD] MOVESTYLE = 0 NUMJACKS=NUMJACKS+1 ENDIF IF CURRENTCARD == 13 THEN ' WILDCARD? ' RENDERLEVEL BEEP COLLECTSOUND JX = PLAYFIELD_LEFT + WYLD_X[NUMWYLDCARDS]MY_GRID_X JY = PLAYFIELD_TOP + WYLD_Y[NUMWYLDCARDS]MY_GRID_Y WYLD_C[NUMWYLDCARDS] = CD NUMWYLDCARDS = NUMWYLDCARDS+1 ENDIF RETURN THISCARD END DEF CHECKMOVE(X,Y, DIRECTION) ' 0 = LEFT, 1 = RIGHT ' 2 = UP, = DOWN IF MOVESTYLE == 1 THEN IF DIRECTION >=2 THEN RETURN 0 ENDIF IF MOVESTYLE == 2 THEN IF DIRECTION <= 1 THEN RETURN 0 ENDIF IF MOVESLEFT == 0 THEN RETURN 0 IF X<0 OR Y<0 THEN RETURN 0 IF X>=LW OR Y>=LH THEN RETURN 0 IF PLAYFIELD[X+LWY] >-1 THEN IF HOLDINGWILDCARD == 1 THEN RETURN 1 IF CARDFACE[X+LWY] == 0THEN CURRENTPATH[PATHCOUNT] = DIRECTION IF MOVESLEFT <= 10 THEN PATHCOUNT = PATHCOUNT + 1 ENDIF RETURN 1 ENDIF ENDIF RETURN 0 END DEF PLAYLEVEL IF B_RIGHT[NEW] THEN IF CUR == 2 THEN CUR = 3 IF CHECKMOVE(CURSORX+1,CURSORY, 1) != 0 THEN IF MOVESLEFT != 99 AND HOLDINGWILDCARD == 0 THEN MOVESLEFT = MOVESLEFT - 1 CURSORX = CURSORX + 1 BEEP MOVESOUND IF CURRENTCARD == 10 OR CURRENTCARD == 11 THEN MOVESTYLE = 1 ENDIF ELSE ' IF NEXT SPACE NOT OK, ARE WE ALLOWED TO GO FURTHER? IF CUR > 1 THEN FINDCURSORX DIDMOVE=0 FOR S=CURSORX+1 TO CX2 IF CHECKMOVE(S,CURSORY, 1) != 0 THEN CURSORX = S BEEP MOVESOUND DIDMOVE = 1 BREAK ENDIF NEXT ENDIF IF DIDMOVE == 0 THEN BEEP MOVEFAILSOUND ENDIF ELSEIF B_LEFT[NEW] THEN IF CUR == 2 THEN CUR = 3 IF CHECKMOVE(CURSORX-1,CURSORY, 0) != 0 THEN IF MOVESLEFT != 99 AND HOLDINGWILDCARD == 0 THEN MOVESLEFT = MOVESLEFT - 1 CURSORX = CURSORX - 1 BEEP MOVESOUND IF CURRENTCARD == 10 OR CURRENTCARD == 11 THEN MOVESTYLE = 1 ENDIF ELSE ' IF NEXT SPACE NOT OK, ARE WE ALLOWED TO GO FURTHER? IF CUR > 1 THEN FINDCURSORX DIDMOVE=0 FOR S=CURSORX-1 TO CX1 STEP -1 IF CHECKMOVE(S,CURSORY, 0) != 0 THEN CURSORX = S BEEP MOVESOUND DIDMOVE = 1 BREAK ENDIF NEXT ENDIF IF DIDMOVE == 0 THEN BEEP MOVEFAILSOUND ENDIF ELSEIF B_UP[NEW] THEN IF CUR == 2 THEN CUR = 4 IF CHECKMOVE(CURSORX,CURSORY-1, 2) != 0 THEN IF MOVESLEFT != 99 AND HOLDINGWILDCARD == 0 THEN MOVESLEFT = MOVESLEFT - 1 CURSORY = CURSORY - 1 BEEP MOVESOUND IF CURRENTCARD == 10 OR CURRENTCARD == 11 THEN MOVESTYLE = 2 ENDIF ELSE ' IF NEXT SPACE NOT OK, ARE WE ALLOWED TO GO FURTHER? IF CUR > 1 THEN FINDCURSORY DIDMOVE=0 FOR S=CURSORY-1 TO CY1 STEP -1 IF CHECKMOVE(CURSORX,S, 2) != 0 THEN CURSORY = S BEEP MOVESOUND DIDMOVE = 1 BREAK ENDIF NEXT ENDIF IF DIDMOVE == 0 THEN BEEP MOVEFAILSOUND ENDIF ELSEIF B_DOWN[NEW] THEN IF CUR == 2 THEN CUR = 4 IF CHECKMOVE(CURSORX,CURSORY+1, 3) != 0 THEN IF MOVESLEFT != 99 AND HOLDINGWILDCARD == 0 THEN MOVESLEFT = MOVESLEFT - 1 CURSORY = CURSORY + 1 BEEP MOVESOUND IF CURRENTCARD == 10 OR CURRENTCARD == 11 THEN MOVESTYLE = 2 ENDIF ELSE ' IF NEXT SPACE NOT OK, ARE WE ALLOWED TO GO FURTHER? IF CUR > 1 THEN FINDCURSORY DIDMOVE=0 FOR S=CURSORY+1 TO CY2 IF CHECKMOVE(CURSORX,S, 3) != 0 THEN CURSORY = S BEEP MOVESOUND DIDMOVE = 1 BREAK ENDIF NEXT ENDIF IF DIDMOVE == 0 THEN BEEP MOVEFAILSOUND ENDIF ELSEIF B_A[NEW] THEN '------[ PRESS A ]----- IF MOVESLEFT >0 AND MOVESLEFT <12 THEN BEEP MOVEFAILSOUND IF MOVESLEFT == 0 OR CURRENTCARD == 10 OR CURRENTCARD == 11 OR HOLDINGWILDCARD == 1 THEN IF HOLDINGWILDCARD == 1 THEN 'CARDFACE[X+LWY] == 0 HOLDINGWILDCARD = 0 NUMWYLDCARDS = NUMWYLDCARDS - 1 ENDIF OLDCURSORX = CURSORX OLDCURSORY = CURSORY ' IF KING / QUEEN IF CURRENTCARD == 11 THEN QUEENMOVE = 1 IF CUR == 3 THEN ' L/R CURSOR FOR S=CX1 TO CX2 IF CARDFACE[S+LWCURSORY] != 1 THEN IF CURSORX != S THEN TEMP=FLIPCARD(S,CURSORY,1) CARDFACE[S+LWCURSORY] = 1 ENDIF ENDIF NEXT ELSEIF CUR == 4 THEN ' U/D CURSOR FOR S=CY1 TO CY2 IF CARDFACE[CURSORX+LWS] != 1 THEN IF CURSORY != S THEN TEMP=FLIPCARD(CURSORX,S,1) CARDFACE[CURSORX+LWS] = 1 ENDIF ENDIF NEXT ENDIF QUEENMOVE = 0 ENDIF TEMP = FLIPCARD(CURSORX,CURSORY,1) FOR T = 0 TO (LWLH)-1 IF CARDFACE[T] == 2 THEN CARDFACE[T] = 0 NEXT T CD = CURSORX+LWCURSORY CARDFACE[CD]=1 CURRENTCARD = INT(PLAYFIELD[CURSORX+LWCURSORY]/4) MOVESLEFT = CARDVALUES[CURRENTCARD] MOVESTYLE = 0 FINDCURSORX FINDCURSORY ' SELECT THE CURSOR STYLE BASD ON THE CURRENT CARD CUR = CURSORSTYLE[CURRENTCARD] PATHCOUNT = 0 ENDIF ELSEIF B_B[NEW] THEN '------[ PRESS B ]----- SPSET CURSORSPRITENUMBER, CURSOR_SPRITE SPOFS CURSORSPRITENUMBER, -100, C_ANIM_Y ' ARE WE USING THE WILDCARD? IF HOLDINGWILDCARD == 0 THEN IF PATHCOUNT==0 THEN IF NUMWYLDCARDS > 0 THEN HOLDINGWILDCARD = 1 ENDIF ELSE IF PATHCOUNT==0 THEN HOLDINGWILDCARD = 0 ENDIF ENDIF ' ANIMATE THE REWIND ' 0 = LEFT, 1 = RIGHT ' 2 = UP, = DOWN CX = CURSORX CY = CURSORY FOR T = PATHCOUNT-1 TO 0 STEP -1 CURRENTSPRITE = SPRITEGRID[CX+LWCY] X = PLAYFIELD_LEFT + CXMY_GRID_X Y = PLAYFIELD_TOP + CYMY_GRID_Y ' UPDATE THE CURSPR POSITION DONE = 0 WHILE DONE == 0 C_ANIM_X = C_ANIM_X - ((C_ANIM_X-X)/2) C_ANIM_Y = C_ANIM_Y - ((C_ANIM_Y-Y)/2) IF ABS(C_ANIM_X-X) <2 THEN C_ANIM_X = X IF ABS(C_ANIM_Y-Y) <2 THEN C_ANIM_Y = Y IF C_ANIM_X == X THEN IF C_ANIM_Y == Y THEN DONE = 1 ENDIF SPSET 0, CURSOR_SPRITE SPOFS 0, C_ANIM_X, C_ANIM_Y VSYNC 1 WEND SPSET CURRENTSPRITE, BLUE_SPRITE SPOFS CURRENTSPRITE, X, Y BEEP REMOVESOUND IF CURRENTPATH[T]==0 THEN CX=CX+1 IF CURRENTPATH[T]==1 THEN CX=CX-1 IF CURRENTPATH[T]==2 THEN CY=CY+1 IF CURRENTPATH[T]==3 THEN CY=CY-1 NEXT CURSORX = OLDCURSORX CURSORY = OLDCURSORY FOR T = 0 TO (LWLH)-1 IF CARDFACE[T] == 2 THEN CARDFACE[T] = 0 NEXT T CD = CURSORX+LWCURSORY CARDFACE[CD]=1 CURRENTCARD = INT(PLAYFIELD[CURSORX+LWCURSORY]/4) MOVESLEFT = CARDVALUES[CURRENTCARD] MOVESTYLE = 0 ' SELECT THE CURSOR STYLE BASD ON THE CURRENT CARD CUR = CURSORSTYLE[CURRENTCARD] PATHCOUNT = 0 ENDIF IF B_X[NEW] THEN SHOWALLCARDS = 1-SHOWALLCARDS ' SHOW PATH WITH RED CARDS IF CARDFACE[CURSORX+LWCURSORY] != 1 THEN IF CURRENTCARD != 10 AND CURRENTCARD != 11 THEN IF HOLDINGWILDCARD == 0 THEN CARDFACE[CURSORX+LWCURSORY]=2 ENDIF ENDIF ENDIF END DEF STARTLEVEL LOADLEVEL(0) UPDATEBUTTONS WHILE B_A[HELD] WEND STARTED = 0 WHILE STARTED == 0 CURSORX = RND(LW) CURSORY = RND(LH) WHILE LEVEL[CURSORX+LWCURSORY]!=1 CURSORX = RND(LW) CURSORY = RND(LH) WEND OLDCURSORX = CURSORX OLDCURSORY = CURSORY AIMX = PLAYFIELD_LEFT + ((CURSORX-1)MY_GRID_X)+(CURSORWIDTH16) AIMY = PLAYFIELD_TOP + ((CURSORY-1)MY_GRID_Y)+(CURSORHEIGHT16) C_ANIM_X = AIMX C_ANIM_Y = AIMY RENDERLEVEL BEEP REMOVESOUND FOR T = 0 TO 10 WAIT 1 UPDATEBUTTONS IF B_A[HELD] THEN STARTED = 1 NEXT WEND OLDCURSORX = CURSORX OLDCURSORY = CURSORY C_ANIM_X = CURSORX C_ANIM_Y = CURSORY AIMX = PLAYFIELD_LEFT + ((CURSORX-1)MY_GRID_X)+(CURSORWIDTH16) AIMY = PLAYFIELD_TOP + ((CURSORY-1)MY_GRID_Y)+(CURSORHEIGHT16) C_ANIM_X = AIMX C_ANIM_Y = AIMY RENDERLEVEL TEMP = FLIPCARD(CURSORX,CURSORY,1) CARDFACE[CURSORX+LWCURSORY]=1 CURRENTCARD = INT(PLAYFIELD[CURSORX+LWCURSORY]/4) MOVESLEFT = CARDVALUES[CURRENTCARD] ' SELECT THE CURSOR STYLE BASD ON THE CURRENT CARD CUR = CURSORSTYLE[CURRENTCARD] FINDCURSORX FINDCURSORY 'STARTTIME$ = TIME$() T_SECONDS=0 T_MINUTES=0 T_HOURS=0 GAMEMODE = 10 BGMPLAY 0, BGMUSIC, BGMVOLUME END DEF CONTROLSTARTMENU RENDERLEVEL IF B_UP[NEW] AND MENUITEM >0 THEN MENUITEM = MENUITEM - 1 IF B_DOWN[NEW] AND MENUITEM <2 THEN MENUITEM = MENUITEM + 1 IF B_A[NEW] THEN STARTMENUOPEN = 1-STARTMENUOPEN GAMEMODE = 10 IF MENUITEM == 0 THEN ' QUITE GAME GAMEMODE = 0 ENDIF IF MENUITEM == 1 THEN ' HELP? GAMEMODE = 0 ENDIF IF MENUITEM == 3 THEN ' ABOUT GAMEMODE = 0 ENDIF ENDIF END DEF MAIN IF GAMEHASSTARTED == 0 THEN BGMSTOP INITGFX ENDIF GAMEHASSTARTED = 1 ' DO SOME FRAMERATE LIMITING OLDTIME = MILLISEC() FRAMEDELAY = 1000/TARGETFPS OLDMIL = MILLISEC() FPSCOUNTER = 0 FPSCOUNT = 0 WHILE(1) ' MAIN LOOP ' NUMSPRITES = 0 UPDATEBUTTONS CASE GAMEMODE WHEN 0 TITLESCREEN WHEN 9 STARTLEVEL WHEN 10 PLAYLEVEL IF LEVELCOMPLETED == 1 THEN GAMEMODE = 20 WHEN 15 CONTROLSTARTMENU WHEN 20 WINSCREEN ENDCASE 'FPS COUNTER IF MILLISEC() >= OLDTIME + 1000 THEN OLDTIME = MILLISEC() FPSCOUNT = FPSCOUNTER FPSCOUNTER = 0 T_SECONDS = T_SECONDS + 1 IF T_SECONDS == 60 THEN T_SECONDS = 0 T_MINUTES = T_MINUTES + 1 IF T_MINUTES == 60 THEN T_MINUTES = 0 T_HOURS = T_HOURS + 1 IF T_HOURS == 24 THEN T_HOURS = 0 ENDIF ENDIF ENDIF ENDIF ' DELAY UNTIL CORRECT FRAMERATE IF LIMITFRAMERATE==1 THEN WHILE MILLISEC() < OLDMIL WAIT 0.025 WEND OLDMIL = MILLISEC()+FRAMEDELAY ENDIF CASE GAMEMODE WHEN 10 RENDERLEVEL ON BREAK GOTO @START_HIT ENDCASE ' PRINT FPSCOUNT;" FPS" FPSCOUNTER = FPSCOUNTER + 1 WEND END END @START_HIT CASE GAMEMODE WHEN 10 STARTMENUOPEN = 1-STARTMENUOPEN GAMEMODE = 15 GOTO @RETURN_10 ENDCASE END DEF INITGFX BACKCOLOR MY_BGCOLOUR XSCREEN 1280/MY_SCALE,720/MY_SCALE, MY_SCALE, 0 LOADG "SPRITE_SHEET",4 CREATEFONT TSCREEN 16 ' ALL THE CARD SPRITES T=0 FOR Y = 0 TO 3 FOR X = 0 TO 13 SPDEF T,X96,384+Y96,96,96, 96/2, 96/2 T=T+1 NEXT NEXT ' CURSOR SPDEF CURSOR_SPRITE,288,768,96,96, 96/2, 96/2 ' RED CARD SPDEF RED_SPRITE,192,768,96,96, 96/2, 96/2 ' BLUE CARD SPDEF BLUE_SPRITE,96,768,96,96, 96/2, 96/2 ' SHADDOW SPDEF SHADDOW_SPRITE,0,768,96,96, 96/2, 96/2 ' EMPTY CARD PLACE SPDEF EMPTY_CARD,1248,768,96,96, 96/2, 96/2 ' EMPTY WILD CARD PLACE SPDEF EMPTY_WILD,1056,768,96,96, 96/2, 96/2 ' EMPTY CARD PLACE SPDEF EMPTY_JACK,1152,768,96,96, 96/2, 96/2 ' KING / QUEEN CURSOR SPDEF L_TRAY,480,768,96,96, 96/2, 96/2 SPDEF H_TRAY,576,768,96,96, 96/2, 96/2 SPDEF R_TRAY,672,768,96,96, 96/2, 96/2 SPDEF T_TRAY,768,768,96,96, 96/2, 96/2 SPDEF V_TRAY,864,768,96,96, 96/2, 96/2 SPDEF B_TRAY,960,768,96,96, 96/2, 96/2 SPDEF WORDBGSPRITE,528,1344,172,54, 172/2, 54/2 SPDEF PLUSSPRITE,528,1408,38,38, 38/2, 38/2 SPDEF CLOCKSPRITE,576,1408,38,38, 38/2, 38/2 SPDEF MENUBACKGROUND, 0,0,303,223, 0, 0 SPDEF MENUBACKGROUNDSHADDOW, 304,0,303,223, 0, 0 ' TITLESCREEN STUFF SPDEF LETTERSPRITE[0],528 ,1456,166,215 ' N SPDEF LETTERSPRITE[1],698 ,1456,150,215 ' O SPDEF LETTERSPRITE[2],847 ,1456,164,215 ' G SPDEF LETTERSPRITE[3],1016,1456,99 ,215 ' I SPDEF LETTERSPRITE[4],1120,1456,175,215 ' Y SPDEF LETTERSPRITE[5],1297,1456,155,215 ' U SPDEF LETTERSPRITE[6],1458,1456,225,215 ' W SPDEF LETTERSPRITE[7],1120,1673,147,215 ' L SPDEF LETTERSPRITE[8],1271,1673,129,215 ' S SPDEF LETTERSPRITE[9],1403,1673,154,215 ' E END DEF DRAWSPRITE X,Y,FRAME, ANGLE, SCALE, ALPHA SPSET NUMSPRITES, FRAME SPOFS NUMSPRITES, X, Y SPROT NUMSPRITES, ANGLE SPSCALE NUMSPRITES, SCALE,SCALE SPCOLOR NUMSPRITES,RGB(ALPHA,255,255,255) ' SPSCALE NUMSPRITES,1,1 NUMSPRITES = NUMSPRITES + 1 END DEF DRAWCARD CARD, SUIT, X, Y ALF = 255 IF CARD == 99 THEN ' DRAWSPRITE X, Y, 4,0,1,ALF DRAWSPRITE X, Y, BLUE_SPRITE,0,1,ALF DRAWSPRITE X+8, Y+8, SHADDOW_SPRITE,0,1,ALF/3 ELSEIF CARD == 98 THEN ' RED CARD ' DRAWSPRITE X, Y, RED_SPRITE,0,1,ALF ' DRAWSPRITE X+8, Y+8, SHADDOW_SPRITE,0,1,ALF/3 ELSEIF CARD == 97 THEN ' RED CARD DRAWSPRITE X, Y, RED_SPRITE,0,1,ALF DRAWSPRITE X+8, Y+8, SHADDOW_SPRITE,0,1,ALF/3 ELSE ' NORMAL CARD DRAWSPRITE X, Y, (CARD+14SUIT),0,1,ALF DRAWSPRITE X+8, Y+8, SHADDOW_SPRITE,0,1,ALF/3 ENDIF END '____ ____ _ _ ___ ____ ____ ____ ____ ____ ____ ____ _ _ '\|__/ \|___ \|\ \| \| \ \|___ \|__/ [__ \| \|__/ \|___ \|___ \|\ \| '\| \ \|___ \| \\| \|__/ \|___ \| \ ___] \|___ \| \ \|___ \|___ \| \\| DEF RENDERLEVEL LEVELCOMPLETED = 0 VSYNC 1 ' WAIT FOR SYNC SPCLR ' CLEAR THE SPRITES AWAY ' IF FIRSTFRAME==1 THEN ' FIRSTFRAME=0 'GCLS ' CLEAR THE GFX SCREEN 'FOR Y = 0 TO (720/256) ' FOR X = 0 TO (1280/256) ' GCOPY 4,0,0,255,255, X256,Y256,0 ' NEXT 'NEXT ' ENDIF CLS ' CLEAR THE TEXT LAYER BACKCOLOR MY_BGCOLOUR NUMSPRITES = 20 IF CURSORX != OLDCURSORX OR CURSORY != OLDCURSORY THEN DRAWCURSOR 1 ELSE DRAWCURSOR 0 ENDIF STARTSPRITE = NUMSPRITES ' USE THIS TO DISCOVER THE CURRENT CARD ' MAIN PLAYFIELD LEVELCOMPLETED = 1 T = 0 FOR Y = 0 TO 6 FOR X = 0 TO LW-1 IF LEVEL[X+LWY] == 1 THEN SPRITEGRID[X+LWY] = NUMSPRITES IF SHOWALLCARDS THEN CD=PLAYFIELD[X+LWY] DRAWCARD INT(CD/4),CD MOD 4,PLAYFIELD_LEFT + XMY_GRID_X, PLAYFIELD_TOP + YMY_GRID_Y ELSE IF CARDFACE[X+LWY] == 1 THEN ' FACE UP CD=PLAYFIELD[X+LWY] DRAWCARD INT(CD/4),CD MOD 4,PLAYFIELD_LEFT + XMY_GRID_X, PLAYFIELD_TOP + YMY_GRID_Y ELSEIF CARDFACE[X+LWY] == 0 THEN ' FACE DOWN CD=PLAYFIELD[X+LWY] DRAWCARD 99,CD MOD 4,PLAYFIELD_LEFT + XMY_GRID_X, PLAYFIELD_TOP + YMY_GRID_Y LEVELCOMPLETED = 0 ELSEIF CARDFACE[X+LWY] == 2 THEN ' CURRENT PATH CD=PLAYFIELD[X+LWY] DRAWCARD 97,CD MOD 4,PLAYFIELD_LEFT + XMY_GRID_X, PLAYFIELD_TOP + YMY_GRID_Y LEVELCOMPLETED = 0 ENDIF ENDIF T=T+1 ' TCOLOR 0,RGB(0,255,0) ' LOCATE X4,Y4 ' PRINT T ENDIF NEXT NEXT ' WYLD CARDS PILE SPAREOFFSET = PLAYFIELD_LEFT + 10MY_GRID_X ' PRINT T JNUM=0 FOR Y = 0 TO 1 FOR X = 0 TO 1 IF JNUM<NUMWYLDCARDS THEN ALFA = 255 DRAWCARD WYLD_C[JNUM]/4,WYLD_C[JNUM]MOD 4,PLAYFIELD_LEFT + WYLD_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + WYLD_Y[JNUM]MY_GRID_Y ' DRAWSPRITE PLAYFIELD_LEFT + WYLD_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + WYLD_Y[JNUM]MY_GRID_Y, WYLD_C[JNUM],0,1,ALFA ' SPSCALE NUMSPRITES-1,FLOAT(ROTFRAME/48),1 ELSE ALFA = 255/3 DRAWSPRITE PLAYFIELD_LEFT + WYLD_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + WYLD_Y[JNUM]MY_GRID_Y, EMPTY_WILD,0,1,ALFA SPRITEGRID[X+LWY] = NUMSPRITES ENDIF JNUM=JNUM+1 NEXT X NEXT Y ' SPARES PILE (JACKS) SPAREOFFSET = PLAYFIELD_LEFT + 10MY_GRID_X JNUM=0 ALFA = 255/3 FOR Y = 0 TO 1 FOR X = 0 TO 1 IF JNUM < NUMJACKS THEN DRAWSPRITE PLAYFIELD_LEFT + CLEAR_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + CLEAR_Y[JNUM]MY_GRID_Y, EMPTY_JACK,0,1,ALFA ' DRAWCARD CARDLIST[T]/4,CARDLIST[T]MOD 4,PLAYFIELD_LEFT + CLEAR_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + CLEAR_Y[JNUM]MY_GRID_Y ELSE IF SHOWALLCARDS THEN DRAWCARD CARDLIST[T]/4,CARDLIST[T]MOD 4,PLAYFIELD_LEFT + CLEAR_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + CLEAR_Y[JNUM]MY_GRID_Y ELSE ' DRAWSPRITE PLAYFIELD_LEFT + CLEAR_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + CLEAR_Y[JNUM]MY_GRID_Y, EMPTY_JACK,0,1,ALFA DRAWCARD 99,CARDLIST[T]MOD 4,PLAYFIELD_LEFT + CLEAR_X[JNUM]MY_GRID_X, PLAYFIELD_TOP + CLEAR_Y[JNUM]MY_GRID_Y ENDIF JACKSPRITE[JNUM] = NUMSPRITES ENDIF T=T+1 JNUM=JNUM+1 NEXT X NEXT Y DRAWMOVESANDTIME DONECHECK=0 X1 = PLAYFIELD_LEFT + ((CURSORX-1)MY_GRID_X)+(CURSORWIDTH16) Y1 = PLAYFIELD_TOP + ((CURSORY-1)MY_GRID_Y)+(CURSORHEIGHT16) 'CHECT ALL SPRITES FOR POSITION COMPARED TO CURSOR, BUT SKIP THE CURSOR FOR T = STARTSPRITE TO NUMSPRITES-1 XX=0 : YY=0 SPOFS T OUT XX,YY IF XX == X1 AND YY == Y1 AND DONECHECK == 0 THEN ' LOCATE XX/16,YY/16 ' COLOR RGB(0,0,0) CURRENTSPRITE = T ' PRINT T DONECHECK=1 ENDIF NEXT ' TY=0 ' FOR SCALE = 130 TO 10 STEP -10 ' MYPRINT "SCALE = "+STR$(SCALE)+"%",0,TY,SCALE:TY=TY+(72FLOAT(SCALE/100)) ' NEXT END DEF STRWIDTH(STRING$,PERCENT) SCALE = FLOAT(PERCENT/100) WIDTH=0 FOR T=0 TO LEN(STRING$)-1 CH = ASC(MID$(STRING$,T,1))-32 WIDTH = WIDTH + FDAT[CH,3] NEXT RETURN WIDTHSCALE END DEF MYPRINT STRING$,X,Y,PERCENT TEXTX=X TEXTY=Y SCALE = FLOAT(PERCENT/100) PRIORITY = -10 ' SPRITE PRIORITY, KEEP TEXT IN THE FRONT FOR T=0 TO LEN(STRING$)-1 CH = ASC(MID$(STRING$,T,1))-32 SP = FDAT[CH,0]' CHARACTER NUMBER W = FDAT[CH,3]' WIDTH H = FDAT[CH,4]' HEIGHT OX = FDAT[CH,5]' OFFSET X OY = FDAT[CH,6]' OFFSET Y R = FDAT[CH,7] SPSET NUMSPRITES, SP SPOFS NUMSPRITES, TEXTX+(OXSCALE), TEXTY+(OYSCALE),PRIORITY SPSCALE NUMSPRITES,SCALE,SCALE NUMSPRITES=NUMSPRITES+1 TEXTX = TEXTX + (RSCALE) NEXT END DEF DRAWCURSOR TYPE CURSORSPRITENUMBER = NUMSPRITES ' UPDATE THE CURSPR POSITION AIMX = PLAYFIELD_LEFT + ((CURSORX-1)MY_GRID_X)+(CURSORWIDTH16) AIMY = PLAYFIELD_TOP + ((CURSORY-1)MY_GRID_Y)+(CURSORHEIGHT16) C_ANIM_X = C_ANIM_X - ((C_ANIM_X-AIMX)/3) C_ANIM_Y = C_ANIM_Y - ((C_ANIM_Y-AIMY)/3) IF ABS(C_ANIM_X-AIMX) <2 THEN C_ANIM_X = AIMX IF ABS(C_ANIM_Y-AIMY) <2 THEN C_ANIM_Y = AIMY ' NORMAL CURSOR ' IF CUR == 1 THEN X1 = PLAYFIELD_LEFT + ((CURSORX-1)MY_GRID_X)+(CURSORWIDTH16) Y1 = PLAYFIELD_TOP + ((CURSORY-1)MY_GRID_Y)+(CURSORHEIGHT16) WIDTH = (CURSORWIDTH-1)16 HEIGHT = (CURSORHEIGHT-1)16 ' DRAWSPRITE X1, Y1, CURSOR_SPRITE,0,1,255 DRAWSPRITE C_ANIM_X, C_ANIM_Y, CURSOR_SPRITE,0,1,255 ' ENDIF ' LEFT-RIGHT CUSROR IF CUR == 3 OR CUR ==2 THEN X1 = PLAYFIELD_LEFT + ((CX1-1)MY_GRID_X)+(CURSORWIDTH16) Y1 = PLAYFIELD_TOP + ((CURSORY-1)MY_GRID_Y)+(CURSORHEIGHT16) WIDTH = ((CX2-CX1)MY_GRID_X)+((CURSORWIDTH-1)16) HEIGHT = (CURSORHEIGHT-1)16 DIA = 8 DRAWSPRITE X1, Y1, L_TRAY,0,1,255 FOR T = 0 TO CURSORWIDTH-1 DRAWSPRITE X1+T96, Y1, H_TRAY,0,1,255 NEXT DRAWSPRITE X1+CURSORWIDTH96, Y1, R_TRAY,0,1,255 ENDIF ' UP-DOWN CURSOR IF CUR == 4 OR CUR == 2 THEN X1 = PLAYFIELD_LEFT + ((CURSORX-1)MY_GRID_X)+(CURSORWIDTH16) Y1 = PLAYFIELD_TOP + ((CY1-1)MY_GRID_Y)+(CURSORHEIGHT16) WIDTH = (CURSORWIDTH-1)16 HEIGHT = ((CY2-CY1)MY_GRID_Y)+((CURSORHEIGHT-1)16) DRAWSPRITE X1, Y1, T_TRAY,0,1,255 FOR T = 0 TO CURSORHEIGHT-1 DRAWSPRITE X1, Y1+T96, V_TRAY,0,1,255 NEXT DRAWSPRITE X1, Y1+CURSORHEIGHT96, B_TRAY,0,1,255 ENDIF IF TYPE == 1 THEN DRAWCARD 98, 0,PLAYFIELD_LEFT + CURSORXMY_GRID_X, PLAYFIELD_TOP + CURSORYMY_GRID_Y ENDIF END DEF FINDCURSORX GOTLEFT = 0 GOTRIGHT=0 FOR XX = 0 TO 6 IF GOTLEFT==0 THEN IF LEVEL[XX+LWCURSORY] == 1 THEN GOTLEFT=1 CX1=XX ENDIF ENDIF IF GOTRIGHT==0 THEN IF LEVEL[(12-XX)+LWCURSORY] == 1 THEN GOTRIGHT=1 CX2=(12-XX) ENDIF ENDIF NEXT END DEF FINDCURSORY GOTTOP = 0 GOTBOTTOM=0 FOR YY = 0 TO 6 IF GOTTOP==0 THEN IF LEVEL[CURSORX+LWYY] == 1 THEN GOTTOP=1 CY1=YY ENDIF ENDIF IF GOTBOTTOM==0 THEN IF LEVEL[CURSORX+LW(6-YY)] == 1 THEN GOTBOTTOM=1 CY2=(6-YY) ENDIF ENDIF NEXT END DEF SMOOTH(T, B, C, D) RETURN ((TC)/D)+B END DEF UPDATEPAD PAD, VR B_UP[PAD] = VR AND 1 B_DOWN[PAD] = (VR >> 1) AND 1 B_LEFT[PAD] = (VR >> 2) AND 1 B_RIGHT[PAD] = (VR >> 3) AND 1 B_A[PAD] = (VR >> 4) AND 1 B_B[PAD] = (VR >> 5) AND 1 B_X[PAD] = (VR >> 6) AND 1 B_Y[PAD] = (VR >> 7) AND 1 END DEF UPPAD JOY_CODE EXPAD = COMPLETEPAD COMPLETEPAD = JOY_CODE UPDATEPAD HELD, COMPLETEPAD UPDATEPAD RELEASED, (EXPAD AND (NOT COMPLETEPAD)) UPDATEPAD NEW, (COMPLETEPAD AND (NOT EXPAD)) END DEF UPDATEBUTTONS VR = 0 SL = 0 SR = 0 SU = 0 SD = 0 STICK 0,0 OUT SX,SY IF SX < -0.75 THEN SL = 1 IF SX > 0.75 THEN SR = 1 IF SY < -0.75 THEN SU = 1 IF SY > 0.75 THEN SD = 1 VR = VR OR (Button(0,#B_LUP ,0)OR SU) ' UP VR = VR OR ((Button(0,#B_LDOWN ,0)OR SD) << 1) ' DOWN VR = VR OR ((Button(0,#B_LLEFT ,0)OR SL) << 2) ' LEFT VR = VR OR ((Button(0,#B_LRIGHT,0)OR SR) << 3) ' RIGHT VR = VR OR (Button(0,#B_RRIGHT,0) << 4) ' A VR = VR OR (Button(0,#B_RDOWN ,0) << 5) ' B VR = VR OR (Button(0,#B_RUP ,0) << 6) ' X VR = VR OR (Button(0,#B_RLEFT ,0) << 7) ' Y UPPAD VR END DEF CREATEFONT FOR T = 0 TO 94 'READ SN READ X READ Y READ W READ H READ OX READ OY READ AX FDAT[T,0]=T+1024 ' CHARACTER NUMBER FDAT[T,1]=X ' SPRITESHEET X FDAT[T,2]=Y ' SPRITESHEET Y + 1344 FDAT[T,3]=W ' WIDTH FDAT[T,4]=H ' HEIGHT FDAT[T,5]=OX ' OFFSET X FDAT[T,6]=OY ' OFFSET Y FDAT[T,7]=AX ' Y DIFFERENCE ' CREATE A SPRITE DEFINE FOR EACH CHARACTER SPDEF T+1024,X,1344+Y,W,H, OX, OY NEXT END @FONTDATA ' DATA FOR FONT LAYOUTS ' X , Y , W , H , OX,OY ,XA ' char DATA 0,0,0,0,0,0,12 DATA 129,142,14,56,1,12,16 DATA 214,379,24,22,0,12,25 DATA 146,142,34,56,-2,12,30 DATA 15,0,29,64,0,8,29 DATA 310,0,43,58,0,11,43 DATA 362,81,33,57,-1,12,31 DATA 241,379,14,22,0,12,14 DATA 47,0,19,64,1,8,20 DATA 69,0,19,64,0,8,20 DATA 391,320,34,32,-2,12,31 DATA 34,379,31,31,-1,24,29 DATA 165,379,14,23,0,54,14 DATA 333,379,22,13,-1,33,20 DATA 294,379,14,14,0,54,14 DATA 183,142,32,56,-2,12,29 DATA 356,0,30,58,-1,11,29 DATA 218,142,22,56,3,12,29 DATA 398,81,29,57,0,11,29 DATA 389,0,30,58,-1,11,29 DATA 243,142,33,56,-2,12,29 DATA 0,142,29,57,0,12,29 DATA 0,81,30,58,0,11,29 DATA 279,142,30,56,-1,12,29 DATA 33,81,31,58,-1,11,29 DATA 67,81,30,58,-1,11,29 DATA 17,379,14,41,0,27,14 DATA 0,379,14,50,0,27,14 DATA 68,379,28,30,0,25,29 DATA 182,379,29,23,0,28,29 DATA 99,379,28,30,1,25,29 DATA 32,142,30,57,-2,11,27 DATA 185,0,52,63,-1,9,51 DATA 312,142,33,56,-2,12,29 DATA 348,142,30,56,0,12,30 DATA 100,81,30,58,-1,11,28 DATA 381,142,30,56,0,12,30 DATA 0,202,28,56,0,12,27 DATA 31,202,27,56,0,12,25 DATA 133,81,30,58,-1,11,29 DATA 61,202,30,56,0,12,31 DATA 414,142,14,56,0,12,14 DATA 94,202,21,56,-2,12,20 DATA 118,202,32,56,0,12,30 DATA 153,202,27,56,0,12,25 DATA 183,202,39,56,0,12,39 DATA 225,202,31,56,0,12,31 DATA 166,81,30,58,-1,11,29 DATA 259,202,29,56,0,12,28 DATA 240,0,32,62,-1,11,29 DATA 291,202,30,56,0,12,30 DATA 199,81,29,58,-1,11,27 DATA 324,202,30,56,-2,12,27 DATA 65,142,29,57,0,12,29 DATA 357,202,32,56,-2,12,28 DATA 0,261,44,56,-2,12,41 DATA 392,202,33,56,-2,12,30 DATA 47,261,33,56,-2,12,29 DATA 83,261,30,56,-2,12,27 DATA 91,0,19,64,1,8,20 DATA 116,261,32,56,-2,12,29 DATA 113,0,19,64,0,8,20 DATA 130,379,32,25,-2,12,29 DATA 15,67,28,11,-3,63,22 DATA 311,379,19,14,6,0,37 DATA 151,261,33,56,-2,12,29 DATA 187,261,30,56,0,12,30 DATA 231,81,30,58,-1,11,28 DATA 220,261,30,56,0,12,30 DATA 253,261,28,56,0,12,27 DATA 284,261,27,56,0,12,25 DATA 264,81,30,58,-1,11,29 DATA 314,261,30,56,0,12,31 DATA 347,261,14,56,0,12,14 DATA 364,261,21,56,-2,12,20 DATA 388,261,32,56,0,12,30 DATA 0,320,27,56,0,12,25 DATA 30,320,39,56,0,12,39 DATA 72,320,31,56,0,12,31 DATA 297,81,30,58,-1,11,29 DATA 106,320,29,56,0,12,28 DATA 275,0,32,62,-1,11,29 DATA 138,320,30,56,0,12,30 DATA 330,81,29,58,-1,11,27 DATA 171,320,30,56,-2,12,27 DATA 97,142,29,57,0,12,29 DATA 204,320,32,56,-2,12,28 DATA 239,320,44,56,-2,12,41 DATA 286,320,33,56,-2,12,30 DATA 322,320,33,56,-2,12,29 DATA 358,320,30,56,-2,12,27 DATA 135,0,22,64,-1,8,20 DATA 0,0,12,78,12,4,37 DATA 160,0,22,64,-1,8,20 DATA 258,379,33,16,-2,32,29 DATA 391,355,30,21,-1,34,29 --v -=-=- Check out my excellent homepage!
Sat, 19 Apr 2025, 09:54
Jayenkai	Um. Cool, I guess! I'd have to faff about with that 150+ times!!! -=-=- ''Load, Next List!''
Page : 1 2 3 4 5 6 7 Prev 8 Next