Simba Code:
procedure ProgressReport(Action: Integer);
//This prints out the current activity and time running
var
Clock: TIntegerArray;
ActionText: TStringArray;
x,y, TextSpacing, color: integer;
Font: String;
RandomFact: string;
begin
ActionText := ['Lost','Walk to Mine','Mine Clay', 'Walk to well',
'Soften clay', 'Walk to craft', 'Craft Pots', 'Walk to bank',
'Deposit pots', 'Recover', 'Taking Break','Dropping Everything','Walk to mine'];
SRLRandomsReport;
Stats_Commit;
Clock := [0,0,0];
ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
writeln('=========== THE Pot Maker =============');
Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
writeln('Current action: '+ActionText[Action]);
if (Players[CurrentPlayer].Booleans[1]) then
begin
writeln('Level Goal: '+tostr(Players[CurrentPlayer].Integers[3])+' / '+tostr(Players[CurrentPlayer].Integers[4]));
end else
writeln('Trips completed: '+tostr(Players[CurrentPlayer].Banked)+' / '+tostr(Players[CurrentPlayer].Integers[0]));
writeln('Mining xp: '+tostr(Players[CurrentPlayer].Integers[1]));
writeln('Crafting xp: '+tostr(Players[CurrentPlayer].Integers[2]));
writeln('=======================================');
TextSpacing := 20;
x := (MSX1+MSX2)/2;//MIX1;
y := 5;//MIY1;
color := 592381;
Font := 'UpChars';
//Here it draws on the screen
ClearRSCanvas(SMART_Canvas.canvas);
Smart_DrawText(x,y,Font,'=========== THE POTMAKER =======',color);
IncEx(y,TextSpacing);
Smart_DrawText(x,y,Font,'Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]),color);
IncEx(y,TextSpacing);
Smart_DrawText(x,y,Font,'Current Action: '+ActionText[Action],color);
IncEx(y,TextSpacing);
if (Players[CurrentPlayer].Booleans[1]) then
begin
Smart_DrawText(x,y,Font,'Level Goal: '+tostr(Players[CurrentPlayer].Integers[3])+' / '+tostr(Players[CurrentPlayer].Integers[4]),color);
end else
Smart_DrawText(x,y,Font,'Trips completed: '+tostr(Players[CurrentPlayer].Banked)+' / '+tostr(Players[CurrentPlayer].Integers[0]),color);
IncEx(y,TextSpacing);
Smart_DrawText(x,y,Font,'Mining XP: '+tostr(Players[CurrentPlayer].Integers[1]),color);
IncEx(y,TextSpacing);
Smart_DrawText(x,y,Font,'Crafting XP: '+tostr(Players[CurrentPlayer].Integers[2]),color);
IncEx(y,TextSpacing);
end;