Runtime error

[itSchRis917]

ok, so here it is. i've never had this problem before..


[Runtime Error] : Exception: Access violation at address 006F5B99 in module 'scar.exe'. Read of address 00000034 in line 314 in script C:\Program Files\SCAR 3.05\includes\srl\srl\core\Text.scar


and here is line 314 in Text.scar


if (FindBitmapMaskTolerance(CWindow, x, y, 400, 3, 515, 100, 0, 85)) then


i DID call SetupSRL!

[evilwalrus]

hmm not sure what the problem is but what i get is a message saying "runtime error" and it closes it...post the script on here plz

[itSchRis917]

ok, here's the script. its literally nothing so far...


program WillowChopper;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.scar}
{.include SRL\SRL\Extended\xDTM.scar}
{.include SRL\SRL\Extended\xAntiBan.scar}

var
Ent:boolean;
ChopMark, DoDebug:integer;

const
WillowColor1=5535856;//The first willow color.
WillowColor2=3561552;//The second willow color.
WillowColor3=4489328;//The third willow color.
WaitTime=7;//time IN SECONDS that you want to wait before cutting another willow


Procedure DeclarePlayers;
Begin

HowManyPlayers := 1;//How many players are you running?
CurrentPlayer:= 0; // Which player you want to start with.
NumberOfPlayers(HowManyPlayers);

Players[0].Name := 'doomessenger';//Username of the player
Players[0].Pass := ''; //Password of the player
Players[0].Nick := 'mes'; //3 Lowercase Letters of your username
Players[0].Integer1:= 25; //Loads For Player
Players[0].Boolean1:= False; //Equip Axe?
Players[0].Active := True; //Is the player active?
end;

Function InBank:Boolean;
begin
Result:= FindColorSpiralTolerance(x,y,8091511,5,5,512,334,5 )
end;

procedure DoomDebug(S:String);
begin
Case DoDebug Of
1:DisguiseScar(S);
2:Writeln(S);
3:Status(S);
4: Begin
DisguiseScar(S);
Writeln(S);
Status(S);
end;
end;
end;

procedure WalkToTrees;
begin

Mouse(626,126,4,4,true);
Flag;
end;

Function GetUpTextYellow:String;
Begin
Result := Trim(GetTextAtEx(7, 7, 140, upchars, true,
true, 0, 2, 1305063, 50, True, tr_AllChars));
End;

Function IsUpTextYellow(Text: String): Boolean;

Begin
Result := (Pos(Text, GetUpTextYellow) <> 0)
End;

Function CheckEnt(WhichTreeType:String):Boolean;
//results true if an ent is found.
begin
Case WhichTreeType Of
'willow' : begin
if(IsUpTextYellow(Capitalize(WhichTreeType)))then
begin
Result:=true;
Ent:=true;
end;
if(not(IsUpTextYellow(Capitalize(WhichTreeType)))) then
begin
Result:=false;
Ent:=false;
end;
end;
end;
end;

Function CharmFindObject(var cx, cy: Integer; color1, color2, color3, tolerance: Integer): Boolean;
Var
x, y, a, c, i, x1, y1, x2, y2 : Integer;
Begin
If FindColorSpiralTolerance(x, y, Color1, MSX1, MSY1, MSX2, MSY2, Tolerance) or FindColorSpiralTolerance(x, y, Color2, MSX1, MSY1, MSX2, MSY2, Tolerance) or FindColorSpiralTolerance(x, y, Color3, MSX1, MSY1, MSX2, MSY2, Tolerance) Then
Begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
Repeat
If (not (Loggedin)) Then
break;
a := a + 1;
If (a = 1) Then
c := c + 1;
If (a = 3) Then
c := c + 1;
for i := 1 to c do
Begin
If (a = 1) Then
Begin
x1 := x1 + 30;
x2 := x2 + 30;
End;
If (a = 2) Then
Begin
y1 := y1 - 20;
y2 := y2 - 20;
End;
If (a = 3) Then
Begin
x1 := x1 - 30;
x2 := x2 - 30;
End;
If (a = 4) Then
Begin
y1 := y1 + 20;
y2 := y2 + 20;
End;
If (x1 = 485) and (x2 = 517) Then
x2 := x2 - 2;
If (y1 = 325) and (y2 = 345) Then
y2 := y2 - 7;
If (x2 > 515) Then
Break;
If (FindColorTolerance(x, y, color1, x1, y1, x2, y2, tolerance)) or
(FindColorTolerance(x, y, color2, x1, y1, x2, y2, tolerance)) or
(FindColorTolerance(x, y, color3, x1, y1, x2, y2, tolerance)) then
Begin
MMouse(x, y, 5, 5);
GetMousePos(x, y);
cx:= x;
cy:= y;
If (IsUpTextMulti('illow', 'low', 'own Will')) Then
Begin
If NOT(CheckEnt('Willow'))then
Begin
Mouse(MMCX, MMCY, 5, 5, True);
Wait(2000+Random(5000));
FindNormalRandoms;
EntsAvoided:= EntsAvoided + 1;
Break;
Result:= False;
End else
Begin
Result := True;
Break;
End
End;
End;
End;
If (a = 4) Then
a := 0;
Until (x2 > 515) or (Result = True);
End;
End;


Function ChopWillow:Boolean;
begin
If(Random(20) <=10)then
FindAxeHeadColor;
If(CharmFindObject(x,y,WillowColor1,WillowColor2,W illowColor3,15))then

Begin
Result:= True;
If(not(CheckEnt('Willow')))then
Begin
Status('Chopping');
If(Random(20) <= 10)then
Begin
Mouse(X, Y, 2, 2, True);
End
Else
Begin
Mouse(X, Y, 2, 3, False);
ChooseOption(x, y, 'hop down');
End
End

If(FlagPresent)then
Begin
Flag;
End

Wait(200-Random(50));
DoomDebug('CheckAxe');
FindAxeHeadColor;


MarkTime(ChopMark);

Repeat
If(not(LoggedIn))then Break;

DoomDebug('FindRandoms');
FindNormalRandoms;
If(InvFull)then Break;


until(TimeFromMark(ChopMark) >= (WaitTime*1000+Random(1000)))
end;
end;




procedure ChopAndBankLoop;
begin
//repeat
//if not LoggedIn or WeAreDead then break
If InBank Then
begin
MakeCompass('N');
WalkToTrees;

repeat
ChopWillow;
until(InvFull);
end;
end;

begin
SetupSRL;
DeclarePlayers;
ActivateClient;
GameTab(4);
ChopAndBankLoop;
end.

[geerhedd]

if you don't mind my asking, what scar/srl are you using? i have gotten runtime errors when trying to run older scripts on divi maybe just download 2.03 with an earlier srl.(i swear i have seen most of that script somewhere before)

[itSchRis917]

i have scar 3.05, and im using the SRL that Divi downloads, which i believe is a modified 3.7.