[N]iggru[X] — File Browser
NiggruXv1.0 / NiggruXv1.0 / Sprint / System / events.ini
events.ini — 21 KB — Download this file
[Events]
n0=@+69:ON TEXT:*:#:/msg $chan [ 10 $+ $nick $+ ] Shut Up Kik Violated 10 second Ban | ban -u10 $chan $nick 2 | k $chan $nick [ 10Shutup ] I Told You Not To Talk [ 10Shutup ]
n1=@+69:ON ACTION:*:#:/msg $chan [ 10 $+ $nick $+ ] Shut Up Kik Violated 10 second Ban | ban -u10 $chan $nick 2 | k $chan $nick [ 10Shutup ] I Told You Not To Talk [ 10Shutup ]
n2=1:ON JOIN:#:writeini %path $+ \seen.ini $chan $nick $ctime
n3=1:ON TEXT:!seen *:#: {
n4= if ($parm2 == $null) { msg $chan $nick $+ , you have to ask me who I've seen =) | halt }
n5= elseif ($parm2 == $nick) { msg $chan Don't you know where you are $nick $+ ? | halt }
n6= elseif ($parm2 ison $chan) { msg $chan $nick $+ , $parm2 is here right now (are u blind?) | halt }
n7= elseif ($parm2 == $me) { msg $chan $nick $+ , I'm right here!! | halt }
n8= %a = $readini %path $+ \seen.ini $chan $parm2
n9= if (%a == $null) { msg $chan $nick $+ , I have never seen $parm2 | unset %a | halt }
n10= msg $chan $nick $+ , I saw $parm2 $duration($counter(%a)) ago | unset %a | halt
n11=}
n12=1:ON NICK: {
n13= %a = $readini %path $+ \seen.ini $chan $nick
n14= if (%a == $null) { unset %a | halt }
n15= else { writeini %path $+ \seen.ini $chan $newnick %a | remini %path $+ \seen.ini $chan $nick | unset %a | halt }
n16=}
n17=!1:On Ban:#:{
n18= if ( $banmask iswm $address($me,1)) goto meban
n19= if ( $banmask iswm $address($me,2)) goto meban
n20= if ( $banmask iswm $address($me,3)) goto meban
n21= if ( $banmask iswm $address($me,4)) goto meban
n22= if ( $bnick iswm $banmask ) goto meban
n23= else goto end
n24= :meban
n25= If ( $me isop $chan ) goto unban
n26= else goto noop
n27= :unban
n28= mode $chan -b $banmask | mode $chan -o $nick | kick $chan $nick [Prot] Dont Ban Me [Prot]
n29= echo -a %h Auto-Unbann Completed
n30= goto end
n31= :noop
n32= echo -a %h You Have Been Banned And Are Not An Op Sorry
n33= :end
n34= echo -a %h Ban [ 10+b ] 10 $banmask In $chan
n35=}
n36=1:on text:*!ping*:#:/ctcp $nick ping
n37=1:on text:*ping me*:#:/ctcp $nick ping
n38=1:on text:*ping pl*:#:/ctcp $nick ping
n39=1:on text:*my ping*:#:/ctcp $nick ping
n40=1:on text:*lagged?*:#:/ctcp $nick ping
n41=1:on action:*ping me*:#:/ctcp $nick ping
n42=1:on action:*ping pl*:#:/ctcp $nick ping
n43=1:on action:*my ping*:#:/ctcp $nick ping
n44=1:on action:*lagged?*:#:/ctcp $nick ping
n45=1:on ctcpreply:*ping*: %apt = $ctime - $parm2 | if (%apt < 5) { notice $nick ** [ 10 $+ %apt $+ ] Little Lag Nuthing To Worry Bout ** - [ 10Auto Ping Reply ] - } | if (%apt > 5) { notice $nick ** [ 10 $+ %apt $+ ] : Minmal Lag ** - [ 10Auto Ping Reply ] - }
n46=1:ON DEOP:#: { if ($readini %path $+ \names.txt protected $address($opnick,3) == protected) { if $nick == $me | halt } mode $chan +o-o $opnick $nick }
n47=+50:ON OP:#: { echo -a %h 12 Notice : You were 12OPed [+o] in [ $lower($chan) ] by [ 12 $lower($nick) ] . }
n48=+50:ON DEOP:#: { echo -a %h 12 Notice : You were 12de0ped [-o] in [ $lower($chan) ] by [ 12 $lower($nick) ] . | msg chanserv OP $chan $me }
n49=+@45:ON DEOP:# { if ($readini %path $+ \names.txt botsbotsbots $address($nick,3) == bot) mode $chan +v $opnick }
n50=@40!:ON BAN:# { if ($banmask iswm $address($me,6) && $nick != $me) { mode $chan -b $banmask | halt } | if ($nick != $me && $banmask !iswm $address($me,6)) bancheck $chan $banmask $nick }
n51=40:ON JOIN:# {
n52= if (($me isop $chan) && (%autoop == on) && ($atop($nick,$chan) == 1)) mode $chan +o $nick | if (($me isop $chan) && (%autoop == off) && (%f11 == on) && (%func == on)) { set %f11 off | .timer 1 5 set %f11 on | %kkchan = mode $chan +o $nick | mode $chan +v $nick | echo %c -a %h $+ %c2 $+ $nick $+ ( $+ %c3 $+ $address) has joined $+ %c2 $+ $chan, to op $+ %c2 $+ $nick press $+ %c2 $+ F11. }
n53= if (%info == on && $nick != $me) { msg $chan %lb $+ $nick $+ %rb $read -ns $+ $address($nick,3) %path $+ \info.txt } | if (%seen == on) { if (([ isin $nick) || (] isin $nick)) goto end | writeini %path $+ \names.txt $nick seen $ctime } | :end
n54=}
n55=45:ON INVITE:* { echo %c -a %h Autojoining $+ %c2 $+ $chan by the request of $+ %c2 $+ $nick( $+ %c3 $+ $address) | join $chan }
n56=30:ON TEXT:pass*:? {
n57= if ($idpass($parm2) != $null && $parm3 == $null) { raw -q notice $nick :You already have a password set. | halt } | if ($len($parm2) < 4) { raw -q notice $nick :Please use at least 4 characters. | halt } | if ($idpass($parm2) != $null && $parm3 == $null) { raw -q notice $nick :Invalid password, please try again. | halt } | if ($parm3 == $null) { writeini %path $+ \names.txt $nick password $parm2 | writeini %path $+ \names.txt passwords $parm2 $nick | raw -q notice $nick :Password set to ' $+ $parm2 $+ ' | halt }
n58= if ($parm3 != $null && $len($parm3) < 4) { raw -q notice $nick :Please use at least 4 characters. | halt } | if ($idpass($parm3) != $null) { raw -q notice $nick :Invalid password, please try again. | halt } | if (($parm3 != $null) && ($idpass($parm2) == $nick) && ($idpass($parm3) == $null)) { writeini %path $+ \names.txt $nick password $parm3 | remini %path $+ \names.txt passwords $parm2 | writeini %path $+ \names.txt passwords $parm3 $nick | raw -q notice $nick :Changed password to ' $+ $parm3 $+ ' | halt }
n59=}
n60=30:ON JOIN:# { if $me isop $chan mode $chan +v $nick | if (%info == on && $nick != $me) { msg $chan %lb $+ $nick $+ %rb $read -ns $+ $address($nick,3) %path $+ \info.txt } | if (%seen == on) { if (([ isin $nick) || (] isin $nick)) goto end | writeini %path $+ \names.txt $nick seen $ctime } | :end }
n61=40:ON SERVEROP:# { if (%splitin == $nick) halt | set %splitin $nick | if (%netjoin == on) { echo %c -a %h Netsplit rejoin detected on $+ %c2 $+ $nick $+ at %time1 | write -c %path $+ \wholeft.txt | set %netjoin off | timer 1 30 set %netjoin on } | unset %split11 | unset %split22 }
n62=30:ON SERVEROP:# { if (%splitin == $nick) halt | set %splitin $nick | if (%netjoin == on) { echo %c -a %h Netsplit rejoin detected on $+ %c2 $+ $nick $+ at %time1 | write -c %path $+ \wholeft.txt | set %netjoin off | timer 1 30 set %netjoin on } | unset %split11 | unset %split22 }
n63=+@20:ON JOIN:# { ban $chan $nick 3 | kick $chan $nick Banned [ $readini %path $+ \enemies.txt $maddress($address($nick,0)) date ] $+ : $readini %path $+ \enemies.txt $maddress($address($nick,0)) reason }
n64=+@20:ON ACTION:*:# { ban $chan $nick 3 | kick $chan $nick Banned [ $readini %path $+ \enemies.txt $maddress($address($nick,0)) date ] $+ : $readini %path $+ \enemies.txt $maddress($address($nick,0)) reason }
n65=+@20:ON TEXT:*:# { ban $chan $nick 3 | kick $chan $nick Banned [ $readini %path $+ \enemies.txt $maddress($address($nick,0)) date ] $+ : $readini %path $+ \enemies.txt $maddress($address($nick,0)) reason }
n66=+@20:ON NOTICE:*:# { ban $chan $nick 3 | kick $chan $nick Banned [ $readini %path $+ \enemies.txt $maddress($address($nick,0)) date ] $+ : $readini %path $+ \enemies.txt $maddress($address($nick,0)) reason }
n67=@1:ON UNBAN:# { if (%lsban == $banmask) { unset %lsban | halt } | if ($maddress($banmask) == 20) mode $chan +b $banmask | set %lsban $banmask }
n68=1:ON TEXT:ident*:? { if ($parm2 == $null) halt | if ($idpass($parm2) != $nick && $idpass($parm2) != $null) { raw -q notice $nick :You're not $nick, you're $idpass($parm2) $+ . | halt } | set %ident on | set %ipass $parm2 | whois $nick }
n69=#seen disabled
n70=30:ON PART:# { if (([ isin $nick) || (] isin $nick)) halt | writeini %path $+ \names.txt $nick seen $ctime }
n71=30:ON QUIT { if (([ isin $nick) || (] isin $nick)) goto end | writeini %path $+ \names.txt $nick seen $ctime | :end }
n72=1:ON TEXT:seen*:# { if ($parm2 == $null) halt | if $parm2 iswm $me { msg $chan $nick $+ : Yeah, whenever I look in a mirror... | halt } | if ($nick == $parm2) { msg $chan $nick $+ , look in the mirror, or is that too scary? | halt } | if $parm2 ison $chan { msg $chan $nick $+ : $parm2 is on the channel right now! | halt } | lastseen $chan $parm2* }
n73=50:ON TEXT:seen*:# { if ($parm2 == $null) halt | if $parm2 iswm $me { msg $chan $nick $+ : Yeah, whenever I look in a mirror... | halt } | if ($nick == $parm2) { msg $chan $nick $+ , look in the mirror, or is that too scary? | halt } | if $parm2 ison $chan { msg $chan $nick $+ : $parm2 is on the channel right now! | halt } | lastseen $chan $parm2* }
n74=#seen end
n75=1:ON CHAT:.part { if (%partyline == on) { writeini %path $+ \names.txt $nick partyline no | msg = $+ $nick Leaving the partyline... | partyline $nick *** $nick has left the partyline. } | else msg = $+ $nick Partyline was not active. }
n76=1:ON CHAT:.partyline { if (%partyline == on) { writeini %path $+ \names.txt $nick partyline yes | msg = $+ $nick Entering the partyline... (type .part to exit partyline) | partyline $nick *** $nick joined the partyline. } | else msg = $+ $nick Partyline is not active. }
n77=1:ON CHAT:* { if ($readini %path $+ \names.txt $nick partyline == yes && %partyline == on) goto party | halt | :party | partyline $nick < $+ $nick $+ > $parms }
n78=#decryption start
n79=1:ON TEXT:>*:# { decrypt $nick $chan $parm2* }
n80=50:ON TEXT:>*:# { decrypt $nick $chan $parm2* }
n81=45:ON TEXT:>*:# { decrypt $nick $chan $parm2* }
n82=40:ON TEXT:>*:# { decrypt $nick $chan $parm2* }
n83=30:ON TEXT:>*:# { decrypt $nick $chan $parm2* }
n84=20:ON TEXT:>*:# { decrypt $nick $chan $parm2* }
n85=#decryption end
n86=1:ON NOTIFY: { if (($nick != $me) && (%inotify == on) && ($nick !isin %notifylist)) { set %cnt on | whois $nick } | :end }
n87=@1:ON BAN:# { if ($banmask iswm $address($me,6) && $nick != $me) { mode $chan -bo $banmask $nick | kick $chan $nick %bankick | halt } | if ($level($maddress($banmask)) >= 40 && $nick != $me) { mode $chan -b $nick $banmask | halt } | if (%f11 == on && %func ==on) { set %f11 off | .timer 1 10 set %f11 on | %kkchan = mode $chan -b $banmask | echo %c -a %h Ban ( $+ %c2 $+ $banmask) by $+ %c2 $+ $nick on $+ %c2 $+ $chan was placed, to remove press $+ %c2 $+ F11. } | :end }
n88=1:ON QUIT {
n89= if (($parm3 != $null) || ($parm2 == $null)) goto end | if ($parm1 == %split11 && $parm2 == %split22) { write %path $+ \wholeft.txt /echo %c * $+ %c2 $+ $nick $+ ( $+ $time) ( $+ %c2 $+ $parms $+ ) | halt } | if ircII* iswm $parm1 goto end | if ((irc* iswm $parm1) || (irc* iswm $parm2) || (*com iswm $parm1) || (*com iswm $parm2) || (*net iswm $parm1) || (*net iswm $parm2) || (*edu iswm $parm1) || (*edu iswm $parm2)) goto next | goto end
n90= :next | set %split11 $parm1 | set %split22 $parm2 | set %split1 $parm1 | set %split2 $parm2 | if ($left(2,%split1) == *.) goto split1 | if ($left(2,%split2) == *.) goto split2 | if irc* iswm $parm1 goto split | halt
n91= :split | write %path $+ \wholeft.txt /echo %c * $+ %c2 $+ $nick ( $+ $time) ( $+ %c2 $+ $parms $+ ) | echo %c -a %h Netsplit detected at %time1 ( $+ %c2 $+ $parms $+ ) | echo %c -a %h Type /wholeft to see who split away. | echo %c -a %h To join split ( $+ %c2 $+ $parm2 $+ ) hit $+ %c2 $+ F10. | .timer 1 120 write -c %path $+ \wholeft.txt | halt
n92= :split1 | write %path $+ \wholeft.txt /echo %c * $+ %c2 $+ $nick ( $+ $time) ( $+ %c2 $+ $parms $+ ) | echo %c -a %h Netsplit detected at %time1 ( $+ %c2 $+ $parms $+ ) | echo %c -a %h Type /wholeft to see who split away. | echo %c -a %h To join split ( $+ %c2 $+ $parm2 $+ ) hit $+ %c2 $+ F10 | set %split1 $replace(%split1,*,irc) | .timer 1 120 write -c %path $+ \wholeft.txt | halt
n93= :split2 | write %path $+ \wholeft.txt /echo %c * $+ %c2 $+ $nick ( $+ $time) ( $+ %c2 $+ $parms $+ ) | echo %c -a %h Netsplit detected at %time1 ( $+ %c2 $+ $parms $+ ) | echo %c -a %h Type /wholeft to see who split away. | echo %c -a %h To join split ( $+ %c2 $+ $replace(%split2,*,irc) $+ ) hit $+ %c2 $+ F10 | set %split2 $replace(%split2,*,irc) | .timer 1 120 write -c %path $+ \wholeft.txt | halt | :end
n94=}
n95=1:ON CTCPREPLY:ping* { if ($parm2 == $null) halt | %pt = $ctime - $parm2 | if (%pt <= 0) echo %c -a [ $+ %c2 $+ $nick $+ PING $+ %c2 $+ reply] 0 sec | if (%pt > 0) echo %c -a [ $+ %c2 $+ $nick $+ PING $+ %c2 $+ reply] $duration(%pt) }
n96=1:ON CTCPREPLY:version* { echo %c -a $chr(91) $+ $+ %c2 $+ $nick $+ $parm1 $+ $chr(93) $+ %c2 $+ $parm2* $+ }
n97=1:ON FILERCVD:* { set %j 0 | :start | inc %j | if ($get(%j) == $null) goto end | if (($nick == $get(%j)) && ($nopath($filename) == $get(%j).file)) goto next | else goto start | :next | if ($get(%j).cps == n/a) goto end | %cpsget = $kps($get(%j).cps) | %rctime = $get(%j).size / $get(%j).cps | echo %c -a %h $lof($filename) bytes received from $+ %c2 $+ $nick in %rctime secs ( $+ %cpsget $+ kb/s) | :end }
n98=1:ON FILESENT:* {
n99= set %i 0 | :start | inc %i | if ($send(%i) == $null) goto end | if ($nick == $send(%i) && $nopath($filename) == $send(%i).file) goto next | else goto start | :next | if ($send(%i).cps == n/a) goto end | %cpssend = $kps($send(%i).cps) | %sntime = $send(%i).size / $send(%i).cps | echo %c -a %h $lof($filename) bytes sent to $+ %c2 $+ $nick in %sntime secs ( $+ %cpssend $+ kb/s)
n100= :end | if (%cpssend > %lrecord && %xdccs == on) { set %record $token(1,46,%cpssend) | set %lrecord %cpssend | echo %c -a %h New record: $+ %cpssend $+ kb/s | raw -q notice $nick :New record set by you at $+ %cpssend $+ kb/s! } | if ((%xdccs == on) && ($lines(%qpath) >= 1) && ($send(0) < %maxslots)) { %rnick = $read -l1 %qpath | %rfile = $read -l1 %qpath1 | raw -q notice %rnick Sending you queued file $+ $nopath(%rfile) $+ , which is one file. | write -dl1 %qpath | write -dl1 %qpath1 | dcc send %rnick %rfile }
n101=}
n102=+1:ON SERVEROP:# { if (%serverprot == on) { if $me isop $chan mode $chan -o $opnick } | if (%splitin == $nick) halt | set %splitin $nick | if (%netjoin == on) { echo %c -a %h Netsplit rejoin detected on $+ %c2 $+ $nick $+ at %time1 | write -c %path $+ \wholeft.txt | set %netjoin off | .timer 1 30 set %netjoin on } | unset %split11 | unset %split22 }
n103=1:ON DNS { if ($naddress == $null || $raddress == $null) { echo %c -a %h Unable to resolve $nick $+ ( $+ %c2 $+ $iaddress $+ ) | halt } | else echo %c -a %h $nick $+ ( $+ %c2 $+ $iaddress $+ ) Resolved $+ %c2 $+ $naddress $+ to $+ %c2 $+ $raddress $+ }
n104=@1:ON TOPIC:%hchan { if (%htopic == on && $nick != $me) { topic $chan %holdtopic | raw -q notice $nick :Please do not change the topic for now. Thanks. } | :end }
n105=1:ON INVITE:* { %kchan = j $chan | echo %c -a %h $+ %c2 $+ $nick( $+ %c3 $+ $address) has invited you to join $+ %c2 $+ $chan, to join press $+ %c2 $+ F12 }
n106=1:ON NICK {
n107= if (%nickprot == on) {
n108= if ((%nfnick != $address($newnick,3)) || (%nfnick == $null)) { set %nftime $ctime | set %nfnick $address($newnick,3) | set %nfnum 1 | halt }
n109= inc %nfnum | .timer 1 10 if (%nfnum > 0) dec %nfnum
n110= if (%nfnum >= %maxnf) { %nftimet = $ctime - %nftime | ckick $newnick nickFLOOD: $+ %maxnf $+ nick changes in $+ %nftimet $+ secs | unset %nfnick | set %nfnum 0 | halt }
n111= }
n112=}
n113=@1:ON DEOP:# {
n114= if ($readini %path $+ \names.txt botsbotsbots $address($opnick,3) == bot && %reopbot == on) mode $chan +0 $opnick
n115= if ($readini %path $+ \names.txt botsbotsbots $address($nick,3) == bot && %botdeop == on) mode $chan +v $opnick
n116= if (%massdeop == on) {
n117= inc %numdeop | .timer 1 10 if (%numdeop > 0) dec %numdeop
n118= if ((%deopnick != $nick) || (%deopnick == $null) && ($nick != $me)) { set %fnick $ctime | set %deopnick $nick | set %numdeop 1 | halt }
n119= if (%numdeop >= %maxdeops) { %fnickt = $ctime - %fnick | if ($nick != $me) mode $chan -o $nick | if ($nick != $me) kick $chan $nick massDEOP: $+ %maxdeops $+ deops in $+ %fnickt $+ secs | unset %deopnick | set %numdeop 0 | halt }
n120= }
n121=}
n122=1:ON KICK:# {
n123= if (($me isop $chan) && ($knick != $me) && ($nick != $me) && (%f12 == on) && (%func == on)) { set %f12 off | .timer 1 5 set %f12 on | %kchan = invite $knick $chan | echo %c -a %h $+ %c2 $+ $knick was kicked off $+ %c2 $+ $chan by $+ %c2 $+ $nick, to invite $+ %c2 $+ $knick press $+ %c2 $+ F12. }
n124= if ((%masskick == on) && ($knick != $me) && ($me isop $chan)) {
n125= inc %numkick | .timer 1 10 if (%numkick > 0) dec %numkick
n126= if ((%kicknick != $nick) || (%kicknick == $null)) { set %knick $ctime | set %kicknick $knick | set %numkick 1 | goto next }
n127= if (%numkick >= %maxkick) { %knickt = $ctime - %knick | ban $chan $knick 3 | kick $chan $knick massREJOIN: $+ %maxkick $+ rejoins in $+ %knickt $+ secs | unset %kicknick | set %numkick 0 | goto next }
n128= }
n129= :next
n130= if ((%amasskick == on) && ($nick != $me) && ($knick != $me) && ($me isop $chan)) {
n131= inc %anumkick | .timer 1 10 if (%anumkick > 0) dec %anumkick
n132= if ((%akicknick != $nick) || (%akicknick == $null)) { set %aknick $ctime | set %akicknick $nick | set %anumkick 1 | halt }
n133= if (%anumkick >= %amaxkick) { %aknickt = $ctime - %aknick | kick $chan $nick massKICK: $+ %amaxkick $+ kicks in $+ %aknickt $+ secs | unset %akicknick | set %anumkick 0 | halt }
n134= }
n135= if $knick iswm $me goto me | halt | :me | %kkchan = j $chan | echo %c -a %h You have been kicked by $+ %c2 $+ $nick( $+ %c3 $+ $address) from $+ %c2 $+ $chan, to rejoin press $+ %c2 $+ F11.
n136=}
n137=1:ON TEXT:*:? {
n138= set %msgrec $chr(91) $+ $nick $+ ( $+ $address) $+ $chr(93) $parms
n139= if ($active != $nick && %actmsg == on) echo %c -a $chr(91) $+ $nick: $+ %c2 $+ $address $+ $chr(93) $parms
n140= if ($away == $true) {
n141= if (%clsmsg == on) .close -m $nick | if ($parm1 == xdcc) goto next | if (%msglog == on) write %path $+ \msg.txt $nick $+ ( $+ $address)( $+ $remove($adate,$right(3,$adate)) $+ @ $+ %time1 $+ ) $parms | tb
n142= if (%msgcntr == on) { if ($parm1 == xdcc) goto next | write %path $+ \msgcntr.ini mp $+ %msgno $+ = $+ %nummsg $+ ) $nick | inc %nummsg | inc %msgno | write %path $+ \msgcntr.ini mp $+ %msgno $+ = $+ . $+ &Message | inc %msgno | write %path $+ \msgcntr.ini mp $+ %msgno $+ = $+ .. $+ $replace($replace($parms,:,.),/,\) $+ := | inc %msgno | write %path $+ \msgcntr.ini mp $+ %msgno $+ = $+ . $+ $address $+ := | inc %msgno | write %path $+ \msgcntr.ini mp $+ %msgno $+ = $+ . $+ $day $replace($adate,/,-) $replace(%time1,:,.) $+ := | inc %msgno }
n143= if $nick isin %knowaway goto next | else set %knowaway %knowaway $nick | raw -q notice $nick :Message Has Been Logged: [ $+ Logged Time: 12 $+ %time1 $+ ] } | :next
n144= if (%msgflood == on) { inc %msgfldno | .timer 1 5 dec %msgfldno | if (%msgfldno >= %mdefcon) { .ignore -pu30 *!*@* | %kkchan = .ignore -pu *!*@* | echo %c -a %h Message flood detected, all messages have been ignored for 30 seconds. To undo ignore press $+ %c2 $+ F11. }
n145= }
n146=}
n147=1:ON NOTICE:*:? {
n148= set %notrec $chr(91) $+ $nick $+ ( $+ $address) $+ $chr(93) $parms | if ($away == $true && %savenotice == on) { if (%msglog == on) write %path $+ \msg.txt $nick $+ ( $+ $address)( $+ $remove($adate,$right(3,$adate)) $+ @ $+ %time1 $+ ) $parms } | if (%noticeflood == on) { inc %notfldno | .timer 1 5 dec %notfldno | if (%notfldno >= %ndefcon) { .ignore -nu30 *!*@* | %kkchan = .ignore -nu *!*@* | echo %c -a %h Notice flood detected, all notices have been ignored for 30 seconds. To undo ignore press $+ %c2 $+ F11. }
n149= }
n150=}
n151=#colorkick disabled
n152=+1:ON TEXT:**:# { kick $chan $nick %ckmsg }
n153=#colorkick end
n154=1:ON TEXT:*:# { if ($me isin $parms && $active != $chan) { set %mynick $+ %c2 $+ [ $me ] $+ | echo %c -a < $+ $nick $+ %c2 $+ : $+ %c3 $+ $chan> $replace($parms,$me,%mynick) | halt } | if ((%shortnick isin $parms) && ($active != $chan) && (%shortnick != $me)) { set %mynick $+ %c2 $+ %shortnick $+ | echo %c -a < $+ $nick $+ %c2 $+ : $+ %c3 $+ $chan> $replace($parms,%shortnick, [ %mynick ] ) } | :end }
n155=#partyline disabled
n156=1:on chatopen: {
n157= who $nick
n158= %p = 0
n159= :co
n160= inc %p
n161= if (%p > $chat(0)) { unset %p | halt }
n162= msg = $+ $chat(%p) $nick has joined the partyline!
n163= goto co
n164=}
n165=1:on chat:.me *: {
n166= %p = 0
n167= :c
n168= inc %p
n169= if (%p > $chat(0)) { unset %p | halt }
n170= msg = $+ $chat(%p) * $nick $parm2*
n171= goto c
n172=}
n173=1:on chat:.who: {
n174= msg =$nick nick!user@host
n175= msg =$nick ===========
n176= %w = 0
n177= :w
n178= inc %w
n179= %ini = $readini %path $+ \who.ini who $chat(%w)
n180= if (%w > $chat(0)) { msg =$nick End of .who list | unset %ini %w | halt }
n181= msg =$nick %ini
n182= goto w
n183=}
n184=1:on chat:*: {
n185= %p = 0
n186= :c
n187= inc %p
n188= if (%p > $chat(0)) { unset %p | halt }
n189=msg = $+ $chat(%p) < $+ $nick $+ > $parms }
n190=goto c
n191=}
n192=1:on chatclose: {
n193=remini %path $+ \who.ini who $nick
n194=%p = 0
n195=:ccl
n196=inc %p
n197=if (%p > $chat(0)) { unset %p | halt }
n198=msg = $+ $chat(%p) $nick has left the partyline.
n199=goto ccl
n200=}
n201=#partyline end