Найдите ошибку... (список не пашит) (перечисление)

Stenley · Post by **Stenley** » 2006-05-13 16:19:23

Люди кто шарит, вот собрал скриптик на ремонт итемов которые в бакпаке, так все работает если найдет итем, но через список не находит.

Code: Select all

var gotovo = '0x5E9FAFBE' # Cymka gotovo
var gavno = '0x5587CB07'  # Cymka ybitogo

sub find() 
var l
   
DIM LootingItem[16] 
UO.Print('Go PeMoHT =>') 
 
LootingItem[1] = 0x0F62    # speer
LootingItem[2] = 0x0E87    # Vily
LootingItem[3] = 0x143E    # Alebarda
LootingItem[4] = 0x0F5E   ##  Broad Sword
LootingItem[5] = 0x1440    # cultlast
LootingItem[6] = 0x13FF    # Katana
LootingItem[7] = 0x13B6    #Scimitar
LootingItem[8] = 0x13BA    #Viking 
LootingItem[9] = 0x13B8    #Long Sword
LootingItem[10] = 0x13CD   ## - Lokti
LootingItem[11] = 0x13CE   ## - Perchatki 
LootingItem[12] = 0x1DBA   ## - Shapka
LootingItem[13] = 0x1400   ## Kryss
LootingItem[14] = 0x13D3   ## - Tunic Leathes
LootingItem[15] = 0x13C7   ## - Gorgetka
LootingItem[16] = 0x13D2   ## - Leather Nogi
UO.Print('=== End ===') 
for l=1 to 16
uo.FindType(LootingItem[l],"-1",'backpack') 
If UO.FindCount() then 

uo.waittargetobject('finditem')
uo.useobject('0x50762753')           # HakoBaLnya
Wait(900) 

If UO.InJournal('отремонтирован') then 
UO.MoveItem('finditem','-1', gotovo) 
UO.DeleteJournal() 
endif 
If UO.InJournal('REPAIR') then 
UO.MoveItem('finditem','-1', gavno) 
UO.DeleteJournal() 
endif 

next
endif
endsub

omi4 · Post by **omi4** » 2006-05-13 16:40:52

пробуй так..

Code: Select all

---8<---
endif 
next 
endsub

Stenley · Post by **Stenley** » 2006-05-13 16:45:45

Решил сам... фухх... вот значит должно быть так :

Code: Select all

var gotovo = '0x5E9FAFBE' # Cymka gotovo
var gavno = '0x5587CB07'  # Cymka ybitogo

sub find() 
var l,itemka
itemka=uo.GetSerial('finditem') 
DIM LootingItem[16] 
UO.Print('Go Loot =>') 
 
LootingItem[1] = 0x0F62    # speer
LootingItem[2] = 0x0E87    # Vily
LootingItem[3] = 0x143E    # Alebarda
LootingItem[4] = 0x0F5E   ##  Broad Sword
LootingItem[5] = 0x1440    # cultlast
LootingItem[6] = 0x13FF    # Katana
LootingItem[7] = 0x13B6    #Scimitar
LootingItem[8] = 0x13BA    #Viking 
LootingItem[9] = 0x13B8    #Long Sword
LootingItem[10] = 0x13CD   ## - Lokti
LootingItem[11] = 0x13CE   ## - Perchatki 
LootingItem[12] = 0x1DBA   ## - Shapka
LootingItem[13] = 0x1400   ## Kryss
LootingItem[14] = 0x13D3   ## - Tunic Leathes
LootingItem[15] = 0x13C7   ## - Gorgetka
LootingItem[16] = 0x13D2   ## - Leather Nogi
UO.Print('=== End ===') 
for l=1 to 16
      UO.FindType(LootingItem[l],-1,'backpack') 
      if UO.GetQuantity('finditem') then 
         
      
uo.waittargetobject('finditem')
uo.useobject('0x50762753')           # HakoBaLnya
Wait(3300) 

