Pong — File Browser
Pongv1.1 / Pongv1.1 / PONG / REMOTE.INI
REMOTE.INI — 11.19 KB — Download this file
[Variables]
n0=------------------------------
n1=%Version ¤Pong 1.1¤
n2=%filemanager WINFILE.EXE
n3=%pager.status Pager on
n4=;-------------------------------
[Commands]
n0=+10:antiidle:/halt
n1=1:SOUND:!
n2=1:DCC SEND: { pecho DCC send: $parm3 ( $+ $kilbyte($parm6) $+ ) From $Nick $+ . Shift+F2 to run, Ctrl+F2 to del. | write $mircdirsystem $+ \dcclog.txt $parm3 ( $+ $kilbyte($parm6) $+ ) from $nick $Remove($address($nick,1),*!*) - $atime - $adate | set %lastdcc $getdir $+ $parm3 }
n3=#pager start
n4=1:PAGE: {
n5= .timer3333 %pager.number 4 /wavplay page.wav
n6= pecho Page from $nick. Press F1 to halt sound. ( $+ $atime $+ )
n7= .notice $nick $chr(1) Page Pager Received. $chr(1)
n8=}
n9=#pager end
n10=#pager2 disabled
n11=9:PAGE: {
n12= .timer3333 %pager.number 4 /wavplay page.wav
n13= pecho Page from $nick. Press F1 to halt sound. ( $+ $atime $+ )
n14= .notice $nick $chr(1) Page Pager Received. An endless loop of wavs are playing now, so no point in paging me again :) $chr(1)
n15=}
n16=1:PAGE:/.notice $nick $Chr(1) Page Pager Disabled. $Chr(1)
n17=#pager2 end
n18=#flood1 start
n19=1!:*:{
n20= if $parm1 != DCC {
n21= if (%ctcpecho == 1) echo 2 -a ¤¤¤ $parm1 from $nick $+ ( $+ $address $+ )
n22= if (%flood.ctcp > %flood.number) { if (%ctcpecho == 1) pecho Mass Ignore for 20 secs | .ignore -tu20 * }
n23= inc %flood.ctcp
n24= .timer3355 1 15 /unset %flood.ctcp
n25= }
n26= else {
n27= if (%ctcpecho == 1) echo 2 -a ¤¤¤ $parm1 $parm2 from $nick $+ ( $+ $address $+ )
n28= if (%flood.dcc > %flood.number) { pecho Mass Ignore for 20 secs | .ignore -tu20 * }
n29= inc %flood.dcc
n30= .timer3356 1 15 /unset %flood.dcc
n31= }
n32=}
n33=#flood1 end
n34=#flood2 disabled
n35=+2!:*:/halt
n36=1!:*:{
n37= if $parm1 != DCC {
n38= if (%ctcpecho == 1) echo 2 -a ¤¤¤ $parm1 from $nick $+ ( $+ $address $+ )
n39= if (%flood.ctcp > %flood.number) { if (%ctcpecho == 1) pecho Mass Ignore for 20 secs | .ignore -tu20 * }
n40= inc %flood.ctcp
n41= .timer3355 1 15 /unset %flood.ctcp
n42= .auser 2 $nick
n43= .timer 1 10 .ruser 2 $nick
n44= }
n45= else {
n46= if (%ctcpecho == 1) echo 2 -a ¤¤¤ $parm1 $parm2 from $nick $+ ( $+ $address $+ )
n47= if (%flood.dcc > %flood.number) { pecho Mass Ignore for 20 secs | .ignore -tu20 * }
n48= inc %flood.dcc
n49= .timer3356 1 15 /unset %flood.dcc
n50= .auser 2 $nick
n51= .timer 1 10 .ruser 2 $nick
n52= }
n53=}
n54=#flood2 end
[Events]
n0=;----------------------------[system
n1=+10:ON CTCPREPLY:*lagtest.ping*:/.notice $me $chr(1) lagtest.pong $parm2 $chr(1) | /halt
n2=+10:ON CTCPREPLY:*lagtest.pong*:{ %lagtest = $ctime - $parm2 | pecho Current Lag: %lagtest | halt }
n3=+10:ON CTCPREPLY:*lagcheck.ping*:/.notice $me $chr(1) lagcheck.pong $ctime $chr(1) | /halt
n4=+10:ON CTCPREPLY:*lagcheck.pong*:{ %lagcheck = $ctime - $parm2 | titlebar %version - $atime - Lag: %lagcheck - $server | halt }
n5=+10:ON JOIN:#:/ialupdate $chan
n6=+10:ON NICK: { if ($nick == $me) { /.auser $level($nick) $newnick | /.ruser $level($nick) $nick } }
n7=;------------------------------[The main things
n8=1:ON BAN:#:{ if (($nick != $me) && ($me isop $chan)) {
n9= if ($nick == $ial($banmask,1).nick) /halt
n10= if ($ial($banmask,1).nick == $me) { .raw mode $chan -ob+b $nick $banmask $address($nick,3) | kick $chan $nick Don't ban me :P }
n11= if ($level($ial($banmask,1).nick) > $level($nick)) { .raw mode $chan -ob+o $nick $banmask $ial($banmask,1).nick | .notice $nick Don't ban $ial($banmask,1).nick | pecho $nick tried to ban $ial($banmask,1).nick }
n12= }
n13=}
n14=1:ON DEOP:#:{ if (($nick != $me) && ($me isop $chan)) {
n15= if ($nick == $opnick) /halt
n16= if ($level($opnick) > $level($nick)) { .raw mode $chan -o+o $nick $opnick | .notice $nick Don't deop $opnick | pecho $nick deoped $opnick }
n17= }
n18=}
n19=1:ON KICK:#:{ if (($nick != $me) && ($me isop $chan)) {
n20= if ($nick == $knick) /halt
n21= if ($level($knick) > $level($nick)) { .raw mode $chan -o+o $nick $knick | .notice $nick Don't deop $knick | pecho $nick deoped $knick }
n22= }
n23=}
n24=1:ON JOIN:#: {
n25= set %lop [ $+ [ $chan ] ] $Nick
n26= If ((%chanclonedct == 1) && ($me isop $chan)) {
n27= if (%system.masscloneprot == $address($nick,3)) { .raw mode $chan +b-o $address($nick,3) $nick | kick $chan $nick ¤Mass clone protection¤ }
n28= elseif ($cspecify($nick, $chan) > %clone.max) { .raw mode $chan +b-o $nick | kick $chan $nick No More Then %clone.max Clones Allowed | set %system.masscloneprot $address($nick,3) | .timer 1 60 unset %system.masscloneprot }
n29= elseif (($cspecify($nick, $chan) == %clone.max) && (%system.clonealert == 1)) { Echo 4 $chan ¤¤¤ $Nick ( $+ $address($nick,3) $+ ) is a clone. }
n30= }
n31= if (((%pervkick.status == on) && ($pervert($nick) == $true) && ($me isop $chan))) { raw -q mode $chan +b-o $nick $nick | kick $chan $nick Change your nick, Then join. }
n32= if ($level($address($nick,3)) == 9) { .auser 9 $nick | if ($me isop $chan) { mode $chan+o $nick } }
n33=}
n34=1:ON TEXT:*:?:{
n35= %system.tempnick = %system.notice.nick. [ $+ [ $nick ] ]
n36= if (((%away.status == on) && (%away.notice == on) && (%system.tempnick == $null))) { if (%away.why != $null) .notice $nick is away ( $+ %away.Why $+ ) Away since %away.time time now $atime $+ . %pager.status | else .notice $nick is Away. away since %away.time time now $atime $+ . %pager.status | %system.notice.nick. [ $+ [ $nick ] ] = 1 }
n37= if ((%away.log == on) && (%away.status == on)) { write $mircdirsystem $+ \awaylog.txt $atime - $nick $+ $chr(91) $+ $address $+ $chr(93) $parms | set %away.log.msg 1 }
n38=}
n39=1:ON PART:#:{ unset %ft. [ $+ [ $nick ] ] | unset %ftn. [ $+ [ $nick ] ] | if ($level($nick) == 9) /.ruser 9 $nick }
n40=1:ON QUIT:{ if ((($chr(91) isin $nick) || (.net isin $parms) || (.com isin $parms))) halt | elseif ($chr(93) isin $nick) halt | else /writeini $mircdirsystem $+ \lastquit.ini lastquit $nick *** $nick has quit IRC ( $+ $parms $+ ) / $atime | unset %ft. [ $+ [ $nick ] ] | unset %ftn. [ $+ [ $nick ] ] | if ($level($nick) == 9) /.ruser 9 $nick }
n41=1:ON NICK:{
n42= if (((%pervkick.status == on) && ($pervert($newnick) == $true) && ($me isop $chan))) { raw -q mode $chan +b-o $nick $nick | kick $chan $newnick Change your nick, Then join. }
n43= if (%nickflood.status == on) {
n44= if ($address($newnick,3) == %nickflood.addy) {
n45= if (%nickflood.number > 3) { .raw mode $chan -o+b $newnick | kick $chan $newnick Nickflooding | unset %nickflood.number | halt }
n46= inc %nickflood.number 1
n47= .timer8833 1 10 unset %nickflood.number
n48= }
n49= else %nickflood.addy = $address($newnick,3)
n50= }
n51=}
n52=9:ON NICK:{
n53= .auser 9 $newnick
n54= .ruser 9 $nick
n55=}
n56=1:ON ACTION:*:#: {
n57= if ((%pervkick.status == on) && ($me isop $chan)) { if ($pervert($parms) == $true) /kick $chan $nick Watch your mouth }
n58=}
n59=1:ON TEXT:*:#: {
n60= if ((%pervkick.status == on) && ($me isop $chan)) { if ($pervert($parms) == $true) /kick $chan $nick Watch your mouth }
n61= if ((%Spamprot.status == on) && ($me isop $chan)) {
n62= %ftblarg = %ft. [ $+ [ $nick ] ]
n63= if (%ftblarg == $parms) {
n64= inc %ftn. [ $+ [ $nick ] ] 1
n65= %ftnblarg = %ftn. [ $+ [ $nick ] ]
n66= if (%ftnblarg => 3) {
n67= raw mode $chan -o+b $nick $address($nick,3)
n68= kick $chan $nick ¤Pong¤ Flood protection.
n69= if ($active != $chan) /pecho Warning: $nick was spaming $chan.
n70= unset %ft. [ $+ [ $nick ] ]
n71= unset %ftn. [ $+ [ $nick ] ]
n72= }
n73= }
n74= else {
n75= set %ft. [ $+ [ $nick ] ] $parms
n76= unset %ftn. [ $+ [ $nick ] ]
n77= }
n78= }
n79=}
n80=;-----------------------------[
n81=1:ON INVITE:#: { pecho $Nick invited you to join $chan $+ . Press Shift+F8 to join. Press Ctrl+F8 to decline. | set %system.invite.chan $chan | Set %system.invite.nick $nick }
n82=1:ON CTCPREPLY:PING*: { %ping = $ctime - $parm2 | echo 4 -a [ $+ $nick PING reply]: %ping seconds | unset %ping }
n83=1!:ON CTCPREPLY:*: pecho $chr(91) $+ $nick $parm1 Reply $+ $chr(93) $parm2*
n84=;-----------------System
n85=1:ON FILERCVD:*:/.wavplay b5xfer.wav
n86=1:ON CHAT:ping:/msg =$Nick pong!
n87=1:ON CHAT:*?@ABCDEFGHIJKLMNOPQ*:/close -c $nick | /notice $me $nick tried to port 19 you, that no good sob :P
n88=;----------------------[Pager
n89=#pager start
n90=1:ON CHAT:PAGE: {
n91= .timer3333 0 4 /wavplay page.wav
n92= .timer3334 0 30 pecho Page from $nick
n93= pecho Page from $nick. Press F1 to halt sound.
n94= msg =$nick Page Pager Received. An endless loop of wavs are playing now, so no point in paging me again :)
n95=}
n96=1:ON TEXT:PAGE:?: {
n97= .timer3333 0 4 /wavplay page.wav
n98= .timer3334 0 30 pecho Page from $nick
n99= pecho Page from $nick. Press F1 to halt sound.
n100= .notice $nick $chr(1) Page Pager Received. An endless loop of wavs are playing now, so no point in paging me again :) $chr(1)
n101=}
n102=#pager end
n103=1:ON CHAT:PAGE: { .notice $nick $chr(1) Page Sorry, $nick $+ . I turned my pager off. Leave a msg and I'll try to get back to you. $chr(1) }
n104=1:ON TEXT:PAGE:?: { .notice $nick $chr(1) Page Sorry, $nick $+ . I turned my pager off. Leave a msg and I'll try to get back to you. $chr(1) }
[Raw]
n0=311:*:/if ((%whoisecho == on) && (%wecho == 1)) pecho $parm2 is $parm3 $+ @ $+ $parm4*
n1=312:*:/if ((%whoisecho == on) && (%wecho == 1)) pecho $parm2 is on $parm3
n2=313:*:/if ((%whoisecho == on) && (%wecho == 1)) pecho $parm2*
n3=301:*:/if ((%whoisecho == on) && (%wecho == 1)) pecho $parm2 is away: $parm3*
n4=319:*:/if ((%whoisecho == on) && (%wecho == 1)) pecho $parm2 is on $parm3*
n5=317:*:/if ((%whoisecho == on) && (%wecho == 1)) pecho Idle: $duration($parm3) Signed on $asctime($parm4)
n6=318:*:/if ((%whoisecho == on) && (%wecho == 1)) { pecho End of whois. | set %wecho 0 }
n7=#Chaninfo disabled
n8=352:*: { if (G isin $parm7) { inc %ci.away 1 } | if ($chr(42) isin $parm7) { inc %ci.ircop 1 } | halt }
n9=367:*:{ inc %ci.bans 1 | halt }
n10=368:*:{ halt }
n11=315:*:{ .disable #Chaninfo | cid $parm2 | halt }
n12=#ChanInfo end
n13=#munban disabled
n14=367:*:{
n15= mode $parm2 -b $parm3
n16=}
n17=368:*: { .disable #munban | echo 4 done | halt }
n18=#munban end
n19=#ialupdate disabled
n20=352:*:{ halt }
n21=315:*:{ .disable #ialupdate | ialevel $parm2 | halt }
n22=#ialupdate end
n23=#mainserverlist disabled
n24=364:*:/write $mircdirsystem\servers.txt $parm2
n25=365:*:{ .disable #mainserverlist | pecho Finished generating default server list | halt }
n26=#mainserverlist end
n27=#linklooker disabled
n28=364:*:/write $mircdirsystem\links.txt $parm2
n29=365:*: {
n30= unset %ll.i
n31= unset %ll.server
n32= :re
n33= inc %ll.i
n34= set %ll.server $read -l $+ %ll.i $mircdirsystem\servers.txt
n35= if (%ll.server == $null) { .disable #linklooker | pecho Link looker done scanning for splits | unset %ll.i | halt | halt }
n36= if ($read -s $+ %ll.server $mircdirsystem\links.txt == $null) {
n37= pecho Split detected: %ll.server
n38= }
n39= goto re
n40=}
n41=#linklooker end