Stealth Client Forum

Code: Select all

Program Moongate;
const 
  moongate = $0F6C;
var
  currentgumpscount : integer;
begin
  currentgumpscount := getgumpscount;
  findtype(moongate,ground);
  useobject(finditem);
  while getgumpscount <= currentgumpscount do
    wait(100);
  numgumpbutton(getgumpscount-1,12);
  wait(1000);
  numgumpbutton(getgumpscount-1,1);

end.

Code: Select all

Program New;
  const
  Amber = $0F25 ;     
  vendor = $000008D5;
  itemcolor = $0000;

procedure sell;
begin
  SetAutoSellDelay(4);
  newmovexy(getx(vendor), gety(vendor), true, 1, true);
  //UOSay(GetName (vendor)+ ' sell'); 
  SetContextMenuHook(vendor,3);
  wait(150);
  AutoSell(Amber,itemcolor,10);
end;

begin
while count(amber)>0 do 
  begin
  addtosystemjournal(inttostr(findquantity));
  sell;                                      
  wait(1000);
  end;
end.