Skip to content

Instantly share code, notes, and snippets.

@tomaes

tomaes/barrier.bas

Last active May 28, 2019 15:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tomaes/f550749164a36abbc923f7c795f736f0 to your computer and use it in GitHub Desktop.
Save tomaes/f550749164a36abbc923f7c795f736f0 to your computer and use it in GitHub Desktop.
Download ZIP
Final(?) IchigoJam mini game. Launch an arrow. Get through the scrolling barrier to earn cash prizes.
Raw
barrier.bas
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