SRL Archive - Outdated Tutorials

You're using vista and getting an error like this?


Line 67: [Error] (7031:1): Unknown identifier 'ChangeFPHandle' in script C:\Program Files\SCAR 3.11\includes\srl\srl\misc\SCSS.scar

Here's the fix: Right click on scar itself (not a script), and choose "Run as Administrator", a nice security window pops up, enter your pass and look: It works now :)

you are the man.. or woman?

From: hollowtek
you are the man.. or woman?

…WTF?

(EDIT: Oops, thought you said "are you a man.. or woman?")


Oh, I kept thinking people didn't get freddy's plugin :p

Holy crap! This worked.

You've made my day.:D

you rock! this works great now

uhhh i dont have windows vista and i still get that error??? what do i do?

If you dont have windows vista you should try installing the plugins again.

Markus,
I've reinstalled the plugins,
I dont have Vista too.
Do you know what the problem could be?

Maybe the SRL you downloaded is corrupted, try redownloading it.

i have vista, and i ave been doing this for a while
when i first download scar and srl it worked fine
but i redled all of it
and now i get the error
i do run it as an administrator
i dont no wat to do

Try reinstalling the plugins, it should fix it :)

go start - run - type runas (program name here) and then you can run it as the administrator. With the right password of course

hello is it the scar icon on the desktop we shall run as administrator?

yo i really need help im new at scar everything i try backfires i been working to try to work scar for like 14 hours now plz need help ill post script tell me what to do i also get error Line 67: [Error] (7036:1): Unknown identifier 'ChangeFPHandle' in script C:\Program Files\SCAR 3.11\includes\srl\srl\misc\SCSS.scar

Script


program PowerCutter;
procedure DropEm; forward;
procedure CutItDown; forward;
procedure FFight; forward;
procedure Report; forward;
procedure LogNewPlayer; forward;

{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}

const
TreeColour1 = 352336; //The Colour of the tree your are cutting
TreeColour2 = 2971231; //Another Colour of the tree your are cutting, Plz choose colour near other colour you
//Picked for best results
TreeToCut = 'Willow'; //The Name of the Tree You Are Cutting
StartPlayer = 1; //Player To Start With
LogsPerPlayer = 1000; //How many logs to cut before changing players

var
LogsChopped, TS, EXP: Integer;


procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := StartPlayer; // CurrentPlayer = Array Index

Players[0].Name := 'gino stwins6'; //Your Username
Players[0].Pass := 'ggss992'; //Your Password
Players[0].Nick := 'gs'; //3 or 4 letters from your Username
Players[0].Loc := ''; //Leave as blank
Players[0].Skill := 'WoodCutting'; //The skill for when you get a lamp
Players[0].Active := True;

writeln(inttostr(HowManyPlayers) + ' Players');
end;

function TimeRunning1: string;
var
RHours, Minutes, Seconds, RMinutes, RSeconds: LongInt;
Time: string;
begin
Seconds := (GetSystemTime - TS) div 1000;
Minutes := Seconds div 60;
RHours := Minutes div 60;
Time := inttostr(Seconds) + ' Seconds';
if Minutes <> 0 then
begin
RSeconds := Seconds mod (Minutes * 60);
Time := inttostr(Minutes) + ' Minutes and ' + inttostr(RSeconds) + ' Seconds';
end;
if RHours <> 0 then
begin
RMinutes := Minutes mod (RHours * 60);
RSeconds := Seconds mod (Minutes * 60);
Time := inttostr(RHours) + ' Hours, ' + inttostr(RMinutes) +
' Minutes and ' + inttostr(RSeconds) + ' Seconds';
end;
Result := Time;
end;

function FindEnt1(TreeColor: Integer): Boolean;
var
i: Integer;
begin
if (Option2('Chop')) then
begin
if (FindColorSpiralTolerance(x, y, 383705, 9, 9, 500, 24, 20)) or
(FindColorSpiralTolerance(x, y, 65535, 9, 9, 500, 24, 20)) then
begin
GetMousePos(x, y);
Mouse(x, y, 5, 5, false);
if (FindText(x, y, 'Chop down', UpChars, x - 50, y - 50, x + 50, y + 100)) then
begin
if (FindColor(x, y, 65535, x, y, x + 100, y + 25)) then
begin
for i := 1 to 2 do
begin
Mouse(648, 83, 1, 1, True)
Flag;
end;
WriteLn('Found ent! Waiting for it to go away');
Wait(30000 + random(5000));
Result := True;
EntsAvoided := EntsAvoided + 1;
end;
end else
ChooseOption(x, y, 'Cancel');
end;
end;
end;

