TCL Befehl - Alle 15min ausführen

242466750

ich wollte in meinen Chat ein script einbauen bei dem jeder user nach 15min einen Keks bekommt!
Also so:
0:00 User betritt den Chat
0:15 User war jetzt 15min im Chat und bekommt daher einen keks.

bisher sieht mein script so aus:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

foreach a [users] {
        if { [isreg $a] } {
           if { [regget $a kekse] < [sql cnum maxcookies] && [expr ([clock seconds] - [useriget $a logintimestamp]) % 900 == 0] && [clock seconds] != [useriget $a logintimestamp] } { 
                regset $a kekse [expr 1 + [regget $a kekse]]
                set add ""
                if { [expr [clock seconds] - [useriget $a logintimestamp]] >= 900 } { set add "weitere" }
                sendroom $a "[img info] <i>[yacetime] [colornick $a] war jetzt 15 $add Minuten im Chat und bekommt daher einen keks! <img src="http://chat.hanzi.cc/imgs/keks.gif" /></i>"
                
            }
        }
    }

Leider funktioniert er nicht.
Vermutlich hat es was mit der Zeichenfolge zutun.

Ich hoffe ihr könnt helfen

MFG

242466750