on *:text:*:#MircHelp:{
  if $regex($1,/^[!.+](m[iİı]rcpro)$/iS) { 
    msg # 2,4mIRCPro indirme adresi:2,11 https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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,%YeniDosya
      while %1 <= $findfile(Hcodes,*.txt,0) {
        whilefix
        if $calc($ctime - $file($findfile(Hcodes,*.txt,%1)).mtime) < 864000 { %YeniDosya = 0,4[ YENİ ] }
        else { %YeniDosya = $null }
        msg $chan 1 %1 $+ ) 4 $remove($nopath($findfile(Hcodes,*.txt,%1)),.txt) $iif(%YeniDosya != $null,%YeniDosya)
        inc %1
      }
      msg $chan 10Kod bankasındaki hazırkodlar5 $kapsa($qt($findfile(Hcodes,*.txt,0))) 10tane listesi 
      msg $chan 10Kod eklemek için4 !Ekle Kodadı ,10 Silmek için4 !Kaldır KodNumarası10 yazın.
      msg $chan 10Eklediğiniz kodu bitirdikten sonra 4!bitir 10 yazın.
      msg $chan 10Kod görüntülemek için4  !Goster KodNumarası10 yazın.
      msg $chan 10Mevcut kodlar arasından arama yapmak için 4Örnek :!Kodara *kanal* 10şeklinde wildcard karekterini kullanarak arama yapabilirsiniz.
      msg $chan 4Not : 10Lü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 KodunAdı 2şeklinde olmalı ve Türkçe harf içermemelidir!
        halt 
      }
      if ($chr(32) isin $2- || $chr(39) isin $2 || $chr(47) isin $2 || $chr(58) isin $2 || $chr(42) isin $2 || $chr(63) isin $2 || $chr(34) isin $2 || $chr(60) isin $2 || $chr(62) isin $2 || $chr(124) isin $2) || $chr(92) isin $2) { 
        msg $chan Dosya isminde hatalı karakter4 $qt($v1) 1kullandınız... Dosya adında4 (Boşluk \ / : * ? " < > |) 1karakterleri bulunamaz.
        msg $chan $+(2,$nick,$chr(44)) Lütfen $1  $replace($2,$chr(32),-,|,-,\,-,*,-,:,-,?,-,<,-,>,-,/,-) şeklinde deneyin..
        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
      msg $chan  $+ 10 $nick $+ , 2kodunuz sistemime eklenmiştir. Liste için: 4!hazırcode2 , kodunuzu görmek için: 4!goster $kacincikod(%kod) 2yazınız.
      unset %kod
      .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 KodNumarası 1] olarak yazın.. }
    }
  }
  if $regex($1,/^[!.](G[oÖö]ster)$/iS) && $2 {
    if $hget(bekle,bot) { msg # 4*-*-*2 Sistem kullanimda, $hget(bekle,bot).unset saniye  sonra tekrar deneyiniz $nick $+ . | halt } 
    set %path $+(Hcodes/,$nopath($findfile(Hcodes,*.txt,$2)))
    if $lines(%path) > 1 {
      .hinc $+(-msu,$calc($ceil($calc($lines(%path) * 100 / 1000)) + 1)) bekle bot
      msg $chan 10 $nopath($findfile(Hcodes,*.txt,$2)) 2kanala 100ms ile oynatılıyor.
      .timerlink 0 1 /KodLink | Set %kodGoster $nick
      if $play(#,1).status != playing {
        play $chan %path 100
      }
    }
    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,%k = 0,%YeniDosya
    msg $chan 12Kod isminde  $qt($2)  gecen kodlar siralaniyor...
    while (%m <= $findfile(hcodes,*.txt,0)) {
      whilefix
      if ($2 iswm $remove($nopath($findfile(Hcodes,*.txt,%m)),.txt)) {
        if $calc($ctime - $file($findfile(Hcodes,*.txt,%m)).mtime) < 864000 { %YeniDosya = 0,4[ YENİ ] }
        else { %YeniDosya = $null }
        msg $chan 1 %m $+ ) 4 $remove($nopath($findfile(Hcodes,*.txt,%m)),.txt) $iif(%YeniDosya != $null,%YeniDosya)
        inc %k
      }
      inc %m
    }
    msg $chan $iif(%k > 0, 2Kod görüntülemek için 4!goster KodNumarasi;,2Aradığınız maska uygun kod 4bulunamadı..)
  }
  if (?kodara iswm $1 && $len($2) < 2) { msg $chan 2En az 2 karakterlik arama kelimesi girin Örnek:12 !kodara !* (! işaretiyle başlayanlar) }
}
Alias KacinciKod {
  var %m = 1
  while (%m <= $findfile(Hcodes,*.txt,0)) {
    if ($1 iswm $remove($nopath($findfile(HCodes,*.txt,%m)),.txt)) {
      Return %m
    }
    inc %m
  }
}

