Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias -l nfindfile return $qt($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1))
alias -l nfindfile2 return $findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1)
alias -l nfindfile3 return $qt($shortfn($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1)))
alias -l nfindfile4 return $shortfn($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1))
alias ndir {
if ($isid) && ($1) && ($nfindfile2($1)) && (!$2) return $nfindfile($1)
if ($isid) && ($1) && ($nfindfile2($1)) && ($2) && (!$3) return $nflag($1,$2)
if ($isid) && ($1) && ($nfindfile2($1)) && ($2) && ($3) return $nfatal(fazla)
if ($isid) && (!$1) return $nfatal(bos)
if ($isid) && ($1) && (!$nfindfile2($1)) return $nfatal(yok)
}
alias nfatal {
if ($isid) && ($1 == bos) echo -a Bir dosya adı girmelisiniz.
if ($isid) && ($1 == yok) echo -a Böyle bir dosya mirc klasörünüzde yok.
if ($isid) && ($1 == fazla) echo -a Fazla parametre girdiniz.
if ($isid) && ($1 == flag) echo -a Geçersiz parametre girdiniz.
}
alias nflag {
if ($isid) && ($2 == -q) return $nfindfile2($1)
if ($isid) && ($2 == -s) return $nfindfile3($1)
if ($isid) && ($2 == -qs) || ($2 == -sq) return $nfindfile4($1)
if ($isid) && ($2 != -q) || ($2 != -s) || ($2 != -qs) || ($2 != -sq) return $nfatal(flag)
}
Yukarıdaki kodları remotenize koyduktan sonra birşey yapmanıza gerek yok. Kullanımı gayet basittir.
Kullanacağınız yere $ndir(DOSYA,-FLAG) olarak yazabilirsiniz.
Örnekler :
$ndir(dcx.dll) Dosya dizinini "C:\mirc\dcx.dll" olarak verir.
$ndir(dcx.dll,-q) Dosya dizinini C:\mirc\dcx.dll olarak verir.
$ndir(dcx.dll,-s) Dosya dizinini "$shortfn()" olarak verir.
$ndir(dcx.dll,-qs) Dosya dizinin " olamadan $shortfn() olarak verir.
Kıyaslamalar :
$scriptdirdcx\dcx.dll = $ndir(dcx.dll)
$mircdirdll\dcx\dcx.dll = $ndir(dcx.dll)
$qt($findfile($mircdirdcx.dll),dcx.dll,1) = $ndir(dcx.dll)
vs.. vs.. Basitligi görmüssünüzdür.
Bu çalışmayı mirc 6.31'deki $mircdir sorunu üzerine yaptım lahsen kullanmaya başladım ve sizlerle paylaşmak istedim.
Umarım işinize yarar.
İçerisinde kullanılanlar :
$mircexe
$findfile
$qt
$shortfn
$remove
$gettok
Saygılarımla