Simba Code:
program HazzahDhideBodyCrafter;
{$DEFINE SMART}
{$Define Crashsmart}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
var
dhideDTM,dhideDTM2,TimeToWait,needleDTM,dhidebodyDTM:Integer;
procedure Setup;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
Setup;
LoginPlayer;
end;
procedure SetDTM;
begin
dhidebodyDTM := DTMFromString('mfgEAAHicrcxbCoAwDETRtB8KPqFF8bFLQVy+3uIIgp82cAidJglm1mLFiAWTDIhoUKKAs7tS98pqdJp7ZtI76C/o3qwelfWotONft499U/LPaXnKZfKtC1JXBHA=');
dhideDTM := DTMFromString('maQEAAHicrcyxCkBwEMfx8x9l8QKegpLFQAkpXp4UAwYGBp7At9xm5Fef+91wnSsiiRGJzdMNSmSoUWnnSPUuhI9A9wgLf1o1okeHGTtWnLi0D2yYMOi97RRM84kn32P94JUbjewUZw==');
needleDTM := DTMFromString('m1gAAAHic42JgYOBnZGAQAWJ2IOYBYkkgFoeKCTFC5HmB+CQQ7wXiS1D2ViDeDcSHgPg4EJ+BynW1NANNZWJgY2MD07jwfwbiACORGAEAXTgLOw==');
dhideDTM2 := DTMFromString('mkwEAAHicrc5JCoAwFIPh5zxQp4qI6IG8/4X0L0R04U4D36K0CR3NrENid2KkyFHBYdC7ERNmLFixPWTaCP1S3Ra9Nrw2Ll53DWoU6kbh7Hb95rvD/kv0o5ecvKcDng==');
end;
procedure FreeingDTMs;
begin
FreeDTM(dhideDTM);
FreeDTM(needleDTM);
freeDTM(dhidebodyDTM);
freeDTM(dhideDTM2);
end;
procedure WithdrawDhide;
var
x,y:integer;
begin
SetAngle(SRL_ANGLE_HIGH);
OpenBankChestEdge(SRL_BANK_SW);
repeat
wait(500);
until(PinScreen or BankScreen);
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
wait(RandomRange(900,1100));
end;
if BankScreen then
begin
wait(RandomRange(400,600));
MouseItem(RandomRange(1,9),mouse_Right);
wait(RandomRange(400,600));
ChooseOption('27');
if FindDTM(dhideDTM2,x,y,MSX1,MSY1,MSX2,MSY2) then
begin
Mouse(RandomRange(440,460), RandomRange(230,250),0,0,False);
wait(RandomRange(800,1000));
ChooseOption('27');
wait(RandomRange(800,1000));
CloseBank;
end;
end;
end;
procedure CraftingBodies;
var
x,y:integer;
begin
if FindDTM(dhideDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
wait(RandomRange(300,700));
Mouse(RandomRange(570,585), RandomRange(220,240), 0,0,True);
end;
wait(RandomRange(1300,1500));
if FindDTM(needleDTM,x,y,MCX1,MCY1,MCX2,MCY2) then
begin
Mouse(RandomRange(240,265),RandomRange(410,425), 0,0,True);
wait(RandomRange(800,2200));
end;
if FindDTM(dhidebodyDTM,x,y,MCX1,MCY1,MCX2,MCY2) then
begin
Mouse(RandomRange(120,200),RandomRange(400,460),0,0,True);
TimeToWait := RandomRange(14500,15000);
end;
case Random(60) of
1: SetAngle(SRL_ANGLE_LOW);
2: SetAngle(SRL_ANGLE_HIGH);
3: begin
HoverSkill('Random', False);
wait(RandomRange(100,1000));
GameTab(TAB_INV);
end;
4: RandomMovement;
5: BoredHuman;
6: ExamineInv;
7:begin
HoverSkill(Skill_Crafting, False);
wait(RandomRange(100,1000));
GameTab(TAB_INV);
end;
8:begin
GameTab(TAB_QUEST);
wait(RandomRange(100,1000));
GameTab(TAB_INV);
end;
9: begin
HoverSkill('Random', False);
wait(RandomRange(100,1000));
GameTab(TAB_INV);
end;
10:begin
HoverSkill('Random', False);
wait(RandomRange(100,1000));
GameTab(TAB_INV);
end;
11:begin
HoverSkill('Random', False);
wait(RandomRange(100,1000));
GameTab(TAB_INV);
end;
end;
wait(TimeToWait);
end;
begin
SetupLogin;
SetupSRL;
Setup;
LoginPlayer;
SetDTM;
ActivateClient;
ClearDebug;
repeat
WithdrawDhide;
CraftingBodies;
until(false);
FreeingDTMs;
end.