IRCForumcu.Net - mIRCHelp Remote

Kod:
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.

}