/**************************************************************************\ $VER: Wheel of Fortune ANSI, v6.44 by Dotoran! (7-May-96) \**************************************************************************/ options results;signal on SYNTAX;signal on ERROR;signal on IOERR tr=transmit;se=sendstring;gc=getchar;gu=getuser;qu=query;bf=bufferflush bbsidentify name;bbsname=result;bbsidentify sysop;sysop=result seed=random(0,1000,time('s'));call READCONFIG changewhere "WOF ANS Game";oldwh=result BEGIN: /* Entry Point if Winner Chooses to RePlay the Game. */ key1='n1'center(k1,78+(m1*3));key2='n1'center(k2,78+(m2*3));ck=CHECK() d=substr(date('s'),5,2);d1=substr(resetD,5,2);if resetM=1&d-d1>=resetV then call RESETGAME logs=0;log.='';wh=1;action='Visited ';gu 6;street=result;gu 9;voice=result;gu 10;data=result gu 40;sid=result;date=date('s');gu 7;t=result;timeleft=t%10'.'right(t,1) dateL=date('m',date,'s')' 'strip(right(date,2),'l','0')', 'left(date,4) gu 15;access=result;gu 17;maintA=result;BFlag=0 cons='BCDFGHJKLMNPQRSTVWXZ';vows='AEIOU';if yvow=0 then cons=cons'Y';else vows=vows'Y' wheel='15 10 4 5 3 1 8 6 5 12 3 1 13 2 7 14 6 4 3 2 6 9 4 5';wheal=overlay('11',wheel,42) whe='ce100 cc150 cd200 cb250 cc300 c9400 cd450 cf500 cf600 ca750 cd1000 caFREESPIN cbSURPRISE ceLOSETURN c9BANKRUPT' locs="2;32|2;41 3;39|3;43 4;41|4;45 5;43|5;47 6;45|6;49 7;47|7;51 8;48|8;52 9;47|9;51 10;45|10;49 11;42|11;47 12;41|12;45 " locs=locs"13;39|13;43 14;32|14;41 13;30|13;34 12;28|12;32 11;26|11;31 10;24|10;28 9;22|9;26 8;21|8;26 7;22|7;26 6;24|6;28 " locs=locs"5;26|5;30 4;28|4;32 3;30|3;34";freespins=0;cc=0;lo=0;sp=0 if ~exists(dfile'GameData') then call SETUP call READPLAYERS;if player=0 then do;players=players+1 player=players;player.player=handle'|0|0|0|0|0|0|0|0|0|0|x';end parse var player.player handle'|'puzwon'|'monwon'|'puznum'|'moncur'|', played'|'percent'|'bonwins'|'boncash'|'mills'|', bmills'|'junk call READDATA;call READSTATS;call READWINNER;call READWINNERS call READBWINNERS;call READMILLIONAIRES;call READBMILLIONAIRES call READBANKERS;call READLASTPLAYER START: tr 'f1@4';a='ce'sysop' c9Broadcasting cfPresentsca:n1';tr center(a,93);call TITLE tr center('cbBrought to you byc9: ca'bbsname' cfTV!n1',93) tr center('c6There are ce'total' c6Known Puzzles!',85);tr key1;logmil=1 if shomil=1 then call MILLIONAIRES;if shomil=2 then do se "f1n1c6View ceRegular Millionaires c6Listing? c7[cbNoc7]c9: cb";gc;a=result if a~='Y' then tr 'Noc6.';else do;tr 'caYesc6!';call MILLIONAIRES;end;end if shobmi=1 then call BMILLIONAIRES;if shobmi=2 then do se "f1n1c6View ceBonus Millionaires c6Listing? c7[cbNoc7]c9: cb";gc;a=result if a~='Y' then tr 'Noc6.';else do;tr 'caYesc6!';call BMILLIONAIRES;end;end if shoban=1 then call BANKERS;if shoban=2 then do se "f1n1c6View ceAll Time BEST WOF Player c6Listing? c7[cbNoc7]c9: cb";gc;a=result if a~='Y' then tr 'Noc6.';else do;tr 'caYesc6!';call BANKERS;end;end if Mflag=1&exists(dfile'NewPuz') then do se "n1cbProcess cdUser Created cdPuzzles c6Now? c7[cbNoc7]c9: ";gc;a=result if a~="Y" then tr "cbNoc6.";else do;tr "caYesc6!#0 "dfile"Grow "dfile"}";end;end logmil=0;call MENU MAIN:;call MORE0 se 'n1cf[ca'timeleft' ceMin.Leftcf] cbMenuc9: ' se 'cf>>>--ceUcf,caHcf,ceYcf,caAcf,cePcf,caLcf,ceBcf,' se 'caVcf,ceScf,caIcf,cdQcf,cb?cf=cbMenucf--> ' MAIN1: gc;a=index('UHALBYPVSIQC!?/M',result);ck=CHECK();bf;if a=0 then signal MAIN1 if a=16 & Mflag=1 then do;tr 'cbMaintenance#0'dfile'Maint}';changewhere "WOF ANS Game" if ~exists(dfile'GameData') | ~exists(dfile'Players') then signal QUIT3;else signal MAIN;end if a=1 then do;tr 'ceUser Config';se '#0 'dfile'UserConfig}';call READCONFIG;signal BEGIN;end if a=2 then do;tr 'caHall of Fame';call HOFAME ;signal MAIN;end if a=3 then do;tr 'caAll Scores' ;call ALLSCORES ;signal MAIN;end if a=4 then do;tr 'caLast Puzzles';call LASTPUZS ;signal MAIN;end if a=5 then do;tr 'ceBonus Puzzles'; call BONUSPUZS ;signal MAIN;end if a=6 then do;tr 'ceYour Stats' ;call YOURSTATS ;signal MAIN;end if a=7 then do;tr 'cePlay Game' ;signal PLAYGAME;end if a=8 then do;tr 'caView Game Logs' se 'f1n1c6View cbNEW caGame Log c6Now? cf[cbYescf]c6: ';gc;a=result;if a='N' then tr 'c9Noc6.' else do;tr 'cbYesc6!';call MORE1;tr '*0'dfile'Log.NEW.ANS}q1'key1 call WL("ca"handle" c6viewed the cfNEW cbGame Logc6.");end se 'f1n1c6View ceOLD caGame Log c6Now? cf[c9Nocf]c6: ';gc;a=result;if a~='Y' then tr 'c9Noc6.' else do;tr 'cbYesc6!';call MORE1;tr '*0'dfile'Log.OLD.ANS}q1'key1 call WL("ca"handle" c6viewed the ceOLD cbGame Logc6.");end signal MAIN;end if a=9 then do;tr 'ceSee Millionaires' se 'f1n1c6See c7<caRc7>caegular c6or c7<cbBc7>cbonus ceMillionairesc6? cf[cdQUITcf]c6: ';gc;a=result if a='R' then do;tr 'caRegular';call MILLIONAIRES;end else if a='B' then do;tr 'cbBonus';call BMILLIONAIRES;end else tr 'cdQuit';signal MAIN;end if a=10 then do;tr 'caInstructions';call DOCS;signal MAIN;end if a=11 then do;tr 'cdQuit Game' ;call QUIT;signal MAIN;end if a=12 & Mflag=1 then do;tr 'c9Cancel Game';signal CANCELGAME;end if a=13 & Mflag=1 then do;call open(f1,dfile'LastPlayer','w') call writeln(f1,'0|No One|No Where|0|0|1|0|x');call close(f1) call READLASTPLAYER;tr 'cePlay Game';signal PLAYGAME;end if a>13 then do;tr 'cbMain Menu';call MENU;signal MAIN;end signal MAIN1 PLAYGAME: if Lhan='No One' & play=0 & handle=winhan then do call WL("ca"handle" c6tried to play first, but was the cbLast Winnerc6!") se 'f1n1c6'hostM' comes up to you and whispers in your ear, cb"caSorry, cd'handle se 'ca, but ce'sysop' Broadcasting cadoesn''t allow recent winners to be ' se 'the c9FIRST caplayer in a cfNEW cdGameca. You''ll have to wait until another ' tr 'contestant has played the game.cb"n1' se 'c6On your way out of the studio, 'hostF' hands you a slip of paper. ' tr 'Reading it, you discover the new puzzle.n1';call SHOWPUZZLE tr key2;signal QUIT2;end if handle=author then do call WL("ca"handle" c6tried to play, but is the cbAuthorc6!") se 'f1n1c6'hostF' and 'hostM' approach you from the wings. 'hostF' gives ' se 'you a playful slap on the butt. 'hostM' says, cb"caNaughty. You wrote ' tr 'the puzzle and must wait until someone wins.cb"n1' se 'c6After a moment, 'hostM' continues, cb"caHowever, we will show you how ' tr 'your puzzle is doing before you leave.cb"n1';call SHOWPUZZLE tr key2;signal QUIT2;end if newplay=0 & (sid=0 | access=0) then do call WL("ca"handle" c6tried to play, but was a cbGuestc6/cbNew Userc6!") se 'f1n1c6'hostM' looks at you quizically, cb"caYou''re c9NEW caaround here, aren''t ' se 'you? We do not currently allow c9NEW Users ca& c9GUESTS cato Play The Wheel of ' tr 'Fortune, c9Sorrycb"n1' se '"caWe will, however, show you how the current puzzle is doing, in case ' tr 'you''d like to play after you''ve been validated.cb"c6, 'hostM' says.n1' call SHOWPUZZLE;tr key2;signal QUIT2;end if Lflag=1 then do call WL("ca"handle" c6tried to play, but is the cdLast Playerc6!") se 'f1n1c6'hostM' laughs in your face and signals for a bouncer to ' se 'throw you out of the studio. You were either the last player, ' se 'or have too much in common with the last player, and must wait ' tr 'for someone else to play.n1' if chance=1 then do;a=random(1,9);b=random(1,9);if a=b then do se 'As the bouncer approaches you, you kick him in the groin ' se 'and run onto the studio set. 'hostM' has no choice, but to let ' tr 'you play again!n1'key1;Lhan='Bouncer in Agony!' call WL("ca"handle" c6beat up the cbBouncer c6to play again!") signal PLAYGAME2;end;end if chance>1 & (el>=(chance-1)*6) then do se 'c6Twiddling his thumbs, 'hostM' looks at his watch, then ' se 'tells you, cb"cd'handle'ca, it''s been c9'||(chance-1)*6||' cahours since ' se 'you last played, and we haven''t had any new contestants, ' tr 'so come on down and take another spin!cb"n1'key1 call WL("ca"handle" c6waited the cbalotted time c6to play again!") signal PLAYGAME2;end se 'c6From over the bouncers shoulder, you get a glimpse of how ' tr 'the current puzzle is doing...n1';call SHOWPUZZLE if chance>1 then do;se 'n1c6'hostM' then tells you, cb"cd'handle'ca, if no other players take a ' tr 'turn in the next c9'||((chance-1)*6)-el||' cahours, we''ll let you play again.cb"';end LHan="";tr key2;signal QUIT2;end PLAYGAME2: if puznum~=puzplay then do;puznum=puzplay;moncur=0 if handle~=winhan then do;played=played+1 call WL("ca"handle" c6just ceentered c6this cbGamec6!") percent=((puzwon/played)*100)%1;end;end if vanna=2&(vannaA=1|(vannaA=2&age>13)|(vannaA=3&age>15)) then do se 'caView c6graphic picture of cfVanna White c6now? c7[cbNoc7]c9: cb';gc;a=result if a~='Y' then tr 'Noc6.';else do;tr 'caYesc6!' se "L70 #"handle"ca? Glad to}L71 #"hostF"ca,}L72 #"hostM" welcomes you to the show,}*4"dfile"Graphics/vanna.ans}@4";end;end if vanna=1&(vannaA=1|(vannaA=2&age>13)|(vannaA=3&age>15)) then do se "L70 #"handle"ca? Glad to}L71 #"hostF"ca,}L72 #"hostM" welcomes you to the show,}*4"dfile"Graphics/vanna.ans}@4";end if OLog<2&NLog<2&Spin<3&Gans<4&vanna>0 then tr key1 PLAY: if consonants=0 & vowels=0 then do;solve=answer;signal GUESSPUZZLE0;end if lo=0 then do;lo=1;call MORE1 if OLog=1 then tr 'f1c6Previous Game Logc9:n1*0'dfile'Log.OLD.ANS}@4'key1 if OLog=2 then do;se 'n1c6View caOLD cdGame Log c6Now? c7[caNoc7]c6: ca';gc;a=result if a~='Y' then tr 'No.';else tr 'Yes!f1*0'dfile'Log.OLD.ANS}@4'key1;end if NLog=1 then tr 'f1c6Current Game Logc9:n1*0'dfile'Log.NEW.ANS}@4'key1 if NLog=2 then do;se 'n1c6View caNEW cdGame Log c6Now? c7[caNoc7]c6: ca';gc;a=result if a~='Y' then tr 'No.';else tr 'Yes!f1*0'dfile'Log.NEW.ANS}@4'key1;end if spin=3 then do;se 'n1c6Use c7[cdQc7]cduickc6, c7[caSc7]capinningc6, or c7[cbWc7]cbedge c6Wheel Graphics? ' se 'c7[cbWedgesc7]c6: ';gc;a=result;if a='Q' then do;tr 'cdQuick';Spin=0;end else if a='S' then do;tr 'caSpinning';spin=1;end;else do;tr 'cbWedges';spin=2;end;end if gans=4 then do;tr 'n1c6Possible cePuzzle cfGuessing c6Formatsc9:n1' tr '>5cf[caRcf]caegular Format cf(caYou type cfALL cacharacters in Puzzle Title.cf)' tr '>5c7<cbTc7>cbimer Shown, while using Regular Format entering above.' tr '>5c7<cdFc7>cdill-In-Knowns c7(cdKnown characters automatically filled in.c7)' tr '>5c7<ceHc7>ceole-Fill-Ins c7(ceAll known characters filled in at start.c7)' se 'n1c6Use which cePuzzle cfGuessing c6format? cf[caRegularcf]c9: ';gc;a=result if a='T' then do;tr 'cbTimer Shown';gans=1;end else if a='F' then do;tr 'cdFill-In-Knowns';gans=2;end else if a='H' then do;tr 'ceHole-Fill-Ins';gans=3;end else do;tr 'caRegular';gans=0;end;end;end a=length(space(answer,0));b=a-(consonants+vowels);call MORE0 if b/a>.50 & wh=1 then do tr 'n1c6'hostM' says, cb"caWe will now add c2$cb1000 cato the Wheel!cb"' tr key1;wheel=wheal;wh=2;end tr 'f1c9*==========================================================================*' tr 'c9|cb>X<>X<>X<><><><>< >< >< >< >cer1 WHEEL OF FORTUNE r0cb< >< >< >< ><><><><>X<>X<>X<c9|' tr 'c9*==========================================================================*' tr 'z7c4 Wheel Spots / Odds z0' if wh=1 then tr 'z7c4 1-$750, 1-$600, 1-$500, 1-$450, 3-$400, 3-$300, 3-$250, 3-$200, z0' if wh=2 then tr 'z7c4 1-$1000, 1-$750, 1-$600, 1-$500, 1-$450, 3-$400, 3-$300, 3-$250, 2-$200, z0' tr 'z7c4 2-$150, 2-$100, 1-Free Spin, 1-Lose Turn, 1-Bankrupt, 1-Surprise z0n1' tr 'cfCurrent Puzzle Numberc9: ce'left(puznum,20)'cfLast Playerc9: cb'Lhan tr 'cfCurrent Puzzle Authorc9: ca'left(author,20)'cfLast Winnerc9: cd'winhan'n1' se 'cfPLAYERc9: ce'left(handle,16)' cfWINNINGSc9: c2$cb';call CNUM(moncur) se left(a,9)' cfPREVIOUS WINNINGSc9: c2$cb';call CNUM(monwon);tr a'n1' if Banked=1 & monwon>0 & moncur<300 then do;a1='cf[c9Ucf]c9se Previous' a2='c9Funds';a3='';s='c9Ucf,';end;else do;a1='';a2='';a3='';s='';end tr ''a3'cf[cbScf]cbpin the Wheel cf[ceBcf]ceuy a Vowel 'a1 tr ''a3'cf[caGcf]cauess the Puzzle cf[cdQcf]cduit Play 'a2 tr;call SHOWPUZZLE;tr 'cfFree Spinsc9: ca'freespins'n1' if consonants>0 & vowels>0 then tr center('cbr1 Good Luck! r0',87) if consonants=0 then tr center('cer1 There are ONLY Vowels left in this Puzzle! r0',87) if vowels=0 then tr center('c9r1 There are NO MORE Vowels left in this Puzzle! r0',87) se 'n1cf[caPlaycf] >>>--cbScf,ceBcf,'s'caGcf,cdQcf--> ' PLAY1: gc;a=result;ck=CHECK();if index('!SBUGQ',a)=0 then do;bf;signal PLAY1;end;if a="!"&MFlag=1 then tr 'n1'answer if a='U' & Banked=1 & monwon>300 & moncur<300 then do tr 'c9Use Funds';signal USEFUNDS;end if a='S' then do;tr 'cbSpin Wheel' ;signal SPINWHEEL ;end if a='B' then do;tr 'ceBuy Vowel' ;signal BUYVOWEL ;end if a='G' then do;tr 'caGuess Puzzle';signal GUESSPUZZLE;end if a='Q' then do;tr 'cdQuit Play' ;signal MAIN ;end signal PLAY1 USEFUNDS: moncur=moncur+300;monwon=monwon-300;Banked=0 signal PLAY SPINWHEEL: if consonants=0 then do;se 'n1c6'hostM' reminds you, cb"cd'handle'ca, ' tr 'caremember, there are cfONLY VOWELS caleft in this puzzle.cb"' call WL("ca"handle" c6tried to cfSPIN c6with ceONLY VOWELS c6left!") tr key1;signal PLAY;end if Spin=0 then do;se "f1n8c6Spinningc9: ";a1=random(1,24);t=slow%100 do i=1 to 24;se left(word(whe,word(wheel,i)),11) call time('r');do until time('e')>=t;end;se 'h8';end i do i=1 to a1;se left(word(whe,word(wheel,i)),11) call time('r');do until time('e')>=t;end;se 'h8';end i tr 'z4cf'substr(word(whe,word(wheel,a1))'z0',4,11)'n1' c=word(wheel,a1);end if Spin=1 then call D17 if Spin=2 then do;se 'f1';a=random(25,60);sp=sp+a do until sp<30;sp=sp-25;end;b=random(2,4) a=sp-b;b=sp;if a<1 then a=1;action='Played ';call D16 do i=a to b;ii=i;if i>24 then ii=i-24;spot=word(wheel,ii) call D0;end i;tr 'n9';end if c=12 then signal FREESPIN;if c=13 then signal SURPRISE if c=14 then signal LOSETURN;if c=15 then signal BANKRUPT a='100 150 200 250 300 400 450 500 600 750 1000';money=word(a,c) tr 'cfThere is c2$cb'money' cfshowing on the ceWheelcf!n1' SURPRISE0B: call SHOWPUZZLE SPINWHEEL1: se 'cfType Your Guessc9:ca ';gc;guess=result;ck=CHECK() if index(cons,guess)=0 then do;se '';signal SPINWHEEL1;end bf;se guess;call CNUM(money) log="c6With c2$cb"a" c6on cfThe Wheelc6, ca"handle log=log" c6guesses c9"guess"c6...";call WL(log) if index(guessed,guess)>0 then do call WL("c6Which was c9ALREADY cbGuessedc6!") se 'n2c6That caconsonant c6has cfalready c6been guessed...w1' signal SPINWHEEL1;end if index(answer,guess)>0 then do;tr ' cf>>>---> caGOOD GUESS!' g=guessed;if g='' then g=guess;else g=g'-'guess guessed=g;call COUNT;consonants=consonants-tot call UNCOVER;call COLORPUZZLE;call COLORGUESSED;Lhan=handle if tot=1 then call WL("c6There was ce1 c9"guess"c6 in the puzzle: "puzzle2) if tot>1 then call WL("c6There were ce"tot" c9"guess"c6's in the puzzle: "puzzle2) if index(cons,guess)>0 then moncur=moncur+(money*tot) if tot=1 then se 'n1c6There is ce1 cb"ca'guess'cb" ' else se 'n1c6There are ce'tot' cb"ca'guess'cb"c6''s ' tr 'c6in the puzzle.n1'key1;signal PLAY;end if index(answer,guess)=0 then do;tr ' cf>>>---> c9WRONG!!' g=guessed;if g='' then g=guess;else g=g'-'guess guessed=g;Lhan=handle;call COLORGUESSED call WL("c6But there were cbNO c9"guess"c6's in the puzzle: "guessed2) if freespins=0 then do;tr 'n1Awwww... cbBetter Luck cfnext time.' call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end tr 'n1ceBut not to worry, cfYou have a cbFree Spincf!' call WL("c6However, ca"handle" c6has a cbFree Spinc6!") freespins=freespins-1;tr key1;signal PLAY;end FREESPIN: call WL("ca"handle" c6just landed on cbFREE SPINc6!") se 'n1c6'hostM' says, cb"caCongratulations cd'handle'ca, you now have a c9Free ' tr 'Spinca!cb"';freespins=freespins+1;tr key1 signal PLAY LOSETURN: call WL("ca"handle" c6just landed on cdLOSE A TURNc6!") se 'n1c6Frowning, 'hostM' tells you, cb"caUh Oh cd'handle'ca, looks like you ' tr 'c9Lose a Turnca.cb"n1';if freespins>0 then do se 'cb"caThat''s alright, however, because you still have a cbFree ' tr 'Spinca!cb"c6, 'hostM' says consolingly.';freespins=freespins-1 call WL("c6However, ca"handle" c6has a cbFree Spinc6!") tr key1;signal PLAY;end se 'cb"caThat''s too bad, you weren''t doing all that bad. Well, you ' tr 'can try again next callcb"c6, 'hostM' mumbles.';Lhan=handle call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2 BANKRUPT: call WL("ca"handle" c6just landed on c9BANKRUPTc6!");call CNUM(moncur) call WL("ca"handle" c6loses c2$cb"a" c6bucks!") se 'n1cb"c9BANKRUPTca! Only one on the whole wheel, and cd'handle'ca, you ' tr 'just found itcb"c6, 'hostM' informs you.n1';moncur=0 if freespins>0 then do tr 'cb"caLuckily you still have a cbFree Spinca!cb"c6, 'hostM' praises.' call WL("c6However, ca"handle" c6has a cbFree Spinc6!") freespins=freespins-1;tr key1;signal PLAY;end tr 'cb"caHopefully you''ll do better cfnext callca!cb"c6, 'hostM' explains.' call WL("ca"handle" c6is cffinished c6for this turn.") Lhan=handle;call SAVEPLAYERS;call SAVEDATA;signal QUIT2 SURPRISE: call WL("ca"handle" c6just landed on cfSURPRISEc6!") tr 'cb"caWow, ceSURPRISEca!cb"c6, 'hostM' exclaims!n1' a=random(1,6);a='SURPRISE'a;signal (a) SURPRISE1: call WL("ca"handle"c6's cfSURPRISE c6is a cbFREE SPINc6!") se 'cb"caWell, cd'handle' cayour ceSurprise cais a cbFREE SPINca!cb"c6, 'hostM' informs ' tr 'you.';freespins=freespins+1;tr key1;signal PLAY SURPRISE2: if vowels=0 then signal SURPRISE3 call WL("ca"handle"c6's cfSURPRISE c6is a ceFREE VOWELc6!") se 'cb"caHey cd'handle'ca, Congratulations, your ceSURPRISE cais to ' tr 'cfBUY caa ceVOWEL cafor cfFREEca!cb"c6, 'hostM' states.n1' moncur=moncur+250;signal SURPRISE0A SURPRISE3: c=random(1000,1500);money=c;call CNUM(money) call WL("ca"handle"c6's cfSURPRISE c6is c2$cb"a" c6on cfThe Wheelc6!") se 'c6Pulling out a white envelope, 'hostM' opens it and says, cb"cd'handle tr 'ca, this next guess will be worth c2$cb'a' cabucks! cfGood Luckca!cb"n1' signal SURPRISE0B SURPRISE4: suPR=suPR1;suVA=suVA1;signal SURPRISE7 SURPRISE5: suPR=suPR2;suVA=suVA2;signal SURPRISE7 SURPRISE6: suPR=suPR3;suVA=suVA3 SURPRISE7: if suPR=5 then signal SURPRISE2;if suPR=6 then signal SURPRISE1;if suPR=4 then signal SURPRISE3 if (suPR=0 & InfTimeR=1) | (suPR=1 & InfGameP=1) | (suPR=2 & InfByteC=1) | (suPR=3 & InfFileC=1) then do a=random(1,3);a='SURPRISE'a;signal (a);end if suPR=0 then do;addtime (suVA) call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfExtra Minutesc6!") se 'ce'sysop' c6waves 'hostM' over to him. When he returns, 'hostM' tells you, ' se 'cb"caCongrats cd'handle'ca, ce'sysop' cahas given you cf'suVA tr ' c9Extra Minutes caOnline!cb"n1'key1;end if suPR=1 then do;addpoints (suVA);call CNUM(suVA) call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfPfile Game Pointsc6!") se 'ceThe Director c6tells 'hostM' he has a phone call from ce'sysop'c6. When ' se 'he returns, 'hostM' tells you, cb"caHey cd'handle'ca, Guess what?! ce'sysop tr ' cahas decided to give you cf'a' c9Pfile Game Pointsca. Congrats!cb"n1'key1;end if suPR=2 then do;gu 35;a=result;a=a+suVA;setobject a;putuser 35;call CNUM(suVA) call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfByte Creditsc6!") se 'ce'hostF' c6steps offstage, then returns with a satisfied grin on her face, ' se 'cb"caI''ve just been with ce'sysop'ca! He wants you to receive cf'a tr ' c9Byte Credits caas your Surprise! Good Going!cb"n1'key2;end if suPR=3 then do;gu 34;a=result;a=a+suVA;setobject a;putuser 34 call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfFile Creditsc6!") se 'ce'hostF' c6faints dead away on the stage. When she comes to, she tells ' se 'you, cb"caI''ve just had a vision from ce'sysop'ca! In it, he told me ' tr 'to make sure you received cf'suVA' c9File Credits caright now!cb"n1'key2;end signal PLAY BUYVOWEL: if vowels=0 then do;se 'n1c6'hostM' reminds you, cb"cd'handle'ca, ' tr 'remember, there are cfONLY CONSONANTS caleft in this puzzle.cb"' call WL("ca"handle" c6tried to cfBUY A VOWEL c6with ceONLY CONSONANTS c6left!") tr key1;signal PLAY;end if moncur<300 then do call WL("ca"handle" c6tried to ceBUY c6a cbVowel c6with only c2$cb"moncur"c6!") se 'n1c6'hostM' informs you ceVowels Cost c2$cb250c6, and that you''ll ' tr 'need at least c2$cb300 c6to buy one!n1'key1;signal PLAY;end se 'f1n5c6Turning towards you, 'hostM' says, cb"cd'handle'ca, enter the ' tr 'ceVOWEL cayou wish to ceGuessca. Remember, this will cost you c2$cb250ca!cb"n1' SURPRISE0A: call SHOWPUZZLE;action='Played ' BUYVOWEL1: se 'cfType Your Guessc9: ce';gc;guess=result;ck=CHECK() if index(vows,guess)=0 then do;se '';signal BUYVOWEL1;end bf;se guess;call WL("ca"handle" ceBUYS c6the cbVowel c9"guess"c6...") if index(guessed,guess)>0 then do call WL("c6But that cbVowel c6was c9Already c6guessed!") se 'n1c6That cavowel c6has cfalready c6been guessed...w1' signal BUYVOWEL1;end if index(answer,guess)>0 then do;tr ' cf>>>---> caGOOD GUESS!' g=guessed;if g='' then g=guess;else g=g'-'guess guessed=g;call COUNT;vowels=vowels-tot call UNCOVER;call COLORPUZZLE;call COLORGUESSED;moncur=moncur-250 if tot=1 then call WL("c6There was ce1 c9"guess"c6 in the puzzle: "puzzle2) if tot>1 then call WL("c6There were ce"tot" c9"guess"c6's in the puzzle: "puzzle2) if tot=1 then se 'n1c6There is ce1 cb"ca'guess'cb" ' else se 'n1c6There are ce'tot' cb"ca'guess'cb"c6''s ' tr 'c6in the puzzle.n1'key1;signal PLAY;end if index(answer,guess)=0 then do;tr ' cf>>>---> c9WRONG!!' g=guessed;if g='' then g=guess;else g=g'-'guess guessed=g;Lhan=handle;call COLORGUESSED;moncur=moncur-250 call WL("c6But there were cbNO c9"guess"c6's in the puzzle: "guessed2) if freespins=0 then do;tr 'n1Awwww... cfBetter luck c6next time.' call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end tr 'n1c6But not to worry, cfYou have a cbFree Spincf!' call WL("c6However, ca"handle" c6has a cbFree Spinc6!") freespins=freespins-1;tr key1;signal PLAY;end GUESSPUZZLE: if zero=2 & moncur<100 then do se 'n1c6'hostM' gazes at you with a whimsical grin, then tells you, cb"ca' se "We don't usually allow players with c9less than $100 cato guess the " se 'puzzle cd'handle"ca, but I tell you what. I'll let you spin the " se 'wheel once, and if you can hit cfFREE SPINca, cfSURPRISEca, cfLOSE TURNca, ' se "or cfBANKRUPTca, I'll let you guess the puzzle. If you hit on one " se 'of the cbDOLLAR caspots, however, you''ll have to exit the game.cb"n1'key1 se "n2c6Spinningcb: ";a1=random(1,24);t=slow%100 do i=1 to 24;se left(word(whe,word(wheel,i)),11) call time('r');do until time('e')>=t;end;se 'h8';end i do i=1 to a1;se left(word(whe,word(wheel,i)),11) call time('r');do until time('e')>=t;end;se 'h8';end i tr left(word(whe,word(wheel,a1)),11) if word(wheel,a1)<12 then do ; Lhan=handle se 'n1c6'hostM' looks at you apologetically and says, cb"caOh well cd' se handle'ca, maybe next time.cb"n1'key1;signal PLAY;end se 'n1c6'hostM' is all smiles, cb"caVery Good, cd'handle'ca, now lets see ' se 'just how good you cfREALLY caare!cb"n1'key1;zero=1;end if zero=0 & moncur<100 then do se 'n1c6'hostM' wipes his brow, then looks at you, cb"caSorry, cd'handle se 'ca, but you need more than c2$cb100 cabefore you can attempt to cfGUESS ' tr 'cathis puzzle!cb"n1'key1;signal PLAY;end se 'f1n5c6Startled, 'hostM' asks, cb"caSo, cd'handle'ca, you think you know ' tr 'this puzzle. Well, cfgood luck cain guessing it!cb"n1' call WL("ca"handle" c6will try and cfSOLVE c6the puzzle...") call SHOWPUZZLE;len=length(puzzle) tr 'n1cfType your cbGuess cfbelow the ceCurrent Puzzlec9:n1' tr 'cf The Puzzle Nowc9: 'translate(puzzle2,hide,'@');bf if gans=0|gans=1 then do;tr 'cfYour Best Guessc9: cai4225 'len'}' gu 70;solve=result;ck=CHECK();signal ASC4;end if gans=2 then do;pu=translate(puzzle,'@',hide) se "cfYour Best Guessc9: ca";solve='';c=1 ASC1:;if c<=length(pu) then z=substr(pu,c,1);else z="" if z~="@"&z~="" then do;solve=solve||z;se z;signal ASC3;end ASC2:;gc;a=result;ck=CHECK() if a=d2c(13) then do;tr;signal ASC4;end if a=d2c(8) then do;if c=1 then signal ASC2;c=c-1 solve=left(solve,c-1);se "h1";signal ASC2;end;solve=solve||a;se a ASC3:;c=c+1;signal ASC1;end;if gans=3 then do pu=translate(puzzle,'@',hide);pt=translate(pu,' ','@') se "cfYour Best Guessc9: ca"pt"";solve='';c=1 IBM1:;if c<=length(pu) then z=substr(pu,c,1);else z="" if z~="@"&z~="" then do;solve=solve||z;se z;signal IBM3;end IBM2:;gc;a=result;ck=CHECK();if a=d2c(13) then signal ASC4 if a=d2c(8) then do;if c=1 then signal IBM2;c=c-1 solve=left(solve,c-1);se "h1";signal IBM2;end;solve=solve||a;se a IBM3:;c=c+1;signal IBM1;end ASC4:;if solve~=answer then do call WL("c6But, alas, more cbSTUDY c6is needed for this puzzle!") se 'n1c6Shaking his head, 'hostM' tells you, cb"caI''m sorry cd'handle tr 'ca, but that''s c9not cathe correct answer.cb"n1' Lhan=handle;if freespins=0 then do tr 'n1c9Awwww... c6Try again when a cbfew more letters c6are showing.' call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end tr 'n1c6But not to worry, cfYou have a cbFree Spincf!' call WL("c6However, ca"handle" c6has a cbFree Spinc6!") freespins=freespins-1;tr key1;signal PLAY;end GUESSPUZZLE0: if solve=answer then do if olm>0 then do;se "c6Sending cfOLM'sc6:ca " call SENDOLM(" cfCongratulations c6to cd"handle" c6who just c9SOLVED c6the current cbWheel of Fortune cePuzzlec6!");end call WL("cfCongratulations c6to ca"handle" c6who just cbSOLVED c6the puzzle!") se 'f1n1c6Clapping his hands, 'hostM' says, cb"caCongratulations cd'handle;call CNUM(moncur) tr 'ca, You''ve just won c2$cb'a' cain cfCASH caand cfPRIZESca!cb"' if puPR>0 then do;call CNUM(puVA) se 'n1c6For c9winning c6the game, cb'sysop' Broadcasting c6has decided ' se 'to give you ca'a' ce'pr.puPR'c6! Enjoy them!n1' if puPR=1 then addtime (puVA);if puPR=2 then addpoints (puVA) if puPR=3 then do;gu 35;b=result;b=b+puVA;setobject (b);putuser 35;end if puPR=4 then do;gu 34;b=result;b=b+puVA;setobject (b);putuser 34;end call WL("ca"handle" c6was awarded cf"a" c9"pr.puPR"c6 for solving this cfPuzzlec6!");end puzwon=puzwon+1;winhan=handle;windate=date;wins=puzwon winpuz=answer;played=played+1;monwon=monwon+moncur winmon=monwon;percent=((puzwon/played)*100)%1 winner=winhan'|'winpuz'|'windate'|'winmon'|'wins'|x' winners=winners+1;winner.winners=winhan'|'winpuz'|'windate'|x' l.1='cc'right('cf'dateL,78,'=')'cc===';l.2='cf The Win Datec9: cb'dateL l.3='cf The Puzzlec9: ce'answer;l.4='cf Puzzle Cluec9: ca'clue;call CNUM(winmon) l.5='cf Puzzle Winnerc9: cd'handle;l.6='cfTotal Winningsc9:c2$cb'a do i=1 to 6;call WL(l.i);end i;if winners>max1 then do;winners=max1 do i=2 to max1+1;j=i-1;winner.j=winner.i;end i;end if played>mostplays then do;se 'n1c6'hostM' says, cb"cd'handle tr 'ca, you c9broke cathe old cfMOST PLAYS caRecord!cb"' call WL("ce A NEW RECORDc9: cfPlayed the caMOST cfTimes!") mostplaysH=winhan;mostplays=played;end if wins>mostpuzs then do;se 'n1c6'hostM' says, cb"cd'handle tr 'ca, you c9broke cathe old cfMOST PUZZLES caRecord!cb"' call WL("ce A NEW RECORDc9: cfWon the caMOST cfPuzzles!") mostpuzsH=winhan;mostpuzs=wins;end if monwon>mostbank then do;se 'n1c6'hostM' says, cb"cd'handle tr 'ca, you c9broke cathe old cfMOST TOTAL WINNINGS caRecord!cb"' call WL("ce A NEW RECORDc9: cfWon the caMOST cfBucks cdEVERcf!") mostbankH=winhan;mostbank=monwon;end if moncur>mostcash then do;se 'n1c6'hostM' says, cb"cd'handle tr 'ca, you c9broke cathe old cfMOST WINNINGS caRecord!cb"' call WL("ce A NEW RECORDc9: cfWon the caMOST cfBucks in cdONE GAMEcf!") mostcashH=winhan;mostcash=moncur;end stats.1=mostplaysH'|'mostplays'|x';stats.2=mostpuzsH'|'mostpuzs'|x' stats.3=mostbankH'|'mostbank'|x' ;stats.4=mostcashH'|'mostcash'|x' if monwon>=1000000 then do;se 'n1c6'hostM' says, cb"cd'handle"ca, you've won more than cbOne Million " tr 'cadollars! Adding you to the ceRegular Millionaires Listca!cb"' call WL("ce A MILLIONAIREc9: caOne Million cfdollars in cbRegular Prize cfmoney!") monwon=monwon-1000000;z=millionaires+1;do i=1 to millionaires if index(mil.i,handle)~=0 then do;z=i;leave i;end end i ; if z>millionaires then millionaires=z;mills=mills+1 if mills=mills3 then do;se 'n1c6After doing so, 'hostM' says, cb"caHey cd'handle"ca, you now have ce"mills3" MILLION cadollars! " tr 'I''m adding you as our next cfALL TIME BEST WOF PLAYERca!cb"' call WL("ce A NEW BANKERc9: ca"mills3" MILLION cfdollars in cbRegular Prize cfmoney!") mills=0 ; BFlag=1 ; zz=bankers+1;do i=1 to bankers if index(bil.i,handle)~=0 then do;zz=i;leave i;end end i ; if zz>bankers then bankers=zz t=btype.zz ; if t=2|t=3 then t=3 ; else t=1 if zz=bankers then bills.zz=mills3;else bills.zz=bills.zz+mills3 bil.zz=bills.zz'|'date'|'handle'|'t'|x' if bankers>max3 then do do i=2 to bankers+1 ; j=i-1 ; bil.j=bil.i ; end i bankers=max3 ; end call SAVEBANKERS ; call READBANKERS ; mil.z='' do i=1 to millionaires ; j=i+1 if mil.i='' then do ; mil.i=mil.j ; mil.j='' ; end end i ; millionaires=millionaires-1 ; end if mills>0 then do ; mil.z=mills'|'date'|'handle'|x' if millionaires>mills1 then do do i=2 to mills1+1 ; j=i-1 ; mil.j=mil.i ; end i millionaires=mills1 ; end ; end call SAVEMILLIONAIRES;call READMILLIONAIRES;end call SAVEWINNERS;call SAVEWINNER;call SAVESTATS;call SAVEPLAYERS call WL("c9"right("ce"dateL,78,'-')"c9---");call BONUSROUND t1=boncash+(bmills*1000000);t2=monwon+(mills*1000000) if (resetM=2&t2>=resetV)|(resetM=4&t1+t2>=resetV)|(resetM=5&BFlag=1) then call RESETGAME se 'n1c6Shaking your hand, 'hostM' tells you, cb"caAs the cfnewest cbWheel of ' tr 'Fortune ceWinnerca, you have to make a choice.cb"n1' tr '>5cf1c9: ceCreate a cfNew Puzzle cefor use at a cdLATER cedate.n1' tr '>5cf2c9: c6Let cd'bbsname' cbGenerate c6next puzzle.c7(cdDEFAULTc7)n1' se 'cfWhat''s your choice, cd'handle'cf? ';gc;ga=result if ga~='1' then signal GENERATE MAKEPUZZLE: tr 'ceI''ll make it!' se 'n1cb"caOK, cd'handle'ca, Please enter your cePuzzleca:cb"c6, ' tr hostM' asks fervently.n1' tr 'cfPuzzlec9:cai4225 50}';gu 70;a=result;a=strip(a,'b') if result='###PANIC' | result='' then signal GENERATE if length(a)<9 then do se 'c6Whispering in your ear, ca'hostF' c6tells you that ' se 'puzzle is cbtoo c6short.w2';signal MAKEPUZZLE;end se 'cb"ca'a'cb"n2cfIs this correct cd'handle'cf? (caYcf/cbncf)c9: ' gc;b=result;if result='###PANIC' then signal GENERATE if b~='N' then do;tr 'caYes!';newpuz=a;end if b='N' then do;se 'cbNo. ceTry Againw1';signal MAKEPUZZLE;end se 'n1cb"caNow enter a cfClue cafor your cfPuzzleca, cd'handle'cb"c6, ' tr hostM' guides you.n1' MAKECLUE: tr 'cf Cluec9:cei4225 20}';gu 70;a=result;a=strip(a,'b') if result='###PANIC' | result='' then signal GENERATE if length(a)<3 then do se 'n1c6Pinching your butt, ca'hostF' c6gives you the sign that ' se 'your clue is cbtoo c6short.w2';signal MAKECLUE;end se 'cb"ca'a'cb"n2cfIs this correct cd'handle'cf? (caYcf/cbncf)c9: ' gc;b=result;if result='###PANIC' then signal GENERATE if b~='N' then do;tr 'caYes!';newclue=a;end if b='N' then do;se 'cbNo. ceTry Againw1';signal MAKECLUE;end author=handle;a=exists(dfile'NewPuz') if a=0 then call open(f1,dfile'NewPuz','w') if a=1 then call open(f1,dfile'NewPuz','a') z=newpuz'|'newclue'|'author'|x';call writeln(f1,z) call close(f1);call WL("ca"handle" c6decided to ceMAKE c6a new puzzle...") se 'n1c6'HostM' shakes your hand once again, cb"caThanks cd'handle'ca, we''ll be sure ' tr 'to use your puzzle sometime in the future.cb"' GENERATE: if ga~=1 then tr 'c6Generate cfNEW cePuzzlec6!' call open(f1,dfile'PuzData','r');a=strip(readch(f1,5),'t',d2c(0)) if nextpuznum>a then nextpuznum=1 ptr=((nextpuznum*90)-90)+5;call seek(f1,ptr,'b') p=strip(readch(f1,50),'t',d2c(0));c=strip(readch(f1,20),'t',d2c(0)) a=strip(readch(f1,20),'t',d2c(0));call close(f1);nextpuznum=nextpuznum+1 newpuz=translate(p,reverse(xrange('!','~')),xrange('!','~')) newclue=translate(c,reverse(xrange('!','~')),xrange('!','~')) author=translate(a,reverse(xrange('!','~')),xrange('!','~')) if author='Pat & Vanna' then author=hosts call WL("ca"handle" c6decided to let ce"bbsname" c6choose the next puzzle...") GENERATE2: puzplay=puzplay+1;consonants=0;vowels=0;guessed='' do i=1 to length(newpuz);z=substr(newpuz,i,1) if index(cons,z)>0 then consonants=consonants+1 if index(vows,z)>0 then vowels=vowels+1 end i;answer=newpuz;Lhan='No One';clue=newclue puzzle=translate(answer,,xrange('A','Z'),'@');newlog=0;call SAVELOG if exists(dfile'Log.OLD.ASC') then address command 'delete 'dfile'Log.OLD.ASC';address command 'rename 'dfile'Log.NEW.ASC 'dfile'Log.OLD.ASC' if exists(dfile'Log.OLD.ANS') then address command 'delete 'dfile'Log.OLD.ANS';address command 'rename 'dfile'Log.NEW.ANS 'dfile'Log.OLD.ANS' if exists(dfile'Log.OLD.IBM') then address command 'delete 'dfile'Log.OLD.IBM';address command 'rename 'dfile'Log.NEW.IBM 'dfile'Log.OLD.IBM' call open(f1,dfile'LastPlayer','w');call writeln(f1,'0|No One|No Where|0|0|1|0|x');call close(f1) log.1='cfNEW cbGame c6Started Onc9: cb'dateL;newlog=1 log.2='cf The NEW Puzzlec9: ce'puzzle;log.3='cf NEW Puzzle Cluec9: ca'clue log.4='cf NEW Puzzle Authorc9: cd'author;log.5='cc'right('cf'dateL,78,'=')'cc===' logs=5;call SAVELOG;se 'n1cf'hostM' c6& ca'hostF' c6would like to cfThank You c6for playing ' se 'cbWheel of Fortune c6today, and hope to see you as a cacontestant ' tr 'c6again someday!n1';aut=author;call SAVEDATA if play=1 & handle~=aut then do se hostM' asks, cb"caWould you like to be the c9FIRST caplayer of the ' se 'cfNEW caGame cd'handle'ca?cb"n2c6(cayc6/cbNc6)cf: ' gc;a=result;if a='Y' then do;tr 'caYes!';signal BEGIN;end else tr 'cbNo.';end changewhere oldwh;signal QUIT3 BONUSROUND: call WL("ca"handle" c6is eligible to play the cfBONUS Roundc6...") se 'n1c6Would cbYOU c6like to caPlay c6the cfBonus Roundc6? c7[caYesc7]c6: ca';gc;a=result if a='N' then do;tr 'No.';call WL("c6But ca"handle" c9declinesc6 playing! Why?!?");return;end tr 'Yes!';call WL("cfAlrightc6, ca"handle" c6accepts the challenge...");changewhere "WOF Bonus Round" if smart=2 then do;se 'n1c6Would cbYOU c6like to use cfSmart Bonus Lettersc6? c7[caNoc7]c6: ca' gc;a=result;if a~='Y' then do;tr 'No.';smart=0;end;else do;tr 'Yes!';smart=1;end;end call open(f1,dfile'PuzData','r');a=strip(readch(f1,5),'t',d2c(0)) if nextbonpuz<1 then nextbonpuz=a;npn=nextbonpuz do until length(p)>=minB;ptr=((npn*90)-90)+5;call seek(f1,ptr,'b') p=strip(readch(f1,50),'t',d2c(0));npn=npn-1;end c=strip(readch(f1,20),'t',d2c(0));a=strip(readch(f1,20),'t',d2c(0)) call close(f1);newpuz=translate(p,reverse(xrange('!','~')),xrange('!','~')) newclue=translate(c,reverse(xrange('!','~')),xrange('!','~'));answer=newpuz author=translate(a,reverse(xrange('!','~')),xrange('!','~'));clue=newclue puzzle=translate(answer,,xrange('A','Z'),'@');len=length(puzzle) prize=random(100,500)*100;call CNUM(prize);let='RSTNLE' tr 'f1>5c9o----------------------------------------------------------------o' tr '>5c9|cb>X<>X<>X<>X<>X<>X<r1ce Welcome to the Bonus Round r0cb>X<>X<>X<>X<>X<>X<c9|' tr '>5c9o----------------------------------------------------------------on1' se 'c6'hostM' explains the cfBonus Roundc6, cb"caYou''ll be trying to solve a puzzle in a ' se 'set amount of time. We''ll give you the letters ceRca, ceSca, ceTca, ceNca, ceLca, and ceEca. ' se 'You will also be asked for c6threec7(c63c7) camore consonants, and c6onec7(c61c7) camore vowel. ' se 'If you can solve the cfBonus Puzzle cabefore time runs out, you''ll win ' tr 'today''s cbCash cdPrize caof c2$cb'a' cfbucksca!cb"n1' if smart=0 & smartB>0 then do;call CNUM(smartB) se 'c6If you select ceRc6, ceSc6, ceTc6, ceNc6, ceLc6, or ceE c6for one of your caAdditional c6letters, ' se 'and then cfSOLVE c6the cbBonus Puzzlec6, you will be awarded c2$cb'a' cfbucksc6, ' tr 'in addition to today''s cbCash cdPrizec6.n1';end do ii=1 to 6;guess=substr(let,ii,1);call UNCOVER;end ii;call COLORPUZZLE tr '>8c6The Bonus Puzzlec9: ce'translate(puzzle2,Hide,'@')'n1' tr '>ac6The Bonus Cluec9: ca'clue;tr BROUND1: se 'c6Enter cathreec7(ca3c7) c6more cbconsonantsc9:cai4225 3}' gu 70;a=result;ck=CHECK();a1=left(a,1);a2=substr(a,2,1);a3=substr(a,3,1);if a1="!"&MFlag=1 then do;tr 'n1'answer;signal BROUND1;end if index(cons,a1)=0|index(cons,a2)=0|index(cons,a3)=0 then do;tr 'n1Please type THREE CONSONANTS now!w1^1';signal BROUND1;end if smart=1 & index(let,a1)~=0 then tr 'n1The consonant 'a1' was already given to you.w1^1' if smart=1 & index(let,a2)~=0 then tr 'n1The consonant 'a2' was already given to you.w1^1' if smart=1 & index(let,a3)~=0 then tr 'n1The consonant 'a3' was already given to you.w1^1' if smart=1 & (index(let,a1)~=0|index(let,a2)~=0|index(let,a3)~=0) then signal BROUND1;else tr BROUND2: se 'c6 Enter caonec7(ca1c7) c6more cbvowel c6nowc9:cai4225 1}';gu 70;a4=result;ck=CHECK() if index(vows,a4)=0 then do;tr 'n1Please type ONE VOWEL now!w1^1';signal BROUND2;end if smart=1 & a4='E' then do;tr 'n1The vowel E was already given to you.w1^1';signal BROUND2;end do ii=1 to 4;guess=substr(a1||a2||a3||a4,ii,1);call UNCOVER;end ii;call COLORPUZZLE Bprize=0;do ii=1 to 4;if index(let,substr(guess,ii,1))>0 then Bprize=1;end ii se 'n1c6'hostF' nudges 'hostM' to bring him out of his stupor, cb"caStart typing your answer ' se 'as soon as you see the entire screen cd'handle'ca, as the timer will begin ' se 'counting down immediately! Alright, cd'handle'ca, press any key when ' tr 'you''re ready to start the cfBonus Roundca!cb"n1'key1 tr 'f1>4c9o------------------------------------------------------------------o' tr '>4c9|cc>X<>X<>X<>X<>X<>X<r1cf Can You Win the Bonus Round? r0cc>X<>X<>X<>X<>X<>X<c9|' tr '>4c9o------------------------------------------------------------------on1' se '>5c6The Bonus Prize isc9: c2$cb';call CNUM(prize);tr a' cfbucksc6!n1' tr '>4c6Bonus Letters Givenc9: cdRce-cdSce-cdTce-cdNce-cdLce-cdEce-cd'a1'ce-cd'a2'ce-cd'a3'ce-cd'a4'n1' tr '>6c6The Bonus Clue isc9: ca'clue'n1' tr '>4c6The Bonus Puzzle isc9: 'translate(puzzle2,hide,'@')'n1' t=timer;call time('r');z='';zz='';bf if gans=0 then do;se '>4c6Your Bonus Guess isc9: cd_' GUESS1:;maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end if a='NOCHAR' then signal GUESS1;if a=d2c(8) & z='' then signal GUESS1 if a=d2c(8) & z~='' then do;z=left(z,length(z)-1);se 'h2_';signal GUESS1;end if a=d2c(13) & z=answer then signal GOODGUESS;if a=d2c(13) & z~=answer then signal BADGUESS zz=upper(a);z=z||zz;se 'h1cf'zz'cd_';signal GUESS1;end if gans=1 then do;tr ' c6Seconds Leftc9: ca'left(trunc(t-time('e'),1),4)' c9> cf' GUESS2:;se 'ca'left(trunc(t-time('e'),1),4)' c9> cf'z'cd_ h1' maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end if a='NOCHAR' then signal GUESS2;if a=d2c(8) & z='' then signal GUESS2 if a=d2c(8) & z~='' then do;z=left(z,length(z)-1);signal GUESS2;end if a=d2c(13) & z=answer then signal GOODGUESS;if a=d2c(13) & z~=answer then signal BADGUESS zz=upper(a);z=z||zz;signal GUESS2;end if gans=2 then do;pu=translate(puzzle,'@',hide);se ">4c6Your Bonus Guess isc9: cd_";solve='';c=1 BASC1:;if c<=length(pu) then z=substr(pu,c,1);else z='' if z~="@"&z~="" then do;solve=solve||z;se "h1cf"z"cd_";signal BASC3;end BASC2:;maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end if a='NOCHAR' then signal BASC2 if a=d2c(8) then do;if c=1 then signal BASC2;c=c-1 solve=left(solve,c-1);se "h2cd_";signal BASC2;end if a=d2c(13) & solve=answer then signal GOODGUESS if a=d2c(13) & solve~=answer then signal BADGUESS solve=solve||upper(a);se "h1cf"upper(a)"cd_" BASC3:;c=c+1;signal BASC1;end if gans=3 then do;pu=translate(puzzle,'@',hide);pt=translate(pu,' ','@') se ">4c6Your Bonus Guess isc9: cf"pt"";solve='';c=1 BIBM1:;if c<=length(pu) then z=substr(pu,c,1);else z="" if z~="@"&z~="" then do;solve=solve||z;se "cf"z;signal BIBM3;end;se "cd_" BIBM2:;maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end if a='NOCHAR' then signal BIBM2 if a=d2c(8) then do;if c=1 then signal BIBM2;c=c-1 solve=left(solve,c-1);se "h2cd_";signal BIBM2;end if a=d2c(13) & solve=answer then signal GOODGUESS if a=d2c(13) & solve~=answer then signal BADGUESS solve=solve||upper(a);se "h1cf"upper(a) BIBM3:;c=c+1;signal BIBM1;end OUTOFTIME: call WL("ca"handle" c9ran out of time c6in the cfBonus Roundc6!");bf se 'n2c6'hostM' looks at 'hostF' and frowns, cb"caI''m sorry cd'handle'ca, but ' se 'catime has run out. Hopefully, we''ll see you in another cfBonus ' tr 'Roundca sometime soon!cb"n1' if showB=2 | showB=4 then tr ' cfThe ceBonus Puzzle cfwasc9: cb'answer tr key1;tr 'f1' signal ENDBONUS GOODGUESS: if olm>0 then do;se "n2c6Sending cfOLM'sc6:ca " call SENDOLM(" cfCongratulations c6to cd"handle" c6who just c9SOLVED c6the cbWheel of Fortune cfBONUS cePuzzlec6!");end call WL("cfCongratulations c6to ca"handle" c6who just cbSOLVED c6the cfBONUS Puzzlec6!");bf se 'n2c6Jumping up and down, you grab 'hostF' in a bear hug and she squeals. ' se hostM' confronts you, cb"caCalm down cd'handle'ca, great job, you solved ' se 'today''s cfBonus Puzzleca, and win c2$cb';call CNUM(prize);tr a' cfbucks cadoing it!cb"n1'key1 tr 'f1c6'hostM' continues, cb"cd'handle'ca, you''ve also just won:cb"n1' a=right(random(1,20),2,'0');tr '*6'dfile'Graphics/Prize'a'.ans}n1'key1 prizes=prizes+1;prize.prizes=date'|'prize'|'bpPR'|'bpVA'|'Bprize'|'smartB'|'a'|x' if prizes>20 then do;do i=1 to 21;j=i+1;prize.i=prize.j;end i;prizes=20;end;call SAVEWOF if bpPR>0 then do;call CNUM(bpVA) se 'n1c6For c9solving c6the ceBONUS c6Puzzle, cb'sysop' Broadcasting c6has decided ' se 'to give you ca'a' ce'pr.bpPR'c6! Enjoy them!n1'key1 if bpPR=1 then addtime (bpVA);if bpPR=2 then addpoints (bpVA) if bpPR=3 then do;gu 35;b=result;b=b+bpVA;setobject (b);putuser 35;end if bpPR=4 then do;gu 34;b=result;b=b+bpVA;setobject (b);putuser 34;end call WL("ca"handle" c6was awarded cf"a" c9"pr.bpPR"c6 for solving the ceBonus Puzzlec6!");end if Bprize=1 & smartB>0 then do;call CNUM(smartB) call WL("ca"handle" c6also won c2$cb"a" cfbucks c6from the ceSmart Bonus Prizec6!") se 'n1c6You have also won c2$cb'a' cfbucks c6as the ceSmart Bonus Prize c6winner!n1'key1 boncash=boncash+smartB;end bonwins=bonwins+1;boncash=boncash+prize;tr 'f1' if bonwins>mostbwins then do;se 'n1c6'hostM' says, cb"cd'handle tr 'ca, you c9broke cathe old cfMOST BONUS WINS caRecord!cb"' call WL('ce A NEW RECORDc9: cfWon the caMOST BONUS GAMES cdEVERcf!') mostbwinsH=handle;mostbwins=bonwins;end if boncash>mostbcash then do;se 'n1c6'hostM' says, cb"cd'handle tr 'ca, you c9broke cathe old cfMOST BONUS CASH caRecord!cb"' call WL('ce A NEW RECORDc9: cfWon the caMOST BONUS CASH cdEVERcf!') mostbcashH=handle;mostbcash=boncash;end stats.5=mostbwinsH'|'mostbwins'|x';stats.6=mostbcashH'|'mostbcash'|x' bwinner=handle'|'answer'|'date'|'prize'|'bonwins'|x';bwinners=bwinners+1 bwinner.bwinners=handle'|'answer'|'date'|'prize'|x';if bwinners>max2 then do do i=2 to max2+1;j=i-1;bwinner.j=bwinner.i;end i;bwinners=max2;end if boncash>=1000000 then do;se 'n1c6'hostM' says, cb"cd'handle"ca, you've won more than cbOne Million " tr 'cadollars! Adding you to the ceBonus Round Millionaires Listca!cb"' call WL("ce A MILLIONAIREc9: caOne Million cfdollars in cbBONUS Prize cfmoney!") boncash=boncash-1000000;z=bmillionaires+1;do i=1 to bmillionaires if index(bmil.i,handle)~=0 then do;z=i;leave i;end end i ; if z>bmillionaires then bmillionaires=z;bmills=bmills+1 if bmills=mills3 then do;se 'n1c6After doing so, 'hostM' says, cb"caHey cd'handle"ca, you now have ce"mills3" MILLION cadollars! " tr 'I''m adding you as our next cfALL TIME BEST WOF PLAYERca!cb"' call WL("ce A NEW BANKERc9: ca"mills3" MILLION cfdollars in cbBonus Prize cfmoney!") bmills=0 ; BFlag=1 ; zz=bankers+1;do i=1 to bankers if index(bil.i,handle)~=0 then do;zz=i;leave i;end end i ; if zz>bankers then bankers=zz t=btype.zz ; if t=1|t=3 then t=3 ; else t=2 if zz=bankers then bills.zz=mills3;else bills.zz=bills.zz+mills3 bil.zz=bills.zz'|'date'|'handle'|'t'|x' if bankers>max3 then do do i=2 to bankers+1 ; j=i-1 ; bil.j=bil.i ; end i bankers=max3 ; end call SAVEBANKERS ; call READBANKERS ; bmil.z='' do i=1 to bmillionaires ; j=i+1 if bmil.i='' then do ; bmil.i=bmil.j ; bmil.j='' ; end end i ; bmillionaires=bmillionaires-1 ; end if bmills>0 then do;bmil.z=bmills'|'date'|'handle'|x' if bmillionaires>mills2 then do do i=2 to mills2+1;j=i-1;bmil.j=bmil.i;end i bmillionaires=mills2;end;end call SAVEBMILLIONAIRES;call READBMILLIONAIRES;end call SAVESTATS;call SAVEBWINNER;call SAVEBWINNERS;call SAVEPLAYERS signal ENDBONUS BADGUESS: call WL("ca"handle" c9incorrectly guessed c6the cfBonus Puzzlec6!");bf se 'n2c6Looking at the white card in his hand, 'hostM' walks over to you, cb"caI''m ' se 'sorry cd'handle'ca, but that''s an incorrect guess of this cfBonus ' tr 'Puzzleca. Better luck next time, eh?cb"n1' if showB=3 | showB=4 then tr ' cfThe ceBonus Puzzle cfwasc9: cb'answer tr key1;tr 'f1' signal ENDBONUS ENDBONUS: call READDATA;nextbonpuz=npn-1;call SAVEDATA;changewhere "WOF ANS Game" t1=boncash+(bmills*1000000);t2=monwon+(mills*1000000) if (resetM=3&t1>=resetV)|(resetM=4&t1+t2>=resetV)|(resetM=5&BFlag=1) then call RESETGAME return CANCELGAME: /* SysOp Command; Cancels & AutoGenerates a NEW Game */ tr 'n1c6'hostM' asks, cb"caYou really want to c9CANCEL cathis Game?cb"' se 'n1c6(cayc6/cbNc6) cf>>>---> ';call COLORPUZZLE gc;a=result;if a~='Y' then do;tr 'cbNo!';signal MAIN;end call WL("z4cf "sysop" has decided to c9CANCEL cfthis game! (Errors?) z0n1") call WL("cf The Puzzle Wasc9: ce"puzzle2"n1") call WL("cf The Answer Wasc9: ca"answer"n1") tr 'caYes!n1';signal GENERATE COUNT: tot=0;len=length(answer) do i=1 to len;a=substr(answer,i,1) if guess=a then tot=tot+1;end i return UNCOVER: do i=1 to len;z=substr(answer,i,1) if guess=z then puzzle=overlay(guess,puzzle,i,1);end i return SHOWPUZZLE: tr 'cf Current Puzzlec9: 'translate(puzzle2,Hide,'@') tr 'cf Puzzle Cluec9: ca'clue tr 'cfGuessed Lettersc9: cd'guessed2 return COLORPUZZLE: a='';do i=1 to length(puzzle);b=substr(puzzle,i,1) if b='@' then a=a'ce@';else a=a'cb'||b end i;puzzle2=a return COLORGUESSED: a='';do i=1 to length(guessed);b=substr(guessed,i,1) if b='-' then a=a'ce-';else a=a'cd'||b end i;guessed2=a return CNUM: /* Comma Number Parser (Place commas inside numbers) */ parse arg a;b=length(a);if b=4 then a=insert(',',a,1,1) if b=5 then a=insert(',',a,2,1);if b=6 then a=insert(',',a,3,1) if b=7 then do;a=insert(',',a,1,1);a=insert(',',a,5,1);end return SAVELASTPLAYER: a=sid'|'handle'|'street'|'voice'|'data'|'right(date('s'),2)'|'left(time(),2)'|x' call open(f1,dfile'LastPlayer','w');call writeln(f1,a);call close(f1) return READLASTPLAYER: call open(f1,dfile'LastPlayer','r');a=readln(f1);call close(f1) parse var a Lsid'|'Lhan'|'Lstr'|'Lvoi'|'Ldat'|'Lday'|'Lhrs'|'j cd=right(date('s'),2);ch=left(time(),2);el=(((cd-Lday)*24)+(ch-Lhrs)) Lflag=0;Mflag=0 if Last=0 & (sid=Lsid | handle=Lhan) then Lflag=1 if Last=1 & (sid=Lsid | handle=Lhan | street=Lstr | voice=Lvoi | data=Ldata) then Lflag=1 if maint=1 & sid=1 then Mflag=1;if maint=2 & access=23 then Mflag=1 if maint=3 & access=31 then Mflag=1;if maint=4 & maintA>0 then Mflag=1 return WL:;parse arg log;logs=logs+1;log.logs=log;return SAVELOG: a='ANS IBM ASC';if newlog=0 then se 'n1cbSaving cdGame ceLogsc6...cb' else se 'n1cfCreating c9NEW ceLogsc6... cf' do i=1 to 3;b=subword(a,i,1);f='Log.NEW.'||b call open(f1,dfile||f,substr('wa',exists(dfile||f)+1,1)) do j=1 to logs;if i=1 then call writeln(f1,log.j) if i=2 then call writeln(f1,translate(log.j,'ÄÍ','-=')) if i=3 then do;do until c=0;c=index(log.j,'') if c>0 then log.j=delstr(log.j,c,3);end;call writeln(f1,log.j);end end j;call close(f1) end i;tr 'h8h8ed!' return HOFAME: call WL("ca"handle" c6viewed the cfHALL OF FAMEc6!") tr 'f1n1c6'hostM' says, cb"caHere are the cfHigh Scores cd'handle'ca!cb"n1' tr "cf Hc7igh cfSc7corer's cfHc7andle ceHc6igh ceSc6core ceBc6roken cbScacore cbTcao cbBcaeat" tr "c9 ====================== ======================= ===============" tr 'cf'right(mostplaysH,25)'ce Most Games EVER cb'mostplays;call CNUM(mostbank) tr 'c7'right(mostbankH,25)' c6 Most Money EVER c2$ca'a tr 'cf'right(mostpuzsH,25)' ce Most Games EVER cb'mostpuzs;call CNUM(mostcash) tr 'c7'right(mostcashH,25)' c6 Most Money In 1 Game c2$ca'a tr 'cf'right(mostbwinsH,25)'ce Most BONUS Games EVER cb'mostbwins;call CNUM(mostbcash) tr 'c7'right(mostbcashH,25)'c6 Most BONUS Cash EVER c2$ca'a tr 'c9 ====================== ======================= ===============n1' se 'c6View caAll Time Best WOF Player cbListing c6Now? c9[cfYesc9]c6: cf';gc;a=result if a='N' then do;tr 'No.';return;end;else do;tr 'Yes!';call BANKERS;end return YOURSTATS: z1st='No.';do i=1 to bankers;if index(bil.i,handle)~=0 then do;z1st='Yes!';z=i;leave i;end;end i z2st='No.';do i=1 to millionaires;if index(mil.i,handle)~=0 then do;z2st='Yes!';leave i;end;end i if z2st='No.'&z1st='Yes!'&(btype.z=1|btype.z=3) then z2st='Not Presently!' z3st='No.';do i=1 to bmillionaires;if index(bmil.i,handle)~=0 then do;z3st='Yes!';leave i;end;end i if z3st='No.'&z1st='Yes!'&(btype.z=2|btype.z=3) then z3st='Not Presently!' call WL("ca"handle" c6viewed current cbGAME STATSc6!") tr 'f1n1c6'hostM' says, cb"caHere are your stats cd'handle'ca!cb"n1';call CNUM(monwon) tr ' ceWc6inning ceSc6tatistics cbScacore' tr 'c9 ========================================= ==========' tr 'ce Total Number of Games You Have Wonc9: cb'puzwon tr "c6 Percentage of Times You've Won the Gamec9: cd"percent'cf%';call CNUM(monwon) tr 'ce Total Amount of Money You Have Wonc9: c2$ca'a tr 'c6 Are you an All Time Best WOF Playerc9: cd'z1st'n1' tr ' ceRc6egular ceRc6ound ceSc6tatistics cbScacore' tr 'c9 ========================================= ==========' tr 'ce Currently Playing Puzzle Numberc9: cb'puznum tr 'c6 Total Number of Games You Have Playedc9: ce'played tr 'ce Are you a Regular Round Millionairec9: cd'z2st'n1' tr ' ceBc6onus ceRc6ound ceSc6tatistics cbScacore' tr 'c9 ========================================= ==========' tr 'ce Total Number of BONUS Games Playedc9: cb'bonwins;call CNUM(boncash) tr "c6 Total BONUS Prize Money You've Wonc9: c2$ca"a tr 'ce Are you a Bonus Round Millionairec9: cd'z3st if prizes>0 then do;se 'n1 c6Want to caview c6your cbPrize cdHistory c6now? c7[cbNoc7]c9: ';gc;a=result if a~='Y' then do;tr 'cbNoc6.';return;end;else tr 'caYesc6!';call MORE1 do i=1 to prizes ; parse var prize.i d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'j d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4) se 'f1c6Datec9: cf'd'c6, Bonus Cashc9: c2$ca';call CNUM(d2);se a'c6, ';call CNUM(d6) if d5=1 then se 'Smart Bonusc9: c2$ca'a'c6, ';call CNUM(d4) if d3>0 then se 'SysOp Bonusc9: cb'a' cd'word('MINUTES GAMEPOINTS BYTECREDITS FILECREDITS',d3)'c6, ' tr 'and you also wonc9:n1*0 'dfile'Graphics/Prize'd7'.ans}n1' if icduitc6, or caany other key c6to continue...';gc;a=result if a='Q' then do;tr 'c6Quit';leave i;end;else tr 'caContinue';end end i;call MORE0;end;tr key1 return ALLSCORES: call WL("ca"handle" c6viewed cdALL PLAYER SCORESc6!") tr 'f1n1c6'hostM' says, cb"caHere are c9ALL caof the cfScores cd'handle'ca!!cb"n1' tr 'z7c4 Wheel of Fortune Total Money Play Money Max Win Bon. Bonus R Bz0' tr 'z7c4 Player Alias(Handle) Wins Earned Puz# Now Play % Wins Earnings M Mz0' tr 'c9===============================================================================' parse var player.player d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'d8'|'d9'|'d10'|'d11'|'j call CNUM(d3);a1=a;call CNUM(d5);a2=a;call CNUM(d9);a3=a;zy=0;zz=0 if d10>0 then zy=d10;if d11>0 then zz=d11 se "cbr1*"right(d1,20)" "right(d2,4)" "right("$"a1,8)" "right(d4,4)" " tr right("$"a2,7)" "right(d6,4)" "right(d7"%",4)" "right(d8,3)" "right("$"a3,8)" "zy" "zz"r0" do i=1 to players;se 'ca';if i//2=0 then se 'cb' if i=player then z='r1*';else z=' ' parse var player.i d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'d8'|'d9'|'d10'|'d11'|'j call CNUM(d3);a1=a;call CNUM(d5);a2=a;call CNUM(d9);a3=a;zy=0;zz=0 if d10>0 then zy=d10;if d11>0 then zz=d11 se z||right(d1,20)" "right(d2,4)" "right("$"a1,8)" " se right(d4,4)" "right("$"a2,7)" "right(d6,4)" "right(d7"%",4)" " tr right(d8,3)" "right("$"a3,8)" "zy" "zz"r0";if i//15=0 then do se 'cf>>>--cdEntercf-->';gc;a=result;if a=d2c(13) then se 'hd' else do;tr ' ccAbort';leave i;end;end;end i tr 'c9===========================================================================cf|c9=ce|c9=' tr "cfMillions Won in Regular Rounds ---' ce|" tr "ceMillions Won in Bonus Rounds -----'";tr key1 return LASTPUZS:;call MORE1 call WL("ca"handle" c6viewed the ceLAST "max1" WINNERSc6!") tr 'f1c6'hostM' says, cb"caHere are the ceLast 'max1' Winnersca, cd'handle'ca!cb"n1' tr 'cfWho Solved It!cbThe Date Solvedn1cdThe Puzzle Text' tr 'c9========================= ===========================';do i=1 to winners;d1=windate.i d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4) tr 'cf'left(winhan.i,25)'cb'd'n1cd'winpuz.i end i;tr 'c9=====================================================';tr key1;call MORE0 return BONUSPUZS:;call MORE1 /* Display Last "max2" Bonus Puzzles */ call WL("ca"handle" c6viewed the ceLAST "max2" BONUS WINNERSc6!") tr 'f1c6'hostM' says, cb"caHere are the ceLast 'max2' c9Bonus Puzzle ceWinnersca, cd'handle'ca!cb"n1' tr 'cfWho Solved It!cbThe Date Solvedc2Bcaonus c2Pcarizen1cdThe Puzzle Text' tr 'c9========================= ===================== =============' do i=1 to winners;d1=windate.i;call CNUM(bwincash.i) d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4) tr 'cf'left(bwinhan.i,25)'cb'left(d,22)'c2$ca'a'n1cd'bwinpuz.i end i;tr 'c9=============================================================';tr key1;call MORE0 return MILLIONAIRES:;call MORE1 if logmil=0 then call WL("ca"handle" c6viewed the ceRegular cfMILLIONAIRES c6listing!") tr 'f1n1c6'hostM' says, cb"caThese players won a million dollars in Regular Play!cb"n1' tr "cc<>X<>X<>X<>X<>X<>X<>X<>X<z0cfr1 Regular Game Millionaires r0cc>X<>X<>X<>X<>X<>X<>X<>X<>n1" tr "ceMc6illionaire's ceHc6andle cbWc3hen cbTc3hey cbMc3ade cbIc3t caTc2otal caWc2orth" tr "c9====================== ==================== =============" do i=1 to millionaires;c1='e6b3a2';if i/2=i%2 then c=2;else c=1 se 'c'substr(c1,c,1)right(milhan.i,21)' ' ; d1=mildate.i d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', ' d=d||left(d1,4) ; se 'c'substr(c1,c+2,1)left(d,21) tr 'c'substr(c1,c+4,1)mills.i' Million' end i;tr "c9====================== ==================== =============" ; tr key1;call MORE0 return BMILLIONAIRES:;call MORE1 if logmil=0 then call WL("ca"handle" c6viewed the ceBonus cfMILLIONAIRES c6listing!") tr 'f1n1c6'hostM' says, cb"caThese players won a million dollars in Bonus Play!cb"n1' tr "cc<>X<>X<>X<>X<>X<>X<>X<>X<z0cfr1 Bonus Round Millionaires r0cc>X<>X<>X<>X<>X<>X<>X<>X<>Xn1" tr "ceMc6illionaire's ceHc6andle cbWc3hen cbTc3hey cbMc3ade cbIc3t caTc2otal caWc2orth" tr "c9====================== ==================== =============" do i=1 to bmillionaires;c1='e6b3a2';if i/2=i%2 then c=2;else c=1 se 'c'substr(c1,c,1)right(bmilhan.i,21)' ' ; d1=bmildate.i d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', ' d=d||left(d1,4) ; se 'c'substr(c1,c+2,1)left(d,21) tr 'c'substr(c1,c+4,1)bmills.i' Million' end i;tr "c9====================== ==================== =============" ; tr key1;call MORE0 return BANKERS:;call MORE1 if logmil=0 then call WL("ca"handle" c6viewed the cfBANKERS c6listing!") tr 'f1n1c6'hostM' says, cb"caThese players won ceMORE THAN caone million dollars in play!cb"n1' tr "cc<>X<>X<>X<>X<>X<>X<>X<>X<z0cfr1 All Time Best WOF Bankers r0cc>X<>X<>X<>X<>X<>X<>X<>X<>n1" tr " ceMc6illionaire's ceHc6andle cbWc3hen cbTc3hey cbMc3ade cbIc3t cdHc5ow cdTc5hey cdMc5ade cdIc5t caTc2otal caWc2orth" tr "c9====================== ==================== ================== =============" do i=1 to bankers;c1='e6b3d5a2';if i/2=i%2 then c=2;else c=1 se 'c'substr(c1,c,1)right(bilhan.i,21)' ' ; d1=bildate.i d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4) se 'c'substr(c1,c+2,1)left(d,21)'c'substr(c1,c+4,1);z='';if btype.i=3 then z='s' se left(word("Neither Regular Bonus Both",btype.i+1)" Round"z,19) tr 'c'substr(c1,c+6,1)bills.i' Million' ; end i tr "c9====================== ==================== ================== =============" ; tr key1;call MORE0 return DOCS:;call WL("ca"handle" c6viewed the ccINSTRUCTIONSc6!") tr '*4'dfile'Docs.ANS}' return CHECK: /* Did we Lose Carrier in the Game? */ getcarrier;if result="TRUE" then return 1 tr 'n1No Carrier!';logentry 'No Carrier in WOF 'ver'!' call WL("ca"handle" c9Lost Carrier c6during the game!") signal QUIT2 QUIT:;se 'n1c6You cfreally c6wish to cbQUITc6? (caYc6/cbnc6)c9: ' gc;a=result;if a='N' then do;tr 'cbNo.';return;end tr 'caYes!';call SAVEPLAYERS;call SAVEDATA;bad=1 QUIT2:;call WL("ca"handle" cf"action"cbWheel of Fortune, "ver"!") call WL("c9"right('ce'dateL,78,'-')'c9---') logentry 'cf'action'cbWheel of Fortunecf, ce'ver'cf!' if Lhan=handle then call SAVELASTPLAYER newlog=0;call SAVELOG;bf;changewhere oldwh;ck=CHECK() if badGM=2&badG=2&bad<0 then do se "n1caReEnter cbWheel of Fortune c6now? c7[cbNoc7]c9: ";gc;a=result if a="Y" then do;tr 'caYesc6!';signal BEGIN;end;else tr 'cbNoc6.';end if (badGM=1|(badGM=2&badG=1))&bad<0 then signal BEGIN QUIT3:;if exists(dfile'Reg.ANS') then tr 'f1L70 #'center(resetH,20)'}*0'dfile'Reg.ANS}'key1 call MUFFLE;call MONITOR;call MORE;exit MENU: /* Main Menu for Wheel of Fortune */ tr 'f1c9O-----------------------------------------------------------------O' tr 'c9| cfWOF ce'left(ver,5)' cb'right(vdate,25)' c9|' tr 'c9| c9|' tr 'c9|'center('c6The letter cb"caYcb" 'word("c9ISN'T cfIS",yvow+1)' c6a ceVowel c6in this game!',89)'c9|' tr 'c9| c9|' a=copies('>X<',10)'cfr1 The Wheel Of Fortune Main Menu! r0cc'copies('>X<',10) tr 'c9|cc'center(a,77)'c9|' tr 'c9| c9|' tr 'c9| c6Completely cfReWritten c6byc9: cdDotoran c6of cbFrontiers c6(cd716c6)/cb823c6-cb9892c6! c9|' tr 'c9| |' a=copies('>X<',10)'cfr1 'bbsname' r0cc'copies('>X<',10) tr 'c9|cc'center(a,77)'c9|' tr 'c9| |' tr 'c9| cf<caHcf>caall of Fame cf<cePcf>celay cbWOF ceGame cf<caVcf>caiew Game Logs c9|' tr 'c9| cf<ceYcf>ceour Game Stats cf<caLcf>caast 'left(max1' Puzzles',10)' cf<ceScf>ceee Millionaires c9|' tr 'c9| cf<caAcf>call Player Stats cf<ceBcf>ceonus Puzzles cf<caIcf>canstructions c9|' if Mflag=1 then tr 'c9| cf<c9Ccf>c9ancel This Game cf<cd?cf>cd????? Command cf<cbMcf>cbaintenance! c9|' tr 'c9| |' tr 'c9| cf<ceUcf>ceser Config Edit cf<cdQcf>cduit the Game c9|' tr 'c9O-----------------------------------------------------------------O' tr center('c6Last cbWheel of Fortune cfMasterc9: ce'resetH,78+15)'n1' tr center('c6The Last Player Wasc9: ca'Lhan,78+9) return READCONFIG: /* Read "ConfigData" File. Holds info on game settings. */ call open(f1,'doors:WoFortune.Config','r') v=readln(f1);parse var v j ver vdate;j=readln(f1);dfile=readln(f1) j=readln(f1);parse var j closed'|'j'|'Lpor'|'Hpor'|'j j=readln(f1);parse var j hosts'|'hostM'|'hostF'|'j do 2;j=readln(f1);end;a1=readln(f1);a2=readln(f1) parse var a1 m1'|'k1'|'j;parse var a2 m2'|'k2'|'j a=index(upper(k1),'[H]');if a~=0 then k1=left(k1,a-1)hosts||substr(k1,a+3) a=index(upper(k1),'[M]');if a~=0 then k1=left(k1,a-1)hostM||substr(k1,a+3) a=index(upper(k1),'[F]');if a~=0 then k1=left(k1,a-1)hostF||substr(k1,a+3) a=index(upper(k2),'[H]');if a~=0 then k2=left(k2,a-1)hosts||substr(k2,a+3) a=index(upper(k2),'[M]');if a~=0 then k2=left(k2,a-1)hostM||substr(k2,a+3) a=index(upper(k2),'[F]');if a~=0 then k2=left(k2,a-1)hostF||substr(k2,a+3) do 2;j=readln(f1);end;Gdata=readln(f1);Bdata=readln(f1) parse var Gdata resetM'|'resetV'|'badGM'|'Play'|'Last'|'j'|'hide'|', j'|'zero'|'max1'|'vannaA'|'maint'|'max3'|'mills1'|', mills2'|'mills3'|'chance'|'newplay'|'slow'|', Banked'|'olmM'|'yvow'|'suPR1'|'suVA1'|'suPR2'|', suVA2'|'suPR3'|'suVA3'|'j parse var Bdata timer'|'max2'|'minB'|'smart'|'showB'|'smartB'|', puPR1'|'puVA1'|'puPR2'|'puVA2'|'puPR3'|'puVA3'|', bpPR1'|'bpVA1'|'bpPR2'|'bpVA2'|'bpPR3'|'bpVA3'|'j call close(f1);gu 1;handle=result;gu 23;port=result if open(f1,dfile'LastReset','r') then do;resetD=readln(f1);resetH=readln(f1);call close(f1);end else do;resetD=19950625;resetH="No One Yet!";end gu 1100454;oldmore=result;gu 1101745;muffle=result;gu 1101746;monitor=result if closed=1 then signal CLOSED;call CHECKPORTS gv='2306098 2122050 2307346 1101743';parse var gv v1 v2 v3 v4;gu 39;md='mail:users/'result'/_WOF';call READWOF p1=1;if cnet=1 then do;v1=v3;v2=v4;p1=0;end;tr 'f1n6cbWheel Of Fortunec6, cf'ver if muffle=0 then bbscommand 'mu *';if monitor=1 then bbscommand 'um *' if olm=2&olmM=2 then do;se 'n1c6Send an cfOLM cbAlerting c6others? c7[caNoc7]c6: ca' gc;a=result;if a~='Y' then do;tr 'No.';olm=0;end;else tr 'Yes!';end if olm=0|olmM=0 then do;se 'c6n1Loading...';signal READCONFIG2;end getuser 1100461;sex=result;pro='he';if sex=0 then pro='she' text=" cd"handle" c6on cePort cf"port" c6is playing cbWheel of Fortune cf"ver"c6, and won't " text=text"be able to receive caOLM's c6from you until "pro" is c9finished " text=text"c6playing! ce<<z5cf "hosts" z0ce>>" se "q1n1OLM to Port: ";call SENDOLM(text);se 'n2Loading...' READCONFIG2: call open(f1,dfile'PuzData','r');total=strip(readch(f1,5),'t',d2c(0));call close(f1) pr.1='Extra Minutes';pr.2='Game Points';pr.3='Byte Credits';pr.4='File Credits' puPR=puPR1;puVA=puVA1;bpPR=bpPR1;bpVA=bpVA1;puPR4=0;puVA4=0;bpPR4=0;bpVA4=0 InfTimeR=0;gu 1200684;if result=0 then InfTimeR=1;InfGameP=0;gu 21;if result>999999 then InfGameP=1 gu 1200016;age=result;gu 1100663;a=result;a=a+(1-sign(sign(a)+1))*256 InfFileC=bittst(d2c(a),6);InfByteC=bittst(d2c(a),7);a=0;b=0 if puPR=1 & InfTimeR=1 then a=2;if puPR=2 & InfGameP=1 then a=2 if puPR=3 & InfByteC=1 then a=2;if puPR=4 & InfFileC=1 then a=2 if a=2 then do;puPR=puPR2;puVA=puVA2 if puPR=1 & InfTimeR=1 then a=3;if puPR=2 & InfGameP=1 then a=3 if puPR=3 & InfByteC=1 then a=3;if puPR=4 & InfFileC=1 then a=3;end if a=3 then do;puPR=puPR3;puVA=puVA3 if puPR=1 & InfTimeR=1 then a=4;if puPR=2 & InfGameP=1 then a=4 if puPR=3 & InfByteC=1 then a=4;if puPR=4 & InfFileC=1 then a=4;end if a=4 then do;puPR=puPR4;puVA=puVA4;end if bpPR=1 & InfTimeR=1 then b=2;if bpPR=2 & InfGameP=1 then b=2 if bpPR=3 & InfByteC=1 then b=2;if bpPR=4 & InfFileC=1 then b=2 if b=2 then do;bpPR=bpPR2;bpVA=bpVA2 if bpPR=1 & InfTimeR=1 then b=3;if bpPR=2 & InfGameP=1 then b=3 if bpPR=3 & InfByteC=1 then b=3;if bpPR=4 & InfFileC=1 then b=3;end if b=3 then do;bpPR=bpPR3;bpVA=bpVA3 if bpPR=1 & InfTimeR=1 then b=4;if bpPR=2 & InfGameP=1 then b=4 if bpPR=3 & InfByteC=1 then b=4;if bpPR=4 & InfFileC=1 then b=4;end if b=4 then do;bpPR=bpPR4;bpVA=bpVA4;end return READWOF:;if open(f1,md,'r') then do;config=readln(f1);do i=1 until eof(f1) prize.i=readln(f1);end i;prizes=i-1;call close(f1) parse var config olm'|'shomil'|'shobmi'|'shoban'|'vanna'|'OLog'|'NLog'|', wasc'|'spin'|'wibm'|'gasc'|'gans'|'gibm'|'badG'|'j;return;end else do;call open(f1,md,'w');call writeln(f1,'0|0|0|0|1|0|0|0|1|2|0|2|3|0|x') call close(f1);se '#0 'dfile'UserConfig}';end signal READWOF SAVEWOF:;call open(f1,md,'w');call writeln(f1,config);do i=1 to prizes call writeln(f1,prize.i);end i;call close(f1) return SENDOLM:;parse arg text;gu v1;path=result;z="00"x;a='' if exists(path'_olm'port) then a='a';name=path'_'a'olm' a='w';t=0;if exists(name) then a='a' h=left(handle,26,z)copies(z,28)text'0A1A0A'x;h=overlay(d2c(1),h,31,2) do i=Lpor to Hpor;n=name||i;getwhere i;w=result if w='Idle'|w='(offline)'|i=port then iterate i call forbid();call open(f1,n,a);call writeln(f1,h);call close(f1) call permit();se 'h2'right(i,2);args=i' 'v2' 'p1' 'port address command "run >nil: rx "dfile"OLM_Proc "args;t=t+1 end i;se 'h2cb't"c6 Total cfOLM's c6Sent!" return MORE:;setobject oldmore;putuser 1100454;return /* Reset More? Mode */ MORE0:;setobject 0;putuser 1100454;return /* Turn More? Prompt OFF */ MORE1:;setobject 1;putuser 1100454;return /* Turn More? Prompt ON */ MUFFLE:;if muffle=0 then bbscommand 'mu *';return MONITOR:;if monitor=1 then bbscommand 'um *';return CLOSED: if closed=1 then tr "*4 "dfile"graphics/closed.ans}" signal QUIT3 CHECKPORTS: cnet=1;bbsidentify bbs;if subword(result,4,1)='2.63' then cnet=0 ports='';bad=-1;gu 23;port=result;do i=Lpor to Hpor if cnet=1 then getwhere i;if cnet=0 then do;b=2621350+(i*4);gu b;end if left(result,3)='WOF' & i~=port then bad=i;end i;if bad=-1 then return se "*4 "dfile"graphics/busy.ans}" signal QUIT3 READDATA: /* Read "GameData" File. Holds info on current game. */ call open(f1,dfile'GameData','r');puzplay=readln(f1) puzzle=readln(f1);answer=readln(f1);guessed=readln(f1) clue=readln(f1) ;data1=readln(f1) ;data2=readln(f1) call close(f1);parse var data1 author'|'nextpuznum'|'nextbonpuz'|'j parse var data2 consonants'|'vowels'|'j puzzle=translate(puzzle,reverse(xrange('!','~')),xrange('!','~')) answer=translate(answer,reverse(xrange('!','~')),xrange('!','~')) author=translate(author,reverse(xrange('!','~')),xrange('!','~')) clue=translate(clue,reverse(xrange('!','~')),xrange('!','~')) call COLORPUZZLE;call COLORGUESSED return SAVEDATA: /* Save "GameData" File. */ puzzle=translate(puzzle,reverse(xrange('!','~')),xrange('!','~')) answer=translate(answer,reverse(xrange('!','~')),xrange('!','~')) author=translate(author,reverse(xrange('!','~')),xrange('!','~')) clue=translate(clue,reverse(xrange('!','~')),xrange('!','~')) data1=author'|'nextpuznum'|'nextbonpuz'|x';data2=consonants'|'vowels'|x' call open(f1,dfile'GameData','w');call writeln(f1,puzplay) call writeln(f1,puzzle) ;call writeln(f1,answer) call writeln(f1,guessed);call writeln(f1,clue) call writeln(f1,data1) ;call writeln(f1,data2) call close(f1) return READBWINNERS: /* Read "BWinners" File. The Past 20 Winners. */ call open(f1,dfile'BWinners','r') do i=1 until eof(f1);bwinner.i=readln(f1) parse var bwinner.i bwinhan.i'|'bwinpuz.i'|'bwindate.i'|'bwincash.i'|'j end i;bwinners=i-1 call close(f1) return SAVEBWINNERS: /* Save "BWinners" File. */ call open(f1,dfile'BWinners','w') do i=1 to bwinners;call writeln(f1,bwinner.i);end i call close(f1) return READWINNERS: /* Read "Winners" File. The Past 20 Winners. */ call open(f1,dfile'Winners','r') do i=1 until eof(f1);winner.i=readln(f1) parse var winner.i winhan.i'|'winpuz.i'|'windate.i'|'j end i;winners=i-1 call close(f1) return SAVEWINNERS: /* Save "Winners" File. */ call open(f1,dfile'Winners','w') do i=1 to winners;call writeln(f1,winner.i);end i call close(f1) return SAVEBWINNER: /* Save "BWinner" File. */ call open(f1,dfile'BWinner','w') call writeln(f1,bwinner) call close(f1) return READWINNER: /* Read "Winner" File. Who was the LAST Winner? */ call open(f1,dfile'Winner','r') winner=readln(f1) call close(f1) parse var winner winhan'|'winpuz'|'windate'|'winmon'|'wins'|'j return SAVEWINNER: /* Save "Winner" File. */ call open(f1,dfile'Winner','w') call writeln(f1,winner) call close(f1) return READMILLIONAIRES: call open(f1,dfile'Millionaires','r') do i=1 until eof(f1);mil.i=readln(f1) parse var mil.i mills.i'|'mildate.i'|'milhan.i'|'j end i;millionaires=i-1 call close(f1) return SAVEMILLIONAIRES: do i=1 to millionaires-1;d=i;do j=i+1 to millionaires;d=d+1 if mil.d>mil.i then do;y=mil.i;mil.i=mil.d;mil.d=y;end;end j;end i call open(f1,dfile'Millionaires','w') do i=1 to millionaires;if index(mil.i,'No One Yet')=0 then call writeln(f1,mil.i);end i call close(f1) return READBMILLIONAIRES: call open(f1,dfile'BMillionaires','r') do i=1 until eof(f1);bmil.i=readln(f1) parse var bmil.i bmills.i'|'bmildate.i'|'bmilhan.i'|'j end i;bmillionaires=i-1 call close(f1) return SAVEBMILLIONAIRES: do i=1 to bmillionaires-1;d=i;do j=i+1 to bmillionaires;d=d+1 if bmil.d>bmil.i then do;y=bmil.i;bmil.i=bmil.d;bmil.d=y;end;end j;end i call open(f1,dfile'BMillionaires','w') do i=1 to bmillionaires;if index(bmil.i,'No One Yet')=0 then call writeln(f1,bmil.i);end i call close(f1) return READBANKERS: call open(f1,dfile'Bankers','r') do i=1 until eof(f1);bil.i=readln(f1) parse var bil.i bills.i'|'bildate.i'|'bilhan.i'|'btype.i'|'j end i;bankers=i-1 call close(f1) return SAVEBANKERS: do i=1 to bankers-1;d=i;do j=i+1 to bankers;d=d+1 if bil.d>bil.i then do;y=bil.i;bil.i=bil.d;bil.d=y;end;end j;end i call open(f1,dfile'Bankers','w') do i=1 to bankers;if index(bil,'No One Yet')=0 then call writeln(f1,bil.i);end i call close(f1) return READSTATS: /* Read "Stats" File & Initialize These Variables. */ call open(f1,dfile'Stats','r') do i=1 to 6;stats.i=readln(f1);end i call close(f1) parse var stats.1 mostplaysH'|'mostplays'|'j parse var stats.2 mostpuzsH'|'mostpuzs'|'j parse var stats.3 mostbankH'|'mostbank'|'j parse var stats.4 mostcashH'|'mostcash'|'j parse var stats.5 mostbwinsH'|'mostbwins'|'j parse var stats.6 mostbcashH'|'mostbcash'|'j return SAVESTATS: /* Save "Stats" File. */ call open(f1,dfile'Stats','w') do i=1 to 6;call writeln(f1,stats.i);end i call close(f1) return READPLAYERS: /* Read "Players" File & Mark Current Player if Exists. */ call open(f1,dfile'Players','r');player=0 do i=1 until eof(f1);player.i=readln(f1) parse var player.i han'|'j if han=handle then player=i end i;players=i-1 call close(f1) return SAVEPLAYERS: /* Save "Players" File. */ player.player=handle'|'puzwon'|'monwon'|'puznum'|'moncur'|'played'|'percent'|'bonwins'|'boncash'|'mills'|'bmills'|x' call open(f1,dfile'Players','w') do i=1 to players;call writeln(f1,player.i);end i call close(f1);address command "sort "dfile"Players "dfile"Players" return SETUP:;tr '#0'dfile'SetUp}';return RESETGAME: if resetM=1 then do;se 'f1n1c6After speaking with c9'sysop'c6, 'hostM' tells you, cb"cd'handle'ca, your cfSysOpca, c9'sysop se 'ca, tells me it''s been ce'resetV' months casince the last reset of this game! Jeez, you''d think ' tr 'he cbruns cathe place or something!cb"';end else do;if olm>0 then do;se "Sending OLM's: " call SENDOLM(" cfCongratulations c6to cd"handle" c6who just became c9MASTER c6of cbWheel of Fortunec6!");end call WL("cfCongratulations c6to ca"handle" c6who just became c9MASTER c6of cbWheel of Fortunec6!") se 'f1n1c6Gasping for breath, 'hostM' says, cb"caCongratulations cd'handle se 'ca, You''ve just become cfMASTER caof cbWheel of Fortuneca! We can now c9RESET ' tr 'cathe game, but c9not cauntil we ceimmortalize cayour name for posterity!cb"' gu 1100461;ge=result;a1=HostF;a2=HostM;a3="hunk";if ge=0 then do;z=a1;a1=a2;a2=zl;a3="babe";end se 'n1c6While 'a2' takes care of business with the director off stage, ' se a1' walks up to you and says, cb"caWow cd'handle'ca, your a cf'a3'ca! Here''s ' se 'my phone number. Give me a call tonight, as I have another ' tr 'game I''d like to play with you.cb"' ; end se 'n1cbResetting c6player caMc2onetary c6values...';call READPLAYERS;monwon=0;moncur=0;boncash=0;mills=0;bmills=0 call open(f1,dfile'Players','w');do i=1 to players parse var player.i v1'|'v2'|'v3'|'v4'|'v5'|'v6'|'v7'|'v8'|'v9'|'v10'|'v11'|'j player.i=v1'|'v2'|0|'v4'|0|'v6'|'v7'|'v8'|0|0|0|x';call writeln(f1,player.i);end i call close(f1);call open(f1,dfile'LastReset','w');call writeln(f1,date('s')) call writeln(f1,handle);call close(f1);tr 'cddonec6!n1'key1 return D0: /* Call The Correct Wheel Graphic Location */ b='D'spot;c=spot;se 'f0n1';signal (b) D1: /* 100 mci done */ tr 'z7 z2ca*z7 z2ca*****z7 z2ca*****z7 z0' tr 'z7 z2ca**z7 z2ca*z7 z2ca*z7 z2ca*z7 z2ca*z7 z0' tr 'z7 z2ca*z7 z2ca*z7 z2ca*z7 z2ca*z7 z2ca*z7 z0' tr 'z7 z2ca*z7 z2ca*z7 z1 z0 z7 z2ca*z7 z2ca*z7 z2ca*z7 z0' tr 'z7 z2ca*****z7 z2ca*z1 z0 z2ca**z7 z2ca*****z7 z0' return D2: /* 150 mci done */ tr 'z7 z3cb*z7 z3cb*****z7 z3cb*****z7 z0' tr 'z7 z3cb**z7 z3cb*z7 z3cb*z7 z3cb*z7 z0' tr 'z7 z3cb*z7 z3cb*****z7 z3cb*z7 z3cb*z7 z0' tr 'z7 z3cb*z7 z1 z0 z7 z3cb*z7 z3cb*z7 z3cb*z7 z0' tr 'z7 z3cb*****z7 z3cb*z1 z0 z3cb**z7 z3cb*****z7 z0' return D3: /* 200 mci done */ tr 'z7 z4ce*****z7 z4*****z7 z4*****z7 z0' tr 'z7 z4ce*z7 z4*z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*****z7 z4*z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*z7 z4*z7 z1 z0 z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*****z7 z4*z1 z0 z4**z7 z4*****z7 z0' return D4: /* 250 mci done */ tr 'z7 z5cd*****z7 z5*****z7 z5*****z7 z0' tr 'z7 z5cd*z7 z5*z7 z5*z7 z5*z7 z0' tr 'z7 z5cd*****z7 z5*****z7 z5*z7 z5*z7 z0' tr 'z7 z5cd*z7 z1 z0 z7 z5*z7 z5*z7 z5*z7 z0' tr 'z7 z5cd*****z7 z5*z1 z0 z5**z7 z5*****z7 z0' return D5: /* 300 mci done */ tr 'z7 z6cc*****z7 z6*****z7 z6*****z7 z0' tr 'z7 z6cc*z7 z6*z7 z6*z7 z6*z7 z6*z7 z0' tr 'z7 z6cc***z7 z6*z7 z6*z7 z6*z7 z6*z7 z0' tr 'z7 z6cc*z7 z6*z7 z1 z0 z7 z6*z7 z6*z7 z6*z7 z0' tr 'z7 z6cc*****z7 z6*z1 z0 z6**z7 z6*****z7 z0' return D6: /* 400 mci done */ tr 'z7 z2ca*z7 z2*z7 z2*****z7 z2*****z7 z0' tr 'z7 z2ca*z7 z2*z7 z2*z7 z2*z7 z2*z7 z2*z7 z0' tr 'z7 z2ca******z7 z2*z7 z2*z7 z2*z7 z2*z7 z0' tr 'z7 z2ca*z7 z2*z7 z1 z0 z7 z2*z7 z2*z7 z2*z7 z0' tr 'z7 z2ca*z7 z2*z1 z0 z2**z7 z2*****z7 z0' return D7: /* 450 mci done */ tr 'z7 z3cb*z7 z3*z7 z3*****z7 z3*****z7 z0' tr 'z7 z3cb*z7 z3*z7 z3*z7 z3*z7 z3*z7 z0' tr 'z7 z3cb******z7 z3*****z7 z3*z7 z3*z7 z0' tr 'z7 z3cb*z7 z1 z0 z7 z3*z7 z3*z7 z3*z7 z0' tr 'z7 z3cb*z7 z3*z1 z0 z3**z7 z3*****z7 z0' return D8: /* 500 mci done */ tr 'z7 z4ce*****z7 z4*****z7 z4*****z7 z0' tr 'z7 z4ce*z7 z4*z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*****z7 z4*z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*z7 z4*z7 z1 z0 z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*****z7 z4*z1 z0 z4**z7 z4*****z7 z0' return D9: /* 600 mci done */ tr 'z7 z5cd****z7 z5*****z7 z5*****z7 z0' tr 'z7 z5cd*z7 z5*z7 z5*z7 z5*z7 z5*z7 z0' tr 'z7 z5cd******z7 z5*z7 z5*z7 z5*z7 z5*z7 z0' tr 'z7 z5cd*z7 z5*z7 z5*z7 z1 z0 z7 z5*z7 z5*z7 z5*z7 z0' tr 'z7 z5cd*****z7 z5*z1 z0 z5**z7 z5*****z7 z0' return D10: /* 750 mci done */ tr 'z7 z6cc******z7 z6*****z7 z6*****z7 z0' tr 'z7 z6cc*z7 z6*z7 z6*z7 z6*z7 z0' tr 'z7 z6cc*z7 z6*****z7 z6*z7 z6*z7 z0' tr 'z7 z6cc*z7 z1 z0 z7 z6*z7 z6*z7 z6*z7 z0' tr 'z7 z6cc*z7 z6*z1 z0 z6**z7 z6*****z7 z0' return D11: /* 1000 mci done */ tr 'z7 z2ca*z7 z2*****z7 z2*****z7 z2*****z7 z0' tr 'z7 z2ca**z7 z2*z7 z2*z7 z2*z7 z2*z7 z2*z7 z2*z7 z0' tr 'z7 z2ca*z7 z2*z7 z2*z7 z2*z7 z2*z7 z2*z7 z2*z7 z0' tr 'z7 z2ca*z7 z2*z7 z2*z1 z0 z2*z7 z2*z7 z2*z7 z2*z7 z0' tr 'z7 z2ca*****z7 z2*****z7 z1 z0 z7 z2*****z7 z2*****z7 z0' return D12: /* Free mci done */ tr 'z7 z3cb******z7 z3*****z7 z3******z7 z3******z7 z0' tr 'z7 z3cb*z7 z3*z7 z3*z7 z3*z7 z3*z7 z0' tr 'z7 z3cb****z7 z3*****z7 z3****z7 z3****z7 z0' tr 'z7 z3cb*z7 z3*z7 z3*z1 z0 z7 z3*z7 z3*z7 z0' tr 'z7 z3cb*z7 z3*z7 z3*z1 z0 z7 z3******z7 z3******z7 z0' return D13: /* Surprise mci done */ tr 'z7 z4ce*z7 z4*z7 z4******z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*z7 z4*z7 z4*z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*z7 z4*z7 z4*z7 z4*z7 z4*z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce*z7 z4*z7 z4*z7 z4*z7 z4*z7 z1 z0 z7 z4*z7 z4*z7 z4*z7 z4*z7 z4*z7 z0' tr 'z7 z4ce**z7 z4**z7 z4**z1 z0 z4**z7 z4**z7 z4**z7 z0' return D14: /* Lose Turn mci done */ tr 'z7 z5cd*z7 z5*****z7 z5*****z7 z5******z7 z0' tr 'z7 z5cd*z7 z5*z7 z5*z7 z5*z7 z5*z7 z0' tr 'z7 z5cd*z7 z5*z7 z5*z7 z5*****z7 z5****z7 z0' tr 'z7 z5cd*z7 z5*z7 z5*z1 z0 z7 z5*z7 z5*z7 z0' tr 'z7 z5cd*****z7 z5*****z7 z1 z0 z7 z5*****z7 z5******z7 z0' return D15: /* Bankrupt mci done */ tr 'z7 z6cc*****z7 z6****z7 z6*z7 z6*z7 z6*z7 z6**z7 z0' tr 'z7 z6cc*z7 z6*z7 z6*z7 z6*z7 z6***z7 z6*z7 z6*z7 z6**z7 z0' tr 'z7 z6cc*****z7 z6******z7 z6*z7 z6**z7 z6*z7 z6***z7 z0' tr 'z7 z6cc*z7 z6*z7 z6*z7 z6*z1 z0 z6*z7 z6***z7 z6*z7 z6**z7 z0' tr 'z7 z6cc*****z7 z6*z7 z6*z1 z0 z6*z7 z6*z7 z6*z7 z6**z7 z0' return D16: /* Blank Wheel mci done */ tr 'c7/z7c0 .-------------------------------------. z0c7\' tr '/z7c0 |z0c8Written By: Dotoranz7c0| z0c7\' tr 'z7c0 |z0z7c0| z0' tr 'z7c0 |z0z7c0| z0' tr 'z7c0 |z0z1 z0z7c0| z0' tr '\z7c0 |z0z1 z0z7c0| z0c7/' tr "\z7c0 `----------------z1 z0 z7------------------' z0c7/" tr '\z7 z1 z0 z7 z0c7/' tr '\z7 z1 z0 z7 z0c7/' tr '\z7 z1 z0 z7 z0c7/' tr '\z7 z1 z0 z7 z0c7/' tr '\z7 z1 z0 z7 z0c7/' tr '\z7 z1 z0 z7 z0c7/' tr '\z7 z1 z0 z7 z0c7/' tr '\z7 z1 z0 z7 z0c7/' return D17: /* Rotating Wheel Routine */ tr ' ';tr '  BANKRUPT  ';tr '  300   750  ' tr '  250   250  ';tr '  600  Û  300  ' tr '  400  Û   200  ';tr '  150  ÛÛ   100  ' tr '  'left(word('200 1000',(wheel=wheal)+1),4)'  WOF ÛÛ  'ver'  500  ' tr '  250  ÛÛ   400  ';tr '  400  ÛÛÛ   300  ' tr '  LOSE  ÛÛÛ   FREE  ';tr '  450  ÛÛÛ   200  ' tr '  150   100  ';tr '  SURPRISE  ';tr ' ' a=random(2,3);b=random(1,24);t=slow%100;l1=1;l2=1;do i=1 to a;do j=1 to 24;call time('r');do until time('e')>=t;end tr '['l1'H ['l2'H ';l=word(locs,j);parse var l l1'|'l2;tr '['l1'Hce*['l2'H*';end j;end i do i=1 to b;call time('r');do until time('e')>=t;end;tr '['l1'H ['l2'H ';l=word(locs,i);parse var l l1'|'l2 tr '['l1'Hce*['l2'H*';end i;se '';c=word(wheel,b) return TITLE: /* mci done */ tr 'z5 z6c9o-------------------------------------oz0' tr 'z5 z0z5 z0z6c9| z7cc C z6 z2c1===z6 z2===z6 z2===z6 z7cc T z6 z2c0###z6 z2###z6 z2###z6 z2###z6c9 |z0' tr 'z5 z0cfT H Ez5 z0z6c9| z7ccC Cz6 z2c1===z6 z2===z6 z2===z6 z7ccT Tz6 z2c0###z6 z2###z6 z2###z6 z2###z6c9 |z0' tr ' z5 z0z5 z0z6c9| |z0' tr ' z5 z0cbW H E E Lz5 z0z6c9| z2c1===z6 z7cc A z6 z2c1===z6 z7cc T z6 z2c1===z6 z2===z6 z2===z6 z7cc D z6 z2c0###z6c9 |z0' tr ' z5 z0z5 z0z6c9| z2c1===z6 z7ccA Az6 z2c1===z6 z7ccT Tz6 z2c1===z6 z2===z6 z2===z6 z7ccD Dz6 z2c0###z6c9 |z0' tr ' z5cf z0O Fz5 z0z6c9o-------------------------------------oz0' tr ' z5 z0z5 z0' tr ' z5 z0cbF O R T U N Ez5 z0P E R S O N' tr ' z5 z0z5 z0' tr ' z5 z0ce'left(ver,5)'z5 z0cdCompletely ReWritten by c9Dotorancd!' tr 'z5 z0z5 z0' tr 'z5 z0cfYour Hostsc9: ca'hosts'cf!!n1' return SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)';e2=' c9Linecf: ce'left(sigl,4)'c9Filecf:' gu 1311992;a=result;gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2;e=sourceline(sigl) do while e~='';e3='c9Sourcecf: cd'left(e,37);tr e3;logentry e3;e=substr(e,37);end;bufferflush;signal QUIT3 /** Last Edited: 7-May-96 *************************************************\ \****************************************** FRONTIERS BBS (716)/823-9892 **/