Paul's Scripts

Aliases:

/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
/k {
  inc %kbcount 1
  /kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount) 
}
/kb {
  inc %kbcount 1
  /ban -k $chan $1 2 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/tb {
  inc %kbcount 1
  /ban -ku $+ $calc($2 * 60) $chan $1 2 5TempBan for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/mute {
  inc %kbcount 1
  if ($nick !ison $chan) {
    /mode $chan +b-eIohv ~q: $+ $address($1,2) $1 $1 $1
    /msg $chan 5[2 $1 5] has been muted for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
    /timer 1 $calc($2 * 60) //mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
  }
}
/gag {
  if ($1 !ison $chan) {
    inc %kbcount 1
    /mode $chan +b-ohv ~q: $+ $address($1,2) $1 $1 $1
  }
}
/ungag {
  if ($1 !ison $chan) {
    inc %kbcount 1
    /mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
  }
}
/away {
  if (%away == off) {
    set %away on
    set %pm off
    set %reason $1-
    set %awaytime $ctime
    /amsg 2I am now away. 5Reason:2 $1-
  }
}
/returnaway {
  if (%away == on) {
    set %away off
    set %pm on
    /amsg 2I am now back 5From:2 %reason 5Time gone:2 $duration($calc($ctime - $($+(%,awaytime),2)))
  }
}

Remotes:

alias /kirby {
  msg $chan 0,0--------------1,1----------0,0------------
  msg $chan 0,0----------1,1----6,6--13,13------6,6--1,1----0,0--------
  msg $chan 0,0--------1,1--6,6--13,13--------------6,6--1,1--0,0------
  msg $chan 0,0------1,1--6,6--13,13------------------1,1--0,0------
  msg $chan 0,0------1,1--13,13--------------------6,6--1,1--0,0----
  msg $chan 0,0----1,1--13,13--------------1,1--13,13--1,1--13,13--6,6--1,1--0,0----
  msg $chan 0,0--1,1--6,6--13,13--------------1,1--13,13--1,1--13,13------1,1--0,0--
  msg $chan 0,0--1,1--13,13----------------1,1--13,13--1,1--13,13------1,1--0,0--
  msg $chan 0,0--1,1--13,13----------4,4----13,13--------4,4----13,13--1,1--0,0--
  msg $chan 0,0--1,1--6,6--13,13----6,6--13,13----------------6,6--13,13--1,1--0,0--
  msg $chan 0,0----1,1--6,6--13,13--1,1--13,13----------1,1--13,13----1,1--6,6--1,1--0,0--
  msg $chan 0,0------1,1----6,6--13,13--------------6,6--1,1----0,0----
  msg $chan 0,0--------1,1----6,6----13,13--------6,6--1,1----0,0------
  msg $chan 0,0------1,1--4,4----1,1--------------4,4----1,1--0,0----
  msg $chan 0,0----1,1--4,4----------1,1--0,0----1,1--4,4--------1,1--0,0-
}

alias /leet { msg $chan $replace($1-,a,Å,b,ß,c,©,d,Ð,e,3,f,ƒ,i,¡,l,|,m,/\/\,n,Ñ,o,ø,p,þ,r,®,s,§,t,†,u,û,v,\/,x,×,y,¥,-,¬,?,¿,`,¤,w\/\/,) }

alias big {
  set %bl.buffer1 A | set %bl.buffer2 A | set %bl.buffer3 A | set %bl.buffer4 A | set %bl.buffer5 A
  var %bl.cmd say, %bl.col1, %bl.col2
  if ($$1 == echo) { set %bl.cmd echo -at | tokenize 32 $2- }
  if ($1 !isnum) { set %bl.col1 1 | set %bl.col2 0 }
  elseif ($2 !isnum) { set %bl.col1 $1 | set %bl.col2 0 | tokenize 32 $2- }
  else { set %bl.col1 $1 | set %bl.col2 $2 | tokenize 32 $3- }
  var %bl.idx1 1,  %bl.idx2 1,  %bl.idx3 1
  ;set the block field
  while (%bl.idx1 <= $0) {
    set %bl.idx2 1
    while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
      blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
      inc %bl.idx2
    }
    if (%bl.idx1 < $0) blockappend $blockletter
    inc %bl.idx1
  }
  ;colorize the block field
  blockcolor %bl.col1 %bl.col2
  ;output the block field
  set %bl.idx3 1
  while (%bl.idx3 <= 5) { %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ] | unset %bl.buffer [ $+ [ %bl.idx3 ] ] | inc %bl.idx3 }
}

alias -l blockletter {
  if ($1 === A) return ABA BAB BBB BAB BAB
  elseif ($1 === B) return BBA BAB BBA BAB BBA
  elseif ($1 === C) return ABB BAA BAA BAA ABB
  elseif ($1 === D) return BBA BAB BAB BAB BBA
  elseif ($1 === E) return BBB BAA BBA BAA BBB
  elseif ($1 === F) return BBB BAA BBA BAA BAA
  elseif ($1 === G) return ABB BAA BAB BAB ABB
  elseif ($1 === H) return BAB BAB BBB BAB BAB
  elseif ($1 === I) return BBB ABA ABA ABA BBB
  elseif ($1 === J) return BBB ABA ABA ABA BBA
  elseif ($1 === K) return BAB BAB BBA BAB BAB
  elseif ($1 === L) return BAA BAA BAA BAA BBB
  elseif ($1 === M) return ABBBA BABAB BABAB BAAAB BAAAB
  elseif ($1 === N) return BAAB BBAB BABB BAAB BAAB
  elseif ($1 === O) return BBB BAB BAB BAB BBB
  elseif ($1 === P) return BBB BAB BBB BAA BAA
  elseif ($1 === Q) return BBB BAB BAB BBB AAB
  elseif ($1 === R) return BBB BAB BBB BBA BAB
  elseif ($1 === S) return ABB BAA ABA AAB BBA
  elseif ($1 === T) return BBB ABA ABA ABA ABA
  elseif ($1 === U) return BAB BAB BAB BAB BBB
  elseif ($1 === V) return BAB BAB BAB BAB ABA
  elseif ($1 === W) return BAAAB BAAAB BABAB BABAB ABBBA
  elseif ($1 === X) return BAB BAB ABA BAB BAB
  elseif ($1 === Y) return BAB BAB BAB ABA ABA
  elseif ($1 === Z) return BBB AAB ABA BAA BBB
  elseif ($1 === a) return AAAA AAAA ABBA BABA BBAB
  elseif ($1 === b) return BAA BAA BBB BAB BBB
  elseif ($1 === c) return AAA AAA BBB BAA BBB
  elseif ($1 === d) return AAB AAB BBB BAB BBB
  elseif ($1 === e) return AAA ABB BAB BBA ABB
  elseif ($1 === f) return ABB ABA BBB ABA ABA
  elseif ($1 === g) return AAA BBB BAB ABB BBA
  elseif ($1 === h) return BAA BAA BBB BAB BAB
  elseif ($1 === i) return A B A B B
  elseif ($1 === j) return AB AA AB AB BB
  elseif ($1 === k) return BAA BAA BAB BBA BAB
  elseif ($1 === l) return BA BA BA BA BB
  elseif ($1 === m) return AAAAA AAAAA ABABA BABAB BABAB
  elseif ($1 === n) return AAA AAA BBA BAB BAB
  elseif ($1 === o) return AAA AAA BBB BAB BBB
  elseif ($1 === p) return AAA BBB BAB BBB BAA
  elseif ($1 === q) return AAA BBB BAB BBB AAB
  elseif ($1 === r) return AAA AAA BAB BBA BAA
  elseif ($1 === s) return AA AB BA AB BB
  elseif ($1 === t) return ABA ABA BBB ABA ABA
  elseif ($1 === u) return AAA AAA BAB BAB BBB
  elseif ($1 === v) return AAA AAA BAB BAB ABA
  elseif ($1 === w) return AAAAA AAAAA BABAB BABAB ABABA
  elseif ($1 === x) return AAA AAA BAB ABA BAB
  elseif ($1 === y) return AAA BAB BAB ABA BAA
  elseif ($1 === z) return AAA BBB AAB ABA BBB
  elseif ($1 == 0) return ABA BAB BAB BAB ABA
  elseif ($1 == 1) return ABA BBA ABA ABA BBB
  elseif ($1 == 2) return BBA AAB ABA BAA BBB
  elseif ($1 == 3) return BBA AAB ABA AAB BBA
  elseif ($1 == 4) return BAB BAB BBB AAB AAB
  elseif ($1 == 5) return BBB BAA BBA AAB BBA
  elseif ($1 == 6) return ABB BAA BBB BAB BBB
  elseif ($1 == 7) return BBB AAB AAB ABA ABA
  elseif ($1 == 8) return BBB BAB BBB BAB BBB
  elseif ($1 == 9) return BBB BAB BBB AAB BBA
  elseif ($1 == .) return A A A A B
  elseif ($1 == !) return B B B A B
  elseif ($1 == ?) return BBB AAB ABA AAA ABA
  elseif ($1 == -) return AAA AAA BBB AAA AAA
  elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB
  elseif ($1 == ^) return ABA BAB AAA AAA AAA
  elseif ($1 == +) return AAA ABA BBB ABA AAA
  elseif ($1 == =) return AAA BBB AAA BBB AAA
  elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA
  elseif ($1 == \) return BAAAA ABAAA AABAA AAABA AAAAB
  elseif ($1 == ]) return BB AB AB AB BB
  elseif ($1 == [) return BB BA BA BA BB
  elseif ($1 == :) return A B A B A
  elseif ($1 == $chr(59)) return AA AB AA AB BA
  elseif ($1 == <) return AAB ABA BAA ABA AAB
  elseif ($1 == >) return BAA ABA AAB ABA BAA
  elseif ($1 == $chr(40)) return AB BA BA BA AB
  elseif ($1 == $chr(41)) return BA AB AB AB BA
  elseif ($1 == ") return BAB BAB AAA AAA AAA
  elseif ($1 == ') return B B A A A
  elseif ($1 == `) return BA AB AA AA AA
  elseif ($1 == ,) return AA AA AA AB BA
  elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA
  elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB
  elseif ($1 == $chr(124)) return B B B B B
  elseif ($1 == *) return BAB ABA BAB AAA AAA
  else return A A A A A
}

alias -l blockappend {
  set %bl.buffer1 $+(%bl.buffer1,$$1,A)
  set %bl.buffer2 $+(%bl.buffer2,$$2,A)
  set %bl.buffer3 $+(%bl.buffer3,$$3,A)
  set %bl.buffer4 $+(%bl.buffer4,$$4,A)
  set %bl.buffer5 $+(%bl.buffer5,$$5,A)
}

alias -l blockcolor {  
  var %bl.buff 1, %bl.string 5  
  while (%bl.buff <= 5) {  
    while (%bl.string >= 1) {  
      set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+(,$$2,$chr(44),$$2,$str($blockrand,%bl.string)))  
      set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+(,$$1,$chr(44),$$1,$str($blockrand,%bl.string)))  
      dec %bl.string  
    }  
    set %bl.string 5  
    inc %bl.buff  
  }  
}

