Statistics: Posted by CrazyCat — Thu Jul 06, 2023 8:08 am

Code:

#  VHost TCL By ctd1500 < Admin@coolchat-irc.com | ctd1500 on irc.coolchat-irc.com >         ##  You can ge this script at http://www.coolchat-irc.com                                     ##                                                                                            ##  If you are not a Services Administrator or higher on an IRC Network that runs Unreal IRCd ##  then you cant use this script unless there are other IRCd's that use the same commands.   ##                                                                                            ##                                                                                            ##                             CopyRight 2003 Chris Dougherty                                 ##                                                                                            ##       This Program is Distributed Under the Term of the GNU General Public License         ##                                                                                            ##       This program is free software; you can redistribute it and/or modify                 ##       it under the terms of the GNU General Public License as published by                 ##       the Free Software Foundation; either version 2 of the License, or                    ##       (at your option) any later version.                                                  ##                                                                                            ##       This program is distributed in the hope that it will be useful,                      ##       but WITHOUT ANY WARRANTY; without even the implied warranty of                       ##       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                        ##       GNU General Public License for more details.                                         ##                                                                                            ##       You should have received a copy of the GNU General Public License                    ##       along with this program; if not, write to the Free Software                          ##       Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA            ##                                                                                            ## Set this to the Command Character of you're choice (default is !) #set PUBCMD "!"bind msg -|- vhost msg:vhostbind msg mn|- oper oper-upbind pub -|- ${PUBCMD}vhost pub:vhostbind join -|- *!*@* join:ranbind msg -|- random msg:ranbind pub mn|- ${PUBCMD}sajoin pub:sajoinbind pub mn|- ${PUBCMD}sapart pub:sapart# Set this to the bot's O-Line username #set operid "username"# Set this to the bots O-Line password #set operpass "password"# Change this to your nickname #set owner2 "yournickname"proc oper-up {nick host chan text} {  global operid operpass owner2  putserv "OPER $operid $operpass"  putserv "NOTICE $owner2 : I Opered up"}proc msg:vhost {nick host hand vhost} {  set vhost [lindex $vhost 0]  putserv "CHGHOST $nick $vhost"  putserv "NOTICE $nick : Your Vhost has been changed"}# If you want to use a different channel then #VHost then change if the "#vhost" below to "#yourchan" #proc join:ran {nick host hand chan} {  global ran ison  if {$chan == "#vhost"} {  putserv "CHGHOST $nick [lindex $ran [rand [llength $ran]]]"  putserv "NOTICE $nick : There is your new VHost, Enjoy!"  putserv "KICK #vhost $nick one vhost change per 30 minutes"  putserv "MODE #vhost +b $nick!*@*"  timer 30 "pushmode #vhost -b $nick!*@*"  }}# Change the channel above if you dont want to use #Vhost #proc msg:ran {nick host hand read} {  global ran  putserv "CHGHOST $nick [lindex $ran [rand [llength $ran]]]"}proc pub:vhost {nick host hand chan text} {  set vhost [lindex $text 0]  putserv "CHGHOST $nick $vhost"}# You can change these to vhosts of your choice or add to them or leave them as is #set ran {swallows.peanuts.for.money.comtcl.eggdrops.netdoesnt.wear.converses.anymore.netdoesnt.need.viagra.anymore.netdownloaded.linux.amdraven.kirenet.comfeds.govt.hmpropagation.interniq.combirthday.killing.ircop.comirc.gyro-fry.orgnaked.dy.kzowns.you.in.TeamFortress.netnetscapes.webmaster.stslackware.linux.amthe.kirenet.admins.call.me.eleet.comircop.comcable.m0dem.com28.8.m0dem.comI.hate.lagging.netirc.ircop.comtry.linux.amdighton.kirenet.comdragon.kirenet.comnot.smokin.schwag.anymore.netstressedout.lagging.netuplink.sat-13.003.orbiter.tfupdates.once.a.month.at.internic.comall.i.got.was.a.rock.on.october-31st.comi.own.music4site.comi.have.music4site.commust.have.music4site.comlive.for.music4site.comim.an.oxymorongot.linuxgot.milkgot.FreeBSDgot.BSDgot.chocolatemilk.com8P1A2C8D.aol.comwww.redhat.comwww.linux4u.comwww.world-isp.netwww.NetBSD.orgwww.OpenBSD.orgwww.FreeBSD.orgi.am.a.fooli.love.eggdropsi.love.emechs.........you.did.whati.love.troubleim.in.deep.sh*ti.got.my.vhosti.love.my.new.vhostshells.kirenet.comi.think.i.cani.think.i.can-i.think.i.canhelp.me.plzi.need.helpi.need.help.....badlyyou.did.whowalkin.on.the.wildwestend.comlivin.in.the.wildwestend.comoxymoron.hotircgirl.da.rubritney.spears.sucked.me.comlinux.eleet.compassed.the.kama.sutra.ex.amlinux.rox.microsoft.combill.gates.is.a.jewishsailor.comsuperman.could.do.u.reallyfa.stlots.of.tiny.people.around.on.october-31st.comi.pay.for.my.dialup.with.food-stamps.orglivin.with.mama.for.20years.com20.4-million.vision.so.i.failed.my.eye.ex.amyou.can.never.have.enough.eggdrops.netAOLers.are.always.lagging.netse.protege.con.Linux.amcant.stand.dalnet.styo.man.hook.me.up.wif.1dolla.comjust.dont.get.me.d-lined.orgi.would.be.lost.without.plastic.di.ckin.your.pants.is.my.playland.orghad.sex.with.a.teacher.at.scool.orgrunning.for.president.of.the-us-government.comprofessional.webmaster.styour.chest.deserves.a.sla.shyou.think.tinkywinky.is.eleet.comlammas.da1net.comi.blew.up.interniq.with.a.2.gig.packet.comim.broke.cause.i.justgamble.comwho.cares.if.you-killed-kenny.comyou.killed.kenny...You.Bastardbananas.in.my-pyjamas.orgph33r.the.p0w3r.of.muh.14.4.m0dem.comwill.shoot.anyone.who.thinks.efnetsucks.comthose.bitches.arr.MINE.nuyou.stink.take.a-damn-b.ath.cxget.out.of.my-p.ath.cxput.your.homedir.in-my-p.ath.cxdont.let.ox.catch.you.in.listuguj.cc0wnz.microsorft.comeskasoni.wishes.it.was.listuguj.ccis.watching.p0rn.on.a.52inch.tvhave.you.seen.my.3rd.nipple.compartychannel.orgmillenia.da.ruwill.0wn.j00r.aSS.cuz.he.is.mad.eleet.comprivate.wh0res.are.something.you.just.gottaget.neti.got.0wned.by.3.street.bums.comhas.root.at.microsoft.com i.not.as.drnk.as.u.thnk.eye.am learnd.two.right.at.scool.org bought.a.lexus.using.food-stamps.org went.to.mcdonalds.with.food-stamps.org XXX.movies.rock.on.a.52inch.tvsex.in.public.is.not.obcene.comim.an.eggdrop.comcome.to.egghelp.orgcome.to.eggheads.orguptime.eggheads.orgis.sooo.bored.at.microsoft.comim.henry.the.eighth.eye.am.eye.am email.about.domains.is.sent.to.dev.null.at.interniq.com}proc pub:sajoin {sanick host hand sachan text} {  set sanick [lindex $text 0]  set sachan [lindex $text 1]  putserv "SAJOIN $sanick $sachan"}proc pub:sapart {svnick host hand svchan text} {  set svnick [lindex $text 0]  set svchan [lindex $text 1]  putserv "SAPART $svnick $svchan"}putlog "\002(1: \0039VHOST\003)\002 Loaded: \002VHOST v1.0\002 by ctd1500 <admin@coolchat-irc.com>"putlog "\002(1: \0039VHOST\003)\002 From The CoolChat-IRC Network -- \002http://www.coolchat-irc.com\002"

Statistics: Posted by PePiNo — Thu Jul 06, 2023 6:41 am