egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-01-23T20:29:40-04:00 https://forum.eggheads.org/app.php/feed/topic/6461 2004-01-23T20:29:40-04:00 2004-01-23T20:29:40-04:00 https://forum.eggheads.org/viewtopic.php?p=32814#p32814 <![CDATA[newbie help with tcl scripting]]> http://www.tcl.tk/man

Statistics: Posted by Ofloo — Fri Jan 23, 2004 8:29 pm

]]> 2004-01-22T21:13:25-04:00 2004-01-22T21:13:25-04:00 https://forum.eggheads.org/viewtopic.php?p=32799#p32799 <![CDATA[newbie help with tcl scripting]]> Statistics: Posted by Guest — Thu Jan 22, 2004 9:13 pm

]]> 2003-12-24T16:45:32-04:00 2003-12-24T16:45:32-04:00 https://forum.eggheads.org/viewtopic.php?p=31767#p31767 <![CDATA[newbie help with tcl scripting]]>

Code: 

bind join - * procnameproc procname {nick uhost hand chan} { if {[string match "*@*.staff.*" $uhost]} {  puthelp "PRIVMSG $nick :message for people with the staff host" } else {  puthelp "PRIVMSG $nick :message for everyone else" }}
Read the Tcl "string" manual page (not tcl-commands.doc, those are simply Tcl commands added by Eggdrop). Either look at http://www.tcl.tk/man/ or "man n string" on your shell.

Statistics: Posted by Souperman — Wed Dec 24, 2003 4:45 pm

]]> 2003-12-24T16:16:28-04:00 2003-12-24T16:16:28-04:00 https://forum.eggheads.org/viewtopic.php?p=31766#p31766 <![CDATA[newbie help with tcl scripting]]> bind join - * procname which sends a message to all users joining the channel. What I want is that if someone matches the host *@*.staff.* then a different message will be dispplayed.

Statistics: Posted by Guest — Wed Dec 24, 2003 4:16 pm

]]> 2003-12-24T08:46:23-04:00 2003-12-24T08:46:23-04:00 https://forum.eggheads.org/viewtopic.php?p=31752#p31752 <![CDATA[newbie help with tcl scripting]]> #match
} {
#no match
}

(8) JOIN (stackable)
bind join <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel>

Description: triggered by someone joining the channel. The mask in
the bind is matched against "#channel nick!user@host" and can
contain wildcards.
Module: irc

is what you need to read though in tcl-commands.doc so something like

bind join - "*@*.staff.*" procname

i *think*

Statistics: Posted by Guest — Wed Dec 24, 2003 8:46 am

]]> 2003-12-24T07:58:43-04:00 2003-12-24T07:58:43-04:00 https://forum.eggheads.org/viewtopic.php?p=31750#p31750 <![CDATA[newbie help with tcl scripting]]>

Code: 

  maskhost <nick!user@host>    Returns: masked hostmask for the string given ("n!u@1.2.3.4" -> "*!u@1.2.3.*",      "n!u@lame.com" -> "*!u@lame.com", "n!u@a.b.edu" -> "*!u@*.b.edu")    Module: core
?

Statistics: Posted by Guest — Wed Dec 24, 2003 7:58 am

]]> 2003-12-23T21:26:12-04:00 2003-12-23T21:26:12-04:00 https://forum.eggheads.org/viewtopic.php?p=31739#p31739 <![CDATA[newbie help with tcl scripting]]> Statistics: Posted by stdragon — Tue Dec 23, 2003 9:26 pm

]]> 2003-12-23T19:49:27-04:00 2003-12-23T19:49:27-04:00 https://forum.eggheads.org/viewtopic.php?p=31737#p31737 <![CDATA[newbie help with tcl scripting]]> bind join - * <proc name>.

Inside this procudure I want to have certain if statements for different hosts.

An example of what I want to do which doesn't work:

Code: 

if {$host == "*@*.staff.*"} {<body>}else {<body>}
How can I do the above?

Statistics: Posted by Guest — Tue Dec 23, 2003 7:49 pm

]]>