alias -l blockrand return $iif($rand(0,1) == 0,<,>) 

alias eI {
  /mode $chan +eIeI $address($me,2) $address($me,2) $me $me 
}

alias eI2 {
  /mode $chan +eIeIeIeIeIeIeI *!*@Swift-6544C385.hsd1.ar.comcast.net *!*@Swift-6544C385.hsd1.ar.comcast.net *!*@Swift-999473E1.hsd1.az.comcast.net *!*@Swift-999473E1.hsd1.az.comcast.net Paul Paul Paul|mIRC Paul|mIRC Paul|BNC Paul|BNC Paul|Away Paul|Away Hobbit Hobbit
}

alias -eI2 {
  /mode $chan -eIeIeIeIeIeIeI *!*@Swift-6544C385.hsd1.ar.comcast.net *!*@Swift-6544C385.hsd1.ar.comcast.net *!*@Swift-999473E1.hsd1.az.comcast.net *!*@Swift-999473E1.hsd1.az.comcast.net Paul Paul Paul|mIRC Paul|mIRC Paul|BNC Paul|BNC Paul|Away Paul|Away Hobbit Hobbit
}

alias -eI {
  /mode $chan -eI $address($me,2) $address($me,2) $me $me
}

alias mass {
  if ( $regex($1,/^[\+-]?[ohv]$/) ) && ( $me isop # ) {
    var %a, %c = $+($left($1,1),$str($right($1,1),$modespl))
    var %d = $iif( $left($1,1) === -, $right($1,1), $iif($right($1,1) == v,a,$+(a,$chr(44),o)) ), %b = $nick(#,0,%d)
    while %b {
      if ( $nick(#,%b,%d) != $me) {
        %a = %a $v1
        if ($modespl == $numtok(%a,32)) { 
          mode # %c %a 
          %a = "" 
        }
      }
      dec %b
    }
    if (%a) mode # %c %a
  }
}

alias amsg { var %x 1 | while ($chan(%x)) { if (!$istok(#mirc #idlerpg #cookiedough #swiftswitch #irchelp #idle #idlers #rsrealm #leetchan,$v1,32)) { msg $chan(%x) 5[GlobalMSG]2 $1- } | inc %x } }

alias takeover { 
  mode $chan +smntiRcQVNTlkfj 1 §£Kjå§Ð£Ð§fj£KêW®Kjüïðñ [1t#b]:999 1:999
  topic $chan Owned
  eI2
  eI
  mass -o
  mass -h
  mass -v
}

alias untakeover { 
  mode $chan -smntirRcQVNTlkfj 1 §£Kjå§Ð£Ð§fj£KêW®Kjüïðñ [1t#b]:999 1:999
  /cs akick $chan clear
}

alias own {
  inc %kbcount 1
  mode $chan -ohveIeIQ+b $1 $1 $1 $1 $1 $address($1,2) $address($1,2) $address($1,2)
  kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}

alias pwn {
  inc %kbcount 1
  mode $chan -ohvQeIeI+b $1  $1 $1 $1 $1 $address($1,2) $address($1,2) $address($1,2)
  kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)  
  cs access $chan del $1
}

on *:text:paul:#:{
  if (%away == on) {
    /notice $nick I am currently away. Reason: %reason Time Gone: $duration($calc($ctime - $($+(%,awaytime),2)))
  }
}

on *:join:#leetchan:{
  if ($nick == Paul) {
    /timerleet 0 120 /msg #leetchan !leet
  }
}

on *:join:#rsrealm:{
  if ($nick == Paul) {
    /timerrsrealm 0 120 /msg #rsrealm !leet
  }
}

on *:join:#cookiedough:{
  if ($nick == Paul) {
    /timercookiedough 0 120 /msg #cookiedough !leet
  }
}


on *:join:#idlers:{
  if ($nick == Paul) {
    /msg idlers login Idnarg psg11
  }
}


on *:join:#idle:{
  if ($nick == Paul) {
    /msg idlebot login Ruthio psg11
  }
}

on *:join:#idlerpg:{
  if ($nick == Paul) {
  }
}

