##################################################################### ; 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
##################################################################### Sub DeleteJournal( string1 ) VAR nom = UO.InJournal( string1 ) If nom > 0 Then UO.SetJournalLine( Nom - 1, 'string replaced' ) DeleteJournal( string1 ) Endif endsub
##################################################################### ; 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
##################################################################### Sub DeleteJournal( string1 ) VAR nom = UO.InJournal( string1 ) If nom > 0 Then UO.SetJournalLine( Nom - 1, 'string replaced' ) DeleteJournal( string1 ) Endif endsub
CANNABIS wrote:Sunduk это посох? че то не получается
Sunduk нужен для хранения еды. Он используется только если включена подкормка чара. В данном скрипте все строчки, отвечающие за подкормку и за прокачку Спирит Спика отключены (закомментарены). В том числе определение сундука. О чем внятно написано в комментариях в начале скрипта.
Посох в руки взял? Попробуй вручную отправить животное на щит. Посмотри мессаги. Проверь их в скрипте - вполне возможно что на твоем шарде другие сообщения. Перепроверь что занес серийники лошадей в переменные Horse, Horse2, перепроверь что занес серийники сундуков в переменные Targ, Targ2. Если ничто не помогает - три инжект с компа и ставь себе ассист и уолуп.
