SRL Archive - First Scripts

First Script(Problems)

earthgas

2008-12-11 01:56:54

program Killer;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}

const
MonsterColor1 = 0000000;
MonsterColor2 = 0000000;
MonsterColor3 = 0000000;
MonsterColor4 = 0000000;

procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Current Player

Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 Letters Of Character Name
Players[0].Active := True;

Mousespeed:=20;

end;

procedure AntiBan;
begin
if (not (LoggedIn)) then
Exit;
case Random(60) of
0: RandomRClick;
1: GameTab(1 + Random(12));
2: PickUpMouse;
3: RandomMovement;
4: BoredHuman;
end;
end;

procedure Report;
var
BonesPicked: Integer;
begin
WriteLn('————————————————–')
WriteLn(Padr('// MonstersKilled: ' + IntToStr(Killes), 49) + '//');
WriteLn(Padr('// Bones: ' + IntToStr(BonesPicked), 49) + '//');
WriteLn(Padr('// Ran For: ' + TimeRunning, 49) + '//');
WriteLn('————————————————–');
end;

function PickupBones: boolean;
var
x, y BonesDTM: integer;
begin
BonesDTM:= DTMFromString('78DA633CC9C0C020C6800258EEDE65D000D 28' +
'C40FC1F0818416A7821728C58D480C5F720CC61C1A5E62690 E0C2' +
'AF0600F2140F10');
end;

//————————————————————————-//

procedure BurryBones;
var i,n,BoneInvDTM:integer;
begin
BoneInvDTM:= DTMFromString('78DA633CC6C4C0B09B91011530229140FA0 85' +
'0CD66026A2E00D51C20A0662750CD4E026A0E03D51CC5AF06 001F' +
'BF07A1');
i:=0;
repeat
i:=i+1;
n:=0;
if FindDTM(BoneInvDTM,tmpx,tmpy,555,205,740,465) then
begin
MMouse(tmpx,tmpy,7,7);
Wait(100+random(50));
GetMousePos(tmpx,tmpy);
Mouse(tmpx,tmpy,2,2,true);
repeat
n:=n+1;
FTWait(1);
FindNormalRandoms;
if not(FindDTM(BoneInvDTM,tmpx,tmpy,tmpx-25,tmpy-25,tmpx+25,tmpy+25))then break;
until (n>=15);
if n<15 then
begin
buried:=buried+1;
Players[CurentPlayer].Integer4:=Players[CurrentPlayer].Integer4+1;
ReportVars[1]:=ReportVars[1]+1;
end;
End.

some error with line 46 :confused:

magixboy

2008-12-11 01:59:46

U already have a thread with the same name..!!!

Don't double thread.

Quickmarch

2008-12-11 02:01:22

you keep forgetting to declare your vars ;)

And there is no:

RandomClick;

Its now:

RandomRClick

Change it on line 33 :)

earthgas

2008-12-11 02:11:55

thnx Quickmarch changed it :)

benjaa

2008-12-11 02:12:57

program Killer;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}

const
MonsterColor1 = 0000000;
MonsterColor2 = 0000000;
MonsterColor3 = 0000000;
MonsterColor4 = 0000000;

var
  Killes, Buried, Loads : integer;


procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Current Player

Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 Letters Of Character Name
Players[0].Active := True;

Mousespeed:=20;

end;


procedure AntiBan;
begin
if (not (LoggedIn)) then
Exit;
case Random(60) of
0: RandomRClick;
1: GameTab(1 + Random(12));
2: PickUpMouse;
3: RandomMovement;
4: BoredHuman;
end;
end;

procedure Report;
var
BonesPicked: Integer;
begin
WriteLn('--------------------------------------------------')
WriteLn(Padr('// MonstersKilled: ' + IntToStr(Killes), 49) + '//');
WriteLn(Padr('// Bones: ' + IntToStr(BonesPicked), 49) + '//');
WriteLn(Padr('// Ran For: ' + TimeRunning, 49) + '//');
WriteLn('--------------------------------------------------');
end;

function PickupBones: boolean;
var
  BonesDTM: integer;
begin
BonesDTM:= DTMFromString('78DA633CC9C0C020C6800258EEDE65D000D 28' +
'C40FC1F0818416A7821728C58D480C5F720CC61C1A5E62690 E0C2' +
'AF0600F2140F10');
end;

//-------------------------------------------------------------------------//

procedure BurryBones;
var tmpx, tmpy, i,n,BoneInvDTM:integer;
begin
BoneInvDTM:= DTMFromString('78DA633CC6C4C0B09B91011530229140FA0 85' +
'0CD66026A2E00D51C20A0662750CD4E026A0E03D51CC5AF06 001F' +
'BF07A1');
i:=0;
repeat
i:=i+1;
n:=0;
if FindDTM(BoneInvDTM,tmpx,tmpy,555,205,740,465) then
begin
MMouse(tmpx,tmpy,7,7);
Wait(100+random(50));
GetMousePos(tmpx,tmpy);
Mouse(tmpx,tmpy,2,2,true);
repeat
n:=n+1;
FTWait(1);
FindNormalRandoms;
if not(FindDTM(BoneInvDTM,tmpx,tmpy,tmpx-25,tmpy-25,tmpx+25,tmpy+25))then break;
until (n>=15);
if (n<15) then
begin
buried := buried + 1;
Loads := Loads + 1;
//ReportVars[1]:=ReportVars[1]+1;
end;
End.

I can't solve the last error though… sorry, i fixed like 15 though

Also, if you wanna find something in Inventory, the coords are;

MIX1, MIY1, MIX2, MIY2

earthgas

2008-12-11 02:17:50

thank you!!! omg but 15 errors thats to much :eek:

benjaa

