Game T183 (Calculator)

[jmw106462]

ok so i started making this game on the t183 Graphic Calculator!

If you guys want to make one your self check out this site ticalc.org



It isnt finish heres a part of it

:Lbl 7
:Clt Home
: Disp Str1
: Disp " "
: Disp "NOW YOU HAVE TO"
: Disp " "
: Disp "FIght A GOBLIN"
:1000 -> J
:75 -> K
:150 -> L
:Pause
:Lbl 8
:ClrHome
: Disp "GOBLIN"
: Disp "HP:"
: Disp J
: Disp "ATTACKS:"
: Disp "CLAW: 75"
: Disp "SLASH: 150"
:Pause
:ClrHome
: Disp "YOU"
: Disp "HP:"
: Disp "1)STEAL HP"
: Disp "2)REVIVE"
: Disp "3)ATTACK"
: Disp " "
:Input "CHOICE= ",E
:While E/=1 and E/=2 and E/=3
: Delvar E
:Goto 8
:End
:While E=1
:randInt(F-12,F+12) -> M
:M->N
:M-12->M
: Delvar E
:End
:While E=2
:randInt(G-12,G+12) -> N
:0->M
:0->E
:End
While E=3
:randInt(I-12,I+12) -> M
:0->N
:0->E
:End
:randInt(1,2) -> O
:While 0=1
:K->P
:0->O
:End
:While O=2
:L->P
:0->O
:End
:J-M->J
:H+N->H
:H-P->H
:ClrHome
: Disp "YOU DEALT",M
: Disp "AND HEALED",D
: Disp "AND RECEIVED",P
:Pause
:If J<=0 "<=" means less than or equal to, so don't type "<="
:Then
:ClrHome
: Disp "CONGRATULATIONS"
: Disp " "
: Disp Str1
: Disp "YOU WON"
:Pause
:Goto 99
:End
:If H<=0
:Then
:ClrHome
: Disp "SORRY"
: Disp Str1
: Disp " "
: Disp "YOU LOST"
:Pause
:Goto 99
:Else
:Goto 8
:End

[orac343]

Question
What is the usage of when, when you are programming is it saying when something is this do something?
If so though that is similar to If right? ex:
When n=0
Disp "You died"
If n=0
Disp "You died"
Technically that would have the same purpose am I right since I'm confuse on its purpose.
Correct me if I'm wrong
Thank You!

[jmw106462]

Originally Posted by orac343

Question
What is the usage of when, when you are programming is it saying when something is this do something?
If so though that is similar to If right? ex:
When n=0
Disp "You died"
If n=0
Disp "You died"
Technically that would have the same purpose am I right since I'm confuse on its purpose.
Correct me if I'm wrong
Thank You!

Ok, Your half correct see how mine is done? Ok? You just put down things on how the game runs so the ending part on mine i could put that at the top. You Don't Have to do it in Order it Corrects it self. If that's not what your asking please Re-Post ill be happy to post what your asking.

ty,jmw106462

[jmw106462]

://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

[jmw106462]

So if you don't know how to Programm on the T183 or on anything ill be happy to let you use mine.



ty,jmw106462

[meetballs]

Thanks for the site but i don't know how to get the t183 Calculator? Could you help me Plez?

[jmw106462]

Yes, of course ill help you! Give me your Email Adress so i can send you the Calculator download lnk.



~jmw106462~

Originally Posted by meetballs

Thanks for the site but i don't know how to get the t183 Calculator? Could you help me Plez?

[jmw106462]

Okay, Thanks i sent you the lnk you should get it.

[jmw106462]

These post are so old. I think we should LOCK THIS TOPIC.

[cbb21410]

how do make a graphic calculater to much time on ur hands

Originally Posted by jmw106462

ok so i started making this game on the t183 Graphic Calculator!

If you guys want to make one your self check out this site ticalc.org



It isnt finish heres a part of it

:Lbl 7
:Clt Home
: Disp Str1
: Disp " "
: Disp "NOW YOU HAVE TO"
: Disp " "
: Disp "FIght A GOBLIN"
:1000 -> J
:75 -> K
:150 -> L
:Pause
:Lbl 8
:ClrHome
: Disp "GOBLIN"
: Disp "HP:"
: Disp J
: Disp "ATTACKS:"
: Disp "CLAW: 75"
: Disp "SLASH: 150"
:Pause
:ClrHome
: Disp "YOU"
: Disp "HP:"
: Disp "1)STEAL HP"
: Disp "2)REVIVE"
: Disp "3)ATTACK"
: Disp " "
:Input "CHOICE= ",E
:While E/=1 and E/=2 and E/=3
: Delvar E
:Goto 8
:End
:While E=1
:randInt(F-12,F+12) -> M
:M->N
:M-12->M
: Delvar E
:End
:While E=2
:randInt(G-12,G+12) -> N
:0->M
:0->E
:End
While E=3
:randInt(I-12,I+12) -> M
:0->N
:0->E
:End
:randInt(1,2) -> O
:While 0=1
:K->P
:0->O
:End
:While O=2
:L->P
:0->O
:End
:J-M->J
:H+N->H
:H-P->H
:ClrHome
: Disp "YOU DEALT",M
: Disp "AND HEALED",D
: Disp "AND RECEIVED",P
:Pause
:If J<=0 "<=" means less than or equal to, so don't type "<="
:Then
:ClrHome
: Disp "CONGRATULATIONS"
: Disp " "
: Disp Str1
: Disp "YOU WON"
:Pause
:Goto 99
:End
:If H<=0
:Then
:ClrHome
: Disp "SORRY"
: Disp Str1
: Disp " "
: Disp "YOU LOST"
:Pause
:Goto 99
:Else
:Goto 8
:End