инфо оре

[Mirage]

Тут несколько раз обсуждался скрипт в котором жуются одни и теже грамматические ошибки. То в массиве после 1 3 идет, то кавычки пропущены, то цвета не верные, то переменные какието. Надоело трындец как


1) скидывает раздельно в 3 разных контейнера: железо, золото+камни, цветную руду.

Code: Select all

sub Dropore()
   var tColor = uo.getcolor('finditem')
   VAR i,Exit, ConTainer
   
	var Chest = '0x40B3807A'
	var OreBox = '0x40DA6660'
	var HiOreBox = '0x40F0C0A3'

   DIM Ore[13]
   Ore[0]='0x19B7' ; 1 ore
   Ore[1]='0x19BA' ; 2 ore
   Ore[2]='0x19B8' ; 3 ore
   Ore[3]='0x19B9' ; >3 ore
   Ore[4]='0x0F11' ; saphires
   Ore[5]='0x0F16' ; amethysts
   Ore[6]='0x0F18' ; tourmalines
   Ore[7]='0x0F15' ; citrines
   Ore[8]='0x0F10' ; emeralds
   Ore[9]='0x0F0F' ; star sapphires
   Ore[10]='0x0F26' ; diamonds
   Ore[11]='0x1F4C' ; recall scrolls
   Ore[12]='0x0EED' ; gold

   UO.UseObject(Chest)
   wait(500)
   UO.UseObject(OreBox)
   wait(500)
   UO.UseObject(HiOreBox)

   For i=0 to 12
      Exit=0
      repeat
         UO.FindType(Ore[i], -1, 'my')
         if UO.GetQuantity('finditem')>0 then
            If UO.GetColor('finditem')=='0x0000' AND i<4 Then
               Container=UO.GetSerial(OreBox)
            Else
               if i>3 then
                  Container=UO.GetSerial(Chest)
               else
                  Container=UO.GetSerial(HiOreBox)
               Endif
            Endif
            UO.MoveItem('finditem',0,Container)
            wait(500)
         Else
            Exit=1
         endif
      until Exit==1
   Next
end sub

2) то же самое но с логированием набранной руды. Нужно правильно цвета прописать и больше ничего не трогать.

Code: Select all

sub Dropore()
	VAR i,j,Exit,Container
	var Chest = '0x40B3807A'
	var OreBox = '0x40DA6660'
	var HiOreBox = '0x40F0C0A3'
	DIM Ore[13]
	Ore[0]='0x19B7' ; 1 ore
	Ore[1]='0x19BA' ; 2 ore
	Ore[2]='0x19B8' ; 3 ore
	Ore[3]='0x19B9' ; >3 ore
	Ore[4]='0x0F11' ; saphires
	Ore[5]='0x0F16' ; amethysts
	Ore[6]='0x0F18' ; tourmalines
	Ore[7]='0x0F15' ; citrines
	Ore[8]='0x0F10' ; emeralds
	Ore[9]='0x0F0F' ; star sapphires
	Ore[10]='0x0F26' ; diamonds
	Ore[11]='0x1F4C' ; recall scrolls
	Ore[12]='0x0EED' ; gold
	DIM Colors[16]
	Colors[0]='0x0000' ; Iron
	Colors[1]='0x09F0' ; Gorgan
	Colors[2]='0x09D3' ; Steel
	Colors[3]='0x0BA7' ; Eldar
	Colors[4]='0x08AF' ; Plut
	Colors[5]='0x0085' ; Dragon
	Colors[6]='0x0060' ; Aqua
	Colors[7]='0x09E6' ; Elvin
	Colors[8]='0x010F' ; Krinit
	Colors[9]='0x09DA' ; Vulkan
	Colors[10]='0x09EC' ; Blood Crest
	Colors[11]='0x0445' ; Sand Rock
	Colors[12]='0x0498' ; Acid
	Colors[13]='0x0485' ; Crystaline
	Colors[14]='0x0770' ; BlackRock
	Colors[15]='0x0498' ; Obsid
	DIM log[16]
	log[0]=0 ; Iron
	log[1]=0 ; Gorgan
	log[2]=0 ; Steel
	log[3]=0 ; Eldar
	log[4]=0 ; Plut
	log[5]=0 ; Dragon
	log[6]=0 ; Aqua
	log[7]=0 ; Elvin
	log[8]=0 ; Krinit
	log[9]=0 ; Vulkan
	log[0]=0 ; Blood Crest
	log[11]=0 ; Sand Rock
	log[12]=0 ; Acid
	log[13]=0 ; Crystaline
	log[14]=0 ; BlackRock
	log[15]=0 ; Obsid
	
	uo.textclear()
	uo.textopen()

	UO.UseObject(Chest)
	wait(500)
	UO.UseObject(HiOreBox)
	wait(500)
	UO.UseObject(OreBox)
	wait(500)

	For i=0 to 3
		for j=0 to 15
			uo.FindType(Ore[i], Colors[j], 'backpack')
			if UO.FindCount()>0 then
				log[j]=log[j]+UO.GetQuantity('finditem')
				uo.click('finditem')
				wait(500)
				UO.TextPrint('Руда: ' +uo.getname('finditem') +'. Количество = ' +str(log[j]) )
				If UO.GetColor('finditem')=='0x0000' Then
					UO.Moveitem('finditem', 0, OreBox)
					wait(900)
				else
					UO.MoveItem('finditem', 0, HiOreBox)
					wait(900)
				endif
			endif
		next
	Next
	For i=4 to 12
		uo.FindType(Ore[i], -1, 'backpack')
		if UO.FindCount()>0 then
			UO.MoveItem('finditem', 0, Chest)
			wait(900)
		endif
	Next
end sub

Без обид но опечатки левые совершенно. Хотя бы прочитайте мануалы и посмотрите примеры.