script can not working
Posted: 02.12.2013 17:03
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.