;ALIASES;
alias bingo return 1,12 B12,12 1,0|4,4 1,4I4,4 1,0|8,8 1,8N8,8 1,0|9,9 1,9G9,9 1,0|7,7 1,7O7,7 
alias -l blogo { return $+($c1([),$c2($1),$c1(])) }
alias -l plogo { return $+($c1($chr(40)),$c2($1),$c1($chr(41))) }
alias -l blogo2 { return $+($c2([),$c1($1),$c2(])) }
alias -l plogo2 { return $+($c2($chr(40)),$c1($1),$c2($chr(41))) }
;alias -l login { if (!$hget(Login,$nick)) { .notice $nick $plogo(STATUS) $c1(Currently verifying) $c2(your) $c1(authentication with NickServ) $+ $c2(.) | .ns status $nick | halt } }
alias -l incwins { writeini BingoStatistics.ini Wins $nick $iif($readini(BingoStatistics.ini,Wins,$nick),$calc($v1 + 1),1) }
alias -l inctotalgames { writeini BingoStatistics.ini Total-Played $nick $iif($readini(BingoStatistics.ini,Total-Played,$nick),$calc($v1 + 1),1) }
alias -l EngBingo {
  if ($1 == $null) {
    .msg #BingoStaff $iif($r(1,2) == 1,$blogo2(ERROR),$plogo2(ERROR)) $c1($nick) $+($c2(Tried to end a game of Bingo without specifying a correct channel),$c1(!))
    return
  }
  unset $+(%bingo.,$1,.,*)
}
alias -l ReadyBingo {
  if ($1 == #FastBingo) {
    .timer 1 60 StartBingo $1
    .msg $1 $iif($r(1,2) == 1,$blogo2(BINGO),$plogo2(BINGO)) $c1(A game of) $bingo $c1(will start in) $c2(60) $+($c1(Seconds),$c2(.)) $c1(Type) $c2(!Join) $c1(to join the current) $c2(#FastBingo) $+($c1(Game),$c2(.))
  }
  else {
    .timer 1 120 StartBingo $1
    .msg $1 $iif($r(1,2) == 1,$blogo2(BINGO),$plogo2(BINGO)) $c1(A game of) $bingo $c1(will start in) $c2(120) $+($c1(Seconds),$c2(.)) $c1(Type) $c2(!Join) $c1(to join the current) $c1(Game of) $+($c2(Bingo),$c1(.))
  }
}
alias -l StartBingo {
  if ($1 == #FastBingo) {
    .msg #FastBingo $iif($r(1,2) == 1,$blogo2(BINGO),$plogo2(BINGO)) $c1(The Game of) $bingo $+($c1(is now starting),$c2(!)) $c1(The first number will be drawn in) $c2(5) $+($c1(seconds),$c2($chr(44))) $c1(and consecutive draws will be) $c2(10) $+($c1(seconds apart),$c2(.))
    .timer 1 5 GetNumber #FastBingo
    set $+(%,bingo.,$1,.Game) true
  }
  else {
    .msg $1 $iif($r(1,2) == 1,$blogo2(BINGO),$plogo2(BINGO)) $c1(The Game of) $bingo $+($c1(is now starting),$c2(!)) $c1(The first number will be drawn in) $c2(10) $+($c1(seconds),$c2($chr(44))) $c1(and consecutive draws will be) $c2(15) $+($c1(seconds apart),$c2(.))
    .timer 1 10 GetNumber $1
    set $+(%,bingo.,$1,.Game) true
  }
}
alias -l GetNumber {
  if (!$eval($+(%,bingo.,$1,.gnums),3)) {
    var %bnum 1
    while (%bnum <= 75) {
      set $+(%,bingo.,$1,.gnums) $eval($+(%,bingo.,$1,.gnums),3) %bnum
    inc %bnum }
  }
  var %ball $gettok($eval($+(%,bingo.,$1,.gnums),3),$r(1,$gettok($eval($+(%,bingo.,$1,.gnums),3),0,32)),32)
  set $+(%,bingo.,$1,.gnums) $remtok($eval($+(%,bingo.,$1,.gnums),3),%ball,1,32)
  if (%ball isnum 1-15) { set %call $+($chr(3),12,$chr(44),12,$chr(3),0,$chr(44),12,B,$chr(40),%ball,$chr(41)) }
  if (%ball isnum 16-30) { set %call $+($chr(3),4,$chr(44),4,$chr(3),0,$chr(44),4,I,$chr(40),%ball,$chr(41)) }
  if (%ball isnum 31-45) { set %call $+($chr(3),8,$chr(44),8,$chr(3),1,$chr(44),8,N,$chr(40),%ball,$chr(41)) }
  if (%ball isnum 46-60) { set %call $+($chr(3),9,$chr(44),9,$chr(3),0,$chr(44),9,G,$chr(40),%ball,$chr(41)) }
  if (%ball isnum 61-75) { set %call $+($chr(3),7,$chr(44),7,$chr(3),0,$chr(44),7,O,$chr(40),%ball,$chr(41)) }
  msg $1 $iif($r(1,2) == 1,$blogo2(CALL),$plogo2(CALL)) $+($c1(A new number has been called),$c2(!)) $c1(The new number is) $+(%call,$chr(3),$c2(!)) $c1(If you have this number type) $+($c2(!mark),$c1(.))
  if ($1 == #FastBingo) .timerGetBall 1 2 getnumber #FastBingo
  if ($1 != #FastBingo) .timerGetBall 1 15 getnumber $1
  if ($eval($+(%,bingo.,$eval($1,1),.gnums),3) == $null) { msg $1 All out of numbers!#@!#!@#!@# | timergetball off }
}
;LOGIN;
;on $*:TEXT:/^[!.@]login/Si:#:{
;if ($chan != #BINGO || $chan != #BINGO2 || $chan != #BINGO3) { halt }
;if (!$hGet(Login,$nick)) {
;if (!$hGet(Waiting,$nick)) {
;hAdd -mz Waiting $nick 10
;.ns status $nick
;}
;}
;else { .notice $nick $plogo(STATUS) $c2(You) $c1(are already logged in) $+ $c2(!) | .ignore -u3 $nick }
;}
;on ^*:NOTICE:Status*:?:{
;if ($nick == NickServ) {
;if (!$hget(login,$2)) {
;if ($3 >= 2) {
;.notice $2 $plogo(STATUS) $c2(NickServ) $c1(authentication was a success with the nick) $c2($2) $+ $c1(!)
;.hadd -m login $2 $ctime
;.watch $+(+,$2)
;.haltdef
;}
;else {
;.notice $2 $plogo(STATUS) $c2(NickServ) $c1(authentication failed) $+ $c2(!) $c1(Please identify with NickServ) $+ $c2(.)
;.haltdef
;}
;}
;else { .notice $2 $plogo(STATUS) $c1(You are already logged in) $+ $c2(.) | ignore -u3 $nick }
;}
;}
;raw 601:*:{
;if ($hGet(Login,$gettok($2,1,126))) {
;.hdel Login $gettok($2,1,126)
;.watch $+(-,$gettok($2,1,126))
;}
;}
;on 1:NICK:{ if ($hGet(Login,$nick)) { .hdel Login $nick } }
;on 1:QUIT:{ if ($hGet(Login,$nick)) { .hdel Login $nick } }
;BINGO STUFF;
On $*:TEXT:/^[.!]Endbingo\b/Si:#Bingo,#BingoStaff,#FastBingo,#Bingo2,#Bingo3: {
  if ($readini(BingoStaff.ini,Admins,$nick)) {
    if ($2 == $null || $2 != #Bingo || $2 != #Bingo2 || $2 != #bingo3) { .notice $nick $iif($r(1,2) == 1,$blogo2(ERROR),$plogo2(ERROR)) $+($c1(You have not specified a correct channel),$c2(!)) | RETURN }
    .msg $2 $iif($r(1,2) == 1,$blogo2(Admin End),$plogo2(Admin End)) $c1(Administrator) $c2($nick) $+($c1(just ended the game in this channel),$c2(.))
    .msg #BingoStaff $iif($r(1,2) == 1,$blogo2(Force End),$plogo2(Force End)) $c1(Administrator) $c2($nick) $c1(just ended the game in) $+($c2($2),.)
    EndBingo $2
  }
  else {
    .notice $nick $iif($r(1,2) == 1,$blogo2(ERROR),$plogo2(ERROR)) $c1(You must be an) $c2(Administrator) $+($c1(to end a game),$c2(!)) | return
  }
}
On $*:TEXT:/^[.!]Startbingo\b/Si:#Bingo,#FastBingo,#Bingo2,#Bingo3: {
  if ($eval($+(%,bingo,.,$chan,.game),3) == true) { .notice $nick $iif($r(1,2) == 1,$blogo2(ERROR),$plogo2(ERROR)) $c1(There is already a game of) $c2(BINGO) $+($c1(going),!) | RETURN }
  login
  ReadyBingo #
}
On $*:TEXT:/^[.!]join\b/Si:#Bingo,#FastBingo,#Bingo2,#Bingo3: {
  if ($eval($+(%,bingo.,$1,.Game),3) == true) {
  }
}