Untitled

;/* Edit Below to change the theme */
alias theme return 3
alias settings {
  if ($1 == 1) return $theme $+  $+ $3 has just started a lotto for6 $4 $+ . 3 $iif($5,The lotto will end in $5 minutes.)
  elseif ($1 == 2) return $theme $+  $+ $2 $+ , no lotto is running in $3 at the moment.
  elseif ($1 == 3) return $theme $+  $+ $2 $+ , you cannot enter your own lotto's. That would be cheating ;).
  elseif ($1 == 4) return $theme $+  $+ $2 $+ , you are already in the lotto at postion $3 $+ .
  elseif ($1 == 5) return $theme $+  $+ $2 $+ , you are now in the lotto for $4 at position $3 $+
  elseif ($1 == 6) return $theme $+  $+ $2 $+ , You are not lotto starter or there is no lotto to draw at this moment.
  elseif ($1 == 7) return $theme $+ Picking a nick name out at random...
  elseif ($1 == 8) return $theme $+ Well done to $3 who won a $4 in $2 $+ !
  elseif ($1 == 9) return $theme $+ A lotto has already been started. Please end that one before starting a new one.
  elseif ($1 == 10) return $theme $+ $3 you have canceled the current lotto in progress.
  elseif ($1 == 11) return $theme $+ You do not have the correct permissions to do this.
  elseif ($1 == 12) return $theme $+ There is not enough people in the lotto to start.
}
;/* Edit above to change messages etc. Look at the example text to see what corisponds to what */
on *:TEXT:*:#:{
  if ($1 == !lottostart) {
    if (!$readini(lottos.ini,n,$chan,prize)) {

      if ($regex($($+($,$0),2),/\(([0-9]+?)\)/)) {
        var %prize $($+($,2- $+ $calc($0 - 1)),2)
        msg $chan $settings(1,$chan,$nick,$($+($,$calc($0 - 1)),2),$regml(1))
        .timerLottoEnd. $+ $chan 1 $calc($regml(1) * 60) lottoEnd $chan
      }
      else msg $chan $settings(1,$chan,$nick,$2-)
      writeini -n lottos.ini $chan prize $iif(%prize,$v1,$2-)
      writeini -n lottos.ini $chan user $nick
    }
    else msg $chan $settings(9)
  }
  elseif ($1 == !clotto) {
    if ($nick($chan,$nick,&~)) {
      if ($readini(lottos.ini,n,$chan,prize)) {
        .timerLottoEnd. $+ $chan off
        remini lottos.ini $chan
        write -c lotto $+ $chan $+ .txt
        msg $chan $settings(10,$chan,$nick)
      }
      else msg $chan $settings(2)
    }
    else msg $chan $settings(11)
  }
  elseif ($1 == !lotto) {
    if ($readini(lottos.ini,n,$chan,prize)) {
      if ($readini(lottos.ini,$chan,user) != $nick) {
        if (!$read($+(lotto,$chan,.txt),s,$nick)) {
          write $+(lotto,$chan,.txt) $nick 1
          msg $chan $settings(5,$nick,$lines($+(lotto,$chan,.txt)),$readini(lottos.ini,n,$chan,prize))
        }
        else msg $chan $settings(4,$nick,$readn)
      }
      else msg $chan $settings(3,$nick)
    }
    else msg $chan $settings(2,$nick,$chan)
  }
  elseif ($1 == !draw) {
    if ($readini(lottos.ini,n,$chan,prize)) && (($readini(lottos.ini,$chan,user) == $nick) || $nick($chan,$nick,&~)) {
      lottoEnd $chan
    }
    else msg $chan $settings(6,$nick,$chan)
  }
}
alias lottoend {
  if ($lines($+(lotto,$1,.txt)) >= 3) {
    var %txt $+(lotto,$1,.txt)
    var %rand $read(%txt,$r(1,$lines(%txt)))
    msg $1 $settings(7)
    .timer 1 3 msg $1 $settings(8,$1,$gettok(%rand,1,32),$readini(lottos.ini,n,$chan,prize))
    remini lottos.ini $1
    write -c %txt
  }
  else msg $1 $settings(12,$1)
}