[ДРВ] Хилинг со стиркой и одеванием оружия

[Nearga]

Первое, типы

Code: Select all

const
BandageType = $0E21;     		//Тип чистых бинтов
BloodyBandageType = $0E20;      //Тип грязных бинтов
WashType = $1008;        		//Тип Тазика для мытья бинтов

Второе, собственно мойка грязных бинтов. Тут все работает.

Code: Select all

procedure WashBandages;
var 
bandages : cardinal;
begin
bandages := FindType(BloodyBandageType,Backpack);
if (bandages <> 0) then begin
	UseObject(bandages);
	repeat
		wait(100);
		CheckWorldSave;
	until (targetpresent); // or to_out(true));
	WaitTargetObject(FindType(WashType,Backpack));
end;
end;

Ну и сама проблема: хилинг.

Code: Select all

function Bandageself: boolean;
var tmp: cardinal;
	tmp_rhand,tmp_lhand : cardinal;
 begin
   tmp := FindType(BandageType, Backpack);
   wait(100);
   if TargetPresent then CancelTarget;
   tmp_lhand := ObjAtLayer(LhandLayer);
   tmp_rhand := ObjAtLayer(RhandLayer);

     begin
       repeat
         AddToSystemJournal('*Лечусь...*');
         WaitTargetSelf;
         wait(100);
         ClearJournal;
         UseObject(tmp);
         repeat
           wait(500);
         until (InJournal('You put the bloody') <> -1) OR (InJournal('You apply the') <> -1) OR (InJournal('Healing was') <> -1) OR (GetHP(Self) = GetMaxHP(Self));
         wait(500);
         ClearJournal;
       until (GetHP(Self) = GetMaxHP(Self));
       result := true;
       AddToSystemJournal('*Здоров*');
     end
	
	if tmp_lhand <> 0 then equip(LhandLayer,tmp_lhand);
    CheckLag();
    if tmp_rhand <> 0 then equip(RhandLayer,tmp_rhand);
	CheckLag();
 end;
 

Проблема в том, что перс вроде как берет оружие обратно в руки.. Но если оставить его часа на пол, то после возвращения видно, что он бьет руками, а вещь лежит в инвентаре.

Пробовал вызывать его вот так (без equip в самом хилинге)

Code: Select all

          SetDress();
		disarm();
			
        repeat
          AddToSystemJournal('*Пора лечить...*'); 
          SetWarMode(false);
          BandageOther(enemy);
        until GetHP(enemy)=GetMaxHP(enemy) 
		
			WashBandages();  
			UseSkillSpiritSpeak;
			CheckLag;
			EquipDressSet;

Та же хрень.. идей вообще нету, почему это может быть

[nepopus]

Попробуй указать экипировку один раз при старте скрипта.

[Nearga]

Хорошая мысля.. но хотелось бы менять оружие для кача без перезапуска.. но попробовать однозначно стоит

[Nearga]

В принципе да, работает.. наверно, так и оставлю - фиг с ним

[nepopus]

В принципе да, работает.. наверно, так и оставлю - фиг с ним

просто этот вариант отбрасывает большинство глюков. я это понял еще на инже, когда у меня при реконнекте и перезапуске скрипта во время бинтования за оружие брались голые руки. В стелсе бинтование я пока не писал = )

[nah nah]

почему бы не запоминать оружие в каждой руке отдельно? через objatlayer

[Nearga]

Нууу.. так и делал

[nah nah]

чё-то я прошляпил =) Загони в цикл

Code: Select all

while tmp_lhand != 0 and not ObjAtLayer(LhandLayer()):
    Equip(tmp_lhand)
    CheckLag()

[Nearga]

Нифига не понял...

Code: Select all

  BowID := ObjAtLayerEx(RhandLayer,self);
****
while true
****
if IsTimeToHeal then begin
****
while ObjAtLayer(LhandLayer()) = 0 do begin
			Equip(LhandLayer,BowID);
			///CheckLag();
			wait(300);
			AddToSystemJournal('Берем лук');
		end;
    AddToSystemJournal('Типа взяли лук');

возвращает

Типа взяли лук
Drag error: Object not found.

Пащиму? 0_0

Апдейт: взял вручную айдишник лука, прописал в BowID - работает при одиночном вызове. Однако, в цикле он берет лук в руку, а потом выбрасывает

while ObjAtLayer(LhandLayer()) = 0 do begin
Equip(LhandLayer,BowID);
///CheckLag();
wait(300);
AddToSystemJournal('Берем лук');
end;

[nepopus]

Нифига не понял...

Code: Select all

BowID := ObjAtLayerEx(RhandLayer,self);
Equip(LhandLayer,BowID);

[Nearga]

*epic fail*