srlMW
2015-06-09 22:36:33
Following @Clarity's guide I manage to throw together a paint to add into my script. Upon setting it up I was fronted with a baffling problem… When starting the script it sets up the paint, but as soon as it goes to start cutting the trees, the paint goes away. :confused:
If you need more input just ask! :)
The global var
My procedure
The mainLoop + mainloop
If you need more input just ask! :)
The global var
var
paintBMP := loadBitmap(appPath + '/Scripts/MWsMasterTreeChopperv1/Paint.png');My procedure
procedure paintDisplay();
begin
smartImage.clear;
smartImage.drawBitmap(paintBMP, Point(0, 463));
end;The mainLoop + mainloop
procedure mainLoop();
begin
clearScreen();
setCompass();
while not tabBackPack.isFull() do
begin
locateTrees();
end;
progressReport();
case random(4) of
0..2: fletchLogs();
3..4: burnLogs();
end;
progressReport();
end;
begin
clearDebug();
smartEnableDrawing := true;
setupSRL();
paintDisplay();
findNormalRandoms();
repeat
mainLoop();
until (LoadsDone > 1000);
end.