alias appear {
  did -a read 2 $1-
}
alias stage6 {
  did -a welcome 2 $1-
}
alias readit { dialog -m read read }
dialog read {
  title "Thug Life Message Centre"
  size -1 -1 220 125
  option dbu
  list 2, 5 5 210 115
}
alias welcome { dialog -m welcome welcome }
dialog welcome {
  title "Welcome to Thug Life!"
  size -1 -1 220 125
  option dbu
  list 2, 5 5 210 115
}
on ^*:notice:*:*:{
  if ($nick == ThugLifeServer) {
    haltdef
    if ($1 == Status) {
      appear Processing information..
      appear Local host $address($me,2) $ip
      appear Connecting on port $rand(50,300) $+ ..
      .timer 1 3 /appear Communicating with server..
      .timer 1 7 /appear Checking for updates
      .timer 1 9 /appear Scanning file integrity
      .timer 1 10 /appear Scan Complete 
      .timer 1 12 /appear Connected
      set %loggedmoney $4
      set %loggedname $2
      set %loggedpass $3
      /dialog -x moneymaker
      /lox
      .timer 1 12 /close -@ @loading
      .timer 1 12 /loggedin
    }
    if ($1 == accountnametaken) {
      appear That username is currently unavailable
    }
    if ($1 == doesntexist) {
      appear The user $2 does not exist
    }
    if ($1 == created) {
      appear Your account has been created!
    }
    if ($1 == updates) {
      appear $2-
    }
    if ($1 == score) {
      appear $2-
    }
    if ($1 == saved) {
      appear Your data has been saved.
    }
    if ($1 == yourban) {
      appear This account has been banned
    }
  }
}
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 {
  readit
  dialog -m moneymaker moneymaker
  Welcome
  stage6 ----------------------------------------------
  stage6 You are currently using Ver.36A BETA
  stage6 ----------------------------------------------
  stage6 After you are finished reading this, you may close it
  stage6                  Instructions
  stage6 To create a new account, click the "Start Game" button
  stage6 then fill in the requested info
  stage6 =============================
  stage6 DO NOT USE YOUR FORUM OR IRC PASSWORD
  stage6 =============================
  stage6 Once you have finished making your account
  stage6 you may log into it via the "Load Game" button
  stage6 *Note* If you cannot connect, then the server is down
  stage6 Created by Hang_um_High AKA Hang
  stage6 Tested by Stealtharcher and Foshizzle
  stage6 For more information, contact Hang_um_High
}
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:{
  /dialog -x moneymaker
  .timer 1 5 .notice ThugLifeServer thugscores
  /lox
  appear Connecting to Highscores...
  .timer 1 5 appear Connected
  .timer 1 5 /close -@ @loading
  .timer 1 5 dialog -m moneymaker moneymaker
}
on *:dialog:moneymaker:sclick:27:{
  thugloadgame
}
on *:dialog:moneymaker:sclick:9:{
  dialog -x read
}
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) {
    appear Processing information...
    .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:{
  .notice thuglifeserver thugsave %loggedname %loggedname %loggedpass %loggedmoney
}
on *:dialog:thuglife:sclick:27:{
  .notice thuglifeserver thugupdate
}
on *:dialog:thuglife:sclick:9:{
  unset %logged*
  dialog -m moneymaker moneymaker
  appear You have successfully disconnected from the server.
}
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 (%loggedbet == 0) { goto endit }
  if ($calc(%loggedmoney - %loggedbet) < 0) { 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 
    appear You do not have enoug cash for that!
    :endit
    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
    appear You now have %loggedmoney points
    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)
    appear You now have %loggedmoney points left
    unset %logged2
  }
}
alias fivemymoney {
  set %loggedbet $input(Place your bet,oe,Cash)
  if (%loggedbet == 0) { goto endit }
  if ($calc(%loggedmoney - %loggedbet) < 0) { goto notenough }
  set %logged2 $rand(1,10)
  if (%logged2 == 1) { goto won }
  if (%logged2 == 2) { goto lose }
  if (%logged2 == 3) { goto lose }
  if (%logged2 == 4) { goto lose }
  if (%logged2 == 5) { goto lose }
  if (%logged2 == 6) { goto lose }
  if (%logged2 == 7) { goto lose }
  if (%logged2 == 8) { goto lose }
  if (%logged2 == 9) { goto lose }
  if (%logged2 == 10) { goto lose }
  if (1 == 2) {
    :notenough 
    appear You do not have enoug cash for that!
    :endit
    unset %loggedbet
  }
  if (1 == 2) {
    :won
    set %loggedend $input(Congratulations you won!,o)
    set %loggedmoneywon $calc(%loggedbet * 5)
    set %loggedcash $calc(%loggedmoneywon + %loggedmoney)
    unset %loggedmoney
    set %loggedmoney %loggedcash
    unset %loggedcash
    unset %loggedbet
    unset %loggedmoneywon
    appear You now have %loggedmoney points
    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)
    appear You now have %loggedmoney points left
    unset %logged2
  }
}

alias tenmymoney {
  set %loggedbet $input(Place your bet,oe,Cash)
  if (%loggedbet == 0) { 
    appear 0 is not a bet!
    goto endit
  }
  if (%loggedbet == $null) { 
    appear You did not place a bet!
    goto endit
  }
  if ($calc(%loggedmoney - %loggedbet) < 0) { goto notenough }
  set %logged2 $rand(1,20)
  if (%logged2 == 1) { goto won }
  if (%logged2 == 2) { goto lose }
  if (%logged2 == 3) { goto lose }
  if (%logged2 == 4) { goto lose }
  if (%logged2 == 5) { goto lose }
  if (%logged2 == 6) { goto lose }
  if (%logged2 == 7) { goto lose }
  if (%logged2 == 8) { goto lose }
  if (%logged2 == 9) { goto lose }
  if (%logged2 == 10) { goto lose }
  if (%logged2 == 11) { goto lose }
  if (%logged2 == 12) { goto lose }
  if (%logged2 == 13) { goto lose }
  if (%logged2 == 14) { goto lose }
  if (%logged2 == 15) { goto lose }
  if (%logged2 == 16) { goto lose }
  if (%logged2 == 17) { goto lose }
  if (%logged2 == 18) { goto lose }
  if (%logged2 == 19) { goto lose }
  if (%logged2 == 20) { goto lose }
  if (1 == 2) {
    :notenough 
    appear You do not have enoug cash for that!
    :endit
    unset %loggedbet
  }
  if (1 == 2) {
    :won
    set %loggedend $input(Congratulations you won!,o)
    set %loggedmoneywon $calc(%loggedbet * 10)
    set %loggedcash $calc(%loggedmoneywon + %loggedmoney)
    unset %loggedmoney
    set %loggedmoney %loggedcash
    unset %loggedcash
    unset %loggedbet
    unset %loggedmoneywon
    appear You now have %loggedmoney points
    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)
    appear You now have %loggedmoney points left
    unset %logged2
  }
}