Quantcast XP Math - Forums - View Single Post - Game T183 (Calculator)
View Single Post
Old 03-14-2010   #4
jmw106462

 
jmw106462's Avatar
 
Join Date: Feb 2010
Posts: 388
Default

://ADDED BY REDFIRE:
:Menu("RPG","Play",1,"Quit",2)
:Lbl 2
:Clrhome
:Stop
://ADDED BY ARCHIVE:
:Lbl 1
:Clrhome
isp "Enter your name"
isp "And stats that"
isp "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+D != 100:Then //By the way, on the calculator, it's a = with a line through it; but that's impossible on a ASCII system.
isp "Sum is not 100!"
:Else
:4A->H //On the computer it's an actual arrow instead of a ->. See above.
:2B+25->S
:6D->R
:5C->L
isp "Welcome,"
isp Str1
isp "Fight a goblin!"
:Pause
:Goto 3
:Lbl 3
:1000->Y
:75->E
:120->F
isp "--Goblin--"
isp "HP:"
isp Y
isp "Attacks:"
isp "Claw: 75"
isp "Slash: 120"
:Pause
isp "--You--"
isp "HP:"
isp H
isp "1) Steal HP"
isp "2) Revive"
isp "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
isp "You dealt"
isp I
isp "And healed"
isp O
isp "And recieved"
isp 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
isp "You won!"
:Stop
:Lbl 5
isp "You lost. "
:Stop

__________________
This is the middle part of my game. When i get it finished you can Copy Right it lol. And use it as yourz i have over 500 of them all different ones.


ty,jmw106462
__________________
Please refrain from sending me frivolous PM's
jmw106462 is offline   Reply With Quote