archivo Kenny KennyScript v0.2 para mIRC ------------------------------ Programado por: Mario Menoscal (Advertencia los addons no son hechos por mi) Bienvenidos al a tu nuevo vicio del mIRC(Internet/Relay/Chat) No digan mucho sobre este script quiero que muy poca gente lo use, y especialmente amigos personales que desean addons y muchas cosas mas que el KennyScript pueda darles Gracias Att: Mario Menoscal www.Menoscal.tk By:|[^Kenny_McCormick^]| aliases [aliases] n0=/op /mode # +ooo $$1 $2 $3 n1=/dop /mode # -ooo $$1 $2 $3 n2=/j /join #$$1 $2- n3=/p /part # n4=/n /names #$$1 n5=/w /whois $$1 n6=/k /kick # $$1 $2- n7=/q /query $$1 n8=/send /dcc send $1 $2 n9=/chat /dcc chat $1 n10=/ping /ctcp $$1 ping n11=/s /server $$1- n12=/sayit /me is using %script n13=/rm /raw -q privmsg $1 : $2- n14=/rn /raw -q notice $1 : $2- n15=} n16=/sF1 /say 10:) n17=/sF2 /say 10:( n18=/sF3 /say 10:þ n19=/sF4 /say 10lol n20=/sF5 /say 10;) n21=/sF6 /me is using 4KennyScript v0.2b running on mIRC 6.01 n22=/sF7 /say KennyScript v0.1f is not available n23=/sF8 /me is surfing the web!!! n24=/sF9 /me is roaming somewhere else. Please try at a later time... n25=/sF10 /me is back from roaming. (Finaly!!!) n26=/sF11 /ame has gone to check his e-mail n27=/sF12 /ame is back from the Internet Explorer n28=} n29=/sn { n30=if ($snick($active,0) > 1) { return } n31=else { return $remove($snick($active,1),$chr(61)) } n32=} popups [lpopup] n0=$sn n1=.&Whois:/whois $1 n2=.&Query:/query $1 n3=.&Uwho:/uwho $1 n4=.&DNS:/dns $1 n5=.&Invite:/invite $$?="Invite to channel..." $remove($active,=) n6=.- n7=.&Clipboard n8=..Get &Nick:/clipboard $1 n9=..Get &DNS:%temp.dns.clip = 1 | /dns $1 n10=.- n11=.C&TCP n12=..&Ping:/ctcp $1 ping n13=..&Finger:/ctcp $1 finger n14=..&Version:/ctcp $1 version n15=..&Time:/ctcp $1 time n16=..- n17=..&???:/ctcp $1 $?="Enter CTCP:" n18=.&DCC n19=..&Send:/dcc send $1 n20=..&Chat:/dcc chat $1 n21=- n22=&Op Control n23=.&Op User:{ if ($snick(#,0) == 1) { /mode # +o $$1 | halt } n24= set %i 1 | set %Var.Index 1 | unset %Var.Nicks | unset %Var.Snick | set %Var.Num 4 n25= :start n26= set %Var.Snick $snick(#,%i) n27= if (%Var.Snick == $null) { raw -q mode # +oooooo %Var.Nicks | unset %Var.Snick | unset %Var.Index | unset %Var.Nicks | unset %i | unset %Var.Num | halt } n28= set %Var.Nicks %Var.Snick %Var.Nicks n29= if (%Var.Index == %Var.Num) { raw -q mode # +oooo %Var.Nicks | unset %Var.Nicks | set %Var.Index 1 | inc %i 1 | goto start } n30= inc %i 1 | inc %Var.Index 1 n31= goto start n32=} n33=.&DeOp User:{ if ($snick(#,0) == 1) { /mode # -o $$1 | halt } n34= set %i 1 | set %Var.Index 1 | unset %Var.Nicks | unset %Var.Snick | set %Var.Num 4 n35= :start n36= set %Var.Snick $snick(#,%i) n37= if (%Var.Snick == $null) { raw -q mode # -oooooo %Var.Nicks | unset %Var.Snick | unset %Var.Index | unset %Var.Nicks | unset %i | unset %Var.Num | halt } n38= set %Var.Nicks %Var.Snick %Var.Nicks n39= if (%Var.Index == %Var.Num) { raw -q mode # -oooo %Var.Nicks | unset %Var.Nicks | set %Var.Index 1 | inc %i 1 | goto start } n40= inc %i 1 | inc %Var.Index 1 n41= goto start n42=} n43=&Voice Control n44=.&Voice User:{ if ($snick(#,0) == 1) { /mode # +v $$1 | halt } n45= set %i 1 | set %Var.Index 1 | unset %Var.Nicks | unset %Var.Snick | set %Var.Num 4 n46= :start n47= set %Var.Snick $snick(#,%i) n48= if (%Var.Snick == $null) { raw -q mode # +vvvv %Var.Nicks | unset %Var.Snick | unset %Var.Index | unset %Var.Nicks | unset %i | unset %Var.Num | halt } n49= set %Var.Nicks %Var.Snick %Var.Nicks n50= if (%Var.Index == %Var.Num) { raw -q mode # +vvvv %Var.Nicks | unset %Var.Nicks | set %Var.Index 1 | inc %i 1 | goto start } n51= inc %i 1 | inc %Var.Index 1 n52= goto start n53=} n54=.&DeVoice User:{ if ($snick(#,0) == 1) { /mode # -v $$1 | halt } n55= set %i 1 | set %Var.Index 1 | unset %Var.Nicks | unset %Var.Snick | set %Var.Num 4 n56= :start n57= set %Var.Snick $snick(#,%i) n58= if (%Var.Snick == $null) { raw -q mode # -vvvv %Var.Nicks | unset %Var.Snick | unset %Var.Index | unset %Var.Nicks | unset %i | unset %Var.Num | halt } n59= set %Var.Nicks %Var.Snick %Var.Nicks n60= if (%Var.Index == %Var.Num) { raw -q mode # -vvvv %Var.Nicks | unset %Var.Nicks | set %Var.Index 1 | inc %i 1 | goto start } n61= inc %i 1 | inc %Var.Index 1 n62= goto start n63=} n64=Ignore Control n65=.Ignore User:/ignore $$1 1 n66=.Unignore User:/ignore -r $$1 1 n67=- n68=&Kick n69=.&Kick:/k $$1 n70=.Kick (&Reason):/kick # $$1 $$?="Reason for Kicking:" n71=.- n72=.&Cool Kicks n73=..Can't Hear You:/kick # $$1 Excuse me...I didn't hear you well... n74=..Burn In Hell:/kick # $$1 Burn in hell lamer n75=..Die:/kick # $$1 Die You Ugly Fuck !!! n76=..Go To Hell:/kick # $$1 Go to hell ! n77=..GTF Out:/kick # $$1 Just get the fuck out a here ! n78=..Lamers Suck:/kick # $$1 Lamers suck ! n79=..No Idiots Allowed:/kick # $$1 No idiots allowed here...that's YOU n80=..See Ya:/kick # $$1 See ya ! n81=..See Ya In Hell:/kick # $$1 See ya in hell asshole ! n82=..Thanks 4 Sharing:/kick # $$1 Thanks for sharing n83=..You Suck:/kick # $$1 You suck ! n84=..MamAki:/kick # $$1 Essa boca q falou jah aki mamou n85=..Nukes:/kick # $$1 Vai Nukar o Ramalho n86=..Apeteceu-me:/kick # $$1 Olha, apeteceu-me :) EH PROIBIDO POR ACASO ?!?! n87=..Eh Fodido:/kick # $$1 É FodidO, ñ é???!!! n88=..lets play kenny says hah?:/kick # $$1 Kenny says get da fuck over here =)??? n89=..MothaFucka:/kick # $$1 BURN IN HELL MOTHERFUCKER! n90=..Shit Happens:/kick # $$1 Shit happens :) n91=..Ena ke Fixe:/kick # $$1 Ena ke fixe, acabaste de ser kickado. n92=..Asshole:/kick # $$1 WARNING!!! YOU ARE BEING AN ASSHOLE!!! n93=..Yomama Joke:/kick # $$1 Yo mama's so stupid $read system\stupid.txt n94=..Random Curse:/kick # $$1 You $read system\curses.txt n95=.- n96=Kick/&Ban n97=.Kick/&Ban:/ban $$1 2 | /timer 1 3 /kick # $$1 n98=.Kick/Ban (&Reason):/ban $$1 2 | /timer 1 3 /kick # $$1 $$?="Reason for Ban/Kick:" n99=.- n100=.&Timed Bans n101=..Time Ban &1 min:/ban -u60 $$1 | /kick # $$1 Banned for 1 minute. n102=..Time Ban &2 mins:/ban -u120 $$1 | /kick # $$1 Banned for 2 minutes. n103=..Time Ban &5 mins:/ban -u300 $$1 | /kick # $$1 Banned for 5 minutes. n104=..- n105=..&Time Ban ???:/ban -u $$1 $$?="Seconds to ban...?" | /kick # $$1 You where time banned. n106=.&Specific Bans n107=..*!user@host.domain:/ban $$1 0 | /kick # $$1 n108=..*!*user@host.domain:/ban # $1 1 n109=..*!*@host.domain:/ban # $1 2 n110=..*!*user@*.domain:/ban # $1 3 n111=..*!*@*.domain:/ban # $1 4 n112=..- n113=..nick!user@host.domain:/ban # $1 5 n114=..nick!*user@host.domain:/ban # $1 6 n115=..nick!*@host.domain:/ban # $1 7 n116=..nick!*user@*.domain:/ban # $1 8 n117=..nick!*@*.domain:/ban # $1 9 n118=- n119=&NickServ n120=.Nick &Info:/nickserv info $1?=" Enter nick :" n121=.Nick &Status:/nickserv status $1 n122=.Kill &Ghost!:. nickserv ghost $1 $$?*="Password:" n123=&ChanServ n124=.&Op User:. chanserv op # $$1 n125=.&Deop User:. chanserv deop # $$1 n126=.- n127=.&Akick n128=..&Add:. chanserv akick #$?="channel" add $?="Nick or Host Mask" $?="Reason" n129=..&Del:. chanserv akick #$?="channel" del $?="Nick or Host Mask" n130=..&List:. chanserv akick #$?="channel" list n131=.A&ccess n132=..&Add:. chanserv access #$?="channel" add $?="Nick" $?="Level" n133=..&List:. chanserv access #$?="channel" list n134=..&Del:. chanserv access #$?="channel" del $?="Nick" n135=- n136=&Add to Notify: notify $$1 | .notice $1 10You have been added to my notify list! n137=&Del Notify:/.notify -r $$1 | .notice $1 10You have been removed from my notify list! n138=- n139=Send &Memo:/memoserv send $1 $?="Memo:" n140=- n141=&Slap!:/me slaps $$1 around a bit with a large trout n142=} n143=&|[^Kenny_McCormick^]| n144=.WhoIs:/whois |[^Kenny_McCormick^]| n145=..NickInfo:/nickserv info |[^Kenny_McCormick^]| n146=...Identify:/nickserv identify menoscal [bpopup] n0=&Kenny´s ScRiPt v0.2b n1=} n2=%ver:/sayit | splay sounds/shot.wav n3=- n4=&Auto-Identify:/autoident n5=GhostKiller:/ghostkiller n6=- n7=&Kenny´s Protections n8=.Kenny´s Ban Protection n9=..On:/enable #ban | echo  12Kenny ur  14Ban Protection is now  On n10=..Off:/disable #ban | echo  12Kenny ur  14Ban Protection is now  Off n11=.&Swear Kick n12=..Enable Swear Kick: .enable #Swearkick | .echo -a 10The Swear Kick Script has been turned 4ON. | if (%Swearchannels == $null) { .echo -a 10Please set the channels in which Swear Kick will take effect. } n13=..Disable Swear Kick: .disable #Swearkick | .echo -a 10The Swear Kick Script has been turned 4OFF. n14=..- n15=..Add SwearWord: .write system\swear.txt $$?="What word do you wish to add?" n16=..Del SwearWord: .write -ds $+ $$?="What word do you wish to delete?" system\swear.txt n17=..Edit SwearWord File: .run notepad.exe system\swear.txt n18=..- n19=..Add User Unaffected List: .auser ignore $$?="What's the person's nick? $crlf The person won't be affected by the Swear Kicking script from now on." n20=..Del User Unaffected List: .ruser ignore $$?="What's the person's nick? $crlf From now on, they will be affected by the Swear Kicking script again." n21=..Unaffected List: .echo -a 10These people aren't affected by the Swear Kicking Script... | .ulist ignore n22=..- n23=..Set Channels: .set %Swearchannels $$?="This will the set the channels that will be affected by the Swear Kick script. $crlf $+ Separate them with commas. $crlf $+ Example: #helpdesk,#mirc (no spaces)" n24=..View Channels: if (%Swearchannels == $null) { .echo -a 10No channels have been set. } | else { .echo -a 10These are the channels affected by the Swear Kicking Script: %Swearchannels } n25=.Kill Spam n26=..Main Switch n27=...On:set %clswndw on | set %mkillswt on | set %igrswt on | set %clrcnt on n28=...Off:set %clswndw off | set %mkillswt off | set %igrswt off | set %clrcnt off n29=..Close Spam Window n30=...On:set %clswndw on n31=...Off:set %clswndw off n32=..Msg Kill Reply n33=...Switch n34=....On:set %mkillswt on n35=....Off:set %mkillswt off n36=...Set Msg For Spammers:set %mkillrply $$?="Msg you want to say to spammers:" | set %mkillswt on n37=..Ignore Spammers n38=...On:set %igrswt on n39=...Off:set %igrswt off n40=..Clear Ignore List n41=...Clear Now:ignore -r | echo -a 12Ignore list cleared n42=...Clear On Connect n43=....On:set %clrcnt on n44=....Off:set %clrcnt off n45=..View Current Settings:echo -a 14Kill Spam Current Settings... | Killsettings n46=.&Flood Protection:afp n47=- n48=&Tools n49=.&Remote Scripts n50=..&Load:/load -rs $$?="Type in filename to load :" n51=..&Unload:/unload -rs $$?="Type in filename to unload :" n52=.- n53=.&Windows Explorer:/run explorer n54=.&Internet Explorer:/run iexplore n55=.&Outlook Express:/run msimn n56=NetSplit Detector n57=.Configure:/dialog -md netsplit netsplit n58=.- n59=.About:dialog -md nabout nabout n60=Clone Scan n61=.Scan on join.. n62=..$iif((%join.scs),©) $chr(9) Enable: set %join.scs.max $$?="Maximum clones ? (1,2,3,etc)" | set %join.scs 1 n63=..$iif(%join.scs < 1,©) $chr(9) Disable: set %join.scs 0 n64=.- n65=.&Console: scs n66=- n67=&Servers n68=.Lusers:/lusers n69=.Motd:/motd n70=.Time:/time n71=.- n72=.&PTnet n73=..Random:server irc.ptnet.org 6667 n74=..- n75=..Telepac:server telepac.ptnet.org 6667 n76=..Clix:server ip.ptnet.org 6667 n77=..Netc:server irc.netc.pt 6667 n78=..Oninet:server oninet.ptnet.org 6667 n79=..Aveiro:server ua.ptnet.org 6667 n80=..Braga:server aaum.ptnet.org 6667 n81=..Lisboa:server isel.ptnet.org 6667 n82=..Porto:server feup.ptnet.org 6667 n83=..Algarve:server ualg.ptnet.org 6667 n84=.&Undernet n85=..Random EU server:server eu.undernet.org 6667 n86=..Random US server:server us.undernet.org 6667 n87=..- n88=..Canada n89=...Montreal:server montreal.qu.ca.undernet.org 6668 n90=...Toronto:server toronto.on.ca.undernet.org 6668 n91=...Vancouver:server vancouver.bc.ca.undernet.org 6668 n92=..Europe n93=...BE, Antwerpen:server antwerpen.be.eu.undernet.org 6664 n94=...DE, Goettingen:server goettingen.de.eu.undernet.org 6666 n95=...DE, Regensburg:server regensburg.de.eu.undernet.org 6666 n96=...FR, Caen:server caen.fr.eu.undernet.org 7000 n97=...NL, Diemen:server diemen.nl.eu.undernet.org 7000 n98=...NL, Leiden:server leiden.nl.eu.undernet.org 7000 n99=...NO, Oslo:server oslo.no.eu.undernet.org 6664 n100=...SE, Lulea:server lulea.se.eu.undernet.org 7000 n101=...UK, London:server london.uk.eu.undernet.org 6666 n102=..New Zealand n103=...Auckland:server auckland.nz.undernet.org 6667 n104=..USA n105=...America OnLine:server undernet.irc.aol.com 6669 n106=...AZ, Phoenix:server phoenix.az.us.undernet.org 6669 n107=...CA, SanDiego:server sandiego.ca.us.undernet.org 7000 n108=...DC, Washington:server washington.dc.us.undernet.org 6665 n109=...IL, Chicago:server chicago.il.us.Undernet.org 6668 n110=...KS, Manhattan:server manhattan.ks.us.undernet.org 7000 n111=...MA, Lowell:server lowell.ma.us.undernet.org 6669 n112=...MO, Springfield:server springfield.mo.us.undernet.org 6669 n113=...MO, St.Louis:server stlouis.mo.us.undernet.org 6669 n114=...NJ, New Brunswick:server newbrunswick.nj.us.undernet.org 6666 n115=...OK, OKC:server okc.ok.us.undernet.org 6665 n116=...PA, Pittsburgh:server pittsburgh.pa.us.undernet.org 6669 n117=...SC, RockHill:server rockhill.sc.us.undernet.org 7000 n118=...TX, Dallas:server dallas.tx.us.undernet.org 6668 n119=...UT, Saltlake:server saltlake.ut.us.undernet.org 6668 n120=...VA, Blacksburg:server blacksburg.va.us.undernet.org 7000 n121=.&EFnet n122=..Random server:server irc.chat.org 6667 n123=..- n124=..Australia n125=...Telstra:server efnet.telstra.net.au 6667 n126=..Europe n127=...France:server irc.ec-lille.fr 6667 n128=...Israel:server irc.inter.net.il 6667 n129=...Netherlands:server irc.nijenrode.nl 6667 n130=...Norway:server irc2.homelien.no 7000 n131=...Sweden:server irc.df.lth.se 6666 n132=...UK, Demon:server efnet.demon.co.uk 6665 n133=..USA n134=...America OnLine:server irc02.irc.aol.com 6666 n135=...AZ, Phoenix:server irc-w.primenet.com 6666 n136=...AZ, Tucson:server irc.blackened.com 6666 n137=...CA, San Diego:server irc.cerf.net 6667 n138=...CO, Colorado:server irc.colorado.edu 6666 n139=...GA, Atlanta:server irc.emory.edu 6667 n140=...IL, Chicago:server irc.ais.net 6669 n141=...Netcom:server irc-2.netcom.com 6667 n142=...OK, Oklahoma:server irc.ionet.net 6667 n143=...VA, Herndon:server irc.psinet.com 6666 n144=...WA, Seattle:server irc.sprynet.com 6667 n145=.- n146=.&Server ???:%temp.server = $?"Enter Server:" | %temp.port = $?="Port: (default = 6667)" | if (%temp.server == $null) { halt } | /server %temp.server %temp.port n147=&Channels n148=.&Auto-Join:/dialog -m AJoin2 AJoin2 n149=.- n150=.#UsA:/join #UsA n151=.#U.S.Army:/join #U.S.Army n152=.#Viciochat:/join #Viciochat n153=.#Lobby:/join #lobby n154=.#Warez:/join #Warez n155=.- n156=.&Join Channel ???:/join #$$?="Enter a channel to join:" n157=.List Channels:/list n158=- n159=Mp³ System n160=.&Play Mp³ n161=..Pick Song:{ n162= if (%mp3.dir == $null ) { set %mp3.dir $sdir="Wheres your mp3's?" | .load -rs mp3.mrc } n163= set %mp3.song " $+ $file="What mp3?" %mp3.dir $+ "if ( %mp3.song == $null ) { halt } n164= //splay -p $shortfn(%mp3.song) n165= if ( %mp3.silent == on ) { halt } n166= ame 6I3s 6P3laying: 6[ 14 $+ $nopath(%mp3.song) $+ 6 ]6 - L3ength: 6[ 14 $+ $asctime($mp3(%mp3.song).length,hh:nn) $+ 6 ]6 - S3ize14:6 [14 $round($calc($lof(%mp3.song)/1000000),2) $+ mb 6] n167= if (%mp3.short == on) { halt } n168= else { n169= ame 6T3o 6D/L Mp³6: !get mp33. 6F3or 6C3urrent 6Mp³ S3tats6: !mp3 stats %logo1 } n170=} n171=..Stop:{ n172= /splay -p stop n173=} n174=.&Uploads n175=..On:{ n176= set %mp3.power on n177=} n178=..Off:{ n179= set %mp3.power off n180=} n181=..Set Max Uploads { n182= set %mp3.maxslots $$?="Enter Max, Mp3 Uploads at any one time." n183=} n184=.&Silent Display n185=..On:{ n186= set %mp3.silent on n187=} n188=..Off:{ n189= set %mp3.silent off n190=} n191=.Short &Display n192=..On:{ n193= set %mp3.short on n194=} n195=..Off:{ n196= set %mp3.short off n197=} n198=.S&tats:{ n199= /echo -a - n200= /echo -a 6C3urrent 6N3umber 6O3f 6Mp³s 6- [14 $findfile(%mp3.dir,*.mp3,0) 6] n201= /echo -a 6C3urrent 6Mp³ - [ 14 $+ $nopath(%mp3.song) $+ 6] n202= /echo -a 6Mp³ S3ize6 - [14 $round($calc($lof(%mp3.song)/1000000),2) $+ mb 6] n203= //echo -a 6Mp³ S3ound 6M3ode 6- [14 $mp3(%mp3.song).mode 6] n204= //echo -a 6Mp³ V3ersion6 - [14 $mp3(%mp3.song).version 6] n205= /echo -a 6U3pload 6S3tatus6 - [14 %mp3.power 6] n206= /echo -a 6M3ax. 6U3ploads6 - [14 %mp3.maxslots 6] n207= /echo -a 6N3umber 6O3f 6U3ploads 6- [14 %mp3.uploads 6] /echo -a 6A3mount 6O3f 6 D/L S3lots 6F3ree6 - [14 $calc(%mp3.maxslots - $send(0)) 6] n208= /echo -a - n209=} n210=&Roaming n211=.&Enable { n212= /ame has gone roaming... n213= .timer2 0 120 /ame is roaming somewhere else... n214=} n215=.&Disable { n216= .timer2 off n217= /ame is back from roaming !} n218=} n219=- n220=&Away n221=.Set &Away:/awaysystemleave n222=.Set &Back:/awaysystembacc n223=- n224=&Quit IRC n225=.Quit &Manager:/quitman n226=.- n227=.&Quit IRC:/Quit_IRC n228=.Quit IRC [T&TL] n229=..Start:/Quit_IRC_TTL_Start n230=..Abort:/Quit_IRC_TTL_Abort n231=- n232=&|[^Kenny_McCormick^]| n233=.WhoIs:/whois |[^Kenny_McCormick^]| n234=..NickInfo:/nickserv info |[^Kenny_McCormick^]| n235=...Identify:/nickserv identify menoscal n236=- n237=List:/list [mpopup] n0=&Auto-Identify:/autoident n1=GhostKiller:/ghostkiller n2=- n3=&Protections n4=.Kenny´s Ban Protection n5=..On:/enable #ban | echo 12Kenny ur 14Ban Protection is now On n6=..Off:/disable #ban | echo 12Kenny ur 14Ban Protection is now Off n7=.Swear Kick n8=..Enable Swear Kick: .enable #Swearkick | .echo -a 10The Swear Kick Script has been turned 4ON. | if (%Swearchannels == $null) { .echo -a 10Please set the channels in which Swear Kick will take effect. } n9=..Disable Swear Kick: .disable #Swearkick | .echo -a 10The Swear Kick Script has been turned 4OFF. n10=.. - n11=..Add SwearWord: .write system\swear.txt $$?="What word do you wish to add?" n12=..Del SwearWord: .write -ds $+ $$?="What word do you wish to delete?" system\swear.txt n13=..Edit SwearWord File: .run notepad.exe system\swear.txt n14=..- n15=..Add User Unaffected List: .auser ignore $$?="What's the person's nick? $crlf The person won't be affected by the Swear Kicking script from now on." n16=..Del User Unaffected List: .ruser ignore $$?="What's the person's nick? $crlf From now on, they will be affected by the Swear Kicking script again." n17=..Unaffected List: .echo -a 10These people aren't affected by the Swear Kicking Script... | .ulist ignore n18=..- n19=..Set Channels: .set %Swearchannels $$?="This will the set the channels that will be affected by the Swear Kick script. $crlf $+ Separate them with commas. $crlf $+ Example: #helpdesk,#mirc (no spaces)" n20=..View Channels: if (%Swearchannels == $null) { .echo -a 10No channels have been set. } | else { .echo -a 10These are the channels affected by the Swear Kicking Script: %Swearchannels } n21=.Kill Spam n22=..Main Switch n23=...On:set %clswndw on | set %mkillswt on | set %igrswt on | set %clrcnt on n24=...Off:set %clswndw off | set %mkillswt off | set %igrswt off | set %clrcnt off n25=..Close Spam Window n26=...On:set %clswndw on n27=...Off:set %clswndw off n28=..Msg Kill Reply n29=...Switch n30=....On:set %mkillswt on n31=....Off:set %mkillswt off n32=...Set Msg For Spammers:set %mkillrply $$?="Msg you want to say to spammers:" | set %mkillswt on n33=..Ignore Spammers n34=...On:set %igrswt on n35=...Off:set %igrswt off n36=..Clear Ignore List n37=...Clear Now:ignore -r | echo -a 12Ignore list cleared n38=...Clear On Connect n39=....On:set %clrcnt on n40=....Off:set %clrcnt off n41=..View Current Settings:echo -a 14Kill Spam Current Settings... | Killsettings n42=.&Flood Protection:afp n43=- n44=NetSplit Detector n45=.Configure:/dialog -md netsplit netsplit n46=.- n47=.About:dialog -md nabout nabout n48=Clone Scan n49=.Scan on join.. n50=..$iif((%join.scs),©) $chr(9) Enable: set %join.scs.max $$?="Maximum clones ? (1,2,3,etc)" | set %join.scs 1 n51=..$iif(%join.scs < 1,©) $chr(9) Disable: set %join.scs 0 n52=.- n53=.&Console: scs n54=- n55=&Servers n56=.Lusers:/lusers n57=.Motd:/motd n58=.Time:/time n59=.- n60=.&PTnet n61=..Random:server irc.ptnet.org 6667 n62=..- n63=..Telepac:server telepac.ptnet.org 6667 n64=..Oninet:server oninet.ptnet.org 6667 n65=..Clix:server ip.ptnet.org 6667 n66=..Netc:server irc.netc.pt 6667 n67=..Aveiro:server ua.ptnet.org 6667 n68=..Braga:server aaum.ptnet.org 6667 n69=..Lisboa:server isel.ptnet.org 6667 n70=..Porto:server feup.ptnet.org 6667 n71=..Algarve:server ualg.ptnet.org 6667 n72=.&Undernet n73=..Random EU server:server eu.undernet.org 6667 n74=..Random US server:server us.undernet.org 6667 n75=..- n76=..Canada n77=...Montreal:server montreal.qu.ca.undernet.org 6668 n78=...Toronto:server toronto.on.ca.undernet.org 6668 n79=...Vancouver:server vancouver.bc.ca.undernet.org 6668 n80=..Europe n81=...BE, Antwerpen:server antwerpen.be.eu.undernet.org 6664 n82=...DE, Goettingen:server goettingen.de.eu.undernet.org 6666 n83=...DE, Regensburg:server regensburg.de.eu.undernet.org 6666 n84=...FR, Caen:server caen.fr.eu.undernet.org 7000 n85=...NL, Diemen:server diemen.nl.eu.undernet.org 7000 n86=...NL, Leiden:server leiden.nl.eu.undernet.org 7000 n87=...NO, Oslo:server oslo.no.eu.undernet.org 6664 n88=...SE, Lulea:server lulea.se.eu.undernet.org 7000 n89=...UK, London:server london.uk.eu.undernet.org 6666 n90=..New Zealand n91=...Auckland:server auckland.nz.undernet.org 6667 n92=..USA n93=...America OnLine:server undernet.irc.aol.com 6669 n94=...AZ, Phoenix:server phoenix.az.us.undernet.org 6669 n95=...CA, SanDiego:server sandiego.ca.us.undernet.org 7000 n96=...DC, Washington:server washington.dc.us.undernet.org 6665 n97=...IL, Chicago:server chicago.il.us.Undernet.org 6668 n98=...KS, Manhattan:server manhattan.ks.us.undernet.org 7000 n99=...MA, Lowell:server lowell.ma.us.undernet.org 6669 n100=...MO, Springfield:server springfield.mo.us.undernet.org 6669 n101=...MO, St.Louis:server stlouis.mo.us.undernet.org 6669 n102=...NJ, New Brunswick:server newbrunswick.nj.us.undernet.org 6666 n103=...OK, OKC:server okc.ok.us.undernet.org 6665 n104=...PA, Pittsburgh:server pittsburgh.pa.us.undernet.org 6669 n105=...SC, RockHill:server rockhill.sc.us.undernet.org 7000 n106=...TX, Dallas:server dallas.tx.us.undernet.org 6668 n107=...UT, Saltlake:server saltlake.ut.us.undernet.org 6668 n108=...VA, Blacksburg:server blacksburg.va.us.undernet.org 7000 n109=.&EFnet n110=..Random server:server irc.chat.org 6667 n111=..- n112=..Australia n113=...Telstra:server efnet.telstra.net.au 6667 n114=..Europe n115=...France:server irc.ec-lille.fr 6667 n116=...Israel:server irc.inter.net.il 6667 n117=...Netherlands:server irc.nijenrode.nl 6667 n118=...Norway:server irc2.homelien.no 7000 n119=...Sweden:server irc.df.lth.se 6666 n120=...UK, Demon:server efnet.demon.co.uk 6665 n121=..USA n122=...America OnLine:server irc02.irc.aol.com 6666 n123=...AZ, Phoenix:server irc-w.primenet.com 6666 n124=...AZ, Tucson:server irc.blackened.com 6666 n125=...CA, San Diego:server irc.cerf.net 6667 n126=...CO, Colorado:server irc.colorado.edu 6666 n127=...GA, Atlanta:server irc.emory.edu 6667 n128=...IL, Chicago:server irc.ais.net 6669 n129=...Netcom:server irc-2.netcom.com 6667 n130=...OK, Oklahoma:server irc.ionet.net 6667 n131=...VA, Herndon:server irc.psinet.com 6666 n132=...WA, Seattle:server irc.sprynet.com 6667 n133=.- n134=.Server ???:%temp.server = $?"Enter Server:" | %temp.port = $?="Port: (default = 6667)" | if (%temp.server == $null) { halt } | /server %temp.server %temp.port n135=&Channels n136=.Auto-Join:/dialog -m AJoin2 AJoin2 n137=.- n138=.#warez:/join #Warez n139=.#imladris:/join #imladris n140=.#U.S.Army:/join #U.S.Army n141=.#Lobby:/join #Lobby n142=.#UsA:/join #UsA n143=.- n144=.&Join Channel???:/join #$$?="Enter a channel to join:" n145=.- n146=.List Channels:/list n147=- n148=&NickServ n149=.&Help:. nickserv help n150=.&Info on Nick:. nickserv info $?="Which Nick?" n151=.- n152=.&Nickname:/nick $$?="Enter your new nickname:" n153=.I&Dentify:. nickserv identify $?*="Password" n154=.&Register:. nickserv register $?="Password" n155=.New &Pass:. nickserv set password $?="New password" n156=.&Ghost Kill:. NickServ ghost $$?="Enter nick" $$?*="Enter password" n157=.- n158=.Dro&p Nick: if ($yesno == Y) .nickserv drop n159=&ChanServ n160=.&Help:. ChanServ help $?="Get Help on" n161=.- n162=.I&Dentify:. chanserv identify #$?="channel" $?*="Password" n163=.&Register: . chanserv register #$?="channel" $?="Password" $?="Description" n164=.- n165=.&Info:. chanserv info #$?="channel" n166=.&Channel Settings n167=..&Founder:msg chanserv set #$?="channel" founder $$?="Enter Nick of New Founder" n168=..Pass&word:msg chanserv set #$?="channel" password $$?="Enter New Password" n169=..&Description:msg chanserv set #$?="channel" desc $$?="Enter New Description" n170=..- n171=..&Topic:msg chanserv set #$?="channel" topic $$?="Enter Topic" n172=..&Modes:msg chanserv set #$?="channel" mlock $$?="Enter Modes (+/- mode to activate/deactivate)" n173=..- n174=..&KeepTopic n175=...On:msg chanserv set #$?="channel" keeptopic on n176=...Off:msg chanserv set #$?="channel" keeptopic off n177=..&TopicLock n178=...On:msg chanserv set #$?="channel" topiclock on n179=...Off:msg chanserv set #$?="channel" topiclock off n180=..&Private n181=...On:msg chanserv set #$?="channel" private on n182=...Off:msg chanserv set #$?="channel" private off n183=..Secure&Ops n184=...On:msg chanserv set #$?="channel" secureops on n185=...Off:msg chanserv set #$?="channel" secureops off n186=..&Restricted n187=...On:msg chanserv set #$?="channel" restricted on n188=...Off:msg chanserv set #$?="channel" restricted off n189=..&Secure n190=...On:msg chanserv set #$?="channel" secure on n191=...Off:msg chanserv set #$?="channel" secure off n192=.- n193=.&Mode Lock:. ChanServ set #$?="channel" mlock +$?="Modes? (stinkl)" n194=.&Akick n195=..&Add:. chanserv akick #$?="channel" add $?="Nick or Host Mask" $?="Reason" n196=..&Del:. chanserv akick #$?="channel" del $?="Nick or Host Mask"..&List:. chanserv akick #$?="channel" list n197=.A&ccess n198=..&Add:. chanserv access #$?="channel" add $?="Nick" $?="Level" n199=..&List:. chanserv access #$?="channel" list n200=..&Del:. chanserv access #$?="channel" del $?="Nick" n201=.-.&Invite Me:/chanserv invite $?="Channel for invite:" n202=.&Unban Me:. chanserv unban #$?="channel" n203=.&Op Me:/chanserv op # $me n204=.DeOp &Me:/chanserv deop # $me n205=.- n206=.Op &User:. chanserv op #$?="channel" $?"Nick" n207=.&Deop User:. chanserv deop #$?="channel" $?"Nick" n208=.- n209=.&Clear n210=..&Ops:. chanserv clear #$?="channel" ops n211=..&Bans:. chanserv clear #$?="channel" bans n212=..&Modes:. chanserv clear #$?="channel" modes n213=..&Users:. chanserv clear #$?="channel" users n214=..&Voices:. chanserv clear #$?="channel" voices n215=&MemoServ n216=.&Help:. MemoServ help n217=.- n218=.Read &LAST: .memoserv read last n219=.- n220=.List &New:. memoserv list new n221=.List &All:. memoserv list n222=.&Read Memo:. memoserv read $$?="Enter message number" n223=.- n224=.&Send Memo:/memoserv send $?="Nick" $?="Memo:" n225=.- n226=.&Delete Memo:. memoserv del $$?="Enter message number" n227=.Delete &All Memos:. memoserv del all n228=- n229=&User Mode n230=.&Invisible n231=..On:/mode $me +i n232=..Off:/mode $me -i n233=.&Wall Ops n234=..On:/mode $me +w n235=..Off:/mode $me -w n236=.&Server Notices n237=..On:/mode $me +s n238=..Off:/mode $me -s n239=.- n240=.&Other:/mode $me $?="Enter mode" n241=- n242=&Edit Notes:/run notepad.exe notes.txt n243=&Shell to DOS:/run command n244=- n245=&Away n246=.Set &Away:/awaysystemleave n247=.Set &Back:/awaysystembacc n248=- n249=Quit IRC n250=.Quit Manager:/quitman n251=.- n252=.Quit IRC:/Quit_IRC n253=.Quit IRC [TTL] n254=..Start:/Quit_IRC_TTL_Start n255=..Abort:/Quit_IRC_TTL_Abort n256=- n257=&|[^Kenny_McCormick^]| n258=.WhoIs:/whois |[^Kenny_McCormick^]| n259=..NickInfo:/nickserv info |[^Kenny_McCormick^]| n260=...Identify:/nickserv Identify menoscal