Heal

[Angel]

Скрипты на лечение

1-й на прокачку Healing-a
Чар вылечивается поностью спрыгивает с мустанга(лошадь такая) ждет пока муст выбет ему хиты до 50 или меньше запрыгивает на него и лечится и так по циклу. Перед запуском этого скрипта дайте по мореде мустангу один раз и запрыгните на него возьмите в руки лук стрел в бэкпаке быть не должно.
UseObject(FindType($00E2,ground)); здесь чар запрыгивает на муста
$00E2 - тип мустанга если у вас другой впишите свой

Скрипт:

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. 

2-й лечит того кто сказал "Heal me"
Чар если не в режише Hide юзает Hiding пока не исчезнет после ждет пока ктонибудь скажет Heal me и вылечивает до упора.

Code: Select all

Program Healinghero;

Var
bandages:cardinal; 
Hero:cardinal;

{$Include 'all.inc'} 

Begin
bandages:=FindType($0E21,backpack);
While not dead do
Begin
if not Hidden THEN
Begin
While not Hidden do 
Begin
useskill('Hiding');
wait(8000);
end;
end;
wait(1000);

While injournal('heal me')<0 do
Begin
ClearJournal;
wait(3000);
end;

inJournal('heal me');
Journal(LineIndex);
Hero:=LineID;
While (InJournal('Do you wanna make a mummy? (c) CSD')<0) and (InJournal('You are too far away ')<0) do 
Begin
UseObject(bandages);
WaitTargetObject(Hero);
ClearJournal;
While (InJournal('You bandage ')<0) and (InJournal('You put ')<0) and (InJournal('You sucessfully ')<0) and (InJournal('Do you ')<0) and (InJournal('You must wait to perform another action')<0) and (InJournal('Do you wanna make a mummy? (c) CSD')<0) and (InJournal('You are too far away ')<0) do wait(500);
wait(2500);
end;
end;

End.

Сам написал

[Destruction]

Сорри за оффтоп, но на каком это шарде, для мустангов - удар по роже, нормальное явление не отбивающее желание повиноваться?

Логичнее использовать двух персонажей - один владелец мустанга, а второй получающий по морде от мустанга.

[Angel]

Ethereal Portal

[Angel]

Пожалуйста прокачка Healing-a с помощью второго чара
Тем кому прокачиваем хилинг запускаем это скрипт:
Чар все время лечится и если жизней меньше 50 кричит Horse back! а если максимум жизней кричит Come Horse

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'; 

while MaxHP = MaxHP do 
Begin 
ClearJournal; 

If HP < 50 then 
Begin
uosay('Horse back!'); 
end;

If HP = MaxHP then 
Begin
uosay('Come Horse'); 
end;

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 
Begin
wait(500); 
If HP < 50 then 
Begin
uosay('Horse back!'); 
end;
end;
Wait(1250) 
If HP < 50 then 
Begin
uosay('Horse back!'); 
end;
Wait(1250) 

end; 

End. 

чаром у которого мустанг запускаем это макрос:
чар просто будет ждать нужного сообщения: Horse back! - запрыгнуть на мустанга, Come Horse - слезть с мустанга

Program HorseChar; 

var 

{$Include 'all.inc'} 

Begin

While not dead do 
Begin
if injournal('Horse back!')>0 do 
Begin 
UseObject(FindType($00E2,ground)); 
ClearJournal; 
wait(1000); 
end; 

wait(1000);

if injournal('Come Horse')>0 do 
Begin 
UseObject(self); 
ClearJournal; 
wait(1000); 
end; 
end; 

End.