I have write a litlle url script but need help

[Zest]

Hello
first, sorry for bad englisch.

I have a Problem with my little script.

Code: Select all

proc achan {cchan} {

set activechans "#chan1 und #chan2"

if {[string length $activechans] > 0} {
if {[string first [string tolower $cchan] $activechans] < 0} {
    return no_achan
  }
 }
}


proc putnot {nick msg} { putserv "NOTICE $nick :$msg" }
proc putchan {chan msg} { putserv "PRIVMSG $chan :$msg" }


proc pub_!urls {nick uhost hand chan rest} {
  if {([achan $chan] != "no_achan")} {
  global botnick
  set cmd [string tolower [lindex $rest 0]]
  if {$cmd == ""} {
    putchan $chan "\001ACTION hat Folgende URLs im Detail. Abrufen mit: !blabla1, !blabla2, !blabla3, !blabla4 \001" ;return 0}
 }
}
bind pub - !urls pub_!urls


proc pub_!blabla1 {nick uhost hand chan rest} {
if {([achan $chan] != "no_achan")} {
  global botnick
  set cmd [string tolower [lindex $rest 0]]
  if {$cmd == ""} {
    putchan $chan "\001ACTION Folgende details zu blabla1 verfügbar: Webseite http://*****.de den Chat dazu im Aplett im Forum ganz unten.\001" ;return 0}
 }
}
bind pub - !blabla1 pub_!blabla1


proc pub_!blabla2 {nick uhost hand chan rest} {
if {([achan $chan] != "no_achan")} {
  global botnick
  set cmd [string tolower [lindex $rest 0]]
  if {$cmd == ""} {
    putchan $chan "\001ACTION: Folgende details zu blabla2 verfügbar: Webseite: http://www.*****.de den Chat findet ihr im **** unter #**** .\001" ;return 0}
 }
}
bind pub - !blabla2 pub_!blabla2


proc pub_!blabla3 {nick uhost hand chan rest} {
if {([achan $chan] != "no_achan")} {
  global botnick
  set cmd [string tolower [lindex $rest 0]]
  if {$cmd == ""} {
    putchan $chan "\001ACTION Folgende details zu blabla3 verfügbar: Webseite: http://www.****.ch den Chat dazu findet ihr im **** unter #**** oder für Gäste im Aplett in der Navigation.\001" ;return 0}
 }
}
bind pub - !blabla3 pub_!blabla3


proc pub_!blabla4 {nick uhost hand chan rest} {
  if {([achan $chan] != "no_achan")} {
  global botnick
  set cmd [string tolower [lindex $rest 0]]
  if {$cmd == ""} {
    putchan $chan "\001ACTION Folgende details zu blabla4 verfügbar: Webseite: http://www.****.de den Chat dazu findet ihr im **** unter #***** .\001" ;return 0}
 }
}
bind pub - !blabla4 pub_!blabla4


###

putlog "URL Service von Zest" 

Now the Problem is:
The Bot don't accept more than 3 Url's.
Normal, with these script is possible to write more tan 50 Url's.
Ex:
blabla3 don't work but the rest when i write in chan !blabla1 or !blabla4, works perfect. The sort of !blabla is not a problem.

hope you can help.

Greet

[De Kus]

LOL, what a script. Has it been converted from an mIRC script or something like that? I mean, would it be more clear, if you used only 1 proc, used a normal string match or lsearch for chan checking, and seltected the output line via a switch construct?

btw... what does mean it doesnt work? any TCL errors? maybe you made a typo or something like that.
*puts up a sign: "geht nicht" ist keine Fehlerbeschreibung*

[Zest]

i found the error.
"\001ACTION:
right is:
"\001ACTION

No its not convertet from mirc.

[Alchera]

Code: Select all

putserv "PRIVMSG $chan :\001ACTION blah blah\001"