Here is my tutorial on how to make a status for your script. Of course you have to have your own script, but this will outline the basics.
First, declare a GLOBAL string variable like so:
To change the status just do this everytime before a WriteLn:
Simba Code:
Status := ('Write your status here')
A example of Just the WriteLn status:
Simba Code:
Writeln('Status:' + Status)
You can change this variable as much as you want. I personally change it before each procedure for a accurate status update. Here is a example script of status being used:
Simba Code:
Program Status;
var
Bye, Hello: Integer;
Status: string;
procedure GoodByeWorld;
begin
IncEx(Bye, 1);
Status := ('Doing Procedure GoodByeWorld')
ClearDebug;
Writeln('Status:' + Status)
Writeln('Bye:' + IntToStr(Bye));
Writeln('Hello:' + IntToStr(Hello));
Wait(1000);
end;
procedure HelloWorld;
begin
IncEx(Hello, 1);
Status := ('Doing Procedure HelloWorld')
ClearDebug;
Writeln('Status:' + Status)
Writeln('Bye:' + IntToStr(Bye));
Writeln('Hello:' + IntToStr(Hello));
Wait(1000);
GoodByeWorld;
end;
begin
HelloWorld;
repeat
HelloWorld
until False;
end.
I hope this tut helped, It works great for me!