Pong — File Browser
Pongv1.1 / Pongv1.1 / PONG / ALIASES.INI
ALIASES.INI — 23.82 KB — Download this file
[Aliases]
n0=;---------------------[Function Keys
n1=f1 { .Timer3333 off | .Timer3334 off | pecho Pager halted }
n2=f3 /back
n3=f2 { pecho Last file: %lastdcc }
n4=sf2 { run %lastdcc }
n5=cf2 { :loop | set %killlastdcc $$?="Kill the last file you were sent? (Type Y or N)" | if (%killlastdcc == y) { remove %lastdcc | halt } | elseif (%killlastdcc == n) { unset %killlastdcc | halt } | else goto loop }
n6=f4 { /mode # +o %lop [ $+ [ # ] ] }
n7=sf4 { /kb %lop [ $+ [ # ] ] }
n8=cf4 { /mode # +v %lop [ $+ [ # ] ] }
n9=f5 /run $mircdirmbind.exe \002
n10=sf5 /run $mircdirmbind.exe \031
n11=cf5 /run $mircdirmbind.exe \022
n12=f6 /mop
n13=sf6 /mdop
n14=cf6 /mv
n15=f8 { if ($me != %default.nick) { nick %default.nick } | else beep 1 1 }
n16=sf8 { /join %system.invite.chan | /unset %system.invite.chan }
n17=cf8 { /reply %system.invite.nick DECLINE $me has declined to join %system.invite.chan }
n18=f9 /run $mircdirmbind.exe \058\222
n19=sf9 /run $mircdirmbind.exe \172\095\172
n20=F12 /run $mircdirreadme.txt
n21=;-----------------------------------[Chan Commands
n22=cycle /raw -q part # | /raw -q join #
n23=on { if ($me isop #) /onotice $chr(91) $+ # $+ \ops $+ $chr(93) *1 | else /pecho Error: You are not an op on # $+ . }
n24=k { if ($me !isop #) { pecho Error: You are not an op on # | halt } | if ($1 !ison #) { pecho Error: $1 is not on # | halt } | if ($2 != $null) { kick # $$1 *2 | else kick # $$1 %default.kick } }
n25=kb { if ($me !isop #) { pecho Error: You are not an op on # | halt } | if ($1 !ison #) { pecho Error: $1 is not on # | halt } | if ($2 == $null) { raw -q mode # -o+b $$1 $address($$1,3) | kick # $$1 %default.kick } | else { raw -q mode # -o+b $$1 $address($$1,3) | kick # $$1 *2 } }
n26=qk { if ($me !isop #) { pecho Error: You are not an op on # | halt } | if ($1 !ison #) { pecho Error: $1 is not on # | halt } | ban -u2 $1 3 | if ($2 != $null) kick # $$1 *2 | else kick # $$1 %default.kick }
n27=b { if ($me !isop #) { pecho Error: You are not an op on # | halt } | if ($1 !ison #) { pecho Error: $1 is not on # | halt } | .raw mode # -o+b $1 $address($1,3) }
n28=t /topic # *1
n29=sb {
n30= if ($1 == $null) { pecho Usage: /sb NICK | halt }
n31= if ($me !isop #) { pecho Error: You are not an op on # | halt }
n32= set %screwban $remove($address($1,3),*!*)
n33= set %screwbanl $len(%screwban)
n34= %screwbanl = %screwbanl / 5
n35= :loop
n36= if ($r(1,5) == 5) %screwban = $replace(%screwban,$mid($r(1,$len($remove($address($1,3),*!*))),1,$remove($address($1,3),*!*)),*)
n37= else %screwban = $replace(%screwban,$mid($r(1,$len($remove($address($1,3),*!*))),1,$remove($address($1,3),*!*)),?)
n38= dec %screwbanl
n39= if (%screwbanl == 0) {
n40= .raw mode # +b-o %screwban $1
n41= unset %screwba*
n42= halt
n43= }
n44= goto loop
n45=}
n46=unban { .enable #munban | mode # b }
n47=maop /.auto $address($1,3) $+ , $+ # | /pecho Adding $1 ( $+ $address($1,3) $+ ) for #
n48=mkick /if ($me isop #) { set %mk $nick(0,#) | :re | if ($nick(%mk,#) != $me) /kick # $nick(%mk,#) ¤Mass Kick¤ | dec %mk | if %mk > 0 goto re unset %mk }
n49=mute { if ($nvnick(0,#) > 0) { set %i $nvnick(0,#) | :loop | mode # +v $nvnick(%i,#) | dec %i 1 | if (%i == 0) goto end | goto loop | :end } | raw mode # +m-o $$1 | raw mode # -v $$1 }
n50=vn {
n51= if ($me !isop #) { pecho Error: You do not have ops in # | halt }
n52= onotice $chr(91) $+ # $+ /vops $+ $chr(93) *1
n53= if ($vnick(0,#) == 0) { halt }
n54= set %i $vnick(0,#)
n55= :vloop
n56= .notice $vnick(%i,#) $chr(91) $+ # $+ /vops $+ $chr(93) *1
n57= dec %i
n58= if (%i == 0) { echo 1 -a -> Vops on # $+ : $Chr(91) $+ # $+ /vops $+ $chr(93) *1 | Halt }
n59= goto vloop
n60=}
n61=mv {
n62= if ($me !isop #) { pecho Error: You do not have ops in # | halt }
n63= if ($nvnick(0,#) == 0) { pecho Error: There are no non ops in # $+ ! | halt }
n64= %i = $nopnick(0,#)
n65= :1
n66= unset %md*
n67= if ($nvnick(%i,#) != $nvnick(0,#)) set %md.1 $nvnick(%i,#) | dec %i 1
n68= if ($nvnick(%i,#) != $nvnick(0,#)) set %md.2 $nvnick(%i,#) | dec %i 1
n69= if ($nvnick(%i,#) != $nvnick(0,#)) set %md.3 $nvnick(%i,#) | dec %i 1
n70= if ($nvnick(%i,#) != $nvnick(0,#)) set %md.4 $nvnick(%i,#) | dec %i 1
n71= .raw mode # +vvvv %md.1 %md.2 %md.3 %md.4
n72= if (%i <= 0) { unset %md* | halt }
n73= goto 1
n74=}
n75=mop {
n76= if ($me !isop #) { pecho Error: You do not have ops in # | halt }
n77= if ($nopnick(0,#) == 0) { pecho Error: There are no non ops in # $+ ! | halt }
n78= %i = $nopnick(0,#)
n79= :1
n80= unset %md*
n81= if ($nopnick(%i,#) != $nopnick(0,#)) set %md.1 $nopnick(%i,#) | dec %i 1
n82= if ($nopnick(%i,#) != $nopnick(0,#)) set %md.2 $nopnick(%i,#) | dec %i 1
n83= if ($nopnick(%i,#) != $nopnick(0,#)) set %md.3 $nopnick(%i,#) | dec %i 1
n84= if ($nopnick(%i,#) != $nopnick(0,#)) set %md.4 $nopnick(%i,#) | dec %i 1
n85= .raw mode # +oooo %md.1 %md.2 %md.3 %md.4
n86= if (%i <= 0) { unset %md* | halt }
n87= goto 1
n88=}
n89=mdop {
n90= if ($me !isop #) { pecho Error: You do not have ops in # | halt }
n91= %i = $opnick(0,#)
n92= :1
n93= unset %md*
n94= if ($opnick(%i,#) == $me) /dec %i 1
n95= if ($opnick(%i,#) != $opnick(0,#)) set %md.1 $opnick(%i,#)
n96= dec %i 1
n97= if ($opnick(%i,#) == $me) /dec %i 1
n98= if ($opnick(%i,#) != $opnick(0,#)) set %md.2 $opnick(%i,#)
n99= dec %i 1
n100= if ($opnick(%i,#) == $me) /dec %i 1
n101= if ($opnick(%i,#) != $opnick(0,#)) set %md.3 $opnick(%i,#)
n102= dec %i 1
n103= if ($opnick(%i,#) == $me) /dec %i 1
n104= if ($opnick(%i,#) != $opnick(0,#)) set %md.4 $opnick(%i,#)
n105= dec %i 1
n106= .raw mode # -oooo %md.1 %md.2 %md.3 %md.4
n107= if (%i <= 0) { unset %md* | halt }
n108= goto 1
n109=}
n110=mdv {
n111= if ($me !isop #) { pecho Error: You do not have ops in # | halt }
n112= if ($vnick(%i,#) == 0) { pecho Error: There are no voiced people in # | halt }
n113= %i = $vnick(0,#)
n114= :1
n115= unset %md*
n116= if ($vnick(%i,#) == $me) /dec %i 1
n117= if ($vnick(%i,#) != $vnick(0,#)) set %md.1 $vnick(%i,#)
n118= dec %i 1
n119= if ($vnick(%i,#) == $me) /dec %i 1
n120= if ($vnick(%i,#) != $vnick(0,#)) set %md.2 $vnick(%i,#)
n121= dec %i 1
n122= if ($vnick(%i,#) == $me) /dec %i 1
n123= if ($vnick(%i,#) != $vnick(0,#)) set %md.3 $vnick(%i,#)
n124= dec %i 1
n125= if ($vnick(%i,#) == $me) /dec %i 1
n126= if ($vnick(%i,#) != $vnick(0,#)) set %md.4 $vnick(%i,#)
n127= dec %i 1
n128= .raw mode # -vvvv %md.1 %md.2 %md.3 %md.4
n129= if (%i <= 0) { unset %md* | halt }
n130= goto 1
n131=}
n132=;--------------------------------------[Dalnet helpers
n133=/ms /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | if ($1 == $null) { pecho Error: use /ms <Msg To memoserv> | halt } | else /msg memoserv *1
n134=/ns /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | if ($1 == $null) { pecho Error: use /ns <Msg To nickserv> | halt } | else /msg nickserv *1
n135=/cs /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | if ($1 == $null) { pecho Error: use /cs <Msg To chanserv> | halt } | else /msg chanserv *1
n136=memo /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | else { if ($len(*2) > 255) pecho Error: Memos can not be more than 255 characters long. Your memo was $len(*2) long. | else msg memoserv send $$1 *2 }
n137=ghost /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | else /msg nickserv ghost $$1
n138=opme /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | else /.enable #opme | .msg nickserv identify %default.nickpass | .msg chanserv op # $me | pecho Oping you on #
n139=name /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | else /msg nickserv info $$1
n140=chan /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | else { if ($1 != $null) /msg chanserv info $1 | else /msg chanserv info # }
n141=aops /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | else /msg chanserv aop # list | /msg chanserv sop # list
n142=identify /if (dal.net !isin $server) { pecho Error: You are not on dalnet! | halt } | else { if ($1 == nick) /msg nickserv identify %default.nickpass | elseif ($1 == chan) /msg chanserv identify %default.chan %default.chanpass | else /pecho Error: /identify Nick or /identify chan }
n143=;---------------------------------------[Misc commands
n144=/ll { .enable #linklooker | pecho Link looker started scanning for splits | /write -c $mircdirsystem\links.txt | links }
n145=/mylag /.notice $me $chr(1) lagtest.ping $ctime $Chr(1)
n146=/ww { set %wecho 1 | .raw whois $1 $1 }
n147=/w { set %wecho 1 | whois $1 }
n148=/whois { set %wecho 1 | whois $1 }
n149=/ip /pecho Your IP address: $ip
n150=/www /say %default.www $+ *1
n151=/n /notice $snicks $chr(91) $+ $snicks $+ /Notice $+ $chr(93) *1
n152=/reply /.notice $$1 $chr(1) *2 $chr(1)
n153=/die /raw quit :
n154=/lastquit pecho Last quit: $readini $mircdirsystem $+ \lastquit.ini lastquit $$1
n155=/longip pecho Converted $$1 to $longip($$1)
n156=/quit { if ($1 == $null) quit $read $mircdir [ $+ [ quit.txt ] ] | else quit *1 | .timer727 off | titlebar %version By CyberThor. }
n157=/time pecho $day $adate $atime
n158=/whoami /whois $me
n159=/j /join #$$1 *1
n160=/p /part # *1
n161=fakesend { %sendflood.nick = $$?="Enter the guy's nick:" | %sendflood.file = $$?="Enter fake filename:" | /.raw -q PRIVMSG %sendflood.nick : $+ $chr(1) $+ DCC SEND %sendflood.file $longip($ip) $r(1024,2000) $r(2000,7000) $+ $chr(1) | unset %sendflood* }
n162=/i /invite $$1 #
n163=/who { if ($1 == *) /pecho Uhh.. if you "/who *" You'll be disconnected. | else who *1 }
n164=ci { Set %ci.away 0 | Set %ci.ircop 0 | set %ci.bans 0 | .enable #chaninfo | mode # b | who # }
n165=;------------------------[Programs
n166=/clones {
n167= rem CloneScanner v3.0.0 CopyRight (C) 1997 Tony Wooster, All rights reserved
n168= if ($1 == ?) { pecho Usage for /clones command: /clones [channel] | pecho "Finds clones in less then 30 seconds or your money back garuntee" | halt }
n169= if ($1 != $null) { | if ($me ison $1) { pecho Scanning for clones in $1 | set %clones.chan $1 } | else { pecho You are not in the channel $1 | halt } } | else { | if ($chan != $null) { pecho Scanning for clones in # | set %clones.chan # } | else { pecho You have to be in a channel be for the clone scanner will work | halt } }
n170= set %clones.total 0 | set %clones.count $nick(0,%clones.chan) | set %clones.clones 0 | set %clones.time $ctime | set %clones.spoofed 0 | set %clones.caddr , | set %clones.total 0
n171= :reloop
n172= if (%clones.count == 0) { | if (%clones.total > 0) { set %clones.count %clones.total | goto reloop2 } | else { pecho No clones in %clones.chan | unset %clones.* | halt } }
n173= set %clones.nick $nick(%clones.count, %clones.chan)
n174= if ($address(%clones.nick, 3) == $null) { inc %clones.spoofed 1 | dec %clones.count 1 | goto reloop }
n175= if (%clones.addr. [ $+ [ %clones.chan $+ [ $address(%clones.nick, 3) ] ] ] == $null) { set %clones.addr. [ $+ [ %clones.chan $+ [ $address(%clones.nick, 3) ] ] ] 0 | set %clones.nick. [ $+ [ %clones.chan $+ [ $address(%clones.nick, 3) ] ] ] %clones.nick }
n176= else { inc %clones.clones 1 | inc %clones.addr. [ $+ [ %clones.chan $+ [ $address(%clones.nick, 3) ] ] ] 1 | set %clones.caddr $addtok(%clones.caddr,$address(%clones.nick, 3),44) | set %clones.nick. [ $+ [ %clones.chan $+ [ $address(%clones.nick, 3) ] ] ] %clones.nick. [ $+ [ %clones.chan $+ [ $address(%clones.nick, 3) ] ] ] - %clones.nick }
n177= if (%clones.addr. [ $+ [ %clones.chan $+ [ $address(%clones.nick, 3) ] ] ] == 1) { inc %clones.total 1 }
n178= dec %clones.count 1 | goto reloop
n179= :reloop2
n180= if (%clones.count == 0) { goto end }
n181= echo 4 -a Clone: %clones.nick. [ $+ [ %clones.chan $+ [ $gettok(%clones.caddr,%clones.count,44) ] ] ] ( $+ $gettok(%clones.caddr,%clones.count,44) $+ )
n182= dec %clones.count 1 | goto reloop2
n183= :end
n184= set %clones.time $ctime - %clones.time
n185= pecho Scanning time: %clones.time second
n186= pecho Unknown/Spoofed IPs: %clones.spoofed
n187= pecho Total clones found: %clones.clones Total people scanned: $nick(0,%clones.chan) | unset %clones.*
n188=}
n189=cid {
n190= Echo %default.echocolor $1 ¤¤¤ Stats for $1
n191= Echo %default.echocolor $1 ¤¤¤ Topic: $chan($1).topic
n192= Echo %default.echocolor $1 ¤¤¤ Modes: $chan($1).mode
n193= Echo %default.echocolor $1 ¤¤¤ [ Number of IRCops: %ci.ircop $CHR(124) Number of ppl in $1 $+ : $nick(0,$1) $chr(93)
n194= echo %default.echocolor $1 ¤¤¤ [ Number of nops: $nopnick(0,$1) $CHR(124) Number of ops: $opnick(0,$1) $chr(93)
n195= Echo %default.echocolor $1 ¤¤¤ [ Number of away: %ci.away $CHR(124) Number of bans: %ci.bans $chr(93)
n196= unset %ci.*
n197=}
n198=s {
n199= if (.wav isin $$1) %sound.SFile = $FindFile($WaveDir,$$1,1)
n200= elseif (.mid isin $$1) %sound.SFile = $FindFile($WaveDir,$$1,1)
n201= elseif ($FindFile($WaveDir,$$1 [ $+ [ .wav ] ] ,1 ) != $null) %sound.SFile = $FindFile($WaveDir,$$1 [ $+ [ .wav ] ] ,1 )
n202= elseif ($FindFile($WaveDir,$$1 [ $+ [ .mid ] ] ,1 ) != $null) %sound.SFile = $FindFile($WaveDir,$$1 [ $+ [ .mid ] ] ,1 )
n203= %sound.kb = $lof(%sound.Sfile)
n204= %sound.clen = $len(%sound.kb)
n205= %sound.clen = %sound.clen - 3
n206= %sound.kb = $left(%sound.clen,%sound.kb)
n207= if ($2 == $null) sound $nopath(%sound.sfile) ( $+ $nopath(%sound.sfile) $+ ) [ $+ %sound.kb $+ kb]
n208= else sound $nopath(%sound.sfile) *2
n209= unset %sound.kb
n210= unset %sound.sfile
n211= unset %sound.clen
n212=}
n213=gmsg { set %amsg.msgs $query(0) | set %amsg.chats $chat(0) | set %amsg.channels $chan(0) | :msgs | if (%amsg.msgs == 0) { goto chats } | msg $query(%amsg.msgs) *1 | dec %amsg.msgs 1 | goto msgs | :chats | if (%amsg.chats == 0) { goto channels } | msg = $+ $chat(%amsg.chats) *1 | dec %amsg.chats 1 | goto chats | :channels | if (%amsg.channels == 0) { unset %amsg.* | halt } | msg $chan(%amsg.channels) *1 | dec %amsg.channels 1 | goto channels }
n214=gme { set %gme.msgs $query(0) | set %gme.chats $chat(0) | set %gme.channels $chan(0) | :msgs | if (%gme.msgs == 0) { goto chats } | describe $query(%gme.msgs) *1 | dec %gme.msgs 1 | goto msgs | :chats | if (%gme.chats == 0) { goto channels } | describe $chat(%gme.chats) *1 | dec %gme.chats 1 | goto chats | :channels | if (%gme.channels == 0) { unset %gme.* | halt } | describe $chan(%gme.channels) *1 | dec %gme.channels 1 | goto channels }
n215=smode { ; SetMode - Copyright(C) 1997 Tony Wooster, All Rights Reserved
n216= if ($me !isop #) { pecho Smode: You are not an operator in # | halt }
n217= if (($1 == $null) && ($channel(#).mode == $null)) { pecho Smode: Not enough paramaters | halt } | if (($1 == $null) && ($channel(#).mode != $null)) { pecho Smode: Mode in # set to - $+ $remove($channel(#).mode, +) | mode $chan - $+ $remove($channel(#).mode, +) | halt }
n218= if ($channel(#).mode == + $+ $1) { pecho Smode: Mode in # is already $channel(#).mode | halt }
n219= set %smode.de $remove($channel(#).mode, +)
n220= set %smode.add $1
n221= set %smode.count 1
n222= :reloop
n223= set %smode.de $remove(%smode.de, $mid(%smode.count,1,%smode.add))
n224= if ((%smode.count != $len(%smode.add)) && (%smode.de != $null)) { inc %smode.count 1 | goto reloop }
n225= set %smode.add + $+ %smode.add
n226= if (%smode.de != $null) { set %smode.de - $+ %smode.de | mode $chan %smode.add $+ %smode.de *2 | pecho Smode: Mode in # set to %smode.add $+ %smode.de }
n227= else { mode $chan %smode.add *2 | pecho Smode: Mode in # set to %smode.add }
n228= unset %smode.*
n229= halt
n230=}
n231=autoaway {
n232= if ($1 == on) { set %autoaway.status on | .timer725 0 1 /if (($idle == 600) && (%away.status != on)) /brb Auto Away | pecho Autoaway: on }
n233= elseif ($1 == off) { set %autoaway.status off | .timer725 off | pecho Autoaway: off }
n234= else pecho Autoaway is: %autoaway.status Settings are: /autoaway on /autoaway off
n235=}
n236=pager {
n237= if ($1 == on) { .enable #pager | .disable #pager2 | pecho Pager: on | set %pager.status Pager on | %pager.number = $$?="# of times wav is played ( 0 for unlimited)" }
n238= elseif ($1 == 2) { .disable #pager | .enable #pager2 | pecho Pager: on (friends only) | set %pager.status Pager on: Friends only | %pager.number = $$?="# of times wav is played ( 0 for unlimited)" }
n239= elseif ($1 == off) { .disable #pager | .disable #pager2 | pecho Pager: off | set %pager.status Pager off }
n240= else /pecho %pager.status settings are: /pager on /pager 2 /pager off
n241=}
n242=chanclonedct {
n243= if (($1 == on) && ($2 != $null)) { set %chanclonedct 1 | set %clone.max $2 | pecho Clone Join Detection: on. Max Clones: $2 }
n244= elseif ($1 == off) { set %chanclonedct 0 | pecho Clone Join Detection: off }
n245= else /pecho Clone Join Detection: /chanclonedct on <Max Clones> /chanclonedct off
n246=}
n247=brb {
n248= if (($1 != $null) && ($chan(0) > 0)) { ame is away: ( $+ *1 $+ ) $chr(91) $+ %pager.status $+ $Chr(93) }
n249= elseif ($chan(0) > 0) ame is away: $chr(91) $+ %pager.status $+ $chr(93)
n250= if ($1 != $null) away ( $+ *1 $+ ) Away since $atime $Chr(91) $+ %pager.status $+ $chr(93)
n251= else away Away since $atime $Chr(91) $+ %pager.status $+ $chr(93)
n252= set %away.Why *1
n253= set %away.status on
n254= %away.time = $atime
n255= .set %away.m 0
n256= .set %away.h 0
n257= .set %away.s 0
n258= .timer4000 0 60 /inc %away.m 1
n259= .timer4001 0 3600 /inc %away.h 1
n260= .timer4002 0 3600 /set %away.m 0
n261= .timer4003 0 1 /inc %away.s 1
n262= .timer4004 0 60 /set %away.s 0
n263=}
n264=back {
n265= if (%away.status == off) { pecho Error: You are not away. | halt }
n266= if ((%away.h == 0) && ($chan(0) > 0)) ame is back. Gone %away.m Min %away.s Secs
n267= elseif ($chan(0) > 0) ame is back. Gone %away.h Hours %away.m Min %away.s Secs
n268= away
n269= if ((%away.log == on) && (%away.log.msg == 1)) { run notepad $mircdirsystem $+ \awaylog.txt | set %away.log.msg 0 }
n270= set %away.status off
n271= .unset %away.m
n272= .unset %away.h
n273= .unset %away.s
n274= .unset %away.why
n275= .unset %away.time
n276= .unset %system.notice.nick.*
n277= .timer400* off
n278=}
n279=system {
n280= titlebar %Version By CyberThor
n281= .timer897 0 30 .notice $!me $chr(1) lagcheck.ping $+ $Chr(1)
n282= .timer727 0 15 titlebar %Version - $!atime - Lag: $!lagcheck - $server
n283= unset %ft.*
n284= set %lagcheck x
n285= unset %lop*
n286= unset %system.*
n287= unset %cspecify*
n288= unset %away.Why
n289= set %away.status off
n290= unset %away.time
n291= .unset %away.m
n292= .unset %away.h
n293= .unset %away.s
n294= .rlevel 10
n295= .auser 10 $me
n296= remini $mircdirsystem $+ \lastquit.ini lastquit
n297= .timer726 0 240 /.raw pong pong : $+ $server
n298= if (%autoaway.status == on) { .timer725 0 1 /if (($idle => 600) && (%away.status != on)) /brb Auto Away }
n299= if (%antiidle.status == on) { .timer9567 0 20 /.ctcp $!me antiidle }
n300=}
n301=;-------------------------------[System
n302=mainserverlist { .enable #mainserverlist | pecho Generating default server list | /write -c $mircdirsystem\servers.txt | links }
n303=cspecify {
n304= if ($1 == $null) { /pecho Proper syntax for /cspecify, /cspecify <Nick> <Chan> (Used as a $ value) }
n305= set %cspecify.faddr $address($1, 3)
n306= set %cspecify.fnick $1
n307= set %cspecify.count 0
n308= set %cspecify.found 0
n309= :reloop
n310= if (%cspecify.count > $nick(0, $2)) { return %cspecify.found }
n311= if (($address($nick(%cspecify.count, $2), 3) == %cspecify.faddr) && (%cspecify.fnick != $nick(%cspecify.count, $2))) { inc %cspecify.found 1 }
n312= inc %cspecify.count 1
n313= goto reloop
n314=}
n315=ialupdate {
n316= .enable #ialupdate
n317= .timer 1 1 raw -q who $1
n318= .rlevel 10
n319= .auser 10 $me
n320= .auser 10 $address($me,3)
n321=}
n322=ialevel {
n323= set %i $nick(0,$$1)
n324= :loop
n325= if ($level($address($nick(%i,$$1),3)) == 9) { .auser 9 $nick(%i,$$1) }
n326= dec %i 1
n327= if (%i == 0) { echo 4 -s ¤¤¤ Channel Update For $1 Finished. | halt }
n328= goto loop
n329=}
n330=prm /set %prm.count $1 + 1 | /return [ $ [ $+ [ %prm.count ] ] ]
n331=cparms { if ($1 == $null) { return 0 } | set %cparms.parms 1 | set %cparms.text $1 | :reloop | if (%cparms.text = $null) { goto unsetvars } | else { inc %cparms.parms 1 | %cparms.text = [ $ [ $+ [ %cparms.parms ] ] ] | goto reloop } | :unsetvars | dec %cparms.parms 1 | unset %cparms.text | return %cparms.parms | unset %cparms.parms }
n332=atime { set %atime.hours $token(1,58,$time) | if (%atime.hours > 12) { dec %atime.hours 12 | /set %atime.sub pm } | elseif (%atime.hours == 12) { set %atime.sub pm } | elseif (%atime.hours == 0) { set %atime.hours 12 | /set %atime.sub am } | else { set %atime.sub am } | return %atime.hours $+ : $+ $token(2,58,$time) $+ %atime.sub }
n333=lagcheck { return %lagcheck }
n334=lagcheckt { return %lagcheckt }
n335=kilbyte { if ($len($1) > 3) { %kb.kb = $1 | %kb.len = $len(%kb.kb) | %kb.len = %kb.len - 3 | %kb.kb = $left(%kb.len,%kb.kb) | return %kb.kb $+ kb } | else return *1 bytes }
n336=pervert {
n337= if (cunt isin *1) { return $true | halt }
n338= if (fuck isin *1) { return $true | halt }
n339= if (dick isin *1) { return $true | halt }
n340= if (asshole isin *1) { return $true | halt }
n341= if (pussy isin *1) { return $true | halt }
n342= if (pusy isin *1) { return $true | halt }
n343= if (shit isin *1) { return $true | halt }
n344= if (kunt isin *1) { return $true | halt }
n345= if (cock isin *1) { return $true | halt }
n346= if (cum isin *1) { return $true | halt }
n347= return $false
n348=}
n349=;-----------------------------------------------------
n350=install {
n351= %booooooo = $$?="Welcome to ¤Pong¤ Hit Y or N to answer. "
n352= %default.echocolor = $$?="Enter color to echo in (1-6)"
n353= %temp = $$?="Do you want Ctcp's echo'd to active window?"
n354= if (%temp == y) { %ctcpecho = 1 | pecho CTCP echo: on }
n355= %temp = $$?="Do you want whois's echo'd to active window?"
n356= if (%temp == y) { %whoisecho = on | pecho whois echo: on }
n357= %temp = $$?="Want AutoAway on?"
n358= if (%temp == y) { %autoaway.status = on | pecho Auto Away: On }
n359= %temp = $$?="Want Away Notice on?"
n360= if (%temp == y) { %away.notice = on | pecho Away Notice: on }
n361= %temp = $$?="Want Away Loging on?"
n362= if (%temp == y) { %away.log = on | pecho Away Log: on }
n363= %temp = $$?="Want Anti Idle on? (not as many ping timeouts)"
n364= if (%temp == y) { set %antiidle.status on | pecho Anti Idle: on }
n365= %temp = $$?="Do you have windows95?"
n366= if (%temp == y) { %filemanager = EXPLORER.EXE | pecho OS: Windows95 }
n367= %btemp = $$?="Want Pager on?"
n368= if (%btemp == y) {
n369= set %pager.status Pager on
n370= %pager.number = $$?="# of times wav is played ( 0 for unlimited)"
n371= pecho Pager: on (It goes off %pager.number times )
n372= }
n373= else { set %pager.status Pager off | pecho Pager: off }
n374= %default.www = $$?="Enter the URL of your web page"
n375= %default.nick = $$?="Enter your default nick"
n376= %default.nickpass = $$?="Enter your nick's pass (for DALnet)"
n377= %default.chan = $$?="Enter your default chan"
n378= %default.chanpass = $$?="Enter your chan's pass (for DALnet)"
n379= %default.kick = $$?="Enter your default kick msg"
n380= pecho Pong installation finished.
n381= pecho Most settings can be changed under ¤Pong¤ in the menu bar.
n382= unset %temp
n383= unset %btemp
n384= unset %booooooo
n385=}
n386=pecho /echo %default.echocolor -a ¤¤¤ *1