My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 12th, 2010 | Syntax: mIRC | Size: 3.88 KB | Hits: 43 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. on *:start:{ startup }
  2. alias startup {
  3.   .color background 1 | .color action 6 | .color ctcp 14 | .color info 14
  4.   .color info2 14 | .color highlight 4 | .color invite 11 | .color join 3
  5.   .color own 14 | .color part 3 | .color quit 2 | .color topic 1
  6.   .color wallops 5 | .color whois 5 | .color notice 5 | .color normal 14
  7.   .color kick 3 | .color mode 7 | .color nick 3 | .color other 15 | .color editbox text 15
  8.   .timestamp -f 15[14hh4:14nn15] | .timestamp on | .color inactive 14 | .color treebar 1
  9.   .color editbox 1 | .color listbox 1 | .color gray text 14 | .color listbox text 14
  10.   .color title text 14 | .color treebar text 14 | .color topic text 14 | .font -d Arial Unicode MS
  11. }
  12. on ^*:TEXT:*:#:{
  13.   echo -t # $iif($left($nick(#,$nick).pnick,1) = @,$+(4»14,$chr(40),4@14,$chr(41),$nick,4-»),$iif($left($nick(#,$nick).pnick,1) = %,$+(7»14,$chr(40),7,%,14,$chr(41),$nick,7-»),$iif($left($nick(#,$nick).pnick,1) = +,$+(12»14,$chr(40),12+14,$chr(41),$nick,12-»),$iif($nick isreg #,$+(15»14,$nick,15-»),$iif($left($nick(#,$nick).pnick,1) = &,$+(07»14,$chr(40),07&14,$chr(41),$nick,07-»)))))) $iif($me isin $1-,$replace($1-,$v1,$+(4,$v1,)),$1-)
  14.   haltdef
  15. }
  16. on *:INPUT:#:{
  17.   if (/* !iswm $1) {
  18.     haltdef
  19.     .msg # $caps($1-)
  20.     echo -at $iif($left($nick(#,$me).pnick,1) = @,$+(4»14,$chr(40),4@14,$chr(41),$nick,4-»),$iif($left($nick(#,$me).pnick,1) = %,$+(7»14,$chr(40),7,%,14,$chr(41),$nick,7-»),$iif($left($nick(#,$me).pnick,1) = +,$+(12»14,$chr(40),12+14,$chr(41),$nick,12-»),$iif($nick isreg #,$+(15»14,$nick,15-»),$iif($left($nick(#,$me).pnick,1) = &,$+(07»14,$chr(40),07&14,$chr(41),$nick,07-»)))))) $caps($1-)
  21.   }
  22. }
  23. on ^*:RAWMODE:#:{
  24.   echo -t # 7»15M7«(15Mode7):15 $nick 7sets $+($chr(91),15,$1-,7,$chr(93))
  25.   haltdef
  26. }
  27. on ^*:NICK:{
  28.   haltdef  
  29.   var %x = 1
  30.   while (%x <= $comchan($newnick,0)) {
  31.     echo -t $comchan($newnick,%x) 3»15N3«(15Nick3):15 $nick 3»»»»15 $newnick
  32.     inc %x
  33.   }
  34. }
  35. on !*:JOIN:#:{  
  36.   echo -t # 3»15J3«(15Join3):15 $nick 3(14 $+($replace($address,.,15.14,@,15@14,~,15~14),3,$chr(41),15) #
  37.   haltdef
  38. }
  39.  
  40. on !*:PART:#:{
  41.   echo -t # 3»15P3«(15Part3):15 $nick 3(14 $+($replace($address,.,15.14,@,15@14,~,15~14),3,$chr(41),15,$chr(32),#,) $iif($1,$+(3¤,$chr(40),15,$1-,3,$chr(41),¤))
  42.   haltdef
  43. }
  44.  
  45. on ^*:QUIT:{
  46.   haltdef
  47.   var %x = 1
  48.   while (%x <= $comchan($nick,0)) { echo -t $comchan($nick,%x) 2»15Q2«(15Quit2):15 $nick 2(14 $replace($address,.,15.14,@,15@14,~,15~14) $+ 2 ) $iif($1- != $null,2¤ $+ $chr(40) $+ 15 $+ $1- $+ 2 $+ $chr(41) $+ ¤,.)
  49.     inc %x
  50.   }
  51. }
  52. on *:KICK:#:{
  53.   if ($knick != $me) {
  54.     echo -t # 3»15K3«(15Kick3):15 $knick 3was kicked by15 $nick $iif($1- != $null,3¤ $+ $chr(40) $+ 15 $+ $1- $+ 3 $+ $chr(41) $+ ¤,.)
  55.   }
  56. }
  57. on !*:BAN:#:{
  58.   if ($banmask iswm $address($me,5)) {
  59.     flash -r [Alert]
  60.     beep 2
  61.     echo -ta 4»15!4«(15Warning4):15 $nick 4has banned you in15 # 4[15 $banmask 4]
  62.   }
  63. }
  64. on *:TEXT:*:?:{ echo -m $nick $timestamp 15»14 $+ $nick 15-» $1- | haltdef }
  65. on *:OPEN:?:*:{ beep 7 }
  66. on *:INVITE:#:{ beep 4 | echo -ta 11»15i11«(15Invite11):15 $nick 11(15 $address 11) Invites you to join15 $chan }
  67. raw 332:*:{ echo -t $2 15»Topic15: $3- | haltdef }
  68. raw 333:*:{
  69.   echo -t $2 15»Topic15: Set by 15»14 $+ $iif(! isin $3,$gettok($3,1,33),$3) $+ 15« at 15»14 $+ $asctime($4) $+ 15«
  70.   .timer. [ $+ [ $chan ] ] 1 0 gett $2
  71.   haltdef
  72. }
  73. alias gett {
  74.   echo -t $1 15»Channel15» $nick($1,0) 14Users 15» $nick($1,0,o) 14ops 15» $nick($1,0,h) 14halfops 15» $nick($1,0,v) 14voices 15» $nick($1,0,r) 14regulars
  75.   echo -t $1 15 $+ $str(~,56)
  76. }
  77. alias caps return $+($upper($left($1-,1)),$right($1-,-1))
create new paste | create new version of this paste RAW Paste Data