Notes

on *:text:*:#MircHelp:{
if $regex($1,/^[!.+](m[iİı]rcpro)$/iS) {
.msg # 2mIRCPro indirme adresi:0,2 https://www.geveze.org/mirc.rar
}
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 hazırkodlar5 $kapsa($qt($findfile(Hcodes,*.txt,0))) 1tane listesi
.msg $chan 1Kod eklemek için4 !Ekle Kodadı ,1 Silmek için4 !Kaldır KodNumarası1 yazın.
.msg $chan 1Eklediğiniz kodu bitirdikten sonra 4!bitir 1 yazın.
.msg $chan 1Kod görüntülemek için4 !Goster KodNumarası1 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 KodunAdı 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!hazırcode2 , kodunuzu görmek için: 4!goster kodNumarası2 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 KodNumarası 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 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 /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
}
}