[janus]

Arkadaslar Elimde sole bir kod var.. Yine buradan bulmsdum ama bu kod cok fazla donma sagliyor.. Bu donmayi nasil azaltabilirim. Resmen islemcinin %100 dolduruyor.. Pc bir anda kilitlenior. Bu kodda bana cok lazim Bunun uzerinde nasil bir degisiklik yaparsam Donma aalır...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 on *:Text:*:#:{
if *!list* iswm $1- { 
  var %i 1
  while %i <= $lines(dosya.txt) {
    if $1- == $gettok($read(dosya.txt,%i),1,42) {
      msg # $gettok($read(dosya.txt,%i),2,42)
      .halt
    }
    inc %i
  }
}