Davi
2015-05-15 10:12:15
program Test;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
{$i reflection/Reflection.simba}
var
found : boolean;
reflectPlayer : TReflectLocalPlayer;
begin
initAL();
reflect.Setup;
reflectPlayer.UserName := 'UN';
reflectPlayer.Password := 'pass'; // I have tried replacing this with reflectPlayer.create; same result.
reflectPlayer.Active := True;
reflectPlayer.Login;
writeln(intToStr(reflectPlayer.GetHealth)); // gives 0
repeat
OS_Smart.__Graphics.Clear;
OS_Smart.__Graphics.DrawClippedText(intToStr(reflectPlayer.GetAnimation), 'SmallChars', point(260,150), clWhite); //Always -1
wait(500);
until(found);
end.