Online Takip Acil yardım
 

alias Onlineekle {
if (!$1) { echo -a Nick belirtmediniz? | return }
if ($ini(takip.ini,$1)) { echo -a  $+ $1  nicki zaten listede ekli durumda. | return }
else {
writeini -n takip.ini $1 Pazartesi 0
writeini -n takip.ini $1 Salı 0
writeini -n takip.ini $1 Çarşamba 0
writeini -n takip.ini $1 Perşembe 0
writeini -n takip.ini $1 Cuma 0
writeini -n takip.ini $1 Cumartesi 0
writeini -n takip.ini $1 Pazar 0
.auser takip $1
echo -a  $+ $1  nicki online listesine eklenmiştir.
if ($1 ison #opers) { $+(.timertakip,$1) 0 1 inc -e $+(%,$1) }
}
}
alias Onlinesil {
if (!$1) { echo -a Nick belirtmediniz? | return }
if (!$ini(takip.ini,$1)) { echo -a $1 Listede ekli değil | return }
else { .remini takip.ini $1 | .ruser takip $1 | echo -a $1 Listeden silindi.
if $+($timertakip,($1)) { $+(timertakip,$1) off | unset $+(%,$1) }
}
}
alias Onlines {
if (!$1) { echo -a Nick belirtmediniz? | return }
if (!$ini(takip.ini,$1)) { echo -a $1 Listede ekli değil | return }
kayit $1
echo -a 4 $str(-,10) $1 nicki için takip listesi $str(-,10)
.play $+(-t,$1) takip.ini $active 100
$+(.timerlist,$1) 1 1 echo -a 4 $str(-,10) Listenin sonu $str(-,10)
}
on takip:join:#opers: { $+(.timertakip,$nick) 0 1 inc -e $+(%,$nick) }
on takip:part:#opers:{ if $+($timertakip,($nick)) { $+(.timertakip,$nick) off | kayit $nick } }
on takip:quit: { if $+($timertakip,($nick)) { $+(timertakip,$nick) off | kayit $nick } }
alias kayit { .remini takip.ini $1 $gün | writeini -n takip.ini $1 $gün $replace($duration($($+(%,$1),2)),mins,Dakika,hrs, Saat,secs,Saniye,min,Dakika,hr,Saat,sec,Saniye,day ,Gün,days,Gün) }
alias gün { return $replace($asctime($ctime,dddd),monday,Pazartesi,su nday,Pazar,wednesday,Çarşamba,friday,Cuma,saturday ,Cumartesi,tuesday,Salı,thursday,Perşembe) }


şu konuda bunun tcl şekli var mı sizde :( yardım ederseniz sevinirim.şimdiden tşkler