Sorry your browser is not supported!

rem ***** CREATES A LARGE LUA FILE *****

randomize timer()

dim no_arrays(0)
no_arrays()=100000
dim array_size(0)
array_size()=100

dim array(no_arrays(),array_size())

open to write 1,"lua.txt"

for x=1 to no_arrays()
   strstart$="c"+str$(x)+"={"
   strmiddle$=""
   for xx=1 to array_size()
      array(x,xx)=rnd(99)
      strmiddle$=strmiddle$+str$(array(x,xx))+","
      if xx=array_size()
         str_final$=strstart$+left$(strmiddle$,len(strmiddle$)-1)+"}"
         write string 1,str_final$
      endif
   next xx
next x

close file 1

print "COMPLETE"

wait key

rem ***** LOADS LARGE LUA FILE ON SPACEBAR PRESS *****
rem ************* SHOWS MEMORY AVAILABLE *************

sync on
sync rate 60
color backdrop rgb(0,0,0)

make object cube 1,10

dim space_on(0)
dim luaerror(0) : luaerror()=0

do

roll object left 1,1

text 0,0,str$(system smem available())
text 0,20,str$(luaerror())

if spacekey()=1 and space_on()=0
   space_on()=1
   r=load lua("lua.txt")
   if r=0 then luaerror()=1
endif

sync

LOOP

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