Лесоруб/Lumber

Apofis · Post by **Apofis** » 08.11.2009 12:02

Lokkie wrote:

sub mark()
uo.deletejournal()
while not uo.injournal(uo.getname("self")+":",2)
uo.infotile()
wait(1700)
wend
end sub

хотелось бы узнать куда фаил будет сохраняться и как остановить скрипт в конце?

WladL · Post by **WladL** » 08.11.2009 13:40

если ты про это Создание файла координат
то читай внимательней 7ю строку

Apofis · Post by **Apofis** » 08.11.2009 14:25

благодарю!)

Sfairat · Post by **Sfairat** » 02.01.2010 8:51

Можно небольшой хелп, я вот чето не догоню как вы рубите если топор надо экипировать, а функции юзать с л/правой руки нет

Code: Select all

function UseType(ObjType: Word; Color: Word): Cardinal; // Использовать по типу из BackPack-a

юзтайп как бэ неканает никак

+ хоче попробовоть вот так, давно человек делавший этот скрипт говорит все гуд, я чет не разберусь + топор не юзает )

Code: Select all

Program ;
const
kr=$0f39;                 
var
WorldNum:Word;
TileX:Byte;
TileY:Byte;
h:TStaticCell;
begin
h := ReadStaticsXY(TileX,TileY,WorldNum);
Usetype(kr,$FFFF);
wait(500);
targetToTile(h.Statics[1].Tile,TileX,TileY,GetZ(self));
end.

ВСЕХ С НОВЫМ ГОДОМ )

Vizit0r · Post by **Vizit0r** » 02.01.2010 9:16

Code: Select all

function ObjAtLayer(LayerType: Byte): Cardinal; // Возвращает ID обьекта object находящегося на указаном слое LayerType
procedure UseObject(ObjectID: Cardinal); // Использовать обьект

Code: Select all

function RhandLayer: Byte; // 0x01 - Правая рука 
function LhandLayer: Byte; // 0x02 - Левая рука

MuDaCk · Post by **MuDaCk** » 21.03.2010 17:15

Code: Select all

Function Lumber(tile:Word;x,y,z:Integer):boolean;
....
...
...
 then 
  result:=true //go home 
 else 
  result:=false; //go next

А как скрипт понимает что нужно переходить на следующую точку из файла? Обьясните пожалуйста алгоритм. У меня рубка происходит только у первого дерева.

SaNeK · Post by **SaNeK** » 21.03.2010 19:19

Ну обычно ловятся сообщения в журнале. Если оно типа: "сдесь нет больше дерева" то задаешь команду на переход на след дерево. Способов много например n := n + 1; ...

MuDaCk · Post by **MuDaCk** » 22.03.2010 12:39

В скрипте я этого не заметил. потому и спросил:)

Vizit0r · Post by **Vizit0r** » 22.03.2010 15:13

Code: Select all

 if (InJournalBetweenTimes(Cli[7], FBegin, Now) <> -1) or (weight>400) or (getquantity(findtype(AxeType,backpack)) = 0) 
 then 
  result:=true //go home 
 else 
  result:=false; //go next 
end;

вон же, самая первая строка - и есть проверка на журнал. ты ее не увидел, зато следующие за ней строки - скопировал и вставил в вопрос свой

MuDaCk · Post by **MuDaCk** » 23.03.2010 14:51

Визитор, я имел ввиду кому "адрессован" этот резалт

Vizit0r · Post by **Vizit0r** » 23.03.2010 15:41

что значит кому?

в журнале появилось - и добре.

MuDaCk · Post by **MuDaCk** » 23.03.2010 17:02

по идее перс должен переходить на следующее дерево, но я не понимаю как он переходит. В скрипте написанно резалт тру или фалс, но для чего это? где в скрипте используется этот тру или фалс? Вот чего я понять не могу.

SaNeK · Post by **SaNeK** » 27.03.2010 3:34

емн, ну это тебе надо уже почитать факу по функциям и програмс )
Просто задается значение переменной.

MuDaCk · Post by **MuDaCk** » 15.04.2010 15:34

Стоп-стоп-стоп. Вы хотите сказать что, в "Function Lumber" подставляются все значения из файла со списком тайлов, пока фунция не станет "True" ? типо первая строка фалс - идёт на вторую, опять фалс - на третью, и как только функция стала тру, то заканчивает подставлять и идёт дальше по условию скрипта?

Vizit0r · Post by **Vizit0r** » 16.04.2010 21:52

постучи в асю, это будет куда быстрее, чем раз в день переписываться сообщениями на форуме...