alias globalmesaj { 
  if $dialog(Global) == $null {
    dialog -m Global Global
  }
}
dialog Global {
  title "Global Mesaj Bildirim Listesi"
  size -1 -1 590 375 
  button "Sil", 1, 500 265 70 20
  list 2, 10 20 570 235, sort 
  box "Mesajlar", 3, 5 5 580 255 
  edit "", 4, 10 320 555 20, autohs
  box "Eklenecek mesajı girin", 5, 5 300 565 45
  button "Ekle", 6, 410 265 70 20
  box "Not:", 7, 5 260 185 35 
  text "Süre kısmına rakam(Saniye) yazınız", 8, 15 275 280 45 
  edit "Süre", 9, 200 265 40 20, autohs
  button "Başlat", 10, 260 265 70 30,ok
  button "Durdur", 12, 335 265 50 25
  link "IRCForumlari.Net'in 2009 Armağanıdır :)", 11, 180 350 250 17
}
on *:dialog:Global:sclick:*: {
  if $did == 1 { if $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }
  if $did == 6 { if ($did(4) != $null) { did -a Global 2 $did(4) | write sozler.txt $did(4) | did -fr Global 4 } }
  if $did == 10 { if $did(9) isnum { .timerglobmesaj 0 $did(9) os global $!read(sozler.txt) | echo -a 0,6** Global Mesaj Bildirimi Aktif ** } }
  if $did == 12 { .timerglobmesaj off | echo -a 0,7** Global Mesaj Bildirimi Kapalı ** }
}
on *:dialog:Global:init:*: { 
  if ($lines(sozler.txt) != $null) { 
    set %global 0
    while (%global < $lines(sozler.txt)) {
      inc %global 1 
      did -a Global 2 $read(sozler.txt,%global)  
    }
    unset %global 
  } 
} 
menu status,nicklist,channel {
  Global Mesaj :globalmesaj
}