on *:TEXT:.count*:#:{
  if ($chan == #rshelp) { halt } {
    notice $nick 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ] 
  }
}

on *:TEXT:@count*:#:{
  if ($chan == #idlers) { halt }
  if ($chan == #idle) { halt }
  if ($chan == #rshelp) { halt } {
    msg $chan 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ] 
  }
}

on *:TEXT:!count:#:{ 
  if ($chan == #rshelp) { halt } {
    notice $nick 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ] 
  }
}

on *:TEXT:!calc*:#:{ 
  if ($chan == #swiftswitch) { halt } 
  if ($chan == #irchelp) { halt }
  if ($chan == #rshelp) { halt }
  if ($chan == #questhelp) { halt }
  if ($chan == #jamminbnc) { halt } {
  notice $nick 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,c,00,pi,$pi)),bd))  }
}

on *:TEXT:.calc*:#:{ 
  if ($chan == #swiftswitch) { halt } 
  if ($chan == #irchelp) { halt }
  if ($chan == #rshelp) { halt }
  if ($chan == #questhelp) { halt }
  if ($chan == #jamminbnc)  { halt } {
  notice $nick 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,b,000000000,c,00,pi,$pi)),bd))  }
}

on *:TEXT:@calc*:#:{ 
  if ($chan == #swiftswitch) { halt } 
  if ($chan == #irchelp) { halt }
  if ($chan == #rshelp) { halt }
  if ($chan == #idle) { halt }
  if ($chan == #idlers) { halt }
  if ($chan == #questhelp) { halt }
  if ($chan == #jamminbnc)  { halt } {
  msg $chan 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,c,00,pi,$pi)),bd))  }
}

on *:text:!pcwon *:#pc: {
  if ($nick !isreg $chan) {
    set %pcwrepeat on
    /timerpcw 0 $2 /.ctcp Hobbit sayworld
  }
}

