Okay, currently it flashes like crazy. All i want is it to be near 100% always bieng updated with it not flashing white? How do i do this. Here are my methods.
The PaintOnSmart:
Simba Code:
procedure SMART_DrawBitmapWithTextMulti(Clear: Boolean; Bitmap: Integer; BmpPlacement: TPoint; TP: TStringArray; Shadow: Boolean; TxtPlacement: TPoint; Font: string; Colour: TColor);
var
I, B, H, Pic, TPH, Numb: Integer;
Offset: TPoint;
TTP: TPointArray;
Canvas: TCanvas;
begin
if (not SMART_DebugSetup) then
SMART_SetupDebug();
TPH := High(TP);
Offset := IntToPoint(TxtPlacement.x - BmpPlacement.x, TxtPlacement.y - BmpPlacement.y);
Pic := CopyBitmap(Bitmap);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
if Shadow then
try
FastSetPixel(Pic, TTP[b].x + 1 + Offset.x , TTP[b].y + Numb + 1 + Offset.y,131072);
except
end;
try
FastSetPixel(Pic, TTP[b].x + Offset.x, TTP[b].y + Numb + Offset.y, Colour);
except
end;
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, BmpPlacement.x, BmpPlacement.y);
FreeBitmap(Pic);
end;
Here is the Actualy Paining on the client.
Simba Code:
Procedure DoThePainting;
begin
XPhour;
LoadBMP;
SMART_DrawBitmap(False, BMP, Point(0, 337));
SMART_DrawText(130, 395, UpCharsEx, '' +IntToStr(Kills)+ '', clRed);
SMART_DrawText(130, 420, UpCharsEx, '' +IntToStr(Exp)+ '', clRed);
SMART_DrawText(130, 445, UpCharsEx, ''+IntToStr(XPH)+'', clRed);
SMART_DrawText(325, 395, UpCharsEx,''+TimeRunning+' ', clRed);
SMART_DrawText(440, 420, UpCharsEx, ''+IntToStr(Charms)+'', clRed);
FreeBitmap(BMP);
end;
And if its some simple little thing please dont hate i just got back from a long trip and cant think straight atm! :/
Edit: NVM Figured it out, i was calling a different way to paint on smart in my NPC finding so that was a big issue! :P