Animal Taming for DW

ParadoX · Post by **ParadoX** » 01.05.2005 18:55

program taming; 
var 
Char : Array[1..2] of string; 
Zver : Array[1..2] of Cardinal; 


{$Include 'all.inc'}


procedure First(); 

var 
b : TDateTime; 
tmp,i : integer; 
lol : String;

Begin 
lol:=Char[2]+': all release';

while True do 
begin 
CheckTargetError(2,2); 
Hungry(1,ground);

i:=0; 
   while i < 5 do 
      begin 
        for tmp:=1 to 2 do 
      begin 
      WaitTargetObject(zver[tmp]); 
         UseSkill('Animal Taming'); 
   B:=Now+0.0001157407407; 
         WaitJournalLine(B, 'You successfully tame|You failed', 30000); 
         WaitJournalLine(B, lol, 15000); 
      UOsay('all release'); 
      UOsay(IntToStr(tmp)); 
         i := i + 1; 
      end; 
      end; 
End; 
End; 






procedure Second(); 
var 


i,tmp : integer; 
f     : TDateTime; 


begin 
f:=Now; 
while true do 
begin 

CheckTargetError(2,2);
Hungry(1,ground); 

i:=0; 
   while i < 10 do 
      begin 
      WaitJournalLine(f,Char[1]+': 1'+'|'+Char[1]+': 2',0); 
         if InJournalBetweenTimes(Char[1]+': 1',f,Now) >= 0 then tmp := 1; 
          if InJournalBetweenTimes(Char[1]+': 2',f,Now) >= 0 then tmp := 2; 

      f:=Now; 
      WaitTargetObject(Zver[tmp]); 
         UseSkill('Animal Taming'); 

      WaitJournalLine(Now,'You successfully tame|You fail', 45000); 
        
      UOsay('all release'); 
         i := i + 1; 
      end; 
End; 
End; 





begin 
SetARStatus(true); 
FindVertical:=40; 

Char[1]:='Brizar';  {Set Name of First Char}
Char[2]:='Gurza';  {Set Name of Second Char}
Zver[1]:=$0113EF77; {ID First Animal}
Zver[2]:=$0113EF76; {ID Second анимал}

Case CharName Of 
   Char[1] : First(); 
   Char[2] : Second(); 
else AddToSystemJournal('Error'); 
End; 
End.

пофиксил скока мог... добавил коменты... нюбам понравица.. фиксить остальные мелочи оч. ломает...

ParadoX · Post by **ParadoX** » 27.05.2005 19:01

по прозьбам трудящихся на 4 твари

Code: Select all

program taming; 
var 
Char : Array[1..2] of string; 
Zver : Array[1..4] of Cardinal; 

{$Include 'all.inc'}

procedure First(); 
var 
b : TDateTime; 
tmp,i : integer; 
lol : String;

Begin 
lol:=Char[2]+': all release';

while True do 
begin 
CheckTargetError(2,2);
Hungry(1,ground);

i:=0; 
   while i < 5 do 
      begin 
        for tmp:=1 to 4 do 
      begin 
      WaitTargetObject(zver[tmp]); 
         UseSkill('Animal Taming'); 
   B:=Now+0.0001157407407; 
         WaitJournalLine(B, 'You successfully tame|You failed', 30000); 
         WaitJournalLine(B, lol, 15000); 
      UOsay('all release'); 
      UOsay(IntToStr(tmp)); 
         i := i + 1; 
      end; 
      end; 
End; 
End; 






procedure Second(); 
var 
i,tmp : integer; 
f     : TDateTime; 


begin 
f:=Now; 
while true do 
begin 

CheckTargetError(2,2);
Hungry(1,ground); 

i:=0; 
   while i < 5 do 
      begin 
      WaitJournalLine(f,Char[1]+': 1'+'|'+Char[1]+': 2'+'|'+Char[1]+': 3'+'|'+Char[1]+': 4',0); 
         if InJournalBetweenTimes(Char[1]+': 1',f,Now) >= 0 then tmp := 1; 
         if InJournalBetweenTimes(Char[1]+': 2',f,Now) >= 0 then tmp := 2; 
	 if InJournalBetweenTimes(Char[1]+': 3',f,Now) >= 0 then tmp := 3; 
      	 if InJournalBetweenTimes(Char[1]+': 4',f,Now) >= 0 then tmp := 4; 

      f:=Now; 
      WaitTargetObject(Zver[tmp]); 
         UseSkill('Animal Taming'); 

      WaitJournalLine(Now,'You successfully tame|You fail', 45000); 
        
      UOsay('all release'); 
         i := i + 1; 
      end; 
End; 
End; 





begin 
SetARStatus(true); 
FindVertical:=30; 

Char[1]:='Barsuello'; 
Char[2]:='Generous'; 
Zver[1]:=$0118C75D; 
Zver[2]:=$01190028; 
Zver[1]:=$0118C75D; 
Zver[2]:=$01190028; 

Case CharName Of 
   Char[1] : First(); 
   Char[2] : Second(); 
else AddToSystemJournal('Error'); 
End; 
End.

Tvister · Post by **Tvister** » 19.10.2005 21:18

Вот возникла проблема с выше выложеным скрптом на 4 твари.
Скрипт нехчоет рабоать.... все инклуди которые были на фоурме все скачал всё сделал, айди прописал и всёравно не работает.При этом в Систем непишетса причина ошибки.Прошу кто занет помогиет плиз

Miralex · Post by **Miralex** » 20.10.2005 7:47

Скрипт был написан на старых инклюдах.

Все

Code: Select all

Hungry(1);

поменяй на

Code: Select all

Hungry(1,-1);

