Simba Code:
program NightmareZone;
{$i AeroLib/AeroLib.Simba}
var
item_cake, item_overload, item_absorb : TItem;
invbox1, minimap : TBox;
procedure createItems;
begin
item_cake.Name := 'Dwarven rock cake';
item_overload.Name := 'Overload';
item_absorb.Name := 'Absorb';
item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfgEUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAAaUMIOQ==');
item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFmVkYOAHYj4g5gBidiBev2s/UDUjClYEkuiYEQsGAwA64wRz');
end;
procedure eatcake;
var
pnt : TPoint;
x, y : Integer;
begin
if item_cake.findIn(invbox1, pnt) then
begin
Writeln('Guzzling the Cake');
humanMMouse(pnt, 2, 2);
wait(random(100, 300));
ClickMouse(x, y, mouse_right);
wait(random(200, 400));
chooseOption('Guzzle');
end;
end;
procedure flickprayer;
var
pnt : TPoint;
x, y : Integer;
begin
writeln('Flicking Prayer');
pnt := [555, 95];
humanMMouse(pnt, 10, 10);
wait(random(100, 300));
ClickMouse(x, y, mouse_left);
wait(random(200, 500));
ClickMouse(x, y, mouse_left);
end;
procedure drinkoverload;
var
pnt : TPoint;
x, y : Integer;
begin
if item_overload.findIN(invbox1, pnt) then
begin
writeln('Drinking Overload');
humanMMouse(pnt, 2, 2);
wait(random(100, 150));
ClickMouse(x, y, mouse_Left);
wait(random(100, 150));
if (getCurrentHealth() > 11) then
{begin
writeln('Flicking Protect From Melee');
togglePrayer('Protect From Melee', true);
wait(random(300, 550));
repeat
begin
ClickMouse(x, y, Mouse_left);
wait(random(300, 550));
end;
until (getCurrentHealth() = 1);
end;
wait(random(300,600));
togglePrayer('Protect From Melee', false);}
repeat
begin
wait(100);
end;
until (getCurrentHealth() = 1)
end;
end;
procedure drinkabsorb;
var
pnt : TPoint;
x, y : Integer;
begin
if item_absorb.findIn(invbox1, pnt) then
begin
writeln('Drinking Absorbtion');
humanMMouse(pnt, 2, 2);
wait(random(100, 200));
ClickMouse(x, y,mouse_left);
wait(random(200, 300));
end;
end;
procedure antiban;
var
rand : Integer;
begin
if (random(0, 4) = 0) then
begin
rand := random(0, 70);
case rand of
0..45:
begin
if (pointInBox(getMousePnt(), intToBox(1, 1, 765, 500))) then
MMouseOffClient('random');
end;
46..51:
begin
compassMovement(0, 360, false);
end;
52..70:
begin
pickUpMouse;
end;
end;
end;
end;
procedure afk;
var
flick, absorb : Integer;
pnt : TPoint;
begin
flickprayer;
repeat
if (getCurrentHealth() >= 60) then
begin
logoutplayer();
terminatescript();
end
else if (getCurrentHealth() >= 51) AND (item_overload.findIN(invbox1, pnt)) then
begin
drinkoverload();
{gameTab(TAB_INV);}
antiban();
end
else if (getCurrentHealth() >= 2) AND (getCurrentHealth() <= 59) then
begin
repeat
eatcake();
until (getCurrentHealth() = 1)
end
else if (flick = 20) then
begin
flickprayer();
flick := 0;
antiban();
end
else if (absorb = (random(150, 180))) then
begin
drinkabsorb();
absorb := 0;
antiban();
end
else
begin
wait(random(1500, 3000));
Inc(flick);
Inc(absorb);
end
until (getCurrentHealth() >= 60)
end;
begin
initAL;
minimap := ToBox(500, 91, 600, 31);
invbox1 := ToBox(550, 208, 735, 465);
mouseSpeed := Random (18, 30);
createitems;
afk;
end;