Horoskop Script erweitern

Tappi112

Active Member
#1
Ich habe ein Horoskop Script welches wunderbar funktioniert, aber nur wenn man z.B. !horoskop Waage eingibt, gibt man nur !horoskop ein passiert nichts.
Was im Grunde richtig ist, nur wäre dann ein Hinweis nicht schlecht das man auch sein Horoskop angeben muss


Hatte es schon versucht, nur funktioniert mit der Änderung garnichts mehr

bind pub - !horoskop horo
package require http
proc horo { nick host hand chan text } {
if {($arg == "") || ([llength $arg] < 1)} {
putserv "PRIVMSG $chan :\001ACTION $nick du musst schon dein Horoskop mit angeben z.B. !horoskop Waage\001"
}

if {[lindex $text 0] == ""} { return 0 }
set text [string tolower $text]
regsub -all ä $text ae text
regsub -all ü $text ue text
regsub -all ö $text oe text
if {[string match -nocase "fische" $text]} { set text fisch }
set c [::http::geturl http://www.horoskop-online.com/horoskop/horoskop.pl?tkzeichen=[lindex $text 0]]
set l [split [::http::data $c] "\n"]
::http::cleanup $c
set bool 0
set c 0
foreach x $l {
if {$bool == 1 && $x != ""} {
incr c
switch $c {
default { putserv "PRIVMSG $chan :bla $x" }
1 {
putserv "PRIVMSG $chan :Liebe: [html $x]"
}
2 {
putserv "PRIVMSG $chan :Gesundheit / Befinden: [html $x]"
}
3 {
putserv "PRIVMSG $chan :Geld / Karriere: [html $x]"
}
}
set bool 0
}
if {[string match "*FONT FACE*" $x]} {
set bool 1
}
set tmp [html $x]
}
}

Das Rote ist das was ich eingefügt habe
 

lano

Well-Known Member
c-b Experte
#4
Die ist aber original drin ....
Ja warum auch nicht...

Kopier mal deine Zeile
putserv "PRIVMSG $chan :\001ACTION $nick du musst schon dein Horoskop mit angeben z.B. !horoskop Waage\001"
vor das return 0

Das da steht:
Code:
if {[lindex $text 0] == ""} { 
[COLOR=#ff0000]putserv "PRIVMSG $chan :\001ACTION $nick du musst schon dein Horoskop mit angeben z.B. !horoskop Waage\001"[/COLOR]
return 0 
}
 
Oben