Once again I was looking for something in SRL, and it wasn't there. D:
I needed to wait for the Uptext to be gone, before moving on. It's useful in say, cleaning herbs, or eating food. It used WaitUpTextMulti, and just changed it around a bit.
Simba Code:function UpTextGone(S: TStringArray; Time: Integer): Boolean;
var
T,i: Integer;
There:Boolean;
begin
Result := false;
T := GetSystemTime + Time;
while (GetSystemTime < T) do
begin
if(i = 0) then
begin
if (IsUpTextMultiCustom(S)) then
begin
There := True;
Inc(i);
end;
end;
if(There = True) then
begin
i := 0
if not(IsUpTextMultiCustom(S)) then
begin
Writeln('Uptext gone');
There := False
Result := True;
Exit;
end;
end;
end;
Wait(20 + Random(20));
end;
Thoughts?




Reply With Quote





