Results 1 to 6 of 6

Thread: Script logs in and claims it executed

  1. #1
    Join Date
    Feb 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Script logs in and claims it executed

    Compiled successfully in 691 ms.
    SRL Compiled in 0 msec
    SMART Initialized.
    Loaded: Server 13, Members: False, Signed: True, Super Detail: False.
    Welcome to Runescape.
    ************
    Successfully executed.

    script is not finished, i was just testing to find out what i had to improve.
    Simba Code:
    program new;
    {$define SMART}
    {$i srl/srl.simba}



    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

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

    procedure Camera;
    begin
      MakeCompass ('N')
    end;

    procedure AntiBan;
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(12) of
       0:
       begin
         wait (random(1000))
       end;
       2:
       begin
         MakeCompass('N');
         wait(100+random(133));
       end;
       3:
       begin
         wait (343+random(1222));
        end;
       2:PickUpMouse;
       7:
       begin;
          HoverSkill('Woodcutting', false);
          wait(1000+Random(1000));
       end;
       12:
         begin;
           MakeCompass('S')
         end;
        end;
      end;



    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
    end.

    procedure ChopTree;
    var x,y:integer;
    Begin
      if FindObj(x,y,'Chop',2242616,35);
      begin
        Mouse(x,y,2,2,false);
        ChooseOption('Chop');
          repeat
            wait(1200+random(250));
            Antiban;,
            Until not IsUpText('Willow') or (InvFull);
        until(InvFull);
      end;
    end;

    function Market_Walk: Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: Array [0..4] of TDTMPointDef;
      TempTDTM: TDTM;
    begin
      dtmMainPoint.x := 876;
      dtmMainPoint.y := 107;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := FindRoadColor;
      dtmMainPoint.Tolerance := 0;

      dtmSubPoints[0].x := 876;
      dtmSubPoints[0].y := 107;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := FindRoadColor;
      dtmSubPoints[0].Tolerance := 0;

      dtmSubPoints[1].x := 871;
      dtmSubPoints[1].y := 97;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := FindRoadColor;
      dtmSubPoints[1].Tolerance := 0;

      dtmSubPoints[2].x := 882;
      dtmSubPoints[2].y := 102;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := FindRoadColor;
      dtmSubPoints[2].Tolerance := 0;

      dtmSubPoints[3].x := 872;
      dtmSubPoints[3].y := 118;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := FindRoadColor;
      dtmSubPoints[3].Tolerance := 0;

      dtmSubPoints[4].x := 863;
      dtmSubPoints[4].y := 88;
      dtmSubPoints[4].AreaSize := 0;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := FindRoadColor;
      dtmSubPoints[4].Tolerance := 0;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;








    function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      WalkDTM: integer;
    begin
      WalkDTM := LoadAllDTMWalks(1);
      if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
      begin
        Mouse(X, Y, 8, 8, True);
        WriteLn('Walk Main 1. - Complete.');
        FFlag(0);
        Result := True;
      end else
        if RadialWalk(FindRoadColor, 300, 220, 55, 1, 1) then
        begin
          Writeln(' Walk Backup 1. - Complete.');
          Result := True;
        end else
        begin
          Result := False;
          Writeln(' Walk Backup 1. - Failed. Logging Out.');
          FreeDTM(WalkDTM);
          if not (Result) then
          begin
            Logout;
          end;
        end;
    end;
      function WalkWillow: Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: Array [0..4] of TDTMPointDef;
      TempTDTM: TDTM;
    begin
      dtmMainPoint.x := 856;
      dtmMainPoint.y := 115;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := 1783103;
      dtmMainPoint.Tolerance := 0;

      dtmSubPoints[0].x := 856;
      dtmSubPoints[0].y := 115;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := FindRoadColor;
      dtmSubPoints[0].Tolerance := 0;

      dtmSubPoints[1].x := 858;
      dtmSubPoints[1].y := 110;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := FindRoadColor;
      dtmSubPoints[1].Tolerance := 0;

      dtmSubPoints[2].x := 862;
      dtmSubPoints[2].y := 119;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := FindRoadColor;
      dtmSubPoints[2].Tolerance := 0;

      dtmSubPoints[3].x := 855;
      dtmSubPoints[3].y := 122;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := FindRoadColor;
      dtmSubPoints[3].Tolerance := 0;

      dtmSubPoints[4].x := 853;
      dtmSubPoints[4].y := 113;
      dtmSubPoints[4].AreaSize := 0;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := FindRoadColor;
      dtmSubPoints[4].Tolerance := 0;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;
    function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      WalkDTM: integer;
    begin
      WalkDTM := LoadAllDTMWalks(1);
      if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
      begin
        Mouse(X, Y, 8, 8, True);
        WriteLn('Walk Main 1. - Complete.');
        FFlag(0);
        Result := True;
      end else
        if RadialWalk(FindRoadColor, 300, 220, 55, 1, 1) then
        begin
          Writeln(' Walk Backup 1. - Complete.');
          Result := True;
        end else
        begin
          Result := False;
          Writeln(' Walk Backup 1. - Failed. Logging Out.');
          FreeDTM(WalkDTM);
          if not (Result) then
          begin
            Logout;
          end;
        end;
    end;

    function Market_Walk: Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: Array [0..4] of TDTMPointDef;
      TempTDTM: TDTM;
    begin
      dtmMainPoint.x := 876;
      dtmMainPoint.y := 107;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := FindRoadColor;
      dtmMainPoint.Tolerance := 0;

      dtmSubPoints[0].x := 876;
      dtmSubPoints[0].y := 107;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := FindRoadColor;
      dtmSubPoints[0].Tolerance := 0;

      dtmSubPoints[1].x := 871;
      dtmSubPoints[1].y := 97;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := FindRoadColor;
      dtmSubPoints[1].Tolerance := 0;

      dtmSubPoints[2].x := 882;
      dtmSubPoints[2].y := 102;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := FindRoadColor;
      dtmSubPoints[2].Tolerance := 0;

      dtmSubPoints[3].x := 872;
      dtmSubPoints[3].y := 118;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := FindRoadColor;
      dtmSubPoints[3].Tolerance := 0;

      dtmSubPoints[4].x := 863;
      dtmSubPoints[4].y := 88;
      dtmSubPoints[4].AreaSize := 0;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := FindRoadColor;
      dtmSubPoints[4].Tolerance := 0;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;








    function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      WalkDTM: integer;
    begin
      WalkDTM := LoadAllDTMWalks(1);
      if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
      begin
        Mouse(X, Y, 8, 8, True);
        WriteLn('Walk Main 1. - Complete.');
        FFlag(0);
        Result := True;
      end else
        if RadialWalk(FindRoadColor, 300, 220, 55, 1, 1) then
        begin
          Writeln(' Walk Backup 1. - Complete.');
          Result := True;
        end else
        begin
          Result := False;
          Writeln(' Walk Backup 1. - Failed. Logging Out.');
          FreeDTM(WalkDTM);
          if not (Result) then
          begin
            Logout;
          end;
        end;
    end;

    function Walk_Bank: Integer;
    var
      dtmMainPoint: TDTMPointDef;
      TempTDTM: TDTM;
    begin
      dtmMainPoint.x := 978;
      dtmMainPoint.y := 141;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := 1581601;
      dtmMainPoint.Tolerance := 0;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;
     function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      WalkDTM: integer;
    begin
      WalkDTM := LoadAllDTMWalks(1);
      if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
      begin
        Mouse(X, Y, 8, 8, True);
        WriteLn('Walk Main 1. - Complete.');
        FFlag(0);
        Result := True;
      end else
        if RadialWalk(FindRoadColor, 300, 220, 55, 1, 1) then
        begin
          Writeln(' Walk Backup 1. - Complete.');
          Result := True;
        end else
        begin
          Result := False;
          Writeln(' Walk Backup 1. - Failed. Logging Out.');
          FreeDTM(WalkDTM);
          if not (Result) then
          begin
            Logout;
          end;
        end;
    end;
    procedure FindBanker;
    var x,y:integer;
    Begin
      if FindObj(x,y,'Bank',1784136,35);
      begin
        Mouse(x,y,2,2,false);
        ChooseOption('Bank');
      end;
    end;
    procedure Lets_Depo_This_Shit;
    var x,y:integer;
    Begin
      if FindObj(x,y,'Bank',1784136,35);
      begin
        Mouse(x,y,2,2,false);
        ChooseOption('Bank');
      end;
    end;











    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      Camera;
      Market_Walk;
      WalkWillow;
      ChopTree;
      Market_Walk;
      Walk_Bank;
      FindBanker;
    end.
    Last edited by Wizzer Gizzer; 02-10-2012 at 07:15 AM.

  2. #2
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you setup the Players array properly?
    Unless you show more code, there's no way others know what's probably wrong.
    Current activity: Recovering from vacation
    - Nulla pars vitae vacare officio potest -
    SRL membership? Can I buy that?
    Scripts - AGS - SWF - WAR - EMS - W100S-EM
    If you need scripting help, you can pm me. Remember, if you need help you have to ask for it properly though

  3. #3
    Join Date
    Feb 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by nosaj.421 View Post
    Did you setup the Players array properly?
    Unless you show more code, there's no way others know what's probably wrong.
    edited to show the whole kit and kaboodle

  4. #4
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Try using SMART as your client, and let me know if that makes a difference.

  5. #5
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You use SMART, so why do you use ActivateClient?

    You also have two begin... end. blocks?

    Simba Code:
    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
    end.
    and one more at the bottom
    Current activity: Recovering from vacation
    - Nulla pars vitae vacare officio potest -
    SRL membership? Can I buy that?
    Scripts - AGS - SWF - WAR - EMS - W100S-EM
    If you need scripting help, you can pm me. Remember, if you need help you have to ask for it properly though

  6. #6
    Join Date
    Feb 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    i found out what was wrong. i need to edit my paths, i had the procedures listed in the wrong areas

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
  •