Page 1 of 1
Помогите доработать скрипт на магию
Posted: 2005-06-07 19:52:44
by prodam iron
Code: Select all
sub Magery()
UO.Print( 'ID руны' )
UO.Exec( 'addobject KACT HA' )
While UO.Targeting()
Wait( 200 )
Wend
Wait( 1000 )
Repeat
While UO.Mana >= 9
UO.Cast( 'Poison', KACT HA )
Wait(3000)
Wend
UO.DeleteJournal()
Repeat
UO.UseSkill( 'Meditation' )
Wait( 1000 )
Until UO.InJournal('at peace')
Until UO.Dead()
end sub
Вот собсно скрипт, но даже когда маны после медита становится больше 9, чар продолжает медитировать. А мне нужно чтобы, как только маны 9 сразу кастовал.
Posted: 2005-06-07 20:05:27
by I'm
Code: Select all
Repeat
UO.UseSkill( 'Meditation' )
Wait( 1000 )
Until UO.InJournal('at peace')
Что делает это?
А это юзает медитацию каждую секунду до тех пор пока в журнале не появится "'at peace'"
Исправить сможеш?
Posted: 2005-06-07 20:07:45
by prodam iron
Не уверен
, если не сложно подскажи как.
Posted: 2005-06-07 20:12:04
by prodam iron
Хотя я тут подумал, разницы то в скорости прокачки вроде нету. Что до упора медитировать, что до 9. Или я ошибаюсь?
Posted: 2005-06-07 22:35:09
by flake
Ты прав.
Так что можешь не беспокоиться, нормальный скрипт.
Posted: 2005-06-08 13:08:26
by I'm
Кадат писал
Он берет еще реги из сундучка
Code: Select all
###############################################################
# # Magery (Poison) v0.9a # #
# # # "Whith The Help Of Ancient Gods." # # #
# # Crafted by I'm [ICQ:138088] # #
###############################################################
sub Magery()
##############
# Описание. ###################################################
##############
# Чар берет из сундука NightShade, кастует Poison (In Nox) на цель.
# - Сперва вас попросят указать сундук с реагентами (Container).
# - Затем на цель (Target).
###############################################################
UO.AddObject("Container")
While UO.Targeting()
Wait(100)
Wend
UO.AddObject("Target")
While UO.Targeting()
Wait(100)
Wend
##########################
While NOT UO.Dead()
While UO.Mana>10 AND UO.Count("0x0F88")>0
UO.Cast("Poison","Target")
Wait(4000)
CheckLag()
Wend
While UO.Mana<UO.Int
UO.WarMode("0")
UO.UseSkill("Meditation")
Wait(1000)
Wend
If UO.Count("0x0F88")==0 Then
UO.Useobject("Container")
CheckLag()
UO.FindType("0x0F88",-1,"Container")
UO.Grab("50","finditem")
CheckLag()
EndIf
Wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
Wait(500)
Until UO.InJournal("backpack")
end sub
Posted: 2005-06-09 11:47:36
by prodam iron
Еще 1 вопрос, чтобы хавал, когда голоден достаточно этой строчки
UO.UseType(TypeFood)
wait(1000)
Until UO.InJournal('You are stuffered!') or UO.Dead()
Posted: 2005-06-09 11:49:48
by flake
Вот так:
Code: Select all
Repeat
UO.UseType(TypeFood)
wait(1000)
Until UO.InJournal('You are stuffered!') or UO.Dead()
Posted: 2005-06-09 12:31:53
by prodam iron
Пасибки.
Posted: 2005-06-09 13:09:19
by prodam iron
Кстати маленькая ошибка тут, мож кому пригодится тоже, пишется не stuffered, а stuffed
Собс-но все.