Page 1 of 1
Как боротся с елементами )
Posted: 2005-01-21 16:46:43
by Vaha)
У меня возникла проблема(((( раньше можно было спокойно копать! а щас зделали так что при копании со скалы вылазят елементалии) и как с ними справлятся я незнаю и в скрипте не получается%( помогите кто могет:)
Posted: 2005-01-21 19:04:06
by GimFlex
sub killelem()
VAR Count, LastTimer
UO.UseType('0x0F0E','0x0631') ; inviz potion
repeat
If UO.Mana>=50 then
UO.WaitMenu('What','Daemon')
UO.Cast('Polymorph')
wait(8000)
else
while UO.Mana<50
UO.UseType('0x0F0E','0x09DF') ; total mana potion
wait(3000)
wend
endif
until UO.STR>200 ; U'r not morfed char max Strength
LastTimer=UO.Timer()
repeat
UO.BandageSelf()
wait(4000)
until UO.Life==UO.STR OR LastTimer+200<UO.Timer()
UO.UseType(0x1B76) ; heater shield
UO.UseType(0x1413) ; platemail gorget
UO.DeleteJournal()
UO.WarMode(1)
UO.UseSkill('Meditation') ; reveal self
; "Corpse autoopen" in "main" need be checked
repeat
wait(5000)
until UO.InJournal('Body') OR UO.InJournal('You can')
If UO.InJournal('You can') then
UO.WaitTargetGround('0x19B9') ; 4 and more ore
wait(1500)
UO.Grab('all')
UO.WaitTargetGround('0x0EED') ; gold coins
wait(500)
UO.Grab('all')
Else
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0F51') ; dagger
wait(500)
UO.FindType('0x19B9',-1,'lastcorpse') ; ore
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x0EED',-1,'lastcorpse') ; coins
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x1BF5',-1,'lastcorpse') ; ings
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x0E76',-1,'lastcorpse') ; bag
wait(500)
UO.Grab(0,'finditem')
endif
UO.WarMode('flip')
wait(1000)
UO.WarMode(0)
wait(1000)
LastTimer=UO.Timer()
if UO.Life<200 then ; U'r max HP
repeat
UO.BandageSelf()
wait(4000)
until UO.Life>180 OR LastTimer+180<UO.Timer()
endif
ToHide()
end sub
Posted: 2005-01-21 19:35:57
by Vaha)
Question wrote:sub killelem()
VAR Count, LastTimer
UO.UseType('0x0F0E','0x0631') ; inviz potion
repeat
If UO.Mana>=50 then
UO.WaitMenu('What','Daemon')
UO.Cast('Polymorph')
wait(8000)
else
while UO.Mana<50
UO.UseType('0x0F0E','0x09DF') ; total mana potion
wait(3000)
wend
endif
until UO.STR>200 ; U'r not morfed char max Strength
LastTimer=UO.Timer()
repeat
UO.BandageSelf()
wait(4000)
until UO.Life==UO.STR OR LastTimer+200<UO.Timer()
UO.UseType(0x1B76) ; heater shield
UO.UseType(0x1413) ; platemail gorget
UO.DeleteJournal()
UO.WarMode(1)
UO.UseSkill('Meditation') ; reveal self
; "Corpse autoopen" in "main" need be checked
repeat
wait(5000)
until UO.InJournal('Body') OR UO.InJournal('You can')
If UO.InJournal('You can') then
UO.WaitTargetGround('0x19B9') ; 4 and more ore
wait(1500)
UO.Grab('all')
UO.WaitTargetGround('0x0EED') ; gold coins
wait(500)
UO.Grab('all')
Else
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0F51') ; dagger
wait(500)
UO.FindType('0x19B9',-1,'lastcorpse') ; ore
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x0EED',-1,'lastcorpse') ; coins
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x1BF5',-1,'lastcorpse') ; ings
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x0E76',-1,'lastcorpse') ; bag
wait(500)
UO.Grab(0,'finditem')
endif
UO.WarMode('flip')
wait(1000)
UO.WarMode(0)
wait(1000)
LastTimer=UO.Timer()
if UO.Life<200 then ; U'r max HP
repeat
UO.BandageSelf()
wait(4000)
until UO.Life>180 OR LastTimer+180<UO.Timer()
endif
ToHide()
end sub
Хм... ет канечно хорошо но:) Один вопрос ето будеть работать на рунуо?
Posted: 2005-01-21 20:17:30
by GimFlex
Vaha) wrote:Question wrote:sub killelem()
VAR Count, LastTimer
UO.UseType('0x0F0E','0x0631') ; inviz potion
repeat
If UO.Mana>=50 then
UO.WaitMenu('What','Daemon')
UO.Cast('Polymorph')
wait(8000)
else
while UO.Mana<50
UO.UseType('0x0F0E','0x09DF') ; total mana potion
wait(3000)
wend
endif
until UO.STR>200 ; U'r not morfed char max Strength
LastTimer=UO.Timer()
repeat
UO.BandageSelf()
wait(4000)
until UO.Life==UO.STR OR LastTimer+200<UO.Timer()
UO.UseType(0x1B76) ; heater shield
UO.UseType(0x1413) ; platemail gorget
UO.DeleteJournal()
UO.WarMode(1)
UO.UseSkill('Meditation') ; reveal self
; "Corpse autoopen" in "main" need be checked
repeat
wait(5000)
until UO.InJournal('Body') OR UO.InJournal('You can')
If UO.InJournal('You can') then
UO.WaitTargetGround('0x19B9') ; 4 and more ore
wait(1500)
UO.Grab('all')
UO.WaitTargetGround('0x0EED') ; gold coins
wait(500)
UO.Grab('all')
Else
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0F51') ; dagger
wait(500)
UO.FindType('0x19B9',-1,'lastcorpse') ; ore
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x0EED',-1,'lastcorpse') ; coins
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x1BF5',-1,'lastcorpse') ; ings
wait(500)
UO.Grab(0,'finditem')
UO.FindType('0x0E76',-1,'lastcorpse') ; bag
wait(500)
UO.Grab(0,'finditem')
endif
UO.WarMode('flip')
wait(1000)
UO.WarMode(0)
wait(1000)
LastTimer=UO.Timer()
if UO.Life<200 then ; U'r max HP
repeat
UO.BandageSelf()
wait(4000)
until UO.Life>180 OR LastTimer+180<UO.Timer()
endif
ToHide()
end sub
Хм... ет канечно хорошо но:) Один вопрос ето будеть работать на рунуо?
даже не знаю я на ранке играл пару раз но не проверял
Posted: 2005-01-21 21:07:43
by Vaha)
Особо то мне не нуно килять елементов а просто от них реколится ))) но кода я попробывал зделать поиск по типу возле себя то я понял одно что у етих елементов разный тип) хыхы а переписовать как то не в пруху
пробывал зделать с клилоками но к сожалению
нечего не получилось потому что килилок на появление нпц идеть одинаковый) ну естествено все монстры или животные попадают под етот килок) так что я просто незнаю как ето написать что б крафт просто убегал при появлении елема?)
Кто знает помогите) плиЗ)
Posted: 2005-01-21 23:38:01
by GimFlex
Vaha) wrote:Особо то мне не нуно килять елементов а просто от них реколится ))) но кода я попробывал зделать поиск по типу возле себя то я понял одно что у етих елементов разный тип) хыхы а переписовать как то не в пруху
пробывал зделать с клилоками но к сожалению
нечего не получилось потому что килилок на появление нпц идеть одинаковый) ну естествено все монстры или животные попадают под етот килок) так что я просто незнаю как ето написать что б крафт просто убегал при появлении елема?)
Кто знает помогите) плиЗ)
а проверку по журналу не пробовал?
if UO.InJournal('something with ore') OR UO.InJournal("attacking you") then
...
else
...
end if
Posted: 2005-01-22 09:27:18
by Vaha)
Question wrote:Vaha) wrote:Особо то мне не нуно килять елементов а просто от них реколится ))) но кода я попробывал зделать поиск по типу возле себя то я понял одно что у етих елементов разный тип) хыхы а переписовать как то не в пруху
пробывал зделать с клилоками но к сожалению
нечего не получилось потому что килилок на появление нпц идеть одинаковый) ну естествено все монстры или животные попадают под етот килок) так что я просто незнаю как ето написать что б крафт просто убегал при появлении елема?)
Кто знает помогите) плиЗ)
а проверку по журналу не пробовал?
if UO.InJournal('something with ore') OR UO.InJournal("attacking you") then
...
else
...
end if
Я то протестил но оно что то не работает:(
Posted: 2005-01-22 11:13:06
by BETEPAH
А ты глянь что у тебя вылазит в журнале когда появляется эль ......и забей в проверку ....и помойму на Ран УО проверка по клилокам