Results 1 to 3 of 3

Thread: smart prob

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

    Default smart prob

    okk so this happens on almost every script i try and so with smart that i make if i download it it works great
    Code:
    {.include srl/srl.scar}
    {.include jpspowerskills.scar}
    {.include srl/srl/misc/smart.scar}
    
    
    var loads:integer;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // If you add more players , make sure you set this correct, ;)
      NumberOfPlayers(HowManyPlayers);
    
      Players[0].Name := ''; //Your username
      Players[0].Pass := ''; //Your password
      Players[0].Nick := 'nubs'; //Nickname from you username
      Players[0].Active := True; //Active->True or False.
      Players[0].Integers[0] := 40; //Loads to do.  Random 3 will be added.
      Players[0].Strings[1] := 'mining'; //what skill do u want to do mining or wcing
      Players[0].Strings[2] := 'rimmington';//where r u mining
      Players[0].strings[3] := 'iron' //what tree or ore do u want to power skill
      { woodcutting
         tree =  normal   oak =oak  willow= willow yew = yew
         
      mining
        all the normal ore name must be spelled perfectly}
    end;
    
    
    procedure antibanz;
    begin
      If(not LoggedIn)then Exit;
      Case Random(9) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  PickupMouse;
        2:  SleepAndMoveMouse(400+Random(1500));
        3:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        4:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        5:  RandomMovement;
     6..9:
    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 findrandoms;
    begin
      LampSkill := 'mining';
      FindNormalRandoms;
      solvesrlrandoms:=true;
    end;
    
    
    procedure woodcutting;
    var
      i , m: integer;
      treecolors: array [0..3] of integer;
      treeNames: array [0..2] of String;
    begin
      Players[CurrentPlayer].Loc := 'trees';
      repeat
        if Players[CurrentPlayer].strings[2] = 'willow' then
          chopwillows;
          if Players[CurrentPlayer].strings[2] = 'tree' then
            choptrees;
          if Players[CurrentPlayer].strings[2] = 'oak' then
            chopoaks;
            AntiBanz;
            FindRandoms;
          if not (LoggedIn) then
            begin
              NextPlayer(False);
              LoginPlayer;
            end;
         until invfull or inchat('full to')
         inc(loads)
    end;
    
    procedure logdropping;
    var
      logdtm:integer;
    begin
      repeat
        logDTM := DTMFromString('78DA63CC66626078C28002EA12AD181E02694' +
                '620FE0F048C1940357718D000231209A48B806A6E1250530654F3' +
                '88809A6AA09A6704D45400D5BC21A0A618A8E62D0135E940351F0' +
                '9A84924C29C58A09AA7B8D570C0CCB94F404D32FE7006A90100DC' +
             'FE160C');
        If FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
        Begin
          Mouse(x,y,2,2,False);
          wait(random(200));
          ChooseOption('Drop');
          wait(500 + random(100))
          findrandoms;
       end;
      Until not FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2);
    end;
    
    
    
    procedure mineores;
    begin
      disguise('mining')
      repeat
        if Players[CurrentPlayer].strings[2] = 'rimmington' then
        begin
          if Players[CurrentPlayer].strings[2] = 'tin' then
            rminetin;
            if Players[CurrentPlayer].strings[2] = 'copper' then
              rminecopper;
              if Players[CurrentPlayer].strings[2] = 'iron' then
                rmineiron;
                if Players[CurrentPlayer].strings[2] = 'gold' then
                rminegold;
        end;
          if Players[CurrentPlayer].strings[2] = 'varrock' then
        begin
          if Players[CurrentPlayer].strings[2] = 'tin' then
            vminetin;
            if Players[CurrentPlayer].strings[2] = 'copper' then
              vminecopper;
              if Players[CurrentPlayer].strings[2] = 'iron' then
                vmineiron;
                if Players[CurrentPlayer].strings[2] = 'silver' then
                vminesilver;
        end;
        AntiBanz;
        FindRandoms;
        if not (LoggedIn) then
        begin
          NextPlayer(False);
          LoginPlayer;
        end;
      until invfull or inchat('full to')
    end;
    
    
    procedure OreDropping;
    
    var OreDTM:integer;
    begin
      OreDTM := DTMFromString('78DA637463626078C28002FC0C54181E02694' +
         '620FE0F048CEE40353718D000231209A403816AEE1350E30D54F3' +
         '86801A7BA09A4F04D49800D53C26C29CEBF8D5000045B70DB0');
      repeat
        Disguise('dropping ores');
       If FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
       Begin
        Mouse(x,y,2,2,False);
        wait(random(200));
        ChooseOption('Drop');
        wait(500 + random(100))
        findrandoms;
       end;
      Until not FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2);
      inc(loads);
    end;
    
    procedure proggy;
    begin
      cleardebug;
      WriteLn(inttostr(loads));
    end;
    
    begin
      SmartSetupEx(1, false, Signed, false);
      while not SmartActive do wait(100);
      SetTargetDC(SmartGetDC);
      setupsrl;
      setupmining;
      LoadRockRecords
      activateclient;
      GraphicsSet := true;
      declareplayers;
      loginplayer;
      loads:=0;
      repeat
        proggy
        if Players[CurrentPlayer].strings[1] = 'woodcutting' then
          woodcutting;
          if Players[CurrentPlayer].strings[1] = 'woodcutting' then
          logdropping;
          if Players[CurrentPlayer].strings[1] = 'mining' then
            mineores;
            if Players[CurrentPlayer].strings[1] = 'mining' then
            oredropping;
      until(loads = 40)
    end.
    when i run it it goes to the smart script and says

    "Line 7: [Error] (17860:11): Duplicate identifier 'MOVEMOUSE' "

    how do i fix that

  2. #2
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    include smart before srl
    “Ignorance, the root and the stem of every evil.”

  3. #3
    Join Date
    Feb 2009
    Location
    Philipines
    Posts
    600
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    So change this:
    SCAR Code:
    {.include srl/srl.scar}
    {.include jpspowerskills.scar}
    {.include srl/srl/misc/smart.scar}

    into this:

    SCAR Code:
    {.Include SRL/SRL/Misc/Smart.Scar}
    {.Include SRL/SRL.Scar}
    {.Include JpsPowerSkills.Scar}

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
  •