foustone
06.06.2005, 17:11
Hi
Wie alle wissen funktionieren die Variablen, die durch set gesetzt wurden, nicht ausserhalb der Klammern, wo der set Befehl auch ausgeführt wurde.
Dafür gibt es die Lösung global leider funktioniert das auch nicht richtig.
Schaut euch es einfach mal an ;)
bind pub - ? frage
proc frage {nick uhost hand chan target} {
if {[string match {stats*} $target]} {
set cha [lindex [split $target] 1]
set fu "member"
if {$cha == $fu} {
set member [lindex [split $target] 2]
}
set fu1 "punkte"
if {$cha == $fu1} {
set punkte [lindex [split $target] 2]
}
set fu2 "stats"
if {$cha == $fu2} {
set durchschnitt [expr $punkte/$member]
puthelp "privmsg $chan :Wir haben $member Member und $punkte Punkte. Unser Durchschnitt liegt bei $durchschnitt"
unset durchschnitt
}
}
}
mfg Foustone
Wie alle wissen funktionieren die Variablen, die durch set gesetzt wurden, nicht ausserhalb der Klammern, wo der set Befehl auch ausgeführt wurde.
Dafür gibt es die Lösung global leider funktioniert das auch nicht richtig.
Schaut euch es einfach mal an ;)
bind pub - ? frage
proc frage {nick uhost hand chan target} {
if {[string match {stats*} $target]} {
set cha [lindex [split $target] 1]
set fu "member"
if {$cha == $fu} {
set member [lindex [split $target] 2]
}
set fu1 "punkte"
if {$cha == $fu1} {
set punkte [lindex [split $target] 2]
}
set fu2 "stats"
if {$cha == $fu2} {
set durchschnitt [expr $punkte/$member]
puthelp "privmsg $chan :Wir haben $member Member und $punkte Punkte. Unser Durchschnitt liegt bei $durchschnitt"
unset durchschnitt
}
}
}
mfg Foustone