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)
}