Results 1 to 3 of 3

Thread: Loads help

  1. #1
    Join Date
    Oct 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Loads help

    SCAR Code:
    {   LevExidus AutoMiner V.2    ]
    [       By Jvwarrior           ]
    [______________________________]
    [      Instructions:           ]
    [1. First find the ore you     ]
    [   would like to mine.        ]
    [   Then click on the color    ]
    [   picker on your top bar.    ]
    [   Use the color picker to get]
    [   your ore color.            ]
    [                              ]
    [2. When you have the ore color]
    [   copy and paste it into     ]
    [   orecolor1 using ctrl+alt+c ]
    [   to copy.                   ]
    [                              ]
    [3. Specifie the RS window     ]
    [   using the Crosshairs on    ]
    [   your top bar. Drag them to ]
    [   the runescape screen.      ]
    [                              ]
    [4. Start the script. Watch as ]
    [   SCAR automatically mines   ]
    [   your ore for you.          ]
    [      HAPPY CHEATING!         ]
    [______________________________}

    program Autominer;
    {.Include SRL/SRL.Scar}

    {!*================EDIT ORE COLOR!=================*!}
    const
      orecolor1 = 2371663;
      Loads= 5; //number of loads
      TotalLoads= 25;//All the loads between players
    {!*=================OK YOUR GOOD===================*!}
    {!*==============NOW EDIT YOUR PLAYER==============*!}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := 'Username'; //place your username here
      Players[0].Pass := 'Password'; //place your password here
      Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[0].Active := True;
      Players[1].Name := 'Username'; //place your username here
      Players[1].Pass := 'Password'; //place your password here
      Players[1].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[1].Active := True;
      Players[2].Name := 'Username'; //place your username here
      Players[2].Pass := 'Password'; //place your password here
      Players[2].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[2].Active := True;
      Players[3].Name := 'Username'; //place your username here
      Players[3].Pass := 'Password'; //place your password here
      Players[3].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[3].Active := True;
      Players[4].Name := 'Username'; //place your username here
      Players[4].Pass := 'Password'; //place your password here
      Players[4].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[4].Active := True;
    end;
    {!*================NO TOUCHING!====================*!}
    var
      ModBMP, x, y: Integer;

    procedure LoadBMP;
    begin
      ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
        '430307732774215C71481005743574354BDB84C43560911C1540F' +
        '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
        '000AB69B141');
    end;

    procedure Cred;
    begin
      Writeln('LevExidus AutoMiner')
        Writeln('By Jvwarrior')
        Writeln('Enjoy The Script!')
    end;

    procedure StartMe;
    begin
      Writeln('Starting')
        Writeln('J')
        Wait(200)
        Writeln('JV')
        Wait(200)
        Writeln('JVW')
        Wait(200)
        Writeln('JVWA')
        Wait(200)
        Writeln('JVWAR')
        Wait(200)
        Writeln('JVWARR')
        Wait(200)
        Writeln('JVWARRI')
        Wait(200)
        Writeln('JVWARRIO')
        Wait(200)
        Writeln('JVWARRIOR')
        Wait(200)
        Writeln('OWNZ THIS SCRIPT!')
    end;

    procedure Mining;
    begin
      repeat
        if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
          mouse(x, y, 3, 3, true);
        wait(2000);
        case Random(10) of
          6: typesend('Mining lvls?');
        end;
      until (InvFull);
      if (InvFull) then DropToPosition(2, 28);
      Loads:= Loads +1;
    end;

    procedure DisableChats;
    begin
      if (not (LoggedIn)) then
        Exit;
      SetChat('off', 1);
      SetChat('friends', 2);
      SetChat('on', 3);
      SetChat('off', 4);
    end;

    procedure Login;
    begin
      if (not (LoggedIn)) then
        LoginPlayer;
    end;

    procedure ScanForMod;
    begin
      if (findbitmap(ModBMP, x, y)) then
      begin
        writeln('OMG Mod!');
        Logout;
        Writeln('Mod Found Ettempting to Evade');
        Wait(90000 + random(100000));
        LoginPlayer;
      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 10 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
          10: Respond;
        end;
        wait(1);
      end;
    end;

    procedure FindTheRandoms;
    begin
      FindTalk;
      FindFastRandoms;
      FindNormalRandoms;
      FindLamp('Woodcutting');
      SolvePinball;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 + Random(3000));
        RunBack;
      end;
    end;

    procedure ABan;
    begin
      if (not (LoggedIn)) then
        Exit;
      case Random(8) of
        0: RandomRClick;
        1: HoverSkill('Woodcutting', False);
        2: RandomMovement;
        3: BoredHuman;
        4: PickUpMouse;
        5: AlmostLogout;
        6: begin
            GameTab(1 + Random(12));
            wait(2000 + Random(1000));
            GameTab(4);
          end;
      end;
    end;

    begin
      SetupSRL;
      ActivateClient;
      Cred;
      StartMe;
      Loads:= 0;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      LoadBMP;
      repeat
        DeclarePlayers;
        Login;
        DisableChats;
          repeat
          FindFastRandoms;
          FindTheRandoms;
          ScanForMod;
          ABan;
          Mining;
        until (Load:= Loads);
        Nextplayer(true)
        TL:= Loads;
      until(TotalLoads:= TL;)
    end.

    ok it gives me this error when I try to compile it:
    SCAR Code:
    Failed when compiling
    Line 119: [Error] (14800:1): Variable Expected in script C:\Program Files\SCAR 3.12\Scripts\LevExidus AutoMiner V.2.scar
    wat exaculy do i have to do to fix this problem
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

  2. #2
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    SCAR Code:
    {   LevExidus AutoMiner V.2    ]
    [       By Jvwarrior           ]
    [______________________________]
    [      Instructions:           ]
    [1. First find the ore you     ]
    [   would like to mine.        ]
    [   Then click on the color    ]
    [   picker on your top bar.    ]
    [   Use the color picker to get]
    [   your ore color.            ]
    [                              ]
    [2. When you have the ore color]
    [   copy and paste it into     ]
    [   orecolor1 using ctrl+alt+c ]
    [   to copy.                   ]
    [                              ]
    [3. Specifie the RS window     ]
    [   using the Crosshairs on    ]
    [   your top bar. Drag them to ]
    [   the runescape screen.      ]
    [                              ]
    [4. Start the script. Watch as ]
    [   SCAR automatically mines   ]
    [   your ore for you.          ]
    [      HAPPY CHEATING!         ]
    [______________________________}

    program Autominer;
    {.Include SRL/SRL.Scar}

    {!*================EDIT ORE COLOR!=================*!}
    const
      orecolor1 = 2371663;
      Loads= 5; //number of loads
      TotalLoads= 25;//All the loads between players
    {!*=================OK YOUR GOOD===================*!}
    {!*==============NOW EDIT YOUR PLAYER==============*!}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := 'Username'; //place your username here
      Players[0].Pass := 'Password'; //place your password here
      Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[0].Active := True;
      Players[1].Name := 'Username'; //place your username here
      Players[1].Pass := 'Password'; //place your password here
      Players[1].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[1].Active := True;
      Players[2].Name := 'Username'; //place your username here
      Players[2].Pass := 'Password'; //place your password here
      Players[2].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[2].Active := True;
      Players[3].Name := 'Username'; //place your username here
      Players[3].Pass := 'Password'; //place your password here
      Players[3].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[3].Active := True;
      Players[4].Name := 'Username'; //place your username here
      Players[4].Pass := 'Password'; //place your password here
      Players[4].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[4].Active := True;
    end;
    {!*================NO TOUCHING!====================*!}
    var
      ModBMP, x, y, load, TL: Integer;

    procedure LoadBMP;
    begin
      ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
        '430307732774215C71481005743574354BDB84C43560911C1540F' +
        '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
        '000AB69B141');
    end;

    procedure Cred;
    begin
      Writeln('LevExidus AutoMiner')
        Writeln('By Jvwarrior')
        Writeln('Enjoy The Script!')
    end;

    procedure StartMe;
    begin
      Writeln('Starting')
        Writeln('J')
        Wait(200)
        Writeln('JV')
        Wait(200)
        Writeln('JVW')
        Wait(200)
        Writeln('JVWA')
        Wait(200)
        Writeln('JVWAR')
        Wait(200)
        Writeln('JVWARR')
        Wait(200)
        Writeln('JVWARRI')
        Wait(200)
        Writeln('JVWARRIO')
        Wait(200)
        Writeln('JVWARRIOR')
        Wait(200)
        Writeln('OWNZ THIS SCRIPT!')
    end;

    procedure Mining;
    begin
      repeat
        if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
          mouse(x, y, 3, 3, true);
        wait(2000);
        case Random(10) of
          6: typesend('Mining lvls?');
        end;
      until (InvFull);
      if (InvFull) then DropToPosition(2, 28);
      Load:= Load +1;
    end;

    procedure DisableChats;
    begin
      if (not (LoggedIn)) then
        Exit;
      SetChat('off', 1);
      SetChat('friends', 2);
      SetChat('on', 3);
      SetChat('off', 4);
    end;

    procedure Login;
    begin
      if (not (LoggedIn)) then
        LoginPlayer;
    end;

    procedure ScanForMod;
    begin
      if (findbitmap(ModBMP, x, y)) then
      begin
        writeln('OMG Mod!');
        Logout;
        Writeln('Mod Found Ettempting to Evade');
        Wait(90000 + random(100000));
        LoginPlayer;
      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 10 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
          10: Respond;
        end;
        wait(1);
      end;
    end;

    procedure FindTheRandoms;
    begin
      FindTalk;
      FindFastRandoms;
      FindNormalRandoms;
      FindLamp('Woodcutting');
      SolvePinball;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 + Random(3000));
        RunBack;
      end;
    end;

    procedure ABan;
    begin
      if (not (LoggedIn)) then
        Exit;
      case Random(8) of
        0: RandomRClick;
        1: HoverSkill('Woodcutting', False);
        2: RandomMovement;
        3: BoredHuman;
        4: PickUpMouse;
        5: AlmostLogout;
        6: begin
            GameTab(1 + Random(12));
            wait(2000 + Random(1000));
            GameTab(4);
          end;
      end;
    end;

    begin
      SetupSRL;
      ActivateClient;
      Cred;
      StartMe;
      Load:= 0;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      LoadBMP;
      repeat
        DeclarePlayers;
        Login;
        DisableChats;
          repeat
          FindFastRandoms;
          FindTheRandoms;
          ScanForMod;
          ABan;
          Mining;
        until (Load = Loads);
        Nextplayer(true)
        TL:= Loads;
      until(TotalLoads = TL)
    end.

    When you do Load:=Load+1;
    You need it to be a variable because variables change. You can't rewrite constants like you were doing.

    Also the bottom where it says
    SCAR Code:
    until(TotalLoads:= TL;)
    it needs to be
    SCAR Code:
    until(TotalLoads = TL;)
    . Whenever you do := you are writing a value to a variable.
    STOP PM'ING ME

  3. #3
    Join Date
    Oct 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanx!
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. loads of http at once
    By Yakman in forum C/C++ Help and Tutorials
    Replies: 3
    Last Post: 11-11-2008, 08:36 PM
  2. Random loads?
    By Gabe in forum Research & Development Lounge
    Replies: 12
    Last Post: 08-29-2008, 04:10 PM
  3. 999 Loads!
    By n3ss3s in forum News and General
    Replies: 19
    Last Post: 12-28-2007, 06:35 PM
  4. Instead of ''Loads'' why not ''Loads'' :)
    By yanix in forum News and General
    Replies: 6
    Last Post: 12-18-2007, 08:53 PM

Posting Permissions

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