Code:

#  Script: Greetd.tcl# Version: 0.05b#  Author: Jeff Fisher <fishy@dlcwest.com>## Updates:#   12Feb98 - can now select delay time (idea by Angelos7)##   Notes:##    - can do multi-channel multi-lined greet msgs#    - can either msg all users or just non-users#    - will only show the greet to one identd or non-identd within 2min#       or whatever you change the time level too ...## Who to show?#  0 = all users#  1 = non-usersset greetd(show) 0# Delay time before reshowing the greet? (In minutes)set greetd(delay) 2# Show via PRIVMSG or NOTICE?set greetd(method) "NOTICE"# Greet Messages and Their Channels ...#  - Channel names within the ( and ) must be lowercase, otherwise it wont work#  - Example:#      set greetd_msg(#eggdrop) {#       "Welcome to #Eggdrop"#       "For Eggdrop Files, try ftp.sodre.net/pub/eggdrop"#      }## Got it? Its not that hard :)set greetd_msg(#justshare) { "Welcome to #JustShare" "Please follow the rules." "1) Use your forum name "/nick forumname"" "2) DO NOT ADVERTISE!" "3) Do not PM any of the staff unless you have permission" "4) Do not herass any of the staff"}###################################################################################if {$greetd(delay) < 0} {set greetd(delay) 3}bind join - *!*@* autogreetproc autogreet {nick uhost hand chan} { global greetd_msg botnick greetd_queue greetd set chan [string tolower $chan] if {$nick == $botnick} {return 0} if {$greetd(show) == 1 && $hand != "*"} {return 0} if {![info exists greetd_msg($chan)]} {return 0} if {[info exists greetd_queue($chan![ident $uhost])]} {return 0} foreach i $greetd_msg($chan) {puthelp "$greetd(method) $nick :$i"} set greetd_queue($chan![ident $uhost]) 1 set a [timer $greetd(delay) "unset greetd_queue($chan![ident $uhost])"]}proc ident {data} { if {[string index $data 0] == "~"} {return #@[lindex [split $data @] 1]} return [string range [maskhost $data] 2 end]}putlog "Greetd.tcl v0.05b by guppy"

Code:

######################################################################################  EGGDROP IRC MANAGER | v1.3##  Author:Velocd#(www.animesystem.com)##  Requirements:vBulletin 3#Eggdrop (www.eggheads.org)##  Support:http://www.vbulletin.org/forum/showthread.php?p=476793##################################################################################################################  Configuration  #############################set irc_chan "#JustShare"# Set activity_wait to the number of # seconds between updatesset activity_wait 180set vb_script "http://www.censored.com/forum/irconline.php"set vb_key "55555"##############################################  Modify below at your discretion ##############################################package require httpset activity 0# Default triggers (binds)bind join - * refresh_usersbind nick - * refresh_usersbind mode - * refresh_usersbind part - * check_partbind sign - * check_partbind kick - * check_partbind pubm - * incr_activitybind topc - * refresh_topic# Manual triggers (/msg <bot_nick> !<command>)# These only work for bot ownersbind pub n !startact activity_timerbind pub n !refresh refresh_usersproc refresh_topic {nick host hand chan topic} {global irc_chan vb_script vb_keyif {$chan != $irc_chan} {return 0}regsub -all {\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037} $topic "" topic set http_string [::http::formatQuery do refresh chan $chan key $vb_key topic $topic]catch [set token {::http::geturl $vb_script -query $http_string}] token::http::cleanup {$token}return 0}proc incr_activity {nick host hand chan {text ""}} {global activity irc_chanif {$chan != $irc_chan} {return 0}incr activity 1return 0}proc activity_timer {nick host hand chan {text ""}} {global irc_chanif {[utimers] != ""} {putserv "privmsg $nick :Timer already exist: [utimers]"return 0}if {$chan != $irc_chan} {return 0}start_timerreturn 0}proc start_timer {} {global activity_wait irc_chanutimer $activity_wait refresh_activityreturn 0}proc refresh_activity {} {global irc_chan vb_script vb_key activityset http_string [::http::formatQuery do refresh chan $irc_chan key $vb_key activity $activity]catch [set token {::http::geturl $vb_script -query $http_string}] token::http::cleanup {$token}set activity 0start_timerreturn 0}proc check_part {nick host hand chan {text ""} {misc ""}} {refresh_users $nick $host $hand $chan "parted"return 0}proc refresh_users {nick host hand chan {text ""} {misc ""}} {global irc_chan vb_script vb_keyif {$chan != $irc_chan} {return 0}set ops ""set halfops ""set voiced ""set normal ""set num_users 0foreach user [chanlist $chan] {if {$user == $nick && $text == "parted"} {continue}if {[onchan $user $chan]} {incr num_usersif {[isop $user $chan]} {lappend ops "@$user"} elseif {[ishalfop $user $chan]} {lappend halfops "%$user"} elseif {[isvoice $user $chan]} {lappend voiced "+$user"} else {lappend normal $user}}}set http_string [::http::formatQuery do refresh chan $chan key $vb_key online $num_users ops $ops halfops $halfops voiced $voiced normal $normal]catch [set token {::http::geturl $vb_script -query $http_string}] token::http::cleanup {$token}return 0}