Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
One more IchigoJam game. Find the missing character in a random four-letter-word. 20 rounds, as quickly as possible. Mistake = score reset. (aka using loop markers and doing String things without String support...)
10 'four-letter words game, IchigoJam BASIC
12 CLV
14 [0]=ASC("W"): [1]=ASC("I"): [2]=ASC("S"): [3]=ASC("H")
16 [4]=ASC("Q"): [5]=ASC("U"): [6]=ASC("I"): [7]=ASC("Z")
18 [8]=ASC("L"): [9]=ASC("O"):[10]=ASC("V"):[11]=ASC("E")
20 [12]=ASC("H"):[13]=ASC("O"):[14]=ASC("M"):[15]=ASC("E")
22 :
24 @MAIN
26 CLT
27 L=RND(4)
28 W=RND(4): W=W*4
29 R=R+1
30 :
31 ? R; ": ";
32 FOR I=0 TO 3
34 IF L<>I ? CHR$([W+I]);
36 NEXT
38 :
40 @KEY
42 A=INKEY(): IF !A GOTO @KEY
43 ? " "; CHR$(A)
44 :
45 IF A=[W+L] ?" + YES":S=S+60-TICK(): ELSE ?" - NO!":S=0:BEEP
46 :
47 IF R < 20 GOTO @MAIN
48 ? "20 ROUNDS COMPLETE!"
50 ? "SCORE:"; S; "x"; CHR$(245)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.