]-[ydrobomb — File Browser
ydrobombv2.0 / ydrobombv2.0 / hydroali.ini
hydroali.ini — 18.55 KB — Download this file
[Aliases]
n0=autoexec { /inititbar | /.timer104 -o 0 1 /onlinecheck | /.timer105 -o 0 60 /unset %chatflood.* | /unset %secs %secstillmin %pcchan %amsg %chanflood* | /.timer103 0 180 /idlecheck | set %lastpage | /echo 2 -a []-[ydrobomb]=[STARTUP] %ver initialized successfully. | if %talk == [ON] /speak hi dro bomb two point oh initialized }
n1=/idlecheck /if %idledump == on { if $idle > 600 /goaway Automatically set away after 10 minutes }
n2=/f2 { /accping # invis | /.notice # Channel 4PING | /echo 4 -a []-[ydrobomb CHANPING]=[NORMAL MODE] Channel $+ # $+ pinged. }
n3=/sf2 {
n4= if $nick(1,#) != $me {
n5= %list = $nick(1,#)
n6= }
n7= else {
n8= %list = $nick(2,#)
n9= inc %rep 1
n10= }
n11= inc %rep 1
n12= :do
n13= inc %rep 1
n14= if $nick(%rep,#) != $me {
n15= %list1 = %list $+ , $+ $nick(%rep,#)
n16= %list = %list1
n17= }
n18= if %rep < $nick(0,#) /goto do
n19= /accping %list invis
n20= echo 4 -a []-[ydrobomb CHANPING]=[STEALTH MODE] Channel $+ # $+ pinged
n21= unset %list
n22= unset %list1
n23= unset %rep
n24=}
n25=}
n26=/f3 /remote off
n27=/f4 /remote on
n28=/f5 {
n29=if %badguy != $null {
n30= if %pcchan != $null {
n31= if $opnick(0,%pcchan) == $null {
n32= echo %pcchan Sorry, there are no ops on this chan.
n33= }
n34= elseif $opnick(0,%pcchan) == 1 {
n35= notice $opnick(1,%pcchan) []-[ydrobomb 4PERV Detector]=[WALLOP] $+ %badguy $+ is in $+ %bgchans $+
n36= }
n37= else {
n38= %oplist = $opnick(1,%pcchan)
n39= inc %rep
n40= :do
n41= inc %rep
n42= if $opnick(%rep,%pcchan) != $me /set %oplist1 %oplist $+ , $+ $opnick(%rep,%pcchan)
n43= %oplist = %oplist1
n44= if %rep < $opnick(0,%pcchan) /goto do
n45= notice %oplist []-[ydrobomb 4PERV Detector]=[WALLOP] $+ %badguy $+ is in $+ %bgchans $+
n46= set %rep
n47= set %oplist
n48= set %oplist1
n49= }
n50= unset %badguy
n51= unset %bgchans
n52= unset %pcchan
n53= }
n54=}
n55=else {
n56= echo 2 -a *** There are no pervs stored in memory
n57=}
n58=}
n59=/f6 { if %badguy != $null { if %pcchan != $null { kick %pcchan %badguy []-[ydrobomb 4PERV Detector]=[KICK] You were in these channels: $+ %bgchans $+ | unset %badguy | unset %bgchans | unset %pcchan } }
n60=else { echo 2 -a *** There are no pervs stored in memory }
n61=}
n62=/f7 { if %badguy != $null { if %pcchan != $null { ban -u30 %pcchan %badguy 1 | kick %pcchan %badguy []-[ydrobomb 4PERV Detector]=[TEMPBAN] You were in these channels: $+ %bgchans $+ | unset %badguy | unset %bgchans | unset %pcchan | } }
n63=else { echo 2 -a *** There are no pervs stored in memory }
n64=}
n65=/f8 { if %badguy != $null { if %pcchan != $null { ban %pcchan %badguy 3 | kick %pcchan %badguy []-[ydrobomb 4PERV Detector]=[BAN] You were in these channels: $+ %bgchans $+ | unset %badguy | unset %bgchans | unset %pcchan } }
n66=else { echo 2 -a *** There are no pervs stored in memory }
n67=}
n68=/f9 /clone
n69=/f10 { clear | if # != $null { echo 3 -a *** Now talking in # }
n70=}
n71=/f11 /portscan
n72=/f12 {
n73=if %bestport != $null {
n74= if %bestport != $port {
n75= server $server %bestport
n76= }
n77= else {
n78= echo 2 -a *** You are on this server's best port.
n79= }
n80=}
n81=else {
n82= echo 2 -a *** The best port on this server has not been found, press F11 to find it
n83=}
n84=}
n85=/op /mode # +ooo $$1 $2 $3
n86=/dop /mode # -ooo $$1 $2 $3
n87=/md /mode # $$1 +2
n88=/j /join #$$1
n89=/p /part #
n90=/n /names #$$1
n91=/w /whois $$1
n92=/k /kick # $$1 $2
n93=/q /query $$1
n94=/hop /part # | /join #$$1
n95=/send /dcc send $1 $2
n96=/chat /dcc chat $1
n97=/ping /accping $$1
n98=/top { if $1 != $null { topic # $$1 *2 }
n99=if $1 == $null { topic # $chr(13) }
n100=}
n101=/list /raw list >2
n102=/opnot { if $me isop # { /.onotice # [-=OnOtIcE/ $+ $+ # $+ $+ =-] $$1 *2 | echo 5 -a - $+ $me $+ - [-=OnOtIcE/ $+ $+ # $+ $+ =-] $$1 *2 }
n103=else { %tot = $opnick(0,#) | %count = 1 | %list = $opnick(1,#) | if %tot = 1 /goto end | if %tot = 0 { echo 2 -a *** None of the people on this channel are ops. | goto cleanup }
n104= :do
n105= inc %count 1
n106= %list1 = %list $+ , $+ $opnick(%count,#)
n107= %list = %list1
n108= if %count != %tot /goto do
n109= :end
n110= /.notice %list [-= $+ $+ ]-[ydrOnOtIcE $+ $+ =-]:[= $+ $+ # $+ $+ =] *1
n111= echo 5 -a - $+ $me $+ - [-= $+ $+ ]-[ydrOnOtIcE $+ $+ =-]:[= $+ $+ # $+ $+ =] *1
n112= :cleanup
n113= unset %tot
n114= unset %count
n115= unset %list
n116= unset %list
n117= unset %list1
n118=}
n119=}
n120=/noop {
n121=%tot = $nopnick(0,#)
n122=%count = 1
n123=%list = $nopnick(1,#)
n124=if %tot = 1 /goto end
n125=if %tot = 0 {
n126= echo 2 -a *** All of the people on this channel are ops
n127= goto cleanup
n128=}
n129=:do
n130=inc %count 1
n131=%list1 = %list $+ , $+ $nopnick(%count,#)
n132=%list = %list1
n133=if %count != %tot /goto do
n134=:end
n135=/.notice %list [=ReVerse WaLLop=]:[= $+ # $+ =] *1
n136=echo 5 -a [=ReVerse WaLLop=]:[= $+ # $+ =] *1
n137=:cleanup
n138=unset %tot
n139=unset %count
n140=unset %list
n141=unset %list
n142=unset %list1
n143=}
n144=/behind {
n145=if $$1 ison # {
n146= if $$1 != $me {
n147= if ( $nick(1,#) != $me ) && ( $nick(1,#) != $$1 ) {
n148= %list = $nick(1,#)
n149= }
n150= {
n151= %list = $nick(2,#)
n152= inc %rep 1
n153= }
n154= inc %rep 1
n155= :do
n156= inc %rep 1
n157= if $nick(%rep,#) != $me && $nick(%rep,#) != $$1 {
n158= %list1 = %list $+ , $+ $nick(%rep,#)
n159= %list = %list1
n160= }
n161= if %rep < $nick(0,#) /goto do
n162= /.notice %list [BeHiND $$1 $+ 's BaCK] $$2 *3
n163= echo 5 -a - $+ $me $+ - [BeHiND $$1 $+ 's BaCK] $$2 *3
n164= set %list
n165= set %list1
n166= set %rep
n167= }
n168= else {
n169= echo You must be flexible, going behind your own back...
n170= }
n171=}
n172=else {
n173= echo -a *** $$1 is not on this channel
n174=}
n175=}
n176=/fakectcp { if $$1 != $me { %type = $upper($$?="Type?") | %repl = $$?="Reply arguments?" | raw -q NOTICE $$1 : $+ %type %repl $+ | echo 4 -a -> $$1 [ $+ %type reply]: %repl | unset %type | unset %repl | }
n177=else { echo 2 -a *** Don't FAKECTCP yourself }
n178=}
n179=/FakeCTCP2 { if $$1 != $me { raw -q NOTICE $$1 : $+ $upper($$2) $$3 $+ }
n180=else { echo 2 -a *** Don't FAKECTCP yourself }
n181=}
n182=/pcheck {
n183=if %pcchan != $null {
n184= if sex isin *2 || ! isin *2 || pics isin *2 || fuck isin *2 || ass isin *2 || nude isin *2 || naked isin *2 {
n185= if %talk == [ON] /speak hi dro bomb perv detection on $$1
n186= echo 4 -a *** []-[ydrobomb PERV detection]=[ $+ $$1 $+ ]
n187= echo 2 -a Channel list: *2
n188= if %badguy == $null {
n189= %badguy = $$1
n190= %bgchans = *2
n191= if $me isop %pcchan {
n192= echo 2 -a Press F5 to notice the ops, F6 to kick, F7 to TempBan, F8 to kick and ban
n193= }
n194= else {
n195= echo 2 -a Press F5 to notice the ops
n196= }
n197= /.timer105 1 15 /unset %badguy
n198= /.timer106 1 15 /unset %bgchans
n199= /.timer107 1 15 /unset %pcchan
n200= }
n201= }
n202= else {
n203= if %showchannels == [ON] {
n204= echo 3 %pcchan []-[ydrobomb PERV detection]=[PASS] $+ $$1 $+ is in $+ *2 $+ $+ , no chans match criteria
n205= }
n206= }
n207=}
n208=else {
n209= unset %pcchan
n210=}
n211=}
n212=/about { echo 2 -a ========================= | echo 2 -a $chr(124) ]-[ydrobomb | echo 2 -a $chr(124) a script for mIRC 4.7 | echo 2 -a $chr(124) $+ --------------------- | echo 2 -a $chr(124) Current Version: 2.0 | echo 2 -a $chr(124) $+ --------------------- | echo 2 -a $chr(124) © Einstein, 1996 | echo 2 -a $chr(124) <sdl@iamerica.net> | echo 2 -a $chr(124) Find the latest news about ]-[ydro @ http://cust2.iamerica.net/sdl/hydro | echo 2 -a ========================= | echo 2 -a ----License----
n213=echo 2 -a You may distribute ]-[ydrobomb to anyone, on any terms you wish. It's "freeware." My only requirement is that you don't modify, change, "fix," etc.etc.etc., the original ZIP file. If you discover a bug, please don't try to correct it and then distribute your changes. Once you unzip it, you can change whatever you want, but don't pass out the modified version. Also, do not disable the VERSION reply.
n214=echo 2 -a Â
n215=echo 2 -a NOTE TO mIRC SCRIPT PAGE OWNERS: If you put ]-[ydrobomb on your site, please e-mail me about it and I'll put a link to your page.
n216=echo 2 -a Â
n217=echo 2 -a Send all bug reports, suggestions, complaints, requests, and flames to the email address above.
n218=}
n219=/recadd {
n220=if %recneed == $null {
n221= if $$1 != $me {
n222= if $address($$1,3) == $null {
n223= set %recneed $$1
n224= userhost $$1
n225= }
n226= else {
n227= /.guser 2 $$1 3
n228= writeini hydro.ini Recognize $address($$1,3) $$1
n229= echo 2 -a []-[ydrobomb RECOGNIZER]=[ $+ $+ $$1 $+ $+ ] This person now recognized by $+ $address($$1,3) $+
n230= }
n231= }
n232= else {
n233= echo 2 -a *** I think you should be able to recognize yourself...
n234= }
n235=}
n236=else {
n237= echo 2 -a *** Still trying to find %recneed $+ 's address
n238=}
n239=}
n240=/rectake {
n241=/.ruser $$1 3
n242=if $address($$1,3) != $null {
n243= remini hydro.ini Recognize $address($$1,3)
n244= echo 2 -a *** $$1 removed from ]-[ydrobomb recognize list
n245=}
n246=else {
n247= set %remneed $$1
n248= userhost $$1
n249=}
n250=}
n251=/recognize {
n252=if %rectry == $null {
n253= if $address($$1,3) != $null {
n254= if 2 isin $level($address($$1,3)) {
n255= echo 2 -a []-[ydrobomb RECOGNIZER] $+ $$1 $+ recognized as $+ $readini hydro.ini Recognize $address($$1,3) $+
n256= }
n257= else {
n258= echo 2 -a *** $$1 isn't in Recognize file
n259= }
n260= unset %recadr
n261= }
n262= else {
n263= %rectry = $$1
n264= .timer 1 11 /unset %rectry
n265= .timer 1 10 /if $chr(37) $+ rectry != $null /echo 2 -a *** Can't find $chr(37) $+ rectry $+ 's address
n266= unset %ushostneed
n267= userhost $$1
n268= }
n269=}
n270=else {
n271= echo 2 -a *** Still checking for %rectry $+ 's address
n272=}
n273=}
n274=/whos /.raw whois $$1 | /set %whoisneed $$1
n275=/whois /whos $$1
n276=/goaway {
n277=%amsg.pre = *1
n278=if %amsg.pre != $null {
n279= %amsg = %amsg.pre
n280= unset %amsg.pre
n281= /.enable #awaydet
n282= if %idledump == on {
n283= /.disable #idledump
n284= }
n285= /away Since $stdtime on $day $adate ( $+ $+ %amsg $+ $+ ) Pager: %pager /ctcp $me PAGE to page
n286= awayann
n287= /.timer101 0 900 /awayann
n288= /.timer103 off
n289= /titlebarupdate
n290=}
n291=else {
n292= if %amsg != $null {
n293= %amsg.temp = %amsg
n294= unset %amsg
n295= /.timer101 off
n296= /away
n297= backann
n298= unset %away.time
n299= unset %amsg.temp
n300= /.timer103 0 600 /idlecheck
n301= }
n302= else {
n303= echo 2 -a *** You are not away
n304= }
n305= titlebarupdate
n306=}
n307=}
n308=/awayann {
n309=if %away.time == $null /set %away.time $stdtime
n310=if $chan(0) != 0 /ame is away ( $+ $+ %amsg $+ $+ ) since %away.time Pager: %pager /CTCP $me PAGE to page
n311=}
n312=/backann {
n313=if $chan(0) != 0 /ame has returned from $chr(91) $+ $+ %amsg.temp $+ $+ $chr(93) at $stdtime $+ , gone since %away.time
n314=}
n315=/banlist {
n316=if $1 == $null {
n317= set %bancheck #
n318= mode # +b
n319=}
n320=else {
n321= set %bancheck $$1
n322= mode $$1 +b
n323=}
n324=}
n325=/clone /clonedet #
n326=/clonedet {
n327=if $nick(0,$$1) <= 70 {
n328= if %whoing != $$1 {
n329= set %clonfound 0
n330= :maindo
n331= inc %mainrep 1
n332= %checknick = $nick(%mainrep,$$1)
n333= %checkadd = $address($nick(%mainrep,$$1),2)
n334= %subrep = %mainrep
n335= :subdo
n336= inc %subrep 1
n337= if %checkadd = $address($nick(%subrep,$$1),2) {
n338= echo 4 -a [Clone Detect]=[ $+ $$1 $+ ] $+ $nick(%subrep,$$1) $+ is a 4CLONE of $+ %checknick $+ (Both using address $+ $token(2,64,%checkadd) $+ $+ )
n339= inc %clonfound 1
n340= }
n341= if %subrep < $nick(0,$$1) /goto subdo
n342= unset %subrep
n343= unset %subtim
n344= if %mainrep < $nick(0,$$1) /goto maindo
n345= unset %mainrep
n346= unset %checknick
n347= unset %checkadd
n348= echo 2 -a [Clone Detect]=[ $+ $$1 $+ ] Clone detect finished, maximum of $+ %clonfound $+ clones located
n349= set %clonfound
n350= set %delay
n351= set %tim
n352= set %rep
n353= set %mainrep
n354= set %checknick
n355= set %checkadd
n356= set %subrep
n357= }
n358= else {
n359= echo 2 -a [Clone Detect]=[ $+ $$1 $+ ] Please wait one moment while the user address data comes in...
n360= set %whoneed $$1
n361= }
n362=}
n363=if $nick(0,$$1) > 70 { {
n364= echo 2 -a [Clone Detect]=[ $+ $$1 $+ ] Too many users, a clone detect could destablilize the program.
n365= }
n366=}
n367=}
n368=/onjoinclone {
n369=if %whoing != $$2 {
n370= :do
n371= inc %crep 1
n372= if $nick(%crep,$$2) != $$1 {
n373= if ( $address($$1,2) == $address($nick(%crep,$$2),2) ) && ( $address($$1,2) != $null ) { echo 4 $$2 [Clone Detect]=[ALERT] $+ $$1 $+ is a CLONE of $+ $nick(%crep,$$2) $+ (both using address $+ $token(2,64,$address($$1,2)) $+ $+ ) | if %talk == [ON] /speak hi dro bomb on join clone detect, $$1 is a clone of $nick(%crep,$$2) }
n374= }
n375= if %crep < $nick(0,$$2) /goto do
n376= unset %crep
n377=}
n378=}
n379=/hydro /me $read c:\mirc\hydrosay.txt Einstein's %ver
n380=/dping /run ping $gettok($address($$1,1),2,64)
n381=/tracert /run tracert $gettok($address($$1,1),2,64)
n382=/srvping /run ping $server
n383=/sload {
n384=if (( $right(5,$$1) == .mirc ) || ( $right(4,$$1) == .mir )) {
n385= %addnam = $mircdir $+ addon\ $+ $$1
n386= if $exists(%addnam) = $true {
n387= echo 4 -a *** []-[ydrobomb 8,1Addon Support]=[LOADING] Loading $+ $$1 $+
n388= play -c $me $mircdir $+ addon\ $+ $$1 0
n389= echo 4 -a *** []-[ydrobomb 8,1Addon Support]=[COMPLETE] $+ $$1 $+ loaded succesfully.
n390= goto end
n391= }
n392= else {
n393= echo 4 -a *** []-[ydrobomb 8,1Addon Support]=[FAIL] $+ $$1 $+ is not in your \ADDON directory.
n394= }
n395=}
n396=else {
n397= echo 4 -a *** []-[ydrobomb 8,1Addon Support]=[FAIL] Unsupported extension (should be .mir or .mirc)
n398=}
n399=:end
n400=}
n401=/portscan {
n402=/.enable #portscan
n403=stats l
n404=echo 2 []-[ydrobomb PORTSCAN]=[START] Preparing port scan. Portions of Port Scanner © LoKi128
n405=}
n406=/rev {
n407=%txt = $$1 *2
n408=%pos = $len(%txt)
n409=%msg = $mid(%pos,1,%txt)
n410=:do
n411=dec %pos
n412=if %pos == 0 /goto end
n413=%msg1 = %msg
n414=if $mid(%pos,1,%txt) != $chr(32) {
n415= %msg = %msg1 $+ $mid(%pos,1,%txt)
n416=}
n417=else {
n418= %msg = %msg1 $+ Â
n419=}
n420=unset %msg1
n421=goto do
n422=:end
n423=say %msg
n424=unset %txt %pos %msg %msg1 %curchar
n425=}
n426=/docs /run notepad.exe $mircdir $+ hydrohlp.txt
n427=/accping {
n428=/.raw privmsg $$1 : $+ $chr(1) $+ PING 100 $+ [ $ticks ] $+ $chr(1)
n429=if $2 == $null /echo 4 -a -> [ $+ $$1 PING]
n430=}
n431=/accpingread {
n432=%curtix = $ticks
n433=%pingreplen = $len($$2) - 3
n434=%pingreply = $right(%pingreplen,$$2)
n435=%ticktime = %curtix - %pingreply
n436=if $$1 != $me {
n437= if %ticktime >= 1000 {
n438= set %Tick.Offset $len(%TickTime) - 3
n439= set %Tick.Int $left(%Tick.Offset,%TickTime)
n440= set %Tick.Dec $right(3,%TickTime)
n441= }
n442= else {
n443= set %tick.int 0
n444= set %tick.dec %ticktime
n445= }
n446= echo 4 -a [ $+ $$1 PING reply]: $+ %tick.int $+ $chr(46) $+ %tick.dec $+ seconds
n447= if %pingtell == [ON] /.notice $$1 Your PING Reply: $+ %tick.int $+ $chr(46) $+ %tick.dec $+ seconds (From server $server $+ )
n448=}
n449=else {
n450= %ticktime1 = %ticktime
n451= %ticktime = %ticktime1 / 2
n452= unset %ticktime1
n453= if %ticktime >= 1000 {
n454= set %Tick.Offset $len(%TickTime) - 3
n455= set %Tick.Int $left(%Tick.Offset,%TickTime)
n456= set %Tick.Dec $right(3,%TickTime)
n457= }
n458= else {
n459= set %tick.int 0
n460= set %tick.dec %ticktime
n461= }
n462= /.set %srvlag %tick.int $+ $chr(46) $+ %tick.dec
n463= /titlebarupdate
n464=}
n465=unset %curtix
n466=unset %pingreplen
n467=unset %pingreply
n468=unset %ticktime
n469=unset %tick.offset
n470=unset %tick.int
n471=unset %tick.dec
n472=}
n473=}
n474=/titlebarupdate {
n475=if $idle == 1 /set %idle $idle sec
n476=if $idle != 1 /set %idle $idle secs
n477=if %amsg == $null {
n478=titlebar $strip(%ver) =+= Server Lag: %srvlag secs =+= Idle: %idle =+= Time: $stdtime
n479=}
n480=else {
n481=titlebar $strip(%ver) =+= AWAY =+= Server Lag: %srvlag secs =+= Time: $stdtime
n482=}
n483=}
n484=stdtime {
n485=if $token(1,58,$time) > 11 {
n486=if $token(1,58,$time) != 12 {
n487= %stdtimehr = $token(1,58,$time) - 12
n488=}
n489=else {
n490= %stdtimehr = 12
n491=}
n492=%stdtime = %stdtimehr $+ : $+ $token(2,58,$time) PM
n493=unset %awayhr
n494=return %stdtime
n495=}
n496=elseif $token(1,58,$time) == 0 {
n497=%stdtime = 12: $+ $token(2,58,$time) AM
n498=return %stdtime
n499=}
n500=else {
n501=%stdtime = $token(1,58,$time) $+ : $+ $token(2,58,$time) AM
n502=return %stdtime
n503=}
n504=}
n505=/inititbar {
n506=titlebar $strip(%ver) =+= Getting information...
n507=/accping $me invis
n508=/.timer102 0 20 /accping $chr(36) $+ me invis
n509=}
n510=/onlinecheck {
n511=if $server == $null {
n512=titlebar $strip(%ver) =+= Disconnected
n513=}
n514=}
n515=/chanstat {
n516=if ( %chanstat.currchan == $null ) && ( %whoing == $null ) {
n517=set %chanstat.currchan $$1
n518=echo 2 -a *** []-[ydrobomb CHANSTAT]=[START] Receiving information, please wait...
n519=who $$1
n520=}
n521=else {
n522=echo 2 -a *** ]-[ydrobomb CHANSTAT engine is busy
n523=}
n524=}
n525=/stat /chanstat #
n526=percent {
n527=%percent1 = $$1 * 100
n528=%percent2 = %percent1 / $$2
n529=unset %percent1
n530=return %percent2
n531=unset %percent2
n532=}
n533=avghops {
n534=%avghops1 = %chanstat.tothops * 100
n535=%avghops2 = %avghops1 / $nick(0,%chanstat.currchan)
n536=%intlength = $len(%avghops2) - 2
n537=%finans = $left(%intlength,%avghops2) $+ $chr(46) $+ $right(2,%avghops2)
n538=return %finans
n539=}