rendered paste body;THEME 1
alias theme.strip { return yes }
alias theme.time { return 4,1[14 $+ $time(HH04:14nn04:14ss) $+ 4] }
alias theme.nick {
set %theme.nick $1
set %theme.nick.len $len($1)
set %theme.nick.chan $2
if (%theme.nick.len < 12) {
set %theme.nick.ext $calc(12 - %theme.nick.len)
set %theme.nick.tmp 01,01 $+ $str(.,%theme.nick.ext)
}
else { set %theme.nick $left(%theme.nick,12) }
if ($replace($nick($2,$1).pnick,$1,) == $null) { set %theme.nick.pn 01,01. }
else { set %theme.nick.pn 00 $+ $left($replace($nick($2,$1).pnick,$1,),1) }
set %temp 4< $+ %theme.nick.pn $+ %theme.nick.tmp $+ 14 $+ %theme.nick $+ 4>15
unset %theme.nick*
return %temp
halt
}
alias theme.me {
set %theme.me $me
set %theme.me.len $len($me)
set %theme.me.chan $1
if (%theme.me.len < 12) {
set %theme.me.ext $calc(12 - %theme.me.len)
set %theme.me.tmp 01,01 $+ $str(.,%theme.me.ext)
}
else { set %theme.me $left(%theme.me,12) }
if ($replace($nick($1,$me).pnick,$me,) == $null) { set %theme.me.pn 01,01. }
else { set %theme.me.pn 00 $+ $left($replace($nick($1,$me).pnick,$me,),1) }
set %temp 4< $+ %theme.me.pn $+ %theme.me.tmp $+ 4 $+ %theme.me $+ 4>0
unset %theme.me*
return %temp
halt
}
alias theme.action {
set %theme.action $1
set %theme.action.len $len($1)
set %theme.action.chan $2
if (%theme.action.len < 12) {
set %theme.action.ext $calc(12 - %theme.action.len)
set %theme.action.tmp 01,01 $+ $str(.,%theme.action.ext)
}
else { set %theme.action $left(%theme.action,12) }
if ($replace($nick($2,$1).pnick,$1,) == $null) { set %theme.action.pn 01,01. }
else { set %theme.action.pn 00 $+ $left($replace($nick($2,$1).pnick,$1,),1) }
set %temp 0* %theme.action.pn $+ %theme.action.tmp $+ 14 $+ %theme.action $+ 15
unset %theme.action*
return %temp
halt
}
alias theme.act {
set %theme.act $me
set %theme.act.len $len($me)
set %theme.act.chan $1
if (%theme.act.len < 12) {
set %theme.act.ext $calc(12 - %theme.act.len)
set %theme.act.tmp 01,01 $+ $str(.,%theme.act.ext)
}
else { set %theme.act $left(%theme.act,12) }
if ($replace($nick($1,$me).pnick,$me,) == $null) { set %theme.act.pn 01,01. }
else { set %theme.act.pn 00 $+ $left($replace($nick($1,$me).pnick,$me,),1) }
set %temp 0* %theme.act.pn $+ %theme.act.tmp $+ 4 $+ %theme.act $+ 0
unset %theme.act*
return %temp
halt
}
alias theme.highlight {
set %theme.high.text $4
if ($theme.strip == yes) { set %theme.high.text $strip($4) }
return 1,1............... 7*** HIGHLIGHT *** 4"00 $+ $1 $+ 4" 15calls your nickname on 4"0 $+ $2 $+ \ $+ $3 $+ 4" 15and says 4"00,01 $+ %theme.high.text $+ 4"
}
alias theme.hinick {
set %theme.nick $1
set %theme.nick.len $len($1)
set %theme.nick.chan $2
if (%theme.nick.len < 12) {
set %theme.nick.ext $calc(12 - %theme.nick.len)
set %theme.nick.tmp 01,01 $+ $str(.,%theme.nick.ext)
}
else { set %theme.nick $left(%theme.nick,12) }
if ($replace($nick($2,$1).pnick,$1,) == $null) { set %theme.nick.pn 01,01. }
else { set %theme.nick.pn 00 $+ $left($replace($nick($2,$1).pnick,$1,),1) }
set %temp 7< $+ %theme.nick.pn $+ %theme.nick.tmp $+ 14 $+ %theme.nick $+ 7>15
unset %theme.nick*
return %temp
halt
}
alias theme.imp { return 4,1"00,01 $+ $1 $+ 04,01" }
on ^*:text:*:#:{
haltdef
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
if ($me isin $strip($1-)) {
echo $chan $theme.time $theme.hinick($nick,$chan) %temp.txt
if ($active != $chan) { echo -a $theme.time $theme.highlight($nick,$server,$chan,$1-) | flash }
}
else { echo $chan $theme.time $theme.nick($nick,$chan) %temp.txt }
halt
}
on ^*:text:*:?:{
haltdef
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo -e $nick $theme.time $theme.nick($nick,$chan) %temp.txt
flash
halt
}
on *:input:?:{
if ($left($1,1) == /) { goto end }
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo -a $theme.time $theme.me($active) %temp.txt
.privmsg $active $1-
halt
:end
}
on *:input:#:{
if ($left($1,1) == /) { goto end }
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo -a $theme.time $theme.me($active) %temp.txt
.privmsg $active $1-
halt
:end
}
on *:input:*:{
if ($left($1,1) == /) { goto end }
if ($active == Status Window) {
echo -s $theme.time 4,1[0RAW4]0:15 $1-
$1-
halt
}
:end
}
alias say {
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo -a $theme.time $theme.me($active) %temp.txt
.privmsg $active $1-
halt
}
alias msg {
set %temp.txt $2-
if ($theme.strip == yes) { set %temp.txt $strip($2-) }
echo $1 $theme.time $theme.me($1) %temp.txt
.privmsg $1 $2-
}
alias me {
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo -a $theme.time $theme.act($active) %temp.txt
.describe $active $1-
}
alias ame {
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
.ame $1-
aecho $theme.time $theme.act($active) %temp.txt
}
alias amsg {
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
.amsg $1-
aecho $theme.time $theme.me($active) %temp.txt
}
alias aecho {
set %ae.temp 0
set %ae.msg $1-
:m00
inc %ae.temp 1
if ($chan(%ae.temp) == $null) { unset %ae.* | halt }
echo $chan(%ae.temp) %ae.msg
goto m00
}
on ^*:action:*:#:{
haltdef
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo $chan $theme.time $theme.action($nick,$chan) %temp.txt
if ($me isin $strip($1-)) && ($active != $chan) { echo -a $theme.time $theme.highlight($nick,$server,$chan,$1-) | flash }
halt
}
on ^*:action:*:?:{
haltdef
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo $nick $theme.time $theme.action($nick,$chan) %temp.txt
flash
halt
}
on ^*:join:#:{
haltdef
if ($nick == $me) {
echo $chan $theme.time 15Joined 4"00 $+ $chan $+ 4"
if (%th.sjoin) { splay sounds/join.wav }
}
if ($nick != $me) {
set %temp.nick $gettok($fulladdress,1,33)
set %temp.addr $gettok($fulladdress,2,33)
echo $chan $theme.time 1,1............... 14>3>9> 0 $+ %temp.nick $+ 4! $+ 14 $+ %temp.addr
}
if ($ialchan($wildsite,$chan,0) > 1) {
var %i = 2
var %clonez = $ialchan($wildsite,$chan,1).nick
var %clonez2 = $ialchan($wildsite,$chan,%i).nick
while (%i <= $ialchan($wildsite,$chan,0)) {
echo $chan $theme.time 1,1............... 4 *** 15Clones from 4"00 $+ $ialchan($wildsite,$chan,1).nick $+ 4" 15and 4"0 $+ $ialchan($wildsite,$chan,%i).nick $+ 4" [0 $+ $wildsite $+ 4]
inc %i
}
}
halt
}
on ^*:part:#:{
haltdef
if ($nick != $me) {
set %temp.nick $gettok($fulladdress,1,33)
set %temp.addr $gettok($fulladdress,2,33)
echo $chan $theme.time 1,1............... 4<5<14< 0 $+ %temp.nick $+ 4! $+ 14 $+ %temp.addr
}
if ($nick == $me) && (%th.spart) { splay sounds/part.wav }
halt
}
on ^*:quit:{
var %q.temp = 1
set %temp.nick $gettok($fulladdress,1,33)
set %temp.addr $gettok($fulladdress,2,33)
while (%q.temp <= $comchan($nick,0)) {
%q.chan = $comchan($nick,%q.temp)
echo $comchan($nick,%q.temp) $theme.time 1,1............... 0<15<14< 0 $+ %temp.nick $+ 4! $+ 14 $+ %temp.addr 4[15,01 $+ $1- $+ 4]
inc %q.temp
}
unset %q.*
haltdef
}
on ^*:nick:{
var %n.temp = 1
while (%n.temp <= $comchan($newnick,0)) {
%n.chan = $comchan($nick,%n.temp)
echo $comchan($newnick,%n.temp) $theme.time 1,1............... 14>2>12> 4"00 $+ $nick $+ 4" 15is now known as 4"00 $+ $newnick $+ 4"
inc %n.temp
}
unset %n.*
haltdef
}
on ^*:snotice:*:{
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo -s $theme.time 4[0,01 $+ $nick $+ 4]15 $1-
halt
}
raw 353:*:{ echo $3 $theme.time 15Users 4"00 $+ $4- $+ 4" | halt }
raw 366:*:{ halt }
raw 324:*:{ echo $2 $theme.time 15Modes: 4"00 $+ $3- $+ 4" | halt }
raw 329:*:{ halt }
raw 332:*:{ echo $2 $theme.time 15Topic 4"00 $+ $3- $+ 4" | halt }
raw 333:*:{ echo $2 $theme.time 15Topic Created by 4"00 $+ $3 $+ 4" 15on 4"00 $+ $asctime($4) $+ 4" | halt }
alias whois {
echo -a $theme.time 4 $+ ,- 15Whois on 4"00 $+ $1 $+ 4"
whois $1
}
alias whowas {
echo -a $theme.time 4 $+ ,- 15Whowas on 4"00 $+ $1 $+ 4"
whowas $1
}
raw 309:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 310:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 311:*:{ echo -a $theme.time 4 $+ |- 15Host 4"00 $+ $3 $+ @ $+ $4 $+ 4" 15Realname 4"00 $+ $6- $+ 4" | halt }
raw 312:*:{ echo -a $theme.time 4 $+ |- 15Server 4"00 $+ $3 $+ 4" [00,01 $+ $4- $+ 4] | halt }
raw 313:*:{ echo -a $theme.time 4 $+ |- 15Status 4"00 $+ $3- $+ 4" | halt }
raw 314:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 325:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 317:*:{ echo -a $theme.time 4 $+ |- 15Idle 4"00 $+ $duration($3) $+ 4" 15Logon 4"00 $+ $asctime($4) $+ 4" | halt }
raw 318:*:{ echo -a $theme.time 4 $+ `- 15End of whois on 4"00 $+ $2 $+ 4" | halt }
raw 369:*:{ echo -a $theme.time 4 $+ `- 15End of whois on 4"00 $+ $2 $+ 4" | halt }
raw 319:*:{ echo -a $theme.time 4 $+ |- 15Channels 4"00 $3- 4" | halt }
raw 307:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 378:*:{ echo -a $theme.time 4 $+ |- 15Connection 4"00 $+ $6- $+ 4" | halt }
raw 335:*:{ echo -a $theme.time 4 $+ |- 15This user $3- | halt }
raw 379:*:{ echo -a $theme.time 4 $+ |- 15Modes 4"00 $+ $6- $+ 4" | halt }
raw 320:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 671:*:{ echo -a $theme.time 4 $+ |- 15Using a 4"00 $+ $6- $+ 4" | halt }
raw 401:*:{ echo -a $theme.time 4 $+ |- 15There is no user online called 4"00 $+ $2 $+ 4" | halt }
raw 440:*:{ echo -a $theme.time 1,1............... 7*** WARNING *** 4"00 $+ $3- $+ 4" | halt }
raw 386:*:{ echo -a $theme.time 1,1............... 7*** NOTICE *** 4"00 $+ $3- $+ 4" | halt }
raw 421:*:{ echo -a $theme.time 15The command 4"00 $+ $2 $+ 4" 15is unknown. | if (%th.serr) { splay sounds/err.wav } | halt }
raw 251:*:{
echo -s $theme.time 4 $+ ,- 15Server information
echo -s $theme.time 4 $+ |- 15There are 4"00 $+ $4 $+ 4" 15users and 4"00 $+ $7 $+ 4" 15invisible on 4"00 $+ $10 $+ 4" 15servers.
halt
}
raw 252:*:{ echo -s $theme.time 4 $+ |- 15There are 4"00 $+ $2 $+ 4" 15operator(s) online | halt }
raw 254:*:{ echo -s $theme.time 4 $+ |- 15There are 4"00 $+ $2 $+ 4" 15channels formed. | halt }
raw 255:*:{ echo -s $theme.time 4 $+ |- 15The server has 4"00 $+ $4 $+ 4" 15clients and 4"00 $+ $7 $+ 4" 15servers | halt }
raw 265:*:{ echo -s $theme.time 4 $+ |- 15Currently 4"00 $+ $5 $+ 4" 15local users connected, the maximum was 4"00 $+ $7 $+ 4" | halt }
raw 266:*:{
echo -s $theme.time 4 $+ |- 15Currently 4"00 $+ $5 $+ 4" 15global users connected, the maximum was 4"00 $+ $7 $+ 4"
echo -s $theme.time 4 $+ `- 15End of server information
halt
}
raw 253:*:{ echo -s $theme.time 4 $+ |- 15The server has 4"00 $+ $2 $+ 4" 15unknown connection(s) | halt }
raw 381:*:{ if (%th.sservadm) { splay sounds/servadm.wav } }
raw 474:*:{ if (%th.sban) { splay sounds/ban.wav } }
on ^*:mode:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) sets mode 4"00 $+ $1- $+ 4" | halt }
on ^*:op:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) grants operator status to 4"00 $+ $opnick $+ 4" | if ($opnick == $me) && (%th.sop) { splay sounds/op.wav } | halt }
on ^*:deop:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) revokes operator status of 4"00 $+ $opnick $+ 4" | if ($opnick == $me) && (%th.sdop) { splay sounds/dop.wav } | halt }
on ^*:voice:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) grants voice status to 4"00 $+ $vnick $+ 4" | if ($vnick == $me) && (%th.svoice) { splay sounds/voice.wav } | halt }
on ^*:devoice:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) revokes voice status of 4"00 $+ $vnick $+ 4" | if ($vnick == $me) && (%th.sdvoice) { splay sounds/dvoice.wav } | halt }
on ^*:help:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) grants halfop status to 4"00 $+ $hnick $+ 4" | halt }
on ^*:dehelp:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) revokes halfop status of 4"00 $+ $hnick $+ 4" | halt }
on ^*:ban:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) banned 4"00,01 $+ $2- $+ 4" | halt }
on ^*:unban:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) unbanned 4"00,01 $+ $2- $+ 4" | halt }
on ^*:kick:#:{
haltdef
if ($knick == $me) { echo $chan $theme.time 15You have been kicked from 4"00 $+ $chan $+ 4" 15by 4"00 $+ $nick $+ 4" 15with reason 4[00,01 $+ $1- $+ 4] | if (%th.skick) { splay sounds/kicked.wav } | halt }
else { echo $chan $theme.time 1,1............... 4 *** "00 $+ $nick $+ 4" 15kicked out 4"00 $+ $knick $+ 4" 15with reason 4[00,01 $+ $1- $+ 4] | halt }
}
on ^*:topic:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) changed the topic to 4"00,01 $+ $1- $+ 4" | halt }
on ^*:notice:*:?:{
var %n.temp = 1
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
while (%n.temp <= $comchan($nick,0)) {
%n.chan = $comchan($nick,%n.temp)
echo $comchan($nick,%n.temp) $theme.time 0<- 15Notice of 4"00 $+ $nick $+ 4" 15saying 4"00,01 $+ %temp.txt $+ 4"
inc %n.temp
}
echo -s $theme.time 0<- 15Notice of 4"00 $+ $nick $+ 4" 15saying 4"00,01 $+ %temp.txt $+ 4"
unset %n.*
haltdef
}
on ^*:notice:*:#:{
set %temp.txt $1-
if ($theme.strip == yes) { set %temp.txt $strip($1-) }
echo $chan $theme.time 0<- 15Notice of 4"00 $+ $nick $+ 4" 15to the channel, saying 4"00,01 $+ %temp.txt $+ 4"
halt
}
alias notice {
set %temp.txt $2-
if ($theme.strip == yes) { set %temp.txt $strip($2-) }
echo -a $theme.time 0-> 15Notice to 4"00 $+ $1 $+ 4" 15saying 4"00,01 $+ %temp.txt $+ 4"
.notice $1 $2-
halt
}
alias dns { set %bluh $1- | .dns %bluh | halt }
on *:dns: {
if ($raddress != $null) { echo -a $theme.time 15IP-Address4 $iaddress | echo -a $theme.time 15Named Address4 $naddress | haltdef }
else { echo -a $theme.time 15Unable to resolve4 %bluh | unset %bluh | haltdef }
}
on ^*:HOTLINK:*.*.*.*:*:{
alias checkip {
var %~ = 1
while (%~ <= 4) { if ($token($1,%~,$asc(.)) !isnum 0-255) halt | inc %~ }
}
}
on *:HOTLINK:*.*.*.*:*:{
if ($input(Scan selected IP?,y,Scan) == $true) { set %rand $rand(100,999) | .sockopen scanip- $+ %rand $1 $input(Scan which port?,eo,Scan) | set %pstime. [ $+ [ %rand ] ] $ctime | halt }
}
on *:sockopen:scanip-*:{
if ($sockerr < 1) { echo -a $theme.time 15Port scan4 $sock($sockname,1).ip : $sock($sockname,1).port 15is 3Open }
else { echo -a $theme.time 15Port scan4 $sock($sockname,1).ip : $sock($sockname,1).port 15is 4Closed }
set %temp.time1 %pstime. [ $+ [ $replace($sockname,scanip-,) ] ]
set %temp.time2 $ctime
echo -a $theme.time 15Scan done in4 $duration($calc(%temp.time2 - %temp.time1))
unset %pstime. [ $+ [ $replace($sockname,scanip-,) ] ]
sockclose $sockname
}
on *:connect:{
if (%th.sconn) { splay sounds/connect.wav }
}
on *:disconnect:{
if (%th.sdiscon) { splay sounds/discon.wav }
}
menu * {
Theme Sounds
.$iif(%th.sjoin,$style(1)) Join: {
if (%th.sjoin) { unset %th.sjoin | halt }
else { set %th.sjoin on | halt }
}
.$iif(%th.spart,$style(1)) Part: {
if (%th.spart) { unset %th.spart | halt }
else { set %th.spart on | halt }
}
.$iif(%th.sconn,$style(1)) Connect: {
if (%th.sconn) { unset %th.sconn | halt }
else { set %th.sconn on | halt }
}
.$iif(%th.sdiscon,$style(1)) Disconnect: {
if (%th.sdiscon) { unset %th.sdiscon | halt }
else { set %th.sdiscon on | halt }
}
.$iif(%th.sban,$style(1)) Banned: {
if (%th.sban) { unset %th.sban | halt }
else { set %th.sban on | halt }
}
.$iif(%th.skick,$style(1)) Kicked: {
if (%th.skick) { unset %th.skick | halt }
else { set %th.skick on | halt }
}
.$iif(%th.sservadm,$style(1)) Servadm: {
if (%th.sservadm) { unset %th.sservadm | halt }
else { set %th.sservadm on | halt }
}
.$iif(%th.serr,$style(1)) Error: {
if (%th.serr) { unset %th.serr | halt }
else { set %th.serr on | halt }
}
.$iif(%th.sop,$style(1)) Op: {
if (%th.sop) { unset %th.sop | halt }
else { set %th.sop on | halt }
}
.$iif(%th.sdop,$style(1)) Deop: {
if (%th.sdop) { unset %th.sdop | halt }
else { set %th.sdop on | halt }
}
.$iif(%th.svoice,$style(1)) Voice: {
if (%th.svoice) { unset %th.svoice | halt }
else { set %th.svoice on | halt }
}
.$iif(%th.sdvoice,$style(1)) Devoice: {
if (%th.sdvoice) { unset %th.sdvoice | halt }
else { set %th.sdvoice on | halt }
}
}