Raskolnikov
2007-12-01 01:15:36
I have a script that will (hopefully) steal from every stall and will drop it. Has multi-player and srl-stats. Please inform me of any bugs that you encounter. Please also post proggies!
Edit: bug changed!
Thanks,
Cut em2 it
Edit: bug changed!
program PowerTheif;
{.include SRL/SRL.scar}
var HowLoads: integer;
YourSRLId, YourSRLPass: string;
procedure DeclarePlayers;
begin
YourSRLId := '';
YourSRLPass := '';
HowManyPlayers:=2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name:='';
Players[0].Pass:='';
Players[0].Loc:='';
Players[0].Integers[0]:=2;
Players[0].Active:=True;
Players[1].Name:='';
Players[1].Pass:='';
Players[1].Loc:='';
Players[1].Integers[0]:=2;
Players[1].Active:=True;
Players[2].Name:='';
Players[2].Pass:='';
Players[2].Loc:='';
Players[2].Integers[0]:=2;
Players[2].Active:=True;
end;
procedure Progress;
begin
Writeln('Player '+ IntToStr(CurrentPlayer) +' has finished correct amount of loads.');
Writeln('This player is in '+ Players[CurrentPlayer].Loc +'.');
end;
function NextPlayerYet: Boolean;
begin
if (HowLoads=Players[CurrentPlayer].Integers[0]) then
begin
Result:=True;
NextPlayer(False);
HowLoads:=0;
MakeCompass('N');
end;
if not LoggedIn then
begin
LoginPlayer;
MakeCompass('N');
end;
end;
procedure AntiBanCut;
begin
case 4 of
1: TypeSend('Woot I love theiving!');
2: TypeSend('Lvls?');
3: TypeSend('I love runescape!!!');
end;
end;
procedure Stall;
var x, y, TimeIt: integer;
begin
repeat
MarkTime(TimeIt);
if not LoggedIn then Exit;
if not FindObjCustom(x, y, ['Steal', '-from'], [8822959, 1063502], 4) or (TimeFromMark(TimeIt) > 120000) then
begin
NextPlayer(False);
end else
begin
Players[CurrentPlayer].Loc:='Stall';
FindTalk;
FindNormalRandoms;
FindNonInventoryRandoms;
Mouse(x, y, 1, 1, true);
AntiBanCut;
Wait(3000+random(125));
ReportVars[0]:=1;
end;
until(InvFull);
end;
procedure DropIt;
begin
if not LoggedIn then Exit;
FindTalk;
FindNormalRandoms;
FindNonInventoryRandoms;
AntiBanCut;
DropAll;
end;
procedure ScriptTerminate;
begin
Progress;
SendSRLReport;
SRLRandomsReport;
end;
begin
SetupSRL;
DeclarePlayers;
YourSRLId := SRLID;
YourSRLPass := SRLPassword;
ScriptId:='497';
ActivateClient;
Wait(1000);
repeat
Stall;
DropIt;
HowLoads:=HowLoads+1;
if NextPlayerYet then
begin
Progress;
SendSRLReport;
SRLRandomsReport;
end;
until( False )
end.
Thanks,
Cut em2 it