Selam,
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#yaziilkbuyuk end
#yazirenkli on
on 1:INPUT:*:{
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh
goto ilk
}
CTRL + K koyun araya yoksa kod renkli yazmaz sadece rakam ve harfler cıkar.Kırmızı ile işaretledim. Ya da bununla değiştirirsiniz.
Keyifli İF'ler.