All pastes #933100 Raw Edit

aaaaaaa

public text v1 · immutable
·published 2008-03-08 02:48 UTC
rendered paste body

on *:START:{
  .timestamp -f 12(14h12:14nn12:14sstt12)
  .font -zda 16 Tahoma
  .color background 01
  .color info 14
  .color info2 14
  .cnick -r * 
  .cnick -r *
  .cnick -r *
  .cnick -r *
  .cnick -r *
  .cnick * 14 + 
  .cnick $!me 13 *
  .color 11 $rgb(0,128,255)
  .cnick * 12 ~&@%
  .cnick * 00 
  mpopup mirc 1
  mpopup mircbar 1
  xpopup -t mirc office2003
  xpopup -p mirc $rgb(hilight) $rgb(0,0,255) $rgb(3dlight) $rgb(shadow) $rgb(shadow) $rgb(shadow) $rgb(3dlight) $rgb(0,0,225) $rgb(0,0,225) $rgb(text)
  xpopup -p mircbar $rgb(hilight) $rgb(0,0,255) $rgb(3dlight) $rgb(shadow) $rgb(shadow) $rgb(shadow) $rgb(3dlight) $rgb(0,0,225) $rgb(0,0,225) $rgb(text)
  echo -ta 12-14-12- 14Welcome to 2m4IR8C $+(14v12,$trp($version)) 12 $+ $trp($me) $+ 14!
  .titlebar $+(Blaze1454»,$me,«)
}
;theme replace
alias trp {
  if ($isid) && ($1-) {
    var %x $replace($1-,+,14+12,-,14-12,.,14.12,@,14@12,~,14~12,:,14:12)
    var %y  $replace(%x,[,14[12,],14]12,$chr(35),$+(14,$chr(35),12),|,14|12,",14"12,`,14`12,%,14%12)
    var %a $replace(%y,_,14_12,$chr(44),$+(14,$chr(44),12),$chr(40),$+(14,$chr(40),12),$chr(41),$+(14,$chr(41),12))
    var %b $replace(%a,!,14!12,$chr(123),$+(14,$chr(123),12),$chr(125),$+(14,$chr(125),12),$,14$12)
    return 12 $+ %b
  } 
}
;theme brackets - $thmbr(hi) returns (hi) $thmbr(hi).br returns [hi]
alias thmbr {
  if ($isid) && ($1-) {
    if ($prop == br) { ;sqr brackets
      return 14[12 $+ $1- $+ 14]
    }
    if ($prop == blbr) { ;bold brackets
      return 14(12 $+ $1- $+ 14) 
    }
    if ($prop == blall) { ;all bold
      return 14(12 $+ $1- $+ 14) 
    }
    if ($prop == blin) { ;bold inside
      return 14(12 $+ $1- $+ 14)
    } 
    else return 14(12 $+ $1- $+ 14)
  }
} 

alias -l _ischat {
  var %n = $mid($1, 2)
  if (=* !iswm $1) { return 1 }
  if (=* iswm $1) && (($chat(%n)) || ($fserv(%n))) { return 1 }
  return 0
}

