IRCD addons

Please feel free to post ircd addons here, but also remember that some people dont know too much about ircd and are learning.

Please make sure you post full code for your addon.

First piece of code is this

raw *:*: { echo -a $numeric $1- }

this echos the raws that are being sent by the server.[/code]

this tells you when you get your highest number of chatters in your room

Please leave credits in

eg

NEW ROOM RECORD

Sat Feb 2004 at 03:22:30

Number of chatters = 15

then if you have more in your room it will change again

NEW ROOM RECORD

Sat Feb 2004 at 03:22:40

Number of chatters = 16

it will only show to room when the number of chatters goes higher then the current record

on *:join:#:{
;made by ozzy10 
if (%chat == $null) { set %chat 1 } 
if ($nick(#,0,a) > $gettok(%chat,1,32)) { 
set %chat $nick(#,0,a) $asctime(ddd mmm yyyy) at $asctime(hh:nn:ss) 
msg # 12NEW ROOM RECORD $gettok(%chat,2-,32) 
msg # 12Number of chatters = $gettok(%chat,1,32) 
} 
}

Please leave credits in

enjoy

This is rumbaars history addon changed for ircd

Make a folder in your main script dir called history and this will work in multiple rooms

menu menubar { 
history 
.on: .enable #history | msg $active 03History 04enabled 
.off: .disable #history | msg $active 03History 04disabled 
} 
#history off 
on *:JOIN:*:{ 
if ($nick == $me) return 
if ($$ial($nick $+ *,1).addr == $gettok($read(history/ $+ $chan $+ .dat, w,* $+ $$ial($nick $+ *,1).addr $+ *),1,32)) { set %line $readn | goto old } 
else { goto new } 
:new { 
msg # Welcome $nick i see this is your first visit to # 
write -n history/ $+ $chan $+ .dat $$ial($nick $+ *,1).addr $nick $time $date $chan $+ $crlf 
return 
} 
:old { 
if ($nick == $gettok($read(history/ $+ $chan $+ .dat,%line),2,32)) { 
msg # Hi $nick Welcome back to # 
msg # You were last here on the $gettok($read(history/ $+ $chan $+ .dat,%line),4,32) at $gettok($read(history/ $+ $chan $+ .dat,%line),3,32) 
write -l %line history/ $+ $chan $+ .dat $$ial($nick $+ *,1).addr $nick $time $date $chan 
return 
} 
else { 
msg # Hi $nick Welcome back to # 
msg # You were last here on the $gettok($read(history/ $+ $chan $+ .dat,%line),4,32) at $gettok($read(history/ $+ $chan $+ .dat,%line),3,32) and were known as $gettok($read(history/ $+ $chan $+ .dat,%line),2,32)) 
write -l %line history/ $+ $chan $+ .txt $$ial($nick $+ *,1).addr $nick $time $date $chan 
return 
} 
} 
} 
#history end 

This is a simple ctcp flood protection.

ctcp *:*:*: {
if ($nick == $me) Halt
set -u10 %ct22cpf $calc( %ct22cpf + 1)
echo $active 04 $str($chr(160),10) You were $1 checked by $nick
if (%ct22cpf == 3) {
.ignore -t *!*@*
echo $active 04 $str($chr(160),10) Ctcps are now being ignored for 1 minute
.timer22ctcpf 1 60 oz22igof
.timer122ctcpf 1 60 echo $active 04 $str($chr(160),10) Ctcps are no longer being ignored
unset %ct22cpf
}
}
;made by ozzy10
alias oz22igof {
 /ignore -rt *!*@*
}

Please leave credits in

Caps warn/kick

on ^*:TEXT:*:#:{
 if ($nick == $me) halt
 if ($nick == #) halt
 if ($nick isop #) halt
 if ($nick ishop #) halt
 if ($len($1-) < 20) { return }
 var %caps.letters = $calc($len($1-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
 var %caps = $calc($len($1-) - $len($removecs($1-,($1-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
 var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
 if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {   
   set -u300 %r3l. [ $+ [ $nick ] ] $calc( %r3l. [ $+ [ $nick ] ] + 1)
   if (%r3l. [ $+ [ $nick ] ] == 1) {
     privmsg # Please turn you CAPS lock off $nick first warning
     halt
   }
   if (%r3l. [ $+ [ $nick ] ] == 2) { 
     privmsg # Second and last warning $nick ,please turn your CAPS lock off pls or you will be removed
     halt
   }
   if (%r3l. [ $+ [ $nick ] ] == 3) {
     /ban -u60 # $address($nick,2) Caps lock kick (Access ban set for 1 minute)
     /kick # $nick Caps lock kick (Access ban set for 1 minute)
   }
 }
}
on ^*:ACTION:*:#:{
 if ($nick == $me) halt
 if ($nick == #) halt
 if ($nick isop #) halt
 if ($nick ishop #) halt
 if ($len($1-) < 20) { return }
 var %caps.letters = $calc($len($1-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
 var %caps = $calc($len($1-) - $len($removecs($1-,($1-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
 var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
 if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {   
   set -u300 %r3l. [ $+ [ $nick ] ] $calc( %r3l. [ $+ [ $nick ] ] + 1)
   if (%r3l. [ $+ [ $nick ] ] == 1) {
     privmsg # Please turn you CAPS lock off $nick first warning
     halt
   }
   if (%r3l. [ $+ [ $nick ] ] == 2) { 
     privmsg # Second and last warning $nick ,please turn your CAPS lock off pls or you will be removed
     halt
   }
   if (%r3l. [ $+ [ $nick ] ] == 3) {
     /ban -u60 # $address($nick,2) Caps lock kick (Access ban set for 1 minute)
     /kick # $nick Caps lock kick (Access ban set for 1 minute) 
   }
 }
}
on ^*:NOTICE:*:#:{
 if ($nick == $me) halt
 if ($nick == #) halt
 if ($nick isop #) halt
 if ($nick ishop #) halt
 if ($len($1-) < 20) { return }
 var %caps.letters = $calc($len($1-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
 var %caps = $calc($len($1-) - $len($removecs($1-,($1-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
 var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
 if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {   
   set -u300 %r3l. [ $+ [ $nick ] ] $calc( %r3l. [ $+ [ $nick ] ] + 1)
   if (%r3l. [ $+ [ $nick ] ] == 1) {
     privmsg # Please turn you CAPS lock off $nick first warning
     halt
   }
   if (%r3l. [ $+ [ $nick ] ] == 2) { 
     privmsg # Second and last warning $nick ,please turn your CAPS lock off pls or you will be removed
     halt
   }
   if (%r3l. [ $+ [ $nick ] ] == 3) {
     /ban -u60 $comchan($nick,1) $address($nick,2) Caps lock kick (Access ban set for 1 minute)
     /kick $comchan($nick,1) $nick Caps lock kick (Access ban set for 1 minute) 
   }
 }
}
on ^*:CTCPREPLY:*: {
 if ($nick == $me) halt
 if ($nick == #) halt
 if ($nick isop #) halt
 if ($nick ishop #) halt
 if ($len($1-) < 20) { return }
 var %caps.letters = $calc($len($1-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
 var %caps = $calc($len($1-) - $len($removecs($1-,($1-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
 var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
 if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {   
   set -u300 %r3l. [ $+ [ $nick ] ] $calc( %r3l. [ $+ [ $nick ] ] + 1)
   if (%r3l. [ $+ [ $nick ] ] == 1) {
     privmsg # Please turn you CAPS lock off $nick first warning
     halt
   }
   if (%r3l. [ $+ [ $nick ] ] == 2) { 
     privmsg # Second and last warning $nick ,please turn your CAPS lock off pls or you will be removed
     halt
   }
   if (%r3l. [ $+ [ $nick ] ] == 3) {
     /ban -u60 $comchan($nick,1) $address($nick,2) Caps lock kick (Access ban set for 1 minute)
     /kick $comchan($nick,1) $nick Caps lock kick (Access ban set for 1 minute) 
   }
 }
}
alias allowedcaps { return 30 }

Repeat text flood protection.

on @*:TEXT:*:#:{
if ($nick == $me) halt
if ($nick isop #) halt
if ($nick ishop #) halt
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u30 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text 
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u30 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count == 3) {
/ban -u60 # $address($nick,2) Repeat flood (Access ban set for 1 minute)
/kick # $nick Repeat text flood (Access ban set for 1 minute)
}
}
on @*:action:*:#:{
if ($nick == $me) halt
if ($nick isop #) halt
if ($nick ishop #) halt
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u30 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text 
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u20 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count == 3) {
/ban -u60 # $address($nick,2) Repeat flood (Access ban set for 1 minute)
/kick # $nick Repeat Action flood (Access ban set for 1 minute)
}
}
on @*:notice:*:#:{
if ($nick == $me) halt
if ($nick isop #) halt
if ($nick ishop #) halt
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u30 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text 
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u20 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count == 3) {
/ban -u60 $comchan($nick,1) $address($nick,2) Repeat flood (Access ban set for 1 minute)
/kick $comchan($nick,1) $nick Repeat Notice flood (Access ban set for 1 minute)
}
}
on @*:CTCPREPLY:*: {
if ($nick == $me) halt
if ($nick isop #) halt
if ($nick ishop #) halt
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u30 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text 
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u10 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count == 3) {
/ban -u60 $comchan($nick,1) $address($nick,2) Repeat flood (Access ban set for 1 minute)
/kick $comchan($nick,1) $nick Repeat c.t.c.p flood (Access ban set for 1 minute) 
}
}

alias swear {
 if !$isid {
   if $1 == -a { set %swear.list $addtok(%swear.list,$2,32) }
   elseif $1 == -d { set %swear.list $deltok(%swear.list,$findtok(%swear.list,$2,1,32),32) }
   elseif $1 == -c { unset %swear.list }
 }
 else { return %swear.list }
}
on *@!:text:*:#:{
 if $istok($swear,$1-,32) { ban -ku60 # $nick no swearing thanks. }
}

Works for mirc 6.1 or above, put it in remote (alt+r).

Swear kicker.

/swear -a <word> - to add <word> to the list of swear words.

/swear -d <word> - to remove <word> from the list of swear words.

/swear -c - to clear the list of swear words.

I don't care about credits.

on *@!:join:#:{
 if $ialchan($wildsite,$chan,0) > 1 {
   var %i = 1
   while $ialchan($wildsite,$chan,%i) {
     if $ialchan($wildsite,$chan,%i).nick != $nick { ban -ku60 $ialchan($wildsite,$chan,%i).host No clones please. }
     inc %i
   }
 }
}

Clone kicker, put it in remote (alt+r).

Works for mirc 6.1 and above.

alias caps.percent { 
 if !$isid { set %caps.percent $1 }
 else { return $calc($1 / $2 *100) }
}
alias caps.iskick { 
 if $isid { return $iif($1 > %caps.percent,1,0) }
}
on *@!:text:*:#:{
 var %percent = $caps.percent($regex($1-,/[A-Z]/g),$len($1-))
 if $caps.iskick(%percent) { ban -ku60 # $nick excessive caps ( $+ %percent $+ % $+ ) }
}

Caps kicker, /caps.percent <percent> sets the percentage allowed.

/caps.percent 50 - will set the percentage allowed to 50%

Works for mirc 6.1 and above.

on *:input:#:{
 if $right($1,1) == : && !$ctrlenter && !$istok($readini($mircini,text,commandchar) /,$left($1,1),32) {
   var %n = $line($chan,$fline($chan,* $+ $left($1,-1) $+ *,1,1),1)
   if %n { say %n $+ : $2- }
   elseif !%n { say $1- }
   haltdef
 }
}

Nick completer, put it in remote (alt+r).

If you type:

Oz: hello

And ozzy was in the channel, it would say:

Ozzy: hello

If he wasn't in the channel, it would say:

Oz: hello

It will only complete the nick if there's a colon ( : ) after the first word.

The history onjoin is nice but can be better

if ppl are in level on your script.

This works for Admin, Owner, Host and Trusted level:

This works for MSN / IRCx and IRCd

on ^*:JOIN:#: {
 if ($nick == $me) { goto joinme }
 if (Admin_* isin $nick) || (Sysop_* isin $nick) || (Guide_* isin $nick) || (*_Bot isin $nick) { return }
 if (Guest_* isin $nick) || (> isin $nick) { goto guest }
 if (%historyroom == $null) { return }
 if (%historyroom != $null) {
   if ($$ial($nick $+ *,1).addr == $gettok($read(ulhistory.txt, w,* $+ $$ial($nick $+ *,1).addr $+ *),1,32)) { 
     set %line $readn 
     if (admin isin $level($address($nick,1))) { 
       goto adminold
     }
     if (owner isin $level($address($nick,1))) { 
       goto ownerold
     }
     if (host isin $level($address($nick,1))) { 
       goto hostold
     }
     if (trusted isin $level($address($nick,1))) { 
       goto trustedold
     }
     goto normalold
   }
   else {
     if (admin isin $level($address($nick,1))) { 
       goto adminnew
     }
     if (owner isin $level($address($nick,1))) { 
       goto ownernew
     }
     if (host isin $level($address($nick,1))) { 
       goto hostnew
     }
     if (trusted isin $level($address($nick,1))) {
       goto trustednew
     }
     goto normalnew
   }
   :adminnew {
     if ($me isowner $chan) || ($me isop $chan) {
       msg $chan 2Welcome $nick i see this is your first visit to %historyroom
       msg $chan 2You are in my Admin user list. Write 4@admin 2to see your commands.
       write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
       return
     }
     else {
       return
     }   
   }
   :ownernew {
     if ($me isowner $chan) || ($me isop $chan) {
       msg $chan 2Welcome $nick i see this is your first visit to %historyroom
       msg $chan 2You are in my Owner user list. Write 4@owner 2to see your commands.
       write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
       return
     }
     else {
       return
     }   
   }
   :hostnew {
     if ($me isowner $chan) || ($me isop $chan) {
       msg $chan 2Welcome $nick i see this is your first visit to %historyroom
       msg $chan 2You are in my Host user list. Write 4@host 2to see your commands.
       write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
       return
     }
     else {
       return
     }
   }
   :trustednew {
     if ($me isowner $chan) || ($me isop $chan) {
       msg $chan Welcome $nick i see this is your first visit to %historyroom
       msg $chan You are in my Trusted user list. Write @trust to see your commands.
       write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
       return
     }
     else {
       return
     }   
   }
   :normalnew {
     return
   }
   :adminold {
     if ($me isowner $chan) || ($me isop $chan) {
       if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) {
         msg $chan 2Hi $nick Welcome back to %historyroom
         msg $chan 2You are in my Admin user list write 4@admin 2to see your commands.
         msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32)
         write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
         return
       }
       else {
         msg $chan 2Hi $nick Welcome back to %historyroom
         msg $chan 2You are in my Admin user list write 4@admin 2to see your commands.
         msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32))
         write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
         return
       }
     }
   }
   :ownerold {
     if ($me isowner $chan) || ($me isop $chan) {
       if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) {
         msg $chan 2Hi $nick Welcome back to %historyroom
         msg $chan 2You are in my Owner user list write 4@owner 2to see your commands.
         msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32)
         write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
         return
       }
       else {
         msg $chan 2Hi $nick Welcome back to %historyroom
         msg $chan 2You are in my Owner user list write 4@owner to see your commands.
         msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32))
         write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
         return
       }
     }
   }
   :hostold {
     if ($me isowner $chan) || ($me isop $chan) {
       if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) {
         msg $chan 2Hi $nick Welcome back to %historyroom
         msg $chan 2You are in my Host user list write 4@host 2to see your commands.
         msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32)
         write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
         return
       }
       else {
         msg $chan 2Hi $nick Welcome back to %historyroom
         msg $chan 2You are in my Host user list write 4@host 2to see your commands.
         msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32))
         write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
         return
       }
     }
   }
   :trustedold {
     if ($me isowner $chan) || ($me isop $chan) {
       if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) {
         msg $chan 2Hi $nick Welcome back to %historyroom
         msg $chan 2You are in my Trusted user list write 4@trust 2to see your commands.
         msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32)
         write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
         return
       }
       else {
         msg $chan 2Hi $nick Welcome back to %historyroom
         msg $chan 2You are in my Trusted user list write 4@trust 2to see your commands.
         msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32))
         write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
         return
       }
     }
   }
   :normalold {
     return
   }
   :guest {
      msg $chan 2Welcome $nick $+ , Hope ya register your nickname soon $+ .
   }
   :joinme {
      timer.j1. $+ $rand(000,111) 1 2 check.isopowner
   }
 }
}
alias check.isopowner {
 if ($me isowner $chan) || ($me isop $chan) {
   set %historyroom $chan
 }
}

; official code by ozzy10

; edited by tha-doctor

if (Admin_* isin $nick) || (Sysop_* isin $nick) || (Guide_* isin $nick) || (*_Bot isin $nick) { return }

All of those isin's should be iswm's.

and the original code was by rumbaar

Most simple dialog kick counter going

Menu channel,status,menubar {
 Kick counter:/dialog -m k.count k.count
}
dialog k.count {
 title "k_counter"
 size -1 -1 57 8
 option dbu
 text "Kicks:", 4, 10 1 14 8
 text [ %kicks ], 5, 27 1 25 8
 button "Button", 3, 0 24 37 12, hide ok cancel
}
on *:kick:#:if ( $nick == $me ) /inc %kicks }

/m.ids { 
 var %x = 0
 if ($1- = $null) { 
   echo -a ERROR_  Please Specify +e [echo] or +w [write]  
   halt 
 }
 set %stopat $$?="Stop at id number?"
 while (%x < %stopat) { 
   inc %x
   if ($1- = +e) { 
     write -anl1 IdList.txt %x $+ ,
     .timer0 1 5 window -ke @Ids | .timer02 1 6 filter -fpw IdList.txt @Ids
     .timer03 1 15 .remove $shortfn($scriptdirIdList.txt) 
   }  
   if ($1- = +w) { write -anl1 IdList.txt %x $+ , }
 }
 return
 unset %stopat
}

Usage: /m.ids +e

^ echo results

Usage: /m.ids +w

^ writes to a text file called IdList.txt

Makes a list of ids like so 1,2,3,4,5,6 .....

For those of you that use Koach's IRC server, this is what you can use to visibly show yourself as away to mIRC (or other client) users and webchat users:

alias away { $iif($away,nick $mnick,tnick $me $+ -away) | $iif($away,away,away AFK) }

It will change your status to away and change your nickname temporarily. When you type /away again it will mark you as returned and change your name back to your primary nickname.

You can expand it to make your own away message but I couldn't be bothered so if you want to change it, feel free to do so.

Usage:

/away - marks you as away if you're not already.

/away - marks you as returned if you're away.

it is probably recommended to do it this way for the convention of mIRC scripting...

;/away <messge> - to be set to away with the message
;/away - return from away
alias away { $iif($1,tnick $me $+ -away,nick $mnick) | $iif($1,away $1-,away) }

Only because in most scripts, if you had a remote command for example, you would automatically do /away <message> to go away, and /away to return. So it is best to continue this convention. But either way, both methods are good...

This is what I was going to make it into:

alias away {
  if ($away) {
    nick $mnick
    away
  }
  else {
    tnick $me $+ -away
    away $iif($1-,away $1,away AFK)
  }
}

It would've been a long, pretty $iif but I just got up

 on 1:TEXT:*:#: {
if ($chan == $active) { halt }
  if (yournick isin $1-) { echo -a 12 ***NOTICE***4[ $converter($nick) ] 12IN 4[ $chan ] 12Text: 4[ $1- ]12 ( $+ $date $+ / $+ $time(hh:nn) $+ ) | /splay beep.wav }
}

put your nick in were it says yournick

for use when your in more then 1 rooms

if the room that said your nick is not the active room (the room your talking in) this will

send you a Notice the nick msg time and room name to the room you are active in

if the room is active it will halt

the /splay beep.wav can be removed or replaced with the sound wav of your chioce