Dabar yra 2020-06-03, 16:02




Naujos temos kūrimas Atsakyti į temą  [ 1 pranešimas ] 
tcl timeris 
Autorius Žinutė
Naujokas
Naujokas
Vartotojo avataras

Užsiregistravo: 2010-07-17, 14:08
Pranešimai: 59
Forumo litai: 83
Pinigų pervedimas
Miestas: Kaunas
Standartinė tcl timeris
Sveiki, cia ISO kodas t.y. kas kiek laiko rasys zinute kanaluose, bet man jis neveikia kazkodel... kas gali buti blogai?

Kodas:
# cia nustatai laika minutem kas kiek rasys
set laikas "25"

set kanalai "#kanalas1 #kanalas2 #kanalas3"

set zinute1 "labas"
set zinute2 "as krabas"


proc spamas {args} {
global kanalai laikas zinute1 zinute2
foreach x $kanalai {
putserv "privmsg $x :$zinute1"
putserv "privmsg $x :$zinute2"
}
timer laikas tm
}

# taimerio procesas cia patikrina ar jau yra tameris paleistas jei nera paleidzia
proc tm {} {
global laikas
if {[timerexists tm] == ""} {
timer $laikas spamas }
}

_________________
Šauktuku skaičius paprastai yra atvirkščiai proporcingas protinių sugebėjimų...


2011-09-03, 20:34
Aprašymas
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 1 pranešimas ] 


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 1 svečias


Jūs negalite kurti naujų temų šiame forume
Jūs negalite atsakinėti į temas šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite trinti savo pranešimų šiame forume
Jūs negalite prikabinti failų šiame forume

Ieškoti:
Pereiti į:  
cron
© phpBB Group. Veikia phpBB pagrindu.
Dizaino autorius Vjacheslav Trushkin, adaptavo Igor „MucTuK“ Gubaidulin
Vertė Vilius Šumskas © 2003, 2005, 2007