Yoko

All sides of Injection
It is currently 2025-10-22 14:06:16

All times are UTC+02:00




Post new topic  Reply to topic  [ 8 posts ] 
Author Message
 Post subject: KillElemental....
PostPosted: 2006-04-24 15:27:21 
Offline
User avatar

Joined: 2005-06-19 19:21:28
Posts: 159
Помогите пожалуйста с убийством элементалей...
Можно переделать,чтобы чар не сумонился в демона, а просто вызывал вортекса на элементаля, ждал пока elemental == 0
Вас Ан Орт, переделайте пожалуйста....


Code:
sub ElementalKill() 
var Count,LastTimer,Elemental
var o,exit
dim Ore[13]
Ore[1]=0x19B9
Ore[2]=0x19B7 
Ore[3]=0x19BA 
Ore[4]=0x19B8 
Ore[5]=0x0F11 
Ore[6]=0x0F16 
Ore[7]=0x0F18 
Ore[8]=0x0F15 
Ore[9]=0x0F10 
Ore[10]=0x0F0F 
Ore[11]=0x0F26 
Ore[12]=0x1F4C 
Ore[13]=0x0EED
uo.Exec('terminate ControlOfDanger')
wait(500)
uo.Exec('terminate Mining')
wait(500)
uo.Exec('terminate RecallRune')
uo.Exec('terminate Reconnect')

uo.Exec('terminate DropOre')
uo.Exec('terminate DangerWait')
uo.Exec('terminate DangerWait')
wait(500)
uo.UseType('0x0F0E','0x0631') ## -  Инвизка(тип,цвет).
while uo.STR<uo.Life+1
if uo.Mana>=50 then
uo.WaitMenu('What','Daemon')
uo.Cast('Polymorph')
wait(8000)
else
uo.UseType('0x0F0E','0x09DF') ## -  Тотал Мана(тип,цвет).
wait(3000)
end if
wend
LastTimer=uo.Timer()
repeat
uo.BandageSelf()
wait(4000)
until uo.Life==uo.STR or LastTimer+300<uo.Timer()
uo.UseType('0x1B76')
wait(10)
uo.UseType('0x13B9')
uo.DeleteJournal()
uo.Exec('warmode 1')
uo.FindType('0x0010',-1,'ground')
Elemental=uo.GetSerial('finditem')
uo.Attack(Elemental)
repeat
wait(1000)
if uo.Life<50 Then
uo.UseType('0x0F0E','0x09BB') ## - Греатер Хеал(тип,цвет).
end if
if uo.GetDistance(Elemental)>1 then
WalkN(0,0,Elemental)
end if
until uo.IsNPC(Elemental)==0
wait(3000)
uo.Exec('warmode 0')
wait(1000)
LastTimer=uo.Timer()
uo.DeleteJournal()
for o=1 to 13
exit=0
repeat
uo.FindType(Ore[o],-1,'ground')
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(1500)
else
exit=1
end if
until exit==1
next
### uo.Exec('warmode 1')
wait(40000)
uo.Exec('warmode 0')
ToRecall()
wait(300)
uo.Exec('exec Mining')
end sub




Заранее Спасибо!!!!


Top
   
 Post subject:
PostPosted: 2006-04-27 22:14:19 
Offline
User avatar

Joined: 2005-06-19 19:21:28
Posts: 159
Никто не поможет =(


Top
   
 Post subject:
PostPosted: 2006-04-27 22:17:10 
Offline

Joined: 2005-06-12 22:12:15
Posts: 247
a che za server to?
ja vot u sebja +veschej nachepil,.. arty odel,, i vse namana, elemental menja nepovalit...


Top
   
 Post subject:
PostPosted: 2006-04-27 22:42:30 
Offline
User avatar

Joined: 2005-06-19 19:21:28
Posts: 159
Ой... Простите ! Забыл шард указать =)
Шард Дрв!


Top
   
 Post subject:
PostPosted: 2006-05-02 19:56:16 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
Code:
if uo.injournal("heavy") then # вырыли элемента #
   # убиваем элемента #
   Vortex:
   uo.exec('usetype 0x0f0e 0x0631') # пьем инвизку, а то энергетик порвет =) #
   wait(300)
   uo.cast('Energy Vortex','self')
   repeat
      wait(300)
   until uo.injournal("fizzles") or uo.injournal("Vortex")
   if uo.injournal("fizzles") then
      goto Vortex
   else
                   wait(15000)
      vasanort:
      uo.exec('usetype 0x0f0e 0x09DF') # пьем манку #
      wait(300)
      uo.cast('Mass Dispel','self')
      wait(7000)
      if uo.injournal("fizzles") then
         goto vasanort
      endif
# собираем руду и копаем дальше #
      UO.SetReceivingContainer('backpack')
      UO.FindType('0x19B9',-1,'ground')
      if UO.GetQuantity('finditem')>0 then
         UO.Grab('0','finditem')
         wait(2000)
      endif
      UO.FindType('0x19B7',-1,'ground')
                   if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')
               wait(2000)
      endif
      UO.FindType('0x19BA',-1,'ground')
      if UO.GetQuantity('finditem')>0 then
         UO.Grab('0','finditem')
         wait(2000)
      endif
      UO.FindType('0x19B8',-1,'ground')
      if UO.GetQuantity('finditem')>0 then
         UO.Grab('0','finditem')
         wait(2000)
      endif
      UO.UnSetReceivingContainer()
   endif
endif


тут чисто кусок отвечающий за убийство элема и его лут, так что внедряй в мининг сам ...

_________________
My Game is Ultima online on DRW!


Top
   
 Post subject:
PostPosted: 2006-05-03 09:37:52 
Offline
User avatar

Joined: 2005-07-17 15:30:52
Posts: 308
Location: www.drw.ru
Автор, прокачай магию и морфайся и будет тебе счастье, сам занимался такой бредятиной, типо вортекс и тд, не надежно, вортекс он же дурной на весь свой вихрь, вот ему какой нить пиксель в голову ударит и он вместо элема тебя начнет валить, хотя элем ближе и все такое, так что лудше не заморачивайся, морф надежнее.


Top
   
 Post subject:
PostPosted: 2006-05-03 09:41:31 
Offline

Joined: 2005-04-08 11:11:51
Posts: 15
Ммм. а инвиз, саммон демон, алл килл, алл релиз не катит?


Top
   
 Post subject:
PostPosted: 2006-05-03 10:16:08 
Offline
User avatar

Joined: 2005-07-17 15:30:52
Posts: 308
Location: www.drw.ru
Quote:
Ммм. а инвиз, саммон демон, алл килл, алл релиз не катит?


Если на твоем шарде демон действительно силен то это самый лудший вариант, просто на шарде где я играю демон мега чел, попадает по голому чару 15%, урон как у зомби, тока хп много, я голый 3 шт сразу разложу с кулака не хелясь, ну а скажем на дрв он чуть ли не с одного удара расплющит любого, так что дерзай, сам скрипт выйдет не сложный, если играешь на дрв, то советую просто брать дракона в шринке и несколько шринок с собой, элем, бежишь к нему, драка из шринки, инвизка, и джешь, драка свернул, полутал и дальше копать.


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