procedure LogIn;
begin
if (FindColor(x, y, 8353396, 262, 208, 262, 208)) then
begin
LogInPlayer;
end;
end;

procedure LogNewPlayer;
begin
LogOut;
NextPlayer(True);
LogIn;
TS := GetSystemTime;
LogsChopped := 0;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure ChopTree(Colour1, Colour2: integer);
var
Waited4: integer;
begin
if FindColor(x, y, Colour1, 5, 5, 600, 600) then
begin
if FindColor(x, y, Colour2, x - 25, y - 25, x + 25, y + 25) then
begin
end;
MMouse(x, y, 5, 5);
GetMousePos(x, y);
wait(400);
if IsUpText('Chop down ' + TreeToCut) then
begin
ClickMouse(x, y, true);
wait(1000);
Waited4 := 0;
repeat
FindEnt1(TreeColour1);
FindEnt1(TreeColour2);
FindHead;
FindNormalRandoms;
FFight;
InBlack;
FindPlant;
LogIn;
Waited4 := Waited4 + 1;
Report;
wait(300 + 100);
until ((not IsUpText('Chop down ' + TreeToCut)) or (Waited4 > 15) or (InvFull));
end;
end;
end;

procedure FFight;
begin
if (FindFight) then
begin
Writeln('Found Fight');
RunAwayDirection('W');
Wait(8000 + random(3000));
RunBack;
if (WeAreDead) then
begin
Writeln('You Have Died….Changing Player');
LogNewPlayer;
end;
end;
if (FindNewBox) then
begin
OpenBox;
SolveBox;
wait(1000);
if (FindNewBox) then
begin
GambleNewBox;
end;
if (FindNewBox) then
begin
LogOut;
Writeln('Unable To Solve Box….');
LogNewPlayer;
end;
end;
end;

procedure CutItDown;
begin
while (not (InvFull)) do
begin
Status('Cutting Tree');
ChopTree(TreeColour1, TreeColour2);
wait(1000);
LogIn;
Report;
end;
DropEm;
wait(1000);
end;

procedure DropEm;
var
rx, ry, m, n: Integer;
begin
Status('Dropping Logs');
Gametab(4);
for M := 1 to 7 do
begin
for n := 1 to 4 do
begin
rx := 544 + (n * 42);
ry := 192 + (m * 36);
mmouse(rx, ry, 5, 5);
getmousepos(x, y);
wait(100 + random(100));
if (Not (IsUpText('Wield'))) then
begin
mouse(x, y, 0, 0, false);
wait(10 + random(50));
if (ClickText('Drop', MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
FFight;
LogsChopped := LogsChopped + 1;
Report;
end;
end;
end;
end;
end;

procedure Report;
begin
if (not (LogsChopped >= LogsPerPlayer)) then
begin
Writeln('<===========================================>');
Writeln('< You Are Using Nashi''s PowerCutter >');
Writeln('< Cut ' + IntToStr(LogsChopped) + ' Logs!');
Writeln('< Gained ' + IntToStr(LogsChopped * EXP) + ' XP!');
Writeln('< Worked For ' + TimeRunning1);
Writeln('< ' + TheTime + ' >');
Writeln('<===========================================>');
SRLRandomsReport;
end else
begin
Writeln(Players[CurrentPlayer].Name + ' Has Finished Cutting….Changing Player');
LogNewPlayer;
end;
end;

begin
BenMouse := True;
MouseSpeed := 1;
TS := GetSystemTime;
LogsChopped := 0;
if (TreeToCut = 'Tree') then
begin
EXP := 25;
end;
if (TreeToCut = 'Oak') then
begin
EXP := 37;
end;
if (TreeToCut = 'Willow') then
begin
EXP := 62;
end;
if (TreeToCut = 'Teak') then
begin
EXP := 100;
end;
if (TreeToCut = 'Mahogany') then
begin
EXP := 125;
end;
if (TreeToCut = 'Yew') then
begin
EXP := 175;
end;
if (TreeToCut = 'Magic') then
begin
EXP := 250;
end;
ClearDebug;
Writeln('Thank You For Using Nashi''s PowerChopper');
Writeln('Hope You Dont Get Killed!');
SetUpSRL;
DeclarePlayers;
DisguiseScar('No page to display - Microsoft Internet Explorer');
LogIn;
FindAxeHeadColor;
repeat
CutItDown;
until (false);
end.

Woohoo! ty so much I have been getting this error and it was pissing me off >.<

still sais the same thing for me, know whats wrong?

yea me too this is getting annoying. i reinstalled the plugins but still dont work.

Vista. Owned.