egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-12-27T10:50:01-04:00 https://forum.eggheads.org/app.php/feed/topic/12883 2006-12-27T10:50:01-04:00 2006-12-27T10:50:01-04:00 https://forum.eggheads.org/viewtopic.php?p=69279#p69279 <![CDATA[no services tcl help]]>
Show us complete errorInfo.

Statistics: Posted by Sir_Fz — Wed Dec 27, 2006 10:50 am

]]> 2006-12-27T06:01:56-04:00 2006-12-27T06:01:56-04:00 https://forum.eggheads.org/viewtopic.php?p=69273#p69273 <![CDATA[no services tcl help]]>
sendnote <from> <to[@bot]> <message>
Description: simulates what happens when one user sends a note to another
Returns:
0 - the send failed
1 - the note was delivered locally or sent to another bot
2 - the note was stored locally
3 - the user's notebox is too full to store a note
4 - a Tcl binding caught the note
5 - the note was stored because the user is away
Module: core

Statistics: Posted by Alchera — Wed Dec 27, 2006 6:01 am

]]> 2006-12-27T01:37:09-04:00 2006-12-27T01:37:09-04:00 https://forum.eggheads.org/viewtopic.php?p=69271#p69271 <![CDATA[no services tcl help]]>

Code: 

set services "1"unbind dcc o|o msg *dcc:msgbind dcc o|o msg csdostupbind dcc n putserv putsrvbind msg - ident identcheproc csdostup {hand idx arg} {global services       set tonick [string tolower [lindex $arg 0]]       set mschan [string tolower [lindex $arg 2]]       set text [lrange $arg 1 end]          if {[matchattr $hand n|n $mschan]} {             putlog "PRIVMSG from $hand to $tonick :$text"             putserv "PRIVMSG $tonick :$text "             putdcc $idx "msg to $tonick: $text"             return 0        }         if {[matchattr $hand m]} {          if {($tonick == "cs") || ($tonick== "ns") } {              putdcc $idx "$hand, trqbva da bydesh moj owner za da ima dostyp"              chattr $hand -afop+dk              setuser $hand comment "Opital se da prati syobshtenie na $tonick s text: $text"              putlog "$hand se opita da prati syobshtenie kym $tonick s text: $text"              boot $hand "Opitva se da prati syobshtenie na $tonick s text: $text"              putlog "$hand e mahnat ot bota"              newban $hand!*@* $::botnick "Opitva se da prati syobshtenie na $tonick s text: $text"              putlog "Dobawen e ban na $hand poradi ne spazvane na pravilata"              dcc_flagnote $botnick 666 "$idx +n pedal"               putlog "Izprashtat se notes do owners...."                                    } else {              putlog "PRIVMSG from $hand to $tonick :$text"              putserv "PRIVMSG $tonick :$text "              putdcc $idx "msg to $tonick: $text"         }         return 0         }         putdcc $idx "$hand, trqbva da bydesh moj owner ili master za da imash dostyp"         chattr $hand -afop+dk         setuser $hand comment "Opital se da prati syobshtenie na $tonick s text: $text"         putlog "$hand se opita da prati syobshtenie kym $tonick s text: $text"         boot $hand "Opitva se da prati syobshtenie na $tonick s text: $text"         putlog "$hand e mahnat ot bota"         newban $hand!*@* $::botnick "Opitva se da prati syobshtenie na $tonick s text: $text"         putlog "Dobawen e ban na $hand poradi ne spazvane na pravilata"         dcc_flagnote $::botnick 666 "$idx +n pedal"         putlog "Izprashtat se notes do owners...."                        }
Ok now this tcl has to do this things:
Only master and owners can use .msg cs/ns <text>
If someone else do this they will be: there flags will be changed to +dk
they will be booted from the partyline and they will be banned and the bot have to send a note to all the owners
the only thing that don't works is the sendnote
here is the error that appears:

Code: 

Tcl error [csdostup]: invalid idx

Statistics: Posted by MMDollar — Wed Dec 27, 2006 1:37 am

]]>