Someone

on *:TEXT:!register:#:{
  if (%registered $+ $nick != $null) { notice $nick You Already Registered. } { HALT }
  notice $nick Thank you for registering.
  set %registered $+ $nick Registered
  set %tokens $+ $nick 100
}
on *:TEXT:!minilotto *:#:{
  if ($2 != %minilottonumber) { notice $nick You've Just Lost 10 Tokens! | set %tokens $+ $nick $calc(%tokens $+ $nick - 10)
    if (%tokens $+ $nick < 10) { HALT }
    if (%tokens $+ $nick > 10) {
      if (%registered $+ $nick == $null) { notice $nick You Aren't Registered! } { HALT }
      if (%registered $+ $nick != $null) {
        if ($2 == %minilottonumber) { msg $chan 3Wtg Nick You Just Won 200 Tokens! | set %tokens $+ $nick $calc(%tokens $+ $nick + 200) }
        set %minilottonumber $rand(1,10)
      }
    }
  }
}
on *:TEXT:!megalotto *:#:{
  if ($2 != %megalottonumber) { notice $nick You've Just Lost 40 Tokens! | set %tokens $+ $nick $calc(%tokens $+ $nick - 40)
    if (%tokens $+ $nick < 10) { HALT }
    if (%tokens $+ $nick > 10) {
      if (%registered $+ $nick == $null) { notice $nick You Aren't Registered! } { HALT }
      if (%registered $+ $nick != $null) {
        if ($2 == %megalottonumber) { msg $chan 3Wtg Nick You Just Won 6000 Tokens! | set %tokens $+ $nick $calc(%tokens $+ $nick + 6000) }
        set %megalottonumber $rand(1,40)
      }
    }
  }
}
on *:TEXT:!Tokens:#:{
  if (%registered $+ $nick == $null) { notice $nick You Aren't Registered! } { HALT }
  if (%registered $+ $nick != $null) { notice $nick You Have %tokens $+ $nick Tokens. }
}
on *:TEXT:!unregister:#:{
  if (%registered $+ $nick == $null) { notice $nick You Aren't Registered! } { HALT }
  if (%registered $+ $nick != $null) { notice $nick Your Account Has Been Unregistered. | unset %registered $+ $nick | unset %tokens $+ $nick }
}