Küfür geciştirci - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

TISSOT · 04 Kasım 2007, 16:29

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazdığı kodda
Bu kodda 40 satır yazı satırını 15 satır yapmak istiyorum...nasıl düzeltebilirim..emeği geçen arkadaşlara tşk ederim.

alias kaydır {
$iif($1-,$iif($left($gettok($1-,1,32),1) == $chr(35),set %kaydd. [ $+ [ $gettok($1-,1,32) ] ] $remove($1-,$gettok($1-,1,32)),set %kaydd $remove($1-,$chr(32))),set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBak)
if (!%kaydd) { %kaydd = %kaydd. [ $+ [ $gettok($1-,1,32) ] ] }
if (%kaydd == $null) { .set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBak }
if ($len($remove(%kaydd,$chr(32))) < 40) { %kaydd = $remove($+(%kaydd,$str(.,$calc(40 - $len(%kaydd)))),$chr(32)) }
else { if ($len($remove(%kaydd,$chr(32))) > 40) { set %kaydd $left($remove(%kaydd,$chr(32)),40) } }
var %;ü 1
var %b. $len(%kaydd)
var %tim3 1
while (%;ü <= %b.) {
$iif($left($gettok($1-,1,32),1) == $chr(35),%activech = $gettok($1-,1,32),$iif($active != Status Window,%activech = $active,return))
if (%;ü <= 10) { msg %activech $right($left(%kaydd,%;ü),1) }
else {
if ((%;ü >= 10) && (%;ü <= 20)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
elseif ((%;ü >= 20) && (%;ü <= 30)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
elseif ((%;ü >= 30) && (%;ü <= 40)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
}
inc %;ü
}
unset %kaydd
unset %kaydd. [ $+ [ $gettok($1-,1,32) ] ]
unset %q-
unset %activech
}

Teori · 06 Kasım 2007, 06:03

alias kaydır {
$iif($1-,$iif($left($gettok($1-,1,32),1) == $chr(35),set %kaydd. [ $+ [ $gettok($1-,1,32) ] ] $remove($1-,$gettok($1-,1,32)),set %kaydd $remove($1-,$chr(32))),set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBak)
if (!%kaydd) { %kaydd = %kaydd. [ $+ [ $gettok($1-,1,32) ] ] }
if (%kaydd == $null) { .set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBak }
if ($len($remove(%kaydd,$chr(32))) < 40) { %kaydd = $remove($+(%kaydd,$str(.,$calc(40 - $len(%kaydd)))),$chr(32)) }
else { if ($len($remove(%kaydd,$chr(32))) > 40) { set %kaydd $left($remove(%kaydd,$chr(32)),40) } }
var %;ü 1
var %b. $len(%kaydd)
var %tim3 1
while (%;ü <= %b.) {
$iif($left($gettok($1-,1,32),1) == $chr(35),%activech = $gettok($1-,1,32),$iif($active != Status Window,%activech = $active,return))
if (%;ü <= 10) { msg %activech $right($left(%kaydd,%;ü),1) }
else {
if ((%;ü >= 10) && (%;ü <= 20)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
elseif ((%;ü >= 20) && (%;ü <= 30)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
elseif ((%;ü >= 30) && (%;ü <= 40)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
}
inc %;ü
}
unset %kaydd
unset %kaydd. [ $+ [ $gettok($1-,1,32) ] ]
unset %q-
unset %activech
}
Kırmızı Rakamları Editle.

TISSOT · 06 Kasım 2007, 09:47

Kırmızı yazdığın yerleri değiştirdim olmadı

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Küfür Etkisi Yaratan Ama Küfür Olmayan Cümleler	Burce	Fenomen	16	02 Temmuz 2022 17:50
küfür txt	AsaF	mIRC Scripting Sorunları	4	03 Mart 2018 18:08
Küfür	Kalemzede	Atatürk Köşesi	1	09 Ekim 2011 14:12
Çok Mu Küfür Ediyorsun ? Küfür Ederken Vücudumuzda Bunlar Oluyor !	Süslü	İslamiyet	0	26 Şubat 2010 23:54
BoT hakkında küfür koruması ekLeme !küfür	Editor	mIRC Scripting Sorunları	6	30 Kasım 2007 23:26

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.