/*   sTAKE yOUR cREDITS v1.0 by dR fAUSTUS   */

  parse arg NODE
  signal on error
  signal on syntax
  signal on ioerr
  signal on break_C
  options results
  address value "AERexxControl"NODE

DT_NAME          = 100
DT_BYTESUPLOAD   = 117
DT_RATIOTYPE     = 106
DT_BYTEDOWNLOAD  = 118

getuser DT_NAME; uname=result

tr=transmit
se=sendstring
con=1
l=0
w=0

CLS=''

Start:

se CLS
showfile "Doors:sTAKE/title.ansi"
se ''center('sTAKE yOUR cREDITS v1.0 by dR fAUSTUS',80)

GAME:

getuser DT_BYTESUPLOAD; Up=result
getuser DT_RATIOTYPE; Ratio=result
getuser DT_BYTEDOWNLOAD; Dl=result
getuser 145; time=result
if ratio=0 then ratio=3
k= ((up*ratio)-dl)
if con=1 then do
tot=k
con=0
end

se
if k="0" then call lamer
se '                                        '
se ''uname', you have 'k' Kb'
se '       |  ¬Y  ¬Y¬Y~|   |  ¬Y  ¬Y  ¬Y~|'
query 'How many Kb do you want to stake(q=aBORT)? ';bt=result
if bt="q" then call exit
if bt>k then do
se cls
se '' center(uname', you have 'k' Kb',80)
se '' center('yOU cAN`T sTAKE 'bt' Kb!!',80)
se '' center('sORRY, bUT yOU cAN`T bET oVER yOUR bUDGET! uPLOAD mORE!! ',80)

getchar
call start
end
if bt<=0 then call game

GAMEx:
se '                                                   7 | T | | |   | T | l_| T _'
query 'Your Number Is [0-36] ';s=result
if s<0|s>36 then call gamex
if s="" then call gamex

se '                 '
se 'If Your Number Is ok.. you win ...'bt*35'  Kb!!'
se '        '
se 'You Have Staked 'bt' Kb.'

se 'The Number Drawn Out Is... '
do x = 1 to 50
rand=random(0,36,time)
if rand<10 then se '  '
se '' rand
end

if s=rand then call WIN 

LOSE:
showfile "doors:roulette/lose.txt"
se 'You lose. You lost 'bt'Kb credits!!'
dl=dl+bt
l=l+1
call writestats

call Game

WIN:
w=w+1
se cls
showfile "Doors:sTAKE/win.txt"
a= 'You WIN!!! You gain 'bt*35' Kb credits!!!! You staked ' bt 'Kb!!'
se center(a,80)
getchar
up=up+(bt*35/ratio)
call writestats
call start

LAMER:
se cls
se "Sorry boy, but you haven't any credit here... ByeZ!"
tr ''
shutdown
exit

/***************************************************************/
/************************* ERRORS ******************************/
ioerr:
tr "GENERAL I/O ERROR..."
SHUTDOWN
EXIT
/*===============================================================*/
syntax:
tr "GENERAL SYNTAX ERROR ..."sigl
call exit
/*==============================================================*/
error:
tr "GENERAL FAILURE..."
shutdown
exit


WRITESTATS:
putustr up
putuser DT_BYTESUPLOAD
putustr dl
putuser DT_BYTEDOWNLOAD
return

EXIT:
se cls
tr ''
tr center('sTAKE yOUR cREDITS iS a dOOR fOR /X wRITTEN bY dR fAUSTUS (iVN/hE)',80)
tr
tr center('Before playing you had 'k' Kb, now you have 'tot' Kb',80)
tr
if tot<k then tr center('You gain ' k-tot ' Kb!! ',80)
if tot>k then tr center('You lost ' tot-k ' Kb!! ',80)
tr ''
tr center('You lost 'l' times and won 'w,80)
tr ''
tr center('10x fOR pLAYING! ByeZ!',80)
getchar
tr cls
shutdown
exit