All pastes #89099 Raw Edit

Someone

public text v1 · immutable
#89099 ·published 2006-07-15 19:32 UTC
rendered paste body
ALIAS CheckJoin {
  if ((%invited. [ $+ [ $1 ] ] != CrazyMan1975) && ($calc($nick($1,0) - 1) < 5) && (!$findtok(%autojoin.always,$1,44))) { .part $1 Not enough users. 5 User Minimum. | 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 CrazyMan1975 *** [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 crazyman1975 *** [4INVITE]: New Invitation to4 $1 by4 %invited. [ $+ [ $1 ] ] (Users:4 $nick($1,0)  $+ $chr(124) Kicks:4 %kicknum $+ )
    msg $1 Bot $me $+ , Reporting for duty. I've been invited here by4 %invited. [ $+ [ $1 ] ] $+ , For a list of available commands visit http://trulyhelp.crazyman.org/ $iif(%kicknum > 0,- 4WARNING: Kicked from $1 %kicknum Times. You only get 5!)
  }
}

ON *:JOIN:#:{
  if ($nick == CrazyMan1975) {
    if ($chan == #TrulyInsane) mode $chan +q CrazyMan1975
    .msg $chan [4CrazyMan1975]: Creator of $me $+ , Owner of #RsPrices and Generally nice guy. ;)
  }
  else .timer 1 3 CheckJoin $chan
}

ON *:INVITE:#:{
  if ($chan(0) == 30) { notice $nick Sorry! I'm already on 30 Channels, that's the most the network allows. Soon in the future there will be more bots to help. | halt }
  if ($isignored($nick) || ($chan == #rsmarket) || ($chan == #finalownage)) halt
  if (*price* iswm $chan && $chan != #RsPrices) halt
  if (*value* iswm $chan) halt
  IF (%kicked. [ $+ [ $chan ] ] >= 5) {
    notice $nick *** [7Invitation]: I have been kicked from $chan 5 times. Channel is Blacklisted. Talk to CrazyMan1975 if you want me to rejoin again.
    halt
  }
  else {
    join $chan
    set -u15 %invited. [ $+ [ $chan ] ] $nick
    %autojoin.channels = %autojoin.channels $+ , $+ $chan
  }
  set -u15 %invitedby $nick
  set -u15 %invitedchan $chan
}