Skip to content

Instantly share code, notes, and snippets.

@tomaes tomaes/barrier.bas
Last active May 28, 2019

Embed
What would you like to do?
Final(?) IchigoJam mini game. Launch an arrow. Get through the scrolling barrier to earn cash prizes.
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
60 IF H H=H+1: LC 4+H,23-H: ? "â";: IF H=21 H=0: F=11
62 WAIT 1
63 IF H LC 4+H,23-H: ?" "
64 IF S>0 AND F<>1 SCROLL 2: GOTO 30
66 IF S=0 ?"NO $ LEFT"
68 IF F=1 AND S>50 ?"WELL DONE!"
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.