All pastes #574830 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-06-18 19:01 UTC
rendered paste body
i have put in a few scripts enjoy

on *:TEXT:!onchannelban*:#:{ 
  if (%channelbanner [ $+ [ $chan ] ] == on) { .notice $nick 14 The channel banner for4 $chan 14is already4 on }
  if (%channelbanner [ $+ [ $chan ] ] == on) { halt } 
  if ($nick isop $chan || $nick == aturner44) { msg $chan 14The channel banner for4 $chan 14is now set to 4on
  set %channelbanner $+ $chan on }
}

on *:TEXT:!offchannelban*:#:{ 
  if (%channelbanner [ $+ [ $chan ] ] == off) { .notice $nick 14 The channel banner for4 $chan 14is already4 off }
  if (%channelbanner [ $+ [ $chan ] ] == off) { halt } 
  if ($nick isop $chan || $nick == aturner44) { msg $chan 14The channel banner for4 $chan 14is now set to 4on
  set %channelbanner $+ $chan off  }
}


on *:TEXT:*join*#*:#: { 
  if ($me ishop $chan) || ($me isop $chan) { 
    if ($nick isreg $chan)
    if (%channelbanner [ $+ [ $chan ] ] == off) {halt} 
    var %x = 1 
    while (%x <= $0) { 
      if ($left($($+($,%x),2),1) == $chr(35)) && ($($+($,%x),2) != $chan) { 
        if ($readini(cbanwarns.ini,warns,$address($nick,2))) { 
          writeini cbanwarns.ini total total $calc($readini(cbanwarns.ini,total,total) + 1) 
          mode $chan +b ~c: $+ $($+($,%x),2) 
          ban -k $chan $nick 2 14Banned for channel advertising you are the4 $+($chr(40),$ord($readini(cbanwarns.ini,total,total)) 4advertiser banned,$chr(41)) 
          remini cbanwarns.ini warns $address($nick,2) 
        } 
        else { 
          notice $nick 14You have been warned for advertising a channel in $chan - 1 more time and you and your channel will be banned! 
          writeini cbanwarns.ini warns $address($nick,2) Warned 
        } 
      } 
      inc %x 
    } 
  } 
} 

-----------------------gap-----------------------gap--------------------gap------------------------

on *:TEXT:!brbon*:#:{ 
  if (%brb [ $+ [ $chan ] ] == on) { .notice $nick 14 The brb script for4 $chan 14is already4 on }
  if (%brb [ $+ [ $chan ] ] == on) { halt } 
  if ($nick isop $chan || $nick ishop $chan || $nick == aturner44) { msg $chan 14The brb script for4 $chan 14is currently set to 4on
  set %brb $+ $chan ON  }
}
on *:TEXT:!brboff*:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick == aturner44) { msg $chan 14The brb script for4 $chan 14is currently set to4 off
    if (%brb [ $+ [ $chan ] ] == off) { .notice $nick 14 The brb script for 4 $chan 14 is already off }
    if (%brb [ $+ [ $chan ] ] == off) { halt } 
  set %brb $+ $chan OFF  }
}

on *:text:brb*:#: {
  if ($chan == #ircbots) { halt }
  if (%brb [ $+ [ $chan ] ] == OFF) { HALT }
  .msg $chan 4 $nick 14will be right back
}

on *:text:bbl*:#: {
  if ($chan == #ircbots) { halt }
  if (%brb [ $+ [ $chan ] ] == OFF) { HALT }
  .msg $chan 4 $nick 14is now away reason 5-4 $2- 
}

-----------------------gap-----------------------gap--------------------gap------------------------
-----------------------gap-----------------------gap--------------------gap------------------------

on *:TEXT:!offbanscript*:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $nick == aturner44)
  if (%ban [ $+ [ $chan ] ] == off) { notice $nick 14The ban script for4 $chan 14is already4 off }
  if (%ban [ $+ [ $chan ] ] == off) { halt } 
  msg $chan 14The ban script for4 $chan 14has been set to4 off
  set %ban $+ $chan off  
}

