Really Useful CD 1/ReallyUsefulCD1.iso/extras/comms/riscbbs/_riscbbs/bbs/guess

Text File | 1991-11-15 | 1.0 KB | 23 lines

{more 0 attr 0 7 cls}
{attr 4 3 cll}                     >>> The Fabulous Arcland Guessing Game <<<{attr 0 7}
{eval V0 `RND MOD 2000` eval V1 0}

I think of a number between {fg 6}0{fg 7} and {fg 6}1999{fg 7} and you must try to guess it
within {fg 2}10{fg 7} tries... If you succeed, you user-level will go up {fg 6}5{fg 7} units...
if you fail, it'll go down {fg 6}5{fg 7} units !!!

Do you want to continue? (Y/n) {yesno 1 V2 if V2=0 goto +finito}

Succes !!!{label loop echo 1 eval V1 `V1+1` if `V1>=11` goto +fail}

{fg 3 send `Try ` fg 1 print V1 fg 3 send `, make a guess: ` attr 4 7 field 4 read V2 4 attr 0 6}
{echo 0 if `V2=-1` eof}
{if `"V2"=""` send `Invalid try, you must enter a number!` goto loop}
{if `V2<V0` send `No, it's greater!` goto loop}
{if `V2>V0` send `No, it's smaller!` goto loop}
{echo 1 if SYSOP=0 level +5}
Bravo !!! You've guessed it! Your user-level is now {eval V0 LEVEL print V0} !!!
{eof label fail if SYSOP=0 level -5}
What a pity, you failed! Your user-level is now {eval V0 LEVEL print V0} !!!
{label finito}