home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Game Programming for Teens / VBGPFT.cdr / mappy / luascr / Anim Test.lua next >
Encoding:
Text File  |  2004-03-26  |  1.7 KB  |  52 lines
  1. -- Anim Test.lua
  2.  
  3. function main ()
  4.  
  5.  local animtypes = {
  6.   "AN_NONE",
  7.   "AN_LOOPF",
  8.   "AN_LOOPR",
  9.   "AN_ONCE",
  10.   "AN_ONCEH",
  11.   "AN_PPFF",
  12.   "AN_PPRR",
  13.   "AN_PPRF",
  14.   "AN_PPFR",
  15.   "AN_ONCES"
  16.  }
  17.  
  18.  local w = mappy.getValue(mappy.MAPWIDTH)
  19.  local h = mappy.getValue(mappy.MAPHEIGHT)
  20.  
  21.  if (w == 0) then
  22.   mappy.msgBox ("Anim Test", "You need to load or create a map first", mappy.MMB_OK, mappy.MMB_ICONINFO)
  23.  else
  24.  
  25.   local anum = mappy.getValue(mappy.NUMBLOCKANIM)
  26.   mappy.msgBox ("Anim Test", "This will create a new anim, use 'test.fmp' for the map.\nMap name: "..mappy.getValue(mappy.MAPFILENAME).."\n\nNumber of anims = "..anum, mappy.MMB_OK, mappy.MMB_ICONINFO)
  27.   
  28.   mappy.createAnim (anum)
  29.   mappy.setAnimFrame (anum, mappy.ANMREFFRAME, 66)
  30.   mappy.insertAnimFrame (anum, 0, 66)
  31.   mappy.insertAnimFrame (anum, 1, 67)
  32.   mappy.insertAnimFrame (anum, 2, 68)
  33.   mappy.insertAnimFrame (anum, 3, 72)
  34.   mappy.insertAnimFrame (anum, 3, 71)
  35.   mappy.insertAnimFrame (anum, 3, 70)
  36.   mappy.insertAnimFrame (anum, 3, 0)
  37.   mappy.setAnimFrame (anum, 3, 1)
  38.   mappy.cutAnimFrame (anum, 3)
  39.   mappy.setAnimValue (anum, mappy.ANMDELAY, 4);
  40.   mappy.setAnimValue (anum, mappy.ANMTYPE, mappy.AN_ONCE);
  41.   mappy.msgBox ("Anim Test", "New anim created, anim "..anum.." numframes = "..mappy.numAnimFrames (anum)..". Delay = "..mappy.getAnimValue (anum, mappy.ANMDELAY)..", type: "..animtypes[mappy.getAnimValue (anum, mappy.ANMTYPE)+1].." ("..mappy.getAnimValue (anum, mappy.ANMTYPE)..")", mappy.MMB_OK, mappy.MMB_ICONINFO)
  42.  
  43.   mappy.updateScreen ()
  44.  
  45.  end
  46. end
  47.  
  48. test, errormsg = pcall( main )
  49. if not test then
  50.     mappy.msgBox("Error ...", errormsg, mappy.MMB_OK, mappy.MMB_ICONEXCLAMATION)
  51. end
  52.