If UO.InJournal('отремонтирован') then 
UO.MoveItem('finditem','-1', gotovo) 
UO.DeleteJournal() 
endif 
If UO.InJournal('не нуждается в ремонте') then 
UO.MoveItem('finditem','-1', gotovo) 
UO.DeleteJournal() 
endif 
If UO.InJournal('REPAIR') then 
UO.MoveItem('finditem','-1', gavno) 
UO.DeleteJournal() 
endif 
endif
next

endsub

omi4 · Post by **omi4** » 2006-05-13 17:22:43

должно быть так..
почему и зачем читай уроки

Code: Select all

sub find() 
	var l, FindCounter, 
	var gotovo = '0x5E9FAFBE' # Cymka gotovo 
	var gavno = '0x5587CB07'  # Cymka ybitogo 

	DIM LootingItem[16] 

	LootingItem[1] = 0x0F62    # speer 
	LootingItem[2] = 0x0E87    # Vily 
	LootingItem[3] = 0x143E    # Alebarda 
	LootingItem[4] = 0x0F5E   ##  Broad Sword 
	LootingItem[5] = 0x1440    # cultlast 
	LootingItem[6] = 0x13FF    # Katana 
	LootingItem[7] = 0x13B6    #Scimitar 
	LootingItem[8] = 0x13BA    #Viking 
	LootingItem[9] = 0x13B8    #Long Sword 
	LootingItem[10] = 0x13CD   ## - Lokti 
	LootingItem[11] = 0x13CE   ## - Perchatki 
	LootingItem[12] = 0x1DBA   ## - Shapka 
	LootingItem[13] = 0x1400   ## Kryss 
	LootingItem[14] = 0x13D3   ## - Tunic Leathes 
	LootingItem[15] = 0x13C7   ## - Gorgetka 
	LootingItem[16] = 0x13D2   ## - Leather Nogi 
 
	UO.Print('Go Loot =>') 
	for l=1 to 16
		repeat
			UO.FindType(LootingItem[l],-1,'backpack')
			FindCounter = UO.FindCount('finditem') ; GetQuantity - количество в стопке, зачем?
			itemka = UO.GetSerial('finditem')
			if FindCounter then
				UO.DeleteJournal()
				UO.WaitTargetObject(itemka) 
				UO.UseObject('0x50762753')           # HakoBaLnya 
				repeat
					wait(500)
				until UO.InJournal('отремонтирован') or UO.InJournal('не нуждается в ремонте') or UO.InJournal('REPAIR')

				If UO.InJournal('отремонтирован') or UO.InJournal('не нуждается в ремонте') then 
					UO.MoveItem(itemka,'-1', gotovo)  
				else
					UO.MoveItem(itemka,'-1', gavno)  
				endif 
			endif
		until not FindCounter
	next
	UO.Print('=== End ===')
endsub

Edred · Post by **Edred** » 2006-05-14 10:06:27

omi4 wrote:должно быть так..
почему и зачем читай уроки

Code: Select all

	DIM LootingItem[16] 

	LootingItem[1] = 0x0F62    # speer 
	LootingItem[2] = 0x0E87    # Vily 
	LootingItem[3] = 0x143E    # Alebarda 
	LootingItem[4] = 0x0F5E   ##  Broad Sword 
	LootingItem[5] = 0x1440    # cultlast 
	LootingItem[6] = 0x13FF    # Katana 
	LootingItem[7] = 0x13B6    #Scimitar 
	LootingItem[8] = 0x13BA    #Viking 
	LootingItem[9] = 0x13B8    #Long Sword 
	LootingItem[10] = 0x13CD   ## - Lokti 
	LootingItem[11] = 0x13CE   ## - Perchatki 
	LootingItem[12] = 0x1DBA   ## - Shapka 
	LootingItem[13] = 0x1400   ## Kryss 
	LootingItem[14] = 0x13D3   ## - Tunic Leathes 
	LootingItem[15] = 0x13C7   ## - Gorgetka 
	LootingItem[16] = 0x13D2   ## - Leather Nogi

Должно быть так:

Code: Select all

	DIM LootingItem[17] 
...

почему и зачем - читай описание языка скриптов.