**TI92P*mainProgram file 05/15/05, 15:22Rhobo­¥ZS() Prgm Lbl qrs ClrIO Define imlame=777 Define mon=11.01 Define scred=1 Define dru=1 Define sb=1 Define win=.96 Define cheat=987654 Output 70,0,"UberStuber!" 70c 0d Loop c-2c d+2d If c=­2 Then Exit EndIf Output c,d,"UberStuberSoft" EndLoop Pause ClrIO Disp " HOBO QUEST" Disp " 2005" Disp "by UberStuber" Pause ClrIO Disp "You are a hobo." Disp "Armed with 1 dollar" Disp "and a gun, your quest" Disp "is to become a millionare." Disp "Each day u spend 10" Disp "bucks on food. DONT DIE." Pause Lbl top ClrIO Define mon=mon-10. If mon<0 Then Disp "YOU DIE OF HUNGER" Disp "GAME OVER" Pause Goto end Else Goto mil EndIf Lbl mil If mon>1000000 Then Disp "YOURE A MILLIONARE" Disp "you upgrade ur box to" Disp "a mansion." Disp mon-1000000 Disp "points" If mon-1000000>hiscore Then Disp "HIGH SCORE" Define hiscore=mon-1000000 Goto ins Else Goto ins EndIf Lbl ins Pause ClrIO Disp "however, u forgot" Disp "insurance." Disp "ur house explodes." Disp "U DIE." Pause Goto end Else Goto menu EndIf Lbl menu Disp "you have" Disp mon Disp "dollars" Pause ClrIO Disp "1-beg" Disp "2-deal drugs" Disp "3-rob the 7-11" Disp "4-increase ur streetcred" Input act ClrIO If act=666 Then ClrIO Disp "OMG UR EVIL" Pause ClrIO Disp "the evil moo cows worship" Disp "you. Because theyre" Disp "dumb when u tell them to" Disp "kill everyone..." Pause Disp "they kill you too. DEADED." Pause Goto end Else Goto cool EndIf Lbl cool If act=.96 Then ClrIO Disp "OMG, YOU FOUND A SECRET" Disp "THIS IS THE ONLY WAY TO" Disp "WIN WITHOUT DYING" Disp "CONGRATS 9999999999 pts" Define hiscore=9999999999 Pause Goto end Else Goto cheat EndIf Lbl cheat If act=987654 Then ClrIO Disp "meh" Disp "streetcred up by 7" Define scred=scred+7 Define mon=mon+10 Pause Goto top Else Goto bcd EndIf Lbl bcd If act=777 Then Disp "go deal fake crack" Disp "dont get caught" Define scred=99999999999999999999999999/15000 Define mon=mon+10 Pause Goto top Else Goto hi EndIf Lbl hi If act=1 Then Define one=100*rand() Disp "armed with a cardboard" Disp "sign and a cup, u make" Disp one Define mon=mon+one Pause Goto top Else Goto dru EndIf Lbl dru ClrIO If act=2 Then Disp "1-marijuana" Disp "2-xtasy" Disp "3-fake crack" Input drugs ClrIO If drugs=1 Then Disp "you go the semi-safe route" Pause Define a=rand() If a>0 and a<.12 Then ClrIO Disp "OH NO ITS OFFICER JOE" Disp "you shoot" Define sye=rand() If sye>0 and sye<.75 Then Pause ClrIO Disp "u got away with ur life" Disp "but no cash" Pause Goto top Else Lbl b Disp "BUSTED" Disp "bail is" Disp 1000*dru Define mon=mon-1000*dru Define dru=dru+1 Pause Goto top EndIf Else ClrIO Disp "weed is good, u got" Define crap=scred*rand()*1500 Disp crap Define mon=mon+crap Pause Goto top EndIf Else Goto x EndIf Lbl x If drugs=2 Then ClrIO Disp "you hit up the party" Disp "for cash" Pause Define xyzt=rand() If xyzt>0 and xyzt<.35 Then ClrIO Disp "HOLY SCHAMOLY" Disp "you got hooked on ur" Disp "own product" Pause Define abc=rand() If abc>0 and abc<.35 Then ClrIO Disp "the cops catch u naked" Disp "while ur high" Disp "bail is" Disp 2500*dru Define dru=dru+1 Define mon=mon-2500*(dru-1) Pause Goto top Else ClrIO Disp "got away with no cash" Disp "and a migrane" Pause Goto top EndIf Else Lbl woot ClrIO Disp "WOOT" Disp 2500*scred Define mon=mon+2500*scred Pause Goto top EndIf Else Goto c EndIf Lbl c If scred<4 Then Disp "you cant do that till" Disp "ur street cred is higher" Pause Goto top Else Goto che EndIf Lbl che ClrIO Disp "figuring ur clients r too" Disp "high too notice,u trick" Disp "them with fakes" Pause Define f=rand() If f>0 and f<.25 Then ClrIO Disp "oh no, they find out" Disp "they beat u up and " Disp "steal 10000" Pause If mon<10000 Then ClrIO Disp "not finding the cash," Disp "they kill you" Disp "you drown in blood" Pause Goto end Else Define mon=mon-10000 Goto poo EndIf Lbl poo Pause Goto top Else Goto woo EndIf Lbl woo ClrIO Disp "u think to urself" Disp "those guys r dumba**es" Disp "you made" Disp 15000*scred Define mon=mon+15000*scred Pause Goto top Else Goto sev EndIf Lbl sev If act=3 Then Disp "masked by your immense" Disp "beard you rob the 7 11" Disp "without fear of cameras" Define sev=rand() Pause ClrIO If sev>0 and sev<.07 Then Define sb=sb+1 Disp "YOU GOT CAUGHT" Disp "bail is " Disp 100*sb Define mon=mon-100*sb Pause Goto top Else Disp "YEEHA, got away with" Define syes=rand()*290 Disp syes Define mon=mon+syes Pause Goto top EndIf Else Goto scred EndIf Lbl scred If scred>15 Then ClrIO Disp "Its not phisically possible","to sell that many drugs" Goto top EndIf Disp "the drug dealer tells" Disp "you to make a donation" Disp "and he will let you get" Disp "more drugs" Pause If mon<10000 Then ClrIO Disp "U DONT GOT 10000 DOLLA" Disp "DIE BIT**" Disp "the last thing you see" Disp " is the barrel of a gun" Pause Goto end Else ClrIO Disp "thanks ho, Ill" Disp "let u get a hold of more" Disp "drugs" Define scred=scred+1 Define mon=mon-10000 Pause Goto top EndIf Lbl end ClrIO Disp "play again?" Disp "(1-yes)" Disp "(2-no)" Disp "(3-hiscore)" Input ag If ag=1 Then Goto qrs Else Goto mn EndIf Lbl mn If ag=3 Then ClrIO Disp hiscore Pause Goto end Else Goto fgh EndIf Lbl fgh DelVar ag DelVar one DelVar act DelVar mon DelVar sb DelVar sev DelVar syes DelVar drugs DelVar dru DelVar scred DelVar x DelVar f DelVar sye DelVar a DelVar abc DelVar xyzt DelVar win DelVar cheat DelVar crap DelVar imlame ClrIO DispHome EndPrgm8äå܆²