Alıntı:

O bir efsane.. O bir Script uzmanı..O bir UOnur :p Ama Artık Aşık deil...

ßaşka sözE gerek mi vaR
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
cool:

 

Çevrimdışı

:p olum varya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Haa oRasını karıştırma
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Peki Bu İnput Ları Slm = SELAM yerine Nası kuLLanıorduk...Yani Kısaltmalar Mrb yazcam merhaba cıkcak on *input..... feLandı Sanırım 1 Örnek VeririmiSiniz :p

 

korumaLardan mı ßahsediyoSun ? kısaLtma yazıLardan ?

Alıntı:

size -1 -1 212 94 option dbu list 1, 3 2 100 88, size box "", 2, 105 18 74 57 button "Kapalı", 3, 104 2 76 12,flat text "Kısaltılmış:", 4, 109 26 28 8 edit "", 5, 108 37 67 10, autohs text "Tam:", 6, 109 50 25 8 edit "", 7, 108 60 67 10, autohs button "Ekle", 8, 107 78 31 12,flat button "Kaldır", 9, 145 78 31 12,flat button "Tamam" 10, 180 21 30 69 , ok,flat } on *:dialog:Kelime_tamamla:init:0:{ dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname | dll $mdx SetBorderStyle 3,8,9,10 staticedge | dll $mdx SetFont 4,6,3 12 700 Tahoma | dll $mdx SetFont 8,9,5,7 12 400 Tahoma | dll $mdx SetControlMDX 1 ListView grid single rowselect showsel report > $scriptdirviews.mdx | did -i $dname 1 1 headerdims 87:1 87:2 | did -i $dname 1 1 headertext Kısaltılmış: %4$s $chr(9) %4$s Tam: | if (%Kelime_tamamla == evet) did -a $dname 3 Açık | else did -a $dname 3 Kapalı | kelimeyükle } on *:dialog:Kelime_tamamla:sclick:1:{ did -ra $dname 5 $gettok($read($scriptdirkelimeler.txt,$calc($did(1 ).sel - 1)),1,9) | did -ra $dname 7 $gettok($read($scriptdirkelimeler.txt,$calc($did(1 ).sel - 1)),2,9) | if ($gettok($did($dname,$did,1),1,32) == rclick) { Kelimenü } } on *:dialog:Kelime_tamamla:sclick:3:{ if (%Kelime_tamamla == evet) { set %Kelime_tamamla hayır | did -a Kelime_tamamla 3 Kapalı | set %kelimetamamla OFF } | else { set %Kelime_tamamla evet | set %kelimetamamla ON | did -a Kelime_tamamla 3 Açık } } on *:dialog:Kelime_tamamla:sclick:8:{ kelime.ekle } on *:dialog:Kelime_tamamla:sclick:9:{ kelime.çıkart } alias kelime { dialog -m Kelime_tamamla Kelime_tamamla } alias -l mdx { return $shortfn($scriptdirmdx.dll) } alias -l kelimeyükle { did -r kelime_tamamla 1,5,7 | loadbuf -o kelime_tamamla 1 $scriptdirkelimeler.txt } alias -l kelime.ekle { if ((!$did(5)) || (!$did(4))) { return } | if ((* isin $did(5)) || ($read($scriptdirkelimeler.txt, w, * %4$s $did(5) %4$s *) == $null)) { .write $scriptdirkelimeler.txt $did(5) %4$s $chr(9) %4$s $did(7) } | else { .write -l %4$s $readn $scriptdirkelimeler.txt $did(5) %4$s $chr(9) %4$s $did(7) } | kelimeyükle } alias -l kelime.çıkart { if ($did(kelime_tamamla,1).sel) { .write -dl %4$s $calc($did(kelime_tamamla,1).sel - 1) $scriptdirkelimeler.txt } | kelimeyükle } alias -l oirc { if (%Kelime_Tamamla == hayır) { return $1- } | else { var %i 1 | set %text $1- | :init | if ($read($scriptdirkelimeler.txt,%i) == $null) { goto end } | set %heroturk $gettok($read($scriptdirkelimeler.txt,%i),1,9) | set %her0turk $gettok($read($scriptdirkelimeler.txt,%i),2,9) | set %text $replace(%text,%heroturk,%her0turk) | inc %i | goto init | :end } | var %a %text | unset %text | unset %heroturk | unset %her0turk | return %a } alias -l Kelimenü { if ($did(Kelime_Tamamla,1).sel) { dll $popups New replace 16 16 | dll $popups SetStyle replace bordericon | dll $popups LoadImg replace icon small $scriptdiricon\off.ico | dll $popups AddItem replace end 1 1 çıkart $cr kelime.çıkart | Popupz replace $mouse.dx $mouse.dy } } alias -l popupz { tokenize 32 $dll($shortfn($scriptdirpopups.dll),Popup,$1-) | if ($isid) { return $1- } | elseif ($4- != did not select a menu item) { $4- } } alias -l popups { return $shortfn($scriptdirpopups.dll) } on *:INPUT:?: { if (%kelimetamamla == ON) && (%yazitipacikmi == OFF) && (($1 != $null) && ($left($1,1) != /) && (Status Window != $active)) { haltdef | var %t $oirc($1-) | .msg $active %t | .echo -a $timestamp %4$s  %4$s $colour(Own Text) 4< %4$s $me %4$s 4> %f %t } }

 

uzun mu oLdu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Çok kasmışsın be UOnur
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


(! isin $1-) yerine ($left($1,1) == $chr(33)) yapsaydın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Diğer türlü de tehlikeli oluyor maelstrom, onu da söyleyeyim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Ne Kasması ?
Böyle basit Kodlar Saniyelerimi Alıyor...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

if (! == $left($1-,1)) $right($1-,$calc($len($1-) - 1))

Belli belli, çok basit
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu kadar kasma diyorum işte :p

 

Çevrimdışı

sıradanbiri sormussun ama benim acıklamama ne gerek var mephistonun yazdığı dokuman gayet acıklayıcı onu okuyup anlamassan birinci sınıftan yeniden okumaya başla derim..ama amacın coderliğime(ki coder değilim) laf soylemekse cevabım "hic bişey bilmiorum"(umarım kendini tatmin etmişsindir).