All pastes #83647 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-07-09 23:15 UTC
rendered paste body
on *:text:@getabot *:#avidbots:{
  if ($me == AvidServ) {
    if ($chr(44) !isin $2) && ($2 != #) {
      msg # Checking $2 Please wait!
      join $2
      set %chan $2
      set %nick $nick
    }
  }
}
on *:JOIN:#:{
  if ($nick == $me) && ($chan == %chan) {
    var %tmp 1
    while (%tmp <= $nick(%chan,0)) {
      inc %tmp 1
      if (ChanServ == $nick(%chan,%tmp)) {
        set %sendbot $rand(1,15)
        set %sendbot $iif($mid(AvidBot- $+ %sendbot,10) == $null,$replace(Avidbot- $+ %sendbot,-,-0),$replace(AvidBot- $+ %sendbot,-,-))
        scon %sendbot JOIN %chan
        scon AvidServ part %chan Done checking requirements. Sending %sendbot
        scon AvidServ msg #AvidBots Sending %sendbot to %chan Thank you for using AvidBots.     
        unset %chan | unset %nick
      }
      elseif (ChanServ != $nick(%chan,%tmp)) {
        msg %chan ChanServ isnt in %chan
      }
      inc %tmp
    }
  }
}