20 Mayıs 2009, 23:03
|
#6 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Yazi Tipi iLgili
| | Alıntı: |
#karizmayazi on
on 1:input:*:{
if $active == #helpx { return }
if $active == #muafkanalx { return }
if $active == #muafkanal2 { return }
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say $replacecs(%b,slm,Selam)
halt
:end
}
#yazi end
| Umarım işine yarar.
|
|
|  |