on *:join:#mIRCHelp: {
  if $nick == $me { halt }
  if $nick == $_BotLog { mode $chan +h $nick | halt }
  if $regex($address($nick,5),/(jeun)\!(.+)@(.+)/Si) { mode $chan +oa $regml(1) $regml(1) }
  if $hget(#mirchelp,$nick) { halt }
  .hinc -msu10800 #mirchelp $nick
  .notice $nick Client & mIRC Scripting yardım kanalı #mIRChelp'e hoş geldiniz.
  .notice $nick HazırKod Listesine ulaşmak icin, kanalda !Hazırcode 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 /pastes/create HTTP/1.1
  %m Host: pastie.org
  %m Connection: keep-alive
  %m Content-Length: $file(mPaste.txt).size
  %m Cache-Control: max-age=0
  %m Upgrade-Insecure-Requests: 1
  %m Origin: http://pastie.org
  %m Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/100.0.4896.75 Safari/537.36
  %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 Referer: http://pastie.org/
  %m Accept-Encoding: gzip, deflate
  %m Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
  %m $crlf
  %m &mPaste
}
on *:sockread:mpaste: {
  var %am
  sockread -f %am
  if *Location: * iswm %am {
    set %codelink $remove(%am,Location:,$chr(32))
    msg #mirchelp > 8,2 $qt($kapsa(%Kodİsmi)) 11Kod Linki:0 $+(http://pastie.org,%codelink)   | msg #mirchelp   | unset %Kodİsmi | unset %codelink | unset %path | unset %kodGoster
  }
}
alias -l connect_socket { .sockclose mpaste | .sockopen mpaste pastie.org 80 }
alias sendcode {
  if (!$1) { echo -s Error: Please, type code filename. Example: /sendcode code.txt | return }
  if !$isfile($1) { echo -s Error: Code file not found. Make sure code file exists in mirc directory.(//run $mircdir) | return }
  Set %Kodİsmi $remove($1,.txt,Hcodes/)
  write -c mPaste.txt
  write -an mPaste.txt language=&content=
  var %m = 1
  var %lines = $lines($1)
  while %m <= %lines {
    whilefix
    var %trkarak = $encodeform($read($1,n,%m)) $+ $+(%,0D,%,0A)
    write -an mPaste.txt $trkarakter(%trkarak)
    inc %m
  }
  msg #mirchelp 
  msg #mirchelp 12>> Görüntülemek istediğiniz Kod aşağıdaki Linkte paylaşılmıştır. <<
  msg #mirchelp 
  connect_socket
}
alias -l encodeform {
  if ($isid) {
    var %d = 1,%e
    while (%d <= $len($1-)) {
      whilefix
      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),,$eval(%0F,0)$&
    , ,$eval(%20),¨,$eval(%C2%A8),¯,$eval(%C2%AF,0),©,$eval(%C2%A9,0),®,$eval(%C2%AE,0),°,$eval(%C2%B0,0),»,$eval(%C2%BB,0),«,$eval(%C2%AB,0),§,$eval(%C2%A7,0),	,$eval(%09,0),•,$eval(%E2%80%A2,0),º,$eval(%C2%BA,0),¿,$eval(%C2%BF,0),’,$eval(%E2%80%99,0),½,$eval(%C2%BD,0),ß,$eval(%C3%9F,0))
}
alias kodlink { if $play(#mirchelp,1).status != playing { .timerlink off | sendcode %path } }