Kod:
on *:join:#Opers:{
timer 1 3 onlinecheck $nick $chan
timer 1 6 checkupop
}
on *:part:#sohbet:{ if $timer($nick) { $+(.timer,$nick) off } }
on *:quit:{ if $timer($nick) { $+(.timer,$nick) off } }
alias onlinecheck {
if $1 isop $2 {
if !$read(hlist.txt,w,$1) {
write hlist.txt $1
if !%online-date- [ $+ [ $1 ] ] {
set %online-date- $+ [ [ $1 ] ] 4Tarih: 1[ $+ $date $+ ]
}
}
if !$timer($1) {
.timer $+ $1 0 1 inc -e %- [ $+ [ $1 ] ]
if !%online-date- [ $+ [ $1 ] ] {
set %online-date- $+ [ [ $1 ] ] 4Tarih: 1[ $+ $date $+ ]
}
}
}
}
on *:text:*:#:{
if $chan == #Sohbet || $chan == #Radyo {
if ($1 == Bot!) {
f
}
if $1 == !online {
if $2 {
msg $chan 2 $+ $2 $+ : $replace($duration(%- [ $+ [ $2 ] ] ),secs,saniye,mins,Dakika,hour,saat,hour,saat,hr,Saat,day,Gün,min,dakika)
}
elseif !$2 {
msg $chan 2 $+ $nick $+ : $replace($duration(%- [ $+ [ $nick ] ] ),secs,saniye,mins,dakika,hour,Saat,hour,saat,hr,Saat,day,Gün,days,Gün,min,dakika)
}
}
}
if $1 == !osifirla {
if $chan == #opers {
msg $chan 1Tüm Nicklerin online süre bilgileri sıfırlandı!
unset %-*
unset %online-date-*
remove hlist.txt
}
}
if $1 == !olist {
if $chan == #opers {
msg $chan 1Tüm Nicklerin online süreleri listeleniyor...
var %/ 1
while %/ <= $lines(hlist.txt) {
if %- [ $+ [ $read(hlist.txt,%/) ] ] {
msg $chan $iif(!%online-date- [ $+ [ $read(hlist.txt,%/) ] ], 4[1Tarih Bulunamadı 4=1 $read(hlist.txt,%/) 4], %online-date- [ $+ [ $read(hlist.txt,%/) ] ] 4 $+ $read(hlist.txt,%/) $+ 1=>4 $replace($duration(%- [ $+ [ $read(hlist.txt,%/) ] ]),secs,saniye,mins,dakika,hr,Saat,day,Gün) 1görev yapmıştır.)
}
else {
msg $chan 4Nick: $+ 1 $+ $read(hlist.txt,%/) $+ :4 Henüz süre kaydı yok!
}
inc %/
}
}
}
}
on *:rawmode:#Sohbet:{
if $1 == +o || $1 == +oa || $1 == +oq || $1 == +h {
if !$timer($2) {
.timer $+ $2 0 1 inc -e %- [ $+ [ $2 ] ]
}
}
elseif $1 == -o || $1 == -oa || $1 == -oq || $1 == -h {
if $timer($2) {
$+(.timer,$2) off
}
}
}
alias checkupop {
var %& 1
while %& <= $nick(#help,0,o) {
if !$timer($nick(#sohbet,%&,o)) {
.timer $+ $nick(#sohbet,%&,o) 0 1 inc -e %- [ $+ [ $nick(#sohbet,%&,o) ] ]
}
if !%online-date- [ $+ [ $nick(#sohbet,%&,o) ] ] {
set %online-date- $+ [ [ $nick(#sohbet,%&,o) ] ] 4Tarih:1[ $+ $date $+ ]
}
inc %&
}
}