Quantcast XP Math - Forums - View Single Post - Game! (TI83 Program)
View Single Post
Old 04-20-2009   #25
cambernae
 
Join Date: Sep 2008
Posts: 6
Default

Quote:
Originally Posted by Scion View Post
NOTE BY ARCHIVE: You may see // in the program. These are followed by comments I put. Do not enter these into your calculator!

PHP Code:
://ADDED BY REDFIRE:
:Menu("RPG","Play",1,"Quit",2)
:
Lbl 2 
:Clrhome
:Stop
://ADDED BY ARCHIVE:
:Lbl 1
:Clrhome
:Disp "Enter your name"
:Disp "And stats that"
:Disp "Add up to 100" // Archive it wouldn't fit on one  line so i had to carry it on to the next
:Input "Name?",Str1
:Input "Strength?",A
:Input "Intelligence?",B
:Input "Magic?",C
:Input "Charisma?",D
:If A+B+C+!= 100:Then //By the way, on the calculator, it's a = with a line through it; but that's impossible on a ASCII system.
:Disp "Sum is not 100!"
:Else
:
4A->//On the computer it's an actual arrow instead of a ->. See above.
:2B+25->S
:6D->R
:5C->L
:Disp "Welcome,"
:Disp Str1
:Disp "Fight a goblin!"
:Pause
:Goto 3
:Lbl 3
:1000->Y
:75->E
:120->F
:Disp "--Goblin--"
:Disp "HP:"
:Disp Y
:Disp "Attacks:"
:Disp "Claw: 75"
:Disp "Slash: 120"
:Pause
:Disp "--You--"
:Disp "HP:"
:Disp H
:Disp "1) Steal HP"
:Disp "2) Revive"
:Disp "3) Lightning Strike"
:Pause
:Input "Choice?",G
:While G=1
:randInt(S-10,S+10)->I
:I->O
:0->G
:End
:While G=2
:randInt(R-10,R+10)->O
:0->I
:0->G
:End
:While G=3
:randInt(L-10,L+10)->I
:0->O
:0->G
:End
:randInt(1,2)->J
:While J=1
:F->K
:0->J
:End
:While J=1
:E->K
:0->J
:End 
:Y-I->Y
:H+O->H
:H-K->H
:Disp "You dealt"
:Disp I
:Disp "And healed"
:Disp O
:Disp "And recieved"
:Disp K
:If Y<=0:Then //On the calculator, it's an actual "less than or equal to", but see above comments.
:Goto 4
:If H<=0:Then
:Goto 5
:Goto 3
:Stop
:Lbl 4
:Disp "You won!"
:Stop
:Lbl 5
:Disp "You lost. :("
:Stop 
what are these.
cambernae is offline   Reply With Quote