SRL Archive - RS3 Outdated / Broken Scripts

PieChestThiever!

Ilikepie1995

2007-06-16 12:05:03

My 4th or 5th script.
Special thanks to - Kemico2.
What script does?-Steals stuff from chest in ardougne house.
Got
AntiRandoms
DeclarePlayers;
if Finds the gas then runs away :p

If you find anybugs please post here or contact me at my msn [email]vit-1995@hotmail.com[/email]
and if you can help fixing the bug please do.

I dont know y but i cant attach it so here is the script :D

program PieChestThiever;
 
  {.include SRL/SRL.scar}
  //Instructions.
  //Start at the ardougne house close to the ardougne centre.
  //The house is the south one.
  //I dont recomend wearing anything on you
var
  times: integer;
 
 
const
  ChestColor  = 4808832;//Just leave this alone, its the chest's color it works grat for me.
  TimesToTake = 10;//How many times you want to steal from the chest?
 
  procedure DeclarePlayers;
  begin
    HowManyPlayers := 6;               // Set Number of Players here.
    NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
    CurrentPlayer := 0;        // CurrentPlayer = Array Index
 
    Players[0].Name   := '';
    Players[0].Pass   := '';
    Players[0].Nick   := '';
    Players[0].Loc    := 'Loc1';
    Players[0].Skill  := '';
    Players[0].Active := True;
 
    Players[1].Name   := '';
    Players[1].Pass   := '';
    Players[1].Nick   := '';
    Players[1].Loc    := 'Loc1';
    Players[1].Skill  := '';
    Players[1].Active := True;
 
    Players[2].Name   := '';
    Players[2].Pass   := '';
    Players[2].Nick   := '';
    Players[2].Loc    := 'Loc1';
    Players[2].Skill  := '';
    Players[2].Active := True;
 
    Players[3].Name   := '';
    Players[3].Pass   := '';
    Players[3].Nick   := '';
    Players[3].Loc    := 'Loc1';
    Players[3].Skill  := '';
    Players[3].Active := True;
 
    Players[4].Name   := '';
    Players[4].Pass   := '';
    Players[4].Nick   := '';
    Players[4].Loc    := 'Loc1';
    Players[4].Skill  := '';
    Players[4].Active := True;
 
    Players[5].Name   := '';
    Players[5].Pass   := '';
    Players[5].Nick   := '';
    Players[5].Loc    := 'Loc1';
    Players[5].Skill  := '';
    Players[5].Active := True;
 
    writeln(IntToStr(HowManyPlayers) + ' Players');
 
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  end;
 
  function FindFastRandoms: boolean; //By WT-Fakawi.
  var
    i: integer;
  begin
    for i := 1 to 8 do
    begin
      case I of
        1:
          if FindDead then
            Result := True;
        2:
          if FindMod then
            Result := True;
        3:
          if FindMime then
            Result := True;
        4:
          if FindMaze then
            Result := True;
        5:
          if FindQuiz then
            Result := True;
        6:
          if FindDemon then
            Result := True;
        7:
        begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
        7:
        begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
        8:
          RC;
      end;
      wait(1);
    end;
  end;
 
  ///////////////////////////////////////////////////////////////////////////
 
  procedure FindRandoms;
  begin
    FindFastRandoms;
    FindNormalRandoms;
  end;
 
 
  procedure FindGas;
  begin
    if FindColor(x, y, 2573640, 0, 0, 450, 450) then
      WriteLn('Omfg we found gas!');
    Wait(1000 + random(200));
    Mouse(701, 79, 4, 4, True);
    WriteLn('Omfg we coulda die but i think we got away');
  end;
 
  procedure LetsDebug;
  begin
    ClearDebug;
    WriteLn('Thank you for using PieThiever');
    WriteLn('This is Version 0.1');
    WriteLn('Running Time:' + (TimeRunning) + '');
  end;
 
  procedure FindChestAndSearchForTraps;
  begin
    if FindColor(x, y, ChestColor, 0, 0, 500, 500) then
      Wait(1000 + random(3000));
    MMouse(x, y, 2, 2);
    Wait(1000 + random(200));
    if (IsUpText('est')) then
      Mouse(x, y, 3, 3, False);
    Wait(1000 + random(200));
    ChooseOption(x, y, 'aps');
    times := times + 1;
    Wait(4000 + random(1000));
  end;
 
  procedure Report;
  begin
    Writeln('[]-------------------------------------------[]');
    Writeln('Worked For : ' + ScriptTime2(2));
    Writeln('Stole ' + IntToStr(Times) + ' Times');
    Writeln('[]--------------------------------------------[]');
  end;
 
 
