Simba Code:
//-------------------------------//
// ChaosBones //
// V1.0 //
// by Phury //
//-------------------------------//
// Start script at the chaos alter in the wilderness
// Make sure to check every now and then for random events!
// Enter your user and pass below
// And if script is failing to pick up any bones
// Enter a custom bone color below too.
// Enjoy the script.
program chaosPrayerTrainer;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
var x,y,bonesFloor,bonesInv,xt,yt,buriedBones,boneCount : Integer;
const
// PLEASE ENTER YOUR USER AND PASS HERE
playerUsername = '';
playerPassword = '';
// THE BRIGHTEST COLOR OF BONES ON THE GROUND
// ONLY CHANGE IF SCRIPT DONT WORK
boneGround = 14145500;
runIsOn = 1777019;
procedure setup;
begin
buriedBones := 0;
bonesInv := DTMFromString('mQwAAAHicY2ZgYJjNxMCwAIgnA/FTIP8FED8G4uWzZwFJRoYNS5YwsAJZMMyIhIEAAG7VCG8=');
end;
procedure P07_DeclarePlayers;
begin
P07_PlayerName := playerUsername
P07_PlayerPass := playerPassword;
end;
Procedure turnRunOn; // Credit to blockay for this procedure
// blockay - [url]http://villavu.com/forum/member.php?u=114605[/url]
begin
if P07_LoggedIn then
begin
P07_MouseBox(665, 470, 686, 493, 3);
Wait(RandomRange(400,500));
ClickMouse2(Mouse_Left);
If (Not FindColorTolerance(x,y,runIsOn,625,413,658,447, 4)) Then
begin
P07_Mousebox(625, 413, 658, 447, 3);
Wait(RandomRange(200, 350));
ClickMouse2(Mouse_Left);
Wait(RandomRange(200, 350));
P07_TabInventoryTab(4);
//z := (z + 1);
end
else
If FindColorTolerance(x,y,runIsOn,625,413,658,447, 4) Then
begin
P07_TabInventoryTab(4);
// z := (z + 1);
end;
end;
end;
procedure checkLava;
begin
if FindColoredAreaTolerance(x,y,2481403,317,127,337,147,5,15) then
begin
wait(2000);
Mouse(601,121,3,3,true);
wait(8000);
end;
end;
procedure tryAndTakeABone;
begin
if P07_FindObjCustom(x,y, ['ake'], [boneGround], 5) then
begin
Mmouse(x,y,1,1);
sleep(400);
if P07_IsUpTextMultiCustom(['ake']) then
begin
Mouse(x,y,1,1,true);
boneCount := boneCount + 1;
end;
end;
end;
procedure showProggy;
begin
Writeln('--------------------------------------------------');
Writeln(' ChaosBones 1.0 by Phury ');
Writeln('--------------------------------------------------');
Writeln('Bones buried: ' + intToStr(buriedBones));
Writeln('Exp gained: ' + intToStr(buriedBones*4));
Writeln(' ');
Writeln(' ');
Writeln(' ');
Writeln(' ');
end;
procedure buryAll;
var repeatCounter :Integer;
begin
repeatCounter := 0;
FindDTM(bonesInv,x,y,559, 214,726, 463);
repeat
Mouse(x,y,3,3,true);
sleep(2000);
repeatCounter := repeatCounter + 1;
buriedBones := buriedBones + 1;
showProggy;
until(FindDTM(bonesInv,x,y,559, 214,726, 463) = false);
turnRunOn;
end;
procedure boneReset;
begin
if boneCount <> 0 then
boneCount := 0;
end;
begin
P07_DeclarePlayers;
SetUpSRL;
SetupP07Include;
setup;
sleep(2000);
if(not P07_LoggedIn) then
begin
P07_LogInPlayer;
turnRunOn;
P07_MakeCameraAngleHigh;
P07_MakeCompassNorth;
end;
P07_MakeCompassNorth;
P07_MakeCameraAngleHigh;
Mouse(645,185,2,2,true);
turnRunOn;
repeat
if(not P07_LoggedIn) then
begin
P07_LogInPlayer;
turnRunOn;
P07_MakeCameraAngleHigh;
P07_MakeCompassNorth;
end;
sleep(2000);
showProggy;
tryAndTakeABone;
checkLava;
if boneCount > 11 then begin
wait(2500);
buryAll;
boneReset;
end;
until(false)
end.