on *:dialog:Deneme:init:*:{
  if $lines(sunucular.txt) != $null {
    set %yeah 0
    while (%yeah < $lines(sunucular.txt)) {
      inc %yeah 1
      did -a Deneme 4 $read(sunucular.txt,%yeah)
    }
    unset %yeah
  }
}