begin
  SetupSRL;
  DeclarePlayers;
  repeat
    FindChestAndSearchForTraps;
    FindGas;
    FindRandoms;
  until (times = timestotake);
  report;
  nextplayer(False);
end.

Hugolord

2007-06-16 12:08:06

Very nice we don't have many thievers here at SRL ! nice going pie! :D

kemico2

2007-06-16 16:50:31

Its a great script but there were a few errros and i fixed them for you.

program PieChestThiever;
{.include SRL/SRL.scar}
//Instructions.
//Start at the ardougne house close to the ardougne centre.
//The house is the south one.
//I dont recomend wearing anything on you
var
times : integer;


const
ChestColor = 4808832;//Just leave this alone, its the chest's color it works grat for me.
TimesToTake = 10;//How many times you want to steal from the chest?

Procedure DeclarePlayers;
begin
  HowManyPlayers := 6; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

    //set all user names, passwords and nicks correctly please.

  Players[0].Name := 'UserName';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'ser';
  Players[0].Active := True;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

Function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

///////////////////////////////////////////////////////////////////////////

Procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;


Procedure FindGas;
begin
if FindColor(x,y,2573640,0,0,450,450)then
WriteLn('Omfg we found gas!');
Wait(1000+random(200));
Mouse(701,79,4,4,true);
WriteLn('Omfg we coulda die but i think we got away');
end;

Procedure LetsDebug;
begin
ClearDebug;
WriteLn('Thank you for using PieThiever');
WriteLn('This is Version 0.1');
WriteLn('Running Time:' + (TimeRunning) + '');
end;

Procedure FindChestAndSearchForTraps;
begin
if FindColor(x,y,ChestColor,0,0,500,500)then
Wait(1000+random(3000));
  MMouse(x,y,2,2);
  Wait(1000+random(200));
  if(IsUpText('est'))then
  Mouse(x,y,3,3,false);
  Wait(1000+random(200));
  ChooseOption(x,y,'aps');
  times:= times + 1;
  Wait(4000+random(1000));
end;

begin
SetupSRL;
DeclarePlayers;
repeat
FindChestAndSearchForTraps;
FindGas;
FindRandoms;
until(times=timestotake);
end.

You really need to make it where it has random wait time cause if you wait the excat time every time there is a good chance of you getting banned. Also you ned to add times:= times + 1; so it adds the timesstolen to the times stolen. And on your until you have to add until(times=timestotake)

Ilikepie1995

2007-06-16 22:12:53

aight thanks alot kemiko2

kemico2

2007-06-18 16:14:27

no problem thanks a bunch for giving me a special thanks.

jeffreytuner

2007-06-19 16:21:11

i will try and post proggie i need 53 thieving on my pure

kemico2

2007-06-20 04:46:48

Lol its gona be hard to post a proggie when there isnt one in the scrit. But if you dont mind, Ilikepie1995, i might put one in it.

Ilikepie1995

2007-06-21 09:03:45

Ye sure kemico2, i dont know how to make those really, lol well you can make one, and i will try to learn from it :p .

kemico2

2007-06-21 22:38:34

I didnt add much just a progress report and multiplayer. But progress reports arnt hard at all just go the tutorial section and look up how to do them.

program PieChestThiever;
{.include SRL/SRL.scar}
//Instructions.
//Start at the ardougne house close to the ardougne centre.
//The house is the south one.
//I dont recomend wearing anything on you
var
times : integer;


const
ChestColor = 4808832;//Just leave this alone, its the chest's color it works grat for me.
TimesToTake = 10;//How many times you want to steal from the chest?

