Sorry your browser is not supported!

Type tObject
	objID
	name as string
	texture
EndType
Global Objects as tObject[]

global objid_start=1500
Function MyCreateObject(name as string, texture)
	
	obj as tObject
	obj.objID=objid_start
	obj.name=name
	obj.texture=texture
	inc objid_start, 1
	Objects.insert(obj)

EndFunction
	
// create 1000 objects
for i=0 to 1000
	MyCreateObject("name"+str(i), 0)
next

do
	
	
    Print( Objects[Objects.find(1503)].name)

    Print( ScreenFPS() )
    Sync()
loop

extrainfos1 as string[]
extrainfos2 as string[]
boxids as integer[]
nextboxid = 0
#constant MAGIC = 5000 //5000 is just a number for box sprite id range, could use whatever as long as they are unique

function foo()
    createBox(1, 2, "nice box", "really")
    createBox(10, 20, "nicer box", "totally")
endfunction

function createBox(id, x, y, imgId, extraInfo1$, extrainfo2$)
    CreateSprite(MAGIC+nextboxid, imgId) 
    nextboxid = nextboxid + 1
    SetSpriteXY.... or whatever you do if it is not a sprite
    extrainfos1.insert(extrainfo1$)
    extrainfos2.insert(extrainfo2$)
endfunction

function bar()
   boxid = GetBoxIdViaRayCastOrWhatever()
   i = boxid - MAGIC 
   boxextrainfo1 = extrainfos[i]
   boxextrainfo2 = extrainfos[i]
   Message("ooh, "+boxextrainfo1+": "+boxextrainfo2)
endfunction

Type HashPair
	key as string 
	valueS as string 
	valueI as integer
	valueF as float
EndType

Function HashSetString(table ref as HashPair[], key as string, value as string)
	index = table.find(key)
	if index>-1
		table[index].valueS=value
	else
		tmp as HashPair
		tmp.key=key
		tmp.valueS=value
		table.insert(tmp)
	endif
EndFunction
Function HashSetFloat(table ref as HashPair[], key as string, value as float)
	index = table.find(key)
	if index>-1
		table[index].valueF=value
	else
		tmp as HashPair
		tmp.key=key
		tmp.valueF=value
		table.insert(tmp)
	endif
EndFunction
Function HashSetInt(table ref as HashPair[], key as string, value as integer)
	index = table.find(key)
	if index>-1
		table[index].valueI=value
	else
		tmp as HashPair
		tmp.key=key
		tmp.valueI=value
		table.insert(tmp)
	endif
EndFunction

Function HashCount(table as HashPair[])
	result = table.length
EndFunction result
Function HashRemove(table ref as HashPair[], key as string)
	index = table.find(key)
	if index > -1
		table.remove(index)
	endif	
EndFunction

Function HashGetString(table as HashPair[], key as string)
	
	result as string
	index = table.find(key)
	if index > -1
		result=table[index].valueS
	endif
	
EndFunction result
Function HashGetFloat(table as HashPair[], key as string)
	
	result as float
	index = table.find(key)
	if index > -1
		result=table[index].valueF
	endif
	
EndFunction result
Function HashGetInt(table as HashPair[], key as string)
	
	result as integer
	index = table.find(key)
	if index > -1
		result=table[index].valueI
	endif
	
EndFunction result

global myHash as HashPair[]

for i=0 to 5
	HashSetString(myHash, "key "+str(i), "Value")
	HashSetFloat(myHash, "key "+str(i), 3.2)
	HashSetInt(myHash, "key "+str(i), i)
next

HashRemove(myHash, "key 1")

do
    for i=0 to HashCount(myHash)
		print(HashGetString(myHash, "key "+str(i)))
		print(HashGetFloat(myHash, "key "+str(i)))
		print(HashGetInt(myHash, "key "+str(i)))    
    next
    
    Sync()
loop