;; Quit ohne (Quit: grund) [grund wird normal wiedergegeben!] - Signed off) - (Quit)
;; Usermode +x (Registered) erscheint so -> * Quits: (address) (Usermode +x detected - IP: ip address)
;;
;; Die DLL wird gebraucht damit die IP anzeige funktioniert -> http://www.mircscripts.org/comments.php?id=1368
;;
;; gegebenfalls umbenennen in raddip.dll oder im script raddip.dll in ipresolve2.dll abändern
;;
on ^1:quit:{
haltdef
tokenize 32 $iif($1 == Quit:,$2-,$1-)
tokenize 32 $iif(!$istok(Quit©Signed off© $+ $nick,$1-,169),$1-)
if ($1- == Registered) { tokenize 32 Usermode +x detected - IP: $ip($nick) }
comecho $color(quit) $nick * Quits: $nick ( $+ $address $+ ) $iif($1-,( $+ $1- $+ ))
if ($query($nick)) { echo $color(quit) -gt $nick * Quits: $nick ( $+ $address $+ ) $iif($1,( $+ $1- $+ ) ) }
}
alias ip {
if ($1) {
var %x = $gettok($address($1,2),2,64)
if ($isip(%x)) return %x
elseif ($radip(%x) !== NULL) return $iif($ifmatch !== $radip,$ifmatch)
else return 0.0.0.0
}
else return $ip
}
alias isip {
if $numtok($1,46) == 4 && $gettok($1,1,46) isnum 0-255 && $gettok($1,2,46) isnum 0-255 && $gettok($1,3,46) isnum 0-255 && $gettok($1,4,46) isnum 0-255 { return $true }
else { return $false }
}
alias radip {
if !$isip($1) { return $dll(raddip.dll,getip,$1) }
else { return $dll(raddip.dll,gethost,$1) }
}
alias comecho {
;usage /comecho [color] <nick> <text>
if ($1 isnum) { var %c = $1 | tokenize 32 $2- }
var %x = $comchan($1,0)
if (!%x) { echo %c -ts $2- }
while (%x) { echo %c -t $comchan($1,%x) $2- | dec %x }
}