Гуру, не подскажите в чем проблема?
Code: Select all
sub Inscription()
var blank='0x0e34'
var ink='0x0FC0'
While NOT UO.Dead()
if UO.Mana > 20 Then
UO.FindType(ink, 0x0064)
If UO.FindCount(ink, 0x0064) > 0 Then
UO.UseType( ink, 0x064 )
Else
UO.UseFromGround(ink, 0x0064)
EndIf
UO.DeleteJournal()
UO.WaitTargetGround(blank)
Wait(1000)
UO.LClick(329,250)
While NOT UO.InJournal('мессага на русском')
Wait(500)
WEnd
Else
UO.DeleteJournal()
While UO.Mana < 98
UO.UseSkill('Meditation')
Wait(2000)
While UO.InJournal('мессага на русском')
Wait(1000)
If UO.InJournal('мессага на русском') Then
UO.DeleteJournal()
EndIf
WEnd
WEnd
EndIf
WEnd
end sub