Procedure DeclarePlayers;
begin
     HowManyPlayers  :=6;               // Set Number of Players here.
     NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
     CurrentPlayer:=0;        // CurrentPlayer = Array Index

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Loc  :='Loc1';
     Players[0].Skill:='';
     Players[0].Active:=True;

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Loc  :='Loc1';
     Players[1].Skill:='';
     Players[1].Active:=True;

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Loc  :='Loc1';
     Players[2].Skill:='';
     Players[2].Active:=True;

     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Loc  :='Loc1';
     Players[3].Skill:='';
     Players[3].Active:=True;

     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Loc  :='Loc1';
     Players[4].Skill:='';
     Players[4].Active:=True;

     Players[5].Name :='';
     Players[5].Pass :='';
     Players[5].Nick :='';
     Players[5].Loc  :='Loc1';
     Players[5].Skill:='';
     Players[5].Active:=True;

     writeln(inttostr(HowManyPlayers)+' Players');

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

Function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

///////////////////////////////////////////////////////////////////////////

Procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;


Procedure FindGas;
begin
if FindColor(x,y,2573640,0,0,450,450)then
WriteLn('Omfg we found gas!');
Wait(1000+random(200));
Mouse(701,79,4,4,true);
WriteLn('Omfg we coulda die but i think we got away');
end;

Procedure LetsDebug;
begin
ClearDebug;
WriteLn('Thank you for using PieThiever');
WriteLn('This is Version 0.1');
WriteLn('Running Time:' + (TimeRunning) + '');
end;

Procedure FindChestAndSearchForTraps;
begin
if FindColor(x,y,ChestColor,0,0,500,500)then
Wait(1000+random(3000));
  MMouse(x,y,2,2);
  Wait(1000+random(200));
  if(IsUpText('est'))then
  Mouse(x,y,3,3,false);
  Wait(1000+random(200));
  ChooseOption(x,y,'aps');
  times:= times + 1;
  Wait(4000+random(1000));
end;

procedure Report;
begin
  Writeln('[]-------------------------------------------[]');
  Writeln('Worked For : ' + ScriptTime2(2))
  Writeln('Stole '+ IntToStr(Times) + ' Times');
  Writeln('[]--------------------------------------------[]');
end;


begin
SetupSRL;
DeclarePlayers;
repeat
FindChestAndSearchForTraps;
FindGas;
FindRandoms;
until(times=timestotake);
report;
nextplayer(false)
end.

wcmastery

2007-06-22 21:52:04

where is the chest and what lvl u gota be to steal from it?

jeffreytuner

2007-06-23 10:29:34

1 suggestion u need 28 th for the nat chest and 43 th for the coins could u make something that u could choose wich chest u want becuz im only 32 th atm

kemico2

2007-06-24 14:02:44

From: jeffreytuner
1 suggestion u need 28 th for the nat chest and 43 th for the coins could u make something that u could choose wich chest u want becuz im only 32 th atm

Well this is a problem cause the chest look excatly the same. The thing you need to do is to rotate the screen where u can only see the chest you want to steal from.

lolskilla

2007-06-28 10:30:33

i might try this tonight and post a proggie if i do :)

does anyone know how much exp an hour this racks in btw?

axis736

2007-06-28 14:58:14

1 question, does it have antiban?

LordGregGreg

2007-06-29 13:55:01

Standards and semi colons really arent optional,/
here

program PieChestThiever;

  {.include SRL/SRL.scar}
  //Instructions.
  //Start at the ardougne house close to the ardougne centre.
  //The house is the south one.
  //I dont recomend wearing anything on you
var
  times: integer;


