rendered paste bodyAlias nickstyle {
if ($regex($1,/^[~&@%+#](.*)$/Si)) {
var %sign = $left($1,1)
tokenize 32 $remove($1,$left($1,1))
}
if (%sign = $chr(35)) {
return $+(03,%sign,$iif($left($1,1) isalpha, ),$left($1,1),$iif($left($1,1) isalpha, ),$right($1,-1))
}
else {
return $+(%sign,$iif($left($1,1) isalpha, ),$left($1,1),$iif($left($1,1) isalpha, ),$right($1,-1))
}
}
Alias name {
return $+(10[04,$chr(187),03,$iif($left($1,1) isalpha, ),$left($1,1),$iif($left($1,1) isalpha, 03),$right($1,-1),04,$chr(171),10])
}
ON *:START:{
.timestamp -f 10(03hh10:03nn10:03ss TT10)
.font -z 10 Verdana
.color listbox 1
.color editbox 1
.color background 1
.color editbox text 03
.color listbox text 03
.color inactive 1
.color treebar text 03
.color treebar 1
.color normal text 10
.color own text 10
.color quit text 10
.color info text 10
.color notify text 10
.color notice text 10
.color whois text 10
echo -st Welcome to mIRC $version
echo -st Let me adjust your current settings to fit
echo -st your theme, you have chosen the theme Gray Shadow.
echo -st The theme you have choosen was made by Jdawg140.
echo -st If you have any questions please use, /themehelp
echo -st -
echo -st Your current uptime is $uptime(System,2)
echo -st You turned your comp on $asctime($uptime(system))
echo -st Your current ip is: $IP - Your Operating System is: $OS
echo -st -
if (%theme.time) {
echo -st I havent seen you since $asctime(%theme.time)
echo -st That was $duration($calc($ctime - %theme.time )) ago
echo -st -
echo -st Enjoy your day
unset %theme.time
}
else {
echo -st Enjoy your day
}
}
CTCP ^*:VERSION:*:{
haltdef
ctcpreply $nick $1 mIRC $version - Jdawg140's Theme 'Green Delight'
}
ON ^*:TEXT:*:#:{
haltdef
var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick)
echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $1-
}
Alias amsg {
var %i = 1
while ($chan(%i)) {
var %nick $iif($me !isreg $chan(%i),$+($left($nick($chan(%i),$me).pnick,1),$me),$me)
if ($chan(%i) != #Idle) {
echo -t $chan(%i) $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $1-
.msg $chan(%i) $1-
}
inc %i
}
}
Alias ame {
var %i = 1
var %nick $me
while ($chan(%i)) {
if ($chan(%i) != #Idle) {
echo -t $chan(%i) * $+(10,$nickstyle($me)) $+ 10 $1-
.describe $chan(%i) $1-
}
inc %i
}
}
ON ^*:TEXT:*:?:{
haltdef
var %nick $nick
echo -t $nick $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $1-
}
ON ^*:ACTION:*:#:{
haltdef
echo -t $chan * $+(10,$nickstyle($nick)) $+ 10 $1-
}
ON ^*:ACTION:*:?:{
haltdef
echo -t $nick * $+(10,$nickstyle($nick)) $+ 10 $1-
}
ON ^*:MODE:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has sets mode:03 $1-
}
ON ^*:BAN:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has banned03 $banmask
var %i = 1
while ($nick($chan,%i)) {
if ($banmask iswm $address($nick($chan,%i),5)) {
var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i)))
}
inc %i
}
$iif(%users,echo -t $chan 10This ban effects:03 %users )
}
ON ^*:UNBAN:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has unbanned03 $banmask
var %i = 1
while ($nick($chan,%i)) {
if ($banmask iswm $address($nick($chan,%i),5)) {
var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i)))
}
inc %i
}
$iif(%users,echo -t $chan 10This Unban effects:03 %users )
}
ON ^*:KICK:#:{
if ($knick != $me) {
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has kicked03 $knick 10[03 $+ $1- $+ 10]
}
else {
echo -ts 10You were kicked from03 $nickstyle($chan) 10[03 $+ $1- $+ 10]
}
}
ON ^*:RAWMODE:#:{
if (*a*,*,*,* iswmcs $chanmodes) {
var %a = 1, %b, %c = 2
while ($mid($1,%a,1)) {
if ($v1 isin +-) %b = $v1
if ($v1 === a) { haltdef | echo -t $chan $+(10,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $+ 03 $&
$nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) 10admin status
}
if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c
inc %a
}
}
if (*e*,*,*,* iswmcs $chanmodes) {
var %a = 1, %b, %c = 2
while ($mid($1,%a,1)) {
if ($v1 isin +-) %b = $v1
if ($v1 === e) { haltdef | echo -t $chan $+(10,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $+ 03 $&
$nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) 10except override
}
if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c
inc %a
}
}
if (*I*,*,*,* iswmcs $chanmodes) {
var %a = 1, %b, %c = 2
while ($mid($1,%a,1)) {
if ($v1 isin +-) %b = $v1
if ($v1 === I) { haltdef | echo -t $chan $+(10,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $+ 03 $&
$nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) 10invite override
}
if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c
inc %a
}
}
}
ON *:INPUT:#:{
if ($left($1,2) == //) {
if ($1 == //say) {
.msg $active $($2-,2)
var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me)
echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $($2-,2)
halt
}
if (/me isin $1 || /Describe isin $1) {
echo -t $chan * $+(10,$nickstyle($nick)) $+ 10 $($iif(d isin $1,$3-,$2-),2)
.describe $chan $($iif(d isin $1,$3-,$2-),2)
halt
}
else {
$($1-,2)
halt
}
}
if ($left($1,1) == /) {
if ($1 == /say) {
.msg $active $2-
var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me)
echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $2-
halt
}
if (/me isin $1 || /Describe isin $1) {
echo -t $chan * $+(10,$nickstyle($nick)) $+ 10 $iif(d isin $1,$3-,$2-)
.describe $chan $iif(d isin $1,$3-,$2-)
halt
}
else {
$1-
halt
}
}
else {
if ($1 ison $chan) {
.msg $chan $name($1) $+ $iif($2,3: $2-)
var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me)
echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $&
$name($1) $+ $iif($2,3: $2-)
halt
}
else {
.msg $chan $1-
var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me)
echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $&
$1-
halt
}
}
}
ON *:INPUT:?:{
if ($left($1,2) == //) {
if ($1 == //say) {
.msg $active $($2-,2)
var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me)
echo -t $active $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $($2-,2)
halt
}
if (/me isin $1 || /Describe isin $1) {
echo -t $active * $+(10,$nickstyle($nick)) $+ 10 $($iif(d isin $1,$3-,$2-),2)
.describe $active $($iif(d isin $1,$3-,$2-),2)
halt
}
else {
$($1-,2)
halt
}
}
if ($left($1,1) == /) {
if ($1 == /say) {
.msg $active $2-
var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me)
echo -t $active $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $2-
halt
}
if (/me isin $1 || /Describe isin $1) {
echo -t $active * $+(10,$nickstyle($nick)) $+ 10 $iif(d isin $1,$3-,$2-)
.describe $active $iif(d isin $1,$3-,$2-)
halt
}
else {
$1-
halt
}
}
else {
if ($1 == $active) {
.msg $active $name($1) $+ $iif($2,3: $2-)
var %nick $me
echo -t $active $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $&
$name($1) $+ $iif($2,3: $2-)
halt
}
else {
.msg $active $1-
var %nick $me
echo -t $active $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $&
$1-
halt
}
}
}
Raw 332:*:{
haltdef
echo -t $2 10Topic is $+('03,$3-,10')
}
Raw 333:*:{
haltdef
echo -t $2 10Set by03 $3 10on03 $asctime($4-)
}
ON ^*:OWNER:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has given03 $nickstyle($opnick) 10owner status
}
ON ^*:DEOWNER:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has removed03 $nickstyle($opnick) 10owner status
}
ON ^*:OP:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has given03 $nickstyle($opnick) 10oper status
}
ON ^*:DEOP:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has removed03 $nickstyle($opnick) 10oper status
}
ON ^*:HELP:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has given03 $nickstyle($hnick) 10halfop status
}
ON ^*:DEHELP:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has removed03 $nickstyle($hnick) 10halfop status
}
ON ^*:VOICE:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has given03 $nickstyle($vnick) 10voice status
}
ON ^*:DEVOICE:#:{
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has removed03 $nickstyle($vnick) 10voice status
}
ON ^*:JOIN:#:{
if ($nick != $me) {
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has joined03 $nickstyle($chan)
var %i = 1
while ($nick($chan,%i)) {
$iif($address($nick($chan,%i),5) == $null,.who $nick($chan,%i))
if ($address($nick,2) iswm $address($nick($chan,%i),5) && $nick != $nick($chan,%i)) {
var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i)))
}
inc %i
}
$iif(%users,echo -t $chan 10Clones:03 %users )
}
else {
haltdef
echo -t $chan 10Now talking in03 $nickstyle($chan)
}
}
ON ^*:PART:#:{
if ($nick != $me) {
haltdef
echo -t $chan $+(10,$nickstyle($nick)) has parted03 $nickstyle($chan)
}
else {
echo -ts 10You parted03 $nickstyle($chan)
}
}
ON ^*:INVITE:#:{
haltdef
echo -at $+(03,$nickstyle($nick)) 10has invited you to03 $nickstyle($chan)
}
ON *:EXIT:{
set %theme.time $ctime
}
ON ^*:TOPIC:#:{
haltdef
echo -t $chan $+(03,$nickstyle($nick)) 10has changed the topic to $+(03'10,$1-,03')
}
ON ^*:NOTICE:*:#:{
haltdef
echo -t $+(03-10,$nickstyle($nick),:,$chan,03-10) $1-
echo -st $+(03-10,$nickstyle($nick),:,$chan,03-10) $1-
}
ON ^*:NOTICE:*:?:{
haltdef
$iif($active != Status Window,echo -at $+(03-10,$nickstyle($nick),03-10) $1-)
echo -st $+(03-10,$nickstyle($nick),03-10) $1-
}
ON ^*:QUIT:{
if ($nick != $me) {
haltdef
var %i = 1
while ($comchan($nick,%i)) {
echo -t $comchan($nick,%i) $+(10,$nickstyle($nick)) has quit $network (03 $+ $1- $+ 10)
inc %i
}
}
}
ON ^*:NICK:{
haltdef
var %i = 1
while ($comchan($newnick,%i)) {
echo -t $comchan($newnick,%i) $+(10,$nickstyle($nick)) is now known as03 $nickstyle($newnick)
inc %i
}
}