Code: Select all
# 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:vhost
bind msg mn|- oper oper-up
bind pub -|- ${PUBCMD}vhost pub:vhost
bind join -|- *!*@* join:ran
bind msg -|- random msg:ran
bind pub mn|- ${PUBCMD}sajoin pub:sajoin
bind 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.com
tcl.eggdrops.net
doesnt.wear.converses.anymore.net
doesnt.need.viagra.anymore.net
downloaded.linux.am
draven.kirenet.com
feds.govt.hm
propagation.interniq.com
birthday.killing.ircop.com
irc.gyro-fry.org
naked.dy.kz
owns.you.in.TeamFortress.net
netscapes.webmaster.st
slackware.linux.am
the.kirenet.admins.call.me.eleet.com
ircop.com
cable.m0dem.com
28.8.m0dem.com
I.hate.lagging.net
irc.ircop.com
try.linux.am
dighton.kirenet.com
dragon.kirenet.com
not.smokin.schwag.anymore.net
stressedout.lagging.net
uplink.sat-13.003.orbiter.tf
updates.once.a.month.at.internic.com
all.i.got.was.a.rock.on.october-31st.com
i.own.music4site.com
i.have.music4site.com
must.have.music4site.com
live.for.music4site.com
im.an.oxymoron
got.linux
got.milk
got.FreeBSD
got.BSD
got.chocolatemilk.com
8P1A2C8D.aol.com
www.redhat.com
www.linux4u.com
www.world-isp.net
www.NetBSD.org
www.OpenBSD.org
www.FreeBSD.org
i.am.a.fool
i.love.eggdrops
i.love.emechs
.........
you.did.what
i.love.trouble
im.in.deep.sh*t
i.got.my.vhost
i.love.my.new.vhost
shells.kirenet.com
i.think.i.can
i.think.i.can-i.think.i.can
help.me.plz
i.need.help
i.need.help.....badly
you.did.who
walkin.on.the.wildwestend.com
livin.in.the.wildwestend.com
oxymoron.hotircgirl.da.ru
britney.spears.sucked.me.com
linux.eleet.com
passed.the.kama.sutra.ex.am
linux.rox.microsoft.com
bill.gates.is.a.jewishsailor.com
superman.could.do.u.reallyfa.st
lots.of.tiny.people.around.on.october-31st.com
i.pay.for.my.dialup.with.food-stamps.org
livin.with.mama.for.20years.com
20.4-million.vision.so.i.failed.my.eye.ex.am
you.can.never.have.enough.eggdrops.net
AOLers.are.always.lagging.net
se.protege.con.Linux.am
cant.stand.dalnet.st
yo.man.hook.me.up.wif.1dolla.com
just.dont.get.me.d-lined.org
i.would.be.lost.without.plastic.di.ck
in.your.pants.is.my.playland.org
had.sex.with.a.teacher.at.scool.org
running.for.president.of.the-us-government.com
professional.webmaster.st
your.chest.deserves.a.sla.sh
you.think.tinkywinky.is.eleet.com
lammas.da1net.com
i.blew.up.interniq.with.a.2.gig.packet.com
im.broke.cause.i.justgamble.com
who.cares.if.you-killed-kenny.com
you.killed.kenny...You.Bastard
bananas.in.my-pyjamas.org
ph33r.the.p0w3r.of.muh.14.4.m0dem.com
will.shoot.anyone.who.thinks.efnetsucks.com
those.bitches.arr.MINE.nu
you.stink.take.a-damn-b.ath.cx
get.out.of.my-p.ath.cx
put.your.homedir.in-my-p.ath.cx
dont.let.ox.catch.you.in.listuguj.cc
0wnz.microsorft.com
eskasoni.wishes.it.was.listuguj.cc
is.watching.p0rn.on.a.52inch.tv
have.you.seen.my.3rd.nipple.com
partychannel.org
millenia.da.ru
will.0wn.j00r.aSS.cuz.he.is.mad.eleet.com
private.wh0res.are.something.you.just.gottaget.net
i.got.0wned.by.3.street.bums.com
has.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.tv
sex.in.public.is.not.obcene.com
im.an.eggdrop.com
come.to.egghelp.org
come.to.eggheads.org
uptime.eggheads.org
is.sooo.bored.at.microsoft.com
im.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"
Eggdrop community
French IRC network