egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-07-19T09:13:40-04:00 https://forum.eggheads.org/app.php/feed/topic/7921 2004-07-19T09:13:40-04:00 2004-07-19T09:13:40-04:00 https://forum.eggheads.org/viewtopic.php?p=38809#p38809 <![CDATA[Tcl-Problem with my script - I need your help]]>

Statistics: Posted by arcane — Mon Jul 19, 2004 9:13 am

]]> 2004-07-18T17:57:27-04:00 2004-07-18T17:57:27-04:00 https://forum.eggheads.org/viewtopic.php?p=38776#p38776 <![CDATA[Tcl-Problem with my script - I need your help]]>
I really should wake up before I browse forums. :roll:

Statistics: Posted by Alchera — Sun Jul 18, 2004 5:57 pm

]]> 2004-07-18T10:23:22-04:00 2004-07-18T10:23:22-04:00 https://forum.eggheads.org/viewtopic.php?p=38754#p38754 <![CDATA[Tcl-Problem with my script - I need your help]]>
instead of adding all that _ crap for spaces .. when u write an arg add {} arround it so when you read it out tcl will think of it as one arg example

{id} {something else} {whatever}

then split on \n do foreach {a b c} [split [read $fs] \n] ...

* instead of useing lindex

then id will be a something else will be b and whatever will be c
see simple .. just add {} when you write to the db

Statistics: Posted by Ofloo — Sun Jul 18, 2004 10:23 am

]]> 2004-07-18T06:11:44-04:00 2004-07-18T06:11:44-04:00 https://forum.eggheads.org/viewtopic.php?p=38752#p38752 <![CDATA[Tcl-Problem with my script - I need your help]]>
Seems he doesn't need help any more.

Statistics: Posted by arcane — Sun Jul 18, 2004 6:11 am

]]> 2004-07-17T17:38:30-04:00 2004-07-17T17:38:30-04:00 https://forum.eggheads.org/viewtopic.php?p=38734#p38734 <![CDATA[Tcl-Problem with my script - I need your help]]>
The word you're looking for is "get lost". :P

Statistics: Posted by Alchera — Sat Jul 17, 2004 5:38 pm

]]> 2004-07-17T08:47:25-04:00 2004-07-17T08:47:25-04:00 https://forum.eggheads.org/viewtopic.php?p=38708#p38708 <![CDATA[Tcl-Problem with my script - I need your help]]>

Statistics: Posted by Guest — Sat Jul 17, 2004 8:47 am

]]> 2004-07-16T18:07:35-04:00 2004-07-16T18:07:35-04:00 https://forum.eggheads.org/viewtopic.php?p=38698#p38698 <![CDATA[Tcl-Problem with my script - I need your help]]> i have a problem with my tcl-skript...
[21:49:07] <@arena7|Blacky> !addnotice test_test
In the Database is standing: test_test_(arena7|Blacky)-(Fri Jul 16 21:43:37 CEST 2004)
But, if i type !all (@ skript) he gives me all in a wrong way... als spaces are new lines.. :(
[21:52:27] <@eSport4ever> test = test (arena7|Blacky)-(Fri
[21:52:28] <@eSport4ever> Jul =
[21:52:29] <@eSport4ever> 16 =
[21:52:31] <@eSport4ever> 21:43:37 =
[21:52:33] <@eSport4ever> CEST =
[21:52:35] <@eSport4ever> 2004) =

Code: 

proc notice:showall { nick u handle channel t } {  global notice  if { [lsearch -exact [split [string tolower $notice(channels)]] [string tolower $channel]] < 0 } {    return 0  }  if {![matchattr $handle [string trim $notice(glob_flag)]|[string trim $notice(chan_flag)] $channel]} {    putnotc $nick "You can't see all notices from my database."    return 0  }  set fs [open "noticedatabase" r]  set data [read $fs]  if { [string trim [string trim $data \n]] == "" } {    putserv "privmsg $channel : There is no notice"  } else {    foreach line [split $data \n] {      foreach eintrag $line {        set a [lindex [split $eintrag _] 0]        set b [lindex [split $eintrag _] 1]        set c [lindex [split $eintrag _] 2]        set d "$a = $b $c"        putserv "privmsg $channel : $d"      }    }  }  close $fs}
Please remember: I am german (english is not well) and i am a tcl noob... it were nice, if you paste me the right script here :)
If you need more from the script please say it :-)

I need you help

Statistics: Posted by Guest — Fri Jul 16, 2004 6:07 pm

]]>