_________________________________________________________________________ Title: Snailrace Version: 1.1 Author: Henrik Stenberg Size: 796 bytes Description: Compete against the computer and bet your money on snails. Goal of the game: Get \$50000 Note: How much money you win depend on how many winners there are and how much money there is in the pot. _________________________________________________________________________ Command translation: --> Assign (Above DEL) ==> Then (Shift 7 F1 F1) <= Less or equal (Shift 7 F2 F6) >= Greater or equal (Shift 7 F2 F5) @ Disp (Shift 7 F5) ± Theta (Alpha Range) r (Alpha Graph) _________________________________________________________________________ Program : 'SNAILRACE Mcl 92 --> W ;9700GE: 125 --> W 50000 --> Z ;Change this if you want a higher goal 2000 --> E~H Lbl 0 E>0 ==> "CASIO GOT:":E @ F>0 ==> "TI GOT:":F @ G>0 ==> "HP GOT:":G @ H>0 ==> "YOU GOT:":H @ E>0 ==> "CASIO BET:":Int (Ran#E --> I @ F>0 ==> "TI BET:":Int (Ran#F --> J @ G>0 ==> "HP BET:":Int (Ran#G --> K @ "YOU BET"? --> L L>H ==> H --> L "SNAIL 1,2,3,4" @ E>0 ==> "CASIO CHOOSE:":Int (3Ran#+1 --> M @ F>0 ==> "TI CHOOSE:":Int (3Ran#+1 --> N @ G>0 ==> "HP CHOOSE:":Int (3Ran#+1 --> O @ "YOU CHOOSE"? --> P 1 --> A~D 0 --> S~V Range 1,95,0,1,63,0 ;9700GE: Range 1,127,0,1,63,0 Plot W,1 Plot W,63 Line Lbl 1 Plot A,52 Plot B,39 Plot C,26 Plot D,13 A+3Ran# --> A B+3Ran# --> B C+3Ran# --> C D+3Ran# --> D A B C D Goto 1 A>=W ==> 1 --> R B>=W ==> 2 --> R C>=W ==> 3 --> R D>=W ==> 4 --> R "WINNER SNAIL:":R @ M=R ==> 1 --> S N=R ==> 1 --> T O=R ==> 1 --> U P=R ==> 1 --> V 0 --> Y I+J+K+L+±+1000 --> X S=1 ==> I+Y --> Y T=1 ==> J+Y --> Y U=1 ==> K+Y --> Y V=1 ==> L+Y --> Y S=1 ==> Int(I/Y*X+E --> E T=1 ==> Int(J/Y*X+F --> F U=1 ==> Int(K/Y*X+G --> G V=1 ==> Int(L/Y*X+H --> H S=0 ==> E-I --> E T=0 ==> F-J --> F U=0 ==> G-K --> G V=0 ==> H-L --> H S+T+U+V --> r ±>0 ==> r>0 ==> "BONUS REWARD!" @ ;Winners get a bonus if no one won previous race r=0 ==> X --> ± r>0 ==> 0 --> ± H<=0 ==> Goto 3 E>=Z ==> Goto 3 F>=Z ==> Goto 3 G>=Z ==> Goto 3 H>=Z ==> Goto 2 Goto 0 Lbl 2 " YOU WON!" Goto 4 Lbl 3 " GAMEOVER" Lbl 4 "See ya soon!" _________________________________________________________________________