SRL Archive - SRL Archives

Accept is broken (for trading)

Metagen

2008-09-01 10:58:14

The old ones mousebox was too low and clicked declien half of the time, here is the one i fixed up


procedure Accept;
begin
  if (TradeScreen) then
  begin
    MouseBox(230, 128, 284, 155, 1);
    Wait(1000 + Random(500));
  end else
  if (TradeScreen2) then
  begin
    MouseBox(199, 303, 250, 316, 1);
    Wait(1000 + Random(500));
  end
end;