Нужна помощь !

[Lietman]

Этот скрипт должен делать так
1)Покупать Бланк мапы.
2)Заходить в цикл и рисовать мапы, пока количество бланк мап не будет равна нулю !
3) Продавать нарисованные мапы.
Примечания: Тип и цвет бланк мап и уже нарисованных мап совпадают !
Проблема:Не захоит в цил ! Помогите довести скрипт до ума !

Code: Select all

Program New;
const 
vendor=$00D313EA;
typemap=$14EB;
colormap=$0000;
var
vendorx,vendory: integer;

procedure buy;
begin
SetAutoBuyDelay(4);
newMoveXY(vendorx,vendory,true,1,true)
UOSay(GetName (vendor)+ ' buy');
AutoBuyEx(typemap,colormap,50,6,'Blank Map');
end;
procedure resyem;
begin 
while (GetName(FindType(typemap, backpack))= 'a Blank Map')do
 begin
useobject(finditem);
AutoMenu('What sort of map do you want to d','Detail Map');
WaitJournalLine(Now, 'unusable map.|pack.', 40000);
ClearJournal;
 end;
end;

procedure sell;
begin
SetAutoSellDelay(4);
newMoveXY(vendorx,vendory,true,1,true);
UOSay(GetName (vendor)+ ' sell');
AutoSell(typemap,colormap,999);
end;

begin
while not dead do
begin
 vendorx:=GetX(vendor); 
 vendory:=GetY(vendor);
buy;
resyem;
sell;
end;
end.

[Venom]

Code: Select all

Program New;
const 
vendor=$00D313EA;
typemap=$14EB;
colormap=$0000;


procedure buy;
begin
SetAutoBuyDelay(4);
newmovexy(getx(vendor), gety(vendor), true, 1, true);
wait(50);
UOSay(GetName (vendor)+ ' buy');
wait(150);
AutoBuyEx(typemap,colormap,50,6,'Blank Map');
end;


procedure resyem;
begin 
while (GetName(FindType(typemap, backpack))= 'a Blank Map')do
 begin
useobject(finditem);
wait(150);
AutoMenu('What sort of map do you want to d','Detail Map');
wait(150);
WaitJournalLine(Now, 'unusable map.|pack.', 40000);
ClearJournal;
 end;
end;

procedure sell;
begin
SetAutoSellDelay(4);
newmovexy(getx(vendor), gety(vendor), true, 1, true);
UOSay(GetName (vendor)+ ' sell');
wait(150);
AutoSell(typemap,colormap,999);
end;

begin
while true do
begin
If not(isDead(self)) then buy;
wait(50);
If not(isDead(self)) then resyem;
wait(50);
If not(isDead(self)) then sell;
end;
end.

что то типа такого...

[Lietman]

вот тут надо в цилк встать ! !

Code: Select all

procedure resyem;
begin 
while (GetName(FindType(typemap, backpack))= 'a Blank Map')do
 begin
useobject(finditem);
wait(150);
AutoMenu('What sort of map do you want to d','Detail Map');
wait(150);
WaitJournalLine(Now, 'unusable map.|pack.', 40000);
ClearJournal;
 end;
end;

[Lietman]

ну что прям не кто не знает как определить бланк мап от уже нарисованной мапы ?
Заметка : мапы по типу идентичны и цветом и типом !

[Alex]

оставшиеся варианты: GetName, GetTooltip, ClickOnObject

[Lietman]

GetTooltip описание этой функции где множа найти ?

[Alex]

надо будет добавить в вики, вот:

Code: Select all

function GetTooltip(ObjID : Cardinal) : String;

работает так же как GetName примерно, там текст который появляется при на видении на обьект. работает не на всех шардах