on *:text:!slowdown *:#pc: {
  if ($nick !isreg $chan) {
    /timerpcw 0 $2 /.ctcp Hobbit sayworld
  }
}

on *:text:!pcwon:#pc: {
  if ($nick !isreg $chan) {
    set %pcwrepeat on
  }
}

on *:text:!pcwrepeatoff:#pc: {
  if (%pcwrepeat == off) { halt }
  if ($nick !isreg $chan) {
    set %pcwrepeat off
    /timerpcw off
  }
}

on *:text:!pcwoff:#pc: {
  if ($nick !isreg $chan) {
    /timerpcw off
    set %pcwrepeat off
  }
}

on *:text:!pcwrepeaton *:#pc: {
  if (%pcwrepeat == off) { halt }
  if ($nick !isreg $chan) {
    set %pcwrepeat on
    /timerpcw 0 $2 /.ctcp Hobbit sayworld
  }
}

on *:text:!timersuggeston:#pc: {
  if ($nick !isreg $chan) {
    /timersuggest 0 60 /msg #pc 2If the current Pest Control Worlds are 5BAD2, please 5suggest new ones2 by typing 5!suggestlevel world2. This will 5message the staff channel2 and 5record you suggestion2. After 5five suggestions2, the world will 5automatically be changed2.
  }
}

