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

Array of items ..
http://forum.yoko.com.ua/viewtopic.php?f=1&t=3048		 Page 1 of 1
Author:  pim [ 2005-02-10 01:15:30 ]
Post subject:  Array of items ..
Hey YOKO or someone, I wish to make an array of items on my backpack.. is there any automatic function that outputs an array or i could do something such as:

For i=0 to Totalbpitems

myarray[i] = FindType()[totalbpitems]

next

a loop like such.. something like that, so i could easily separate force / might / power etc stuff from my backpack

thanks..
Author:  Edred [ 2005-02-10 11:42:06 ]
Post subject: 
Code:
Sub CreateArrayBpack( items )
   VAR i
   UO.TextOpen()
   UO.TextClear()
   for i = 0 to 255
      items[i] = ''
   next
   i = 0
   UO.Findtype( '-1', '-1' )
   While UO.FindCoutn() > 0
      items[i] = UO.GetSerial('finditem')
      UO.TextPrint( 'I found item with ID=' + item[i] )
      UO.Ignore('finditem')
      i = i+1
      If i > 255 Then
         UO.Print( 'Error scaning backpack! You need drop and move to trash your backpack! )
         return
      Endif
      UO.Findtype( '-1', '1' )
   Wend
endsub


Use:

sub main()
DIM items[255]
.........................
CreateArrayBpack( items )
.........................
you can use this array but you must remember what some elements of array are empty

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