Как боротся с елементами )

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Vaha)
Posts: 90
Joined: 2004-12-18 18:56:10

Как боротся с елементами )

Post by Vaha) »

У меня возникла проблема(((( раньше можно было спокойно копать! а щас зделали так что при копании со скалы вылазят елементалии) и как с ними справлятся я незнаю и в скрипте не получается%( помогите кто могет:)
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post 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
Top
Vaha)
Posts: 90
Joined: 2004-12-18 18:56:10

Post 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

Хм... ет канечно хорошо но:) Один вопрос ето будеть работать на рунуо?
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post 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

Хм... ет канечно хорошо но:) Один вопрос ето будеть работать на рунуо?



даже не знаю я на ранке играл пару раз но не проверял
Top
Vaha)
Posts: 90
Joined: 2004-12-18 18:56:10

Post by Vaha) »

Особо то мне не нуно килять елементов а просто от них реколится ))) но кода я попробывал зделать поиск по типу возле себя то я понял одно что у етих елементов разный тип) хыхы а переписовать как то не в пруху :) пробывал зделать с клилоками но к сожалению :( нечего не получилось потому что килилок на появление нпц идеть одинаковый) ну естествено все монстры или животные попадают под етот килок) так что я просто незнаю как ето написать что б крафт просто убегал при появлении елема?)
Кто знает помогите) плиЗ)
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

Vaha) wrote:Особо то мне не нуно килять елементов а просто от них реколится ))) но кода я попробывал зделать поиск по типу возле себя то я понял одно что у етих елементов разный тип) хыхы а переписовать как то не в пруху :) пробывал зделать с клилоками но к сожалению :( нечего не получилось потому что килилок на появление нпц идеть одинаковый) ну естествено все монстры или животные попадают под етот килок) так что я просто незнаю как ето написать что б крафт просто убегал при появлении елема?)
Кто знает помогите) плиЗ)


а проверку по журналу не пробовал?

if UO.InJournal('something with ore') OR UO.InJournal("attacking you") then
...
else
...
end if
Top
Vaha)
Posts: 90
Joined: 2004-12-18 18:56:10

Post by Vaha) »

Question wrote:
Vaha) wrote:Особо то мне не нуно килять елементов а просто от них реколится ))) но кода я попробывал зделать поиск по типу возле себя то я понял одно что у етих елементов разный тип) хыхы а переписовать как то не в пруху :) пробывал зделать с клилоками но к сожалению :( нечего не получилось потому что килилок на появление нпц идеть одинаковый) ну естествено все монстры или животные попадают под етот килок) так что я просто незнаю как ето написать что б крафт просто убегал при появлении елема?)
Кто знает помогите) плиЗ)


а проверку по журналу не пробовал?

if UO.InJournal('something with ore') OR UO.InJournal("attacking you") then
...
else
...
end if


Я то протестил но оно что то не работает:(
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

А ты глянь что у тебя вылазит в журнале когда появляется эль ......и забей в проверку ....и помойму на Ран УО проверка по клилокам
Все просто.
BETEPAH ™
Top
Post Reply

Return to “Scripting Ore”