on *:text:!timersuggestoff:#pc: {
  if ($nick !isreg $chan) {
    /timersuggest off
  }
}

on *:text:!cwon *:#castlewars: {
  if ($nick !isreg $chan) {
    set %cwwrepeat on
    /timercw 0 $2 /.ctcp Hobbit saycworld
  }
}

on *:text:!cwrepeatoff:#castlewars: {
  if (%cwwrepeat == off) { halt }
  if ($nick !isreg $chan) {
    set %cwwrepeat off
    .timercw off
  }
}

on *:text:!cwoff:#castlewars: {
  if ($nick !isreg $chan) {
    .timercw off
    set %cwwrepeat off
  }
}

on *:text:!cwrepeaton *:#castlewars: {
  if (%cwwrepeat == off) { halt }
  if ($nick !isreg $chan) {
    set %cwwrepeat on
    /.timercw 0 $2 /.ctcp Hobbit saycworld
  }
}

on *:text:.commands*:#:{

  if ($chan == #IRChelp) { halt }

  if ($nick !isreg $chan) {

    msg $nick The following is a list of my commands:

    msg $nick To mute a channel = .mute 

    msg $nick To unmute a channel = .unmute

    msg $nick To temp-gag someone = .tg/.m nick time(minutes) reason

    msg $nick to gag someone = .g nick

    msg $nick To ungag someone = .ug nick

    msg $nick To kick someone = .k nick reason

    msg $nick To kick someone for <Hiding Worlds> = .nhw nick

    msg $nick To kick someone for <Complaining about Requirements> = .nrq nick

    msg $nick To kick-ban someone = .kb nick reason

    msg $nick To kick-ban someone for <Breaking JaGex Rules> = .jr nick

    msg $nick To temp-ban someone = .tb nick time(minutes) reason

    msg $nick To temp-ban someone for <Inappropriate Nickname (3 minutes)> = .nc nick reason

    msg $nick To temp-ban someone for <Complaining (3 minutes)> = .comp nick

    msg $nick To temp-ban someone for <Spamming (10 minutes)> = .sp nick

    msg $nick To temp-ban someone for <Zezima Spamming (10 minutes)> = .zb nick

    msg $nick To temp-ban someone for <Offensive Language (10 minutes)> = .ol nick 

    msg $nick I ban people automatically for the following reasons: Advertising (Use of #, 30 minutes), and use of Public Commands (Use of @, 10 minutes)

    msg $nick To use the calculator = .calc number(+,-,/,*)number

    msg $nick To publicaly use the calculator = @calc number(+,-,/,*)number

    msg $nick To see how many users are in a channel = .count #channel

    msg $nick To publicaly see how many users are in a channel = @count #channel

    msg $nick To see how many users are in the channel = !count
  }
} 

on *:text:.tb *:#: { if ($nick !isreg $chan) /tb $2 $3- }

on *:TEXT:.g*:#:{
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) { 
    mode $chan +b-ohv ~q: $+ $address($2,2) $2 $2 $2 
  } 
}

on *:TEXT:.ug*:#:{ if ($nick !isreg $chan) { mode $chan -b ~q: $+ $address($2,2) } }

on *:TEXT:.mute*:#:{ if ($nick !isreg $chan) { mode $chan +m } }

on *:TEXT:.unmute*:#:{ if ($nick !isreg $chan) { mode $chan -m } }

on *:text:.tg *:#:{
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) && ($1 !ison $chan) {
    /mute $2 $3-
  }
}

on *:text:.kb *:#: {
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    /kb $2 $3-  
  }
}

on *:text:.k*:#: {
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    /k $2 $3-  
  }
}

on *:text:.m *:#: {
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    /mute $2 $3-
  }
}

