/* Lemonade Stand V2.5 */ /* BY */ /* Star Gazer */ /* Star Streams BBS */ /* (214) 938-7115 */ /* FIDO 1:124/6517 */ /* $VER:Lemonade_Stand_V2.5 */ options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR ; BBSIDENTIFY NAME ; SYS=result ; BBSIDENTIFY SYSOP ; NAM=result tr=transmit ; sf=sendfile ; gc=getchar ; gu=getuser ; qu=query ; gu 1 ; handle=result ; se=sendstring ; sp=copies(' ',10) gu 28 ; term=result ; gu 27 ; width=result ; gu 2 ; gu 39 ; dfile="mail:users/"result"/LemonSV" ; tdate=result ; changewhere'Lemonade' ; oldwh=result month=31 ; day=0 ; tsales=5.00 ; price=0 ; rday=0 ; nl=0 ; pog=0 ; slm=0 ; slampwr=0 ; cog=0 PATH='pfiles:GR2/' /* Path to your game files */ PATH1=path'screens/' maxi=50.00 /* Max cash to end the store specials */ treward=10 /* Time Reward for being a top player */ VER='2.5' /* Version number; Do not change */ OVER=VER SLAMMERS: sl1=0 /* None */ sl2=2 /* Old Aluminum */ sl3=3 /* New Aluminum */ sl4=4 /* Nice Copper */ sl5=5 /* Heavy Steel */ sl6=6 /* Steel Superhero */ sl7=7 /* Gold-plated Steel */ sl8=8 /* Coboltblue Snake */ sl9=9 /* Blacksteel Dragon */ sl0=10 /* Holographic Unicorn */ sm=sl1 PRESTART: if width<80 then call SORRY1 if term=0 then call SORRY if term=1 then call SORRY if term=2 then call INTRO if term=3 then call SORRY if term=4 then call INTRO call CHECK exit INTRO: call CHECK sf path1'INTRO.ANS' tr '' tr ' Version 'ver'' tr ' c9k1[Press ENTER]q1g1' sf path1'INTRO2.ANS' tr'cePress any cc[cfKEYcc] ceto start your new careerca...g1f1' START: call CHECK call READHIGHS READGAME: if ~exists(dfile) then signal NEWSTATS call CHECK call open(f1,dfile,"R") data=readln(f1) parse var data handle"|"day"|"tsales"|"rday"|"over"|"nl"|"pog"|"sm"|"cog"|"junk call close(f1) if over~=ver then call OLDGAME WMAP: call CHECK tr'' ch=random(5,50,time('s')) sf path1'WMAP.ANS' tr ' cfThere is a ce'ch'cc% cfchance of rain on any given day for July.' tr ' cfThe high temperature will range from 70 to 120 degrees.' tr '' tr ' cePress Any ccKEY ceTo Continue...g1f1' MENU: call CHECK sf path1'SADE1.ANS' tr '' se ' cfPlease selectca? cf' ; gc ; menu=result;call CHECK if index("HSIQP",menu)=0 & C2D(menu)~=27 THEN DO tr 'n1 cfPlease pick an option from the listca.w3';signal MENU;end if menu='H' then call HIGH if menu='S' then call FDAY if menu='I' then call INST if menu='P' then call SLSHP if C2D(menu)=27 then call END1 call MENU FDAY: call CHECK htemp=random(70,120,time('s')) rain=random(1,100,time('s')) call MAIN MAIN: call CHECK call DCHECK tr 'f1cfThis is day number cd'day'ca, cfonly cd'31-day' cfto goca...' tr 'cfThe high for today will be cd'htemp' cfdegreesca.' if rain95 and price<.50 then bluck=bluck+5 /* low price/hot day */ if htemp<80 and price>.50 then bluck=bluck-5 /* high price/cool day */ if bluck>luck then bluck=luck if bluck>supply then bluck=supply /* supply vs demand */ if bluck<0 then bluck=0 sales=bluck*price tsales=tsales+sales tr 'w2cfSelling lemonades4k1....................w2q1 cdDONE!w1q1' tr 'f1cfHere are your sales for todayc9:' tr '' tr 'ceYou had cc'luck' cepeople stop by for a look.' tr 'ceOf the cc'luck' cethat stopped, cc'bluck' cebought some lemonade from you.' tr 'ceYou sold cc'bluck' ceglasses of lemonade at cc'price' cea glass which gives' tr 'ceyou a total of cf$ca'sales' cefor the day.' if bluck=supply then tr 'ceYou cfz1 SOLD OUT z0 cetodayca!' call EVENTS exit EVENTS: call CHECK lk=random(1,100,time('s')) if lk>80 then call GOTEVENT tr '' tr 'caEVENTSc9: cfLook''s like nothing special took place today.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN exit GOTEVENT: call CHECK e=random(1,6,time('s')) if e=1 then call EV1 if e=2 then call EV2 if e=3 then call EV3 if e=4 then call EV4 if e=5 then call EV5 if e=5 then call EV6 call GOTEVENT exit EV1: call CHECK tr '' tr 'caEVENTc9: cfOh noca... cfThe bully down the street came by and took all' tr ' cfof your profitca''cfs for the dayca.' tr '' tsales=tsales-sales tr 'cePress Any ccKEY ceTo Continue...g1f1' tr '' call MAIN EV2: call CHECK tr '' tr 'caEVENTc9: cfThis is your lucky dayca! A street sweeper came by and blew' tr ' cfa ca$cb10ca.cb00 cfbill into your yardca.' tr '' tsales=tsales+10.00 tr 'cePress Any ccKEY ceTo Continue...g1f1' tr '' call MAIN EV3: call CHECK tr '' tr 'caEVENTc9: cfOopsca, cfyour little sister tries to help out but ends up' tr ' cfknocking over your lemonadeca. cfYou have to spend five dollars' tr ' cfof the dayca''cfs profit to buy more lemons and sugerca.' tr '' tsales=tsales-5.00 tr 'cePress Any ccKEY cfTo Continue...g1f1' tr '' call MAIN EV4: call CHECK tr '' tr 'caEVENTc9: cfOopsca, cfLooks like to need to make a few repairs to' tr ' cfyour lemonade stand. You run to the hardware store and buy' tr ' cfsome paint and nails. This costs you $8.00' tr '' tsales=tsales-8.00 tr 'cePress Any ccKEY cfTo Continue...g1f1' tr '' call MAIN EV5: call CHECK if slm=1 then call GOTEVENT slm=1 sm=sl0 tr '' tr 'caEVENTc9: cdWOWca! cfYou find a real nice pog slammer in the streetca!' tr ' cfIt is a very heavy slammer with a holographic unicorn on itca.' tr ' cfThe power of this slammer is 'sm'!' tr '' tr 'cePress Any ccKEY cfTo Continue...g1f1' tr '' call MAIN EV6: call CHECK rpg=random(1,5,time('s')) tr '' tr 'caEVENTc9: cfYou find 'rpg' pog milk caps in your yardca!' tr ' cfThe little kids down the street must have dropped themca.' tr '' pog=pog+rpg tr 'cePress Any ccKEY cfTo Continue...g1f1' tr '' call MAIN END: call CHECK tr 'f1cfIt has been a full month since you opened your Lemonade Standca.' tr 'cfLets see how well you have doneca... cfYou now have ce'tsales' cfbucks' tr 'cfand you only lost ce'rday' cfdays to rainca.' if pog~=0 then tr 'cfYou also have ce'pog' cfpog milkcapca''cfs in your collectionca.' if nl=1 then tr 'cfw2The storekeeper comes up and takes his ce$10.00 cffrom youca.' if nl=1 then tsales=tsales-10.00 if exists(dfile) then do ; address command 'DELETE "'dfile'"' call CHECKHIGH call QUIT END1: call CHECK tr 'f1cfAfter ce'day' cfdayca''ce(cfsce) cfof Selling lemonadeca, cfyou think it might be time for a restca.' tr 'cfYour sales from the lemonade stand so far are c9$cb'tsales'ca.' if pog~=0 then tr 'cfYou also have ce'pog' cfpog milkcapca''cfs in your collectionca.' tr '' call SAVEGAME call QUIT HIGH: call CHECK tr '[ Lemonade Stand Top Ten Highest Scores ' tr 'cd 'left(hiwho.1'ce',28,'.')'ca'left(hiwhat.1,10) tr 'c5 'left(hiwho.2'c6',28,'.')'c2'left(hiwhat.2,10) tr 'cd 'left(hiwho.3'ce',28,'.')'ca'left(hiwhat.3,10) tr 'c5 'left(hiwho.4'c6',28,'.')'c2'left(hiwhat.4,10) tr 'cd 'left(hiwho.5'ce',28,'.')'ca'left(hiwhat.5,10) tr 'c5 'left(hiwho.6'c6',28,'.')'c2'left(hiwhat.6,10) tr 'cd 'left(hiwho.7'ce',28,'.')'ca'left(hiwhat.7,10) tr 'c5 'left(hiwho.8'c6',28,'.')'c2'left(hiwhat.8,10) tr 'cd 'left(hiwho.9'ce',28,'.')'ca'left(hiwhat.9,10) tr 'c5 'left(hiwho.10'c6',28,'.')'c2'left(hiwhat.10,10) se 'c6Press cfENTER c6to continue...i1' if pog=0 then call MENU tr '[ Lemonade Stand Top Highest POG Scores ' tr 'cd 'left(hiwho.1'ce',28,'.')'ca'left(hipog.1,10) tr 'c5 'left(hiwho.2'c6',28,'.')'c2'left(hipog.2,10) tr 'cd 'left(hiwho.3'ce',28,'.')'ca'left(hipog.3,10) tr 'c5 'left(hiwho.4'c6',28,'.')'c2'left(hipog.4,10) tr 'cd 'left(hiwho.5'ce',28,'.')'ca'left(hipog.5,10) tr 'c5 'left(hiwho.6'c6',28,'.')'c2'left(hipog.6,10) tr 'cd 'left(hiwho.7'ce',28,'.')'ca'left(hipog.7,10) tr 'c5 'left(hiwho.8'c6',28,'.')'c2'left(hipog.8,10) tr 'cd 'left(hiwho.9'ce',28,'.')'ca'left(hipog.9,10) tr 'c5 'left(hiwho.10'c6',28,'.')'c2'left(hipog.10,10) se 'c6Press cfENTER c6to continue...i1' call MENU READHIGHS: if ~exists(path'LEMON.HIGHS') then do call open(f1,path'LEMON.HIGHS','w') do i=1 to 10 ; call writeln(f1,'No One Yet|0|x') ; end i call close(f1) ; end call open(f1,path'LEMON.HIGHS','r') ; do i=1 to 10 hi.i=readln(f1) ; parse var hi.i hiwho.i'|'hiwhat.i'|'junk ; end i call close(f1) if ~exists(path'LEMON.PHIGH') then do call open(f1,path'LEMON.PHIGH','w') do i=1 to 10 ; call writeln(f1,'No One Yet|0|x') ; end i call close(f1) ; end call open(f1,path'LEMON.PHIGH','r') ; do i=1 to 10 hi.i=readln(f1) ; parse var hi.i hipwh.i'|'hipog.i'|'junk ; end i call close(f1) return CHECKHIGH: call CHECK if treward=0 then treward='No' tsales.play=tsales if tsales.play>hiwhat.10 then do ; hiwhat.10=tsales ; hiwho.10=handle se 'c6A cbNEW ceHigh Scorec6... cfYou are Rewarded ca'treward' cfExtra minutes this callc9! ' ; addtime treward ; do i=1 to 10 if hiwhat.10>hiwhat.i then do ts=hiwhat.i ; th=hiwho.i ; hiwhat.i=hiwhat.10 ; hiwho.i=hiwho.10 hiwhat.10=ts ; hiwho.10=th ; end ; end i ; end se 'w1cbSavings2k1........q1' ; call open(f1,path'LEMON.HIGHS','w') do i=1 to 10 ; call writeln(f1,hiwho.i'|'hiwhat.i'|x') ; end i call close(f1) ; tr 'w1'sp pog.play=pog if pog.play>hipog.10 then do ; hipog.10=pog ; hipwh.10=handle se 'c6A cbNEW ceHigh Scorec6... cfYou are Rewarded ca'treward' cfExtra minutes this callc9! ' ; addtime treward ; do i=1 to 10 if hipog.10>hipog.i then do ts=hipog.i ; th=hipwh.i ; hipog.i=hipog.10 ; hipwh.i=hipwh.10 hipog.10=ts ; hipwh.10=th ; end ; end i ; end se 'w1cbSavings2k1........q1' ; call open(f1,path'LEMON.PHIGH','w') do i=1 to 10 ; call writeln(f1,hipwh.i'|'hipog.i'|x') ; end i call close(f1) ; tr 'w1'sp return INST: call CHECK sf path1'INST.ANS' tr '' tr ' cePress Any ccKEY ceTo Continue...g1f1' call MENU OOPS: call CHECK tr '' tr 'c9Oopsca, c9seems that you do not have enough money for the suppliesca.' tr 'cePress Any ccKEY ceTo Continue...g1f1' tr '' call MAIN BROKE: call CHECK if exists(dfile) then do ; address command 'DELETE "'dfile'"' tr '' tr 'ceOh noca! ceYou are too broke to continueca... ceIca''cem sorryca, cemaybe next yearca.w2' tr 'cfHeading off to summer campca, cfz1 YUCK! z0 cf:(w2' tr 'cePress Any ccKEY ceTo Continue...g1f1' tr '' call CHECKHIGH call QUIT SORRY: call CHECK tr '' tr 'cfIca''cfm SORRYca, cfbut you must have IBM ANSI term to play Lemonade Standca.' tr 'cfNow returning to cc'sys' BBSca!' tr '' call QUIT SORRY1: call CHECK tr '' tr 'cfIca''cfm SORRYca, cfbut you must have at least an 80 column screen to playca.' tr 'cfNow returning to cc'sys' BBSca!' tr '' call QUIT QUIT: call CHECK tr '' sf path1'END.ANS' tr '' tr 'cfNow returning to ce'sys' cfBBSc9!' changewhere oldwh ; exit SAVEGAME: if tsales<5.00 then call RESET call open(f1,dfile,"w") call writeln(f1,handle"|"day"|"tsales"|"rday"|"ver"|"nl"|"pog"|"sm"|"cog"|x") call close(f1) return NEWSTATS: call CHECK tr '' tr ' cfLooks like we have a new kid on this blockc9!' tr ' cfLets see if you have what it takes to make itc9!' tr ' cePress Any ccKEY ceTo Continue...g1f1' month=31 ; day=0 ; tsales=5.00 ; price=0 ; rday=0 ; nl=0 ; pog=0 ; slm=0 ; slampwr=0 ; cog=0 call WMAP RESET: call CHECK tr 'ccOopsca! cfIm sorryca, cfbut your game can not be savedca.' tr 'cfYou can not save ifca: cfYou are on day cd31 cfOR have less than cd$5.00' tr 'cfIn this case the reason is becauseca...' if day=31 then tr 'cfYou quit on day cd31' if tsales<5.00 then tr 'cfYou have less than cd$5.00 cfon youca.' tr 'cePress Any ccKEY ceTo Continue...g1f1' call QUIT DCHECK: if day=month then call END if day>month then call END day=day+1 return OLDGAME: call CHECK tr 'cfIt looks as though the game has been upgraded to a new version since' tr 'cfyou last playedca. cfIn order to prevent any problems we will delete your' tr 'cfold saved game file and let you start a new gameca.' tr 'cePress Any ccKEY ceTo Continue...g1f1' if exists(dfile) then do ; address command 'DELETE "'dfile'"' call NEWSTATS THIEF: call CHECK snk=random(1,2,time('s')) if snk=1 then call THIEF1 if snk=2 then call THIEF2 call THIEF THIEF1: call CHECK mny=random(1,20,time('s'));tsales=tsales-mny;if tsales<0 then tsales=0 tr 'f1cfWhen no one is lookingca, cfyou run down the street and try to rob the other' tr 'cflemonade stand and k1s6..........q1c9 Fail!w2' tr '' tr 'cfNot only did you fail but while you where goneca, cfthe bully down the' tr 'cfstreet came by and robbed youca! cfYou lost ce'mny' cfdollars...' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call FDAY THIEF2: call CHECK mny=random(5,25,time('s'));tsales=tsales+mny tr 'f1cfWhen no one is lookingca, cfyou run down the street and try to rob the other' tr 'cflemonade stand and k1s6..........q1c9 Success!w2 cfcfYou came out with ce'mny' cfdollars...' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call FDAY SSTORE: call CHECK tr 'c9Specialw2' if tsales>maxi then call TOORICH sf path1'GROC1.ANS' tr '' tr 'cfOk kid, what will it beca? ' se 'cfYou have ce$'tsales'ca, cfPlease selectca? cf'; gc ; menu=result ; call CHECK if index("AGSLUV",MENU)=0 & C2D(MENU)~=27 THEN DO tr 'n1cfPlease pick an option from the listca.w3';signal SSTORE;end if menu='A' then call LOAN if menu='G' then call GAMBLE if menu='S' then call SHOPLIFT if menu='L' then call LOOK if menu='U' then do; bbscommand who;tr '';tr 'cePress Any ccKEY ceTo Continue...g1f1';signal SSTORE;end if menu='V' then do; bbscommand olm;signal SSTORE;end if C2D(menu)=27 then call MAIN tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN TOORICH: call CHECK day=day-1;rain=99 call MAIN LOAN: call CHECK if nl=1 then call NOLOAN ln=random(1,3,time('s')) tr 'Hey storekeeper, how about a loanw2' if ln=1 then call LOAN1 if ln=2 then call LOAN2 if ln=3 then call LOAN3 call MAIN LOAN1: call CHECK nl=0 tr 'cfSorry kidca, cfthis ainca''cft no bankca!' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN LOAN2: call CHECK nl=0 tr 'cfSorry kidca, cfthis ainca''cft no bankca!' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN LOAN3: call CHECK nl=1 tr 'cfOk kidca, cfI will loan you $5.00ca! cfYou will repay $10.00 at the end of the monthca.' tsales=tsales+5.00 tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN NOLOAN: call CHECK tr 'Hey storekeeper, how about a loanw2' tr 'cfWhatca?! cfYou againca? cfSorry kidca, cfI have already given you a loan this monthca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN GAMBLE: call CHECK tr 'Hey storekeeper, let''s gamblew2' if pog=0 then call NGAMBLE tr '' tr 'cfOk kidca, cfthis aint no Vegas casino but I will play a simple game with youca.' tr 'cfIf you winca, cfI will give you cd$5ca, cfbut if I win you give me cd1 cfpogca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' tr '' tr 'cfOk kidca, cfhear are the ground rulesca. cfYou need what I got so I make the rulesca.' tr 'cfI am going to flip my lucky silver dollarca, cfif it is tails then you winca, cfbut' tr 'cfif it is headsca, cfthen I win 1 of your pogca''cfsca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1' toss=random(1,100,time('s')) if toss<50 then call TOSSW if toss>50 then call TOSSL if toss=50 then call TOSST call MAIN TOSSW: call CHECK tr '' tr 'cfLookca''cfs like ol lucky done gone and let me down againca.' tr 'cfYou win this time kidca, cfI will give you cd$5 cfdollarsca.' tr '' tsales=tsales+5.00 tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN TOSSL: call CHECK tr '' tr 'cfToo bad kidca, cfyou lostca. cfI get 1 of your pogca''cfsca.' tr '' pog=pog-1 tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN TOSST: call CHECK tr '' tr 'cfDangca! cfItca''cfs a tieca. cfWhat are the odds of it landing on itca''cfs edge like thatca?' tr 'cfOh wellca, cfbetter luck to us both next timeca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN NGAMBLE: call CHECK tr '' tr 'cfSorry kidca, cfthis aint no Vegas casinoca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN NOWAY: call CHECK tr '' tr'cfNo way manca! cfYou have already gotten cought once this monthca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN SHOPLIFT: call CHECK tr 'Hmm, this looks nicew2' if cog=1 then call NOWAY slprct=random(1,100,time('s')) if slprct<26 then call SHOPLIFT1 if slprct=50 then call SHOPLIFT2 if slprct>74 then call SHOPLIFT3 tr '' tr 'cfOh manca! cfYou just got busted for shopliftingca!! cfYour in c9BIG cftroubleca!' if pog=0 then call BUSTED tr 'cfThe storekeeperca, cfbeing a kind manca, cftakes you aside and explains to you' tr 'cfthe error of your waysca. cfHe will let you off this time but he takes cdALL cfof' tr 'cfpogca''cfs as punishmentca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' pog=0;cog=1 call MAIN BUSTED: call CHECK tr '' tr 'cfOh manca! cfYou just got busted for shopliftingca!! cfYour in c9BIG cftroubleca!' tr 'cfThe police come and take you to the stationca. cfThey call your father and he comes' tr 'cfdown and is very upsetca! cfYou are grounded untill summer campca...' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' if exists(dfile) then do ; address command 'DELETE "'dfile'"' call QUIT SHOPLIFT1: call CHECK tr '' tr 'cfYou start to pick up lemons and suger when you notice the security' tr 'cfcameras in the store have been following you around ever since you' tr 'cfentered the storeca. cfYou feel that this is not a good time to tryca.' tr 'cfYou put the lemons and suger back and head for the front doorca!' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN SHOPLIFT2: call CHECK illgot=random(25,150,time('s'));tsales=tsales+illgot tr '' tr 'cfWhat Luckca! cfThe storekeeper goes off to the stockroom to help the stocker' tr 'cfand leaves the cashregister openca. cfYou a quick but quite grab at all the' tr 'cfbills and leaveca. cfA block awayca, cfyou stop and count your ill gotten gainsca.' tr 'cfCarefull counting shows that you made off with ce$'illgot' cfdollarsca!' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN SHOPLIFT3: call CHECK tr '' tr 'cfYou pocket lemons and suger untill they start to buldgeca.' illg=random(1,4,time('s')) if illg=1 then call ILLGOTA if illg=2 then call ILLGOTB if illg=3 then call ILLGOTC if illg=4 then call ILLGOTD call SHOPLIFT3 ILLGOTA: call CHECK tr 'cfYou get enough supplies for 25 peopleca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' supply=25 call MAIN1 ILLGOTB: call CHECK tr 'cfYou get enough supplies for 50 peopleca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' supply=50 call MAIN1 ILLGOTC: call CHECK tr 'cfYou get enough supplies for 75 peopleca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' supply=75 call MAIN1 ILLGOTD: call CHECK tr 'cfYou get enough supplies for 100 peopleca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' supply=100 call MAIN1 LOOK: call CHECK lk=random(1,3,time('s')) tr 'Looking for change in the streetw2' if lk=1 then call LOOK1 if lk=2 then call LOOK2 if lk=3 then call LOOK3 call MAIN LOOK1: call CHECK tr 'cfYou look around all day but find nothingca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN LOOK2: call CHECK pog=pog+1 tr 'cfYou find a pog milk capca, cfand it is one that you needed tooca!' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN LOOK3: call CHECK fnd=random(2,8,time('s')) tr 'cfWhat luckca! cfYou find 'fnd' dollars in small changeca.';tsales=tsales+fnd tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN PLYGRND: call CHECK tr 'c9Playgroundw2' tr '' /* This is where the POG game will be once it is added - Look for it in v3.0 */ tr 'cfYou leave the store and head to the local playgroundca.' tr 'cfIt looks as though none of your friends are here todayca.' tr 'cfSince no one is here today, you head back to the storeca.' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MAIN SLSHP: call CHECK if pog=0 then call MENU sf path1'PSS.ANS' tr '' tr 'cePress Any ccKEY ceTo Continue...g1f1' call MENU CHECK: if result~='###PANIC' then return call SAVEGAME tr 'f1n9ccLemonade Stand!n2c9Loss of Carrier!' logentry 'No Carrier in Lemonade Stand!' ; bufferflush exit SYNTAX: ; ERROR: ; IOERR: call SAVEGAME tr 'n2ce*** c9BOOM ce*** c9Error Detectedce!' ; tr 'c6ERc9:cb'rc' c6(ca'errortext(rc)'c6) @ cf'sigl tr 'cdSysop has been notified...' ; logentry 'ER:'rc' ('errortext(rc)') @ 'sigl logentry 'while playing Lemonade Stand!' ; bufferflush exit /* EOF */