Code:
program SFrame;
var
enemy : Boolean;
quit : Boolean;
x : Integer;
y : Integer;
CurrentX : Integer;
CurrentY : Integer;
const
//Color Codes
pethealth1 = 592398;
pethealth2 = 592142;
pethealth3 = 5003500;
pethealth4 = 2368725;
myhealth1 = 3028290;
myhealth2 = 3028547;
myhealth3 = 1645772;
myhealth4 = 1711565;
enemyhealth1 = 2040789;
enemyhealth2 = 2959842;
enemyhealth3 = 3222759;
enemyhealth4 = 1974222;
enemyhealth5 = 5065963;
enemyhealth6 = 1974219;
enemyfound = 4752799;
//Window Scanning
//Position Codes - Assuming resolution of 1280x1024
xt = 10;
yt = 40;
xb = 1276;
yb = 996;
//Health Bar
HxTop = 166;
HyTop = 940;
HxBot = 336;
HyBot = 947;
//Mana Bar
MxTop = 166;
MyTop = 960;
MxBot = 336;
MyBot = 967;
//Enemy Health
xtEC = 580;
ytEC = 50;
xbEC = 780;
ybEC = 90;
//Pet Health
PxTop = 203;
PyTop = 913;
PxBot = 300;
PyBot = 915;
//Tolerance
Tol = 100;
procedure pInitialize;
begin
quit := False;
enemy := False;
Wait(1000);
end;
Procedure pLookAround;
begin
MoveWindMouseEx(700,380,1,1,10);
Wait(20+random(10)-random(10));
GetMousePos(CurrentX,CurrentY);
HoldMouse(CurrentX,CurrentY,false);
Wait(100+random(10)-random(10));
MoveMouse(350+random(10)-random(10),380);
Wait(200+random(10)-random(10));
GetMousePos(CurrentX,CurrentY);
ReleaseMouse(CurrentX,CurrentY,false);
Wait(800+random(50)-random(50));
end;
procedure pTarget;
begin
Wait(10 + random(10));
SendKeysVB('=',false);
Wait(100 + random(50));
If(FindColorTolerance(x,y,enemyhealth1,PxTop,PyTop,PxBot,PyBot,Tol) OR
FindColorTolerance(x,y,enemyhealth2,PxTop,PyTop,PxBot,PyBot,Tol))Then
begin
enemy:=True;
end
end;
procedure pBuff;
begin
Wait(10 + random(50));
KeyDown(17);
Wait(10 + random(10));
SendKeysSilent('1');
Wait(10 + random(10));
KeyUp(17);
Wait(1000 + random(50));
KeyDown(17);
Wait(10 + random(10));
SendKeysSilent('2');
Wait(10 + random(10));
KeyUp(17);
Wait(1000 + random(10));
KeyDown(17);
Wait(10 + random(10));
SendKeysSilent('3');
Wait(10 + random(10));
KeyUp(17);
Wait(1000 + random(10));
KeyDown(16);
Wait(10 + random(10));
SendKeysSilent('5');
Wait(10 + random(10));
KeyUp(16);
Wait(1000 + random(10));
end;
procedure pPetHealing;
begin
Wait(10 + random(10));
KeyDown(16);
Wait(10 + random(10));
SendKeysSilent('3');
Wait(10 + random(10));
KeyUp(16);
Wait(1100 + random(10));
end;
procedure pRest;
begin
SendKeysWait(',',22000,50);
SendKeysWait(',',2000,50);
end;
procedure pAttack;
begin
//Set Pet to Attack
Wait(10 + random(10));
KeyDown(18);
Wait(10 + random(10));
SendKeysSilent('1');
Wait(10 + random(10));
KeyUp(18);
Wait(2000 + random(50));
//Run and Attack
SendKeysWait('c',2000,100);
//Start Casting
KeyDown(16);
Wait(10 + random(10));
SendKeysSilent('2');
Wait(10 + random(10));
KeyUp(16);
Wait(2200 + random(50));
SendKeysWait('1',2000,100);
KeyDown(16);
Wait(10 + random(10));
SendKeysSilent('1');
Wait(10 + random(10));
KeyUp(16);
Wait(2000 + random(50));
KeyDown(16);
Wait(10 + random(10));
SendKeysSilent('4');
Wait(10 + random(10));
KeyUp(16);
Wait(1600 + random(10));
SendKeysWait('2',2000,100);
SendKeysWait('3',3000,100);
SendKeysWait('4',2000,100);
SendKeysWait('4',2000,100);
Wait(3000 + random(50));
KeyDown(16);
Wait(10 + random(10));
SendKeysSilent('2');
Wait(10 + random(10));
KeyUp(16);
Wait(2000 + random(50));
KeyDown(16);
Wait(10 + random(10));
SendKeysSilent('1');
Wait(10 + random(10));
KeyUp(16);
Wait(1000 + random(50));
SendKeysWait('c',2000,100);
SendKeysWait('2',2000,100);
If((FindColorTolerance(x,y,enemyhealth1,PxTop,PyTop,PxBot,PyBot,Tol) OR
FindColorTolerance(x,y,enemyhealth2,PxTop,PyTop,PxBot,PyBot,Tol))=False)Then
begin
enemy:=False;
end
end;
procedure pLoot;
begin
SendKeysWait('-',1000,50);
ClickWindMouse(321,457,2,2,True);
Wait(1000);
end;
begin
pInitialize;
repeat
pBuff;
while(enemy=False) Do
begin
pLookAround;
pTarget;
end;
while(enemy=True) Do
begin
pAttack;
end;
pLoot;
pPetHealing;
pRest;
until(quit)
end.