rendered paste body;===============
; Alias to turn BEEP sounds on and off
; this code goes in Tools > Scripts Editor on the Aliases tab.
;
; Props to Name1ess on IRCHighway for this snippet
;
; <<<<< begin code >>>>>
/pp {
if (%png != 1) {
set %png 1
echo # 9,1 PING IS ON (/pp /pstat)
beep 3 100
}
elseif (%png == 1) {
set %png 0
echo # 4,1 PING IS OFF (/pp /pstat)
beep 1
}
}
/pstat {
if (%png == 1) { /echo # 9,1 PING IS ON }
else if (%png == 0) { /echo # 4,1 PING IS OFF }
}
; <<<<< end code >>>>>
;===============
;===============
; [nickalert.mrc]
; Save this as nickalert.mrc in your default mIRC folder. To determine your
; default mIRC folder, type this into the mIRC chatbox on any open window:
; //echo $mircdir
; For instance: c:\Docs & Settings\User\AppData\mIRC\nickalert.mrc
; Then, open Tools > Scripts Editor
; Make sure you have the Remotes tab active
; goto File > Load ... and choose nickalert.mrc
; Next, go to the Variables tab and enter a new variable on it's own line
; %nickalert.me nickname nickname nickname
; change 'nickname' to whatever nickname you use.
; Seperate each nickname with a space.
; Enter as many or as few nicknames as you need.
; Click OK , and the nickalert script is now active.
;
; Props to xero_art on IRCHighway for this script.
;
; <<<<< begin code >>>>>
on ^*:text:*:#: {
if ($me isin $1-) {
/haltdef | var %cnick $colnick($nick,$address($nick,2),$chan)
/echo $chan 11,1 $+ $timestamp $+ $+ 10 $+(<,,%cnick,$nick($chan,$nick).pnick,10,>) $replace($1-,$me,$+(4,$me,10))
/echo -d 11,1 $+ $timestamp $+ 8,1 $+ $chan $+ $+ 10 $+(<,,%cnick,$nick($chan,$nick).pnick,10,>) $1-
/window -g1 $chan
if (%png == 1) { beep 3 100 }
flash
/halt
}
var %kjh 1
while (%kjh <= $numtok(%nickalert.me,32)) {
if ($gettok(%nickalert.me,%kjh,32) isin $1-) {
/haltdef | var %cnick $colnick($nick,$address($nick,2),$chan)
/echo $chan 11,1 $+ $timestamp $+ $+ 10 $+(<,,%cnick,$nick($chan,$nick).pnick,10,>) $replace($1-,$gettok(%nickalert.me,%kjh,32),$+(4,$gettok(%nickalert.me,%kjh,32),10))
/echo -d 11,1 $+ $timestamp $+ 8,1 $+ $chan $+ $+ 10 $+(<,,%cnick,$nick($chan,$nick).pnick,10,>) $1-
/window -g1 $chan
if (%png == 1) { beep 3 100 }
flash
/halt
}
/inc %kjh 1
}
}
on ^*:action:*:#: {
if ($me isin $1-) {
/haltdef | var %cnick $colnick($nick,$address($nick,2),$chan)
/echo $chan 11,1 $+ $timestamp $+ 4 $+ $chr(42) $+(,%cnick,$nick($chan,$nick).pnick,6) $replace($1-,$me,$+(4,$me,6))
/echo -d 11,1 $+ $timestamp $+ 8,1 $+ $chan $+ 4 $+ $chr(42) $+(,%cnick,$nick($chan,$nick).pnick,6) $1-
/window -g1 $chan
if (%png == 1) { beep 3 100 }
flash
/halt
}
var %kjh 1
while (%kjh <= $numtok(%nickalert.me,32)) {
if ($gettok(%nickalert.me,%kjh,32) isin $1-) {
/haltdef | var %cnick $colnick($nick,$address($nick,2),$chan)
/echo $chan 11,1 $+ $timestamp $+ 4 $+ $chr(42) $+(,%cnick,$nick($chan,$nick).pnick,6) $replace($1-,$gettok(%nickalert.me,%kjh,32),$+(4,$gettok(%nickalert.me,%kjh,32),6))
/echo -d 11,1 $+ $timestamp $+ 8,1 $+ $chan $+ 4 $+ $chr(42) $+(,%cnick,$nick($chan,$nick).pnick,6) $1-
/window -g1 $chan
if (%png == 1) { beep 3 100 }
flash
/halt
}
/inc %kjh 1
}
}
alias colnick {
set %poi 0
var %nick $1
var %addr $2
var %chan $3
var %adms $adlist($3)
while ($readini(mirc.ini,cnicks,$($+(n,%poi)))) {
if (%nick == $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),1,44)) { /return $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),2,44) }
if (%addr == $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),1,44)) { /return $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),2,44) }
if ($getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),3,44) == $chr(33)) && ($chr(33) isin $nick(%chan,%nick).pnick) { /return $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),2,44) }
if ($getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),3,44) == $chr(64)) && (%nick isop %chan) { /return $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),2,44) }
if ($getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),3,44) == $chr(37)) && (%nick ishop %chan) { /return $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),2,44) }
if ($getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),3,44) == $chr(43)) && (%nick isvoice %chan) { /return $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),2,44) }
/inc %poi 1
}
if (!$readini(mirc.ini,cnicks,$($+(n,%poi)))) { return $getrdun($readini(mirc.ini,cnicks,$($+(n,%poi))),2,44) }
}
alias getrdun {
var %tyh $calc($2 - 1)
$iif($pos($readini(mirc.ini,cnicks,$($+(n,%poi))),$chr(44)) == 1,return $gettok($1,%tyh,$3),return $gettok($1,$2,$3))
}
; <<<<< end code >>>>>
;===============