@reag = (
    ['0x0F7A',-1,100,'Black Pearl',137,124],['0x0F7B',-1,100,'Blood Moss',137,124],['0x0F86',-1,100,'Mandrake Root',137,124]
    ,['0x0F87',-1,0,'Eye of Newt',96,65],['0x0F80',-1,0,'Daemon Bones',96,65],['0x0F7E',-1,0,'Bones',96,65]
    );
    $array = scalar(@reag);
    for ($i;$i < $array;$i++) {
        &supply($reag[$i][0],$reag[$i][1],$reag[$i][2],$reag[$i][4],$reag[$i][5],$container);
    }

MESSAGE @0aef Duellist

sub Test()
   dim arr1[6], arr2[6]
   arr1[0]='0x0F7A,-1,100,Black Pearl,137,124'
   arr1[1]='0x0F7B,-1,100,Blood Moss,137,124'
   arr1[2]='0x0F86,-1,100,Mandrake Root,137,124'
   arr1[3]='0x0F87,-1,0,Eye of Newt,96,65'
   arr1[4]='0x0F80,-1,0,Daemon Bones,96,65'
   arr1[5]='0x0F7E,-1,0,Bones,96,65'

   var i,j,count=0
   for i=0 to 5
      count=Str2Array(arr2,arr1[i])
      for j=0 to count
         uo.print('arr1['+str(i)+']['+str(j)+'='+arr2[j])
      next
   next
end sub

Sub Str2Array(a,s)
   var i,l=len(s),b='',ptr=0
   if not l then
      return 0
   endif
   for i=0 to l-1
      if s[i]<>',' then
         b=b+s[i]
      else
         a[ptr]=b
         b=''
         ptr=ptr+1
      endif
   next
   a[ptr]=b
   ptr=ptr+1
   return ptr
end sub

message @0abc Hellow world!

message @38 Hellow world!