VoyForums
[ Show ]
Support VoyForums
[ Shrink ]
VoyForums Announcement: Programming and providing support for this service has been a labor of love since 1997. We are one of the few services online who values our users' privacy, and have never sold your information. We have even fought hard to defend your privacy in legal cases; however, we've done it with almost no financial support -- paying out of pocket to continue providing the service. Due to the issues imposed on us by advertisers, we also stopped hosting most ads on the forums many years ago. We hope you appreciate our efforts.

Show your support by donating any amount. (Note: We are still technically a for-profit company, so your contribution is not tax-deductible.) PayPal Acct: Feedback:

Donate to VoyForums (PayPal):

[ Login ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 08:10:53 01/13/02 Sun
Author: Zelavian
Subject: anyone whom has a TI-85 calc, might want to look at this

For a long time I have been working on programming a game on a calc, it is a text based rpg and is about ten pages long, i dont expect any of you to copy this down word for word but i am trying to get a friend who can put it on a website and all you guys can just download it, it is not quite finished and their will be patches to come.
Here it is:



:ClLCD
:OutPt(1,1,"Welcome back Sir")
:OutPt(2,1,NAME)
:Pause
:Goto Main
:Lbl NEW
:ClLCD
:Outpt(1,1,"Welcome, Sire, What is your name"
:InpSt NAME
:0->XP
:1->LVL
:0->GP
:0->K
:.9->WR
:3->WDMG
:0->AR
:rand->HL
:HL*100->HL
:round(HL,0)->HL
:If HL<50
:Then
:50->HL
:End
:HL->CHL
:Goto MAIN
:Lbl MAIN
:LVLST
:ClLCD
:Outpt(1,1,"Health=")
:Outpt(1,8,CHL)
:Outpt(2,1,"Heal Cost=5")
:Outpt(4,1,"GP=")
:Outpt(4,4,GP)
:Menu(1,"attack", ATTACK,2,"shop",SHOP,3,"Heal",HEALTH,4,"New",NEW,5,"More",MORE)
:Lbl ATTACK
:LVLST
:If XP(>/=)LVLRQ
:Then
:Goto NLVL
:End
:Lbl ALVL
:Menu(1,"Valley",MLV1,2,"Forest",MLV2,3,"Jungle",MLV3,4,"Desert",MLV4,5,"More",MSEL)
:Lbl MSEL
:Menu(1,"Cave",MLV5,2,"Hell",MLV6,3,"Boss",BOSS,5,"Back",ATTACK)
:Lbl MLV1
:10->EXP
:5->MG
:6->DMLT
:.5->MMR
:40->MMULT
:20->MMIN
:0->MAR
:Goto APHSE
:Lbl MLV2
:30->EXP
:15->MG
:12->DMLT
:.45->MMR
:70->MMULT
:40->MMIN
:2->MAR
:Goto APHSE
:Lbl MLV3
:80->EXP
:25->MG
:17->DMLT
:.35->MMR
:90->MMULT
:60->MMIN
:4->MAR
:Goto APHSE
:Lbl MLV4
:150->EXP
:40->MG
:27->DMLT
:.3->MMR
:150->MMULT
:100->MMIN
:6->MAR
:Goto APHSE
:Lbl MLV5
:400->EXP
:65->MG
:40->DMLT
:.25->MMR
:200->MMULT
:150->MMIN
:10->MAR
:Goto APHSE
:Lbl MLV6
:800->EXP
:100->MG
:60->DMLT
:.2->MMR
:300->MMULT
:250->MMIN
:15->MAR
:Goto APHSE
:Lbl BOSS
:1500->EXP
:500->MG
:200->DMLT
:.1->MMR
:1000->MMULT
:750->MMIN
:50->MAR
:Goto APHSE
:Lbl APHSE
:rand->ML
:ML*MMULT->ML
:round(ML,0)->ML
:If ML :Then
:MMIN->ML
:End
:ML->CML
:rand->T
:round(T,0)->T
:If T==1
:Then
:Goto HA
:Else
:Goto MA
:End
:Lbl HA
:ClLCD
:Outpt(6,1,"You:")
:Outpt(7,1,CHL)
:Outpt(6,16,"Enemy:")
:Outpt(7,18,CML)
:Disp "YOUR TURN"
:Menu(1,"Melee",MELEE,5,"Run",RUN)
:Lbl MELEE
:rand->HR
:round(HR,2)->HR
:If HR(>/=)WR
:Then
:Disp "HIT"
:Goto HHIT
:Else
:Goto HMISS
:End
:Lbl HHIT
:rand->HDMG
:HDMG*WDMG->HDMG
:round(HDMG,0)->HDMG
:If HDMG==0
:Then
:1->HDMG
:End
:HDMG-MAR->HDMG
:If HDMG<0
:Then
:0->HDMG
:End
:Disp "DMG=",HDMG
:CML-HDMG->CML
:Pause
:ClLCD
:If CML( :Then
:XP+EXP->XP
:LVLST
:K+1->K
:rand->G
:G*MG->G
:round(G,0)->G
:Disp "GP GAIN",G
:G+GP->GP
:Disp "TOTAL=",GP
:Disp "Good Job"
:Disp "What Now?"
:Menu(1,"Cont",ATTACK,2,"TOWN",MAIN)
:Else
:Goto MA
:End
:Lbl HMISS
:Disp "MISSED"
:Pause
:ClLCD
:Goto MA
:Lbl RUN
:rand->RUN
:round(RUN,0)->RUN
:If RUN==0
:Then
:Goto MA
:Else
:Goto MAIN
:End
:Lbl MA
:ClLCD
:Outpt(6,1,"YOU:")
:Outpt(7,1,CHL)
:Outpt(6,16,"ENEMY:")
:Outpt(7,18,CML)
:Disp "Monst Turn"
:Pause
:rand->MR
:round(MR,2)->MR
:If MR :Then
:Disp "It Missed"
:Pause
:ClLCD
:Goto HA
:Else
:Goto MHIT
:End
:Lbl MHIT
:Disp "HIT"
:rand->MDMG
:MDMG*DMLT->MDMG
:round(MDMG,0)->MDMG
:If MDMG==0
:Then
:1->MDMG
:End
:MDMG-AR->MDMG
:If MDMG<0
:Then
:0->MDMG
:End
:Disp "DMG=",MDMG
:CHL-MDMG->CHL
:Pause
:ClLCD
:If CHL( :Then
:Disp "You Lost"
:Pause
:Goto NEW
:Else
:Goto HA
:End
:Lbl SHOP
:ClLCD
:Menu(1,"WEAP",WEAP,2,"ARMOR",ARMOR,3,"POTS",POTS,5,"BACK",MAIN)
:Lbl WEAP
:Disp "Hello."
:Pause
:ClLCD
:Menu(1,"DAGGER",DAG,2,"SHORT",SS,3,"LONG",LS,4,"BROAD",BS,5,"MORE",WL1)
:Lbl WL1
:Menu(1,"WAR",WS,2,"FLAMBERGE",FLAM,3,"GIANT",GS,4,"BASTARD",BAS,5,"MORE",WL2)
:Lbl WL2
:Menu(1,"GREAT",GRS,2,"HEAVENLY",HEAS,4,"MORE",WEAP,5,"EXIT",SHOP)
:Lbl WMOD
:Outpt(1,1,WN)
:Outpt(2,1,WCOST)
:Outpt(2,15,"GP"
:Menu(1,"CONT",CONT,2,"BACK",WEAP)
:Lbl CONT
:If GP :Then
:Outpt(3,1,"SRY")
:Pause
:Goto WEAP
:Else
:GP-WCOST->GP
:WD->WDMG
:W->WR
:WN->WNAME
:Goto SHOP
:Lbl DAG
:0->WCOST
:10->WD
:.5->W
:"DAGGER"->WN
:Goto WMOD
:Lbl SS
:15->WCOST
:15->WD
:.45->W
:"Short Sword"->WN
:Goto WMOD
:Lbl LS
:40->WCOST
:25->WD
:.4->W
:"Long Sword"->WN
:Goto WMOD
:Lbl BS
:80->WCOST
:40->WD
:.35->W
:"Broad Sword"->WN
:Goto WMOD
:Lbl WS
:150->WCOST
:60->WD
:.3->W
:"WAR SWORD"->WN
:Goto WMOD
:Lbl FLAM
:250->WCOST
:100->WD
:.25->W
:"FLAMBERGE"->WN
:Goto WMOD
:Lbl GS
:400->WCOST
:150->WD
:.2->W
:"GIANT SWORD"->WN
:Goto WMOD
:Lbl BAS
:1000->WCOST
:225->WD
:.17->W
:"BASTARD SWORD"->WN
:Goto WMOD
:Lbl GRS
:5000->WCOST
:400->WD
:.15->W
:"GREAT SWORD"->WN
:Goto WMOD
:Lbl HEAS
:50000->WCOST
:1000->WD
:.1->W
:"HEAVENLY SWORD"->WN
:Goto WMOD
:Lbl ARMOR
:Disp "Welcome"
:Pause
:ClLCD
:Menu(1,"QUILTED",QUILT,2,"LEATHER",LEAT,3,"LIGHT",LIGHT,4,"HEAVY",HEAVY,5,"BACK",SHOP)
:Lbl AMOD
:Outpt(1,1,AN)
:Outpt(2,1,AG)
:Outpt(2,20,"GP")
:Menu(1,"CONT",AC,2,"BACK",ARMOR)
:Lbl AC
:If GP :Then
:Outpt(2,1,"SRY")
:Pause
:ClLCD
:Goto ARMOR
:Else
:GP-AG->GP
:A->AR
:AN->ARMORN
:Goto SHOP
:Lbl QUILT
:ClLCD
:Menu(1,"QUILTED",QUILTED,2,"PADDED",PAD,5,"BACK",ARMOR)
:Lbl QUILTED
:0->AG
:1->A
:"QUILTED"->AN
:Goto AMOD
:Lbl PAD
:10->AG
:2->A
:"PADDED"->AN
:Goto AMOD
:Lbl LEAT
:ClLCD
:Menu(1,"LEATHER",LEATHER,2,"HARD",HARD,3,"STUDDED",STUD,5,"BACK",ARMOR)
:Lbl LEATHER
:30->AG
:4->A
:"LEATHER"->AN
:Goto AMOD
:Lbl HARD
:40->AG
:6->A
:"HARD LEATHER"->AN
:Goto AMOD
:Lbl STUD
:60->AG
:7->A
:"STUDDED LEATHER"->AN
:Goto AMOD
:Lbl LIGHT
:Menu(1,"CHAIN",CHAIN,2,"BREAST",BREAST,3,"LIGHT",LGHT,4,"MAGE",MAGE,5,"BACK",ARMOR)
:Lbl CHAIN
:80->AG
:9->A
:"CHAIN MAIL"->AN
:Goto AMOD
:Lbl BREAST
:90->AG
:10->A
:"BREAST PLATE"->AN
:Goto AMOD
:Lbl LGHT
:150->AG
:12->A
:"LIGHT PLATE"->AN
:Goto AMOD
:Lbl MAGE
:170->AG
:13->A
:"MAGE PLATE"->AN
:Goto AMOD
:Lbl HEAVY
:Menu(1,"PLATE MAIL",PM,2,"FIELD",FP,3,"FULL",FUP,4,"KINGS",KP,5,"HEAVENLY",HP)
:Lbl PM
:500->AG
:15->A
:"PLATE MAIL"->AN
:Goto AMOD
:Lbl FP
:800->AG
:18->A
:"FIELD PLATE"->AN
:Goto AMOD
:Lbl FUP
:1500->AG
:23->A
:"FULL PLATE"->AN
:Goto AMOD
:Lbl KP
:10000->AG
:30->A
:"KINGS PLATE"->AN
:Goto AMOD
:Lbl HP
:50000->AG
:50->A
:"HEAVENLY PLATE"->AN
:Goto AMOD
:Lbl POTS
:Lbl HEALTH
:ClLCD
:If GP<5
:Then
:Disp "SRY"
:Pause
:Goto MAIN
:Else
:HL->CHL
:GP-5->GP
:Outpt(7,1,"HEALED")
:Pause
:ClLCD
:Goto MAIN
:Lbl MORE
:ClLCD
:Disp "KILLS=",K
:Menu(1,"SAVE",SAVE,2,"LOAD",LOAD,3,"STAT",STAT,4,"MAIN",MAIN,5,"EXIT",EXIT)
:Lbl EXIT
:ClLCD
:Stop
:Lbl NLVL
:XP-LVLRQ->XP
:1+LVL->LVL
:rand->NHL
:NHL*100->NHL
:round(NHL,0)->NHL
:If NHL<10
:Then
:10->NHL
:End
:HL+NHL->HL
:Disp "LVL"
:Pause
:Disp "NEW LIFE="
:Disp "",HL
:Pause
:ClLCD
:Goto ALVL
:Lbl SAVE
:Menu(1,"SLOT1",SLOT1,2,"SLOT2",SLOT2,3,"SLOT3",SLOT3,4,"SLOT4",SLOT4,5,"CANCEL",MORE)
:Lbl SLOT1
:{CHL,HL,WDMG,WR,AR,LVL,XP,K,GP}->SAVE1
:Goto MAIN
:Lbl SLOT2
:{CHL,HL,WDMG,WR,AR,LVL,XP,K,GP}->SAVE2
:Goto MAIN
:Lbl SLOT3
:{CHL,HL,WDMG,WR,AR,LVL,XP,K,GP}->SAVE3
:Goto MAIN
:Lbl SLOT4
:{CHL,HL,WDMG,WR,AR,LVL,XP,K,GP}->SAVE4
:Goto MAIN
:Lbl LOAD
:Menu(1,"SLOT1",LOAD1,2,"SLOT2",LOAD2,3,"SLOT3",LOAD3,4,"SLOT4",LOAD4,5,"CANCEL",MORE)
:Lbl Load1
:ClLCD
:SAVE1(1)->CHL
:SAVE1(2)->HL
:SAVE1(3)->WDMG
:SAVE1(4)->WR
:SAVE1(5)->AR
:SAVE1(6)->LVL
:SAVE1(7)->XP
:SAVE1(8)->K
:SAVE1(9)->GP
:Outpt(1,1,"SRY, BUT I FORGOT YOUR NAME"
:InpSt NAME
:Goto MAIN
:Lbl Load2
:ClLCD
:SAVE2(1)->CHL
:SAVE2(2)->HL
:SAVE2(3)->WDMG
:SAVE2(4)->WR
:SAVE2(5)->AR
:SAVE2(6)->LVL
:SAVE2(7)->XP
:SAVE2(8)->K
:SAVE2(9)->GP
:Outpt(1,1,"SRY, BUT I FORGOT YOUR NAME"
:InpSt NAME
:Goto MAIN
:Lbl Load3
:ClLCD
:SAVE3(1)->CHL
:SAVE3(2)->HL
:SAVE3(3)->WDMG
:SAVE3(4)->WR
:SAVE3(5)->AR
:SAVE3(6)->LVL
:SAVE3(7)->XP
:SAVE3(8)->K
:SAVE3(9)->GP
:Outpt(1,1,"SRY, BUT I FORGOT YOUR NAME"
:InpSt NAME
:Goto MAIN
:Lbl Load4
:ClLCD
:SAVE4(1)->CHL
:SAVE4(2)->HL
:SAVE4(3)->WDMG
:SAVE4(4)->WR
:SAVE4(5)->AR
:SAVE4(6)->LVL
:SAVE4(7)->XP
:SAVE4(8)->K
:SAVE4(9)->GP
:Outpt(1,1,"SRY, BUT I FORGOT YOUR NAME"
:InpSt NAME
:Goto MAIN
:Lbl STAT
:ClLCD
:Outpt(1,1,CHL)
:Outpt(2,1,HL)
:Outpt(3,1,GP)
:Outpt(3,20,"GP")
:Outpt(4,1,"EXP:")
:Outpt(4,5,XP)
:Outpt(5,1,"LVL:")
:Outpt(5,5,LVL)
:Outpt(6,1,"Weap:")
:Outpt(6,6,WNAME)
:Outpt(7,1,"ARMR:")
:Outpt(7,6,ARMORN)
:Menu(1,"BACK",MAIN)



Semper Fidelis,
Zelavian

PS if you are insane enough to copy all of that then when you first play the game don't click on the "Pots" button inside the shop menu.

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Replies:

Post a message:
This forum requires an account to post.
[ Create Account ]
[ Login ]
Forum timezone: GMT-8
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.