Sorry your browser is not supported!

#constant WELCOME 0
#constant HELLOWORLD 1
#constant PLAYERTURN 2

global myText as string[2]

OpenToRead(1, textfile$ + language$ + ".txt")
k = count
repeat
	myText[count] = ReadLine(1)
	inc count
until FileEOF(1)
CloseFile(1)

SetTextString (var, myText[WELCOME])

    // clear out indexes in case some need to be blank in a translation
    for i = 0 to TotalLines
    textline$[i]=""
    next i
    
    OpenToRead(1,LanguageTextFile$)

    repeat
        s$=ReadLine(1):charpos=0

        // look for '=' sign used for the index marker
        charpos=FindString(s$,"=")
    
        if charpos>0  // ignore line if not an index marker
            sss$=left(s$,charpos-1)  // store index value
            ss$=right(s$,len(s$)-charpos)  // store text line value
            sss=val(sss$)  // convert index value to integer variable
            textline$[sss]=ss$  // transfer text line to required array index
        endif
    until FileEOF(1)=1

    CloseFile(1)

global TextValues as TextValueType
type TextValueType
	Welcome as string
endtype

Function LoadLanguage(LanguageCode as string)
	If not GetFileExists("text-" + LanguageCode + ".json")
		// Default language.
		LanguageCode = "en"
	endif
	file as integer
	file = OpenToRead("text-" + LanguageCode + ".json")
	text as string
	while not FileEOF(file)
		text = text + ReadLine(file)
	endwhile
	TextValues.fromjson(text)
EndFunction

LoadLanguage(GetDeviceLanguage())

// This method uses a master list of hard-coded text variable names.
//~ Function ParseTextHC(text as string)
	//~ if FindString(text, "$")
		//~ // Go through the list of valid tags.  Maybe this could be improved...
		//~ if FindString(text, "$USERNAME") then text = ReplaceString(text, "$USERNAME", "Kevin Cross", 1)
	//~ endif
//~ EndFunction text
//~ Message(ParseTextHC(TextValues.Welcome))

// This method does argument-based replacement using json for arguments.
Function ParseText(text as string, argsJson as string)
	if Len(argsJson) > 0
		args as string[]
		args.fromjson(argsJson)
		argIndex as integer
		for argIndex = 0 to args.length
			text = ReplaceString(text, "%" + str(argIndex + 1) + "%", args[argIndex], 1)
		next
	endif
EndFunction text

Message(ParseText(TextValues.Welcome, '["Kevin Cross"]'))

{
	"Welcome": "Welcome, %1%, to my cool app."
}

{
	"Welcome": "Welcome, $USERNAME, to my cool app."
}