egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-07-27T08:02:53-04:00 https://forum.eggheads.org/app.php/feed/topic/5072 2003-07-27T08:02:53-04:00 2003-07-27T08:02:53-04:00 https://forum.eggheads.org/viewtopic.php?p=24017#p24017 <![CDATA[How to split this !nick <name> <mail> <text&g]]> http://tcl.tk/man/tcl8.4/TclCmd/proc.htm )

Statistics: Posted by user — Sun Jul 27, 2003 8:02 am

]]> 2003-07-27T02:03:03-04:00 2003-07-27T02:03:03-04:00 https://forum.eggheads.org/viewtopic.php?p=24010#p24010 <![CDATA[Hmm no one any answer for me how?]]> Statistics: Posted by minotaur — Sun Jul 27, 2003 2:03 am

]]> 2003-07-26T16:47:57-04:00 2003-07-26T16:47:57-04:00 https://forum.eggheads.org/viewtopic.php?p=23998#p23998 <![CDATA[How to split this !nick <name> <mail> <text&g]]>
How can i cut the first char out in $name
and the last in $text ?

or can someone post me a function that has that alreasy implemented?

Statistics: Posted by minotaur — Sat Jul 26, 2003 4:47 pm

]]> 2003-07-26T12:26:11-04:00 2003-07-26T12:26:11-04:00 https://forum.eggheads.org/viewtopic.php?p=23984#p23984 <![CDATA[How to split this !nick <name> <mail> <text&g]]>

Statistics: Posted by spock — Sat Jul 26, 2003 12:26 pm

]]> 2003-07-26T03:54:16-04:00 2003-07-26T03:54:16-04:00 https://forum.eggheads.org/viewtopic.php?p=23969#p23969 <![CDATA[How to split this !nick <name> <mail> <text&g]]>

Code: 

set text [lindex $arg 2 end]
this should be

Code: 

set text [join [lrange $arg 2 end]]

Statistics: Posted by Papillon — Sat Jul 26, 2003 3:54 am

]]> 2003-07-25T23:26:49-04:00 2003-07-25T23:26:49-04:00 https://forum.eggheads.org/viewtopic.php?p=23968#p23968 <![CDATA[How to split this !nick <name> <mail> <text&g]]>

Code: 

bind pub - !nick addproc add { nick host handle chan arg } {set arg [split $arg] set name [lindex $arg 0] set email [lindex $arg 1] set text [lindex $arg 2 end] puthelp "NOTICE $nick :Hi $name with $email added and $text" }
stuff:

name vars appropriately :)
"args" has special meaning in tcl, dont use it 'til you know what it does
"split" splits at <space> unless something else is specified

Statistics: Posted by spock — Fri Jul 25, 2003 11:26 pm

]]> 2003-07-25T19:03:00-04:00 2003-07-25T19:03:00-04:00 https://forum.eggheads.org/viewtopic.php?p=23966#p23966 <![CDATA[How to split this !nick <name> <mail> <text&g]]> Statistics: Posted by minotaur — Fri Jul 25, 2003 7:03 pm

]]> 2003-07-25T19:01:26-04:00 2003-07-25T19:01:26-04:00 https://forum.eggheads.org/viewtopic.php?p=23965#p23965 <![CDATA[How to split this !nick <name> <mail> <text&g]]> like set name [lindex $args 0] for example will read with spaces (i think) so u have to make it read only the first word.

Statistics: Posted by Sir_Fz — Fri Jul 25, 2003 7:01 pm

]]> 2003-07-25T18:52:58-04:00 2003-07-25T18:52:58-04:00 https://forum.eggheads.org/viewtopic.php?p=23964#p23964 <![CDATA[How to split this !nick <name> <mail> <text&g]]>
bind pub - "!nick" add

proc add { nick idx handle chan args } {
set name [lindex $args 0]
set email [lindex $args 1]
set text [lindex $args 2 end]

puthelp "NOTICE $nick :Hi $name with $email added and $text"
}

but now the notice is if i type: !nick mino mino@mino.com mino is cool
he says per Notice "Hi mino
mino@mino.com
mino is cool with added and "

What my fault?? PLz help me :-? :wink:

Statistics: Posted by minotaur — Fri Jul 25, 2003 6:52 pm

]]>