sub taming()
UO.UseSkill('Animal Taming');
wait(10000)
until UO.InJournal('You fail') OR UO.InJournal('вы')
If Uo.InJournal ('You fail')Then
UO.WaitTargetObject('lasttarget')
If Uo.InJournal('вы') Then
UO.Say('All Come')
UO.Usefromground('horse')
UO.Usefromground('0x00E2')
UO.Usefromground('0x00E4')
UO.Usefromground('0x00CC')
UO.Usefromground('0x00C8')
UO.Usefromground('0x00D2')
UO.Usefromground('0x00DB')
UO.Usefromground('0x00DC')
UO.Usefromground('0x00DA')
end sub
Поправьте плиз Скрипт
Moderators: Murderator+, Murderator
-
Savage
- Expert!
- Posts: 1205
- Joined: 2004-04-04 11:13:54
- Location: Балаково, Саратовская обл.
- Contact:
Code: Select all
sub taming()
UO.DeleteJournal()
UO.UseSkill('Animal Taming')
Repeat
wait(500)
until UO.InJournal('You|вы')
While (Uo.InJournal('You fail'))
UO.DeleteJournal()
UO.WaitTargetObject('lasttarget')
UO.UseSkill('Animal Taming')
Repeat
wait(500)
until UO.InJournal('You|вы')
Wend
UO.Say('All Come')
wait(500)
UO.Usefromground('horse')
UO.Usefromground('0x00E2')
UO.Usefromground('0x00E4')
UO.Usefromground('0x00CC')
UO.Usefromground('0x00C8')
UO.Usefromground('0x00D2')
UO.Usefromground('0x00DB')
UO.Usefromground('0x00DC')
UO.Usefromground('0x00DA')
end subСпасибо Влад но не робитSavage wrote:Code: Select all
sub taming() UO.DeleteJournal() UO.UseSkill('Animal Taming') Repeat wait(500) until UO.InJournal('You|вы') While (Uo.InJournal('You fail')) UO.DeleteJournal() UO.WaitTargetObject('lasttarget') UO.UseSkill('Animal Taming') Repeat wait(500) until UO.InJournal('You|вы') Wend UO.Say('All Come') wait(500) UO.Usefromground('horse') UO.Usefromground('0x00E2') UO.Usefromground('0x00E4') UO.Usefromground('0x00CC') UO.Usefromground('0x00C8') UO.Usefromground('0x00D2') UO.Usefromground('0x00DB') UO.Usefromground('0x00DC') UO.Usefromground('0x00DA') end sub
Таргет появляется на животное, кидал его на цель
жду, не затамил он не повторяет , а когда затамил не алл комит (
Короче не робит ((