SRL Archive - First Scripts

Lumby WC Trainer
This script cuts normal trees behind Lumby castle, banks them at Draynor, and runs back to behind the castle using the home teleport lodes. Used this guide http://villavu.com/forum/showthread.php?t=44942 for the basic woodchop procedure.

Start the script here

To Do

• Drop option
• Burn option
• Failsafes
• More Humanlike actions
• Additional antiban

Feedback/advice/guidance welcomed and appreciated :)

program New;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i ObjectDTM\ObjDTMInclude.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 AntiBan;
begin
  if not(LoggedIn) then exit;
  FindNormalRandoms;
  case Random(30) of
    0:
    begin
      HoverSkill('Woodcutting', false);
      wait(2453+random(432));
      FindNormalRandoms;
    end;
    1: PickUpMouse;
    2:
    begin
      MakeCompass('N');
      wait(100+random(133));
      MakeCompass('S');
      wait(100+random(133));
      FindNormalRandoms;
    end;
    3: ExamineInv;
  end;
end;

procedure TeleDraynor;
var
  x, y, homeTel:Integer;
begin
  homeTel := DTMFromString('m1gAAAHic42JgYLBnYmCwA2JrKO0ExM5AbAXEblAxMyAWZ2RgEAZiMSCWgmIQXwaIJYBYDiq378gnhrK4GQw+OmkMRlIBDPaKyQyt+UcZYgOXMsSYHmVom3ODISvyAAM/0G5iMCORGAEAtwUSIw==');
  if gametab(tab_Magic) then
  begin
    if FindDTM(homeTel, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(x, y, 4, 4, true);
      Wait(3000);
      if LodeStoneScreen then
        if not LodestoneTeleport('Draynor Village') then
          LodestoneTeleport('Draynor Village');
    end;
  end;
  FreeDTM(homeTel);
end;

procedure ChopChop;
var x, y: integer;
begin
  if not LoggedIn then Exit;
  repeat
    FindNormalRandoms;
    if FindObj(x, y, 'hop down Tree', 3689556, 15) then
    begin
      Mouse(x, y, 2, 2, false);
      ChooseOption('hop');
    end;
    repeat
      Wait(1200+random(300));
      AntiBan;
    Until not IsUpText('ree') or (InvFull);
  until(InvFull);
end;

procedure LumbyRun;
begin
  if not LoggedIn then Exit;
   ObjDTM_WalkPath(['80:80:5:0:7:64:68:0:7:63:114:1:7:105:79:1:7:59:51:1:7:88:35:4:72:82:87:88:90:69:74:69', '43:23:5:0:7:68:73:0:7:67:118:1:7:109:83:1:7:63:55:1:7:92:39:3:35:19:52:19:46:36', '25:75:7:0:7:108:134:1:7:96:52:1:7:112:48:1:7:67:84:1:7:38:100:1:7:58:104:1:7:132:101:3:23:69:24:79:36:78', '30:125:4:0:7:64:117:0:7:48:61:1:7:35:88:1:7:95:108:3:24:123:38:115:37:136', '49:128:8:0:7:92:117:0:7:116:73:1:7:87:84:1:7:71:92:1:7:55:76:1:7:87:44:1:7:67:40:1:7:47:56:4:43:120:59:123:51:134:45:134'],
    0, 80, 100, true, true);
end;

procedure DraynorBank;
Var
  x, y, homeTel:Integer;
begin
  if not LoggedIn then Exit;
//walk
  ObjDTM_WalkPath(['80:80:7:1:7:45:71:1:7:61:64:1:7:83:57:1:7:118:76:1:7:52:106:1:7:75:106:2:7:110:81:3:75:77:87:76:80:88', '61:136:8:1:7:48:75:1:7:64:67:1:7:87:61:1:7:122:80:1:7:56:110:1:7:79:110:2:7:114:85:2:7:106:54:4:55:128:69:132:65:143:55:140', '50:133:5:0:7:76:92:1:7:67:75:1:7:75:56:1:7:99:56:1:7:95:79:4:45:128:58:127:55:141:44:136', '94:139:6:0:7:107:42:0:7:53:116:1:7:60:61:1:7:36:95:1:7:40:107:2:7:56:89:4:81:131:98:131:97:143:86:138', '73:120:7:0:7:41:61:0:7:68:104:1:7:106:104:1:7:106:127:1:7:127:115:2:7:102:132:2:7:142:82:4:68:116:82:114:82:123:71:124', '84:99:5:0:7:76:65:1:7:114:99:1:7:114:88:1:7:115:65:2:7:110:93:4:79:93:80:104:92:103:91:93']
  , 0, 80, 100, true, true);
//bank
  if not OpenBankNPC then
    OpenBankFast('db');
  DepositAll;
  CloseBank;
//tele
  homeTel := DTMFromString('m1gAAAHic42JgYLBnYmCwA2JrKO0ExM5AbAXEblAxMyAWZ2RgEAZiMSCWgmIQXwaIJYBYDiq378gnhrK4GQw+OmkMRlIBDPaKyQyt+UcZYgOXMsSYHmVom3ODISvyAAM/0G5iMCORGAEAtwUSIw==');
  if gametab(tab_Magic) then
  begin
    if FindDTM(homeTel, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(x, y, 4, 4, true);
      Wait(3000);
      if LodeStoneScreen then
        if not LodestoneTeleport('Lumbridge') then
          LodestoneTeleport('Lumbridge');
    end;
  end;
  FreeDTM(homeTel);
end;

begin
  SetUpSRL;
  ObjDTM_Setup;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  repeat
  ChopChop;
  TeleDraynor;
  Wait(20000); //home tele ani
  DraynorBank;
  Wait(20000); //home tele ani
  LumbyRun;
  until(not LoggedIn);
end.