SRL Archive - Download S.M.A.R.T.

I'm just going to release one whenever I come up with something worth releasing. This version should have the speed and frame rate set in stone. Less lag, more compatibility, plus removal of any 'update pending' whitish areas being sent to Scar.

procedure MoveMouse(x, y: Integer);
begin
  SmartMoveMouse(x, y);
end;

procedure HoldMouse(x, y: Integer; left: Boolean);
begin
  SmartHoldMouse(x, y, left);
end;

procedure ReleaseMouse(x, y: Integer; left: Boolean);
begin
  SmartReleaseMouse(x, y, left);
end;

procedure KeyUp(key: Byte);
begin
  SmartReleaseKey(key);
end;

procedure KeyDown(key: Byte);
begin
  SmartHoldKey(key);
end;

procedure SendKeys(S: String);
begin
  SmartSendKeys(S);
end;

procedure GetMousePos(var x, y: Integer);
begin
  SmartGetMousePos(x, y);
end;

function GetColor(x, y: Integer): Integer;
begin
  result:= SmartGetColor(x, y);
end;

procedure SmartSetTarget;
var
  Smart_Bitmap: Integer;
begin
  Smart_Bitmap:= BitmapFromString(765,503,'');
  GetBitmapCanvas(Smart_Bitmap).Handle:= SmartGetDC;
  SetTargetBitmap(Smart_Bitmap);
  FreeBitmap(Smart_Bitmap);
end;

function FindWindow(Title: String): Boolean;
begin
  result:= true;
end;

procedure ActivateClient;
begin
end;

function FindWindowBySize(Width, Height: Integer): Boolean;
begin
  result:= true;
end;

woot i will test and see if works then i will test all night.

Workin' fine for me

Tarajunky's LAME v0.60
-> Took a little longer to find the mage than it did on previous versions (May be script, I am not sure.)
-> The screen started freaking out and going in circles, I don't know. (Once again, possibly a script problem.)


I'll give it one more test.

EDIT: I cannot tell if its the script or SMART (I'm leaning towards script problems) But ya, the mouse seems to be working.

got it to work for 4-6 hours using VEM … not minimized…


but ya.


the only thing that stopped it is i think scar keeps loosing focus after so many hours…. it fails to find gametabs …. and just sits there :p (in smart and reg client so who knows :P.)

^even with SmartSetTarget?

Found either a bug in scar, smart or me. When i do SaveScreenShot it will also show the red dot that represents the mouse … ?

From: Sumilion
Found either a bug in scar, smart or me. When i do SaveScreenShot it will also show the red dot that represents the mouse … ?

Try a CopyCanvas, see if the dot is still there. If it is then you've got SMART setup wrong, if it isn't then its a scar bug…

Weird :) CopyCanvas showed no red dot. It seems like when walking it takes a long time before it clicks again. Meaning, it will click somewhere, wait till its there, then wait an extra time, which is the odd thing, then after 3-4? seconds it will continue…

Doesnt seem to happen in regular RS client..

I'll have to agree with you on that, Sumilion, which is causing LAME to give me some crap. Also, I always thought MouseSpeed := Lowernumber = Faster, and MouseSpeed := Highernumer = Slower, but apparently its changed or something? Cuz 4 was really really slow, and 15 extremely fast….I dunno :S lol.

From: Ejjman1
I'll have to agree with you on that, Sumilion, which is causing LAME to give me some crap. Also, I always thought MouseSpeed := Lowernumber = Faster, and MouseSpeed := Highernumer = Slower, but apparently its changed or something? Cuz 4 was really really slow, and 15 extremely fast….I dunno :S lol.

Yea, mousespeed is backwards (or rightwards?) from what it used to be.

From: BenLand100
Yea, mousespeed is backwards (or rightwards?) from what it used to be.

Yes but do you have an answer to both our problems ? :) I cant make 2 loads with 1 player like this … it always times out my script (cause i build it that way)

so this is what solar was talking about lol

ive got it working, but it doesnt press enter when auto responding, and it messes up badly when i minimize it, for it to work it has to be fully in view. these have probably been answered elsewhere, so tomorrow ill read around a bit and try to get it working better (its 3 am nearly) but the silent mouse is great.

DW claw.
No scripts which use compass (almost all -.-) work yet
Compass functions are built into scar so ben cant make a 'smartcompass' until freddy shows him the code.

Claw, you have to make all Chr(13)'s Chr(10)'s, I believe. Ben says that 13 isn't a true Unix (by which java is greatly influenced) enter, it's a carriage return.

From: The Claw
so this is what solar was talking about lol

Haha kinda sorta in the ballpark.

ah ok, thanks guys. the enter key is working now, but still when i minimise the window the script goes haywire. nvm i'll wait :)

From: YoHoJo
DW claw.
No scripts which use compass (almost all -.-) work yet
Compass functions are built into scar so ben cant make a 'smartcompass' until freddy shows him the code.

Let me get you a compass function.. ;)

{*******************************************************************************
function FindCompassAngle: Integer;
By: Tarajunky
Description: returns degrees clockwise compass is rotated
  returns -1 if compass angle not found
*******************************************************************************}

function FindCompassAngle2: integer; // By Tarajunky
var
  i, Radius, X1, Y1, x, y: Integer;
begin
  Radius:=7;
  repeat
    for i := 1 to 360 do
    begin
      x1 := Round(Radius * Sine(i)) + 561;
      y1 := Round(-Radius * Cose(i)) + 20;
      if i>180 then x1:=x1-1;
      if (FindColor(x, y, 723587, X1, Y1, X1+1, Y1+1)) then
      begin
        Result:=360-i;
        Exit;
      end;
    end;
    Radius := Radius - 1;
  until Radius <= 2;
  WriteLn(IntToStr(result));
  Writeln('Error detecting Compass Angle.');
  Result:=-1;
end;