1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen

Horoskop Script erweitern

Dieses Thema im Forum "Eggdrop Scripting" wurde erstellt von Tappi112, 4. März 2013.

  1. Tappi112

    Tappi112 Member

    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
  2. lano

    lano Well-Known Member c-b Experte

    Schau mal genau eine Zeile tiefer...
    Macht den Eindruck als ob es genau das if ist was du kläglich versuchst da ein zu fügen.
  3. Tappi112

    Tappi112 Member

    Du meinst diese Zeile if {[lindex $text 0] == ""} { return 0 }

    Die ist aber original drin ....
  4. lano

    lano Well-Known Member c-b Experte

    Ja warum auch nicht...

    Kopier mal deine Zeile
    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 
    }
  5. Tappi112

    Tappi112 Member

    Ahh wegen dem Return 0 also ....
    Super ich danke dir, es geht nun :)