Mightic · Post by **Mightic** » 23.10.2005 9:59

Не работает он... Ошибка и все.

Mightic · Post by **Mightic** » 23.10.2005 10:09

11:06:11: Compiling
11:06:11: Compiled succesfully
11:06:11: Error
11:06:12: Succesfully executed
11:06:12: Script taming.sc stoped successfuly

ParadoX · Post by **ParadoX** » 23.10.2005 18:55

сколько же лет продет прежде чем люди поймут весь замысел скрипта....
теперь ПОДУМАЙ 2 чара с разными никами, один скрипт! как один чар определит что он затамил зверя и второй чар затамил зверя??? ПО ЖУРНАЛУ...

тогда почему вы "забиваете" на две переменные с никами чаров?

ParadoX · Post by **ParadoX** » 23.10.2005 18:59

ВОТ

Code: Select all

Case CharName Of 
   Char[1] : First(); 
   Char[2] : Second(); 
else AddToSystemJournal('Error');

Mightic · Post by **Mightic** » 24.10.2005 7:04

А кто сказал, что я не прописал айдишники чаров?
ЗЫ. Ненадо из меня нюба делать

Miralex · Post by **Miralex** » 24.10.2005 7:30

Айдишники как раз не чаров, а зверей надо прописывать. И не забыть имена чаров вписать там же.

Mightic · Post by **Mightic** » 26.10.2005 10:53

Char[1]:='Brizar'; {ID First Char}
Char[2]:='Gurza'; {ID Second Char}

а это зачем тогда писать было? Сейчас попробую..

Miralex · Post by **Miralex** » 26.10.2005 11:20

Это ув. Paradox опечатался... Уже исправил.

Mightic · Post by **Mightic** » 26.10.2005 11:43

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

Alex · Post by **Alex** » 26.10.2005 12:44

Вот еще один скрипт, точнее 2 скрипта, тут нада в первом указать ИМЯ чара из другого скрипта, и ID животных, а во втором нада просто нада указать ID животных, только поменять местами с теми что в первом

Code: Select all

program taming;
var
b : TDateTime;
f : TDateTime;

zver : array [1..2] of cardinal;
message : array [1..2] of String;
tmp : integer;
i : integer;
tim : integer;
c:integer;


{$Include 'all.inc'}


begin
f:=Now;
zver[1]:=$01294C10;
zver[2]:=$0129695C;
message[1]:='Harizon: 1'
message[2]:='Harizon: 2'
SetARStatus(true);
Hungry(1,ground);
while not Dead do
begin
i:=0; 
if not connected then clearjournal;
	while i < 10 do 
   	begin 

	tim:=0;
   		repeat
		wait(500);
		tim := tim + 1;
		until (InJournalBetweenTimes(message[2],f,Now)>0) or (InJournalBetweenTimes(message[1],f,Now)>0) or (tim > 50);

   		for c := 1 to 2 do 
   			if InJournalBetweenTimes(message[c],f,Now) >= 0 then 
  				begin 
  				tmp := c; 
  				c:=2; 
		end; 

		f:=Now;
                CheckTargetError(2,2);
                CheckSave;
   		UseSkill('Animal Taming');
   		WaitForTarget(5000); 
		b:=Now;
   		if TargetPresent then TargetToObject(zver[tmp]); 
			
		tim:=0;
   			repeat
			wait(500);
			tim := tim + 1;
			until (InJournalBetweenTimes('You successfully tame',b,Now)>0) or (InJournalBetweenTimes('You fail',b,Now)>0) or (tim > 26);
			
		


		UOsay('all release')
		UOsay(IntToStr(tmp))
   		i := i + 1;
   	end; 
CheckSave;
Hungry(1,ground);
End;
End.

Code: Select all

program taming;
var
b : TDateTime;

zver : array [1..2] of cardinal;
tmp : integer;
i : integer;
tim : integer;


{$Include 'all.inc'}


begin
zver[1]:=$01294C10;
zver[2]:=$0129695C;
SetARStatus(true);
Hungry(1,ground);
while not Dead do
begin
if not connected then clearjournal;
i:=0; 
	while i < 10 do 
   	begin 
  		for tmp:=1 to 2 do
		begin
                CheckTargetError(2,2);
		CheckSave;
   		UseSkill('Animal Taming');
   		WaitForTarget(5000); 
			b:=Now;
   			if TargetPresent then TargetToObject(zver[tmp]); 
			
			tim:=0;
   			repeat
			wait(500);
			tim := tim + 1;
			until (InJournalBetweenTimes('You successfully tame|You fail',b,Now)>0) and (InJournalBetweenTimes('Bulway: all release',b,Now)>0) or (tim > 28);
		UOsay('all release')
		UOsay(IntToStr(tmp))
   		i := i + 1;
		end;
   	end; 
CheckSave;
Hungry(1,ground);
End;
End.

reynard · Post by **reynard** » 12.10.2016 9:40

Сначала скрипт отлично работал, вкачал на нём таминг нормально. Потом обновил стелс клиент и скрипт начал выдавать такое:

Code: Select all

08:05:42:942 [John Doe]: Compiling
08:05:42:989 [John Doe]: Compiler: [Error] (ANIMALtaming.sc at 31:13):  Array type required ;
Error line is: "   lol:=Char[2]+': all release'; "
08:05:42:992 [John Doe]: Compiling failed
08:05:42:994 [John Doe]: Script ANIMALtaming.sc stopped successfuly

Что это может быть? Последняя версия клиента не поддерживает таких строк?

home api manuals about Forum

Animal Taming for DW

Animal Taming for DW

Re: Animal Taming for DW

Re: Animal Taming for DW