Just a thought, to get rid of the long if statement;
Simba Code:
procedure BirdieNest;
var
Items: TGroundItemArray;
TempMS: TPoint;
iPad: Integer;
begin
if Players[CurrentPlayer].Member = False then
Exit;
if not LoggedIn then
Exit;
if Random(2) = 0 then // Don't need it every time.
Exit;
Items := GetItemsNear(3);
if GetArrayLength(Items) > 0 then
begin
for iPad := 0 to high(items) do // Make this more efficient later.
case items[iPad].ID of
5077 .. 5078, 7413, 11966: begin
TempMS := TileToMSEx(Items[iPad].Tile, 0.5, 0.5, 0);
Mouse(TempMS.X, TempMS.Y, 5, 5, false);
if R_WaitOption('Bird', 1000) then
begin
WriteLn('Got birds nest!');
stats_IncVariable('Bird Nest',1);
Inc(BirdieGlobal);
end
else
WriteLn('Failed to grab nest. sadfrog.');
R_FFlag(0);
Wait(500+Random(2000));
end;
end;
end;
end;
Would this be any faster, or any slower, and can I use it with some credits?