tomaes
/ barrier.bas
Last active
May 28, 2019 15:37
Final(?) IchigoJam mini game. Launch an arrow. Get through the scrolling barrier to earn cash prizes.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 5 'barrier game | |
| 10 CLS: CLT | |
| 12 S=100: H=0: F=0 | |
| 30 IF !RND(6) LC 10,0: ? "ãã ãã ãã" | |
| 37 IF F F=F-1 | |
| 38 S=S-1 | |
| 50 LC 4, 23: ? CHR$(251); | |
| 52 LC 25,12: ? "$";S | |
| 55 IF INKEY()=32 AND H=0 H=1 | |
| 58 IF H AND SCR(4+H,23-H)=ASC("ã") VIDEO 2: WAIT 4: VIDEO 1: BEEP: H=0: F=0 |
tomaes
/ heartcash2.bas
Last active
May 25, 2019 09:43
IchigoJam mini game; collect coins and hearts in equal amounts and leave when you have enough of both.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 5 'heartcash II | |
| 10 CLS | |
| 12 Y=0: M=20: H=20: P=229 | |
| 14 C=245: D=C-P: O=320: L=O/32 | |
| 16 LC 0,L-1: ? CHR$(226);" exit::::::::::::::::::::::::" | |
| 18 LC 0,L+2: ? CHR$(227);" exit::::::::::::::::::::::::" | |
| 20 IF RND(8) POKE#91E+O+32*RND(2),P+RND(2)*D | |
| 30 COPY #900+O,#901+O,31: COPY #920+O,#921+O,31 | |
| 50 Y=Y-BTN(UP)+BTN(DOWN) | |
| 51 IF M M=M-1 |
tomaes
/ minesonar_enhanced.bas
Created
May 23, 2019 16:35
Minesonar, enhanced. IchigoJam edition. With a fancy title header.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 ' minesonar enhanced, IchigoJam Edition | |
| 20 CLS: CLT | |
| 30 LET R, 0 | |
| 32 LET X, RND(8)+1 | |
| 34 LET Y, RND(8)+1 | |
| 35 : | |
| 38 ? ".";CHR$(251);: ? " Mine Sonar,IchigoJam edition" | |
| 39 ? CHR$(154);: FOR I=1 TO 28: ? CHR$(176);: NEXT: ? "*"; CHR$(244) | |
| 40 ?: ? "There is a (possibly moving)" | |
| 42 ? "hidden mine in an 8x8 field!" |
tomaes
/ ichigojamperformance.bas
Last active
May 23, 2019 13:00
Simple IchigoJam performance test app
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 20 CLV: CLK: CLS: W=40: LED 0 | |
| 30 LC 2,5: ?"IchigoJam Performance Tests" | |
| 40 LC 2,6: FOR I=0 TO 26: ? CHR$(145);: NEXT | |
| 50 LC 2,8: ?"(1) VRAM" | |
| 60 LC 2,9: ?"(2) CHARSET" | |
| 70 LC 2,10:?"(3) SCROLL" | |
| 74 LC 2,11:?"(4) RNG" | |
| 75 LC 2,12:?"(5) LED" | |
| 77 LC 2,13:?"(Q) EXIT TO OS" | |
| 90 K=INKEY(): IF K=0 GOTO 90 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 'ラン | IchigoJam BASIC | |
| 12 CLS | |
| 13 CLT | |
| 14 Y=12 | |
| 20 LC 4,Y | |
| 22 ?CHR$(251) | |
| 26 LC 28,RND(23) | |
| 28 ?CHR$(6);CHR$(6);CHR$(6) | |
| 30 SCROLL 3 | |
| 33 Y=Y-BTN(UP)+BTN(DOWN) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 ' What's more? in ICHIGO JAM BASIC | |
| 10 S = 6: Z = 1: R = 0 | |
| 12 Q = RND(4) | |
| 20 IF Q = 0 B=225 | |
| 22 IF Q = 1 B=228 | |
| 23 IF Q = 2 B=236 | |
| 24 IF Q = 3 B=250 | |
| 30 CLT | |
| 40 : | |
| 50 CLS |
tomaes
/ digitreaction.bas
Created
May 20, 2019 15:47
Another tiny game; this time in IchigoJam BASIC. Press the right key, don't press the wrong key. Hurry to make it to 1k points.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 'digit reaction | |
| 10 CLV | |
| 20 R=0 | |
| 22 X=RND(28) | |
| 23 C=RND(9)+48 | |
| 30 LC X,23: ?CHR$(C) | |
| 33 R=R+1: S=S-R | |
| 40 K=INKEY(): IF K=0 GOTO 30 | |
| 50 IF K<>C S=S-200: LC X,23: ?"NOPE!": GOTO 30 | |
| 60 S=S+150: ?"SCORE:";S |
tomaes
/ fluffy.bas
Created
May 19, 2019 07:13
Original in IchigoJam BASIC by @fu-sen: https://gist.github.com/fu-sen/69452ec698b16b4f3059af673aa52dcf
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 REM ﾌﾜﾌﾜ GW-BASIC port /w sound | |
| 11 CLS: RANDOMIZE TIMER | |
| 12 XM=80: YM=24: X=XM/2: Y=1: OC=239: L=30 | |
| 14 B=INT(RND*(XM-L*2))+L: SOUND 200,.5 | |
| 15 UP=0: L=30-S/10: IF L<1 THEN L=1 | |
| 16 LOCATE YM,B: PRINT CHR$(OC) | |
| 17 A$=INKEY$: X=X+(A$="a")-(A$="s") | |
| 18 IF SCREEN(Y+1,X)=OC THEN Y=Y+1: SOUND 800,1 | |
| 19 IF SCREEN(Y,X)=OC THEN GOSUB 40 ELSE Y=Y+1 | |
| 20 IF X<1 OR X>XM OR Y<1 OR Y>YM THEN 30 |
tomaes
/ colorconfusion.bas
Last active
May 21, 2019 12:59
The Commodore Plus/4 supports 121 colors. Let's use 3 of them for a micro game. Quickly press the first letter of the color shown (not the color word displayed)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 vol 5 | |
| 12 s=999: r=0 | |
| 20 a$(0)="black": a(0)=1 | |
| 22 a$(1)="grey ": a(1)=2 | |
| 24 a$(2)="red ": a(2)=3 | |
| 30 r=r+1 | |
| 32 c=int(rnd(1)*3) | |
| 33 d=int(rnd(1)*3) | |
| 35 color1,a(d),5: printa$(c); | |
| 38 n=0: e=0 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # What's more? | |
| # a quick guesstimation game | |
| # (Emoji-enhanced Ruby version) | |
| require 'time' | |
| cont = true | |
| r = 0 | |
| t = Time.now.to_f |