Last login: Tue May 15 23:03:31 2007 from 151.197.24.155
Copyright (c) 1980, 1983, 1986, 1988, 1990, 1991, 1993, 1994
The Regents of the University of California. All rights reserved.
FreeBSD 5.5-RELEASE-p4 (SH3LLS3) #0: Fri Sep 8 08:17:24 UTC 2006
Welcome to the Sh3lls.net Server "vortex.sh3lls.net"
vhost: to see the vhost list
getpsy: to install psybnc
getbnc: to install bnc
getegg: to install eggdrop
Support: http://support.sh3lls.net/
Billing: http://billing.sh3lls.net/
Use ports between 10000 - 20000, all the bnc, psybnc or bots using ports below 1
0000 will be killed.
1 IRC Connection = 1 Background Process
1 PSYBNC User = 1 Background Process
Server Configuration:
Pentium -IV 3.0 Ghz with HT
2 GB Ram
100 mbit Port
NOTE: SHOUTCAST AND FILE SERVING STRICTLY PROHIBITED IF EVER FOUND YOUR
SHELL WILL BE TERMINATED WITHOUT NOTICE AND REFUND...
HTTP/HTTPS PROXY ARE NOT TOLERATED, IF FOUND YOUR ACCOUNT SHALL BE TERMINATED
WebMail : http://webmail.sh3lls.net
PLEASE READ - THIS IS THE NEW SERVER:
IMP: http://forum.sh3lls.net/showthread.php?t=230
Allowed irc connection: [ 4 ]
Active irc connections: [ 2 ]
cr4p@vortex:~$ cd eggdrop2/
cr4p@vortex:~/eggdrop2$ cd scripts/
cr4p@vortex:~/eggdrop2/scripts$ pico quote.tcl
UW PICO(tm) 4.10 File: quote.tcl Modified
# Quote Script by Steinsky. Version: 1.2.1
# See www.cotch.net, irc.fwaggle.net, irc.zone.dk and virus.eleethal.com
#
# Adds channel commands: !addquote (And !quoteadd !+quote)
# and !quote with the option of an arg e.g. !quote *Steinsky*
# and !quotestats or !quotestats *matchtext*
# And the DCC Commands:
# .addquote <quote> and .quotestats or .quotestats *matchtext*
# And the MSG Commands:
# /msg botnick addquote <quote>
#
# Needs more? Talk to me on irc.fwaggle.net
# (Note: I edited some variables earlier and haven't tested to make sure I got them all, it should work though.)
# Where are the quotes ganna be kept?
set quotefile quote.txt
# Set this log file to store nick!user@host of people who added quotes
# I added this feature because a load of people added some crappy quotes and needed a slap
# I hardwired it in so you best make the file and set it, in the next version I'll add some more ifs
set quotelog quotewho.db
# 0 = display quotes in channel
# 1 = display quotes via private notice.
set quotevianotice 0
if { ![info exists toolbox_loaded] } { source scripts/alltools.tcl }
bind pub - .quote quote:pub:quote
bind pub - .addquote quote:pub:addquote
bind pub - .quoteadd quote:pub:addquote
bind pub - .+quote quote:pub:addquote
bind pub - .quotestats quote:pub:quotestats
bind dcc - addquote quote:dcc:addquote
bind msg - addquote quote:msg:addquote
bind dcc - quotestats quote:dcc:quotestats
proc quote:pub:quote {nick uhost hand chan arg} {
global quotefile quotevianotice
set quotes ""
if { [file exists $quotefile] } { set file [open $quotefile r]
} else {
if { $quotevianotice == 0 } { putmsg $chan "$quotefile does not exist. You'll need to add quotes to the database first by typing $
if { $quotevianotice == 1 } { putnotc $nick "$quotefile does not exist. You'll need to add quotes to the database first by typing$
return 0
}
while { ![eof $file] } {
set quote [gets $file]
if { $quote != "" } {
set quotes [linsert $quotes end $quote]
}
}
close $file
if { $arg != "" } {
set pattern [string tolower $arg]
set aquotes ""
set quote ""
foreach quote $quotes {
^G Get Help ^O WriteOut ^R Read File ^Y Prev Pg ^K Cut Text ^C Cur Pos
^X Exit ^J Justify ^W Where is ^V Next Pg ^U UnCut Text ^T To Spell