i get this problem randomly sometimes as well, i simply completely commented out the painted proggy and it works fine. to do this, find the paintsmart procedure and put a "{" before the word "procedure", then a "}" after the last "end;" in the procedure. then, go to the proggy procedure and comment out "paintsmart" by putting "//" before it.
removed paintsmart:
Simba Code:
{procedure PaintSmart;
var
Line1, Line2, Line3, Line4, Line5, Line6, Line7: String;
Image: Integer;
begin
*snip*
Line1 := ('You have been Running for ' + TimeRunning);
Line2 := ('You have managed to Heat ' + IntToStr(BarsMade) + ' Bars');
Line3 := ('You are heating ' + IntToStr(((BarsMade) * 3600) / (GetTimeRunning / 1000)) + ' bars per hour!');
Line4 := ('You are gaining ' + IntToStr(((GetXpBarTotal - StartExp) * 3600) / (GetTimeRunning / 1000) - (((BarsMade) * 3600) / (GetTimeRunning / 1000) * 53)) + ' Smithing exp per hour!');
Line5 := ('You are gaining ' + IntToStr((((BarsMade) * 3600) / (GetTimeRunning / 1000)) * 53) + ' Magic exp per hour!');
if LevelChecker >= 10 then
begin
CurrentSLevel := GetSkillLevel('Smithing');
CurrentMLevel := GetSkillLevel('Magic');
LevelChecker := 0;
end else
LevelChecker := LevelChecker + 1;
Line6 := ('Smithing Level ' +IntToStr(CurrentSLevel)+ ' (+' +IntToStr(CurrentSLevel - SmithingLevel)+ ')');
Line7 := ('Magic Level ' +IntToStr(CurrentMLevel)+ ' (+' +IntToStr(CurrentMLevel - MagicLevel)+ ')');
SMART_DrawBitmap(True, Image, Point(4, 394));
SMART_DrawText(10, 400, LoginChars, Line1, clWhite);
SMART_DrawText(10, 450, LoginChars, Line2, clWhite);
SMART_DrawText(10, 425, LoginChars, Line3, clWhite);
SMART_DrawText(10, 475, LoginChars, Line4, clWhite);
SMART_DrawText(10, 500, LoginChars, Line5, clWhite);
SMART_DrawText(10, 365, SmallChars, Line6, clYellow);
SMART_DrawText(10, 345, SmallChars, Line7, clYellow);
FreeBitmap(Image);
end;}
then commented out proggy:
Simba Code:
procedure Proggy;
begin
ClearDebug;
Writeln('|---------------------------------------------------------------------------------|');
Writeln(' You have been Running for a total of ' + TimeRunning);
Writeln(' You have managed to Heat ' + IntToStr(BarsMade) + ' Bars');
Writeln(' You are Heating ' + IntToStr(((BarsMade) * 3600) / (GetTimeRunning / 1000)) + ' Bars per hour!');
Writeln(' You are gaining ' + IntToStr(((GetXpBarTotal - StartExp) * 3600) / (GetTimeRunning / 1000) - (((BarsMade) * 3600) / (GetTimeRunning / 1000) * 53)) + ' Smithing exp per hour!');
Writeln(' You are gaining ' + IntToStr((((BarsMade) * 3600) / (GetTimeRunning / 1000)) * 53) + ' Magic exp per hour!');
Writeln(' Thankyou for using Caotoms SuperHeater :)');
Writeln('|---------------------------------------------------------------------------------|');
//PaintSmart;
end;