Page 1 of 1
Нужна помощь !
Posted: 13.09.2011 22:30
by 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.
Re: Нужна помощь !
Posted: 14.09.2011 14:27
by 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.
что то типа такого...
Re: Нужна помощь !
Posted: 14.09.2011 20:08
by 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;
Re: Нужна помощь !
Posted: 29.09.2011 19:33
by Lietman
ну что прям не кто не знает как определить бланк мап от уже нарисованной мапы ?
Заметка : мапы по типу идентичны и цветом и типом !
Re: Нужна помощь !
Posted: 29.09.2011 19:35
by Alex
оставшиеся варианты: GetName, GetTooltip, ClickOnObject
Re: Нужна помощь !
Posted: 30.09.2011 19:38
by Lietman
GetTooltip описание этой функции где множа найти ?
Re: Нужна помощь !
Posted: 30.09.2011 20:56
by Alex
надо будет добавить в вики, вот:
Code: Select all
function GetTooltip(ObjID : Cardinal) : String;
работает так же как GetName примерно, там текст который появляется при на видении на обьект. работает не на всех шардах