Помогите добить скрипт на хилинг

[knap]

Господа помогите, есть скрипт на хилинг шард ЕП, нужно добавить туда проверку на голод себя и хаванье еды с бекпака(рыба), когда голоден, а то так он очень медленно качает, кто может подкорректируйте, а то я не соображаю в составлении скриптов, заранее спасибо вот скрипт

Code: Select all

Program HorseAtackHealing; 

var 
bandages:cardinal; 
Str1,str2,str3,str4,str5:String; 

{$Include 'all.inc'} 

Begin 
bandages:=FindType($0E21,backpack); 
Str1:='You bandage'; 
Str2:='You put '; 
Str3:='You sucessfully '; 
Str4:='Do you '; 
Str5:='You must wait to perform another action'; 

if HP < MaxHP THEN 
Begin 

While HP < MaxHP do 
Begin 
ClearJournal; 
UseObject(bandages); 
WaitTargetSelf; 

While (InJournal(str1)<0) and (InJournal(str2)<0) and (InJournal(str3)<0) and (InJournal(str4)<0) and (InJournal(str5)<0) do wait(500); 
Wait(2500) 

end; 
end; 

UseObject(self); 
while MaxHP = MaxHP do 
Begin 
ClearJournal; 
While HP > 50 do wait(500); 
UseObject(FindType($00E2,ground)); 
wait(1000); 

While HP < MaxHP do 
begin 
UseObject(bandages); 
WaitTargetSelf; 

ClearJournal; 
While (InJournal(str1)<0) and (InJournal(str2)<0) and (InJournal(str3)<0) and (InJournal(str4)<0) and (InJournal(str5)<0) do wait(500); 
Wait(2500) 

end; 

UseObject(self); 
wait(5000); 

if HP = MaxHP THEN 
Begin 
UseObject(FindType($00E2,ground)); 
wait(3000); 
UseObject(self); 
end; 
end; 
End.

[WladL]

Не знаю как на твоем шарде это будет работать, но в инклюдах лежит уже готовая проверка на голодность. Учти она там работает от команды .hungry (напимер на моем шарде это не работает).
hungry.inc

Code: Select all

while MaxHP = MaxHP do 
Begin 
Hungry(2,-1);<-------------

ClearJournal; 
While HP > 50 do wait(500); 
UseObject(FindType($00E2,ground)); 
wait(1000); 

While HP < MaxHP do 
begin 
UseObject(bandages); 
WaitTargetSelf; 

ClearJournal; 
While (InJournal(str1)<0) and (InJournal(str2)<0) and (InJournal(str3)<0) and (InJournal(str4)<0) and (InJournal(str5)<0) do wait(500); 
Wait(2500) 

end; 

UseObject(self); 
wait(5000); 

if HP = MaxHP THEN 
Begin 
UseObject(FindType($00E2,ground)); 
wait(3000); 
UseObject(self); 
end; 
end; 
End.

[Vizit0r]

хорошее настроение сутра было...

Code: Select all

Program HorseAtackHealing; 

var 
bandages:cardinal; 
stime : TDateTime;
time : Cardinal;

{$Include 'hungry.inc'} 
{$Include 'checksave.inc'}

Begin
time :=Timer;
if FindType($0E21,backpack) > 0 then
  bandages:= finditem
else
  begin
    AddToSystemJournal('Bandages not found!');
    Exit;
    //тут еще можно Disconnect;
  end;
while True do
  begin
    if Timer > Time + 10*60*1000 then
      begin
        Hungry(1,$FFFFFFFF);
        time :=Timer;
      end;
    if FindType($00E2,ground) > 0 then
    UseObject(FindType($00E2,ground))
    else
      begin
        AddToSystemJournal('Horse not found!');
        Exit;
        //тут еще можно Disconnect;
      end;
    wait(1000);   
    IF HP < MaxHP then
      begin
        stime := Now;  
        WaitTargetSelf;  
        UseObject(bandages); 
        repeat 
          CheckSave; 
          InJournalBetweenTimes('You bandage|You put|sucessfully|Do you|perform another action', stime, Now); 
          wait(100); 
        until (LineCount >= 1) or (Now > stime + (4.9/1440));
      end;
      wait(50);
  end;
end.

[knap]

ВИЗИТОР скрипт не работает, пишет horse not faund

[knap]

ВладЛ, это что часть скрипта или весь, не пойму собери воедино, если не трудно, я не соображаю, кстати команда .hungry работает

[Vizit0r]

ВладЛ, это что часть скрипта или весь, не пойму собери воедино, если не трудно, я не соображаю, кстати команда .hungry работает

не умеешь - учись.
не соображаешь - спрашивай.

http://stealth.od.ua/forum/viewtopic.php?t=1020

http://stealth.od.ua/forum/viewtopic.php?t=1123
вот уроки.

не работает, ибо проверить негде.

что $00E2 - лошадь я не уверен, предположил.

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

[knap]

Визитор, это не лошадь это мустанг, скрипт работает только с мустом, поточу что конь слишком долго хп снимет