egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-07-04T16:03:42-04:00 https://forum.eggheads.org/app.php/feed/topic/2074 2002-07-04T16:03:42-04:00 2002-07-04T16:03:42-04:00 https://forum.eggheads.org/viewtopic.php?p=8594#p8594 <![CDATA[need help with TCL]]>

Code: 

set chanrules {   "First Read FAQ before you are going to ask in the channel!"   "Don't pm ops unless they want it!"   "Obey!!"   "Greetz http://www.newmp3hits.com Crew" }bind pub o !rules pub:rulesproc pub:rules {nick uhost hand chan text} {   if {[string compare $text ""] == 0} {    putserv "NOTICE $nick :Usage: !rules <nick>"    return  }  if {![onchan [set rulenick [lindex [split $text ] 0]]]} {    putserv "NOTICE $nick :$rulenick is not on $chan."    return  }  puthelp "PRIVMSG $rulenick :These are the rules of our channel. Pay attention!"   foreach line $::chanrules {    puthelp "NOTICE $rulenick :$line"  }   return 0 }# Comment this next section out if you don't want the bot to msg the# channel rules to the channel upon joining it.bind join - * join:msgrulesproc join:msgrules {nick uhost hand chan} {  if {![isbotnick $nick]} {    return  }  foreach line $::chanrules {    puthelp "PRIVMSG $chan :$line"  }}
Wcc

Statistics: Posted by Wcc — Thu Jul 04, 2002 4:03 pm

]]> 2002-07-03T12:03:37-04:00 2002-07-03T12:03:37-04:00 https://forum.eggheads.org/viewtopic.php?p=8555#p8555 <![CDATA[need help with TCL]]>
for the private msg part you need

puthelp "PRIVMSG $rulesnick :blah blah etc yadda"

:)

for specific channel you could do

if {$chan == "#mychan"} {
do something
} else {
return 0
}

I think that would work but there's probably a more simple way to do it, I always do everything the hard way :cry:
can you fix it in the script for me
i'm a n00b at this:)

Statistics: Posted by Guest — Wed Jul 03, 2002 12:03 pm

]]> 2002-07-02T15:45:58-04:00 2002-07-02T15:45:58-04:00 https://forum.eggheads.org/viewtopic.php?p=8527#p8527 <![CDATA[need help with TCL]]>
puthelp "PRIVMSG $rulesnick :blah blah etc yadda"

:)

for specific channel you could do

if {$chan == "#mychan"} {
do something
} else {
return 0
}

I think that would work but there's probably a more simple way to do it, I always do everything the hard way :cry:

Statistics: Posted by Guest — Tue Jul 02, 2002 3:45 pm

]]> 2002-07-02T12:20:15-04:00 2002-07-02T12:20:15-04:00 https://forum.eggheads.org/viewtopic.php?p=8524#p8524 <![CDATA[need help with TCL]]> "First Read FAQ before you are going to ask in the channel!"
"Don't pm ops unless they want it!"
"Obey!!"
"Greetz http://www.newmp3hits.com Crew"
}
bind pub o !rules pub:t
proc pub:t {nick uhost hand chan text} {
global chanrules
set rulenick [lindex [split $text " "] 0]
if {$text != "" && [onchan $rulenick $chan]} {
puthelp "NOTICE $rulenick :these are the rules of our channel. Pay attention!"
foreach line $chanrules { puthelp "NOTICE $rulenick :$line" }
return 0
}
foreach line $chanrules {puthelp "PRIVMSG $chan :$line" }



i want to bind this to a specific channel and i want it that it says the rules in a private message!

Statistics: Posted by Guest — Tue Jul 02, 2002 12:20 pm

]]>