SRL Archive - First Scripts

First script, Woodcutting.

Vinyl Scratch

2012-01-24 23:23:12

program New;
{$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 AntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  FindNormalRandoms;
  case Random(8) of
   0:
   begin
     HoverSkill('Woodcutting', false);
     wait(2453+Random(432));
   end;
   1: PickUpMouse;
   2:
   begin
     MakeCompass('N');
      wait(243+random(146));
      MakeCompass('W');
      wait(665+random(798));
      MakeCompass('E');
      wait(365+random(9954));
      MakeCompass('N');
   end;
  end;
end;

procedure ChopTree;
var x, y: integer;
begin
    repeat
    FindNormalRandoms;
    if FindObj(x, y, 'hop', 1785912, 35) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('hop');
    end;
      repeat
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('ew') or (InvFull);
  until(InvFull);
end;

begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  ChopTree;
end.

I hope your eyes don't bleed, but I read Griff's tutorial, and I thought it was good, for a first script. I need help with SMART, BTW. :3.

HolyWord

2012-01-25 00:00:21

I'll try it out and tell you how it went :)

Drax

2012-01-25 01:08:40

For smart you need to define it. example. Then thats it.

program New;
{$i SRL/SRL.simba}
{$i srl/srl/misc/smart.simba}

lilpjer

2012-01-25 02:40:53

Shutleu's vids to a great job explaining SMART etc.

Vinyl Scratch

2012-01-25 19:33:26

Okay, you guys are avoiding the first question; Did your eyes bleed?

EDIT: I tried the

program New;
           {$i SRL/SRL.simba}
           {$i srl/srl/misc/smart.simba}

And get: "[Error] C:\Simba\Includes\srl/srl/misc/smart.simba(6:10): Duplicate identifier 'ISKEYDOWN' at line 5
Compiling failed."

What do I do?

Vinyl Scratch

2012-01-26 21:51:27

Bump. And, If I got SMART to work on this script, could I use it to become a member?

Sin

2012-01-26 22:10:59

Definetly not :s
You're going to need a lot more knowledge then just being able to use FindObjCustom :p

Jhangir

2012-01-26 22:13:09

From: xXTrollXx
Bump. And, If I got SMART to work on this script, could I use it to become a member?

Add walking.
Add banking.
Add antiban.
Add multiplayer.

You get in members.

Vinyl Scratch

2012-01-27 18:49:45

Wow. I'm stupid. Back to Tutorial Island, then!

Thanks for the help, Guys.