Помогите со скриптом на хилинг!!!!
Posted: 2005-03-29 11:19:06
Люди дайте скрипт на инжу!Чтобы чар одевал курсу,ждал пока жизни понизятся и потом сам хилился
Code: Select all
UO.FindType('0x0E20',-1,'my')
wait(1000)
UO.UseObject('finditem')
wait(1000)
Code: Select all
UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
cheklag()
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
else
cheklag()
uo.print("You haven't bandages")
uo.exec("terminate Train_Healing")
Play_Sound(1)
endif
Code: Select all
###################################################################
## Прокачка хеллинга и спирит спика на шарде ДРВ www.drw.ru ##
## Перед запуском скрипта надо предварительно ##
##одеть курснутую кирку и подождать, пока хелса будет равна силе.##
## После запуска просто ткнуть в чан с водой ##
##Встроеная прокачка спирит спика, на скорость хеллинга не влият.##
## После каждого сохранения мира, моет бинты, бинтов нужно ##
## примерно 400-600, без учёта, что они будут пропадать. ##
###################################################################
sub Healing()
While True
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
wait(3150)
If UO.InJournal("now")Then
wait(120000)
UO.Arm('CWeapon')
wait(1500)
UO.DeleteJournal()
UO.FindType(0x0E20,"-1","my")
If UO.FindCount() then
uo.UseType(0x0E20) ;bloody bandages
uo.waittargettype(0x1008) ;wash basin
wait(1500)
else
wait(1000)
uo.print("You have no bandages")
UO.Exec("playwav d:\game\uo\injection\cow")
endif
endif
If UO.InJournal("cure") Then ;иногда может проглючить
UO.Exec("playwav d:\game\uo\injection\cow")
wait(5000)
UO.DeleteJournal()
endif
UO.Useskill('Spirit Speak')
wait(500)
wend
end sub
CheckLag - это не команда, это ф-я. И взять можешь её с любого скриптаJerry wrote:почему то у меня с коммандой CheckLag ничё не получилось... заменил на w8