on *:text:*:#MircHelp:{
  if $regex($1,/^((!|\.)haz(i|ı)r(k|c)o(d(s|)|de(s|))|(!|\.)(c|k)ode(s|ler|))$/iS)  {
    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 {
      var %1 = 1
      while %1 <= $findfile(Hcodes,*.txt,0) {
        .msg $chan 1 %1 $+ ) 4 $remove($nopath($findfile(Hcodes,*.txt,%1)),.txt)
        inc %1
      }
      .msg $chan 1Kod bankasındaki hazirkodlar5 $kapsa($qt($findfile(Hcodes,*.txt,0))) 1tane listesi 
      .msg $chan 1Kod eklemek için4 !Ekle Kodadı ,1 Silmek için4 !Kaldır KodNumarasi1 yazın.
      .msg $chan 1Eklediğiniz kodu bitirdikten sonra 4!bitir 1 yazın.
      .msg $chan 1Kod görüntülemek için4  !Goster KodNumarasi1 yazın.
      .msg $chan 1Mevcut kodlar arasından arama yapmak için 4Örnek :!Kodara *kanal* 1şeklinde wildcard karekterini kullanarak arama yapabilirsiniz.
      .msg $chan 4Not : 1Lütfen eklediğiniz kod size ait değil ise, Kod yazarını veya Alıntı olduğunu belirtin.Emeğe saygı.
    }
  }

  if $regex($1,/^[!.](ekle)$/iS) && %aktarim != $nick {
    if $nick isop $chan {
      if !$2 {
        .msg $chan 2Komut kullanımı 10!ekle KodunAdi 2şeklinde olmalı ve Türkçe harf içermemelidir!
        halt 
      }
      if $2 && $findfile(Hcodes,$+($2,.txt),0) == 1 {
        .msg $chan 2 $2 isminde veritabanında kayıtlı dosya zaten mevcut. 10!Kodara  $+ $+(*,$2,*) 2yazarak arama yapabilirsiniz..
        halt
      }
      if $2 && $findfile(Hcodes,$+($2,.txt),0) == 0 {
        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 && !$regex($1,/^[!.](b[ıİi]t[ıİi]r)$/iS)  {
    if $nick isop $chan {
      write Hcodes/ $+ %kod $+ .txt $1-
    }
  }
  if %aktarim == $nick && $regex($1,/^[!.](b[ıİi]t[ıİi]r)$/iS) {
    if $nick isop $chan {
      unset %aktarim
      unset %kod
      .msg $chan  $+ 10 $nick $+ , 2kodunuz sistemime eklenmiştir. Liste için: 4!hazircode2 , kodunuzu görmek için: 4!goster kodNumarasi2 yazınız.
      .halt
    }
  }
  if $regex($1,/^[!.](kald[ıİi]r)$/iS) && $nick isop $chan && $2 {
    if $nick isop $chan {
      if $regex($2,[0-9]) {
        .msg $chan 10 $nopath($findfile(Hcodes,*.txt,$2)) 2 adlı kod veritabanımdan kaldırıldı.
        remove $shortfn($findfile(Hcodes,*.txt,$2))
      }
      else { .msg $chan 4Hatalı komut1! [4 !Kaldir KodNumarasi 1] olarak yazın.. }
    }
  }
  if $regex($1,/^[!.](G[oÖö]ster)$/iS) && $2 {
    set %path $+(Hcodes/,$nopath($findfile(Hcodes,*.txt,$2)))
    if $lines(%path) > 1 {
      .msg $chan 10 $nopath($findfile(Hcodes,*.txt,$2)) 2kanala 200ms ile oynatılıyor.
      timerlink 0 1 /KodLink
      if $play(#,1).status != playing {
        play $chan %path 200
      }
    }
    if $lines(%path) = 1 {
      .msg $chan 10 $nopath($findfile(Hcodes,*.txt,$2)) 2içeriği boş.10 !kaldır $2 2yazarak dosyayı kaldırabilirsiniz.
    }
  }
  if (?kodara iswm $1 && $len($2) > 1) {
    var %m = 1
    .msg $chan 12Kod isminde  $qt($2)  gecen kodlar siralaniyor...
    while (%m <= $findfile(hcodes,*.txt,0)) {
      if ($2 iswm $remove($nopath($findfile(Hcodes,*.txt,%m)),.txt)) {
        .msg $chan 1 %m $+ ) 4 $remove($nopath($findfile(Hcodes,*.txt,%m)),.txt)
      }
      inc %m
    }
    .msg $chan 2Kod görüntülemek için 4!goster KodNumarasi;
  }
  if (?kodara iswm $1 && $len($2) < 2) { .msg $chan 2En az 2 karakterlik arama kelimesi girin Örnek:12 !kodara !* (! işaretiyle başlayanlar) }
}

on *:join:#mIRCHelp: {
  if $nick == $me { halt }
  .notice $nick Client & mIRC Scripting yardım kanalı #mIRChelp'e hoş geldiniz.
  .notice $nick hazirKod Listesine ulaşmak icin, #mIRChelp kanalinda !hazircode komutunu uygulayın.
  .notice $nick Listemizde bulunmayan bir kod hakkında yardım almak için ise sorunuzu kanal geneline açık ve anlaşılır bir şekilde yazınız.
}

