This is the best I can do without knowing what it was made in, I'm just trusting my skills so I'm not 100% sure it'll work in the same way.
SCAR Code:
program GuildWars;
procedure Main; forward;
procedure DeadE;
begin
SendKeys(Chr(13));
Wait(200);
SendKeys('<----rezzing fast');
Wait(200);
SendKeys(Chr(13));
Main;
end;
procedure DeadQ;
begin
if (GetColor(299, 698) = 4792088) then
DeadE;
end;
procedure Energy;
begin
SendKeys('f');
Wait(100);
SendKeys('2'); //<-- to self heal after that infuse (for ask)
Main;
end;
procedure Infuse;
begin
SendKeys('4');
if (GetColor(568, 699) = 5670578) then
Energy;
end;
procedure InfusePosition;
begin
if (GetColor(439, 24) = 3741459) then
InFuse;
end;
procedure Main;
begin
InfusePosition;
DeadQ;
end;
begin
Wait(5000);
if FindWindow('Guild Wars') then
begin
ActivateClient;
Main;
end;
end.