Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*:{
if ( $left($1,1) == / ) { goto son }
unset %yazidrk
set %yazidrk $1-
if ( $chr(47) == $mid(%yazidrk,1,1) ) { %yazidark | unset %yazidrk | halt }
%yazidrk = $replace(%yazidrk,l,L,s,S,r,R)
say %yazidrk
unset %yazidrk
halt
:son
}
bu şekilde calısıyor..
tabi
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ın bakması gerekıyor daha sağlıklı bir kode için
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 09:15 -->-> Daha önceki mesaj 09:09 --
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:Input:*:if (/ !isin $1) { /msg $active $repLace($1-,s,S,l,L,r,R) | haLt }
istediğiin sadece s r l harflerini buyuk yazmaksa S,R,L buda işini görür