/*************/
 /* CyberCNET */
/*************/
options results
signal on syntax
MaxLevels = 10
Getuser 1;name=result
getuser 22;ncalls=result
getuser 31;nuploads=result
getuser 30;kuploads=result
getuser 36;pmail=result
getuser 15;status=result
getuser	16;ggr=result
Path='SYSdata:'
tr='transmit'
ss='sendstring'
bbsname='Raw Deal BBS'

changewhere "Triyn' to gethigher axx."
if ~exists(path||'levels.cfg') then do
tr "Cant't find configfile.....ASSHOLE!"
signal off error; call END
end

else do

l = 0
call open(file,path||'levels.cfg','R')
 do until eof(file)

   lev.l = readln(file)
    kbu.l = readln(file)	
     nof.l = readln(file)
      pmail.l = readln(file)
       ncall.l = readln(file)		
        foo.l = readln(file)

	l = l + 1
 end

tr 'f1c2'
tr "  "
tr "         +-------------------------------------------------------------+"
tr "         |                         Welcome to                          |"
tr "         |                 CyberCNET v 1.1 (C)1994 by                  |"
tr "         |                      Wolverine / DMI                        |"
tr "         +-------------------------------------------------------------+"
tr "  "
tr "c5 Hi there c4"||name||"c5 and welcome to The CyberCNET!!"
tr " "
tr " So far you've made c1"||ncalls||"c5 number of call's ,"
tr " you've got status c7"||status||"c5 or c7"||ggr||"c5."
tr " In totally c2"||nuploads||"c5 uploads,"
tr " you've uploaded c3"||kuploads||"c5 bytes and "
tr " written c1"||pmail||"c5 public messages."
tr " "
ss " This means that "


call ChecStats
	
ChecStats:
lk = status	
if status >= MaxLevels then call SuperUser
if nuploads < nof.lk then call NoHigherAxx
if kuploads < kbu.lk then call NoHigherAxx
if pmail < pmail.lk  then call NoHigherAxx
if ncalls < ncall.lk then call NoHigherAxx

call GetNextLevel

NoHigherAxx:
tr "you have to be a more motivated user here "
tr " at "||bbsname||" to get higher access."
sk = 0
call SLUT

SuperUser:
tr "you already have full access and can't get higher!"
sk = 1
call SLUT

GetNextLevel:
 lk=lk-1
 sstat = status
 sttus = status + 1
 status = lev.lk
tr "you have now status "||status
sk = 2
setobject status
putuser 15
call SLUT

SLUT:
Logentry 'Used CyberCNET'
if sk = 0 logentry ' And did not get higher access.'
if sk = 1 logentry ' Already had full access.'
if sk = 2 logentry ' And got higher access.'
end