2008-12-11 02:19:23

program Killer;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}

const
MonsterColor1 = 0000000;
MonsterColor2 = 0000000;
MonsterColor3 = 0000000;
MonsterColor4 = 0000000;

var
  Killes, Buried, Loads : integer;


procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Current Player

Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 Letters Of Character Name
Players[0].Active := True;

Mousespeed:=20;

end;


procedure AntiBan;
begin
  if (not (LoggedIn)) then
  Exit;
  case Random(60) of
0: RandomRClick;
1: GameTab(1 + Random(12));
2: PickUpMouse;
3: RandomMovement;
4: BoredHuman;
end;
end;

procedure Report;
var
BonesPicked: Integer;
begin
WriteLn('--------------------------------------------------')
WriteLn(Padr('// MonstersKilled: ' + IntToStr(Killes), 49) + '//');
WriteLn(Padr('// Bones: ' + IntToStr(BonesPicked), 49) + '//');
WriteLn(Padr('// Ran For: ' + TimeRunning, 49) + '//');
WriteLn('--------------------------------------------------');
end;

function PickupBones: boolean;
var
  BonesDTM: integer;
begin
BonesDTM:= DTMFromString('78DA633CC9C0C020C6800258EEDE65D000D 28' +
'C40FC1F0818416A7821728C58D480C5F720CC61C1A5E62690 E0C2' +
'AF0600F2140F10');
Result := True;
end;

//-------------------------------------------------------------------------//

procedure BurryBones;
var tmpx, tmpy, i,n,BoneInvDTM:integer;
begin
BoneInvDTM:= DTMFromString('78DA633CC6C4C0B09B91011530229140FA0 85' +
'0CD66026A2E00D51C20A0662750CD4E026A0E03D51CC5AF06 001F' +
'BF07A1');
i:=0;
repeat
i:=i+1;
n:=0;
if FindDTM(BoneInvDTM,tmpx,tmpy,555,205,740,465) then
begin
MMouse(tmpx,tmpy,7,7);
Wait(100+random(50));
GetMousePos(tmpx,tmpy);
Mouse(tmpx,tmpy,2,2,true);
repeat
n:=n+1;
FTWait(1);
FindNormalRandoms;
if (not FindDTM(BoneInvDTM,tmpx,tmpy,tmpx-25,tmpy-25,tmpx+25,tmpy+25))then break;
until (n>=15);
if (n<15) then
begin
buried := buried + 1;
Loads := Loads + 1;
//ReportVars[1]:=ReportVars[1]+1;
end;
end;
until false;
end;

begin
  SetupSRL;
  Antiban;
  PickUpBones;
  BurryBones;
  AntiBan;
  Report;
End.

w00t! got it

You were missing an "Until"

btw, the standards on this is shocking

D1zl3

2008-12-12 17:33:29

Heres a fixed version from benjaa with standards.

program Killer;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}

const
  MonsterColor1 = 0000000;
  MonsterColor2 = 0000000;
  MonsterColor3 = 0000000;
  MonsterColor4 = 0000000;

var
  Killes, Buried, Loads: integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of Players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Current Player

  Players[0].Name := ''; //Username
  Players[0].Pass := ''; //Password
  Players[0].Nick := ''; //3-4 Letters Of Character Name
  Players[0].Active := True;
end;


procedure AntiBan;
begin
  if (not (LoggedIn)) then
  Exit;
  case Random(60) of
    0: RandomRClick;
    1: GameTab(1 + Random(12));
    2: PickUpMouse;
    3: RandomMovement;
    4: BoredHuman;
  end;
end;

procedure Report;
var
BonesPicked: Integer;

begin
  WriteLn('--------------------------------------------------')
  WriteLn(Padr('// MonstersKilled: ' + IntToStr(Killes), 49) + '//');
  WriteLn(Padr('// Bones: ' + IntToStr(BonesPicked), 49) + '//');
  WriteLn(Padr('// Ran For: ' + TimeRunning, 49) + '//');
  WriteLn('--------------------------------------------------');
end;

function PickupBones: boolean;
var
  BonesDTM: integer;
  
begin
  BonesDTM:= DTMFromString('78DA633CC9C0C020C6800258EEDE65D000D 28' +
           'C40FC1F0818416A7821728C58D480C5F720CC61C1A5E62690 E0C2' +
           'AF0600F2140F10');
  Result := True;
end;

//-------------------------------------------------------------------------//

procedure BurryBones;
var tmpx, tmpy, i,n,BoneInvDTM: integer;

begin
  BoneInvDTM:= DTMFromString('78DA633CC6C4C0B09B91011530229140FA0 85' +
             '0CD66026A2E00D51C20A0662750CD4E026A0E03D51CC5AF06 001F' +
             'BF07A1');
  i:=0;
  repeat
    i:=i+1;
    n:=0;
    if FindDTM(BoneInvDTM,tmpx,tmpy,555,205,740,465) then
    begin
      MMouse(tmpx,tmpy,7,7);
      Wait(100+random(50));
      GetMousePos(tmpx,tmpy);
      Mouse(tmpx,tmpy,2,2,true);
      repeat
        n:=n+1;
        FTWait(1);
        FindNormalRandoms;
        if (not FindDTM(BoneInvDTM,tmpx,tmpy,tmpx-25,tmpy-25,tmpx+25,tmpy+25))then break;
      until (n>=15);
      if (n<15) then
      begin
        buried := buried + 1;
        Loads := Loads + 1;
        //ReportVars[1]:=ReportVars[1]+1;
      end;
    end;
  until false;
end;

begin
  SetupSRL;
  MouseSpeed:= 20;
  Antiban;
  PickUpBones;
  BurryBones;
  AntiBan;
  Report;
end.