Artski
2013-04-17 04:30:32
Any help?
program MTAARENA;
{$DEFINE SMART8}
{$i SRL-OSR/Srl.simba}
{$i SRL-OSR\SRL\skill\magic.simba} //Editted version I found that was made for osr
{$i sps/sps-osr.simba} //Tried to Add walking but didn'really want to work :(
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
End;
Procedure PickupCubes;
var x, y: integer;
begin repeat
if FindObj(x, y, 'ake-from', 2921394, 10) then
begin
Mouse(x, y, 0, 0, true);
ChooseOption('ake-from');
wait(500+random(200));
end;Until (invfull)
end;
Procedure CastEnchant;
var count :integer ;
begin repeat
castspell('37');
wait(800+random(200))
InvMouse(28,1)
count := count + 1
Until count=25
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Pickupcubes;
castenchant;
end.