on *:TEXT:.ol *:#: {
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    inc %kbcount
    ban -ku600 $chan $2 2 5Don't use offensive language. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
  }
}

on *:TEXT:.nc*:#: {
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    inc %kbcount
    ban -ku180 $chan $2 2 5Change your nickname, please. Use /nick newnickhere. 3 minute ban. 4Reason:12 $3- $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
  }
}

on *:TEXT:.comp*:#: {
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    inc %kbcount
    ban -ku180 $chan $2 2 5Don't complain about the worlds, suggest a new one using !suggest level world. 3 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
  }
}

on *:TEXT:.sp*:#: {
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    inc %kbcount
    ban -ku600 $chan $2 2 5Stop spamming. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
  }
}

on *:text:.jr*:#: {
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    inc %kbcount
    /ban -k $chan $2 2 5Don't break JaGex rules.12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
  }
}

on *:text:.nrq*:#:{
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    inc %kbcount 1
    /kick # $2 5This is a no requirement channel, if you don't like it then leave.12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
  }
}

on *:text:.nhw*:#:{
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    inc %kbcount 1
    /kick # $2 5Don't hide worlds. 12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
  }
}

on *:TEXT:*#*:#pc:{
  if ($nick !isreg $chan) { halt }
  elseif (*#* iswm $remove($1-,#pc,#help,#general,#rsmarket,#irchelp,#mirc,#rshelp,#swiftswitch)) {
    inc %kbcount 1
    /ban -ku1800 # $nick 2 5Don't advertise in here or use #. 30 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
  }
}

on *:TEXT:.zb *:#:{
  if ($2 !isreg $chan) { halt }
  if ($nick !isreg $chan) {
    inc %kbcount 1
    /ban -ku600 # $2 2 5Don't spam about Zezima, go to #zezima for that. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
  }
}

on *:text:@*:#pc:{ 
  if ($nick !isreg $chan) { halt }
  inc %kbcount
  /ban -ku600 # $nick 2 5Don't use public commands in here (Use of @). 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
}

alias pm {
  set %pm $1 | echo 2Private-Messagess have been turned 5[ $1 ]2 $+ !
}

on *:TEXT:*:?:{
  if ($nick == -sBNC) { halt }
  if (%pm == OFF) {
    .msg $nick 2I am not accepting Private-Messages at the moment. If your message is urgent, you can send me a memo by typing 5/ms send $me message2. 
    close -m $nick
  }
}

