Sorry: aber Franken helfen Franken
Bin halt nur Unterfranke. Und das auch noch EX.
Dass das mit dem Vertauschen funktioniert und das mit der Studie ist, glaube ich, wie die Geschichte mit der Spinne in der Yukapalme.
😉 Zum testen erstell dir mal ein Objekt damit:
txt="Buchstaben vertauschen lösen wir selbstverständlich in GDL."
sonder=".,;:!?"
out=""
s=strstr(txt," ")
p=1
while s>0 and w<255 do
q=s : x=q-p
if x<3 then
out=out+strsub(txt,p,x)+" " : p=q+1
else
anfang=strsub(txt,p,1)
ende=strsub(txt,q-1,1)
if strstr(sonder,ende) then
ende=strsub(txt,q-2,1)+ende
x=x-1
endif
out=out+anfang
snip=strsub(txt,p+1,x-2) : j=strlen(snip)
for i=j to 1 step -1
t=int(rnd(i-0.0001)+1)
out=out+strsub(snip,t,1)
snip=strsub(snip,1,t-1)+strsub(snip,t+1,255)
next i
out=out+ende+" "
p=q+1
endif
s=strstr(strsub(txt,p,255)," ")
if s>0 then
s=p+s-1
else
if q<strlen(txt) then s=strlen(txt)+1 else w=255
endif
w=w+1
endwhile
text2 0,0,out
