Sorry your browser is not supported!

remstart
ID Generation. Thoughts and Functionality

Purpose: Everytime we build a visual object we need to assign an id to it, this is an integer value.
	But on runtime visual objects need to be created and destroyed dynamicaly.
	This needs a system to assign id's and not run out of numbers.
	
Usage: every time a stage is setup we need to create a group of objects and them manipulate them.
	call the pf_getNextID(ai_group) on the creation of each object in array man.
remend

DIM glb_nextGroupID(20,1):` Array Declaration with initial values.
glb_nextGroupID(0,0) = 0 :` objects start from 1
glb_nextGroupID(1,0) = 100 :` objects start from 101 etc.
glb_nextGroupID(2,0) = 200 :` i.e:
glb_nextGroupID(3,0) = 300 :` Mainly only 100 object per group are allowed
glb_nextGroupID(4,0) = 400 :` for now anyway, we can always increase them by altering
glb_nextGroupID(5,0) = 500 :` these values at any time since the set ID resets the start
glb_nextGroupID(6,0) = 600 :` values automaticaly.

` ****************************************************************************************
` those are pf or private functions because we
` only use them from the next level of  array man functions
` the main game module will not know about it and wont need to call these functions.
`
` Please Note that I use:
` glb_nextGroupID(ai_group,0) is the start id for each group used for reset only.
` glb_nextGroupID(ai_group,1) is the next id for each group
` ****************************************************************************************

function pf_resetAllGroupId()
  `big reset. make all next ids the initial value again
  for li_group = 1 to 20
  	pf_resetNextID(li_group)
  next li_group
endfunction

function pf_resetNextID(ai_group)
   `small reset. make a next id the initial value again
   glb_nextGroupID(ai_group,1) = glb_nextGroupID(ai_group,0)
endfunction

function pf_getNextID(ai_group)
  `get the next available ID
  li_id = glb_nextGroupID(ai_group, 1) + 1
  glb_nextGroupID(ai_group,1) = li_id
endfunction li_id

dim glb_nextid(3):`keeps the next id for visual glb_nextid(1), Images(2) and sounds (3)
dim glb_saved(500):`keeps released ids make it bigger if you wish

function pf_saveid(ai_id)
   `save the id we just released from visual object
   pos = glb_saved(0) + 1
   glb_saved(pos) = ai_id
endfunction

function pf_getID()
   `This will give you a new ID all the time
   `LIFO management IDs
   pos = glb_saved(0)
   if pos > 0
      `get a saved ID
      li_id = glb_saved(pos)
      glb_saved(0) = pos - 1:` now point to the previous id
   else
      `make one
      li_id = glb_nextid(1) + 1
   endif
endfunction li_id

dim glb_nextid(3):`keeps the next id for visual glb_nextid(1) Images(2) and sounds (3)
dim glb_saved(500):`keeps released ids

function pf_saveid(ai_id)
   `save the id we just released from visual object
   pos = glb_saved(0) + 1
   glb_saved(pos) = ai_id
endfunction

function pf_getID()
   `This will give you a new ID all the time
   `LIFO ID's
   pos = glb_saved(0)
   if pos > 0
      `get a saved ID
      li_id = glb_saved(pos)
      glb_saved(0) = pos - 1:` point to the previous id
   else
      `make one all new
      li_id = glb_nextid(1) + 1
      glb_nextid(1) = li_id
   endif
endfunction li_id