egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-12-06T02:05:34-04:00 https://forum.eggheads.org/app.php/feed/topic/10942 2005-12-06T02:05:34-04:00 2005-12-06T02:05:34-04:00 https://forum.eggheads.org/viewtopic.php?p=57981#p57981 <![CDATA[need help in this script]]>

Statistics: Posted by mrdr — Tue Dec 06, 2005 2:05 am

]]> 2005-12-05T18:34:08-04:00 2005-12-05T18:34:08-04:00 https://forum.eggheads.org/viewtopic.php?p=57972#p57972 <![CDATA[need help in this script]]>

Code: 

set day [lindex [split $text] 0]
add

Code: 

if {$day == ""} { puthelp "NOTICE $nick :Usage: !birth month.day" return 0}

Statistics: Posted by Sir_Fz — Mon Dec 05, 2005 6:34 pm

]]> 2005-12-05T14:44:10-04:00 2005-12-05T14:44:10-04:00 https://forum.eggheads.org/viewtopic.php?p=57969#p57969 <![CDATA[need help in this script]]>

Code: 

set birthday(file) "birth.txt" if {[file exists $birthday(file)]} {   set birthday(data) [split [read [set inf [open $birthday(file) r]]] \n][close $inf]   unset inf } else {   set birthday(data) [list] }  bind pub - !birth pub:birthdays proc pub:birthdays {nick uhost hand chan text} {   global birthday   set day [lindex [split $text] 0]   set line [list]   foreach i [lsearch -regexp $birthday(data) "$day *"] {     lappend line [join [lrange [split [lindex $birthday(data) $i]] 1 end]]   }   set line [join $line]   putserv "PRIVMSG $chan :$day $line" }
I got this script, I think you know what it does.
How to make that when I enter !birth bot notice how to use it.
ex.
(@me) !birth
Notice -- (bot) -- Usage: !birth month.day

:)

Statistics: Posted by mrdr — Mon Dec 05, 2005 2:44 pm

]]>