Kill Elem -> grab

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Kill Elem -> grab

Post by Dron D. »

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

Code: Select all

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, инжа выдает таргет и предлагает мне самому нацелится на нужный мне предмет :D
Подскажите нубойду, как будет выглядить этот grab, чтобы чар сам поднимал лут с земли.
______________________
*Версия инжы последняя
**дрв шард
Top
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:
Contact Savage

Post by Savage »

Поставь галочку на Track World Item
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Code: Select all

UO.Print("Sdoh skotina!")
:mrgreen:
Гыыыыыыыыыыыыыыыыыыыыыыыы
:mrgreen:

Блин. Ну ваще, ну юмористы !!!
Сделал дело - флуди смело !!!
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Askaneli wrote:

Code: Select all

UO.Print("Sdoh skotina!")
:mrgreen:
Гыыыыыыыыыыыыыыыыыыыыыыыы
:mrgreen:

Блин. Ну ваще, ну юмористы !!!
причём если мине не изменяет память то именно так и есть в автолоде Savage
Top
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:
Contact Savage

Post by Savage »

Угу :) осталось от отладочных работ :) Дело в том что когда элем нужен его ждать можно сутки когда не нужен пачками лезут. Я тогда 4 дня откатывал этот скрипт.
Top
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:
Contact Savage

Post by Savage »

А вот дохиливание мне не требуется элемы итак неплохо мрут исключение состовляет момент когда чар в морфе и морф кончается в бою :) Все никак руки не дойдут переделать.
Top
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Post by Dron D. »

2Savage:
Галочки стоят над:
Light
Target XYZ Fix
Version
Track World Items - стоит при килле елей и при етом не grab`ит :(
Top
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:
Contact Savage

Post by Savage »

А деньги грабит? Проверь типы руды.
Top
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Post by Dron D. »

не грабит деньги тоже :(
Top
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Post by Dron D. »

тип руды тож проверил все норм но не берет
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

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

Code: Select all

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
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Post by Dron D. »

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

Code: Select all

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
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

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

Code: Select all

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
Post Reply

Return to “Help”