WhoCares357
2009-04-27 02:03:26
Cast won't click the actual spell for myself (and a few other people). It just MMouse over the spell.
program New;
{.Include SRL\SRL.SCAR}
{.include SRL/SRL/Skill/Magic.scar}
var
x, y: Integer;
const
Username = '';
Password = '';
Nickname = '';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Username;
Players[0].Pass := Password;
Players[0].Nick := Nickname;
Players[0].Active:= true;
end;
begin
SetupSRL;
DeclarePlayers;
Wait(300 + random(500));
ActivateClient;
LoginPlayer;
Wait(1000 + random(100));
Cast('high level alchemy');
{ Wait(10 + random(20));
GetMousePos(x, y);
Wait(50 + random(100));
Mouse(x, y, 0, 0, true); }
end.