Yoko
http://forum.yoko.com.ua/

Непонятно
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8720		 Page 1 of 1
Author:  El chupakabra [ 2006-09-06 10:12:53 ]
Post subject:  Непонятно
При запуске скрипта:

Code:
##################################################################### 
; Herding v.1.02b (c) Edred 
; 
; Для прокачки потребуются две лошади (ламы или другие животные) 
; и два щита (или какие-то другие объекты). Кладем щиты на пол в доме 
; в паре шагов от чара (не стопкой, в соседние тайлы) и ставим обеих 
; лошадей рядом с чаром. Чару в руку посох (одного посоха хватит на всю 
; прокачку). Вносим серийники лошадей и щитов в соответствующие переменные. 
; Поехали. Блоки, отвечающие за подкормку чара и прокачку 
; Spirit Speak закомментарены. 
; 
sub Herding() 
   VAR Horse = '0x0040D2A1' 
   VAR Horse2 = '0x005AF4B1'    
   VAR Targ = '0x404215E8' 
   VAR Targ2 = '0x404214EF' 
   VAR Sunduk = '0x404E5494' 
     UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) ) 
   VAR success = "The animal goes where it is instructed" 
   VAR fizzle = "You don't seem" 
   VAR SpiritTime = UO.Timer() 
   UO.UseObject( Sunduk ) 
   wait(1000) 
   CheckLag() 
   While UO.SkillVal( 'Herding' ) < 1000 
      EatChar( Sunduk, 2, 1, 120 ) 
      If ( UO.Timer() - SpiritTime ) / 600 > 5 Then 
         ; Прошло 5 минут с момента последней прокачки Spirit Speak 
         SpSpeak() 
         SpiritTime = UO.Timer() 
      Endif 
      DeleteJournal( success ) 
      DeleteJournal( fizzle ) 
      UO.WaitTargetObject( Horse, Targ ) 
      UO.UseObject( UO.ObjAtLayer( 'Lhand' ) ) 
      repeat 
         wait(100) 
      until UO.InJournal( fizzle ) OR UO.InJournal( success ) 
      If UO.InJournal( success ) Then 
         ; вторая животина 
         DeleteJournal( success ) 
         UO.WaitTargetObject( Horse2, Targ2 ) 
         UO.UseObject( UO.ObjAtLayer( 'Lhand' ) ) 
         repeat 
            wait(100) 
         until UO.InJournal( fizzle ) OR UO.InJournal( success ) 
      Endif 
   Wend 
endsub 

#####################################################################


пишет что функция не найдена. В чем может быть дело? подскажите пожалуйста. Серийники выставил.
Author:  Nmy [ 2006-09-06 11:30:02 ]
Post subject: 
ищи:
Code:
DeleteJournal()

и
Code:
Checklag()

и прикрепи их внизу скрипта...
Author:  El chupakabra [ 2006-09-06 11:55:16 ]
Post subject: 
NMY wrote:
ищи:
Code:
DeleteJournal()

и
Code:
Checklag()

и прикрепи их внизу скрипта...



Code:
Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, 'string replaced' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub


это?
Author:  Nmy [ 2006-09-06 12:23:17 ]
Post subject: 
да и чеклаг тоже наиди...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/