;----------------------------------------------------------
; Bu Kaynak
Cappystarj0e tarafından yazılmıştır. .
;----------------------------------------------------------
Aşağıdaki kodu remote'a kopyalayarak "/BüyükÖrnek" yazarak token identifierların nasıl çalıştığını görebilirsiniz.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias BüyükÖrnek {
.set %KayıtlıBilgi Ali.Veli.49.Elli.Ahmet.Mehmet.Hüseyin.Ahmet.Ali.Murat.Ahmet
.echo -a 1|5 Öncelikle öylesine " %KayıtlıBilgi "5 adında bir veritabanı oluşturuyoruz.(Variable)
.echo -a 1|4::::::::::$addtok Örneği::::::::::
.echo -a 1|5 "HASAN" diye bir bilgiyi %KayıtlıBilgi'ye ekliyoruz.
.set %KayıtlıBilgi $addtok(%KayıtlıBilgi,HASAN,46)
.echo -a 1|12--> %KayıtlıBilgi <--
.echo -a 1|4::::::::::$deltok Örneği::::::::::
.echo -a 1|5 <$deltok> ile girdiğimiz bir bilgiyi silelim.Örneğin 2. bilgiyi silelim. 2.bilgi => "Veli"
.set %KayıtlıBilgi $deltok(%KayıtlıBilgi,2,46)
.echo -a 1|12--> %KayıtlıBilgi <--
.echo -a 1|4::::::::::$findtok Örneği::::::::::
.echo -a 1|5 1) <$findtok> ile örneğin ilk "HASAN" bilgisinin kaçıncı sırada kayıt edildiğini görelim.
.echo -a 1|5 2) Sonra bu "Ahmet" bilgisinden kaç tane var ona bakalım.
.echo -a 1|5 3) Daha sonra da İkinci "Ahmet" bilgisi kaçıncı sırada kaydedilmiş ona bakalım.
.echo -a 1|12--> %KayıtlıBilgi <--
.echo -a 1|3 1) $findtok(%KayıtlıBilgi,HASAN,1,46) , 2) $findtok(%KayıtlıBilgi,Ahmet,0,46) , 3) $findtok(%KayıtlıBilgi,Ahmet,2,46)
.echo -a 1|4::::::::::$gettok Örneği::::::::::
.echo -a 1|5 1) <$gettok> 'u kullanarak "%KayıtlıBilgi" deki bilgileri okuyalım.Kayıtlı 5. bilgiyi okuyalım.
.echo -a 1|5 2) Kayıtlı olan 3. bilgiden sonuna kadar olan tüm bilgileri okuyalım.
.echo -a 1|5 3) KayıtlıBilgi de toplam kaç tane bilgi kaydedilmiş olduğunu görelim. Bu işlem <$numtok> da yapılan işlemle aynıdır.
.echo -a 1|12--> %KayıtlıBilgi <--
.echo -a 1|3 1) $gettok(%KayıtlıBilgi,5,46)
.echo -a 1|3 2) $gettok(%KayıtlıBilgi,3-,46)
.echo -a 1|3 3) $gettok(%KayıtlıBilgi,0,46)
.echo -a 1|4::::::::::$instok Örneği::::::::::
.echo -a 1|5 Kaldığımız yerden devam ediyoruz.
.echo -a 1|12--> %KayıtlıBilgi <--
.echo -a 1|5 Herhangi bir sıraya bilgi kaydedelim.Mesela 3. sıraya "Yavuz" diye bir bilgi kaydedelim.
.echo -a 1|5 O halde yeni "%KayıtlıBilgi" miz aşağıdaki hale gelir.
.set %KayıtlıBilgi $instok(%KayıtlıBilgi,Yavuz,3,46)
.echo -a 1|12--> %KayıtlıBilgi <--
.echo -a 1|4::::::::::$istok Örneği::::::::::
.echo -a 1|5 Bir bilginin bizim kayıtlarımızda olup olmadıgını kontrol edelim.
.echo -a 1|5 En son haliyle kayıtlarımıza bir daha göz atalım.
.echo -a 1|12--> %KayıtlıBilgi <--
.echo -a 1|5 1) Mesela "Ebru" diye bir bilgi bu kayıtta varmı kontrol edelim.
.echo -a 1|5 2) Sonra "Murat" diye birşey kayıtlı mı değilmi ona bakalım.
.echo -a 1|5 Bilgi kayıtlarda varsa "$true" yoksa "$false" sonuç verir.
.echo -a 1|3 1) $istok(%KayıtlıBilgi,Ebru,46) , 2) $istok(%KayıtlıBilgi,Murat,46)
.echo -a 1|4::::::::::$matchtok Örneği::::::::::
.echo -a 1|5 1) İçinde "e" karakteri olan kaç tane bilgi olduğuna bakalım.
.echo -a 1|5 2) İçinde "e" karakteri olan 3. bilginin ne olduğunu öğrenelim.
.echo -a 1|12--> %KayıtlıBilgi <-
.echo -a 1|3 1) $matchtok(%KayıtlıBilgi,e,0,46) , 2) $matchtok(%KayıtlıBilgi,e,3,46)
.echo -a 1|4::::::::::$puttok Örneği::::::::::
.echo -a 1|5 Şimdi de belli bi sıradaki bilginin içini değiştirelim.
.echo -a 1|5 Mesela en son KayıtlıBilgi mizdeki 4. sıradaki bilgi ne ise onu "YENİİİİİİİ" gibi bir bilgiyle değiştirelim.
.echo -a 1|5 <$reptok> ile benzer çalışır.
.echo -a 1|5 Şuan KayıtlıBilgi miz aşağıdaki gibi.Yani 4. sıradaki bilgi => "Elli"
.echo -a 1|12--> %KayıtlıBilgi <-
.echo -a 1|5 Bu da işlem yapıldıktan sonraki hali.
.set %KayıtlıBilgi $puttok(%KayıtlıBilgi,YENİİİİİİİ,4,46)
.echo -a 1|12--> %KayıtlıBilgi <-
.echo -a 1|4::::::::::$remtok Örneği::::::::::
.echo -a 1|5 Şimdi bize belirtilen bir bilginin kayıtlarımızdan silinmesi işlemini yapalım.
.echo -a 1|5 KayıtlıBilgi mizdeki İkinci "Ahmet" bilgisini silelim.
.echo -a 1|5 Bilgilerimizin en son hali aşağıdaki gibi.
.echo -a 1|12--> %KayıtlıBilgi <-
.echo -a 1|5 İşlem yapıldıktan sonraki hali de bu şekilde olur.
.set %KayıtlıBilgi $remtok(%KayıtlıBilgi,Ahmet,2,46)
.echo -a 1|12--> %KayıtlıBilgi <-
.echo -a 1|4::::::::::$sorttok Örneği::::::::::
.echo -a 1|5 Karışık olan bilgi yığınımızı alfabetik olarak düzenleyelim.
.set %KayıtlıBilgi $sorttok(%KayıtlıBilgi,46)
.echo -a 1|12--> %KayıtlıBilgi <-
.echo -a 1|5 Aynı düzenlemeyi bir de tersten yapalım.
.set %KayıtlıBilgi $sorttok(%KayıtlıBilgi,46,r)
.echo -a 1|12--> %KayıtlıBilgi <-
.echo -a 1|4::::::::::$wildtok Örneği::::::::::
.echo -a 1|5 Belli bir tipte kayıtlar arasında arama yapalım.
.echo -a 1|5 Mesela "m*t"5 tipinde karakter bulunduran bilgiler olup olmadığına bir bakalım.
.echo -a 1|5 1) "m*t" tipinde kaç bilgi olduğuna bakalım.
.echo -a 1|5 2) Bu tipteki 2. bilginin ne olduğuna bakalım.
.echo -a 1|12--> %KayıtlıBilgi <-
.echo -a 1|3 1) $wildtok(%KayıtlıBilgi,m*t,0,46) , 2) $wildtok(%KayıtlıBilgi,m*t,2,46)
.echo -a 1|4-------------------------------------
.echo -a 1|14 Written By Cappystarjoe
.echo -a 1|14 Kasım 2005
.echo -a 1|14 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
.echo -a 1|4-------------------------------------
.unset %KayıtlıBilgi
}
;---------------------------------
; Text ve Numara Identifierları
;--------------------------------- :::::$abs(N)
N yerine yazılan pozitif yada negatif sayıların mutlak değerini verir.
$abs(5) => 5
$abs(-1) => 1
:::::$and(A,B), $or(A,B), $xor(A,B), $not(A)
mIRC daki mantık kapılarıdır.Sırasıyla Ve,Veya,Veyadeğil ve Değil'i temsil eder.
:::::$asc(C)
C Herhangi bir Ascii karakteri ifade eder.Bu identifierdan sonuç olarak Ascii Kod Numarası çıkar.
$asc(A) => 65
$asc(*) => 42
:::::$chr(N)
N, Herhangi bir karakterin Ascii Kod Numarasını verir.
$chr(65) => A
$chr(42) => *
$chr(46) => .
:::::$bytes(N,bkmgt3)
Yazılan N byte miktarının KB, MB, GB vs. değerleri ile ifade edilmesine yarar.
Opsiyon: suf
$bytes(38545,k).suf => 37.64KB
$bytes(38545,m).suf => 0.04MB
$bytes(38545,3).suf => 37.6KB
$bytes(385450000,3).suf => 367MB ' Üç sayısı çevirme işlemini yaparken 3 basamak şeklinde yazmaya yarar.
:::::$calc(Operasyonlar:+-/*%)
Matematiksel işlemler yapmamıza yardımcı olan bir identifierdır.Özellikle birçok işlemi bir arada yapmak için tek bir identifier halinde kullanılabilir.
Örnek: $calc((3+ 5)/2 * 4 - 1) => 15
:::::$cos(N), $acos(N), $sin(N), $asin(N), $tan(N), $atan(N)
N sayısının (sırasıyla) Cosinüsünü, Arccosinüsünü, Sinüsünü, Arcsinüsünü, Tanjantını ve Arctanjantını alır.
Opsiyon: deg ' Bu opsiyon mesela $cos(N).deg şeklinde kullanılır.Matematiksel bir ölçü sistemidir.
:::::$count(Text1,Text2,Text3,...,TextN)
İlk yazılan Text ifadede İkinci yazılan Text'in kaç kere geçtiğini belirten identifierdır.
$count(hello,el) => 1 ' "el" text'i bi kere geçiyor.
$count(hello,l) => 2 ' "l" harfi 2 defa geçiyor..
:::::$int(N)
Yazılan N sayısının tam kısmını alır ama $round daki gibi yuvarlama yapmaz.
$int(3.14159) => 3
:::::$islower(Text)
Yazılan Text deki bütün harfleri küçük ise $true sonuç verir.
:::::$isupper(Text)
Yazılan Text deki bütün harfleri büyük ise $true sonuç verir.
:::::$left(Text,N) , $right(Text,N)
Yazılan Text'in soldan yada sağdan (Left: sol, Right: sağ) N sayısı kadar seçilmesini ifade eder.
$left(Merhaba,4) => Merh
$right(Merhaba,4) => haba
:::::$len(Text)
Text'in içindeki karakter sayısını sayar.
$len(#mIRC) => 5
:::::$log(N)
N sayısının Logaritmik sonucunu verir.Hesap makinesindeki Log fonksiyonu ile aynıdır.
:::::$longip(IPAdres)
Yazılan IPAdres değişik şekilde ifade edilmek üzere (Long Value & Vice-Versa) bir başka türe çevrilir.
$longip(158.152.50.239) => 2660774639
$longip(2660774639) => 158.152.50.239
:::::$lower(Text)
Yazılan Text deki tüm harfleri küçük harf yapar.
$lower(NABER) => naber
:::::$upper(text)
Yazılan Text deki tüm harfleri büyük harf yapar.
$upper(hello) => HELLO
:::::$mid(Text,S,N)
Yazılan Text'de soldan S'inci karakterden başlayıp, N tane karakterin seçilmesini ifade eder. N sıfır seçilirse S'inci karakterden başlayıp Text'in sonuna kadar gider ve kaç karakter olduğunu söyler.
$mid(Merhaba,3,4) => rhab
$mid(Merhabalar,3,0) => 8
:::::$ord(N)
N sayısını sıralamaya dizer. 1inci, 2inci, 3üncü gibi. Fakat bu identifier ingilizce çalıştığından ötürü 1st, 2nd, ... , Nth gibi çalışır.Türkçeleştirmek için ayrıca bir başka identifier kullanılabilir.O da ayrı bir kod gerektirir.
$ord(2) => 2nd
$ord(190) => 190th
:::::$pos(Text1,Text2,N)
N'inci Text2'nin Text1 içinde kaçıncı sırada olduğunu belirtir.Boşluklarda dahildir.N sıfır seçilirse Text2 nin Text1 içinde kaç yerde tekrar ettiğini belirtir.
$pos(hello there,e,1) => 2 ' Birinci "e" karakteri 2. sırada bulunuyor.
$pos(hello there,e,2) => 9 ' İkinci "e" karakteri 9. sırada bulunuyor.Boşluğun da sayıldığına dikkat ediniz!
$pos(hello there,a,1) => $null ' Hiç "a" karakteri olmadığı için boş sonuç verir.
$poscs() Case-Sensitive versiyonu da mevcuttur.
:::::$rand(Değer1,Değer2)
Değer1 ile Değer2 arasında karışık bir değer seçer.
$rand(a,z) => a,b,c,...,z değerlerinden biri.
$rand(A,Z) => A,B,C,...,Z değerlerinden biri.
$rand(0,N) => 0,1,2,...,N değerlerinden biri.
:::::$remove(Text,Text2,...)
Text den Sonraki yazılan TextN' leri çıkartır.
$remove(abcdefg,cd) => abefg
$remove(abcdefg,a,c,e,g) => bdf
$removecs() Case-Sensitive versiyonu da mevcuttur.
:::::$replace(Text,Text1,Text2,...)
Text den sonraki her çift TextN takımında değişiklik yapar.Mesela Text'de Text1 şeklinde geçen herşeyi Text2 deki gibi değiştirir.
$replace(abcdefg,cd,xyz) => abxyzefg
$replace(abcdefg,a,A,b,B,c,C,d,D) => ABCDefg
$replacecs() Case-Sensitive versiyonu da mevcuttur.
:::::$round(N,D)
N sayısı ondalıklı bir sayı olsun.Bu identifier virgülden sonra D kadar kırpar.
$round(3.14159,2) => 3.14
:::::$sqrt(N)
N sayısının karekökünü alır.
:::::$str(Text,N)
Text'i N defa yan yana yazar.
$str(hi,3) => hihihi
:::::$strip(Text,burcmo)
Text'i Kalın yazı,Altı çizgili yazı,Renkli yazı vs.gibi Strip Koddan arındırır.Eğer yandaki "burcmo" parametreleri yazılmassa, Text her türlü Strip Koddan (Kalın yazı,Altı çizgili yazı,Renkli yazı vs.)
:::::$wrap(text, font, size, width, [word], N)
Seçili hale getirilmiş satırlardaki Textlerin özellikleri ile ilgili bir identifierdır.
Kolay gelsin :)