Czemu ten skrypt nie działa?

[pamparampa]

Ten skrypt powinien sprawdzać gdzie w tekście znajduje się znak '{', dodawać do kodu '{' i trzy cyfry przed tym znakiem. Jeśli jednak tego znaku nie ma do kodu powinno być dodawane '120{' jako domyślne.

GML

if(sprawdz0)

{if(string_char_at(text1,poz)='{')

{kod+=string_copy(text1,poz-3,4);

sprawdz0=false}

else

do

poz+=1

until(string_char_at(text1,poz)='{'or poz=string_length(text1)+1)

if(poz=string_length(text1)+1)

{poz=1;

kod+='120{'

sprawdz0=false}}

Ten skrypt jednak tego nie robi, a ja nie wiem dlaczego. Proszę o pomoc

[GMTraker]

Wszystko jest źle, GM to nie jest c++, tylko delphi, i skrypt trzeba napisać od nowa