Kill Elem -> grab

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, чтобы чар сам поднимал лут с земли.
______________________
*Версия инжы последняя
**дрв шард

Top

Profile

Reply with quote

Savage

Post subject:

PostPosted: 2005-03-04 11:13:48

Offline

Expert!

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.

Поставь галочку на Track World Item

Top

Profile

Reply with quote

Askaneli

Post subject:

PostPosted: 2005-03-04 11:30:54

Offline

Sphere expert

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа

Code:

UO.Print("Sdoh skotina!")

Гыыыыыыыыыыыыыыыыыыыыыыыы
:mrgreen:

Блин. Ну ваще, ну юмористы !!!

_________________
Сделал дело - флуди смело !!!

Top

Profile

Reply with quote

Sfagnum

Post subject:

PostPosted: 2005-03-04 14:08:59

Offline

Expert!

Joined: 2004-07-04 00:14:58
Posts: 1284

Askaneli wrote:

Code:

UO.Print("Sdoh skotina!")

Гыыыыыыыыыыыыыыыыыыыыыыыы
:mrgreen:

Блин. Ну ваще, ну юмористы !!!

причём если мине не изменяет память то именно так и есть в автолоде Savage

Top

Profile

Reply with quote

Savage

Post subject:

PostPosted: 2005-03-04 14:43:16

Offline

Expert!

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.

Угу

осталось от отладочных работ

Дело в том что когда элем нужен его ждать можно сутки когда не нужен пачками лезут. Я тогда 4 дня откатывал этот скрипт.

Top

Profile

Reply with quote

Savage

Post subject:

PostPosted: 2005-03-04 14:45:17

Offline

Expert!

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.

А вот дохиливание мне не требуется элемы итак неплохо мрут исключение состовляет момент когда чар в морфе и морф кончается в бою

Все никак руки не дойдут переделать.

Top

Profile

Reply with quote

Dron D.

Post subject:

PostPosted: 2005-03-04 16:34:04

Offline

Joined: 2004-12-13 01:27:00
Posts: 190

2Savage:
Галочки стоят над:
Light
Target XYZ Fix
Version
Track World Items - стоит при килле елей и при етом не grab`ит

Top

Profile

Reply with quote

Savage

Post subject:

PostPosted: 2005-03-04 17:35:26

Offline

Expert!

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.

А деньги грабит? Проверь типы руды.

Top

Profile

Reply with quote

Dron D.

Post subject:

PostPosted: 2005-03-04 19:31:02

Offline

Joined: 2004-12-13 01:27:00
Posts: 190

не грабит деньги тоже

Top

Profile

Reply with quote

Dron D.

Post subject:

PostPosted: 2005-03-04 19:31:19

Offline

Joined: 2004-12-13 01:27:00
Posts: 190

тип руды тож проверил все норм но не берет

Top

Profile

Reply with quote

BETEPAH

Post subject:

PostPosted: 2005-03-05 09:31:31

Offline

Expert!

Joined: 2004-05-31 09:31:51
Posts: 838

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

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

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

Top

Profile

Reply with quote

Dron D.

Post subject:

PostPosted: 2005-03-05 20:05:18

Offline

Joined: 2004-12-13 01:27:00
Posts: 190

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

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

Top

Profile

Reply with quote

GimFlex

Post subject:

PostPosted: 2005-03-07 20:04:57

Offline

Expert!

Joined: 2005-01-07 13:22:19
Posts: 766

ну дорабатывал я с дохиливанием и грабоим тока откуда они у вас я только для себя писал и фраза 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

Top

Profile

Reply with quote

Post new topic Reply to topic

Page 1 of 1

[ 13 posts ]

Home » Board index » Injection » Help

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users 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

Yoko

Kill Elem -> grab

Who is online