home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2003 June / macformat-130.iso / mac / Reviewed⁄Demos / Spearhead Demo / demota / pak1.pk3 / global / makearray.scr < prev    next >
Encoding:
Text File  |  2002-10-21  |  448 b   |  23 lines
  1. main local.object:
  2.  
  3.     if (local.object.size > 1)
  4.     {
  5.         for (local.i = 1; local.i <= local.object.size; local.i++)
  6.             local.array[local.i] = local.object[local.i]
  7.         end local.array
  8.     }
  9.     else if (local.object.size == 1)
  10.     {
  11.         local.array[1] = local.object
  12.         end local.array
  13.     }
  14.     else if (!local.object.size)
  15.     {
  16.         local.array[1] = NIL
  17.         end local.array
  18.     }
  19.     else
  20.     {
  21.         println "Error in make_array for '" local.object.targetname "'"
  22.     }
  23.