on *:TEXT:!onbanscript*:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $nick == aturner44)
  if (%ban [ $+ [ $chan ] ] == on) { .notice $nick 14 The ban script for4 $chan 14is already4 on }
  if (%ban [ $+ [ $chan ] ] == on) { halt } 
  msg $chan 14The ban script for4 $chan 14is currently set to4 on
  set %ban $+ $chan on  
}

on *:text:!ban *:#: {

  if (%ban [ $+ [ $chan ] ] == OFF) { Halt }
  /mode $chan +b $address($2,2) 
  /kick $chan $2
}
}

on *:text:!unban *:#:{
if (($me isop $chan || $me ishop $chan) && ($nick isop $chan || $nick ishop $chan)) {
  if (%ban [ $+ [ $chan ] ] == OFF) { Halt }
  /mode $chan -b $address($2,2)
}
}

on *:text:!channelban *:#:{
if (($me isop $chan || $me ishop $chan) && ($nick isop $chan || $nick ishop $chan)) {
  if (%ban [ $+ [ $chan ] ] == OFF) { Halt }
  /mode $chan +b ~c:# $+ $2 $+
}
}

on *:text:!unchannelban *:#: {
if (($me isop $chan || $me ishop $chan) && ($nick isop $chan || $nick ishop $chan)) {
  if (%ban [ $+ [ $chan ] ] == OFF) { Halt } 
  /mode $chan -b ~c:# $+ $2 $+
}
}

-----------------------gap-----------------------gap--------------------gap------------------------
-----------------------gap-----------------------gap--------------------gap------------------------

on *:TEXT:!timebanon*:#:{ 
  if (%timeban [ $+ [ $chan ] ] == on) { .notice $nick 14 The timeban script for4 $chan 14is already4 on }
  if (%timeban [ $+ [ $chan ] ] == on) { halt } 
  if ($nick isop $chan || $nick ishop $chan || $nick == aturner44) 
  msg $chan 14Reqs for4 $chan 14are currently set to 4on
set %timeban $+ $chan ON  }
}
on *:TEXT:!timebanoff*:#:{ 
if (%timeban [ $+ [ $chan ] ] == off) { .notice $nick 14 The brb script for4 $chan 14is already4 off }
if (%timeban [ $+ [ $chan ] ] == off) { halt } 
if ($nick isop $chan || $nick ishop $chan || $nick == aturner44)
msg $chan 14Reqs for4 $chan 14are currently set to4 off
set %timeban $+ $chan OFF 
}

On *:Text:!tb*:#: { 
if (%timeban [ $+ [ $chan ] ] == OFF) { Halt }
if ( $nick isop $chan ) || $nick ishop $chan ) || ($addresS($nick,2) == $addresS($me,2)) { 
  inc %bkicks 
  ban -ku $+ $calc($3 * 60) $chan $2 2 You were tbed from $chan because: $4- Number of people tbed by $me || %bkicks || 
} 
} 

-----------------------gap-----------------------gap--------------------gap------------------------
-----------------------gap-----------------------gap--------------------gap------------------------
-----------------------gap-----------------------gap--------------------gap------------------------


on $*:TEXT:/^[!@](congratulations|gratz|grats|congrats)/Si:#:{ 
  .msg $chan 4,1(¯`·.¸5,1(¯`·.¸7,1************Welldone $2 $+ *************5,1¸.·´¯)4,1¸.·´¯)
  .msg $chan 4,1(¯`·.¸5,1(¯`·.¸7,1^Congratulations $2 on $3 $4- $+ ^5,1¸.·´¯)4,1¸.·´¯)
  if ($3 == 99) {
  .msg $chan 4,1(¯`·.¸5,1(¯`·.¸7,1^^^^Enjoy you new skill cape $2 $+ ^^^^^5,1¸.·´¯)4,1¸.·´¯) }
  if ($3 == 98) {
  .msg $chan 4,1(¯`·.¸5,1(¯`·.¸7,1^**^So close to 99 keep it up $2 $+ ^**^5,1¸.·´¯)4,1¸.·´¯) }
}