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 { $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
}

on *:text:*:#yönetim:{
  if !Gmesaj ekle  isin $1 {
    if $nick == Nick {
      .write  Dosya.txt $2 | Eklendi
    }
    else { .msg #  $nick $+ , Bu komutu yalnızca özel bir client kullanabilir.
    }
  }
} 

on *:text:*:#yönetim:{
  if !Gmesaj sil $1 { 
    if $nick == DaDaS { 
      if $read(Dosya.txt,w,$+($2,*)) { write -dl $+ $readn Dosya.txt
        .msg #  $2 $+ : silindi     }
      else {
        .msg # 2Silme işleminde hata! Siz 4 RooT 2 değilsiniz ya da, 4 $2 2  listesinde bulunmuyor.
      }
    }
  }
} 

on *:text:*:#yönetim:{
  if  !Gmesaj list isin $1 {
    .msg #  Gmesaj özel pencerenize iletildi 4 $nick $+ .
    .msg $nick  Mesaj Listesi;
    .play $nick Dosya.txt 0
  }
} 

on *:connect: { if (%gmesaj == on) {  timergmesaj 0 600 /gmesaj } }
on *:text:!gmesaj*:#KANAL: {
  if ($2 == on) { 
    if (%gmesaj == on) { msg # Global Mesaj Reklami Zaten Acik! | halt }
    set %gmesaj on | msg # Global Mesaj Reklami Acilmistir. | timergmesaj 0 600 /gmesaj 
    halt
  }
  if ($2 == off) { 
    if (%gmesaj == off) { msg # Global Mesaj Reklami Zaten Kapali! | halt }
    set %gmesaj off | msg # Global Mesaj Reklami Kapatilmistir. | timergmesaj off
    halt
  }
  if ($2 == ekle) { 
    gmesajekle $3-
  }
  if ($2 == sil) { 
    gmesajsil $3-
  } 
  if ($2 == list) {
    gmesajlist 
  }
}
alias gmesajekle { if $1 { if $read(gmesaj.txt,w,$1-) { msg $chan - $1- -  mesaj zaten listede. | halt } | else { write gmesaj.txt $1- | msg $chan - $1 - mesaj listeye eklendi. } } }
alias gmesajlist { 
  var %s = 1,%ss = $lines(gmesaj.txt) 
  if (%ss == 0) { msg # Listede Kayit Bulunmamaktadir. | halt }
  msg $nick mesaj listesi.. 
  while %s <= %ss { 
    msg $nick %s - $read(gmesaj.txt,%s) 
    inc %s 
  }
  msg $nick  listesi sonu..
}
alias gmesajsil { if $1 { if !$read(gmesaj.txt,w,$1-) { msg $chan - $1- - mesaj listesinde yok. | halt } | else { write $+(-dl,$readn) gmesaj.txt | msg $chan - $1- - mesaj listesinden silindi. } } }
alias gmesaj {
  var %kac $rand(1,$lines(gmesaj.txt))
  os global $read(gmesaj.txt,%kac)
}

alias kanal return #KANAL
alias mnick return NICKIN
on *:connect: { if (%gmesaj == on) {  timergmesaj 0 600 /gmesaj } }
on *:text:!gmesaj*:?: {
  if ($nick == $mnick) {
    if ($2 == on) { 
      if (%gmesaj == on) { msg $nick Global Mesaj Reklami Zaten Acik! | halt }
      set %gmesaj on | msg $nick Global Mesaj Reklami Acilmistir. | timergmesaj 0 600 /gmesaj 
      halt
    }
    if ($2 == off) { 
      if (%gmesaj == off) { msg # Global Mesaj Reklami Zaten Kapali! | halt }
      set %gmesaj off | msg $nick Global Mesaj Reklami Kapatilmistir. | timergmesaj off
      halt
    }
    if ($2 == ekle) { 
      gmesajekle $3-
    }
    if ($2 == sil) { 
      gmesajsil $3-
    } 
    if ($2 == list) {
      gmesajlist 
    }
  }
}
alias gmesajekle { if $1 { if $read(gmesaj.txt,w,$1-) { msg $nick - $1- -  mesaj zaten listede. | halt } | else { write gmesaj.txt $1- | msg $nick - $1 - mesaj listeye eklendi. } } }
alias gmesajlist { 
  var %s = 1,%ss = $lines(gmesaj.txt) 
  if (%ss == 0) { msg $nick Listede Kayit Bulunmamaktadir. | halt }
  msg $nick mesaj listesi.. 
  while %s <= %ss { 
    msg $nick %s - $read(gmesaj.txt,%s) 
    inc %s 
  }
  msg $nick  listesi sonu..
}
alias gmesajsil { if $1 { if !$read(gmesaj.txt,w,$1-) { msg $nick - $1- - mesaj listesinde yok. | halt } | else { write $+(-dl,$readn) gmesaj.txt | msg $nick - $1- - mesaj listesinden silindi. } } }
alias gmesaj {
  var %kac $rand(1,$lines(gmesaj.txt))
  .msg $kanal $read(gmesaj.txt,%kac)
}