SRL Archive - Archive

// setup lines 11-13 and 22- 24


program Miner;
{.include SRL\SRL.scar}



const
RockColour = 2240332; //iron
runawaydirection1 = 'N';// N, E, S, W
TimeToMine=1; //How long it takes you to mine a pack in minutes

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

Players[0].Name :='login_name';
Players[0].Pass :='login_pass';
Players[0].Nick :='4_letters_of_login_name';
Players[0].Active :=True;
end;

var
IronOreDTM: integer;
DropIronOreDTM, S : Integer;
TooFullDTM : integer;

{——————————}

procedure Mine;
Var
MineStop: Integer;
begin
MarkTime(MineStop)
S:=S*1000
repeat
if (FindMSColor(x,y,RockColour)) then
Mouse(x,y,2,2,true);
FTWait(1000+random(1000));
until(InvFull) Or (TimeFromMark(MineStop) >= S)
end;

{——————————}

Procedure LoadDTMs;
begin

IronOreDTM := DTMFromString('78DA630C64606070614001CE1A32609A11CA6' +
'70C0012410C688011558D13482301351E40C28E801A905D9604D4' +
'4410A1261E48D81250130D247CF0AB01007110053E');
DropIronOreDTM := DTMFromString('78DA63CC6760608865C00A1861B43D906822A' +
'0269E08351544A8E92142CD1C22D46C00128D44A82920424D0211' +
'6A028850634940CD4220614A404D36903021A0C69B08357640C28' +
'D083589F8D50000D6D20E16');
TooFullDTM := DTMFromString('78DA637CC5C0C010C4800236CD2C05D38C503' +
'EA31D90B060C00AE06A4066381050930B24AC09A8E90212B604D4' +
'AC2542CD4622D49C0512F604D45C07125604D4BC20C2AEDF40C28' +
'E801A6146C26AAC180987732211E69413A1A6990835ED84D50000' +
'E0710F94');
end;

{——————————}

procedure DropIron;
begin
if (InvFull) then
if (findDTM(TooFullDTM, x, y, 555, 200, 705, 700))then
Repeat
if (findDTM(IronOreDTM, x, y, 555, 200, 705, 700))then
Mouse(x, y, 2, 2, false);
if (findDTM(DropIronOreDTM, x, y, 555, 200, 705, 700))then
Mouse(x, y, 2, 2, true);
Until(Not(findDTM(IronOreDTM, x, y, 555, 200, 705, 700)))
end;

{——————————}
procedure AntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection(runawaydirection1);
Wait(10000 + random(2000));
RunBack;
end;
end;
{——————————}
Begin
SetupSRL;
DeclarePlayers;
repeat
S:=TimeToMine
Mine;
DropIron;
AntiRandoms;
until(false)
end.

Wow
WAY TOO SIMPLE
No Standards at all
(You need to indent two spaces after begins and stuff like that)
Very unreliable :p

Sorry, its a good start, but it obviously doesnt work very well.
You dont even have a dropping procedure

Procedure Drop;
begin
if(InvFull)then

End;

You neend
Failsafes
Ent Check
Dropping Procedure
And just a more reliable script overall.
Keep trying, good luck

i gave the wrong script

EDIT : just checking out new things with new scar

Edit it out, then

I'm holding my vote for a day or two

If you don't change it by then, I'll vote no….

but remember i got to get my groove back

i voted no…. i dont belive that you're gunna give a better script…. look at your sig… Learnt Scar 1%??? definite no from me sorry

Im saying no, WAY too simple, VERY unreliable, only 1 failsafe, not in scar tags, no standards, no antiban, not very good antirandoms. sorry.

Doesn't have loginplayer; in main loop, you should put how many loads to do until it switches players. You have multiple players, but it will NEVER switch between them.

Learn a lot more before re-applying

Same reasons as Rune Hacker. He summed them all up so no

Standards should look like this.

// setup lines 11-13 and 22- 24


program Miner;
{.include SRL\SRL.scar}



