Untitled

if ($2 == join) {
    if (!$4) notice $nick < join bot number channel
    elseif ($readini(wc.ini,system,bots) < $3) { notice $nick There is no bot $+($3,!) }
    elseif ($numtok($readini(wc.ini,$+(wc.,$3),channels),44) >= 28) notice $nick Bot $+($chr(33),$3) is full.
    var %a $readini(wc.ini,system,bots)
    while (%a) {
      if ($findtok($readini(wc.ini,$+(wc.,%a),channels),$4,44)) var %b %a
      dec %a
      elseif (%b) notice $nick Bot %b is already on $+($4,.)
    }
    else {
      msg # 9Join: Sending bot $3 to $+($4,.)
      writeini wc.ini $+(wc.,$3) channels $addtok($readini(wc.ini,$+(wc.,$3),channels),$4,44)
      sockwrite -n $+(wc.,$3) JOIN $4
      sockwrite -n $+(wc.,$3) PRIVMSG $4 :14Euro2012 Bot :: Joined by4 $nick 14(administratively) :: Want me to leave? Kick me. :: If you need help, join4 #Euro-2012
    }
  }