SRL Archive - OSR Help

Script logs in and claims it executed

Wizzer Gizzer

2012-02-10 02:10:17

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.

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.

Er1k

2012-02-10 02:11:43

Did you setup the Players array properly?
Unless you show more code, there's no way others know what's probably wrong.

Wizzer Gizzer

2012-02-10 02:13:41

From: nosaj.421
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

P1nky

2012-02-10 02:15:58

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

Er1k

2012-02-10 02:17:11

You use SMART, so why do you use ActivateClient?

You also have two begin… end. blocks?

begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
end.

and one more at the bottom

Wizzer Gizzer

2012-02-10 02:18:44

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