Sorry your browser is not supported!

Files = {
	 number = 4,
	 Names = {"level00.txt", "level03.txt", "level01.txt", "level02.txt"}
	}

dim levelfile$(1)

errcode = load lua("allvariables.txt")
nofiles=lua array int("Files->number")

undim levelfile$(0)
dim levelfile$(nofiles)

for a=1 to nofiles
a$="Files->names->#"+str$(a)   `  <- this doesnt work
levelfile$(a)=lua array string(a$)   `  <- this doesnt work
Next a

for a=1 to nofiles
text 0,a*10,levelfile$(a)
next a

text 50,0, "so far"+str$(nofiles) : wait key: end

Files = {number = 4, Names = {Item1 = "level00.txt", Item2 = "level03.txt", Item3 = "level01.txt", Item4 = "level02.txt"}}

for a=1 to nofiles
levelfile$(a)=lua array string("Files->names->Item"+str$(a))
Next a

Items{                 
                  Item[1] = 
                           {
                           name= "backpack"
                           x= 223,
                           y= 223,
                           z= 0,
                           3D_File= BackPack.x,
                           Rotating= true
                           BackPackItems {
                                          Item[1] {
                                                  name= "lunchbox",
                                                  3D_File= LunchBox.x
                                                  }
                                         }
                           }

                  Item[2] = 
                           {
                           name= "missile pack"
                           x= 123,
                           y= 123,
                           z= 0,
                           3D_File= MissilePack.x,
                           Rotating= true
                           }
    }

REM not saved the item name because it probably wont change!
REM the item moved better save its new location for next time
 r=lua execute ("Items->Item[1]->x=124.5")
 r=lua execute ("Items->Item[1]->y=124.5")
 r=lua execute ("Items->Item[1]->z=0")
REM the item has stopped rotating for some reason maybe sum1 pulled a switch?
 r=lua execute ("Items->Item[1]->z=flase")

r = load lua("c:/item.lua")
function LoadItem (max_items)
 for key = 1 to max_items
  REM probably better use a flexible list rather than a fixed array
  itemnamearray[key] = LUA ARRAY STRING (Items->Item[key]->name)
  itemrotatingarray[key] = LUA ARRAY STRING (Items->Item[key]->rotating)
  loadobject key,LUA ARRAY STRING ("Items->Item[key]->3D_File")
  postitionobject key,LUA ARRAY STRING ("Items->Item[key]->x"), LUA ARRAY STRING ("Items->Item[key]->y"),LUA ARRAY STRING ("Items->Item[key]->z")
 next
end

oldTimer = 0
function moveAmazon (objnum,timer,dist)

monsterName = "Amazon"
attackDistance = 3
spotPlayerDistance = 20
moveSpeed = 0.2
attackStrength = 10
-- 1000 = 1 second
attackTimer = 3*1000


-- Get the position of the camera
cx,cy,cz = CamInfo()

-- Keep the Amazon on the floor
cy = 0

-- Move the Amazon if she is not yet at the camera
if dist > attackDistance and dist < spotPlayerDistance then
PointObject(objnum,cx,cy,cz)
MoveObject(objnum,moveSpeed)
else
-- Do an attack if we are at the camera position and the timer allows it
if timer > (oldTimer + attackTimer) and dist < attackDistance then
oldTimer = timer
return attackStrength,monsterName
else
return 0,monsterName 
end
end

end 

-- Make sure "end" is your last entry as it denotes when the string
-- list is done.

file = 
   {
      names = 
         {
            "level100.txt",
            "level101.txt",
            "level102.txt",
            "level103.txt",
            "end"
         }
   }

`Build your array with zero entries.  I know sounds wierd but
`stick with me.

GLOBAL DIM levelfile$(0)

`Load you LUA file

errcode = 0
errcode = LOAD LUA("allvariables.txt")

`Init your variables

rtnString$ = ""
buildString$ = ""
a = 1

`Loop through each string array unitl you reach the "end"
`string.

WHILE rtnString$ <> "end"

   `Build your retrieve string

   buildString$ = "file->names->#"+str$(a)
   rtnString$ = LUA ARRAY STRING(buildString$)

   `Check the result to see if you are done or at the "end"

   IF rtnString$ <> "end"

      `Here is where the magic is.  If you have a string entry
      `not equal to "end" add a entry in your array using the
      `ADD TO QUEUE command.  Now your array will grow as large 
      `as the number of entries you have in the LUA array.

      ADD TO QUEUE levelfile$(0)
      IF ARRAY COUNT(levelfile$(0)) < 1
         ADD TO QUEUE levelfile$(0)
      ENDIF
      levelfile$(a) = rtnString$
   ENDIF
   a = a + 1
ENDWHILE

`Now instead of running through your array entries to find out how
`many levels were loaded, just get the number of entries from 
`your level array using the ARRAY COUNT command.

TEXT 50,0, "so far "+str$(ARRAY COUNT(levelfile$(0))
) : wait key: end