Runtime Error

[CamHart]

Not sure if i should post this here or in Questions, but I decided here was best, and if decided as some sort of bug then we can always move it later.

[Runtime Error] : Exception: Access violation at address 0065478C in module 'scar.exe'. Read of address 00000000 in line 173 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar

Happens whenever I use FindObj3.
Comes from the IsUpText() Method which is used in FindObjEx which is used in FindObj3.

Function Useing it...

Function CHMine(OreC, LastClick, WaitTime: Integer):Boolean;
Var OreX, OreY, POreX, POreY:integer;
  Begin
    If(TimeFromMark(LastClick) > WaitTime)Then
      Begin
      If(FindObj3(OreX, OreY, 'Mine', OreC, 10) and (Not (IsMoving)))Then
        Begin
          If((POreX <> 0) and (POreY <> 0))Then
            Begin
              If(Not (FindColorTolerance(POreX, POreY, OreC, OreX - 5, OreY - 5, OreX + 5, OreY + 5, 10)))Then
                Begin
                  If(GasCheck(OreX, OreY))Then//GasCheck/FindGas
                    Begin
                      WriteLn('Gas Wait...');
                      MMouse(OreX, OreY, 5, 5);
                      Wait(Rands(100,200));
                      Mouse(OreX, OreY, 5, 5, false);
                      Wait(Rands(400,500));
                      ChooseOption(x, y, 'alk here');
                      Wait(Rand(10000, 15000, true));
                    End Else
                      Begin
                        POreX:= OreX;
                        POreY:= OreY;
                        MMouse(OreX, OreY, Random(3), Random(3));
                        If(Random(100) < Rand(15,25,false))Then
                          Begin
                            MMouse(OreX, OreY, 0, 0);
                            Mouse(OreX, OreY, 0, 0, false);
                            ChooseOption(OreX - 5 + Random(10), OreY - 2 + Random (4), 'ine ');
                            MarkTime(LastClick);
                          End else
                            Begin
                              MMouse(OreX, OreY, 0, 0);
                              Mouse(OreX, OreY, 0, 0, true);
                              MarkTime(LastClick);
                            End;
                         Result:= true;
                      End;
                End Else
                  Begin
                  If(GasCheck(POreX, POreY))Then//GasCheck/FindGas
                    Begin
                      WriteLn('Gas Wait...');
                      MMouse(OreX, OreY, 5, 5);
                      Wait(Rands(100,200));
                      Mouse(POreX, POreY, 5, 5, false);
                      Wait(Rands(400,500));
                      ChooseOption(x, y, 'alk here');
                      Wait(Rand(10000, 15000, true));
                    End Else
                      Begin
                        MMouse(POreX, POreY, Random(3), Random(3));
                        If(Random(100) < Rand(15,25,false))Then
                          Begin
                            MMouse(POreX, POreY, 0, 0);
                            Mouse(POreX, POreY, 0, 0, false);
                            ChooseOption(POreX - 5 + Random(10), POreY - 2 + Random (4), 'ine ');
                            MarkTime(LastClick);
                          End else
                          Begin
                              MMouse(POreX, POreY, 0, 0);
                              Mouse(POreX, POreY, 0, 0, true);
                              MarkTime(LastClick);
                          End;
                        Result:= true;
                       End;
                  End;
            End Else
              Begin
                POreX:= 0;
                POreY:= 0;
              End;
        End;
      End;
  End;

Script useing that function is in attachment.

[masquerader]

nice job of pinpointing it
it probably comes from not having the font loaded for isuptext

put setupsrl; to run once at the beginning

[CamHart]

Ahh lol... I'll give it a go. Thanks :-p. Nooby mistake