alias globalmesaj {
  if $dialog(Global) == $null {
    dialog -m Global Global
  }
}
dialog Global {
  title "Global Mesaj Bildirim Listesi"
  size -1 -1 432 292
  option pixels notheme
  button "Sil", 1, 192 187 55 26
  list 2, 10 15 413 136, sort
  box "Mesajlar", 3, 3 0 424 149
  edit "", 4, 10 166 174 84, autohs autovs multi
  box "Eklenecek mesaji girin", 5, 3 150 185 97
  button "Ekle", 6, 192 157 55 25
  text "Saniye giriniz", 8, 11 262 82 19, center
  edit "", 9, 106 256 80 28, autohs center
  button "Baslat", 10, 192 219 55 27
  button "Durdur", 12, 192 251 55 25
  box "Sure", 7, 3 249 96 37
  box "Kanal listesi", 11, 252 152 108 130
  edit "", 17, 365 163 60 22, autohs
  list 13, 259 165 94 121
  button "Kanal Ekle", 14, 366 187 62 25
  button "Kanal Sil", 15, 366 226 62 25
  button "Cikis", 16, 366 257 61 25
}
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) { filter -ifg Global 4 sozler.txt . | did -fr Global 4 | did -fr Global 2 | filter -fog sozler.txt Global 2 . } }
  if $did == 10 { if $did(9) isnum { .timerglobmesaj 0 %globaltime globecho | echo -a 0,6** Global Mesaj Bildirimi Aktif ** | set %globaltime $did(9).text } }
  if $did == 12 { .timerglobmesaj off | echo -a 0,7** Global Mesaj Bildirimi Kapalı ** }
  if $did == 14 { did -a Global 13 $did(17).text | set %globalchan $addtok(%globalchan,$did(17).text,44) | did -fr Global 17 }
  if $did == 15 { set %globalchan $remtok(%globalchan,$did(13).seltext,44) | did -d Global 13 $did(13).sel }
  if $did == 16 { set %globaltime $did(9).text | dialog -x Global Global }
}
on *:dialog:Global:init:*:if ($lines(sozler.txt) != $null) { filter -fog sozler.txt Global 2 . } | tokenize 44 %globalchan | did -a Global 13 $* | did -a Global 9 %globaltime
menu status,nicklist,channel {
  Global Mesaj :globalmesaj
}
alias globecho {
  set %globmsg $read(sozler.txt)
  .msg %globalchan %globmsg
  tokenize 44 %globalchan
  echo -t $* $+(<,$me,>) %globmsg
}