]-[ydrobomb — File Browser
ydrobombv2.2 / ydrobombv2.2 / hydali.ini
hydali.ini — 21.51 KB — Download this file
[aliases]
n0=autoexec { /inititbar | /.timer104 -o 0 1 /onlinecheck | /.timer105 -o 0 60 /unset %chatflood.* | /unset %secs %secstillmin %pcchan %badguy %badguychans %amsg | /.timer103 0 180 /idlecheck | set %lastpage | /.rlevel =310 | /.rlevel =311 | /.rlevel =312 | /.rlevel =313 | /.timer 0 3600 /chanfloodclean | /splitdetcheck | /set %selfdns checking | /dns $me | /if %netsplitdet == [ON] /mode $me +s }
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= quit ]-[ydrobomb PORTSCAN - Switching to port $+ %bestport $+
n76= server $server %bestport
n77= }
n78= else {
n79= echo 2 -a *** You are on this server's best port.
n80= }
n81=}
n82=else {
n83= echo 2 -a *** The best port on this server has not been found, press F11 to find it
n84=}
n85=}
n86=/op /mode # +ooo $$1 $2 $3
n87=/dop /mode # -ooo $$1 $2 $3
n88=/md /mode # $$1 +2
n89=/j /join #$$1
n90=/p /part #
n91=/n /names #$$1
n92=/w /whois $$1
n93=/k /kick # $$1 $2
n94=/q /query $$1
n95=/hop /part # | /join #$$1
n96=/send /dcc send $1 $2
n97=/chat /dcc chat $1
n98=/ping /accping $$1
n99=/top { if $1 != $null { topic # $$1 *2 }
n100=if $1 == $null { topic # $chr(13) }
n101=}
n102=/list /raw list >2
n103=/opnot { if $me isop # { /.onotice # [-=OnOtIcE/ $+ $+ # $+ $+ =-] $$1 *2 | echo 5 -a - $+ $me $+ - [-=OnOtIcE/ $+ $+ # $+ $+ =-] $$1 *2 }
n104=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 }
n105= :do
n106= inc %count 1
n107= %list1 = %list $+ , $+ $opnick(%count,#)
n108= %list = %list1
n109= if %count != %tot /goto do
n110= :end
n111= /.notice %list [-= $+ $+ ]-[ydrOnOtIcE $+ $+ =-]:[= $+ $+ # $+ $+ =] *1
n112= echo 5 -a - $+ $me $+ - [-= $+ $+ ]-[ydrOnOtIcE $+ $+ =-]:[= $+ $+ # $+ $+ =] *1
n113= :cleanup
n114= unset %tot
n115= unset %count
n116= unset %list
n117= unset %list
n118= unset %list1
n119=}
n120=}
n121=/noop {
n122=%tot = $nopnick(0,#)
n123=%count = 1
n124=%list = $nopnick(1,#)
n125=if %tot = 1 /goto end
n126=if %tot = 0 {
n127= echo 2 -a *** All of the people on this channel are ops
n128= goto cleanup
n129=}
n130=:do
n131=inc %count 1
n132=%list1 = %list $+ , $+ $nopnick(%count,#)
n133=%list = %list1
n134=if %count != %tot /goto do
n135=:end
n136=/.notice %list [=ReVerse WaLLop=]:[= $+ # $+ =] *1
n137=echo 5 -a [=ReVerse WaLLop=]:[= $+ # $+ =] *1
n138=:cleanup
n139=unset %tot
n140=unset %count
n141=unset %list
n142=unset %list
n143=unset %list1
n144=}
n145=/behind {
n146=if $$1 ison # {
n147= if $$1 != $me {
n148= if ( $nick(1,#) != $me ) && ( $nick(1,#) != $$1 ) {
n149= %list = $nick(1,#)
n150= }
n151= {
n152= %list = $nick(2,#)
n153= inc %rep 1
n154= }
n155= inc %rep 1
n156= :do
n157= inc %rep 1
n158= if $nick(%rep,#) != $me && $nick(%rep,#) != $$1 {
n159= %list1 = %list $+ , $+ $nick(%rep,#)
n160= %list = %list1
n161= }
n162= if %rep < $nick(0,#) /goto do
n163= /.notice %list [BeHiND $$1 $+ 's BaCK] $$2 *3
n164= echo 5 -a - $+ $me $+ - [BeHiND $$1 $+ 's BaCK] $$2 *3
n165= set %list
n166= set %list1
n167= set %rep
n168= }
n169= else {
n170= echo You must be flexible, going behind your own back...
n171= }
n172=}
n173=else {
n174= echo -a *** $$1 is not on this channel
n175=}
n176=}
n177=/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 | }
n178=else { echo 2 -a *** Don't FAKECTCP yourself }
n179=}
n180=/FakeCTCP2 { if $$1 != $me { raw -q NOTICE $$1 : $+ $upper($$2) $$3 $+ }
n181=else { echo 2 -a *** Don't FAKECTCP yourself }
n182=}
n183=/pcheck {
n184=if %pcchan isin *2 {
n185= if sex isin *2 || ! == $mid(2,1,*2) || pics isin *2 || fuck isin *2 || ass isin *2 || nude isin *2 || naked isin *2 {
n186= if %talk == [ON] /speak hi dro bomb perv detection on $$1
n187= echo 4 -a *** []-[ydrobomb PERV detection]=[ $+ $$1 $+ ]
n188= echo 2 -a Channel list: *2
n189= if %badguy == $null {
n190= %badguy = $$1
n191= %bgchans = *2
n192= if $me isop %pcchan {
n193= echo 2 -a Press F5 to notice the ops, F6 to kick, F7 to TempBan, F8 to kick and ban
n194= }
n195= else {
n196= echo 2 -a Press F5 to notice the ops
n197= }
n198= /.timer105 1 15 /unset %badguy
n199= /.timer106 1 15 /unset %bgchans
n200= /.timer107 1 15 /unset %pcchan
n201= }
n202= }
n203= else {
n204= if %showchannels == [ON] {
n205= echo 3 %pcchan []-[ydrobomb PERV detection]=[PASS] $+ $$1 $+ is in $+ *2 $+ $+ , no chans match criteria
n206= }
n207= }
n208=}
n209=else {
n210= unset %pcchan
n211=}
n212=}
n213=/about { echo 2 -a ========================= | echo 2 -a $chr(124) ]-[ ydrobomb | echo 2 -a $chr(124) a script for mIRC 5.0 | echo 2 -a $chr(124) $+ --------------------- | echo 2 -a $chr(124) Current Version: 2.2 | echo 2 -a $chr(124) $+ --------------------- | echo 2 -a $chr(124) © Einstein, 1997 | 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----
n214=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.
n215=echo 2 -a Â
n216=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.
n217=echo 2 -a Â
n218=echo 2 -a Send all bug reports, suggestions, complaints, requests, and flames to the email address above.
n219=}
n220=/recadd {
n221=if %recneed == $null {
n222= if $$1 != $me {
n223= if $address($$1,3) == $null {
n224= set %recneed $$1
n225= userhost $$1
n226= }
n227= else {
n228= /.guser 2 $$1 3
n229= writeini hydro.ini Recognize $address($$1,3) $$1
n230= echo 2 -a []-[ydrobomb RECOGNIZER]=[ $+ $+ $$1 $+ $+ ] This person now recognized by $+ $address($$1,3) $+
n231= }
n232= }
n233= else {
n234= echo 2 -a *** I think you should be able to recognize yourself...
n235= }
n236=}
n237=else {
n238= echo 2 -a *** Still trying to find %recneed $+ 's address
n239=}
n240=}
n241=/rectake {
n242=/.ruser $$1 3
n243=if $address($$1,3) != $null {
n244= remini hydro.ini Recognize $address($$1,3)
n245= echo 2 -a *** $$1 removed from ]-[ydrobomb recognize list
n246=}
n247=else {
n248= set %remneed $$1
n249= userhost $$1
n250=}
n251=}
n252=/recognize {
n253=if %rectry == $null {
n254= if $address($$1,3) != $null {
n255= if 2 isin $level($address($$1,3)) {
n256= echo 2 -a []-[ydrobomb RECOGNIZER] $+ $$1 $+ recognized as $+ $readini hydro.ini Recognize $address($$1,3) $+
n257= }
n258= else {
n259= echo 2 -a *** $$1 isn't in Recognize file
n260= }
n261= unset %recadr
n262= }
n263= else {
n264= %rectry = $$1
n265= .timer 1 11 /unset %rectry
n266= .timer 1 10 /if $chr(37) $+ rectry != $null /echo 2 -a *** Can't find $chr(37) $+ rectry $+ 's address
n267= unset %ushostneed
n268= userhost $$1
n269= }
n270=}
n271=else {
n272= echo 2 -a *** Still checking for %rectry $+ 's address
n273=}
n274=}
n275=/whos /.raw whois $$1 | /set %whoisneed $$1
n276=/whois /whos $$1
n277=/rwhois {
n278=%rwhois.start = $ticks
n279=if $2 {
n280= unset %rwhoisneed
n281= %whoisneed = $$1
n282= %rwhoischeck = $$1
n283= %rwhoisserver = $2
n284= /.raw whois $2 $$1
n285= echo 2 -a *** []-[ydrobomb RWHOIS] Whois request for $+ $$1 $+ sent to server $+ $2 $+
n286= /.timer 1 300 /if $chr(37) $+ whoisneed == $$1 { unset $chr(37) $+ rwhoischeck $chr(37) $+ rwhoisserver }
n287= /.timer 1 300 /if $chr(37) $+ whoisneed == $$1 { echo 2 -a *** []-[ydrobomb RWHOIS] Whois request for $+ $$1 $+ timed out. }
n288= /.timer 1 300 /if $chr(37) $+ whoisneed == $$1 { unset $chr(37) $+ whoisneed }
n289=}
n290=else {
n291= set %rwhoisneed $$1
n292= /.raw whois $$1
n293= echo 2 -a *** []-[ydrobomb RWHOIS] Looking up $+ $$1 $+ $+ 's server...
n294=}
n295=}
n296=/goaway {
n297=%amsg.pre = *1
n298=if %amsg.pre != $null {
n299= %amsg = %amsg.pre
n300= unset %amsg.pre
n301= /.enable #awaydet
n302= if %idledump == on {
n303= /.disable #idledump
n304= }
n305= /away Since $stdtime on $day $adate ( $+ $+ %amsg $+ $+ ) Pager: %pager /ctcp $me PAGE to page
n306= awayann
n307= /.timer101 0 900 /awayann
n308= /.timer103 off
n309= /titlebarupdate
n310=}
n311=else {
n312= if %amsg != $null {
n313= %amsg.temp = %amsg
n314= unset %amsg
n315= /.timer101 off
n316= /away
n317= backann
n318= unset %away.time
n319= unset %amsg.temp
n320= /.timer103 0 600 /idlecheck
n321= }
n322= else {
n323= echo 2 -a *** You are not away
n324= }
n325= titlebarupdate
n326=}
n327=}
n328=/awayann {
n329=if %away.time == $null /set %away.time $stdtime
n330=if $chan(0) != 0 /ame is away ( $+ $+ %amsg $+ $+ ) since %away.time Pager: %pager /CTCP $me PAGE to page
n331=}
n332=/backann {
n333=if $chan(0) != 0 /ame has returned from $chr(91) $+ $+ %amsg.temp $+ $+ $chr(93) at $stdtime $+ , gone since %away.time
n334=}
n335=/banlist {
n336=if $1 == $null {
n337= set %bancheck #
n338= mode # +b
n339=}
n340=else {
n341= set %bancheck $$1
n342= mode $$1 +b
n343=}
n344=}
n345=/clone /clonedet #
n346=/clonedet {
n347=/set %clonedetstart $ticks
n348=if $nick(0,$$1) <= 70 {
n349= if %whoing != $$1 {
n350= set %clonfound 0
n351= :maindo
n352= inc %mainrep 1
n353= %checknick = $nick(%mainrep,$$1)
n354= %checkadd = $address($nick(%mainrep,$$1),2)
n355= %subrep = %mainrep
n356= :subdo
n357= inc %subrep 1
n358= if %checkadd = $address($nick(%subrep,$$1),2) {
n359= echo 4 -a [Clone Detect]=[ $+ $$1 $+ ] $+ $nick(%subrep,$$1) $+ is a 4CLONE of $+ %checknick $+ (Both using address $+ $token(2,64,%checkadd) $+ $+ )
n360= inc %clonfound 1
n361= }
n362= if %subrep < $nick(0,$$1) /goto subdo
n363= unset %subrep
n364= unset %subtim
n365= if %mainrep < $nick(0,$$1) /goto maindo
n366= unset %mainrep
n367= unset %checknick
n368= unset %checkadd
n369= %clonedettime = $ticks - %clonedetstart
n370= echo 2 -a [Clone Detect]=[ $+ $$1 $+ ] Clone detect finished, maximum of $+ %clonfound $+ clones located
n371= echo 2 -a [Clone Detect]=[ $+ $$1 $+ ] Completed in $+ $ticsec(%clonedettime) $+ seconds
n372= unset %clonedettime %clonedetstart %clonfound %delay %tim %rep %mainrep %checknick %checkadd %subrep
n373= }
n374= else {
n375= echo 2 -a [Clone Detect]=[ $+ $$1 $+ ] Please wait one moment while the user address data comes in...
n376= set %whoneed $$1
n377= }
n378=}
n379=if $nick(0,$$1) > 70 { {
n380= echo 2 -a [Clone Detect]=[ $+ $$1 $+ ] Too many users, a clone detect could destablilize the program.
n381= }
n382=}
n383=}
n384=/onjoinclone {
n385=:do
n386=inc %crep 1
n387=if $nick(%crep,$$2) != $$1 {
n388= if $address($$1,2) == $address($nick(%crep,$$2),2) { 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) }
n389=}
n390=if %crep < $nick(0,$$2) /goto do
n391=unset %crep
n392=}
n393=/hydro /me $read [ $mircdir $+ hydrosay.txt ] Einstein's %ver
n394=/dping /run ping $gettok($address($$1,1),2,64)
n395=/tracert /run tracert $gettok($address($$1,1),2,64)
n396=/srvping /run ping $server
n397=/sload {
n398=if (( $right(5,$$1) == .mirc ) || ( $right(4,$$1) == .mir )) {
n399= %addnam = $mircdir $+ addon\ $+ $$1
n400= if $exists(%addnam) = $true {
n401= echo 4 -a *** []-[ydrobomb 8,1Addon Support]=[LOADING] Loading $+ $$1 $+
n402= play -c $me $mircdir $+ addon\ $+ $$1 0
n403= echo 4 -a *** []-[ydrobomb 8,1Addon Support]=[COMPLETE] $+ $$1 $+ loaded succesfully.
n404= goto end
n405= }
n406= else {
n407= echo 4 -a *** []-[ydrobomb 8,1Addon Support]=[FAIL] $+ $$1 $+ is not in your \ADDON directory.
n408= }
n409=}
n410=else {
n411= echo 4 -a *** []-[ydrobomb 8,1Addon Support]=[FAIL] Unsupported extension (should be .mir or .mirc)
n412=}
n413=:end
n414=}
n415=/portscan {
n416=set %portscanstart $ticks
n417=/.enable #portscan
n418=stats l
n419=echo 2 []-[ydrobomb PORTSCAN]=[START] Preparing port scan. Portions of Port Scanner © LoKi128
n420=}
n421=/rev {
n422=%txt = $$1 *2
n423=%pos = $len(%txt)
n424=%msg = $mid(%pos,1,%txt)
n425=:do
n426=dec %pos
n427=if %pos == 0 /goto end
n428=%msg1 = %msg
n429=if $mid(%pos,1,%txt) != $chr(32) {
n430= %msg = %msg1 $+ $mid(%pos,1,%txt)
n431=}
n432=else {
n433= %msg = %msg1 $+ Â
n434=}
n435=unset %msg1
n436=goto do
n437=:end
n438=say %msg
n439=unset %txt %pos %msg %msg1 %curchar
n440=}
n441=/docs /run notepad.exe $mircdir $+ hydrohlp.txt
n442=/accping {
n443=/.raw privmsg $$1 : $+ $chr(1) $+ PING 100 $+ [ $ticks ] $+ $chr(1)
n444=if $2 == $null /echo 4 -a -> [ $+ $$1 PING]
n445=}
n446=/accpingread {
n447=%curtix = $ticks
n448=%pingreplen = $len($$2) - 3
n449=%pingreply = $right($$2,%pingreplen)
n450=%ticktime = %curtix - %pingreply
n451=if $$1 != $me {
n452= echo 4 -a [ $+ $$1 PING reply]: $+ $ticsec(%ticktime) $+ seconds
n453= if %pingtell == [ON] /.notice $$1 Your PING Reply: $+ $ticsec(%ticktime) $+ seconds (From server $server $+ )
n454=}
n455=else {
n456= %ticktime1 = %ticktime
n457= %ticktime = %ticktime1 / 2
n458= unset %ticktime1
n459= /.set %srvlag $ticsec(%ticktime)
n460= /titlebarupdate
n461=}
n462=unset %curtix
n463=unset %pingreplen
n464=unset %pingreply
n465=unset %ticktime
n466=unset %tick.offset
n467=unset %tick.int
n468=unset %tick.dec
n469=}
n470=}
n471=/titlebarupdate {
n472=if $idle == 1 /set %idle $idle sec
n473=if $idle != 1 /set %idle $idle secs
n474=if %amsg == $null {
n475=titlebar $strip(%ver) =+= Server Lag: %srvlag secs =+= Idle: %idle =+= Time: $stdtime
n476=}
n477=else {
n478=titlebar $strip(%ver) =+= AWAY =+= Server Lag: %srvlag secs =+= Time: $stdtime
n479=}
n480=}
n481=stdtime {
n482=unset %stdtimehr %stdtime
n483=if $token(1,58,$time) > 11 {
n484=if $token(1,58,$time) != 12 {
n485= %stdtimehr = $token(1,58,$time) - 12
n486=}
n487=else {
n488= %stdtimehr = 12
n489=}
n490=%stdtime = %stdtimehr $+ : $+ $token(2,58,$time) PM
n491=unset %awayhr
n492=return %stdtime
n493=}
n494=elseif $token(1,58,$time) == 0 {
n495=%stdtime = 12: $+ $token(2,58,$time) AM
n496=return %stdtime
n497=}
n498=else {
n499=%stdtime = $token(1,58,$time) $+ : $+ $token(2,58,$time) AM
n500=return %stdtime
n501=}
n502=}
n503=/inititbar {
n504=titlebar $strip(%ver) =+= Getting information...
n505=/accping $me invis
n506=/.timer102 0 20 /accping $chr(36) $+ me invis
n507=}
n508=/onlinecheck {
n509=if $server == $null {
n510=titlebar $strip(%ver) =+= Disconnected
n511=}
n512=}
n513=/chanfloodclean {
n514=/.rlevel =310
n515=/.rlevel =311
n516=/.rlevel =312
n517=/.rlevel =313
n518=}
n519=/chanstat {
n520=if ( %chanstat.currchan == $null ) && ( %whoing == $null ) {
n521=set %chanstat.start $ticks
n522=set %chanstat.currchan $$1
n523=echo 2 -a *** []-[ydrobomb CHANSTAT]=[START] Receiving information, please wait...
n524=who $$1
n525=}
n526=else {
n527=echo 2 -a *** ]-[ydrobomb CHANSTAT engine is receiving data for this or another channel, try again later
n528=}
n529=}
n530=/stat /chanstat #
n531=percent {
n532=%percent1 = $$1 * 100
n533=%percent2 = %percent1 / $$2
n534=unset %percent1
n535=return %percent2
n536=unset %percent2
n537=}
n538=avghops {
n539=%avghops1 = %chanstat.tothops * 100
n540=%avghops2 = %avghops1 / $nick(0,%chanstat.currchan)
n541=%intlength = $len(%avghops2) - 2
n542=%finans = $left(%intlength,%avghops2) $+ $chr(46) $+ $right(2,%avghops2)
n543=return %finans
n544=}
n545=/splitdetcheck {
n546=if %netsplitdet.menu == Netsplit [ON] {
n547=mode $me +s
n548=}
n549=}
n550=/fkick /filkick $address($$1,$$2) #
n551=/filkick {
n552=set %filkick.start $ticks
n553=if $me !isop $$2 {
n554=echo 2 -a *** []-[ydrobomb FILTERKICK]=[ERROR] You don't have ops on this channel.
n555=}
n556=if $me isop $$2 {
n557=unset %nicknum
n558=if %whoing != $$2 {
n559= echo 2 -a *** []-[ydrobomb FILTERKICK]=[START] Attempting to kick users whose addresses match $+ $$1 $+
n560= :do
n561= inc %nicknum 1
n562= if $address($nick(%nicknum,$$2),1) == $$1 || $address($nick(%nicknum,$$2),2) == $$1 || $address($nick(%nicknum,$$2),3) == $$1 || $address($nick(%nicknum,$$2),4) == $$1 || $address($nick(%nicknum,$$2),5) == $$1 || $address($nick(%nicknum,$$2),6) == $$1 || $address($nick(%nicknum,$$2),7) == $$1 || $address($nick(%nicknum,$$2),8) == $$1 || $address($nick(%nicknum,$$2),9) == $$1 {
n563= if $nick(%nicknum,$$2) != $me {
n564= kick $$2 $nick(%nicknum,$$2) []-[ydrobomb FILTERKICK]=[ $+ $$1 $+ ] Your address mask matches this criteria.
n565= }
n566= }
n567= if ( %nicknum != $nick(0,$$2) ) /goto do
n568= set %filkick.time $ticks - %filkick.start
n569= unset %filkick.start
n570= echo 2 -a *** []-[ydrobomb FILTERKICK]=[DONE] Completed in $ticsec(%filkick.time) seconds
n571= unset %filkick.time
n572=}
n573=else {
n574= echo 2 -a *** []-[ydrobomb FILTERKICK]=[ERROR] The address list for this channel is not in yet.
n575=}
n576=}
n577=}
n578=/toppro {
n579=if *1 {
n580=if *1 != off {
n581= topic # *1
n582= topicpro # *1
n583=}
n584=else {
n585= unset % $+ [ topicpro $+ [ $chr(46) ] $+ [ # ] ]
n586= echo 2 -a *** No longer protecting any topic for $+ # $+
n587=}
n588=}
n589=else {
n590=topicpro # $chan(#).topic
n591=}
n592=}
n593=/topicpro {
n594=echo 2 -a *** Protecting $+ *2 $+ as the topic for $+ $$1 $+
n595=set % $+ [ topicpro $+ [ $chr(46) ] $+ [ $$1 ] ] *2
n596=}
n597=ticsec {
n598=unset %ticksecres
n599=if $1 >= 1000 {
n600=set %offset $len($1) - 3
n601=set %int $left($$1,%offset)
n602=set %dec $right($1,3)
n603=}
n604=else {
n605=set %int 0
n606=set %dec $1
n607=}
n608=set %ticksecres %int $+ $chr(46) $+ %dec
n609=unset %offset %int %dec
n610=return %ticksecres
n611=}
n612=}