Sorry your browser is not supported!

type mytype
      value as integer
     name as string
end type
global myArray as mytype
myArray[0].value = 7 : myArray[0].name = "handle"

a$ = str(myArray[0].value)
Print(a$)
// ---> 7
a$ = myArray[0].name
Print(a$)
// ---> handle

// Project: MemoryLeakA 
// Created: 2018-07-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Maps" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global MapKeys as String[]
global MapValues as integer[]

MapSetKey("handle",7)
MapSetKey("apple",12)
do
    Print( ScreenFPS() )
    Print(Str(MapGetValue("handle")))
    Print(Str(MapGetValue("apple")))
    Sync()
loop

Function MapSetKey(Key as string, value as integer)
	index as integer = -1
	i as integer
	//Check if key already exists in the map
	if MapKeys.Length >= 0
		for i = 0 to MapKeys.Length
			if MapKeys[i] = Key then index = i
		next
	endif
	//if the key already exists then update its value
	if index >= 0
		MapValues[index] = value
	else //otherwise, create the key
		MapKeys.length = MapKeys.length + 1
		MapValues.length = MapValues.length + 1
		MapKeys[MapKeys.Length] = Key
		MapValues[MapValues.length] = value
	endif
endfunction

Function MapGetValue(Key as string)
	i as integer
	// check if there are entries in the map
	if MapKeys.length >= 0
		//check if the key exists and return its value
		for i = 0 to MapKeys.length
			if MapKeys[i] = Key then exitfunction MapValues[i]
		next
	endif
	//return default 0 if the key doesn't exist
endfunction 0

Global HT = 308915776
Global TT = 11881376
Global TH = 456976
Global H = 17576
Global T = 676
MyRhombicuboctahedronNumberSystem as string[27]
MyRhombicuboctahedronNumberSystem[0] = "foo" //using a place holder at 0, then just using the index number of the entry as the value
MyRhombicuboctahedronNumberSystem[1] = "A"
MyRhombicuboctahedronNumberSystem[2] = "B"
// repeat until filled, preferably with a shorter array name.
MyRhombicuboctahedronNumberSystem[26] = "Z"


Global totalValue = 0


function decode(MyStr$)
	length = len(MyStr$) //get the length
	totalValue = 0 //set to 0 incase it was something else.
	while length > 0
		TestVal$ = left(MyStr$,1) //pull the left most character off the string
		multiplier = 1 // set multiplier to 1 as default
		value = 0 //set value to 0
		if length = 6 then multiplier = HT //change multiplier based on length of string.
		if length = 5 then multiplier = TT
		if length = 4 then multiplier = TH
		if length = 3 then multiplier = H
		if length = 2 then multiplier = T 
			for i = 0 to 27 //I've found stepping through arrays to be more accurate when searching them.
				temp$ = MyRhombicuboctahedronNumberSystem[i]
				if temp$ = TestVal$ then value = i //When we find the letter in the array, assign the index number to value
			next i
		value = value * multiplier //multiply letter times PLACE.
		totalValue = totalValue + value //add the value decoded to a holder.
		MyStr$ = right(MyStr$,length-1)//remove the letter we processed and return the new string.
		length = len(MyStr$)//update string length so we know when to stop running the while loop
	endwhile
endfunction 
decode("ZZBAZ")
Print(str(totalValue))