All pastes #273632 Raw Edit

Stuff

public text v1 · immutable
·published 2006-12-10 01:04 UTC
rendered paste body
ALIAS CheckJoin { 
  if $chan == #immortal_knights { /halt }
  if ((%invited. [ $+ [ $1 ] ] != Booty) && ($calc($nick($1,0) - 1) < 3) && (!$findtok(%autojoin.always,$1,44))) { .part $1 Not enough users. 2 User Minimum, Talk to Booty or join #booty to get bot in channel for temporary use. | halt }
  elseif ((%invited. [ $+ [ $1 ] ] != ChanServ) && (%invited. [ $+ [ $1 ] ]) && ($haspower(%invited. [ $+ [ $1 ] ],$1) == false)) {
    part $1 Invited by4 %invited. [ $+ [ $1 ] ] $+ , but they do not have ops. If an op wishes me here, please re-invite me.
    .notice Booty *** [4INVITE]: New Invitation to4 $1 by4 %invited. [ $+ [ $1 ] ] - But they did not have ops, so I left.
    %autojoin.channels = $remove(%autojoin.channels,$chr(44) $+ $1)
  }
  elseif (%invited. [ $+ [ $1 ] ]) {
    var %kicknum = %kicked. [ $+ [ $1 ] ]
    if (%kicknum == $null) %kicknum = 0
    .notice Booty *** [4INVITE]: New Invitation to4 $1 by4 %invited. [ $+ [ $1 ] ] (Users:4 $nick($1,0)  $+ $chr(124) Kicks:4 %kicknum $+ )
    msg $1 $me $+ , is here! I've been invited here by4 %invited. [ $+ [ $1 ] ] $+ , To find out more about this bot join #booty. You can type `commands for a list of commands.If you would like to make me leave type ~part. Only 7Half-op's& 4OP'sCan use this command.You can also invite Booter if boot doesnt join. Other Bots made by Booty are Booter & Boo!!. 2 kicks = Blacklist $iif(%kicknum > 0,- 4WARNING: Kicked from $1 %kicknum Times. You only get 5!)
  }
}

ON *:JOIN:#:{
  if $chan == #stats { /halt }
  if ($nick == Booty) {
    if ($chan == #Booty) mode $chan Booty
    .msg $chan [4Booty]: Creator of $me $+!
  }
  else .timer 1 3 CheckJoin $chan
}
 Thats the checkjoin one.
then in a new txt file i have this invite one..the one i showed you

on ^*:INVITE:{
  if ($chan(0) >= 30) { 
    .notice $nick This bot is full. Searching for an open Booty Bot. 
    .msg Boo join $chan $nick 
    halt
  }
  else {
    if ($chan(0) < 30) {
      join $chan
      set -u15 %invited. [ $+ [ $chan ] ] $nick
      %autojoin.channels = %autojoin.channels $+ , $+ $chan
    }
    set -u15 %invitedby $nick
    set -u15 %invitedchan $chan
  } 
}