Написал между делом скрипт на кукол. Вроде кто-то просил простенький.
Написал непростенький, пользуйтесь на здоровье.
################# Middle Earth UO Shard Dummy script ####################
################ Dummy by Zolton, checkFood by Sayrus ###################
#########################################################################
# #
# Для запуска скрипта необходимо взять в ньюби городе инструменты #
# у вендора при помощи комманды harvest, после чего проследовать #
# к ближайшим куклам для запуска скрипта. Таргет бросить на куклу, #
# после чего можно идти пить чай. #
# #
#########################################################################
# Настройки #
#
VAR MaxSkill = 470 # Максимум, который можно набить на кукле. #
VAR Close = 0 # Закрывать УО или нет. 1 - да, 0 - нет. #
VAR WTime = 5000 # Задержка между ударам по кукле #
VAR waitTimeEat = 10*60*5 # 5 минут, перерыв между едой #
VAR FoodType = '0x097b' # Тип еды #
#
# '0x097B' - жаренная рыба #
# '0x09F2' - жаренное мясо #
# '0x171F' - бананы #
# #
#########################################################################
sub dummy()
UO.DeleteJournal()
var i
uo.concolor(0x53)
uo.Print("Укажи таргетом на куклу.")
uo.concolor(0)
UO.Exec('addobject dummy')
While UO.Targeting()
Wait(300)
WEnd
Dim Weap[4]
Weap[0] = '0x0000' # пустота, чтобы был врестлинг
Weap[1] = '0x0F43' # hatchet
Weap[2] = '0x0E85' # pickaxe
Weap[3] = '0x0F51' # dagger
Dim Skill[4]
Skill[0] = 'Wrestling'
Skill[1] = 'Swordsmanship'
Skill[2] = 'Mace Fighting'
Skill[3] = 'Fencing'
For i = 0 to 3
UO.Disarm()
UO.Equipt('Rhand', Weap[i])
While UO.SkillVal(Skill[i]) < MaxSkill
UO.UseObject('dummy')
Wait(WTime)
CheckFood()
WEnd
Wait(500)
UO.DeleteJournal()
Next
uo.concolor(0x53)
uo.Print("Закончил!")
uo.concolor(0)
if close > 0 then
UO.CloseUO()
EndIf
end sub
var lastTimeEat = uo.timer()
Sub checkFood()
if (lastTimeEat+waitTimeEat) < uo.timer() then # по прошествии времени
lastTimeEat = uo.timer()
uo.usetype(FoodType) # чар ест жаренную рыбу
wait(1000)
end if
end sub