mIRCHelp Remote

on *:text:*:#mirchelp:{
  if $regex($1,/^((!|\.)haz(i|ı)r(k|c)o(d(s|)|de(s|))|(!|\.)(c|k)ode(s|ler|))$/i)  {
    if !$isdir(Hcodes) {
      msg $chan 2Veritabanımda kodların depolanacağı klasör yok.
      msg $chan 2Klasör oluşturuluyor....
      mkdir Hcodes
      .halt
    }
    elseif  $findfile(Hcodes,*.txt,0) == 0 {
      msg $chan 2Veritabanıma kod eklenmemiştir.
      .halt
    }
    else {
      msg $chan 2Kod bankasındaki hazırkodlar10 $qt($findfile(Hcodes,*.txt,0)) 2tane listesi -;
      msg $chan 2Kod eklemek için !ekle Kodadı , silmek için !kaldır kodNumarası;
      msg $chan 2Kod görüntülemek için  !goster KodNumarası;
      msg $chan 4Not : 2Kendi kodunuzu arşivimize ekletmek için lütfen kanal yöneticileri ile görüşünüz.
      var %1 1
      while %1 <= $findfile(Hcodes,*.txt,0) {
        msg $chan 2 %1 $+ ) 10 $remove($nopath($findfile(Hcodes,*.txt,%1)),.txt)
        inc %1
      }
    }
  }
  if $1 == !ekle && %aktarim != $nick {
    if $nick isop $chan {
      if !$2 {
        msg $chan 2Komut kullanımı 10!ekle KodunAdı 2şeklinde olmalı ve Türkçe harf içermemelidir!
        .halt 
      }
      else {
        set %kod $2
        set %aktarim $nick
        msg $chan 10 $nick ; 2veritabanında kodunuz için yer açıldı. Kodunuzu kanala pasteleyin.
        write Hcodes/ $+ %kod $+ .txt Tarih: $date / $time , Kod sahibi: $nick
        .halt
      }
    }
  }
  if %aktarim == $nick && $1 != !bitir  {
    if $nick isop $chan {
      write Hcodes/ $+ %kod $+ .txt $1-
    }
  }
  if %aktarim == $nick && $1 == !bitir {
    if $nick isop $chan {
      unset %aktarim
      unset %kod
      msg $chan 10 $nick , 2kodunuz sistemime eklenmiştir. Liste için: !hazırcode , kodunuzu görmek için: !goster kodNumarası
      .halt
    }
  }
  if $1 == !kaldır && $nick isop $chan && $2 {
    if $nick isop $chan {
      msg $chan 10 $nopath($findfile(Hcodes,*.txt,$2)) 2 adlı kod veritabanımdan kaldırıldı.
      remove $shortfn($findfile(Hcodes,*.txt,$2))
    }
  }
  if $1 == !goster && $2 {
    msg $chan 10 $nopath($findfile(Hcodes,*.txt,$2)) 2kanala 100ms ile oynatılıyor.
    set %path $+(Hcodes/,$nopath($findfile(Hcodes,*.txt,$2)))
    play $chan %path 100 
  }
}

on *:join:#mIRCHelp: {
  .notice $nick Client & mIRC Scripting yardim kanalı #mIRCHelp 'e hos geldiniz.
  .notice $nick HazırKod Listesine ulasmak icin, kanalda !Hazırcode komutunu uygulayin.
  .notice $nick Listemizde bulunmayan bir kod hakkında yardım almak için ise sorunuzu kanal geneline açık ve net bir şekilde yazınız.
}