script can not working

Only working scripts
Post Reply
mixers
Neophyte
Neophyte
Posts: 49
Joined: 03.10.2013 14:11

script can not working

Post by mixers »

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.
can not travel

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.
can not sell item,until click npc in game.
mixers
Neophyte
Neophyte
Posts: 49
Joined: 03.10.2013 14:11

Re: script can not working

Post by mixers »

no one can help me :cry: :cry: :cry:
User avatar
Vizit0r
Developer
Developer
Posts: 3955
Joined: 24.03.2005 17:05
Contact:

Re: script can not working

Post by Vizit0r »

help in what?
you set the hook for Context menu, but nowhere call this request menu.
when you click in game - you request it.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
mixers
Neophyte
Neophyte
Posts: 49
Joined: 03.10.2013 14:11

Re: script can not working

Post by mixers »

thanks. now it's ok.
Post Reply