SRL Archive - General

Could anyone translate this into something scar would recognise? im unsure what its even written in :( Thanks for the help guys :)
~Brandon

; Script Start - Add your code below here

Sleep(5000)
WinActivate("Guild Wars")
Call("main")

func main()
Call("infuseposition")
Call("dead???")
EndFunc



func dead???()
If PixelGetColor(299, 698) = 4792088 Then
Call("dead!!!")
EndIf
EndFunc



func dead!!!()
Send("{ENTER}")
sleep(200)
Send("<—-rezzing fast")
sleep(200)
Send("{ENTER}")
call("main")
EndFunc


func infuse()
send("4")
If PixelGetColor(568, 699) = 5670578 Then
Call("energy")
endif
EndFunc


func energy()
send("f")
sleep(100)
send("2") <–to self heal after that infuse (for ask)
call("main")
endfunc






func infuseposition()
If PixelGetColor(439, 24) = 3741459 Then
Call("infuse")
EndIf
EndFunc

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.

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.

Just wonderin freddy, whats the Forward keyword all about?

Thank you Freddy :D yeah the original author didnt specify what it was written in :(

what it for btw?

From: ~alex~
Just wonderin freddy, whats the Forward keyword all about?

It forwards a function so functions below the forward, but above the actual function can also use it…

From: hugolord
what it for btw?

Tbo i cant recall lol. what ever it was didn't work :(
not many scripts floating around for Conquer Online
oh what was it for? a game Called Conquer Online :D