--- Away/Back ---
Alias away {
set %ltime $asctime
set %lnick $me
set %bnick $1
set %lrsn $2-
set %away on
.nick %bnick
amsg 4[» 10I am now away 4Reason: %lrsn 10Left at: %ltime 4«]
.away Away 10Reason: %lrsn 4Left at: %ltime
}
Alias back {
amsg 4[» 10I am now back 4From: %lrsn 4 10Time gone: $duration($calc(($ctime - $ctime(%ltime)))) 4«]
set %away off
remove away.txt
nick %lnick
away
}
on $*:TEXT:/(Daft|Daftndopy|Matt|Matteh|Dopy|Dopey)/Si:#:{
if (%away == on) {
if ($nick == $read(away.txt,w,$nick)) { halt }
write away.txt $nick
notice $nick 10AWAY 4Reason: %lrsn 10Left at: %ltime If important /ms send %lnick msg
}
}
--- Away/Back ---
---
--- Theme ---
ON *:START:{
.timestamp -f $+($T2([),$+($T1(hh),$T2(:),$T1(nn),$T2(:),$T1(ss)),$T2(]))
.font -z 12 Verdana
.color Action text 10
.color Ctcp text 04
.color Highlight text 07
.color Info text 07
.color Info2 text 07
.color Invite text 10
.color Join text 10
.color Kick text 10
.color Mode text 10
.color Nick text 10
.color Normal text 10
.color Notice text 07
.color Other text 10
.color Own text 10
.color Part text 10
.color Quit text 02
.color Topic text 03
.color Wallops text 04
.color Whois text 10
.color Editbox text 07
.color Listbox text 10
.color Gray text 10
.color Title text 10
.color Treebar text 10
.color Editbox 01
.color Listbox 01
.color Treebar 01
.color Inactive 01
.color BackGround 01
echo -at $T1(Welcome to mIRC) $T2($version)
echo -a -
echo -at $T1(You're using the theme:) $T2(RUSH V0.1.0)
echo -a -
echo -at $Logo
}
Alias T1 return $+($chr(3),10,$1-,$chr(3))
Alias T2 return $+($chr(3),07,$1-,$chr(3))
Alias T3 return $+($chr(3),02,$1-,$chr(3))
Alias TB1 return $+($chr(2),$chr(3),10,$1-,$chr(2),$chr(3))
Alias TB2 return $+($chr(2),$chr(3),07,$1-,$chr(2),$chr(3))
Alias Logo return $+($T1([),$T2(RUSH),$T1(]))
Alias U return $+($chr(31),$left($1,1),$chr(31),$right($1,-1))
Alias NickStyle return $iif($2 !isreg $1,$+($RankColor($left($nick($1,$2).pnick,1)),$T2($U($2))),$T2($U($2)))
Alias RankColor {
return $replace($1,~,$+($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))))
}
Alias AMSG {
var %i = 1
while ($chan(%i)) {
if ($chan(%i) != #Idle) {
.msg $chan(%i) $1-
echo -tm $chan(%i) $+($TB1($chr(40)),$NickStyle($chan(%i),$me),$TB1($chr(41))) $T1($1-)
}
inc %i
}
}
ON ^*:TEXT:*:*:{
haltdef
echo -tm $iif($chan,$chan,$nick) $+($TB1($chr(40)),$NickStyle($chan,$nick),$TB1($chr(41))) $T1($1-)
}
ON ^*:ACTION:*:*:{
haltdef
echo -tm $iif($chan,$chan,$nick) $+($NickStyle($chan,$nick)) $TB1(*) $T1($1-)
}
CTCP *:VERSION:{
ctcpreply $nick VERSION James' Theme - RUSH V0.1.0
}
ON ^*:NOTICE:*:*:{
haltdef
echo -satm $iif($chan,$chan) $+($TB1(-),$+($T2($U($nick)),$iif($chan,$+($T1(:),$T2($chan)))),$TB1(-)) $T1($1-)
}
ON ^*:SNOTICE:*:{
haltdef
echo -sat $+($TB1(-),$T2($nick),$TB1(-)) $T1($1-)
}
ON ^*:INVITE:*:{
haltdef
echo -astm $T2($U($nick)) $T1(has invited you to) $T2($chan)
}
ON ^*:TOPIC:*:{
haltdef
echo -tm $chan $T2($U($iif($nick == $me,You,$nick))) $T1(has chanegd the topic to) $T2($1-)
}
ON *:CONNECT:{
join #Nub,#TribalWarz
}
ON ^*:JOIN:*:{
haltdef
echo -tm $chan $T2($U($nick)) $T1(has joined) $T2($chan)
if ($nick != $me) {
var %i = 0
while (%i < $nick($chan,0)) {
inc %i
if ($address($nick,2) iswm $address($nick($chan,%i),5)) {
var %users = $iif(%users,$+(%users,$chr(32),$NickStyle($chan(%i),$nick($chan,%i))),$NickStyle($chan(%i),$nick($chan,%i)))
}
}
$iif($strip(%users,cbu) != $nick && %users,echo -tm $chan $T1(Clones:) $T2(%users))
}
}
ON ^*:PART:*:{
haltdef
echo -tm $chan $T2($U($nick)) $T1(has parted) $T2($chan) $iif($1,$+($T1([),$T2($1-),$T1(])))
}
ON ^*:KICK:*:{
haltdef
echo -tm $chan $T2($U($nick)) $T1(has kicked) $T2($u($knick)) $+($T1([),$T2($1-),$T1(]))
}
ON ^*:RAWMODE:*:{
haltdef
echo -tm $chan $T2($U($nick)) $T1(has set mode $+ $iif($len($1) > 2,s) $+ :) $T1($1) $T2($2-)
}
Raw 332:*:{
haltdef
echo -tm $2 $T1(Topic is) $+(',$T2($3-),')
}
Raw 319:*:{
haltdef
echo -a $2 is on $replace($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 333:*:{
haltdef
echo -tm $2 $T1(Set by) $T2($3) $T1(on) $T2($asctime($4-))
}
ON *:TEXT:$(* $+ $me $+ *):#:{
beep 3
if ($chan != $active) echo -astm $+($TB1($chr(40)),$NickStyle($chan,$nick),$T1(:),$T2($chan),$TB1($chr(41))) $T1($1-)
}
ON *:INPUT:*:{
if ($left($1,1) == /) return
else {
.msg $active $1-
echo -tm $active $+($TB1($chr(40)),$NickStyle($active,$me),$TB1($chr(41))) $T1($1-)
halt
}
}
--- Theme ---
---
--- Unban on Ban ---
on *:BAN:#:{
if ($banmask iswm $address($me,5)) {
mode $chan -b $banmask }
--- Unban on Ban ---
---
--- Bob The Builder ---
on *:text:bob*:#: {
msg $chan 12Bob the Vandle, can he vandlise it? Bob the Vandle, YES HE CAN! Smashing and burning is so much fun, but before he gets caught, he goes on the run! Bob the Vandle, Can he vandlise it? Bob the Vandle, YES HE CAN!
}
--- Bob The Builder