alias MultiMesaj { dialog -m MultiMesaj MultiMesaj } 
 
dialog MultiMesaj { 
  size -1 -1 280 220 
  title KELEBEK Admin MultiMesaj Sistemi 
  box "Nickler Listesi:",1, 5 5 150 148 
  button "Tamam",2, 159 100 110 50,ok 
  list 3, 15 20 130 140 
  button "Ekle",4, 170 60 50 20 
  edit "",5, 170 35 90 20 
  text "Nick:",6, 170 20 45 15 
  button "Sil",7, 222 60 40 20 
  box "Ayarlar ( Ekle/Sil )",8, 159 5 110 85 
  button "BAŞLAT",9, 159 160 110 50 
  button "Gidecek Mesajı Ayarla",10, 6 160 140 50 
} 
 
on 1:dialog:MultiMesaj:sclick:*: { 
  if ($did == 3) {  
    did -ra $dname 5 $did(3).seltext 
  } 
  if ($did == 4) {  
    set %MultiMesaj [ %MultiMesaj ] $did(5) 
    did -a $dname 3 $did(5) 
    did -ra $dname 5  
  } 
  if ($did == 7) {  
    if ($did(3).sel > 0) {  
      set %MultiMesaj $remtok(%MultiMesaj,$did(3).seltext,32) 
      did -d MultiMesaj 3 $did(3).sel  
      did -ra $dname 5  
    }  
  } 
  if ($did == 9) { MultiMesaj.Gonder } 
  if ($did == 10) { MultiMesaj.Ayar } 
} 
 
on *:dialog:MultiMesaj:init:*: { 
  var %a = 1 
  while ($gettok(%MultiMesaj,%a,32)) { 
    did -a MultiMesaj 3 $gettok(%MultiMesaj,%a,32) 
    inc %a 
  } 
} 
 
alias MultiMesaj.Gonder { 
  set %sikici 1 
  $+(.,timer,MMS) 0 1 /MultiMesaj.Gonder.Devam 
} 
 
alias MultiMesaj.Gonder.Devam { 
  if $gettok(%MultiMesaj,1,32) == $null {  
    $+(.,timer,MMS) off 
    echo -a *** Mesaj Gönderilecek NickListesi şu anda boş. 
    goto son 
  } 
  if $gettok(%MultiMesaj,1,32) != $null {  
    if $gettok(%MultiMesaj,%sikici,32) != $null {  
      .ms send $gettok(%MultiMesaj,%sikici,32) %MultiMesaj.Mesaj 
      inc %sikici 1 
      goto son 
    } 
    if $gettok(%MultiMesaj,%sikici,32) == $null {  
      $+(.,timer,MMS) off 
      echo -a *** Mesaj Gönderimi başarıyla tamamlandı. 
      goto son 
    } 
  } 
  :son 
} 
 
alias MultiMesaj.Ayar { 
  set %MultiMesaj.Mesaj $$?="Lütfen Gönderilecek Mesajı Giriniz" 
  echo -a *** Gönderilecek Mesaj: %MultiMesaj.Mesaj 
}