on *:text:*:%ichan: {
  throttleit
  if (%answer [ $+ [ $nick ] ]) {
    var %fi = $gettok(%answer [ $+ [ $nick ] ],1,32)
    var %sn = $gettok(%answer [ $+ [ $nick ] ],2,32)
    var %1- = $remove($1-,$chr(32))
    if (%1- == %fi) { unset %answer [ $+ [ $nick ] ] | sockwrite -n %sn mode %rchan +l $calc($nick(%rchan,0)+1) | sockwrite -n %sn privmsg %ichan :you may now join %rchan }
  }
  if ($1 == !refresh) {
    if (%done) {
      inc %x
      if (%x == 4) { unset %x }
      if (%x) { botsend %bot [ $+ [ %x ] ] $nick }
      else { botsend %bot1 $nick }
    }
  }
}
on *:part:#: {
  if ($chan == %ichan) { unset %answer [ $+ [ $nick ] ] }
  if ($chan == %rchan) { mode %rchan +l $calc($nick(%rchan,0)-1) }
}
on *:kick:%rchan: { mode %rchan +l $calc($nick(%rchan,0)-1) }
on *:quit: { if ($nick ison %rchan) { mode %rchan +l $calc($nick(%rchan,0)-1) } }
on *:join:%ichan: {
  throttleit
  if ($nick == %bot1) || ($nick == %bot2) || ($nick == %bot3) && ($address($nick,2) == $address($me,2)) {
    sockwrite -n $nick JOIN %rchan
    halt
  }
  if (%done) {
    inc %x
    if (%x == 4) { unset %x }
    if (%bot [ $+ [ %x ] ]) { botsend %bot [ $+ [ %x ] ] $nick | halt }
    else { unset %bot [ $+ [ %x ] ] | halt }
  }
}
on *:nick: {
  if ($newnick ison %ichan) && (%answer [ $+ [ $nick ] ]) { %answer [ $+ [ $newnick ] ] = %answer [ $+ [ $nick ] ] | unset %answer [ $+ [ $nick ] ] }
}
alias botq {
  sockclose botq*
  unset %x
  unset %f
  unset %done
  unset %bot*
  unset %answer*
  .timercheck 0 0 checkchan
  if ($me isop #$$1) { %rchan = #$$1 | %ichan = $+(#$$1,$r(0,9999)) | join %ichan | topic %ichan follow instructions from the bot to access our channel, type !refresh for a new captcha | mode #$$1 +O %ichan }
  %bot1 = $+(botq,$r(0,9999))
  %bot2 = $+(botq,$r(0,9999))
  %bot3 = $+(botq,$r(0,9999))
  sockopen %bot1 irc.webchat.org 6667
  sockopen %bot2 irc.webchat.org 6667
  sockopen %bot3 irc.webchat.org 6667
}
alias checkchan {
  if (%bot1 ison %rchan) && (%bot2 ison %rchan) && (%bot3 ison %rchan) { mode %rchan +ooo %bot1 %bot2 %bot3 | .timer 1 3 mode %rchan +lRt $nick(%rchan,0) | .timer 1 3 mode %ichan +JRtooo %bot1 %bot2 %bot3 | %done = on | .timercheck off }
}
on *:sockopen:botq*: {
  if (!$sockerr) {
    sockwrite -n $sockname NICK $sockname
    sockwrite -n $sockname USER $sockname 0 * : $+ $sockname
  }
}
on *:sockread:botq*: {
  var %temp
  sockread %temp
  tokenize 32 %temp
  ;echo -s $1-
  if ($2 == 221) { sockwrite -n $sockname join %ichan }
  if ($1 == PING) { sockwrite -n $sockname PONG $2- }
}
alias botsend {
  randquest $1-
  halt
}
alias decf {
  if (%f) && (%f != 0) { dec %f | halt }
  unset %f
}
alias randquest {
  var %r = $r(1,3)
  if (%r == 1) {
    var %third = $read(poke.txt)
    var %rlim = $r(1,3)
    set %answer [ $+ [ $2 ] ] $str(%third,%rlim) $1
    sockwrite -n $1 privmsg %ichan : $+ $r(0,9999) $r(a,z) $str($r(a,z) $+ $chr(32),2) say the third word %rlim $rtimez $+ $upper($r(a,z)) $read(poke.txt) $read(poke.txt) %third
    halt
  }
  if (%r == 2) {
    var %second = $read(poke.txt)
    var %rlim = $r(1,3)
    set %answer [ $+ [ $2 ] ] $str(%second,%rlim) $1
    sockwrite -n $1 privmsg %ichan : $+ $r(0,9999) $r(a,z) $r(a,z) $str($r(a,z) $+ $chr(32),2) say the second word %rlim $rtimez $+ $upper($r(a,z)) $read(poke.txt) %second $read(poke.txt)
    halt
  }
  if (%r == 3) {
    var %first = $read(poke.txt)
    var %rlim = $r(1,3)
    set %answer [ $+ [ $2 ] ] $str(%first,%rlim) $1
    sockwrite -n $1 privmsg %ichan : $+ $str($r(a,z) $+ $chr(32),2) say the first word %rlim $rtimez $+ $upper($r(a,z)) %first $read(poke.txt) $read(poke.txt)
    halt
  }
}
alias rtimez {
  if ($r(1,2) == 2) { var %t = tlmes }
  if ($r(1,2) == 2) {
    if (%t) { var %t = $replace(%t,e,3) }
    else { var %t = $replace(times,e,3) }
  }
  if (%t) { return %t }
  else { return times }
}
alias throttleit {
  if (%done) {
    inc %f
    .timer 1 3 decf
    if (%f == 3) {
      mode %ichan +im
      .timer 1 3 mode %ichan -im
      unset %f
      %stop = on
      .timer 1 3 unset %stop
      halt
      unset %bot*
      unset %answer*
    }
  }
}