on *:INPUT:*:{
  if ($0) && ((/* !iswm $1) || ($ctrlenter)) && (($active ischan) || ($query($active)) || (=* iswm $active)) && ($window($active, 0) = 1) {
    say $1- | halt
  }
}
on ^*:WALLOPS:*:{
  echo -ti2a 12Wallop 14(12 $+ $trp($nick) 14-12-14-12 $trp($address) $+ 14) $strip($1-, o) | haltdef
}
alias dns {
  if ($isid) { return }
  if (!$0) || (($1 == -h) && ($0 = 1)) || ((. !isin $1) && ($1 != -h) && (!$server)) {
    .timer.blz 1 0 !dns $1- | .timer.blz -e | return
  }
  .!dns $1-
  if (!$show) { return }
  var %h = $1, %f
  if ($istok(-h -c, $1, 32)) { %f = $1 | %h = $2 }
  if (%f != -h) && (. !isin %h) && ($address(%h, 5)) { %h = $gettok($ifmatch, 2, 64) }
  echo -ti2a 12-14-12- $thmbr(DNS) 14Attempting to resolve12 $trp($1) $thmbr($trp(%h)).br 
}
;
on ^*:DNS:{
  if ($dns(0)) {
    var %i = 1, %t = $dns(0)
    while (%i <= %t) {
      echo -ti2a $+(12,-,14,-,,12,-) $thmbr(DNS) 14Resolved $thmbr($trp($dns(%i).addr)).br 14to $thmbr($trp($dns(%i).ip)) | haltdef
      inc %i
    }
  }
  else {
    echo -ti2a 12-14-12- $thmbr(DNS) 14Unable to resolve $thmbr($iif($nick,$trp($nick),$trp($dns(%i)))) | haltdef
  }
}
on ^*:TOPIC:#:{
  if ($chan !ischan) { return }
  echo -ti2 $chan 12-14-12- 12 $+ $trp($nick) 14changes the topic to12: $1- | haltdef
}
alias me {
  if ($isid) { return }
  if (!$server) || (!$0) || (($active !ischan) && (!$query($active))) && (=* !iswm $active) {
    .timer.blz 1 0 !me $1- | .timer.blz -e | halt
  }
  .!describe $active $1-
  if (!$show) { return }
  if ($active ischan) {
    if ($nick($active, $me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
    echo -ai2t 12 $+ %::cmode $+ $me $1- | haltdef
    unset %::cmode
  }
  else {
    echo -ai2t 14»12 $me $1- | haltdef 
  }
}
alias action {
  if ($isid) { return }
  if (!$server) || (!$0) || (($active !ischan) && (!$query($active))) && (=* !iswm $active) {
    .timer.blz 1 0 !action $1- | .timer.blz -e | halt
  }
  me $1-
}
alias describe {
  if ($isid) { return }
  if (!$server) || ($0 < 2) || (!$_ischat($1)) {
    .timer.blz 0 !describe $2- | .timer.blz -e | halt
  }
  .!describe $2-
  if (!$show) { return }
  if ($1 ischan) || ($query($1)) || (=* iswm $1) {
    set -u1 %:echo echo -ti2 $1
    if ($1 ischan) {
      if ($nick($1, $me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
      echo -ti2 $1 12 $+ %::cmode $+ $me $2- 
    }
    else { echo -ti2 $1 12 $+ $me $2- $+  %:comments }
  }
  else { echo -ti2a -> * $+ $1 $+ * $1- }
}
alias ame {
  if ($isid) { return }
  if (!$server) || (!$0) || (!$chan(0)) { .timer.blz 1 0 !ame $1- | .timer.blz -e | halt }
  !.ame $1-
  if (!$show) { return }
  var %i = $chan(0)
  while (%i) {
    if ($nick($chan(%i),$me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
    echo -ti2 $chan(%i) 12 $+ %::cmode $+ $me $1- 
    dec %i
  }
  unset %::cmode
}

;
alias msg {
  if ($isid) { return }
  if ($0 < 2) || ((=* !iswm $1) && ($status == disconnected)) || (!$_ischat($1)) {
    .timer.blz 1 0 !msg $1- | .timer.blz -e | halt
  }
  .!msg $1-
  if (!$show) { return }
  if ($1 ischan) || ($query($1)) || (=* iswm $1) {
    if ($1 ischan) {
      if ($nick($1, $me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
      echo -ti2 $1 12» 14(12 $+ %::cmode $+ 14 $+ $me $+ 14) $2- %:comments | haltdef
    }
    else { echo -ti2 $1 12» 14(14 $+ $me $+ 14) $2- %:comments }
  }
  else {
    echo -ti2a 14--12» 14(12Message 14/ 12 $+ $1 $+ 14) $2- %:comments | haltdef
  }
  unset %::cmode
}


on ^*:INVITE:#:{
  echo -ati2 12-14-12- 12 $+ $trp($nick) 14wants you to join12 $trp($chan) 14u want 2? cos i sure do :-) | haltdef
}
raw 006:*: { 
  if ($halted) { return }
  haltdef
  echo -ta 14--12» $thmbr($numeric).br 12 $+ $trp($2-) 
}
raw 007:*: { 
  if ($halted) { return }
  haltdef
  echo -ta 14—12—14—12—14—12—14—End of /MAP14—12—14—12—14—12—14— 
}
raw 470:*: { 
  echo -ta 14--12» $+(14[12,$numeric,14]) 12 $+ $3 14Is linked so you are being sent to this other chan called12 $trp($qt($17))
  haltdef 
}
raw 305:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14You are no longer away. 
  haltdef 
}
raw 306:*: {
  echo -at 14--12» $+(14[12,$numeric,14]) 14You are now away. 
  haltdef 
}
raw 310:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14dis dude12 $2 14or watev is available to help u. 
  haltdef 
}
raw 474:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause i banned for - fudges - sakes!!! 
  haltdef 
}
raw 471:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause the channel is full
  haltdef 
}
raw 473:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause it is invite only sry 
  haltdef 
}
raw 475:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause i need the correct key!!!!!!! 
  haltdef 
}
raw 477:*: {
  echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause i need to register my current nickname :( 
  haltdef 
}
raw 405:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause i already have $chan(0) channels up! 
  haltdef 
}
raw 403:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14newb12 $2 14doesnt exist so go die 
  haltdef 
}
raw 441:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14wow retard12 $2 14is not on12 $3 
  haltdef 
}
raw 301:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Away: [12 $+ $3- $+ 14] 
  haltdef 
}
raw 311:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Nick:12 $trp($2) 14Address:12 $trp($3) $+ 14@12 $+ $trp($4) 14*12 $6- 
  haltdef 
}
raw 312:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Server:12 $trp($3) 14[12 $+ $4- $+ 14] 
  haltdef 
}
raw 313:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14is dis homosexual quier a big bad irc administrater type person? yer da punk a12 $5- 
  haltdef 
}
raw 317:*: {
  echo -at 14--12» $+(14[12,$numeric,14]) 14Idle:12 $3 seconds idle14 $chr(124) 12 $+ $duration($3) 14(signed on12 $trp($asctime($4)) $+ 14) 
  haltdef 
}
raw 318:*: { 
  echo -at 14—12—14—12—14—12—14—End of /whois list—12—14—12—14—12—14— 
  haltdef 
}
raw 307:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Registered?12 $iif($2-,Yes,No) 
  haltdef 
}
raw 671:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Using a safe and fast and secure connection!?!?!??!?12 $iif($2-,Yer,Nar) 
  haltdef 
}
raw 320:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Random stoof:12 $3- 
  haltdef
}
raw 378:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Connecting From:12 $trp($6) 14Ip:12 $trp($7-) 
  haltdef
}
raw 482:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Sorry, your not an op in12 $2  
  haltdef
}
raw 319:*: {
  if ($halted) { return }
  haltdef
  var %chans = $3-
  echo -at 14--12» $+(14[12,$numeric,14]) 12 $+ $2 14is on: $trp(%chans) $+(14,$chr(124),12) 14Total:12 $numtok($3-,32) 14-12-14- Common:12 $comchan($2,0) 
}
raw 292:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14HelpOperator:12 $2-  
  haltdef
}
raw 001:*: { 
  echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2- 
  haltdef
}
raw 002:*: { 
  echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2-  
  haltdef 
}
raw 003:*: { 
  Echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2-  
  haltdef 
}
raw 004:*: { 
  Echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2- 
  haltdef 
}
raw 005:*: { 
  echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2- 
  haltdef 
}
raw 290:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14sry mate - der noting able to help u about for watev - sry 
  haltdef 
}
raw 340:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Ip:12 $2- 
  haltdef 
}
raw 431:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Nub you gotta give a nickname to whois or i will kill u man i truly will just watch 
  haltdef 
}
raw 294:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Your help request of12 $2- 14has been sent to an IRCoperator of dis big bad gay network dey call12 $network $+ 14. 
  haltdef 
}
raw 481:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14No sry, your not kewl enough to do that on12 $network  
  haltdef 
}
raw 433:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14I am so gol darn sorry but you cannot change your nickname to12 $2 14Because its in use!!!! 
  haltdef 
}
raw 404:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14bahaha kint talk cus of12 $trp($3-)
  haltdef 
}
raw 381:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Guess what, Im now an IRC op!!!!!! wewt wewt 
  haltdef 
}
raw 332:*: { 
  echo -t $2 14Topic: $3-
  haltdef 
}
raw 388:*: { 
  echo -ta 14--12» $+(14[12,$numeric,14]) 14Channel:12 $2 14Protect:12 $3- 
  haltdef 
}
raw 389:*: { 
  echo -ta 14—12—14—12—14—12—14—End of12 $2 14Protected user list14—12—14—12—14—12—14— 
  haltdef 
}
raw 346:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Channel:12 $2 14Invite:12 $3 14By:12 $4 
  haltdef
}
raw 347:*: { 
  echo -at 14—12—14—12—14—12—14—End of12 $2 14Invite list14—12—14—12—14—12—14— 
  haltdef
}
raw 348:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Channel:12 $2 14Except:12 $3 14By:12 $4 
  haltdef 
}
raw 349:*: { 
  echo -at 14—12—14—12—14—12—14—End of12 $2 14Except list14—12—14—12—14—12—14— 
  haltdef
}
raw 367:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Channel:12 $2 14Ban:12 $3 14By:12 $4 
  haltdef
}
raw 368:*: { 
  echo -at 14—12—14—12—14—12—14—End of12 $2 14Bans list14—12—14—12—14—12—14— 
  haltdef
}
raw 375:*: { 
  echo -st 14--12» $+(14[12,$numeric,14]) 12 $+ $trp($3) 14Messege of the day!!! 
  haltdef 
}
raw 372:*: { 
  Echo -st 14Motd: $3- 
  haltdef 
}
raw 376:*: { 
  echo -st 14—12—14—12—14—12—14—End of 12/motd14 command14—12—14—12—14—12—14— 
  haltdef
}
raw 401:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14There is no nick called "12 $+ $2 $+ 14" u stupid peice of poop ill flush u down da toilet holmes 
  haltdef 
}  
raw 408:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Cant use colors on4 $2 14cause their emo and dont like pretty rainbows. 
  haltdef 
}
raw 412:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14What? you think12 $2 14is gonna know what your saying if you dont say anything? i dun think so. 
  haltdef 
}
raw 421:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14lol????? u think ur so smart trying to fool me? well im smart - i know that12 $2 14is not a valid command on this internet relay chat module. 
  haltdef 
}
raw 422:*: { 
  echo -st 14--12» $+(14[12,$numeric,14]) 14Motd file is missing4 $me $+ 14, oh well! 
  haltdef
}
raw 432:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Sorry,12 $trp($2) 14is a bad nickname, cannot be used cos of12 $5- 14gol darnet, gona hav 2 tink uv a beter 1! besides,12 $trp($2) 14was a gay name anyway. 
  haltdef 
}
raw 437:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Dude, your banned on a channel so you cant change your nickname omg that sucks!!!!  
  haltdef 
}
raw 438:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Srry mate, u b spammin wit da nikname chang n u hav 2 wait12 $9 14seconds till u can change bak! 
  haltdef 
}
raw 472:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14hm? I may b not vry smart but i m smart nuf 2 kno that12 $2 14is a character that i just do not understand i am sorry. 
  haltdef 
}
raw 371:*: { 
  echo -at 14Info:12 $2- 
  haltdef 
}
raw 374:*: { 
  echo -at 14—12—14—12—14—12—14—End of da12 /INFO14 list14—12—14—12—14—12—14— 
  haltdef 
}
raw 341:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 12 $+ $2 14Has been invited to:12 $3 $+ 14. 
  haltdef 
}
raw 443:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Dude your a loser open your eyes,12 $2 14is already on12 $3 
  haltdef 
}
raw 353:*: { haltdef } ;names
raw 366:*: { haltdef } ;names
raw 431:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Newb u tink i stoopid er somfin? u cant change ur nick 2 nothing stupid head 
  haltdef 
}
raw 331:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14this chan is not civilized enough to have a topic, Sorry $me $+ . 
  haltdef 
}
raw 352:*: {
  if ($halted) { return }
  haltdef
  echo -at 14--12» $+(14[12,$numeric,14]) 12/WHO $trp($6) $+ 14: Active:12 $trp($2) 14Prefixed:12 $trp($3) 14Host:12 $trp($4) 14Server:12 $trp($5) 14Current nick:12 $trp($6) 14Flags:12 $7 14Hops:12 $8 14Real name:12 $9 14Gay:12 Yes 
} 

raw 315:*: { 
  echo -at 14—12—14—12—14—12—14—End of da12 /Who 14list14—12—14—12—14—12—14— 
  haltdef 
} 
raw 310:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) $1- 
  haltdef 
}
raw 324:*: { 
  echo -t $2 14--12» $+(14[12,$numeric,14]) 14Modes12 $2 $+ 14:12 $trp($3-) 
  haltdef 
} ;
raw 329:*: {
  echo -t $2 14--12» $+(14[12,$numeric,14]) 14Created on:12 $trp($asctime($3-)) 
  haltdef 
}
raw 386:*: { 
  echo -at 14--12» $+(14[12,$numeric,14]) 14Channel owners for12 $2 $+ 14:12 $3- 
  haltdef 
}
raw 387:*: { 
  if ($halted) { return }
  haltdef
  echo -at 14—12—14—12—14—12—14—14End of Channel owner list14—12—14—12—14—12—14— 
}
raw 335:*: { 
  if ($halted) { return }
  haltdef
  echo -at 14--12» $+(14[12,$numeric,14]) 14R12 $2 14a bot????12 YA!!!!! :)
}
raw 536:*: {   
  if ($halted) { return }
  haltdef
  echo -at 14--12» $+(14[12,$numeric,14]) 14da fgt is filtering messages
}
raw 460:*: { 
  if ($halted) { return }
  haltdef
  echo -at 14--12» $+(14[12,$numeric,14]) 14sry mate,12 $2 14cannot set mode12 $3-
}
raw 972:*: { 
  if ($halted) { return }
  haltdef
  echo -at 14--12» $+(14[12,$numeric,14]) 14sry mate,12 $3 14r12 $5- $+ 14!!!!!!  
}
raw 333:*: { 
  if ($halted) { return }
  haltdef
  echo -t $2 14--12» $+(14[12,$numeric,14]) 14Topic for12 $2 14Set by:12 $trp($3) 14on12 $trp($asctime($4-)) 
}
on ^*:JOIN:#:{
  if ($chan !ischan) { return }
  if ($nick == $me) { echo -ti2 $chan 12-14-12- 14Joined: 12 $+ $trp($chan)  | haltdef }
  else { echo $color(join) -ti2 $chan 14--12»12 $trp($nick) $thmbr($trp($address)) 14has joined $thmbr($trp($chan)) | haltdef }
}
on ^*:PART:#:{
  if ($chan !ischan) { return }
  if ($nick == $me) { haltdef }
  else { echo -ti2 $chan 14--12»12 $trp($nick) $thmbr($trp($address)) 14has parted $thmbr($trp($chan)) $iif($1-,$thmbr($1-).br) | haltdef }
}

alias notice {
  if ($isid) { return }
  if (!$server) || ($0 < 2) { .timer.blz 1 0 !notice $1- | .timer.blz -e | halt }
  .!notice $1-
  if (!$show) { return }
  if ($1 ischan) { echo -ti2 $+ $_active 14--12» 14(12CNotice $+ 14/12 $+ $trp($1) $+ 14) $2- $+  %:comments }
  else { echo -ti2a 14--12» 14(12Notice $+ 14/12 $+ $trp($1) $+ 14) $2- $+  %:comments }
}

alias say {
  if ($isid) { return }
  if ($status == disconnected) || (!$0) || (($active !ischan) && (!$query($active))) && (=* !iswm $active) {
    .timer.blz 1 0 !say $1- | .timer.blz -e | halt
  }
  .!msg $active $1-
  if ($active ischan) {
    if ($nick($active, $me).pnick != $me) { var %::cmode $left($ifmatch, 1) }
    echo -mlbfti2a 12» 14(12 $+ %::cmode $+ 14 $+ $me $+ ) $1- 
  }
  else {
    echo $color(own) -ati2 12» 1414( $+ $me $+ ) $1- 
  }
}

on ^*:ACTION:*:#:{
  if ($chan !ischan) { return }
  if ($nick($chan, $nick).pnick != $nick) { var %::cmode $left($ifmatch, 1) } 
  echo -mlbfti2 $chan 12 $+ %::cmode $+ 12 $+ $nick $1- | haltdef
}
alias ctcp {
  if ($isid) { return }
  if ($0 < 2) || (!$server) || ($2 == DCC) { .timer.kte 1 0 !ctcp $1- | .timer.kte -e | return }
  .!ctcp $1-
  if (!$show) { return }
  if ($1 ischan) { echo -ati2 14--12» 14(12CTCP-Chan14/12 $+ $1 $+ 14) 12 $+ $upper($2) }
  else { echo -ati2 14--12» 14(12CTCP14/12 $+ $1 $+ 14) 12 $+ $upper($2) }
}

on ^*:CTCPREPLY:*:{
  if ($1 == PING) {
    echo -ati2 14-12-14- [12CTCPREPLY14] 14(12 $+ $nick 14--12 $trp($address) 14--12 $upper($1) $+ 14)12 $duration($calc($ctime - $2)) | haltdef
  }
  else {
    echo -ati2 14-12-14- [12CTCPREPLY14] 14(12 $+ $nick 14--12 $trp($address) 14--12 $upper($1) $+ 14)12 $2- | haltdef
  }
}
alias ctcpreply {
  if ($isid) { return }
  if ($0 < 2) || (!$server) { .timer.kte 1 0 !ctcpreply $1- | .timer.kte -e | return }
  .!ctcpreply $1-
  if (!$show) { return }
  echo -sti2 14--12» 14(12CTCP-Reply14/12 $+ $1 $+ 14) 12 $+ $upper($2) $3- | haltdef
}
ctcp ^*:*:#: {
  echo -mti2 $chan 14[12CTCP14] [12 $+ $trp($chan) $+ 14] 14(12 $+ $trp($nick) 14-- 12 $+ $trp($address) $+ 14) $strip($1, o) | haltdef
}

ctcp ^*:*:?: {
  echo -mti2a 14[12CTCP14] 14(12 $+ $nick 14-- 12 $+ $trp($address) $+ 14) $strip($1, o) | haltdef
}
on ^*:NOTICE:*:?:{
  if ($nick == NickServ) { echo $color(notice) -amti2 14[12NickServ14]14 $1- | haltdef }
  if ($nick == ChanServ) { echo $color(notice) -amti2 14[12ChanServ14]14 $1- | haltdef }
  if ($nick == HostServ) { echo $color(notice) -amti2 14[12HostServ14]14 $1- | haltdef }
  if ($nick == OperServ) { echo $color(notice) -amti2 14[12OperServ14]14 $1- | haltdef }
  if ($nick == BotServ) { echo $color(notice) -amti2 14[12BotServ14]14 $1- | haltdef }
  if ($nick == MemoServ) { echo $color(notice) -amti2 14[12MemoServ14]14 $1- | haltdef }
  if ($nick == Brandon_V33) { echo $color(notice) -amti2 14[12Brandon14_12V3314]14 $1- | haltdef }
  else {
    if ($nick != NickServ && $nick != ChanServ && $nick != HostServ && $nick != OperServ && $nick != Botserv && $nick != Brandon_V33 && $nick != MemoServ) {
      echo -amti2 14[12Notice14] 14(12 $+ $trp($nick) 14-12-14-12 $trp($address) $+ 14) $1-  | haltdef
    }
  }
}

on ^*:TEXT:*:?:{
  if ($query($nick)) {
    echo -mti2 $nick 12« 14( $+ $nick $+ 14) $strip($1-, o) $+  %:comments | haltdef
  }
  else {
    !.query $nick
    echo -mti2 $nick 12« 14(14 $+ $nick $+ 14) $strip($1-, o) $+  %:comments | haltdef
  }
}
on ^*:ACTION:*:?:{
  if ($query($nick)) { echo -mti2 $nick 14«12 $nick $strip($1-, o) | haltdef }
  else {
    !.query $nick
    echo -ti2 $nick 14«12 $nick $strip($1-, o) | haltdef
  }
}
;
on ^*:NOTICE:*:#:{
  if ($chan !ischan) { return }
  echo -mti2 $chan 14(14-14@12 $+ $trp($nick) $+ 14:12 $+ $trp($chan) $+ 14@14-14) $strip($1-, o) %:comments | haltdef
}
on ^*:USERMODE:{
  echo -sti2 12-14-12-12 $me 14sets usermode12 $thmbr($trp($1-)) %:comments | haltdef
}
on ^*:QUIT:{
  if (*.*.*.* iswm $1) && (*.*.*.* iswm $2) && ($numtok($1-,32) == 2) && ($1 != Quit:) {
    if (%nsplitprt) { halt }
    haltdef
    echo -ta 12[N14etsplit12] 14Netsplit between12 $thmbr($trp($1)) 14and12 $thmbr($trp($2)) $+ 14... am going to attempt to activate some stuff so u dun get spammed babe :)
    inc -u60 %nsplitprt
    ; y would u amsg dont u think ppl would notice that theres a netsplit...? so der not gonna b an amsg :))))
  }
  else {
    var %i = $comchan($nick, 0)
    while (%i) {
      echo -ti2 $comchan($nick, %i) $+(,12,12«,14--12) $trp($nick) $thmbr($trp($address)) 14has left IRC12 $iif($remove($1-,$+(Quit:,$chr(32))),$thmbr($v1),$thmbr(Masterbatin yo homie g dawgs)) | haltdef
      dec %i
    }
    if ($query($nick)) { echo -ti2 $nick 12«14--12 $trp($nick) $+(,14,$chr(40),,12,$trp($address),,14,$chr(41),) 14has left IRC12 $iif($1-,$thmbr($1-)) }
    haltdef
  }
}
on ^*:RAWMODE:#:{
  if ($chan !ischan) { return }
  echo -ti2 $chan 12-14-12- $+(,12,$trp($nick),) 14sets mode 14(12 $+ $trp($gettok($1-,1,32)) $+($trp($gettok($1-,2-,32)),14,$chr(41)) | haltdef
}


;

on ^*:KICK:#:{
  if ($chan !ischan) { return }
  if ($knick == $me) {
    echo -sti2 12«14-12-14- You were kicked from 12 $+ $trp($chan) 14by12 $trp($nick) $thmbr($1-)
    haltdef
  }
  else { echo -ti2 $chan 12«14-12-14-12 $trp($knick) 14was kicked from $thmbr($trp($chan)) 14by 12 $+ $trp($nick) $thmbr($1-) }
  haltdef
}
on ^*:NICK:{
  var %i = $comchan($newnick,0)
  if ($nick == $me) { echo -sti2 14-12-14- Your nick is now12 $newnick }
  while (%i) {
    if ($nick == $me) || ($nick != $me) { echo -ti2 $comchan($newnick,%i) 14-12-14-12 $trp($nick) 14changes nick to12 $trp($newnick) }
    dec %i
  }
  if ($query($newnick)) { echo -ti2 $newnick 14-12-14-12 $trp($nick) 14changes nick to12 $trp($newnick) }
  haltdef
}

on ^*:ERROR:*:{
  echo $color(other) -sti2 12-14-12- 14(12Error14) 14-12 $trp($2-) | haltdef
}

on ^*:SNOTICE:*:{
  echo $color(notice) -sti2 14Server $thmbr($trp($server)) 14 $+ $1- | haltdef
}
on ^*:TEXT:*:#:{
  if ($chan !ischan) { return }
  if ($nick($chan, $nick).pnick != $nick) { var %cmode $left($ifmatch, 1) } 
  echo -mlbfti2 $chan 12» 14(12 $+ %cmode $+ 14 $+ $nick $+ 14) $1- | haltdef
}