const
  RockColour = 2240332; //iron
  runawaydirection1 = 'N'; // N, E, S, W
  TimeToMine = 1; //How long it takes you to mine a pack in minutes

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

  Players[0].Name := 'login_name';
  Players[0].Pass := 'login_pass';
  Players[0].Nick := '4_letters_of_login_name';
  Players[0].Active := True;
end;

var
  IronOreDTM: integer;
  DropIronOreDTM, S: Integer;
  TooFullDTM: integer;

{------------------------------}

procedure Mine;
var
  MineStop: Integer;
begin
  MarkTime(MineStop)
    S := S * 1000
    repeat
    if (FindMSColor(x, y, RockColour)) then
      Mouse(x, y, 2, 2, true);
    FTWait(1000 + random(1000));
  until (InvFull) or (TimeFromMark(MineStop) >= S)
end;

{------------------------------}

procedure LoadDTMs;
begin

  IronOreDTM := DTMFromString('78DA630C64606070614001CE1A32609A11C A6' +
    '70C0012410C688011558D13482301351E40C28E801A905D96 04D4' +
    '4410A1261E48D81250130D247CF0AB01007110053E');
  DropIronOreDTM := DTMFromString('78DA63CC6760608865C00A1861B43D90682 2A' +
    '0269E08351544A8E92142CD1C22D46C00128D44A82920424D 0211' +
    '6A028850634940CD4220614A404D36903021A0C69B0835764 0C28' +
    'D083589F8D50000D6D20E16');
  TooFullDTM := DTMFromString('78DA637CC5C0C010C4800236CD2C05D38C5 03' +
    'EA31D90B060C00AE06A4066381050930B24AC09A8E90212B6 04D4' +
    'AC2542CD4622D49C0512F604D45C07125604D4BC20C2AEDF4 0C28' +
    'E801A6146C26AAC180987732211E69413A1A6990835ED84D5 0000' +
    'E0710F94');
end;

{------------------------------}

procedure DropIron;
begin
  if (InvFull) then
    if (findDTM(TooFullDTM, x, y, 555, 200, 705, 700)) then
      repeat
        if (findDTM(IronOreDTM, x, y, 555, 200, 705, 700)) then
          Mouse(x, y, 2, 2, false);
        if (findDTM(DropIronOreDTM, x, y, 555, 200, 705, 700)) then
          Mouse(x, y, 2, 2, true);
      until (not (findDTM(IronOreDTM, x, y, 555, 200, 705, 700)))
end;

{------------------------------}

procedure AntiRandoms;
begin
  FindTalk;
  FindNormalRandoms;
  if (FindFight = true) then
  begin
    RunAwayDirection(runawaydirection1);
    Wait(10000 + random(2000));
    RunBack;
  end;
end;

{------------------------------}

begin
  SetupSRL;
  DeclarePlayers;
  repeat
    S := TimeToMine
      Mine;
    DropIron;
    AntiRandoms;
  until (false)
end.

No for me sorry. Its to simple.

jahuro, what is it with you and standards lol. You just love fixing standards for everyone when i think helping improve the script would be more useful. You shouls just make a tutorial about correct standards because of how much you love them lol.

I want a nice siggy :)

:p Jahuro are u using some kinda delphi formatter to fix the standards.. Just copy,paste,click,copy,paste fixed :)

Ill vote later.

From: Doofy
i voted no…. i dont belive that you're gunna give a better script…. look at your sig… Learnt Scar 1%??? definite no from me sorry

the 1% is a joke and theres no point in voting, your only gonna vote NO

From: 05hartor
the 1% is a joke and theres no point in voting, your only gonna vote NO

Is that some kind of reverse psychology. Don't vote if you are going to say no… only votes will be yes how clever of you.

From: GoF
:p Jahuro are u using some kinda delphi formatter to fix the standards.. Just copy,paste,click,copy,paste fixed :)

Ill vote later.

Maybe …. :p

i vote no.
too short.
too simple.
no standerds.
For me bitmap it larger then it needs to be.

From: bobarkinator
Is that some kind of reverse psychology. Don't vote if you are going to say no… only votes will be yes how clever of you.

no it wasnt rev psych

marewell vote no bcus i aint even gona get 1 yes

no. Seems like ill make a topic of a certain thing…

Closed.