Proggies

Is there any way to show your progress reports on the Smart screen?

~DeSnob

I wouldn't recommend it, it hogs up your RAM pretty quickly last time I tried it.

Paint on the SMART canvas.
Look at JuKKa's ess mining script ;)

I think there's some function called
TextToBitmap()
or something like that, then just draw it to smart canvas :)

draw it to the smart DebugCanvas ;) for more details, just look at tut island for all drawing related functions.

~RM

k thanks

SCAR Code:

Function GetPaintBitmap(Color, sX, sY: Integer; Text: TStringArray; Dist: Integer): Integer;
Var
   TPA: TPointArray;
   H, Q, B: Integer;
Begin
  Result := BitmapFromString(sX, sY, '');
  For B := 0 To High(Text) Do
  Begin
    TPA := LoadTextTPA(Text[b], SmallChars, H);
    For Q := 0 To High(TPA) Do
      FastSetPixel(Result, TPA[q].x, TPA[q].y + B * Dist, Color);
  End;
End;

Procedure ClearSMARTCanvas;
Var
   BMP: Integer;
   SMARTCanvas, Canvas: TCanvas;
Begin
  BMP := BitmapFromString(765, 503, '')
  SMARTCanvas := GetBitmapCanvas(BMP);
  Canvas := GetBitmapCanvas(BMP);
  SMARTCanvas.handle := SmartGetDebugDC;
  CopyCanvas(Canvas, SMARTCanvas, 0, 0, 765, 503, -1000, -1000, 1000, 1000);
  FreeBitmap(BMP);
End;

Procedure ProgressReportCanvas(X, Y: Integer);
Var
   SCanvas, Canvas: TCanvas;
   BMP, Sec: Integer;
   Text: TStringArray;
Begin
  Sec := GetTimeRunning Div 1000 + 1;
  ClearSMARTCanvas;
  BMP := BitmapFromString(765, 503, '');
  SCanvas := GetBitmapCanvas(BMP);
  SCanvas.handle := SmartGetDebugDC;
  Text := [
       'Ran for : ' + TimeRunning,
       'Current Player : ' + (Players[CurrentPlayer].Name),
       'Mined : ' + IntToStr(Players[CurrentPlayer].Integers[1])+ ' ores',
       'Gained : ' + IntToStr(Players[CurrentPlayer].Integers[1]*Players[CurrentPlayer].Integers[3]) + ' Exp',
       Rock[CurrentPlayer][Players[CurrentPlayer].Integers[0]].Name+' Mined/h : ' + IntToStr(Round(3600*Players[CurrentPlayer].Integers[1]/Sec))];
  Canvas := GetBitmapCanvas(GetPaintBitmap(clWhite, 765, 503, Text, 25));
  CopyCanvas(Canvas, SCanvas, 0, 0, 765, 503, X, Y, X + 765, Y + 503);
  FreeBitmap(BMP);
End;

from my powerminer. Keep in mind I stole these from N3ss3s :p to which JuKKa did the same thing if I remember :p