Yoko :: Kill Elem -> grab

Yoko http://forum.yoko.com.ua/

Kill Elem -> grab http://forum.yoko.com.ua/viewtopic.php?f=3&t=3287	Page 1 of 1

Author:

Dron D. [ 2005-03-03 23:24:48 ]

Post subject:

Kill Elem -> grab

Вот известный всем скрипт:

Code:

sub killelem() 
   VAR Count, LastTimer, Elem 
       UO.UseType('0x0F0E','0x0631') ; inviz potion 
   While UO.STR<201 ; U'r not morfed char max Strength + 1 
      If UO.Mana>=50 then 
         UO.WaitMenu('What','Daemon') 
         UO.Cast('Polymorph') 
         wait(8000) 
      else 
         UO.UseType('0x0F0E','0x09DF') ; total mana potion 
         wait(3000) 
      endif 
   Wend 

   LastTimer=UO.Timer() 

   repeat 
      UO.BandageSelf() 
      wait(4000) 
   until UO.Life==UO.STR OR LastTimer+300<UO.Timer() 

   UO.UseType(0x1B76) ; heater shield 
   UO.UseType(0x1413) ; platemail gorget 
    
   UO.DeleteJournal() 
   UO.Exec('warmode 1') 

   UO.FindType('0x0010',-1,'ground') 
   Elem=UO.GetSerial('finditem') 

   UO.Attack(Elem) 
    
   repeat 
      wait(1000) 
      If UO.Life<100 Then 
         UO.UseType('0x0F0E','0x09BB') ;GH 
      Endif 

      If UO.GetDistance(Elem)>1 Then 
         walkn(0,0,Elem) 
      Endif 
      
      If UO.Life<100 Then
         UO.UseType('0x0F0E','0x0631') ; inviz potion
         wait(1000)
         repeat 
           UO.BandageSelf() 
           wait(4000) 
         until UO.Life==UO.STR
         UO.UseType(0x1B76) ; heater shield
         wait(1000)
         uo.sayu("Я вернулся!!!")
      Endif

   until UO.IsNPC(Elem)==0 
   wait(3000) 


   UO.WaitTargetGround('0x19B9') ; 4 and more ore 
   wait(1500) 
   UO.Grab('all') 
   UO.WaitTargetGround('0x19B8') ; 3 ore 
   wait(1500) 
   UO.Grab('all') 
   UO.WaitTargetGround('0x0EED') ; gold coins 
   wait(500) 
   UO.Grab('all')


   UO.FindType('0x0010',-1,'ground') 
   If UO.GetQuantity('finditem')>0 Then 
      KillElem() 
   Endif 

   UO.Exec('warmode 0') 
   wait(1000) 

   UO.Print("Sdoh skotina!") 

   LastTimer=UO.Timer() 
   if UO.Life<200 then ; U'r max HP 
      repeat 
         UO.BandageSelf() 
         wait(4000) 
      until UO.Life>200 OR LastTimer+300<UO.Timer() 
   endif 
   UO.DeleteJournal() 

end sub

Морфится - хилится - убивает... Но не работает uo.grab, инжа выдает таргет и предлагает мне самому нацелится на нужный мне предмет

Подскажите нубойду, как будет выглядить этот grab, чтобы чар сам поднимал лут с земли.
______________________
*Версия инжы последняя
**дрв шард

Author:	Savage [ 2005-03-04 11:13:48 ]
Post subject:
Поставь галочку на Track World Item

Author:	Askaneli [ 2005-03-04 11:30:54 ]
Post subject:
Code: UO.Print("Sdoh skotina!") Гыыыыыыыыыыыыыыыыыыыыыыыы Блин. Ну ваще, ну юмористы !!!

Author:	Sfagnum [ 2005-03-04 14:08:59 ]
Post subject:
Askaneli wrote: Code: UO.Print("Sdoh skotina!") Гыыыыыыыыыыыыыыыыыыыыыыыы Блин. Ну ваще, ну юмористы !!! причём если мине не изменяет память то именно так и есть в автолоде Savage

Author:	Savage [ 2005-03-04 14:43:16 ]
Post subject:
Угу осталось от отладочных работ Дело в том что когда элем нужен его ждать можно сутки когда не нужен пачками лезут. Я тогда 4 дня откатывал этот скрипт.

Author:	Savage [ 2005-03-04 14:45:17 ]
Post subject:
А вот дохиливание мне не требуется элемы итак неплохо мрут исключение состовляет момент когда чар в морфе и морф кончается в бою Все никак руки не дойдут переделать.

