Results 1 to 4 of 4

Thread: identifier expected in script

  1. #1
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default identifier expected in script

    Code:
    {.include srl/srl.scar}
    {.include srl/srl/skill/mining.scar}
    var
      x, y, mines: Integer;
      
      const
      whichore=varrock_iron;
    function FindVarrockRoadColor2: Integer;//ty masterkill
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
    disguise('finding road')
      GC := 7304312;
      Flag;
      FindColorsSpiralTolerance(x, y, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        TestColor := GetColor(P[a].x, P[a].y);
        red := (TestColor mod 256);
        green := ((TestColor / 256) mod 256);
        blue := ((TestColor / 256) / 256);
        if Red - Blue <= 12 then if Red - Blue >= 8 then
        if Red - Green <= 6 then if Red - Green >= -1 then
        if Green - Blue <= 10 then if Green - Blue >= 4 then
        if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
        if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
        if GetColor(P[a].x, P[a].y + 5) = TestColor then
        if GetColor(P[a].x + 5, P[a].y) = TestColor then
        if GetColor(P[a].x, P[a].y + 3) = TestColor then
        if GetColor(P[a].x + 3, P[a].y) = TestColor then
        if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
        if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
        begin
          Result := TestColor;
          Exit;
        end;
      end;
     disguise('coudlnt find road color')
      WriteLn('Could not find Varrock Road Color!');
      Result := 0;
      if(FindVarrockRoadColor2 = 0)then
        TerminateScript;
    end;
    
    procedure ToBank;//ty master kill for some of it
    var
      x, y,ladderDTM: Integer;
    begin
      ladderDTM := DTMFromString('78DA636C636260F062400151861C0CC2409A1' +
           '188FF0301633776350C5035601AA4C687809A3622D5F811611731' +
           '6AFC89501340847B88511348845D04D400005E7C13C6');
      disguise('to the bank')
      If Not LoggedIn Then Exit;
      RadialRoadWalk(FindVarrockRoadColor2, 5, 50, 70, 1, 1);
      FFlag(10);
      RadialRoadWalk(FindVarrockRoadColor2, 337, 385, 65, 1, 1);
      repeat
        If Not LoggedIn then
        begin
          WriteLn('Player logged out while walking to the bank.');
          Players[CurrentPlayer].Loc := 'Logged Out To Bank';
          Exit;
        end;
      until (FindSymbol(x, y, 'bank'));
    end;
    procedure setup;
    begin
      setupsrl;
      setupmining;
    end;
    procedure getinbank;
    var Bankers,x,y: Integer;
    begin
     disguise('get in bank')
        Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
             '76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
             '81150D3039471C1AF060092960C0C');
        if DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        Mouse(X-2, Y, 0, 0, True);
        Flag;
        if not DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        radialRoadWalk(FindVarrockRoadColor2, 170, 360, 65, 1, 1);
    end;
    
    procedure free;
    var Bankers: Integer;
      begin
       FreeDTM(Bankers);
      end;
    
    procedure DontBanMeBro;
    begin
      If(not LoggedIn)then Exit;
      Case Random(12) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  HoverSkill('random',false);
        2:  PickupMouse;
        3:  GameTab(1+Random(12));
        4:  SleepAndMoveMouse(400+Random(1500));
        5:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        6:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        7:  RandomMovement;
     8..11:
    begin
      case Random(3) of
       0: begin
            KeyDown(VK_RIGHT);
            Wait(500+Random(2000));
            KeyUp(VK_RIGHT);
        end;
       1: begin
            KeyDown(VK_Left);
            Wait(500+Random(2000));
            KeyUp(VK_Left);
          end;
       2: begin
            case Random(2) of
              0: begin
                   KeyDown(VK_RIGHT);
                   Wait(500+Random(1400));
                   KeyUp(VK_RIGHT);
                 end;
              1: begin
                   KeyDown(VK_Left);
                   Wait(500+Random(1400));
                   KeyUp(VK_Left);
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    
    procedure Minethestuff;
    begin
      repeat
        if FindObjRock(x, y, WhichOre)then
        begin
          Disguise('Found primary rock... mining');
          Case (Random(3)) of
            0,2 : begin
                    Mouse(x, y, 2, 2, False);
                    Wait(Random(100));
                    ChooseOption('Mine');//otherwise it may Examine
                  end;
            1 :  Mouse(x, y, 2, 2, True);
        end;
        wait(5000 + random(300));
        Inc(mines);
        AntiBanz;
      until(invfull)or(mines = 30)<---------  right ehre is the error spot
    end;
    
    
    
    begin
     setup;
     minethestuff;
     FindVarrockRoadColor2;
     makecompass('n');
     tobank;
     getinbank;
     free;
    end.
    ok so i get htis error

    Line 155: [Error] (17420:1): Identifier expected in script

    and i think that i already have that repeat and i dont get y it cant find it

    is it to far away or does it have a nother begin function '

    idk ive been playind around with it and cant seem ot figuer it out

    any help???

  2. #2
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {.include srl/srl.scar}
    {.include srl/srl/skill/mining.scar}
    var
      x, y, mines: Integer;

      const
      whichore=varrock_iron;
    function FindVarrockRoadColor2: Integer;//ty masterkill
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
    disguise('finding road')
      GC := 7304312;
      Flag;
      FindColorsSpiralTolerance(x, y, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        TestColor := GetColor(P[a].x, P[a].y);
        red := (TestColor mod 256);
        green := ((TestColor / 256) mod 256);
        blue := ((TestColor / 256) / 256);
        if Red - Blue <= 12 then if Red - Blue >= 8 then
        if Red - Green <= 6 then if Red - Green >= -1 then
        if Green - Blue <= 10 then if Green - Blue >= 4 then
        if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
        if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
        if GetColor(P[a].x, P[a].y + 5) = TestColor then
        if GetColor(P[a].x + 5, P[a].y) = TestColor then
        if GetColor(P[a].x, P[a].y + 3) = TestColor then
        if GetColor(P[a].x + 3, P[a].y) = TestColor then
        if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
        if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
        begin
          Result := TestColor;
          Exit;
        end;
      end;
     disguise('coudlnt find road color')
      WriteLn('Could not find Varrock Road Color!');
      Result := 0;
      if(FindVarrockRoadColor2 = 0)then
        TerminateScript;
    end;

    procedure ToBank;//ty master kill for some of it
    var
      x, y,ladderDTM: Integer;
    begin
      ladderDTM := DTMFromString('78DA636C636260F062400151861C0CC2409A1' +
           '188FF0301633776350C5035601AA4C687809A3622D5F811611731' +
           '6AFC89501340847B88511348845D04D400005E7C13C6');
      disguise('to the bank')
      If Not LoggedIn Then Exit;
      RadialRoadWalk(FindVarrockRoadColor2, 5, 50, 70, 1, 1);
      FFlag(10);
      RadialRoadWalk(FindVarrockRoadColor2, 337, 385, 65, 1, 1);
      repeat
        If Not LoggedIn then
        begin
          WriteLn('Player logged out while walking to the bank.');
          Players[CurrentPlayer].Loc := 'Logged Out To Bank';
          Exit;
        end;
      until (FindSymbol(x, y, 'bank'));
    end;
    procedure setup;
    begin
      setupsrl;
      setupmining;
    end;
    procedure getinbank;
    var Bankers,x,y: Integer;
    begin
     disguise('get in bank')
        Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
             '76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
             '81150D3039471C1AF060092960C0C');
        if DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        Mouse(X-2, Y, 0, 0, True);
        Flag;
        if not DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        radialRoadWalk(FindVarrockRoadColor2, 170, 360, 65, 1, 1);
    end;

    procedure free;
    var Bankers: Integer;
      begin
       FreeDTM(Bankers);
      end;

    procedure DontBanMeBro;
    begin
      If(not LoggedIn)then Exit;
      Case Random(12) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  HoverSkill('random',false);
        2:  PickupMouse;
        3:  GameTab(1+Random(12));
        4:  SleepAndMoveMouse(400+Random(1500));
        5:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        6:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        7:  RandomMovement;
     8..11:
    begin
      case Random(3) of
       0: begin
            KeyDown(VK_RIGHT);
            Wait(500+Random(2000));
            KeyUp(VK_RIGHT);
        end;
       1: begin
            KeyDown(VK_Left);
            Wait(500+Random(2000));
            KeyUp(VK_Left);
          end;
       2: begin
            case Random(2) of
              0: begin
                   KeyDown(VK_RIGHT);
                   Wait(500+Random(1400));
                   KeyUp(VK_RIGHT);
                 end;
              1: begin
                   KeyDown(VK_Left);
                   Wait(500+Random(1400));
                   KeyUp(VK_Left);
                end;
              end;
            end;
          end;
        end;
      end;
    end;

    procedure Minethestuff;
    begin
      repeat
        if FindObjRock(x, y, WhichOre)then
        begin
          Disguise('Found primary rock... mining');
          Case (Random(3)) of
            0,2 : begin
                    Mouse(x, y, 2, 2, False);
                    Wait(Random(100));
                    ChooseOption('Mine');//otherwise it may Examine
                  end;
            1 :  Mouse(x, y, 2, 2, True);
          end;
          wait(5000 + random(300));
          Inc(mines);
          AntiBanz;
        end;//needed another end.. you have to end cases..
      until(invfull)or(mines = 30)
    end;



    begin
     setup;
     minethestuff;
     FindVarrockRoadColor2;
     makecompass('n');
     tobank;
     getinbank;
     free;
    end.

  3. #3
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by 99_ View Post
    SCAR Code:
    {.include srl/srl.scar}
    {.include srl/srl/skill/mining.scar}
    var
      x, y, mines: Integer;

      const
      whichore=varrock_iron;
    function FindVarrockRoadColor2: Integer;//ty masterkill
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
    disguise('finding road')
      GC := 7304312;
      Flag;
      FindColorsSpiralTolerance(x, y, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        TestColor := GetColor(P[a].x, P[a].y);
        red := (TestColor mod 256);
        green := ((TestColor / 256) mod 256);
        blue := ((TestColor / 256) / 256);
        if Red - Blue <= 12 then if Red - Blue >= 8 then
        if Red - Green <= 6 then if Red - Green >= -1 then
        if Green - Blue <= 10 then if Green - Blue >= 4 then
        if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
        if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
        if GetColor(P[a].x, P[a].y + 5) = TestColor then
        if GetColor(P[a].x + 5, P[a].y) = TestColor then
        if GetColor(P[a].x, P[a].y + 3) = TestColor then
        if GetColor(P[a].x + 3, P[a].y) = TestColor then
        if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
        if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
        begin
          Result := TestColor;
          Exit;
        end;
      end;
     disguise('coudlnt find road color')
      WriteLn('Could not find Varrock Road Color!');
      Result := 0;
      if(FindVarrockRoadColor2 = 0)then
        TerminateScript;
    end;

    procedure ToBank;//ty master kill for some of it
    var
      x, y,ladderDTM: Integer;
    begin
      ladderDTM := DTMFromString('78DA636C636260F062400151861C0CC2409A1' +
           '188FF0301633776350C5035601AA4C687809A3622D5F811611731' +
           '6AFC89501340847B88511348845D04D400005E7C13C6');
      disguise('to the bank')
      If Not LoggedIn Then Exit;
      RadialRoadWalk(FindVarrockRoadColor2, 5, 50, 70, 1, 1);
      FFlag(10);
      RadialRoadWalk(FindVarrockRoadColor2, 337, 385, 65, 1, 1);
      repeat
        If Not LoggedIn then
        begin
          WriteLn('Player logged out while walking to the bank.');
          Players[CurrentPlayer].Loc := 'Logged Out To Bank';
          Exit;
        end;
      until (FindSymbol(x, y, 'bank'));
    end;
    procedure setup;
    begin
      setupsrl;
      setupmining;
    end;
    procedure getinbank;
    var Bankers,x,y: Integer;
    begin
     disguise('get in bank')
        Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
             '76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
             '81150D3039471C1AF060092960C0C');
        if DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        Mouse(X-2, Y, 0, 0, True);
        Flag;
        if not DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        radialRoadWalk(FindVarrockRoadColor2, 170, 360, 65, 1, 1);
    end;

    procedure free;
    var Bankers: Integer;
      begin
       FreeDTM(Bankers);
      end;

    procedure DontBanMeBro;
    begin
      If(not LoggedIn)then Exit;
      Case Random(12) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  HoverSkill('random',false);
        2:  PickupMouse;
        3:  GameTab(1+Random(12));
        4:  SleepAndMoveMouse(400+Random(1500));
        5:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        6:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        7:  RandomMovement;
     8..11:
    begin
      case Random(3) of
       0: begin
            KeyDown(VK_RIGHT);
            Wait(500+Random(2000));
            KeyUp(VK_RIGHT);
        end;
       1: begin
            KeyDown(VK_Left);
            Wait(500+Random(2000));
            KeyUp(VK_Left);
          end;
       2: begin
            case Random(2) of
              0: begin
                   KeyDown(VK_RIGHT);
                   Wait(500+Random(1400));
                   KeyUp(VK_RIGHT);
                 end;
              1: begin
                   KeyDown(VK_Left);
                   Wait(500+Random(1400));
                   KeyUp(VK_Left);
                end;
              end;
            end;
          end;
        end;
      end;
    end;

    procedure Minethestuff;
    begin
      repeat
        if FindObjRock(x, y, WhichOre)then
        begin
          Disguise('Found primary rock... mining');
          Case (Random(3)) of
            0,2 : begin
                    Mouse(x, y, 2, 2, False);
                    Wait(Random(100));
                    ChooseOption('Mine');//otherwise it may Examine
                  end;
            1 :  Mouse(x, y, 2, 2, True);
          end;
          wait(5000 + random(300));
          Inc(mines);
          AntiBanz;
        end;//needed another end.. you have to end cases..
      until(invfull)or(mines = 30)
    end;



    begin
     setup;
     minethestuff;
     FindVarrockRoadColor2;
     makecompass('n');
     tobank;
     getinbank;
     free;
    end.


    wahat did u change

  4. #4
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    look at the line above the until

    I commented it..

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •