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)

}