Авторизация  
Nolland

Healing

В теме 3 сообщения

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. 

нашел на просторах это? но не работает... есть умельцы пряморукие??

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация