rendered paste body on *:text:*:#:{ if ($nick == PiNK) || ($nick == AnnounceBot) && ($network == AustIRC) && ($chan = #PRE-Chat) && (%pre.on = on) { scid -t1 $idnet(irchighway) /msg #fw.pre $1- | timer 1 5 unset %pre.on }
if ($chan = #pre) {
if (($nick == PreBot) || ($nick == PRE-DUDE) || ($nick == PRE`DUDE) || ($nick == WHiPPED2) || ($nick == AnnounceBot) || ($nick == TL-pre)) && ($network == AustIRC) {
var %temp = $strip($1-,b)
if (($nick == PRE-DUDE) || ($nick == AnnounceBot) || ($nick == PRE`DUDE)) { var %r = .*\[(.*)\]::\[(.*)\]::\[(.*)\].* }
if ($nick == TL-pre) { var %r = .*\.:\[ (.*) \]::\[ (.*) \]::\[ (.*) \]:\..* }
if ($regex(%temp, %r)) { if ($strip($regml(1)) = PRE) { scid -t1 $idnet(irchighway) /msg #fw.pre 7[PRE]15 [ $replace($regml(2),TV,7TV,XVID,8XVID,MP3,6MP3,XXX,13XXX,DVDR,5DVDR,MVID,3MVID,EBOOK,14EBOOK,COVER,1COVER,PDA,1PDA,NDS,1NDS,X264,1X264,0DAY,10DAY,DOX,1DOX,PRE,1PRE,APPS,2APPS,GAMES,12GAMES) 15] 15->10 $regml(3) 15<- | goto fim }
if ($strip($regml(1)) = NUKE) { scid -t1 $idnet(irchighway) /msg #fw.pre 04[ $+ $regml(1) $+ 04] 15[10 $regml(2) 15] [04 $regml(3) 15] | goto fim }
if ($strip($regml(1)) = UNNUKE) { scid -t1 $idnet(irchighway) /msg #fw.pre 03[ $+ $regml(1) $+ 03] 15[10 $regml(2) 15] [03 $regml(3) 15] | goto fim }
else { scid -t1 $idnet(irchighway) /msg #fw.pre %temp }
:fim
}
}
}
if ($chan = #fw.pre) {
if (($strip($1) = !pre) || ($strip($1) = !group) && ($network == irchighway)) { scid -t1 $idnet(AustIRC) /msg #PRE-Chat $strip($1-) | set %pre.on on } }
}
alias idnet {
var %k = 1
var %L = $1
while (%k <= $scid(0)) {
if ($scid($scon(%k)).network == %L) { return $scon(%k) }
inc %k
} }