| manikdepresif | 26 Mart 2023 23:46 |
Hazirkod-Ekleme-Silme-Link-Listeleme-webe-yukleme
Gevezede kullanilan koddur,
-
fonksiyonlari;
!ekle kod
!kodara *kod*
!kaldır kodno
!goster kodno
-
Emegi gecenler;
-
Dostoyevski
jeun
hSN
- Kod:
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 } }
|
