Alıntı:

alias kaydır { $iif($1-,$iif($left($gettok($1-,1,32),1) == $chr(35),set %kaydd. [ $+ [ $gettok($1-,1,32) ] ] $remove($1-,$gettok($1-,1,32)),set %kaydd $remove($1-,$chr(32))),set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBakkkkkkkk) if (!%kaydd) { %kaydd = %kaydd. [ $+ [ $gettok($1-,1,32) ] ] } if (%kaydd == $null) { .set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBakkkkkkkkkk } if ($len($remove(%kaydd,$chr(32))) < 40) { %kaydd = $remove($+(%kaydd,$str(.,$calc(40 - $len(%kaydd)))),$chr(32)) } else { if ($len($remove(%kaydd,$chr(32))) > 40) { set %kaydd $left($remove(%kaydd,$chr(32)),40) } } var %;ü 1 var %b. $len(%kaydd) var %tim3 1 while (%;ü <= %b.) { $iif($left($gettok($1-,1,32),1) == $chr(35),%activech = $gettok($1-,1,32),$iif($active != Status Window,%activech = $active,return)) if (%;ü <= 10) { msg %activech $right($left(%kaydd,%;ü),1) } else { if ((%;ü >= 10) && (%;ü <= 20)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) } elseif ((%;ü >= 20) && (%;ü <= 30)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) } elseif ((%;ü >= 30) && (%;ü <= 40)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) } } inc %;ü } unset %kaydd unset %kaydd. [ $+ [ $gettok($1-,1,32) ] ] unset %q- unset %activech }

Alıntıdır belirteyim kendı scriptimde suan kullanıyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


/kaydır yazman yeterlıdır