Evet Abi Senin Kod
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias duvar {
var %::rtext = $remove($1-,$chr(44),$chr(40),$chr(41)),%xc
%::rtext = $lower(%::rtext)
var %i = $hget(ascii,0).item
while %i {
%::rtext = $replace(%::rtext,$hget(ascii,%i).item,$hget(ascii ,%i).data)
dec %i 1
}
var %q = $hget(chr,0).item
while %q {
%xc = $hget(chr,%q).data
%::rtext = $remove(%::rtext,%xc)
dec %q
}
if %sws.bosluk == on { %::rtext = $regsubex(%::rtext,/([[:space:]])/g,$null) }
if %sws.rakam == on { %::rtext = $regsubex(%::rtext,/([[:digit:]])/g,$null) }
if %sws.karakter == on { %::rtext = $regsubex(%::rtext,/(.)\1+/g,\1) }
if ($hfind(wall,%::rtext,1,W).data) { return $true }
else { return $false }
}