Waddo
2008-08-07 17:45:16
If some people can look through my code and try and piont out things i can do to reduce lag.
Save this as includes/srl/srl/misc/smart2.scar
You must have this as the smart over writes the get mouse pos
Then run this
Then select the Runescape client in the smart window with the crosshairs
then mouse over an NPC
User name i noob i cba editing it out
i dont care if it gets stolen if it does and i get it back i would still report ip tho =p
Changes log
There has been some changes before this but this is the changes from now
Made text closer together and put an else function in the isfkeydown so it doesn't do both things.
Made a slight change to the animation procedure.
Made it so Info is displayed in top left corner to make it look tidier
Made it so that on left click Displayed NPC Info will be paused (stops flickering)
Pressing F9 will now writeln your tile co-ords it does not matter if smart is enabled or not.
Save this as includes/srl/srl/misc/smart2.scar
You must have this as the smart over writes the get mouse pos
function IsKeyDown(C:Char): Boolean;
// BETA. Not sure if it works. ~Wizzup?
begin
Result := SmartIsKeyDown(ord(c));
end;
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
If Key = 13 Then
Key := 10;
SmartReleaseKey(key);
end;
procedure KeyDown(key: Byte);
begin
If Key = 13 Then
Key := 10;
SmartHoldKey(key);
end;
procedure SendKeys(S: String);
begin
SmartSendKeys(S);
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;
procedure SmartSetupEx(worldnumber: integer; safe, signed, superdetail: boolean);
var
prefix: string;
begin
prefix := ReadINI('World' + IntToStr(worldnumber), 'Prefix', AppPath + 'includes\SRL\SCSS\worlds.ini');
if(prefix = '')then
begin
writeln('Invalid world number or corrupted world list. Please review your settings');
TerminateScript;
end;
SmartSetup(prefix, safe, signed, superDetail);
end;
Procedure SaveScreenshot(s : string);
var
TempBMP : integer;
TempS : String;
begin;
Temps := s;
While FileExists(Temps) do
begin;
Temps := ExtractFilePath(s) + Copy(ExtractFileName(Temps),1,LastPos('.',ExtractFileName(Temps))-1) + '2' + ExtractFileExt(s);
Writeln(Temps);
end;
TempBMP := BitmapFromString(765,503,'');
Try
CopyClientToBitmap(TempBMP,0,0,765,503);
SaveBitmap(TempBMP, Temps);
Except
end;
FreeBitmap(TempBMP);
end;Then run this
{credits to JuKKa and everyone who helped JuKKa and every one who helped me
Other main credits to N3ss3s for GetPaintBitmap and also to Lee Lok Hin for beating me to putting in tiles also to bobarkinator for the concept of small chars instead of upchars}
program ReflectionAid;
{.include SRL/SRL/Misc/Smart2.scar}
{.include srl/srl.scar}
{.include srl/srl/reflection/reflection.scar}
var
i, x,y :integer;
Function GetPaintBitmap(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, 16777215);
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 ShowNPCInfo;
Var
SCanvas, Canvas, InfoCanvas: TCanvas;
BMP: Integer;
Text: TStringArray;
NPCs: array of TNPC;
begin
NPCs:=getnpcs;
if not(LoggedIn) then Exit;
SmartSetDebug(True);
BMP := BitmapFromString(765, 503, '');
SCanvas := GetBitmapCanvas(BMP);
InfoCanvas := GetBitmapCanvas(BMP);
SCanvas.handle := SmartGetDebugDC;
getmousepos(x,y);
for i := 0 to high(NPCs) do
begin
if InRange(NPCs[i].MS.X,X-30,X+30) and InRange(NPCs[i].MS.Y,Y-30,Y+30) then
begin
Text := [
'NPC Name : '+NPCs[i].Name,
'NPC ID : '+IntToStr(NPCs[i].NPCType),
'NPC Tiles : ('+IntToStr(NPCs[i].Tile.X)+', '+IntToStr(NPCs[i].Tile.Y)+')']
Canvas := GetBitmapCanvas(GetPaintBitmap(400,200,text,10));
safeCopyCanvas(Canvas, SCanvas, 0, 0, 400, 200, 0,0,400,200);
While IsMouseButtonDown(True) do
Wait(30);
end;
end;
FreeBitmap(BMP);
end;
Procedure ShowAnimInfo;
Var
SCanvas, Canvas: TCanvas;
BMP, Anim: Integer;
Text: TStringArray;
begin
if not(loggedin) then Exit;
Anim:=SmartGetFieldInt(SmartGetFieldArrayObject(0,NPCArray,
SmartGetFieldArrayInt(0,NPCIndexArray,i)),CharAnim);
SmartSetDebug(True);
BMP := BitmapFromString(765, 503, '');
SCanvas := GetBitmapCanvas(BMP);
SCanvas.handle := SmartGetDebugDC;
Text := [
'Animation: '+inttostr(anim),
'Tiles : ('+IntToStr(getmypos.x)+', '+IntToStr(getmypos.y)+')']
Canvas := GetBitmapCanvas(GetPaintBitmap(400,200,text,15));
safeCopyCanvas(Canvas, SCanvas, 0, 0, 400, 200, 0,0,400,200);
FreeBitmap(BMP);
end;
Procedure SetupSMART;
Begin
SmartSetup('world37', false, false, False);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
While Not (SmartGetColor(360, 172) = 13158) Do
Wait(100);
End;
Procedure Setup;
begin
setupsmart;
setupsrl;
//setupreflection;
end;
Procedure DoInfo;
Var
FirstLoop : Boolean;
begin
FirstLoop:=false;
ClearSMARTCanvas;
if isfkeydown(11) then
Repeat
Showaniminfo;
If not firstloop then
while isfkeydown(11) do
wait(10);
firstloop:=true;
wait(100);
until isfkeydown(11);
if isfkeydown(9) then
writeln('Tiles : ('+IntToStr(getmypos.x)+', '+IntToStr(getmypos.y)+')')
else
shownpcinfo;
end;
begin
setup;
ClearSMARTCanvas;
repeat
DoInfo;
wait(100);
until false;
end.
Then select the Runescape client in the smart window with the crosshairs
then mouse over an NPC
User name i noob i cba editing it out
i dont care if it gets stolen if it does and i get it back i would still report ip tho =p
Changes log
There has been some changes before this but this is the changes from now
Made text closer together and put an else function in the isfkeydown so it doesn't do both things.
Made a slight change to the animation procedure.
Made it so Info is displayed in top left corner to make it look tidier
Made it so that on left click Displayed NPC Info will be paused (stops flickering)
Pressing F9 will now writeln your tile co-ords it does not matter if smart is enabled or not.
