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.