egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-05-01T11:39:52-04:00 https://forum.eggheads.org/app.php/feed/topic/4277 2003-05-01T11:39:52-04:00 2003-05-01T11:39:52-04:00 https://forum.eggheads.org/viewtopic.php?p=19695#p19695 <![CDATA[Problem adding users]]>
I have now posted the subroutine at ..

http://www.andmargroup.co.uk/subroutine.txt

Thank you for your help

Statistics: Posted by [Nero] — Thu May 01, 2003 11:39 am

]]> 2003-05-01T11:14:55-04:00 2003-05-01T11:14:55-04:00 https://forum.eggheads.org/viewtopic.php?p=19693#p19693 <![CDATA[Problem adding users]]> Statistics: Posted by ppslim — Thu May 01, 2003 11:14 am

]]> 2003-05-01T10:51:50-04:00 2003-05-01T10:51:50-04:00 https://forum.eggheads.org/viewtopic.php?p=19692#p19692 <![CDATA[Problem adding users]]> This is only a snippet from the script as it would be too large to post.
The Bind & Close Brackets that are missing are in the script though.

perhaps i could pm you the whole subroutine if that would help

many Thanx

Statistics: Posted by [Nero] — Thu May 01, 2003 10:51 am

]]> 2003-05-01T10:37:54-04:00 2003-05-01T10:37:54-04:00 https://forum.eggheads.org/viewtopic.php?p=19690#p19690 <![CDATA[Problem adding users]]>
There is no bind, and a bracket is at least two brackets missing at the end.

It looks pretty much up the wall, and has no definate pattern to what it should be doing.

Statistics: Posted by ppslim — Thu May 01, 2003 10:37 am

]]> 2003-05-01T10:16:29-04:00 2003-05-01T10:16:29-04:00 https://forum.eggheads.org/viewtopic.php?p=19688#p19688 <![CDATA[Problem adding users]]> ive found this piece of tcl that should when a users posts a url in the channel should add them to the userlist of the bot but for somereason it doesnt, the rest of the script seems to work fine except this bit can anyone help plz

Many thanx

proc msg_post_site {nick uhost handle arg} {
global botnick listchannel templist lasttempsite isopen CHECKIP

set who [nick2hand $nick $liztchannel]
set mask [maskhost $uhost]
if {($handle == "*") && (![validuser $nick]) && ($mask != "*")} {
adduser $nick $mask
chattr $nick "-ofxp"
chattr $nick "+0"
setuser $nick XTRA "0 0 0 0 0"
set handle $nick
save
} elseif {[validuser $nick]} {
set ustatus [getuser $nick XTRA]
if {$ustatus == ""} {
chattr $nick "+0"
setuser $nick XTRA "0 0 0 0 0"
save
} elseif {[llength $ustatus] < 5} {
chattr $nick "+0"
setuser $nick XTRA "$ustatus 0"
save

Statistics: Posted by [Nero] — Thu May 01, 2003 10:16 am

]]>