All pastes #280014 Raw Edit

iPod

public text v1 · immutable
·published 2006-12-15 15:41 UTC
rendered paste body
alias -l PartMSG { return 2Sorry, I Require At Least 5 Users To Be In Any Channel, Unless Its On The Exeptions List. Yours Has Less Than The 5 User Requirement.3 }
alias -l JoinMSG { return 1[12RuneTool© - A New Generation Of IRC Bots1] 2Hosted By iPod + Kay 5To Get Me To Leave, Type !RuneToolLeave }
alias -l ExceptChans { return #Myth #RuneTool #Rampage #RuneScape_Portugal #Bots #KewlPPL ##mIRC #Tainted_Vertigo #Mugger }
alias -l MinUsers { return 5 }
on *:JOIN:#:{
  if ($nick == $me) {
    if ($istok($ExceptChans,$Chan,32)) { HALT }
    .timer 1 3 PplCheck $Chan
  }
}
alias -l PplCheck {
  if ($nick($1,0) < $MinUsers ) {
    part $1 $PartMSG
  }
  else { HALT }
}
on *:PART:#:{
  if ($istok($ExceptChans,$Chan,32)) { HALT }
  if ($nick != $me) && ($nick($Chan,0) < $MinUsers) {
    part $chan $PartMSG
  }
}

;Join Message
on *:JOIN:#:{
  if ($istok(#bots #B0ts ##mIRC #KewlPpl #mIRC,$chan,32)) HALT
  if ($nick == $me) {
    set $+(%,eventon,$chan,) 1
    msg $chan $JoinMSG
  }
  else { 
    if (%greet. [ $+ [ $nick ] ]) {
      msg $chan 2 %Greet. [ $+ $+ 1 $+ [ $+ 12 $+ $nick $+ 1 $+ ] $+  ]
      notice $nick 1[12Welcome $nick To $chan 2||12 +Cmds For A List Of Command Categories1]
    }
    else {
      notice $nick 1[12Welcome $nick To $chan 2||12 +Cmds For A List Of Command Categories1]
    }
  }
}