Log in

View Full Version : Plz Help me (Sry Im noob)



Rscheat4life
09-10-2009, 05:03 AM
Hello SRL members I need a lot of help PLZ HELP ME!!!!!!!!!!!!!!!!!!!!!!!!
i hav this problem do you know how to fix it? PLZ Help and sry for being noob

Line 96: [Error] (98:197): Invalid number of parameters in script C:\Documents and Settings\Desktop\scarprerelease\includes\SRL\SRL\M isc\Smart.scar
hopefully anyone can help and a tutorial would be nice but PLZ help anyway!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Once again SRY i NOOB

hey awkwardsaw if u could give me a script that would work (if sometins wrong wit da script) that works so i can just know if SMART works plz? TY

Awkwardsaw
09-10-2009, 05:44 AM
can you post the script/ line in the script? :) and dont worry, your not being a noob for asking :p

3Garrett3
09-10-2009, 06:34 AM
You need to update your SRL. Read a tutorial on it, there are lots.

cygo
09-10-2009, 06:55 AM
I updated SRL and still get the same problem.

Updated by using svn off of http://www.villavu.com/repositories/srl-opendev
also tried deleting and starting over, updated scar via svn at http://freddy1990.com/svn/scarprerelease
and the files off of http://www.villavu.com/forum/showthread.php?t=50470

3Garrett3
09-10-2009, 06:56 AM
I dunno.. Maybe it is the script you are using?

Rscheat4life
09-10-2009, 07:40 AM
I updated SRL and still get the same problem.

Updated by using svn off of http://www.villavu.com/repositories/srl-opendev
also tried deleting and starting over, updated scar via svn at http://freddy1990.com/svn/scarprerelease
and the files off of http://www.villavu.com/forum/showthread.php?t=50470

this is exactly wat i did

Simtoon
09-10-2009, 02:12 PM
Ok, try again if it doesnt work, replace SMART.scar in :\Documents and Settings\Desktop\scarprerelease\includes\SRL\SRL\M isc\Smart.scar
with

{$DEFINE SRL_SMART}

function IsKeyDown(C:Char): Boolean;
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;

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;

{procedure SmartSaveSettings(v: TVariantArray);
var
i: Integer;
ts: TStringArray;
begin
ts := ['server', 'members', 'signed', 'sd', 'DC', AppPath + '\Includes\SRL\SRL\Misc\SmartINI.INI'];
for i := 0 to 4 do
WriteINI('SMART', ts[i], v[i], ts[5]);
end; }

procedure SmartSetupEx(Server: integer; members, signed, superdetail: boolean);
var
prefix: string;
begin
prefix := ReadINI('World' + IntToStr(Server), 'Prefix', AppPath + 'includes\SRL\SRL\misc\worlds.ini');
if(prefix = '')then
begin
writeln('Invalid world number or corrupted world list. Please review your settings');
TerminateScript;
end;
SmartSetup('http://'+prefix+'.runescape.com/', 'plugin.js?param=o0,a' + IntToStr((Integer(not(Signed)) + 1) * Integer(not((SuperDetail and Signed)))) + ',m' + IntToStr(Integer(Members)), 765, 503);
//SmartSaveSettings([Server, Members, Signed, SuperDetail, SmartGetDC]);
end;

{function SmartLastSettings: TStringArray;
var
i: Integer;
ts: TStringArray;
begin
ts := ['server', 'members', 'signed', 'sd', 'DC', AppPath + '\Includes\SRL\SRL\Misc\SmartINI.INI'];
SetLength(Result, 5);
for i := 0 to 4 do
Result[i] := ReadINI('SMART', ts[i], ts[5]);
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('.',ExtractF ileName(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;

Smarter Child
09-11-2009, 02:43 AM
you should post these problems on the script thread ;)

tico2
09-11-2009, 03:03 AM
Don't bother with this script atm because reflection is down atm so you won't be able to use it ;)

Rscheat4life
09-11-2009, 04:10 AM
so reflection is down?

ok guys u rok!!!!!!!!!!!!! ty soooooooooooooooooooooo mcuh well aniway i think reflection is down so yeabut i ran a script that dosent take reflection amd it worked u guys rok!!!!!!!!!!!!!!!!!!!
i will post any probs tho so yea!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!n ty peeps

Rich
09-11-2009, 04:30 AM
so reflection is down?

ok guys u rok!!!!!!!!!!!!! ty soooooooooooooooooooooo mcuh well aniway i think reflection is down so yeabut i ran a script that dosent take reflection amd it worked u guys rok!!!!!!!!!!!!!!!!!!!
i will post any probs tho so yea!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!n ty peeps

Top Tip: Speak English.

3Garrett3
09-11-2009, 08:45 AM
Top Tip: Speak English.

Protip: Don't say top tip :)

I concur though.

cycrosism
09-12-2009, 11:00 AM
Oh, yeah my power cutter uses reflection (It only uses it for animations and charectormoving) the rest is all colour. When reflection gets updated, reupdate it on your computer and my script will work.

:)

zi3m
09-13-2009, 01:39 AM
Ok, try again if it doesnt work, replace SMART.scar in :\Documents and Settings\Desktop\scarprerelease\includes\SRL\SRL\M isc\Smart.scar
with

{$DEFINE SRL_SMART}

function IsKeyDown(C:Char): Boolean;
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;

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;

{procedure SmartSaveSettings(v: TVariantArray);
var
i: Integer;
ts: TStringArray;
begin
ts := ['server', 'members', 'signed', 'sd', 'DC', AppPath + '\Includes\SRL\SRL\Misc\SmartINI.INI'];
for i := 0 to 4 do
WriteINI('SMART', ts[i], v[i], ts[5]);
end; }

procedure SmartSetupEx(Server: integer; members, signed, superdetail: boolean);
var
prefix: string;
begin
prefix := ReadINI('World' + IntToStr(Server), 'Prefix', AppPath + 'includes\SRL\SRL\misc\worlds.ini');
if(prefix = '')then
begin
writeln('Invalid world number or corrupted world list. Please review your settings');
TerminateScript;
end;
SmartSetup('http://'+prefix+'.runescape.com/', 'plugin.js?param=o0,a' + IntToStr((Integer(not(Signed)) + 1) * Integer(not((SuperDetail and Signed)))) + ',m' + IntToStr(Integer(Members)), 765, 503);
//SmartSaveSettings([Server, Members, Signed, SuperDetail, SmartGetDC]);
end;

{function SmartLastSettings: TStringArray;
var
i: Integer;
ts: TStringArray;
begin
ts := ['server', 'members', 'signed', 'sd', 'DC', AppPath + '\Includes\SRL\SRL\Misc\SmartINI.INI'];
SetLength(Result, 5);
for i := 0 to 4 do
Result[i] := ReadINI('SMART', ts[i], ts[5]);
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('.',ExtractF ileName(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;





I tried that and im still getting the same problem..... I just updated my SRL since i havent been on in a while due to school, and this is really aggravating me..help please?