const
  ChestColor  = 4808832;//Just leave this alone, its the chest's color it works grat for me.
  TimesToTake = 10;//How many times you want to steal from the chest?

  procedure DeclarePlayers;
  begin
    HowManyPlayers := 6;               // Set Number of Players here.
    NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
    CurrentPlayer := 0;        // CurrentPlayer = Array Index

    Players[0].Name   := '';
    Players[0].Pass   := '';
    Players[0].Nick   := '';
    Players[0].Loc    := 'Loc1';
    Players[0].Skill  := '';
    Players[0].Active := True;

    Players[1].Name   := '';
    Players[1].Pass   := '';
    Players[1].Nick   := '';
    Players[1].Loc    := 'Loc1';
    Players[1].Skill  := '';
    Players[1].Active := True;

    Players[2].Name   := '';
    Players[2].Pass   := '';
    Players[2].Nick   := '';
    Players[2].Loc    := 'Loc1';
    Players[2].Skill  := '';
    Players[2].Active := True;

    Players[3].Name   := '';
    Players[3].Pass   := '';
    Players[3].Nick   := '';
    Players[3].Loc    := 'Loc1';
    Players[3].Skill  := '';
    Players[3].Active := True;

    Players[4].Name   := '';
    Players[4].Pass   := '';
    Players[4].Nick   := '';
    Players[4].Loc    := 'Loc1';
    Players[4].Skill  := '';
    Players[4].Active := True;

    Players[5].Name   := '';
    Players[5].Pass   := '';
    Players[5].Nick   := '';
    Players[5].Loc    := 'Loc1';
    Players[5].Skill  := '';
    Players[5].Active := True;

    writeln(IntToStr(HowManyPlayers) + ' Players');

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  end;

  function FindFastRandoms: boolean; //By WT-Fakawi.
  var
    i: integer;
  begin
    for i := 1 to 8 do
    begin
      case I of
        1:
          if FindDead then
            Result := True;
        2:
          if FindMod then
            Result := True;
        3:
          if FindMime then
            Result := True;
        4:
          if FindMaze then
            Result := True;
        5:
          if FindQuiz then
            Result := True;
        6:
          if FindDemon then
            Result := True;
        7:
        begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
        7:
        begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
        8:
          RC;
      end;
      wait(1);
    end;
  end;

  ///////////////////////////////////////////////////////////////////////////

  procedure FindRandoms;
  begin
    FindFastRandoms;
    FindNormalRandoms;
  end;


  procedure FindGas;
  begin
    if FindColor(x, y, 2573640, 0, 0, 450, 450) then
      WriteLn('Omfg we found gas!');
    Wait(1000 + random(200));
    Mouse(701, 79, 4, 4, True);
    WriteLn('Omfg we coulda die but i think we got away');
  end;

  procedure LetsDebug;
  begin
    ClearDebug;
    WriteLn('Thank you for using PieThiever');
    WriteLn('This is Version 0.1');
    WriteLn('Running Time:' + (TimeRunning) + '');
  end;

  procedure FindChestAndSearchForTraps;
  begin
    if FindColor(x, y, ChestColor, 0, 0, 500, 500) then
      Wait(1000 + random(3000));
    MMouse(x, y, 2, 2);
    Wait(1000 + random(200));
    if (IsUpText('est')) then
      Mouse(x, y, 3, 3, False);
    Wait(1000 + random(200));
    ChooseOption(x, y, 'aps');
    times := times + 1;
    Wait(4000 + random(1000));
  end;

  procedure Report;
  begin
    Writeln('[]-------------------------------------------[]');
    Writeln('Worked For : ' + ScriptTime2(2));
    Writeln('Stole ' + IntToStr(Times) + ' Times');
    Writeln('[]--------------------------------------------[]');
  end;


begin
  SetupSRL;
  DeclarePlayers;
  repeat
    FindChestAndSearchForTraps;
    FindGas;
    FindRandoms;
  until (times = timestotake);
  report;
  nextplayer(False);
end.

steveinater

2007-10-08 11:45:50

this looks realy nice, but i keep getting the error:


[Error] (14803:14): Unknown identifier 'x'

Ilikepie1995

2007-10-08 11:56:02

Under Var Add:
x,y: Integer;

That Should Fix It

steveinater

2007-10-08 12:28:58

thx that worked but now it comes up with this error:


[Error] (14793:24): Invalid number of parameters in script

mat_de_b

2007-10-13 20:44:35

Dont use this script, just looked at the coding. it wont work…

NiCbaZ

2007-10-19 07:33:25

short n sweet i like it :p

wuzbob

2007-10-27 17:21:43

ironically hilarious that the maker of the pie thiever is ilikePIE lmfao

fbswift

2007-10-27 21:02:17

i think its hilarious that you think it steals pies from chests whereas your told in the thread that the chests contain coins and nature runes, either that or you find it funny that he named his script after himself…