Yoko

All sides of Injection
It is currently 2025-11-11 08:39:11

All times are UTC+02:00




Post new topic  Reply to topic  [ 8 posts ] 
Author Message
PostPosted: 2005-01-21 16:46:43 
Offline

Joined: 2004-12-18 18:56:10
Posts: 90
У меня возникла проблема(((( раньше можно было спокойно копать! а щас зделали так что при копании со скалы вылазят елементалии) и как с ними справлятся я незнаю и в скрипте не получается%( помогите кто могет:)


Top
   
 Post subject:
PostPosted: 2005-01-21 19:04:06 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
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
   
 Post subject:
PostPosted: 2005-01-21 19:35:57 
Offline

Joined: 2004-12-18 18:56:10
Posts: 90
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
   
 Post subject:
PostPosted: 2005-01-21 20:17:30 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
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
   
 Post subject:
PostPosted: 2005-01-21 21:07:43 
Offline

Joined: 2004-12-18 18:56:10
Posts: 90
Особо то мне не нуно килять елементов а просто от них реколится ))) но кода я попробывал зделать поиск по типу возле себя то я понял одно что у етих елементов разный тип) хыхы а переписовать как то не в пруху :) пробывал зделать с клилоками но к сожалению :( нечего не получилось потому что килилок на появление нпц идеть одинаковый) ну естествено все монстры или животные попадают под етот килок) так что я просто незнаю как ето написать что б крафт просто убегал при появлении елема?)
Кто знает помогите) плиЗ)


Top
   
 Post subject:
PostPosted: 2005-01-21 23:38:01 
Offline
Expert!
User avatar

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


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

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


Top
   
 Post subject:
PostPosted: 2005-01-22 09:27:18 
Offline

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


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

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


Я то протестил но оно что то не работает:(


Top
   
 Post subject:
PostPosted: 2005-01-22 11:13:06 
Offline
Expert!
User avatar

Joined: 2004-05-31 09:31:51
Posts: 838
А ты глянь что у тебя вылазит в журнале когда появляется эль ......и забей в проверку ....и помойму на Ран УО проверка по клилокам

_________________
Все просто.
BETEPAH ™


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 8 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited