on *:join:#Global: { $+(timer,$nick) 0 1 inc -e $+(%,$nick) }
on *:part:#Global: { if $timer($nick) { $+(timer,$nick) off  } | write $+($nick,.txt) $date tarihinde $($+(%,$nick),2) süre online olmuştur }
on *:quit: { if $timer($nick) { $+(.timer,$nick)  off } | write $+($nick,.txt) $date tarihinde $($+(%,$nick),2) süre online olmuştur. }
on *:text:*:?: { if $1 == !takip { var %Saat $lines($+($2.txt)) | while (%Ssaat > 0) { msg $nick $read($+($2.txt),%Saat) | dec %Saat } } }