on *:NOTICE:*:*:{
  if ($nick == ThugLifeServer) {
    if ($1 == Status) {
      set %loggedmoney $4
      /dialog -x moneymaker
      /lox
      .timer 1 5 /close -@
      .timer 1 5 /loggedin
    }
  }
}
alias lox {
  window -pkodCfB +Lt @Loading -1 -1 200 25
  %load = -20
  load.loop
}
alias -l  load.loop { if ($window(@Loading)) { clear -n @Loading
    var %i 25, %c = 0 | while (%i >= 0) { drawline -nr @Loading $rgb($calc(%c * 6),$calc(%c * 6),$calc(%c * 6)) 1 0 %i 200 %i | dec %i | inc %c }
    var %g 0 | while (%g <= 10) { drawline -nr @loading $r(32764,65535) 1 $r($calc(%load - 10),$calc(%load + 10)) $r(0,25) $r($calc(%load - 10),$calc(%load + 10)) $r(0,25) $iif($r(0,1) == 0, 0, 200) 13 | inc %g }
    drawtext -nrio @Loading 32764 verdana 12 25 4 Connecting to server...    
    inc %load 4 | if (%load >= 200) %load = -20
    drawdot @loading | .timer -m 1 0 load.loop
} }

Menu * {
  Thuglife:StartGame
}
alias Startgame { dialog -m moneymaker moneymaker }
dialog moneymaker {
  title "Thug Life"
  size -1 -1 166 100
  option dbu
  button "Load Game", 27, 45 80 37 12
  button "Start Game", 25, 5 80 37 12
  button "Highscores", 26, 84 80 37 12
  button "Close", 9, 124 80 37 12, Cancel
}
on *:dialog:moneymaker:sclick:25:{
  newaccount
}
on *:dialog:moneymaker:sclick:26:{
  thughighscores
}
on *:dialog:moneymaker:sclick:27:{
  thugloadgame
}
alias thugloadgame {
  set %thugname $input(Enter your Username,oe,User)
  set %thugpass $input(Enter your password,op,Password)
  .notice ThugLifeServer thugloadgame %thugname %thugpass
  goto unset
  if (1 == 2) {
    :unset
    unset %thugname
    unset %thugpass
  }
}
alias newaccount {
  set %name $input(Enter your Username,oe,User)
  set %passwordchecker $input(Enter your password,op,Password)
  set %password $input(Double Check Password,op,Password)
  if (%password == %passwordchecker) {
    noop $input(Validating account info,o,Account Creator)
    .notice ThugLifeServer thugnew %name %password
    write thugstats.txt %name 100
    goto unset
  }
  else {
    :passworderror
    noop $input(The passwords did not match.,o,Password)
    :unset
    unset %password
    unset %passwordchecker
    unset %name
  }
}

alias loggedin { dialog -m thuglife thuglife }
dialog thuglife {
  title "Welcome to Thug Life"
  size -1 -1 166 100
  option dbu
  button "Go to..", 25, 5 80 37 12
  button "Update", 27, 45 80 37 12
  button "Save Game", 26, 84 80 37 12
  button "Log Out", 9, 124 80 37 12, Cancel
}
on *:dialog:thuglife:sclick:25:{
  dialog -x thuglife
  goingto
}
on *:dialog:thuglife:sclick:26:{
}
on *:dialog:thuglife:sclick:27:{
  .notice thuglifeserver thugupdate
}
on *:dialog:thuglife:sclick:9:{
  unset %logged*
  startgame
}
alias goingto { dialog -m gotto gotto }
dialog gotto {
  title "Where would you like to go?"
  size -1 -1 166 100
  option dbu
  button "Rob..", 27, 45 80 37 12
  button "Casino", 25, 5 80 37 12
  button "Crackhouse", 26, 84 80 37 12
  button "Previous", 9, 124 80 37 12, Cancel
}
on *:dialog:gotto:sclick:25:{
  cassino
  dialog -x gotto
}
on *:dialog:gotto:sclick:27:{
  robb
  dialog -x gotto
}
on *:dialog:gotto:sclick:26:{
}
on *:dialog:gotto:sclick:9:{
  dialog -x gotto
  loggedin
}
alias robb { dialog -m robb robb }
dialog robb {
  title "Don't get caught!"
  size -1 -1 166 100
  option dbu
  button "Civilian", 27, 45 80 37 12
  button "Bank", 25, 5 80 37 12
  button "Store", 26, 84 80 37 12
  button "Previous", 9, 124 80 37 12, Cancel
}
on *:dialog:robb:sclick:25:{
}
on *:dialog:robb:sclick:26:{
}
on *:dialog:robb:sclick:9:{
  dialog -x robb
  goingto
}
alias cassino { dialog -m casino casino }
dialog casino {
  title "Welcome to the casino"
  size -1 -1 166 100
  option dbu
  button "X2-1:3", 27, 5 80 37 12
  button "X5-1:10", 25, 45 80 37 12
  button "X10-1:20", 26, 84 80 37 12
  button "Previous", 9, 124 80 37 12, Cancel
}
on *:dialog:casino:sclick:25:{
  tenmymoney
}
on *:dialog:casino:sclick:26:{
  fivemymoney
}
on *:dialog:casino:sclick:27:{
  doublemymoney
}
on *:dialog:casino:sclick:9:{
  dialog -x casino
  goingto
}
alias doublemymoney { 
  set %loggedbet $input(Place your bet,oe,Cash)
  if ($calc(%loggedmoney - %loggedbet) < 1) { goto notenough }
  set %logged2 $rand(1,3)
  if (%logged2 == 1) { goto won }
  if (%logged2 == 2) { goto lose }
  if (%logged2 == 3) { goto lose }
  if (1 == 2) {
    :notenough 
    echo You do not have enoug cash for that!
    unset %loggedbet
  }
  if (1 == 2) {
    :won
    set %loggedend $input(Congratulations you won!,o,X2 Money)
    set %loggedmoneywon $calc(%loggedbet * 2)
    set %loggedcash $calc(%loggedmoneywon + %loggedmoney)
    unset %loggedmoney
    set %loggedmoney %loggedcash
    unset %loggedcash
    unset %loggedbet
    unset %loggedmoneywon
    echo -a You now have $ $+ %loggedmoney
    unset %logged2
  }
  if (1 == 2) {
    :lose
    set %loggedcash $calc(%loggedmoney - %loggedbet)
    unset %loggedmoney
    set %loggedmoney %loggedcash
    unset %loggedcash
    unset %loggedbet
    set %loggedbend $input(Sorry you lost,o)
    echo -a You now have %loggedmoney left
    unset %logged2
  }
}
alias fivemymoney {
}
alias tenmymoney {
}