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