Code:
{$i AeroLib/AeroLib.Simba}
var
aFound: Extended;
item_overload: TItem;
obj_prayericon : TItem;
item_Absorb : TItem;
item_cake : TItem;
minimap : TBox;
invbox1 : TBox;
phealth : Integer;
absorbtimer : Integer;
procedure flicpray;
var
pnt : TPoint;
x ,y : Integer;
begin
if findBlackChatMessage('wake up feeling') then
begin
logoutPlayer();
terminateScript();
end;
{writeln('Checking Health');
if (getCurrentHealth() >= 2) then
begin
if item_cake.findIn(invbox1,pnt) then
begin
flicpray;
Writeln('Found Cake');
humanMMouse(pnt,2,2);
wait(500+random(300));
ClickMouse(x,y,mouse_Right);
wait(100+random(100));
chooseOption('Guzzle')
end;
end; }
writeln('Flic prayer');
if (getCurrentHealth() <= 2) then
begin
pnt := [557,95];
humanMMouse(pnt,5,5);
wait(50+random(20));
ClickMouse(x,y,mouse_Left);
wait(400+random(100));
ClickMouse(x,y,mouse_Left);
end
end;
procedure drinkoverload;
var
pnt : TPoint;
x ,y : Integer;
begin
writeln('Drinking overload');
if item_overload.findIn(invbox1,pnt) then
begin
humanMMouse(pnt,2,2);
wait(50+random(20));
ClickMouse(x,y,mouse_Left);
wait(100+random(20));
flicpray;
end
end
procedure drinkabsorb;
var
pnt : TPoint;
i,x ,y : Integer;
begin
writeln('Drinking Absorb');
for i:=1 to 200 do
begin
if item_absorb.findIn(invbox1,pnt) then
begin
humanMMouse(pnt,2,2);
wait(50+random(20));
ClickMouse(x,y,mouse_Left);
wait(100+random(20));
absorbtimer := 0;
if findBlackChatMessage('any more') then
exit;
end;
if not item_absorb.findIn(invbox1,pnt) then
exit;
end
end;
procedure createItems;
begin
item_overload.Name := 'Overload';
obj_prayericon.Name := 'prayer';
item_cake.Name := 'Dwarven rock cake';
item_absorb.Name := 'Absorb';
item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAAaUMIOQ==');
obj_prayericon.DTM := DTMFromString('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMjCcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAwAAAq6QtA');
item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfgEUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFmVkYOAHYj4g5gBidiBev2s/UDUjClYEkuiYEQsGAwA64wRz');
end;
procedure startafk;
var
prayflictimer : Integer;
begin
repeat
begin
if findBlackChatMessage('wake up feeling') then
begin
logoutPlayer();
terminateScript();
end;
prayflictimer := 0;
repeat
begin
mouseSpeed := Random(16, 28);
flicpray;
wait(45000+random(5000));
Inc(absorbtimer);
end
until (getCurrentHealth() >= 20);
flicpray;
drinkoverload;
if (absorbtimer > 17) then
begin
drinkabsorb;
end
wait(8000+random(300));
end
until (false);
end;
{
procedure antiban();
var
rand: Integer;
what: String
begin
if (random(0, 30) = 0) then
begin
rand := random(0, 71);
case rand of
0..45:
begin
if (pointInBox(getMousePnt(), intToBox(1, 1, 765, 500))) then
MMouseOffClient('random');
what := 'mouse off client';
end;
46..51:
begin
compassMovement(30, 170, false);
what := 'compass movement';
end;
52..57:
begin
hoverSkill(SKILL_COOKING, false);
what := 'hovering skill';
end;
58..70:
begin
pickUpMouse;
what := 'pick up mouse';
end;
end;
writeln('last antiban on: ' + mstoTime(getTimeRunning, 3) + ' ' + what);
end;
end; }
procedure setupplayer;
var
pnt : TPoint;
x ,y : Integer;
counter : Integer;
begin
if item_overload.findIn(invbox1,pnt) then
begin
Writeln('Found Overload');
humanMMouse(pnt,2,2);
wait(500+random(300));
ClickMouse(x,y,mouse_Left);
wait(100+random(100));
end
wait(500+random(300));
flicpray;
repeat
if item_absorb.findIn(invbox1,pnt) then
begin
Writeln('Found Absorb');
humanMMouse(pnt,2,2);
wait(500+random(300));
ClickMouse(x,y,mouse_Left);
wait(500+random(100));
Inc(Counter);
end
until (counter = 20)
end
procedure eatcake;
var
pnt : TPoint;
x ,y : Integer;
counter : Integer;
begin
repeat
if item_cake.findIn(invbox1,pnt) then
begin
flicpray;
Writeln('Found Cake');
humanMMouse(pnt,2,2);
wait(500+random(300));
ClickMouse(x,y,mouse_Right);
wait(100+random(100));
chooseOption('Guzzle')
end
until (getCurrentHealth() <= 70)
repeat
if item_cake.findIn(invbox1,pnt) then
begin
humanMMouse(pnt,2,2);
wait(500+random(300));
ClickMouse(x,y,mouse_Left);
wait(900+random(300));
end
until (getCurrentHealth() < 52)
end
procedure mainLoop;
begin
eatcake;
setupplayer;
flicpray;
//antiban;
startafk;
if findBlackChatMessage('wake up feeling') then
begin
logoutPlayer();
terminateScript();
end;
end
begin
initAL;
minimap := ToBox(500, 91, 600, 130);
invbox1 := ToBox(550, 208, 735, 465);
createitems;
mouseSpeed := Random(16, 28);
mainLoop;
end;