SCAR Code:
program ProgramName;
{.include SRL/SRL.scar}
{.Include SRL/SRL/Skill/Mining.Scar}
{.include srl/srl/misc/Reports.scar}
Procedure DeclarePlayers;
begin
HowManyPlayers := 3;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //sern
Players[0].Active := true; //leave it
Players[1].Name := ''; //Username
Players[1].Pass := ''; //Password
Players[1].Nick := ''; //sern
Players[1].Active := true; //leave it
Players[2].Name := ''; //Username
Players[2].Pass := ''; //Password
Players[2].Nick := ''; //sern
Players[2].Active := true; //leave it
end;
procedure DropAllExcept(W : Array of Integer);
var i: Integer;
begin
For I:=1 To 28 Do
if not(InIntArray(w, i)) then
DropItem(i);
end;
procedure DropingOre;
begin
Disguise('Droping ores');
DropAllExcept([1]);
end;
procedure mineOre;
var X, Y: Integer;
begin
if FindColorSpiral(X, Y, 2437713, MSX1, MSY1, MSX2, MSY2) then
begin
Disguise('mining ore');
mmouse( x, y, 5, 5);
wait(200+random(360));
if isuptext('ine') then
begin
GetMousePos(X, Y);
Wait(70+random(150));
Mouse(X, Y, 5, 5, True);
Wait(500+random(1350));
end;
end;
end;
Procedure findShop;
var x, y: integer;
Begin
if FindSymbol(x, y, 'store') then
begin
Mouse(X, Y, 5, 5, True);
WriteLn('FindStoreSymbol. - Complete.');
FFlag(0);
end else
if not FindSymbol(x, y, 'store') then
begin
if FindSymbol(x, y, 'water') then
begin
Mouse(X, Y, 5, 5, True);
FFlag(0);
if FindSymbol(x, y, 'store') then
begin
Mouse(X, Y, 5, 5, True);
WriteLn('FindStoreSymbol. - Complete.');
FFlag(0);
end;
end else
if not FindSymbol(x, y, 'water') then
begin
if FindSymbol(x, y, 'portal') then
begin
Mouse(X, Y, 5, 5, True);
FFlag(0);
if FindSymbol(x, y, 'store') then
begin
Mouse(X, Y, 5, 5, True);
WriteLn('FindStoreSymbol. - Complete.');
FFlag(0);
end;
end else
if not FindSymbol(x, y, 'portal') then
begin
WriteLn('You are lost.');
NextPlayer(False);
Exit;
end;
end;
end;
end;
Procedure actionByThePlayerInt;//this procedure should choose action for current player.
Begin
end;
Procedure MainLoop;
Begin
actionByThePlayerInt;
end;
//-----
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
ClearDebug;
MainLoop;
end.
So i wanna ask how i can do different procedure for each player.