PasteSite.Com

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181

alias arrow { return $+($chr(151),$chr(155)) } 
alias -l tc1 { return $+($chr(3),14,$1-) } 
alias -l tc2 { return $+($chr(3),04,$1-) } 
alias mstheme.start { 
  .font -dz 10 Verdana 
  .color background 0 
  .color listbox text 14 
  .color listbox 0 
  .color treebar 0 
  .color treebar text 14 
  .color whois text 14 
  .color editbox 0 
  .color editbox text 14 
  echo -ae $tc1(You're using) $tc2(MSTheme) $tc1(version) $tc2(2) $+ $tc1(.) 
} 
alias -l style { return $+($tc2,[,$tc2,$iif($left($nick($chan,$nick).pnick,1) isin @%+,$v1),$tc1,$nick,$tc2,]) } 
on *:START: { 
  mstheme.start 
} 
on *:LOAD: { 
  mstheme.start 
} 
on ^*:TEXT:*:*:{ 
  haltdef 
  echo -t $iif(#,#,$nick) $style $tc1($1-) 
} 
on ^*:ACTION:*:*:{ 
  haltdef 
  echo -t $iif(#,#,$nick) $tc2($arrow) $tc2($+($chr(40),$nick,$chr(41))) $tc1($1-) 
} 
on ^*:NOTICE:*:*:{ 
  haltdef 
  echo -ast $iif(#,#) $tc2($arrow) $tc2($iif(#,$+(#,/,$nick - $1-),$+(-,$nick,-) $1-)) 
} 
on ^*:SNOTICE:*:{ 
  haltdef 
  echo -st $tc2($arrow) $tc2($+(-,$nick,-) $1-) 
} 
on ^*:INVITE:*:{ 
  haltdef 
  echo -astm $tc2($arrow) $tc2(INVITE) $tc1(-) $tc2($nick) $tc1(has invited you to) $tc2($chan) 
} 
on ^*:RAWMODE:*:{ 
  haltdef 
  echo -t # $tc2($arrow) $tc2($nick) $tc1(has set $iif($len($1) > 2,modes:,mode:)) $tc2($1-) 
} 
on ^*:KICK:*:{ 
  haltdef 
  echo $iif($knick == $me,-ast #,-t #) $tc2($arrow) $tc2($nick) $tc1(has kicked) $tc2($knick) $tc1(from) $tc2($chan) $+($tc1,[,$tc2,$1-,$tc1,]) 
} 
on ^*:PART:*:{ 
  haltdef 
  echo -t # $tc2($arrow) $tc2($nick) $tc1([) $+ $tc2($address) $+ $tc1(] has parted) $tc2(#) $iif($1,$+($tc1,[,$tc2,$1-,$tc1,])) 
} 
on ^*:JOIN:*:{ 
  haltdef 
  echo -t # $tc2($arrow) $tc2($nick) $tc1([) $+ $tc2($address) $+ $tc1(] has joined) $tc2(#) 
} 
on *:INPUT:*:{ 
  if ($left($1,1) == /) return 
  else { 
    haltdef 
    .msg $active $1- 
    echo -t $active $style $tc1($1-) 
  } 
} 
on ^*:BAN:*:{ 
  haltdef 
  var %z $nick(#,0) 
  while (%z) { 
    if ($banmask iswm $address($nick(#,%z),5)) { 
      var %b& = %b& $nick(#,%z) 
    } 
    dec %z 
  } 
  echo -t # $tc2($arrow) $tc2($nick) $+ $tc1('s ban effects:) $tc2(%b&) 
} 
Raw 332:*:{ 
  haltdef 
  echo -tm $2 $tc1(Topic is) $+(',$tc2($3-),$tc1(')) 
} 
raw 311:*:{ 
  haltdef 
  echo -at $tc1([Whois/) $+ $tc2($2) $+ $tc1(]) 
  echo -at $tc1(Nickname:) $tc2($2) $tc1(Username:) $tc2($3) $tc1(Address:) $tc2($4) $tc1(Realname:) $tc2($6-) 
} 
Raw 319:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(is on) $replace($tc2($3-),~,$+($chr(3),04,~,$chr(3)),&,$+($chr(3),04,&,$chr(3)),@,$+($chr(3),04,@,$chr(3)),%,$+($chr(3),03,%,$chr(3)),+,$+($chr(3),02,+,$chr(3)))) 
} 
raw 473:*:{ 
  haltdef 
  echo -as $tc1(ERROR - JOIN:) $tc2($2) $tc1(is invite only. You must either be invited $+ $chr(44) or have mode +I set on you in the channel to join.) 
} 
raw 474:*:{ 
  haltdef 
  echo -as $tc1(ERROR - JOIN:) $tc2(BANNED) $tc1(from the channel) $tc2($2) $+ $tc1($chr(44) what did you do?!) 
} 
raw 475:*:{ 
  haltdef 
  echo -as $tc1(ERROR - JOIN:) $tc2($2) $tc1(needs a key to allow you to join.) 
} 
raw 477:*:{ 
  haltdef 
  echo -as $tc1(ERROR - JOIN:) $tc2($2) $tc1(is currently allowing registered users only to join. Please) $tc2(identify) $tc1(to your nickname before trying to join.) 
} 
raw 520:*:{ 
  haltdef 
  echo -as $tc1(ERROR - JOIN:) $tc2($4) $tc1(is currently allowing only IRC operators and above to join. Please) $tc2(oper up) $tc1(before trying to join again) 
} 
Raw 333:*:{ 
  haltdef 
  echo -tm $2 $Tc1(Set by) $Tc2($3) $Tc1(on) $Tc2($asctime($4-)) 
} 
raw 312:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(is using server:) $tc2($3) $tc1(Server info:) $tc2($4-) 
} 
raw 307:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(has identified for this nickname.) 
} 
raw 317:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(has been idle for) $tc2($duration($3)) $tc1(- Signed on) $tc2($asctime($4)) 
} 
raw 318:*:{ 
  haltdef 
  echo -at $tc1([End Whois/) $+ $tc2($2) $+ $tc1(]) 
} 
raw 536:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(is filtering messages (UMODE +f)) 
} 
raw 378:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(is connecting from) $tc2($6) $tc1(Server IP address:) $tc2($7) 
} 
raw 671:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(is using an SSL connection.) 
} 
raw 313:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(is a(n)) $tc2($5-) 
} 
raw 320:*:{ 
  haltdef 
  echo -at $tc1(SWHOIS:) $tc2($2) $tc1($3-) 
} 
raw 301:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(is away -) $tc2($3-) 
} 
raw 310:*:{ 
  haltdef 
  echo -at $tc2($2) $tc1(is a network Help Operator (UMODE +h)) 
} 
on ^*:TOPIC:*:{ 
  haltdef 
  echo -t # $tc2($arrow) $tc2($iif($nick == $me,You,$nick)) $tc1($iif($nick == $me,have,has) changed the topic to) $tc2(' $+ $1- $+ ') 
} 
on ^*:NICK:{ 
  haltdef 
  var %z 1 
  while ($comchan($newnick,%z)) { 
    echo -t $comchan($newnick,%z) $tc2($arrow) $tc2($nick) $tc1(is now known as) $tc2($newnick) 
    inc %z 
  } 
  if ($nick == $me) { .cnick -r $me | .cnick $newnick 4 | .cnick on } 
} 

on ^*:QUIT:{ 
  haltdef 
  var %z 1 
  while ($comchan($nick,%z)) { 
    echo -t $comchan($nick,%z) $tc2($arrow) $tc2($nick) $+($tc1,[,$tc2,$address,$tc1,]) $tc1(has quit IRC.) $iif($1,$+($tc1,[,$tc2,$1-,$tc1,])) 
    inc %z 
  } 
}