REM A REMIX OF ERICISONIT'S WORDLE GAME REM WORD DATABASE FROM ESLFORUMS.COM/4-LETTER-WORDS/ REM REMIXED WITH WORDMASTER CLUES BY WAS8BIT TOUCHSCREEN GOSUB MAININIT START: GUESS=0 CURLETTER=0 FOR I=0 TO MAXGUESS FOR J=0 TO LEND GUESSES$(I,J)=" " RESULTS(I,J)=0 NEXT J NEXT I CLS INUM=1 FOR Y=0 TO 14 PAL 5 TEXT 0,Y,STR$(INUM) INC INUM FOR X=11 TO 17 STEP 2 PAL 7 CELL X,Y,35 CELL X+1,Y,32 NEXT X NEXT Y REM PRINT WORDCOUNT ANSWER$=WORDLIST$(RND(WORDCOUNT-1)) TRACE ANSWER$ SCROLL 0,-4,0 SCROLL 1,0,0 CALL UPDATE WINNER=0 DO IF TOUCH THEN WHILE TOUCH WAIT VBL WEND TX=TOUCH.X TY=TOUCH.Y BT=(GAMEY+(GUESS*2))*8 BL=(GAMEX*8) BR=(GAMEX+10)*8 BB=((GUESS+1)*2+GAMEY)*8 IF TY>=BT AND TY<=BB THEN IF TX>=BL AND TX<=BR THEN CURLETTER=((TX\8)-GAMEX)\2 CALL UPDATE END IF END IF ELSE K$=INKEY$ IF K$<>"" THEN IF ASC(K$)=8 THEN IF CURLETTER>0 THEN CURLETTER=CURLETTER-1 GUESSES$(GUESS,CURLETTER)=" " CALL UPDATE END IF ELSE IF ASC(K$)>=ASC("A") AND ASC(K$)<=ASC("Z") THEN GUESSES$(GUESS,CURLETTER)=K$ CURLETTER=(CURLETTER+1) MOD 5 CALL UPDATE T$="" CALL CHECKFORGUESS(T$) IF T$<>"" THEN IF T$<>ANSWER$ THEN CALL ANALYZE(T$) INC GUESS CURLETTER=0 IF GUESS>MAXGUESS THEN CALL SHOWANSWER(R_RED) GOTO GAMEOVER END IF CALL UPDATE ELSE CALL ANALYZE(T$) WINNER=-1 CALL SHOWANSWER(R_GREEN) GOTO GAMEOVER END IF END IF END IF END IF END IF WAIT VBL LOOP GAMEOVER: IF NOT WINNER THEN SPRITE OFF 0 WHILE TOUCH WAIT VBL WEND W=0 K$=INKEY$ WHILE (NOT TOUCH) AND (K$="") K$=INKEY$ IF WINNER THEN SPRITE 0,(GAMEX+(W*2))*8,(GAMEY+(MAXGUESS+1)*1)*8-16, INC W W=W MOD 4 END IF WAIT 5 WEND GOTO START SUB SHOWANSWER(R) BG 1 FOR C=0 TO LEND PAL R FOR IY=0 TO 1 FOR IX=0 TO 1 CELL GAMEX+(C*2)+IX,GAMEY+IY+((MAXGUESS+1)*1)-2,SQCELL+(IY*16)+IX NEXT IX NEXT IY NEXT C BG 0 PAL 4 FOR C=0 TO LEND CELL GAMEX+(C*2),GAMEY+((MAXGUESS+1)*1)-2,225+ASC(MID$(ANSWER$,C+1,1))-ASC("A") NEXT C END SUB SUB ANALYZE(T$) DIM SCORE(LEND) REM YELLOW=2, GREEN=3 RED=0 YELLOW=0 GREEN=0 'FIND GREEN FOR I=0 TO LEND L$=MID$(T$,I+1,1) A$=MID$(ANSWER$,I+1,1) IF L$=A$ THEN SCORE(I)=3 NEXT I 'FIND YELLOW FOR I=0 TO LEND ISCORE=0 IF SCORE(I)=0 THEN FOR II=0 TO LEND IF ISCORE=0 AND SCORE(II)=0 THEN L$=MID$(T$,I+1,1) A$=MID$(ANSWER$,II+1,1) IF L$=A$ THEN SCORE(I)=2 ISCORE=1 END IF END IF NEXT II END IF NEXT I FOR I=0 TO LEND IF SCORE(I)=0 THEN INC RED IF SCORE(I)=2 THEN INC YELLOW IF SCORE(I)=3 THEN INC GREEN NEXT I FOR X=11 TO 17 STEP 2 IF GREEN>0 THEN PAL 1 DEC GREEN ELSE IF YELLOW>0 THEN PAL 2 DEC YELLOW ELSE PAL 3 END IF CELL X+1,GUESS,32 NEXT X END SUB SUB CHECKFORGUESS(R$) R$="" FOR I=0 TO LEND IF GUESSES$(GUESS,I)=" " THEN R$="" EXIT SUB ELSE R$=R$+GUESSES$(GUESS,I) END IF NEXT I END SUB SUB UPDATE FOR I=0 TO GUESS CALL DRAWROW(I) NEXT I SPRITE 0 SIZE 1 PAL 4 SPRITE 0,(CURLETTER*2+GAMEX)*8,(GAMEY+(GUESS*1))*8-16,4 END SUB SUB DRAWROW(G) BG 1 FOR C=0 TO LEND PAL RESULTS(G,C) FOR IY=0 TO 1 FOR IX=0 TO 1 CELL GAMEX+(C*2)+IX,GAMEY+(G*1)+IY-2,SQCELL+(IY*16)+IX NEXT IX NEXT IY NEXT C BG 0 PAL 0 PAL 5 FOR C=0 TO LEND CELL GAMEX+(C*2),GAMEY+(G*1)-2,225+ASC(GUESSES$(G,C))-ASC("A") NEXT C END SUB SUB VB INC BTIMER IF BLINK=BTIMER THEN BTIMER=0 SPRITE 0,,,(((((SPRITE.C(0)-4)+2)\2) MOD 5)*2)+4 END IF END SUB MAININIT: REM DATA TOOL CODE BY WAS8BIT REM MASTER SCORE CODE ADDED BY WAS8BIT REM REMAINING CODE BY ERICISONIT REM FROM ERICISONIT'S WORDLE GAME REM GAME ID#2670 GLOBAL MADD GLOBAL RLEN MADD=ROM(14) RLEN=SIZE(14) GLOBAL WORDCOUNT,GUESS,MAXGUESS,ANSWER$,TRY$ GLOBAL GAMEX,GAMEY,R_GREEN,R_YELLOW,R_RED,SQCELL,CURLETTER,BLINK,BTIMER REM 1,2,3 CHANGED TO 0 R_GREEN=0 R_YELLOW=0 R_RED=0 GAMEX=3 GAMEY=2 SQCELL=2 WORDCOUNT=2500 MAXGUESS=14 BLINK=4 BTIMER=0 DIM GLOBAL WORDLIST$(WORDCOUNT-1),GUESSES$(MAXGUESS,6),RESULTS(MAXGUESS,6) RANDOMIZE TIMER KEYBOARD ON TOUCHSCREEN ON VBL CALL VB GLOBAL LEND LEND=3 WCHECK=WORDCOUNT FOR I=0 TO WCHECK-1 IW=I*4 W$="" CALL GETWORD(IW,W$) WORDLIST$(I)=W$ IF W$<>" " THEN WORDCOUNT=I REM PRINT W$,STR$(I),WORDCOUNT REM WAIT VBL ELSE EXIT END IF NEXT I RETURN SUB GETWORD(MNUM,MTEXT$) MTEXT$="" FOR IX=0 TO 3 MTEXT$=MTEXT$+CHR$(PEEK(MADD+MNUM+IX)+32) NEXT IX END SUB #1:MAIN PALETTES 063F2A00003F0C00003F3C00003F3000 063F1F0B003F3F00002B0400000F0500 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 A0A0A0A0A0A0A0A06060606060606060 05050505050505050303030303030303 20000000000000202020202020202000 04000000000000040404040404040400 00000020202020202020200000000000 00000004040404040404040000000000 00202020202020202000000000000020 00040404040404040400000000000004 20202020202020000000002020202020 04040404040404000000000404040404 20202000000000000020202020202020 04040400000000000004040404040404 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7EC381818181C37E7EFFFFFFFFFFFF7E 7EC381818181C37E7EC381818181C37E 7EC381818181C37E7EC381818181C37E 000081ABD5810000000081ABD5810000 #14:MESSAGES 212225242122253421222C2521222C39 21223534212321292123252421232533 21232825212328392123292421232D25 21232E25212332252123343321242433 2124293421243A2521252F2E21262132 2126322F212721322127252421272533 21272F27212735252128252D21292425 2129243321292C3321292D3321293233 21293239212A2132212B292E212C2132 212C2133212C2533212C2721212C2C39 212C2D33212C2F25212C332F212C342F 212C352D212D222F212D252E212D2924 212D2D2F212D2F2B212D3033212D392C 212E2433212E2537212E2B28212E2E21 212E2F2E212E3429212E343321302533 21302538213030332130332521313521 21322328213225212132292121322924 2132292C21322B3321322D3321322D39 2132332521323433213234392132352D 2132392C2133283921332B3321342F2D 21342F3021352E34213532212135342F 2136253221362F372137213921372524 2137253321372C332137323921382524 2138252C2138253321382C2521382F2E 22212221222122252221223922212328 2221232B222124252221243322212733 222128342221292C2221293422212B25 22212C242221292C2221293422212B25 22212C2422212C2522212C2B22212C2C 22212C2D22212E2422212E2522212E27 22212E2B22212E332221322222213224 22213225222132262221322B2221322E 2221323322213325222133282221332B 22213333222133342221342822213433 22213434222135242221372C22213933 222521242225212B2225212D2225212E 2225213222252134222521352225232B 22252433222525262225252E22252530 22252532222525332225253422252733 22252C2C22252C3422252E2422252E34 222532272225322D2225333422253421 22253433222536392225393322292133 22292222222922332229242522292433 222925322229262622292B2522292C25 22292C2B22292C2C22292E2422292E34 22292F33222932242229342522293433 222C2122222C2128222C2522222C2524 222C2537222C2930222C2F22222C2F23 222C2F27222C2F34222C2F37