on *:sockopen:mpaste: {
  bread mPaste.txt 0 $file(mPaste.txt).size &mPaste
  var %m = sockwrite -n $sockname
  %m POST /index.php HTTP/1.1
  %m Host: www.mpaste.com
  %m Connection: keep-alive
  %m Content-Length: $file(mPaste.txt).size
  %m Content-Type: application/x-www-form-urlencoded
  %m User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.82 Safari/537.36 OPR/75.0.3969.60 (Edition beta)
  %m Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
  %m Accept-Encoding: gzip, deflate
  %m Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
  %m Cookie: PHPSESSID=0o2ckepf737l1am7pdgnmmj747
  %m $crlf
  %m &mPaste
}
on *:sockread:mpaste: {
  var %am
  sockread -f %am
  if *location* iswm %am {
    set %codelink $replace(%am,Location:,Kod Linki:)
    /*
    echo -a --
    echo -a > %codelink
    echo -a --
    */
    .msg #mirchelp > 0,2 %codelink
    unset %codelink
    unset %path
  }
}


alias -l connect_socket { .sockclose mpaste | .sockopen mpaste www.mpaste.com 80 }
alias sendcode {
  if (!$1) { echo -a Error: Please, type code filename. Example: /sendcode code.txt | return }
  if !$isfile($1) { echo -a Error: Code file not found. Make sure code file exists in mirc directory.(//run $mircdir) | return }
  write -c mPaste.txt
  write -an mPaste.txt title=test&code=
  var %m = 1
  var %lines = $lines($1)
  while %m <= %lines {
    var %trkarak = $encodeform($read($1,n,%m)) $+ $+(%,0D,%,0A)
    write -an mPaste.txt $trkarakter(%trkarak)
    inc %m
  }
  write -an mPaste.txt &notes=&submit=Post+Code%21&user=&pass=&syntax=mSL&expire=1d
  .msg #mirchelp 
  .msg #mirchelp 12> Görüntülemek istediğiniz Kod mPaste.com sitesine yükleniyor.
  .msg #mirchelp 12> Bu işlem biraz zaman alabilir, Lütfen Bekleyiniz.
  .msg #mirchelp 
  connect_socket
}
alias -l encodeform {
  if ($isid) {
    var %d = 1,%e
    while (%d <= $len($1-)) {
      var %t = $mid($1-,%d,1)
      if (%t !isalnum) && ($asc(%t) != 32) && (!$regex(%t,/[ıİğĞŞşöÖçÇüÜ]/i)) { %e = $+(%e,%,$base($asc(%t),10,16)) }
      else %e = %e $+ $iif($asc(%t) isnum 32,+,%t)
      inc %d
    }
    return %e
  }
}
alias trkarakter {
  return $replace($1-,ı,$eval(%C4%B1,0),İ,$eval(%C4%B0,0),ğ,$eval(%C4%9F,0),Ğ,$eval(%C4%9E,0),Ş,$eval(%C5%9E,0),ş,$eval(%C5%9F,0),ö,$eval(%C3%B6,0),Ö,$eval(%C3%96,0),ç,$eval(%C3%A7,0),Ç,$eval(%C3%87,0),ü,$eval(%C3%BC,0),Ü,$eval(%C3%9C,0),,$eval(%03,0),,$eval(%02,0))
}
alias kodlink {
  if $play(#mirchelp,1).status != playing {
    .timerlink off
    sendcode %path
  }
}