im making an edge willow banker and cutter, at the moment the script is in the slow development stages. Ive never made a woodcutting script before with my main focus being more simple things like power talkers and bone buries.
Is this going about it the right way?
Im getting an error for parameters, what have i done wrong with the colour finding?
Thanks guys
SCAR Code:
{.include srl/srl.scar}
var willows,i:integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
// Random Evemt
Function FindFastRandoms:Boolean;
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then
Result := True;
11: if FindLamp(LampSkill) then
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;
// Anti Ban
Procedure WereHuman;
begin
wait(10)
end;
// Report
procedure Report;
begin
Writeln('_____________________________');
Writeln('| Over The Edge Willows |');
Writeln('|Willows Cut:'+IntToStr(Willows)+'|');
Writeln('|Exp Gained:|');
Writeln('|____________________________');
end;
Procedure Doload;
begin
repeat
If (FindColorTolerance(x,y, 000000, 3)) or
(FindColorTolerance(x,y, 000000, 3)) then
begin
repeat
MMouse(x,y,3,3);
if(IsUpText('hop'))or(IsUpText('own'))then
begin
if IsUpTextMulti('ree', 'ak', 'ew') then
Exit;
if IsUpText('illow') then
begin
Mouse(x, y, 3, 3, true);
FindFastRandoms;
WereHuman;
end;
end;
until (not(IsUpTextMulti('hop')));
end;
Until (InvFull)
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Report;
SRLRandomsReport;
ActivateClient;
repeat
DoLoad
until (False);
end.