SHARE
TWEET

Bot management1

Seb Jun 21st, 2010 (edited) 318 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on *:INVITE:#:{
  2.   nofloodz
  3.   if (%suspended. [ $+ [ # ] ] == 1) { .notice $nick 4***14[4Ubot14] This channel is suspended, for info join #UBot |  halt }
  4.   if (%parted. [ $+ [ # ] ]) { .notice $nick 4***14[4Ubot14] This channel is suspended due to a 4!part request, Time left untill Suspension removal4 $duration($var(parted. $+ $chan, 1).secs) $+ . |  halt }
  5.   if (%invited. [ $+ [ # ] ]) { .notice $nick 4***14[4Ubot14] This channel is suspended. I Was invited recently, please wait4 $duration($var(invited. $+ $chan, 1).secs) $+  and Try again after. |  halt }  
  6.   else {
  7.     set $+(%,inv.nick.,$chan) $nick
  8.     .timer 1 1 msg #Ubot $+(14[4,$nick,14]) Invited me to join:4 #
  9.     .notice $nick 4***14[4Ubot14] Hello, I will join $chan in a moment, please hold!
  10.     .timer 1 5 .join -n $chan
  11.   }
  12. }
  13. on *:JOIN:#:{
  14.   if ($chan == #Ucorp) { halt }
  15.   if ($chan == #UBot)  { halt }
  16.   if (%registered. [ $+ [ # ] ] == 1) { halt }
  17.   if ($nick !== $me) { halt }
  18.   if ($nick == $me && $($+(%,inv.nick.,$chan),2)) {
  19.     .timer 1 1 msg $chan 4***14[4Ubot14] 14I was invited by $($+(%,inv.nick.,$chan),2) 4|14 Verifying Channel Status... 4|14 Support Channel: 7#Ubot 4|
  20.     .timer 1 3 check.ppl $chan $($+(%,inv.nick.,$chan),2)
  21.     .timer 1 3 check.op $($+(%,inv.nick.,$chan),2) $chan
  22.     unset $+(%,inv.nick.,$chan)
  23.   }
  24. }
  25. on *:TEXT:!part Ubot:#:{
  26.   if ($nick isop $chan) || ($nick ishop $chan) {
  27.     .part # 4***14[4Ubot14] Part requested by $nick
  28.     set -u3600 %parted. [ $+ [ # ] ] $ticks
  29.     .msg #Ubot 4***14[4Part14] $nick Requested a !part on # (Channel Suspended for 60mins)
  30.     halt
  31.   }
  32.   .msg # 4***14[4Error14] 14 To make me part you need to have 4@14 or 4%14!
  33. }
  34. on *:PART:#:{
  35.   if ($nick == $me) { halt }
  36.   if ($chan == #Ubot) { halt }
  37.   if ($chan == #UCorp) { halt }
  38.   check.ppl $chan
  39. }
  40.  
  41. on *:QUIT:{
  42.   if (%registered. [ $+ [ # ] ] == 1) { halt }
  43.   var %x = 1
  44.   while (%x <= $comchan($nick,0)) {
  45.     check.ppl $comchan($nick,%x)
  46.     inc %x
  47.   }
  48. }
  49. alias check.op {
  50.   if ($1 isop $2 || $1 ishop $2) { halt }
  51.   part $chan Invited by Non-Operator
  52.   .msg #Ubot $+(14[4,$chan,14]) Status: 5Rejected I was invited by a non operator
  53. }
  54. alias check.ppl {
  55.   if (%registered. [ $+ [ $comchan($nick,%x) ] ] == 1) { halt }
  56.   if (%registered. [ $+ [ $1 ] ] == 1) { halt }
  57.   if ($nick($1,0) <= 3) {
  58.     part $1 4***14[4Ubot14] 14You need at least4 2 14people to keep me
  59.     .msg #Ubot $+(14[4,$2,14]) Status: 5Purged Less then 3 user in the room.
  60.     set -u3600 %invited. [ $+ [ $1 ] ] $ticks
  61.     halt
  62.   }
  63.   if ($nick($1,0) >= 2) {
  64.     set %registered. [ $+ [ $1 ] ] 1
  65.     set %ajchans $addtok(%ajchans,$chan,44)
  66.     msg $1 4***14[4Ubot14] 14Status for $1 $+ :3 Pass! 4| 14Support Channel: 7#Ubot 4|14 Forum: 7Coming Soon
  67.     msg $1 4***14[4Ubot14] 14You Don't want me here?: 4!part $me 14[7@14]. 4|7 $1 14Will be suspended for one hour.
  68.   }
  69. }
RAW Paste Data
Top