Думаю через лодку предпочтительнее)80aX wrote:Вот оно чё) не знал, думал только когда на ней находишься ресает.Xper1al wrote: Возле неё оживает)
Эт не сложно реализовать, только тут мне кажется нужно что то одно выбрать либо через .rescue и рунбуку возвращаться, либо только у лодки ресаться.
Можно и зарядку рунбуки добавить в скрипт, тоже не сложная процедура.
быстрым поиском нашёл скрипт для зулу с зарядкой, не проверял, но в описании написано что заряжает рунбуку, как вариант, по аналогии сделать для себя такую же процедуру.
http://stealth.od.ua/forum/viewtopic.php?f=3&t=2387
Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Ламбер
Re: Ламбер
Re: Ламбер
Спасибо!olimpik wrote:Вот так замени и после смерти когда вернется по рунбуку возьмет из сундука 1 рекол скрол и положит его в рунбук
Code: Select all
// Идем к сундуку и выгружаемся procedure UnloadOrDead; begin NewMoveXY(xTileSunduk, yTileSunduk, false, 1, false); if not Dead then begin Discharge; end else begin AddToSystemJournal('Персонаж мертв.'); wait(1000); uosay('.rescue'); wait(3000); Addtosystemjournal('IS_DEAD'); home; useobject(Sunduk); wait(3000); findtype($1F4C,Sunduk); checksave; if (findcount > 0) then MoveItem(finditem, 1, RB, 0,0,0); wait(3000); end; end;
Re: Ламбер
Подскажите еще пожалуйста, хочу добавить в скрипт функцию, чтоб он ел во время разгрузки, в каком месте это нужно дописывать?
Re: Ламбер
Периодически скрипт останавливается, подскажите в чем может быть проблема? :
Code: Select all
20:48:33:490 [dark]: Succesfully executed
20:48:33:492 [dark]: Script lamber.sc stopped successfuly
Журнал до момента остановки
Lamber
Re: Ламбер
форматирование вырвиглаз, как это читабельно?
Re: Ламбер
Что не так собственно?drabadan wrote:форматирование вырвиглаз, как это читабельно?
Re: Ламбер
отступы, отступы нужны для того чтобы видно было логичские блоки, если их нет в голове каша. По крайней мере у меня, я бы с радостью помог если бы были отступы... В оригинальном скрипте они есть, кстати.Xper1al wrote:Что не так собственно?drabadan wrote:форматирование вырвиглаз, как это читабельно?
Re: Ламбер
В Основную функцию лесорубства добавь кушать и смотреть свой вес, лишним не будет ))
// Рубим дерево (Edred)
function LumbCurTree(tile,x,y,z : Integer) : Boolean;
// рубим указанный тайл. Возвращаем false если перевес или чар мертв.
var
q, m1, m2, m3, m4, m5, m6, m7, m8, CountFizzle, NextTree : integer;
begin
Hungry(1,backpack);
wait(1000)
AddToSystemJournal('MyWeight:'+inttostr(weight)+' '+'MaxWeight:'+inttostr(MyMaxWeight)+' '+'Hatchet:'+IntToStr(Count($0F43))+' '+'Fish:'+IntToStr(Count($097B)));
Result := true;
CountFizzle := 0;
repeat
if not CheckHatchet then
begin
exit;
end;
if WarMode = true then SetWarMode(false);
if TargetPresent then CancelTarget;
ctime := Now;
if Dead then begin Result := false; exit; end;
UseSkill('Arms Lore');
WaitForTarget(5000);
WaitTargetType ($0F43);
UseObject(ObjAtLayerEx(LhandLayer,self));
WaitForTarget(5000);
If TargetPresent then TargetToTile(tile, x, y, z);
q := 0;
repeat
wait(100);
q := q + 1;
checksave;
m1 := InJournalBetweenTimes(Msg1, ctime, Now);
m2 := InJournalBetweenTimes(Msg2, ctime, Now);
m3 := InJournalBetweenTimes(Msg3, ctime, Now);
m4 := InJournalBetweenTimes(Msg4, ctime, Now);
m5 := InJournalBetweenTimes(Msg5, ctime, Now);
m6 := InJournalBetweenTimes(Msg6, ctime, Now);
m7 := InJournalBetweenTimes(Msg7, ctime, Now);
m8 := InJournalBetweenTimes(Msg8, ctime, Now);
until (m1<>-1) or (m2<>-1) or (m3<>-1) or (m4<>-1) or (m5<>-1) or (m6<>-1) or (m7<>-1) or (m8<>-1) or Dead or (q > 150);
if (m2<>-1) or (m3<>-1) or (m4<>-1) then CountFizzle := CountFizzle + 1;
if Dead or (Weight > MyMaxWeight) then begin Result := false; exit; end;
if (q > 150) then NextTree := NextTree + 1;
until (m5<>-1) OR (m6<>-1) OR (m7<>-1) OR (m8<>-1) OR (CountFizzle = 10) OR (NextTree > 3);
if NextTree >= 3 then NextTree := 0;
end;
Re: Ламбер
и вот такую процедуру еще накинь что бы еду брал
Code: Select all
procedure checkFish;
begin
if (Count($097B) < 10) then
begin
MoveItem(FindType($097B, Sunduk),10,Backpack,0,0,0);
Wait(500);
end;
end;
// Разгрузка (Edred)
procedure Discharge;
// разгружаем нарубленное в сундук
// нарубленное - реги в массиве Regs[1..3]
// логи - константа Logs
var
m, tmpcnt : integer;
tmpid, tmpstack, tmpcolor : Cardinal;
tmpname : String;
begin
AddToSystemJournal('Разгружаемся');
waitconnection(3000);
if Dead then exit;
UseObject(Sunduk);
wait (500);
CheckAxe;
checkFish;
wait(1000);
Re: Ламбер
Спасибо огромное, очень помог!)olimpik wrote:и вот такую процедуру еще накинь что бы еду брал
Code: Select all
procedure checkFish; begin if (Count($097B) < 10) then begin MoveItem(FindType($097B, Sunduk),10,Backpack,0,0,0); Wait(500); end; end; // Разгрузка (Edred) procedure Discharge; // разгружаем нарубленное в сундук // нарубленное - реги в массиве Regs[1..3] // логи - константа Logs var m, tmpcnt : integer; tmpid, tmpstack, tmpcolor : Cardinal; tmpname : String; begin AddToSystemJournal('Разгружаемся'); waitconnection(3000); if Dead then exit; UseObject(Sunduk); wait (500); CheckAxe; checkFish; wait(1000);
Re: Ламбер
А зачем еду себе в пак брать? Можно прям из сундука хавать.
Code: Select all
Hungry(1, Sunduk);
Re: Ламбер
Скрипт периодически останавливается, не могу понять с чем это связано.
Re: Ламбер
80aX wrote:А зачем еду себе в пак брать? Можно прям из сундука хавать.
Code: Select all
Hungry(1, Sunduk);
если макс вес не большой то да, а если макс вес 3000 или 10000 установлен, ходит он рубит пол дня и голодает
то же не пойму, ты хоть напиши что происходит, где и как останавливается, и что пишется в журнале на момент остановки?Xper1al wrote:Скрипт периодически останавливается, не могу понять с чем это связано.
Re: Ламбер
а если его с таким весом кто то "убъет", как то не безопасненько...olimpik wrote:80aX wrote:А зачем еду себе в пак брать? Можно прям из сундука хавать.
Code: Select all
Hungry(1, Sunduk);
если макс вес не большой то да, а если макс вес 3000 или 10000 установлен, ходит он рубит пол дня и голодает
то же не пойму, ты хоть напиши что происходит, где и как останавливается, и что пишется в журнале на момент остановки?Xper1al wrote:Скрипт периодически останавливается, не могу понять с чем это связано.
У меня тоже ест из сундука, тоже залипает иногда скрипт. Версия стелса 7.8.4.
Re: Ламбер
я чуть выше уже писал, что в журнале, но на самом деле моменты разные, может в лесу остановиться, может у сундука. Может часа 3 работать и потом отключиться, может через пол часа.olimpik wrote:80aX wrote:А зачем еду себе в пак брать? Можно прям из сундука хавать.
Code: Select all
Hungry(1, Sunduk);
если макс вес не большой то да, а если макс вес 3000 или 10000 установлен, ходит он рубит пол дня и голодает
то же не пойму, ты хоть напиши что происходит, где и как останавливается, и что пишется в журнале на момент остановки?Xper1al wrote:Скрипт периодически останавливается, не могу понять с чем это связано.
Журнал
Системный журнал