Results 1 to 2 of 2

Thread: Help with script plz

  1. #1
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with script plz

    When ever I use my script, it just logs me in and then logs me out. It was working fine before, I don't know what happened.

    SCAR Code:
    program VWMiner;
    {.include SRL/SRL.scar}

    Const
      Loads = 3; // Loads to do before switching
      Usebank = false; //True if you want to bank ores
      RockColor1 = 8882065;
      RockColor2 = 9737632;

    Var
    x, y, ores,LoadsNumB, PikDTM, TinDTM, BrokeDTM, Walk1DTM, Walk2DTM, Walk3DTM, BankDTM:integer;

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

      Players[0].Name :='';//username
      Players[0].Pass :='';//password
      Players[0].Nick :='';//2-4 letters of username
      Players[0].Active:=True;//Want to use player?
     
      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := True;

      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;
    end;

    procedure LoadDTMs;
    begin
      PikDTM := DTMFromString('78DA63B463626078CC80020C95D8C0342394C' +
           'F680254739B010D30A2AA0900AA7948408D2550CD27026A2C8850' +
           'E30454738D801A5722D480FCFE9C0837BF24A0C60BA8E60E01355' +
           '6403537F0AB0100FB940CF8');
      BrokeDTM := DTMFromString('78DA63CC60626078C280020C95D8C0342394C' +
           'F580A54738F010D30A2AA2906AAB94B404D2150CD6D026AAA816A' +
           'EE1350930454738B08359F08A84901AA794F8439AF09A8C906AAB' +
           '9815F0D0087120D93');
      TinDTM := DTMFromString('78DA63CC63626078CA80027A5B9AC1342394C' +
           'F180754F398010D30A2AAA906AAB947404D0950CD5B026A32816A' +
           '3E1150930D54739D08BB6E12501347D83D00426D0C3F');
      Walk1DTM := DTMFromString('78DA634C61626050634001F1B9DE0CFF81342' +
           '310FF0702C64AA09A40881C33544D6F82130317540D08301601D5' +
           'F813A1269E809A6CA09A6CFC6A00621D0ED3');
      Walk2DTM := DTMFromString('78DA630C636260D065400131B9DE0CFF81342' +
           '310FF0702C60EA09A1C881C33544D6F82130317540D0830F601D5' +
           '9410A1A682801A905D2D04D4B401D5141350B30AA8C619554DA2A' +
           '5188A1A00B5D21386');
      Walk3DTM := DTMFromString('78DA63CC61626090614001A1B9DE0CFF81342' +
           '310FF0702C6C54035B6103966A89A444B31062EA81A10605C0254' +
           '634D408D2F504D34AA9A848C1C54355E40359E04D45803D584125' +
           '0E34A580D005ACF114F');
      BankDTM := DTMFromString('78DA63CC646260B06640016FDEBC61F80FA41' +
           '981F83F10302602D5B843E498A16AFEFC6162E082AA0101B01A6B' +
           '54355FBF3260AA3126A0261EA84687805D20356AA86ACE9C41332' +
           '70EA84616BF39000ED7178B');
    end;

    Procedure randoms;
    begin
      if(not(LoggedIn))then
        Exit;
        FindTalk;
        FindNormalRandoms;
        SolveChatRandom;
        FindLamp('Mining');
        If(FindFight)Then
        begin
          MakeCompass('N');
          RunTo('N', True);
          Wait(7000 +Random(3000));
          RunTo('S', True);
        end;
      end;

    procedure AntiBanz;
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(4) of
     
        0: begin
             HoverSkill('Mining', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        1: PickUpMouse;
       
        2: begin
             case random(3) of
               0: TypeSend('Mining lvls?');

               1: TypeSend('Smithing levels');

               2: TypeSend('Im bored..');

               3: TypeSend('blah, blah, blah');
             end;
           end;
       
        3: begin
             HoverSkill('Smithing', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

         end;
       end;


    procedure Scripty;
    begin
      MouseSpeed := 16;
      MakeCompass('N');
    end;

    procedure Findpick;
    begin
      if not LoggedIn then
        Exit;
        Gametab(4);
        if not FindDTM(PikDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Logout;
          NextPlayer(false);
          Writeln('No pick axe noob, get one.');
        end;
      end;

    procedure Brokenpick;
    begin
      if FindDTM(BrokeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Logout;
          NextPlayer(false);
          WriteLn('Broken pickaxe, logging out');
        end;
      end;

    Procedure Mineore;
    var
    Minetime: integer;
    RockColors : TIntegerArray;
    begin
      if not LoggedIn then
        Exit;
        MarkTime(MineTime);
        RockColors := [RockColor1, RockColor2];
        repeat
          if FindObjCustom(x, y, ['Min', 'ine'], RockColors, 7) then
          begin
            mouse(x, y, 0, 0, false);
            Wait(500);
            ChooseOption('ine');
            Wait(4000);
            randoms;
          end;
        until (InvFull) or (TimeFromMark(Minetime) > 600000+random(60000));;
      end;

    procedure Dropore;
    begin
      if Usebank = (false) then
        repeat
          if not LoggedIn then
            Exit;
            Gametab(4);
            if FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
            begin
              Wait(225 + random(25));
              Mouse(x, y, 2, 2, false);
              wait(150 + random(25));
              Chooseoption('rop');
              Randoms;
            end;
          until not (FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or not(loggedin);
        end;

    procedure Nextperson;
    begin
      if(LoadsNumB=Loads)then
      begin
        NextPlayer(True);
        LoadsNumB:=0;
        MakeCompass('N');
      end;
    end;

    procedure Proggy;
    begin
      ClearDebug;
      WriteLn(' _____ _              _                 ');
      WriteLn('/__   (_)_ __   /\/\ (_)_ __   ___ _ __ ');
      WriteLn('  / /\/ |  _ \ /    \| |  _ \ / _ \  __|');
      WriteLn(' / /  | | | | / /\/\ \ | | | |  __/ |   ');
      WriteLn(' \/   |_|_| |_\/    \/_|_| |_|\___|_|   ');
      WriteLn('TinMiner ran for ' + TimeRunning + '.');
      WriteLn('Mined ' + inttostr(Ores)+' tin ores.');
    end;

    procedure Tobank;
    begin
      if Usebank = (True) then
      begin
        if  DTMRotated(Walk1DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
        begin
          Mouse(x, y, 1, 1, True);
          Flag;
        end;
          begin
            if  DTMRotated(Walk2DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
            begin
              Mouse(x, y, 1, 1, True);
              Flag;
            end;
            begin
              if  DTMRotated(Walk3DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
                begin
                  Mouse(x, y, 1, 1, True);
                  Flag;
            end;
            begin
              RadialRoadWalk(FindRoadColor, 330, 358, 76, 0, 0);
              Flag;
              RadialRoadWalk(FindRoadColor, 50, 88, 55, 0, 0);
              Flag;
            end;
            begin
            if  DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
              begin
                Mouse(x, y, 1, 1, True);
                Flag;
              end;
            end;
          end;
        end;
      end;
    FreeDTM(Walk1DTM);
    FreeDTM(Walk2DTM);
    FreeDTM(Walk3DTM);
    FreeDTM(BankDTM);
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Scripty;
      LoadDTMs;
      Findpick;
      Repeat
        Brokenpick;
        Mineore;
        Dropore;
        Ores:= Ores + 27;
        LoadsNumB:= LoadsNumB + 1;
        Nextperson;
        Proggy;
      until(false);
    end.

    Here is the script, the walking isn't functional, didn't fell like finishing it at the time.

    Any help is appreciated.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  2. #2
    Join Date
    Sep 2007
    Posts
    415
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    umm, well one thing you'll hear almost everyone tell you is to try to keep all of your nextplayers in the main loop.
    umm other than that i don't see anything that would cause the problems, other than maybe you need to add some waits after the GameTab(4)..

    here's my edited version, though i did it here..it just may work

    SCAR Code:
    program VWMiner;
    {.include SRL/SRL.scar}

    Const
      Loads = 3; // Loads to do before switching
      Usebank = false; //True if you want to bank ores
      RockColor1 = 8882065;
      RockColor2 = 9737632;

    Var
    x, y, ores,LoadsNumB, PikDTM, TinDTM, BrokeDTM, Walk1DTM, Walk2DTM, Walk3DTM, BankDTM:integer;

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

      Players[0].Name :='';//username
      Players[0].Pass :='';//password
      Players[0].Nick :='';//2-4 letters of username
      Players[0].Active:=True;//Want to use player?

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := True;

      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;
    end;

    procedure LoadDTMs;
    begin
      PikDTM := DTMFromString('78DA63B463626078CC80020C95D8C0342394C' +
           'F680254739B010D30A2AA0900AA7948408D2550CD27026A2C8850' +
           'E30454738D801A5722D480FCFE9C0837BF24A0C60BA8E60E01355' +
           '6403537F0AB0100FB940CF8');
      BrokeDTM := DTMFromString('78DA63CC60626078C280020C95D8C0342394C' +
           'F580A54738F010D30A2AA2906AAB94B404D2150CD6D026AAA816A' +
           'EE1350930454738B08359F08A84901AA794F8439AF09A8C906AAB' +
           '9815F0D0087120D93');
      TinDTM := DTMFromString('78DA63CC63626078CA80027A5B9AC1342394C' +
           'F180754F398010D30A2AAA906AAB947404D0950CD5B026A32816A' +
           '3E1150930D54739D08BB6E12501347D83D00426D0C3F');
      Walk1DTM := DTMFromString('78DA634C61626050634001F1B9DE0CFF81342' +
           '310FF0702C64AA09A40881C33544D6F82130317540D08301601D5' +
           'F813A1269E809A6CA09A6CFC6A00621D0ED3');
      Walk2DTM := DTMFromString('78DA630C636260D065400131B9DE0CFF81342' +
           '310FF0702C60EA09A1C881C33544D6F82130317540D0830F601D5' +
           '9410A1A682801A905D2D04D4B401D5141350B30AA8C619554DA2A' +
           '5188A1A00B5D21386');
      Walk3DTM := DTMFromString('78DA63CC61626090614001A1B9DE0CFF81342' +
           '310FF0702C6C54035B6103966A89A444B31062EA81A10605C0254' +
           '634D408D2F504D34AA9A848C1C54355E40359E04D45803D584125' +
           '0E34A580D005ACF114F');
      BankDTM := DTMFromString('78DA63CC646260B06640016FDEBC61F80FA41' +
           '981F83F10302602D5B843E498A16AFEFC6162E082AA0101B01A6B' +
           '54355FBF3260AA3126A0261EA84687805D20356AA86ACE9C41332' +
           '70EA84616BF39000ED7178B');
    end;

    Procedure randoms;
    begin
      if(not(LoggedIn))then Exit;
        FindTalk;
        FindNormalRandoms;
        SolveChatRandom;
        FindLamp('Mining');
        If(FindFight)Then
        begin
          MakeCompass('N');
          RunTo('N', True);
          Wait(7000 +Random(3000));
          RunTo('S', True);
        end;
      end;

    procedure AntiBanz;
    begin
      if(not(LoggedIn))then Exit;
      case Random(4) of

        0: begin
             HoverSkill('Mining', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        1: PickUpMouse;

        2: begin
             case random(3) of
               0: TypeSend('Mining lvls?');

               1: TypeSend('Smithing levels');

               2: TypeSend('Im bored..');

               3: TypeSend('blah, blah, blah');
             end;
           end;

        3: begin
             HoverSkill('Smithing', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

         end;
       end;


    procedure Scripty;
    begin
      MouseSpeed := 16;
      MakeCompass('N');
    end;

    procedure Findpick;
    begin
      if not LoggedIn then Exit;
        Gametab(4);
        if not FindDTM(PikDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          wait(200);
          Logout;
          NextPlayer(false);
          Writeln('No pick axe noob, get one.');
        end;
      end;

    procedure Brokenpick;
    begin
      GameTab(4);
      wait(300);
      if FindDTM(BrokeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Logout;
          NextPlayer(false);
          WriteLn('Broken pickaxe, logging out');
        end;
      end;

    Procedure Mineore;
    var
    Minetime: integer;
    RockColors : TIntegerArray;
    begin
      if not LoggedIn then Exit;
        MarkTime(MineTime);
        RockColors := [RockColor1, RockColor2];
        repeat
          if FindObjCustom(x, y, ['Min', 'ine'], RockColors, 7) then
          begin
            mouse(x, y, 0, 0, false);
            Wait(500);
            ChooseOption('ine');
            Wait(4000);
            randoms;
          end;
        until (InvFull) or (TimeFromMark(Minetime) > 600000+random(60000));;
      end;

    procedure Dropore;
    begin
      if Usebank = (false) then
        repeat
          if not LoggedIn then Exit;
            Gametab(4);
            wait(300);
            if FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
            begin
              Wait(225 + random(25));
              Mouse(x, y, 2, 2, false);
              wait(150 + random(25));
              Chooseoption('rop');
              Randoms;
            end;
          until not (FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or not(loggedin);
        end;

    procedure Nextperson;
    begin
      if(LoadsNumB=Loads)then
      begin
        NextPlayer(True);
        LoadsNumB:=0;
        MakeCompass('N');
      end;
    end;

    procedure Proggy;
    begin
      ClearDebug;
      WriteLn(' _____ _              _                 ');
      WriteLn('/__   (_)_ __   /\/\ (_)_ __   ___ _ __ ');
      WriteLn('  / /\/ |  _ \ /    \| |  _ \ / _ \  __|');
      WriteLn(' / /  | | | | / /\/\ \ | | | |  __/ |   ');
      WriteLn(' \/   |_|_| |_\/    \/_|_| |_|\___|_|   ');
      WriteLn('TinMiner ran for ' + TimeRunning + '.');
      WriteLn('Mined ' + inttostr(Ores)+' tin ores.');
    end;

    procedure Tobank;
    begin
      if Usebank = (True) then
      begin
        if  DTMRotated(Walk1DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
        begin
          Mouse(x, y, 1, 1, True);
          Flag;
        end;
          begin
            if  DTMRotated(Walk2DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
            begin
              Mouse(x, y, 1, 1, True);
              Flag;
            end;
            begin
              if  DTMRotated(Walk3DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
                begin
                  Mouse(x, y, 1, 1, True);
                  Flag;
            end;
            begin
              RadialRoadWalk(FindRoadColor, 330, 358, 76, 0, 0);
              Flag;
              RadialRoadWalk(FindRoadColor, 50, 88, 55, 0, 0);
              Flag;
            end;
            begin
            if  DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
              begin
                Mouse(x, y, 1, 1, True);
                Flag;
              end;
            end;
          end;
        end;
      end;
    FreeDTM(Walk1DTM);
    FreeDTM(Walk2DTM);
    FreeDTM(Walk3DTM);
    FreeDTM(BankDTM);
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Scripty;
      LoadDTMs;
      Findpick;
      Repeat
        Brokenpick;
        Mineore;
        Dropore;
        Ores:= Ores + 27;
        LoadsNumB:= LoadsNumB + 1;
        Nextperson;
        Proggy;
      until(false);
    end.
    Quote Originally Posted by That guy that wrote forefeathers
    <munklez>haha im too lazy, girls annoy me
    <munklez> they always wanna like, do stuff
    <munklez> and i just wanna program
    <munklez> and they always take all my money

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
  •