Çevrimdışı

o başlığa baktıysanız bir nebze fikriniz oluşmuştur güzel bir geliştirme örneği var ayrıca sizin cevabınıza gelince arkadaşın verdiği örneği değiştirdim onun dediği aynı işlemleri yapın ama verdiği kodu aşağıdaki ile değiştirin:

alias noktala {
var %getvar = $strip($1-), %retvar = $mid(%getvar,1,1) , %i = $calc($rand(1,3) + 1)
while %i <= $len(%getvar) {
%retvar = $+(%retvar,..,$mid(%getvar,%i,1))
inc %i $rand(1,3)
}
return %retvar
}


şimdi komutu uygulamaya başlıyorum:
//echo - $noktala(deneme mesajı budur baicim)
- d..e..e..m..e..m..e..a....b..u..r..b..c..i

//echo - $noktala(deneme mesajı budur baicim)
- d..e..e..e..e..a..j....b..d..r....a..i..c..i

//echo - $noktala(deneme mesajı budur baicim)
- d..n..m....m..s..a..j..b..u..b..c..m

//echo - $noktala(deneme mesajı budur baicim)
- d..n..e..m....s..j....b..u..r..b..a..i

hepsinde değişik cıkıyor daha çok karıştırmak istiyorsanız $rand(1,3) teki 3 u buyutursunuz ben 5 yapıp komutu uyguladım:
//echo - $noktala(deneme mesajı budur baicim)
- d..m....s..a..ı..u..r..a

2. soruna gelince $read(Spam\1) $+ $read(Spam\2) $+ $read(Spam\3) $+ $read(Spam\4) $+ $read(Spam\5) $+ $read(bursa\kokorec) $+ $read(Spam\6)

bu tamamen yanlış $read'in kullanımı $read(dosyanınadi.uzantisi,satır) eğer satir yazmassan rastgele birşey seçer