menu * {
  -
  Blacklist · V.01:BList
}
Alias BList {
  dialog -md BList BList
}
dialog BList {
  title "Advanced Blacklist Dialog™ · V.01"
  size -1 -1 160 200
  option dbu
  Tab "Home", 01, 000 -002 160 202
  Tab "Users", 02
  Menu "&File" 03
  Menu "&Clear Blacklisted Users" 04
  Button "Edit User", 05, 62 177 36 12, Tab 2
  Button "Ok", 06, 000 188 036 012, Ok
  Button "Cancel", 07, 124 188 036 012, Cancel
  Text "James' Blacklist dialog · On Request of [P5]", 08, 027 030 105 012, Tab 1
  Box "Header", 09, 023 024 109 016, Tab 1
  Edit "Person To Blacklist", 10, 028 050 100 012, Center, Tab 1, AutoHS
  Edit "Reason for Blacklist", 11, 028 063 100 012, Center, Tab 1, AutoHS
  Edit "#Channel for Blacklist", 12, 028 076 100 012, Center, Tab 1, AutoHS
  Box "Blacklist Info", 13, 023 041 109 051, Tab 1
  Check "Channel Blacklist", 14, 030 100 050 012, Tab 1
  Check "Regular Blacklist", 15, 080 100 050 012, Tab 1
  Box "Blacklist Type", 16, 023 094 109 020, Tab 1
  Box "Blacklist Commands", 17, 023 120 109 023, Tab 1
  button "Enable", 18, 44 128 36 12, Tab 1
  button "Disable", 19, 80 128 36 12, Tab 1
  Text "Advanced Blacklist Dialog™ · By Jdawg140 · V.01", 20, 000 175 160 012, Center, Tab 1
  Text "", 21, 000 155 160 012, Center, Tab 1
  List 22, 020 040 120 120, VSbar, HSbar, Tab 2
  Box "Blacklisted Users", 23, 017 032 127 127, Tab 2
  Button "Rem Blacklist", 24, 62 165 36 12, Tab 2
  Tab "Global Banning", 25
  Edit "Person To Global Ban", 26, 028 050 100 012, Center, Tab 25, AutoHS, Limit 30
  Edit "Reason for Global Ban", 27, 028 063 100 012, Center, Tab 25, AutoHS
  Box "Global Ban Info", 28, 023 041 109 038, Tab 25
  Button "Global Ban!", 29, 076 090 36 012, Center, Tab 25
  Button "Global UnBan", 30, 040 090 36 012, Center, Tab 25
  Box "Inishiate Ban", 31, 023 082 109 025, Tab 25
}
on *:dialog:BList:menu:*: {
  if ($did == 54) dialog -x $dname
  elseif ($did == 50) did -a $dname 21 Use the buttons on the dialog
  elseif ($did == 51) {
    if ($did($dname,22).seltext) {
      remini BList.ini $network $gettok($ifmatch,1,46)     
      write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
      r_BList
    }
    else did -a $dname 21 No selected User
  }
  elseif ($did == 52) {
    if ($did($dname,22).seltext) {
      remini BList.ini $network $gettok($ifmatch,1,46)     
      write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
      set %Blacklist2.5 $gettok($ifmatch,2-,46)  
      r_BList
      dialog -x $dname
      BList
    }
    else did -a $dname 21 No selected User
  }
  elseif ($did == 55) {
    .remove BList. $+ $network
    remini BList.ini $network
    did -a $dname 21 All blacklisted users removed
    did -r $dname 22
  }
}
ON *:DIALOG:BList:Close:*:{ unset %Blacklist.* }
ON *:DIALOG:BList:sclick:*:{
  if ($did == 29) {
    var %i = 0
    while (%i < $comchan($me,0)) {
      inc %i 
      if ($comchan($me,%i) != #Idle) { 
        if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {     
          mode $comchan($me,%i) +b $iif($address($did($dname,26),2),$ifmatch,$did($dname,26))

        }
        if ($me !ishop $comchan($me,%i) && $me !isop $comchan($me,%i)) {  

        }
      }
    }
  }
  elseif ($did == 30) {
    var %i = 0
    while (%i < $comchan($me,0)) {
      inc %i 
      if ($comchan($me,%i) != #Idle) { 
        if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {     
          mode $comchan($me,%i) -bb $address($did($dname,26),2) $did($dname,26))

        }
        if ($me !ishop $comchan($me,%i) && $me !isop $comchan($me,%i)) {  

        }
      }
    }
  }
  elseif ($did == 18) {
    if (%Blacklist.18 == Enabled) { 
      write BList. $+ $network $iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $&
        $calc($ini(BList.ini,$network,0) + 1) $chr(124) $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
        $chr(124) $did($dname,11)
      writeini BList.ini $network $calc($ini(BList.ini,$network,0) + 1) $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
        $iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $did($dname,11)
      did -az $dname 22 $ini(BList.ini,$network,0) $+ . $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
        $iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $did($dname,11)  
      B_Check
    }
    else {
      set %Blacklist.18 Enabled
      did -a $dname 18 Add Blacklist
      did -e $dname 19
      did -n $dname 10
      did -n $dname 11
    }
  }
  elseif ($did == 5) {
    if ($did($dname,22).seltext) {
      remini BList.ini $network $gettok($ifmatch,1,46)     
      write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
      set %Blacklist2.5 $gettok($ifmatch,2-,46)  
      r_BList
      dialog -x $dname
      BList
    }
  }
  elseif ($did == 22) {
    did -e $dname 24
    did -e $dname 05
  }
  elseif ($did == 24) {
    if ($did($dname,22).seltext) {
      remini BList.ini $network $gettok($ifmatch,1,46)     
      write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
      r_BList
    }
  }
  elseif ($did == 14) {
    if ($did($dname,15).state) { 
      did -u $dname 15
      did -e $dname 12
      did -e $dname 15
    }
    elseif (!$did($dname,15).state) { 
      did -c $dname 15
      did -b $dname 15
      did -b $dname 12
    }
  }
  elseif ($did == 15) {
    if (!$did($dname,14).state) did -c $dname 15
    if ($did($dname,14).state) {
      did -u $dname 14
      did -b $dname 15
      did -b $dname 12
    }
  }
  elseif ($did == 19) {
    did -m $dname 10
    did -m $dname 11
    did -b $dname 19
    did -b $dname 12
    unset %Blacklist.*
    did -a $dname 18 Enable
    did -b $dname 19
    did -c $dname 15
    did -b $dname 15
    did -u $dname 14
  }
}
ON *:DIALOG:BList:init:0:{
  did -m $dname 10
  did -m $dname 11
  did -b $dname 12
  did -c $dname 15
  did -b $dname 19
  did -b $dname 15
  did -b $dname 20
  did -b $dname 24
  did -b $dname 05
  did -a $dname 03 50 Add User
  did -a $dname 03 51 Rem User
  did -a $dname 03 52 Edit User
  did -a $dname 03 53 $str($chr(160),6) $+ - $+ $str($chr(160),2)
  did -a $dname 03 54 Close
  did -a $dname 04 55 Clear! 
  var %i = 0 
  while (%i < $ini(BList.ini,$network,0)) {
    inc %i
    did -az $dname 22 %i $+ . $readini(BList.ini,$network,%i)
  }
  if (%Blacklist2.5) {
    echo -at %Blacklist2.5
    if (*~c:* iswm %Blacklist2.5) {
      did -a $dname 21 Edit BlackList: Use A Comma (,) to seperate channels
      did -r $dname 10
      did -r $dname 11
      did -r $dname 12
      did -c $dname 14
      did -u $dname 15
      did -e $dname 12
      did -a $dname 12 $remove($gettok(%Blacklist2.5,1,32),~c:)
      did -a $dname 10 $gettok(%Blacklist2.5,2,32)
      did -a $dname 11 $gettok(%Blacklist2.5,4-,32)
      set %Blacklist.18 Enabled
      did -a $dname 18 Add Blacklist
      did -e $dname 19
      did -n $dname 10
      did -n $dname 11
      unset %Blacklist2.5
    }
    if (*~r:* iswm %Blacklist2.5) {
      did -a $dname 21 Edit BlackList: Use A Comma (,) to seperate channels
      did -r $dname 10
      did -r $dname 11
      did -a $dname 11 $gettok(%Blacklist2.5,4-,32)
      did -a $dname 10 $gettok(%Blacklist2.5,2,32)
      set %Blacklist.18 Enabled
      did -a $dname 18 Add Blacklist
      did -e $dname 19
      did -n $dname 10
      did -n $dname 11
      unset %Blacklist2.5
    }
  }
}
alias -l r_BList {
  did -r BList 22
  var %BList $ctime
  var %i = 0
  var %z = 0
  while (%i < $ini(BList.ini,$network,0)) {
    inc %i
    write $+(%BList,.txt) $readini(BList.ini,$network,$ini(BList.ini,$network,%i))
  }
  remini BList.ini $network
  while (%z < $lines($+(%BList,.txt))) {
    inc %z
    writeini BList.ini $network %z $read($+(%BList,.txt),%z)
    did -az BList 22 $+(%z,.) $readini(BList.ini,$network,%z)
  }
  .remove $+(%BList,.txt)
}
ON *:OP:#:{ if ($opnick == $me) $bcheck($chan) }
ON *:HELP:#:{ if ($hnick == $me) $bcheck($chan) }
ON *:JOIN:#:{
  if ($read(BList. $+ $network, s, $nick) || $read(BList. $+ $network, s, $address($nick,2))) {
    var %IfMatch = $ifmatch
    if (*~r:All* iswm $gettok(%IfMatch,2,124) || *~c:* $+ $chan $+ * iswm $gettok(%IfMatch,2,124)) {
      var %users +1
      /own $nick Shitlisted $chr(183) $gettok(%IfMatch,3-,124)
    }
  }
}
Alias -l bcheck {
  var %i = 0
  var %Chan = $1
  while (%i < $nick($1,0)) {
    inc %i
    if ($read(BList. $+ $network, s, $nick($1,%i)) || $read(BList. $+ $network, s, $address($nick($1,%i),2))) {
      var %IfMatch = $ifmatch
      if (*~r:All* iswm $gettok(%IfMatch,2,124) || *~c:* $+ %Chan $+ * iswm $gettok(%IfMatch,2,124)) {
        var %users +1
        /own $nick(%Chan,%i) 2 Shitlisted $chr(183) $gettok(%IfMatch,3-,124)
      }
    }
  }
}
Alias -l B_Check {
  var %i = 0
  while (%i < $comchan($me,0)) {
    inc %i
    if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {
      $bcheck($comchan($me,%i))
    }
  }
}

Variables:

%kbcount 27762
%pcwscript on
%pm off
%pcwrepeat on
%away off
%reason Sleeeeep.
%awaytime 1198388232