New Lottery Script

on *:join:#scripting: {
  notice $nick Welcome to scripting! Type 4!lottoregister to register your name in the lottery!
}
on *:text:!lottoregister:*: {
  if (!%points [ $+ [ $nick ] ]) {
    set %points [ $+ [ $nick ] ] 5
    notice $nick You have registered successfully! You will start with 5 points. Type 4lottostart to start a lottery drawing!
  }
  elseif (%points [ $+ [ $nick ] ]) {
    notice $nick You are already registered in the lottery.
  }
}
on *:text:!lottostart:*: {
  if (%points $+ $nick && %lottery != on) {
    msg # A lottery drawing has started! A ticket costs 1 point! To buy a ticket, 4!lottobuy.
    set %lottery on
    set %amount 5
  }
}
on *:text:!lottobuy:*: {
  if (%amount > 0 && %points [ $+ [ $nick ] ] > 0 && %lottery == on && $nick !isin %people) {
    dec %points $+ $nick
    notice $nick You have successfully bought a ticket! You have %points [ $+ [ $nick ] ] points left!
    set %people %people $nick
    dec %amount
    msg # $nick has joined the lottery! There are %amount spots open!
  }
  elseif ($nick isin %people) {
    notice $nick You are already in the lottery
  }
  elseif (%points [ $+ [ $nick ] ] == 0) {
    msg # $nick is bankrupt! Contact Charmander if you are bankrupt.
  }
  if (%amount == 0) {
    draw
  }
  elseif (%points $+ $nick < 1) {
    notice $nick You don't have enough points to join the lottery. You might be bankrupt, or you have haven't registered. To register, type 4!lottoregister. If you are bankrupt, contact Charmander.
  }
}
alias draw {
  unset %lottery
  set %winner $gettok(%people,$r(1,$numtok(%people,32)),32)
  msg # Drumroll please...
  timer 1 5 msg # %winner has won the lottery! They will get 5 points.
  inc %points [ $+ [ %winner ] ] 5
  unset %amount
  unset %people
  unset %lottery
  unset %winner
}
on *:text:!lottoscore:*: {
  notice $nick You have %points [ $+ [ $nick ] ] points!
}
on *:text:!lottoend:*: {
  if ($nick isin %poweruser && %lottery == on) {
    unset %amount
    unset %people
    unset %lottery
    msg # the lottery was ended by $nick $+ !
    handback
  }
}
on *:text:!poweruser*:*: {
  if ($nick == Charmander && $$2 !isin %poweruser) {
    set %poweruser %poweruser $$2
    msg # $$2 was added as a poweruser!
  }
}