mIRC Titlebar kayan yazı

on *:Start:{ 
set %kayan $date $say ( Buraya istediginizi yazabilirsiniz )  
 set %kayan $replace(%kayan,$chr(32),$chr(160)).timer -m 0 300 kayanyazi }
alias kayanyazi { $iif(%kayan_s == $calc($len(%kayan) +1),set %kayan_s 1) titlebar $left(%kayan,%kayan_s)
 inc %kayan_s
 }