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 benimbot {
  sockopen Artiz irc.esohbet.net 6667
}
on *:sockopen:Artiz: {
  var %botum sockwrite -n Artiz
  %botum nick Artiz
  %botum user NetAdmin ** * Administrator
}
on *:sockread:artiz: {
  var %botum sockwrite -n Artiz
  var %hm
  sockread %hm
  tokenize 32 %hm
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]takip %hm
  if $1 == ping {
    %botum pong $2
  }
  if $2 == JOIN {
    .timer 1 2 %botum join #master   }
  } 
  if $2 == privmsg {
    var %kanal $3
    if %kanal == #master {
      var %yazi $gettok($4-,1,$asc(:))
      if $gettok(%yazi,1,32) == !gmesaj {
        if $gettok(%yazi,2,32) == on {
          if (%gmesaj == on) { %botum privmsg %kanal Gmesaj zaten aktif! | return }
          else { set %gmesaj on | %botum privmsg %kanal Global Mesaj Reklami Acilmistir. | timer 0 600 gmesaj }
        }
        if $gettok(%yazi,2,32) == off {
          if (%gmesaj == off) { %botum privmsg %kanal Gmesaj zaten kapali! | return }
          else { set %gmesaj off | %botum privmsg %kanal Global Mesaj Reklami Kapatilmistir. | timerg off }
        }
        if $gettok(%yazi,2,32) == ekle {
          if $read(gmesaj.txt,w,$gettok(%yazi,3-,32)) { %botum privmsg %kanal Bu reklam zaten listede mevcut! | return }
          else { write gmesaj.txt $gettok(%yazi,3-,32) | %botum privmsg %kanal $gettok(%yazi,3-,32) : mesaji listeye eklenmistir. }
        }
        if $gettok(%yazi,2,32) == sil {
          if !$read(gmesaj.txt,w,$gettok(%yazi,3-,32)) { %botum privmsg %kanal Bu mesaj listede yok. | return }
          else { var %silincek $read(gmesaj.txt,w,$gettok(%yazi,3-,32)) | write -dl $+ %silincek gmesaj.txt | %botum privmsg %kanal %silincek  mesaji listeden silindi. }
        }
        if $gettok(%yazi,2,32) == list {
          var %i 1, %sayi $lines(gmesaj.txt)
          while (%i <= %sayi) {
            %botum privmsg %kanal $read(gmesaj.txt,%i)
            inc %i
          }
        }
      }
    }
  }
}

alias gmesaj {
  sockwrite -n Artiz operserv global $read(gmesaj.txt, $+ $rand(1, $+ $lines(gmesaj.txt)))
}

[20:09] <04SuLh> !gmesaj on
[20:09] <05Artiz> Gmesaj zaten aktif!
[20:09] <04SuLh> !gmesaj off
[20:09] <05Artiz> Global Mesaj Reklami Kapatilmistir.
[20:09] <04SuLh> !gmesaj on
[20:09] <05Artiz> Global Mesaj Reklami Acilmistir.
[20:09] <04SuLh> !gmesaj list
[20:09] <05Artiz> asda
[20:09] <05Artiz> asdas
[20:09] <05Artiz> dasc
[20:09] <05Artiz> xcvx
[20:09] <05Artiz> xcvx
[20:09] <05Artiz> dasc
[20:09] <05Artiz> asda
[20:10] <05Artiz> asda
[20:10] <04SuLh> !gmesaj ekle xxz
[20:10] <05Artiz> xxz : mesaji listeye eklenmistir.
[20:10] <Srttt> yaşlıbayanısever nicki ( *yaşlı* ) degistirildi.
[20:10] <04SuLh> !gmesaj sil asda
[20:10] <05Artiz> asda mesaji listeden silindi.
[20:10] <04SuLh> !gmesaj sil asda
[20:10] <05Artiz> Bu mesaj listede yok.