Author:	Dron D. [ 2005-03-04 16:34:04 ]
Post subject:
2Savage: Галочки стоят над: Light Target XYZ Fix Version Track World Items - стоит при килле елей и при етом не grab`ит

Author:	Savage [ 2005-03-04 17:35:26 ]
Post subject:
А деньги грабит? Проверь типы руды.

Author:	Dron D. [ 2005-03-04 19:31:02 ]
Post subject:
не грабит деньги тоже

Author:	Dron D. [ 2005-03-04 19:31:19 ]
Post subject:
тип руды тож проверил все норм но не берет

Author:

BETEPAH [ 2005-03-05 09:31:31 ]

Post subject:

Вот моя переделка Савы.(Спасибо Саваджу за Идею, ничего лишнего просто передалал я его малость)

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.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') ## - Хеатер Щит(тип).
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

GotoXY(uo.getx(Elemental),uo.gety(Elemental),1) ## - тут моя ходилка  он работает и Савина.

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')
uo.Exec('warmode 0')
uo.Exec('exec Mining')
end sub

Author:

Dron D. [ 2005-03-05 20:05:18 ]

Post subject:

а вот так вот работает...

Code:

sub grabelem()
var i
DIM Item[6]
######################################
Item[1]=0x19B9  ;  >3 ore 
Item[2]=0x19B7  ;  1 ore 
Item[3]=0x19BA  ;  2 ore 
Item[4]=0x19B8  ;  3 ore 
Item[5]=0x0EED ;  gold
######################################
   for i = 1 to 5
          UO.FindType(Item[i], '-1', 'ground')       
         UO.MoveItem('finditem','-1','backpack') 
         Wait(1000) 
         CheckLag()                 
   next
end sub

Author:

GimFlex [ 2005-03-07 20:04:57 ]

Post subject:

ну дорабатывал я с дохиливанием и грабоим тока откуда они у вас я только для себя писал и фраза uo.sayu("я вернулся") я только для себя писал как такое возможно странно ??? вот мои варианты хотя они тута есть

Code:

sub killelem() 
   VAR Count, LastTimer, Elem 
       UO.UseType('0x0F0E','0x0631') ; inviz potion 
   While UO.STR<201 ; U'r not morfed char max Strength + 1 
      If UO.Mana>=50 then 
         UO.WaitMenu('What','Daemon') 
         UO.Cast('Polymorph')
         CheckLag()
         wait(8000)
         CheckLag()
      else 
         UO.UseType('0x0F0E','0x09DF') ; total mana potion 
         wait(3000)
         CheckLag()
      endif 
   Wend 

   LastTimer=UO.Timer() 

   repeat
      CheckLag()
      UO.BandageSelf() 
      wait(4000) 
   until UO.Life==UO.STR OR LastTimer+300<UO.Timer() 

   UO.UseType(0x1B76) ; heater shield 
   UO.UseType(0x1413) ; platemail gorget 
    
   UO.DeleteJournal() 
   UO.Exec('warmode 1') 

   CheckLag()
   UO.FindType('0x0010',-1,'ground') 
   Elem=UO.GetSerial('finditem') 

   UO.Attack(Elem) 
    
   repeat
      CheckLag()
      wait(1000) 
      If UO.Life<150 Then 
         UO.UseType('0x0F0E','0x09BB') ;GH 
      Endif 

      If UO.GetDistance(Elem)>1 Then
         CheckLag()
         walkn(0,0,Elem) 
      Endif 
      
      If UO.Life<75 Then
         UO.Exec('warmode 0')
         UO.UseType('0x0F0E','0x0631') ; inviz potion
         UO.Exec('warmode 0')
         wait(3000)
         UO.Exec('warmode 0')
         repeat 
           UO.BandageSelf() 
           wait(4000)
           CheckLag()
         until UO.Life==UO.STR
         wait(1000)
         UO.UseType(0x1B76) ; heater shield
         wait(15000)
         UO.Exec('warmode 1')
         UO.Attack(Elem)
      Endif

   until UO.IsNPC(Elem)==0 
   wait(3000) 

   grabelem()

   UO.FindType('0x0010',-1,'ground') 
   If UO.GetQuantity('finditem')>0 Then
      CheckLag()
      KillElem() 
   Endif 

   UO.Exec('warmode 0') 
   wait(1000) 

   UO.Print("Sdoh skotina!") 

   LastTimer=UO.Timer() 
   if UO.Life<200 then ; U'r max HP 
      repeat 
         UO.BandageSelf() 
         wait(4000)
         CheckLag()
      until UO.Life>200 OR LastTimer+300<UO.Timer() 
   endif 
   UO.DeleteJournal() 
   While UO.STR>201
         CheckLag()
         If UO.Mana<30 then
          UO.UseType('0x0F0E','0x09DF')
         endif 
         UO.Cast('Dispel','self')
         wait(5000)
           Wend
end sub 



sub grabelem()
var i
DIM Item[6]
######################################
#Типы оров, золота
######################################
Item[1]=0x19B9  ;  >3 ore 
Item[2]=0x19B7  ;  1 ore 
Item[3]=0x19BA  ;  2 ore 
Item[4]=0x19B8  ;  3 ore 
Item[5]=0x0EED ;  gold
######################################
   for i = 1 to 5
          UO.FindType(Item[i], '-1', 'ground')       
         UO.MoveItem('finditem','-1','backpack') 
         Wait(1000) 
         CheckLag()          next
end sub

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/