Ветеринария (как поправить каст)

[WiZZard]

Пробовал скриптик нарисовать на Ветеринарию (полиморф в демона, хиллинг и диспел), но протестить немогу
Братцы, подскажите пожалуйста как сделать чтоб каст Полиморфа в Демона срабатывал

Code: Select all

Program Veterinary; 

{$Include 'all.inc'} 

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

   procedure Polymorph; 
      begin 
         Cast('Polymorph'); 
         wait(200); 
         WaitTargetObject(self);
         Wait(10000);
      end; 
      
   procedure Dispel; 
      begin 
         Cast('Dispel'); 
         wait(200); 
         WaitTargetObject(self);
         Wait(3000);
      end; 

   procedure Heal; 
      begin 
         While HP < CharHP do 
         begin 
         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(3500) 
         end; 
      end; 

Begin 
   while not Dead do 
   begin 
      Polymorph; 
      Heal; 
      Dispel; 
   end; 
End.

Заранее большое спасибо

[Vizit0r]

Пробовал скриптик нарисовать на Ветеринарию (полиморф в демона, хиллинг и диспел), но протестить немогу
Братцы, подскажите пожалуйста как сделать чтоб каст Полиморфа в Демона срабатывал

1) а сам чего потестить не можешь?
2) а сейчас в чем выражено его "несрабатывание"?

[Vizit0r]

Code: Select all

var	stime : TDateTime;



...


		stime := Now;
			repeat 
				CheckSave; 
				InJournalBetweenTimes('create|make|destroy|already', stime, Now); 
				wait(100); 
			until (LineCount >= 1) or (Now > stime + (4.9/1440));

так оно получше вообще и смотрится, и работает

[WladL]

а как у тебя на шарде он работает?

Code: Select all

   procedure Polymorph; 
      begin 
         Cast('Polymorph'); 
         wait(200); 
         WaitTargetObject(self); 
         Wait(10000); 
      end;

напимер у меня при этом касте появляется меню, откуда выбираешь в кого морфишся, и такая конструкция явно не сработает.

[WiZZard]

1) а сам чего потестить не можешь?
2) а сейчас в чем выражено его "несрабатывание"?

Если знаешь, подскажи пожалуйста как касту Полиморфа указать чтоб в Демона морфился?

[Vizit0r]

у меня дома что-то не так, помогите! (цы)




я что, похож на телепата, который будет угадывать что у тебя не так?

и не подумаю.

[WiZZard]

у меня дома что-то не так, помогите! (цы)




я что, похож на телепата, который будет угадывать что у тебя не так?

и не подумаю.

Vizit0r, ну как тебе объяснить чтоб дошло:
заклинание Полиморф - там меню, выбор в кого морфиться. Подскажи, как вписать чтоб скрипт сам выбор делал - Морф в демона

к примеру:

Code: Select all

Cast('Polymorph' 'Daemon');

или как там правильно. вот что прошу

[Mirage]

1) а сам чего потестить не можешь?
2) а сейчас в чем выражено его "несрабатывание"?

Если знаешь, подскажи пожалуйста как касту Полиморфа указать чтоб в Демона морфился?

Обычно чтобы проверить скрипт надо в первую очередь все проделать руками. Если память не позволяет то законспектируй.
1)выбираю заклинание (кастую)
2)появляется меню выбора морфа
3)выбираю в меню в кого хочу морфнутсья
4)морфлюсь (изменение статистики происходит)...

так у нас на шарде. Может быть у тебя не надо выбирать? ХЗ ХЗ...

[Vizit0r]

ну как тебе объяснить чтоб дошло:
заклинание Полиморф - там меню, выбор в кого морфиться. Подскажи, как вписать чтоб скрипт сам выбор делал - Морф в демона

к примеру:

Code: Select all

Cast('Polymorph' 'Daemon');

или как там правильно. вот что прошу

ну наконец-то. меню так меню. и то ты не сказал, какой заголовок у меню и название выбора. Значит сам впишешь.
выбор в меню делать через конструкцию типа
AutoMenu('Polymorph','Daemon');