Need Help! - Place Many Strings Into 1 String - Both Read & Write...

Author

Message

JeZxLee

7

Years of Service

User Offline

Joined: 15th Mar 2017

Location: Long Island, New York, United States, Earth

Posted: 7th Nov 2019 16:18 Edited at: 7th Nov 2019 18:01

Link

Hi,

Ran into a bad problem with new Internet Cookie support in AGKC:
Browsers limit to 50 Internet Cookies, but our game "Space Swap" currently has more than 50 Internet Cookies.

Can someone with Jedi programming skills help us?
We need to place multiple strings into one string both read and write.

Current read/write code is below, hope you can help us!:
Thanks!

Jesse

cookieValue as string
		cookieValue = LoadSharedVariable(HTML5DataVersion+"MusicVolume", "No Value")
		if (cookieValue <> "No Value") then MusicVolume = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"EffectsVolume", "No Value")
		if (cookieValue <> "No Value") then EffectsVolume = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"GameMode", "No Value")
		if (cookieValue <> "No Value") then GameMode = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"PlayingSyncRate", "No Value")
		if (cookieValue <> "No Value") then PlayingSyncRate = Val(cookieValue)

for index = 0 to 5
			cookieValue = LoadSharedVariable( HTML5DataVersion+"LevelSkip"+str(index), "No Value" )
			if (cookieValue <> "No Value") then LevelSkip[index]= Val(cookieValue)
		next index

for index = 0 to 3
			cookieValue = LoadSharedVariable( HTML5DataVersion+"SecretCode"+str(index), "No Value" )
			if (cookieValue <> "No Value") then SecretCode[index]= Val(cookieValue)
		next index
		
		for mode = 0 to 5
			for rank = 0 to 9
				cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreName"+str(mode)+str(rank), "No Value" )
				if (cookieValue <> "No Value") then HighScoreName [ mode, rank ] = cookieValue
				cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreLevel"+str(mode)+str(rank), "No Value" )
				if (cookieValue <> "No Value") then HighScoreLevel [ mode, rank ] = Val(cookieValue)
				cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreScore"+str(mode)+str(rank), "No Value" )
				if (cookieValue <> "No Value") then HighScoreScore [ mode, rank ] = Val(cookieValue)
			next rank
		next mode

+ Code Snippet

		cookieValue as string
		cookieValue = LoadSharedVariable(HTML5DataVersion+"MusicVolume", "No Value")
		if (cookieValue <> "No Value") then MusicVolume = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"EffectsVolume", "No Value")
		if (cookieValue <> "No Value") then EffectsVolume = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"GameMode", "No Value")
		if (cookieValue <> "No Value") then GameMode = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"PlayingSyncRate", "No Value")
		if (cookieValue <> "No Value") then PlayingSyncRate = Val(cookieValue)

		for index = 0 to 5
			cookieValue = LoadSharedVariable( HTML5DataVersion+"LevelSkip"+str(index), "No Value" )
			if (cookieValue <> "No Value") then LevelSkip[index]= Val(cookieValue)
		next index

		for index = 0 to 3
			cookieValue = LoadSharedVariable( HTML5DataVersion+"SecretCode"+str(index), "No Value" )
			if (cookieValue <> "No Value") then SecretCode[index]= Val(cookieValue)
		next index
		
		for mode = 0 to 5
			for rank = 0 to 9
				cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreName"+str(mode)+str(rank), "No Value" )
				if (cookieValue <> "No Value") then HighScoreName [ mode, rank ] = cookieValue
				cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreLevel"+str(mode)+str(rank), "No Value" )
				if (cookieValue <> "No Value") then HighScoreLevel [ mode, rank ] = Val(cookieValue)
				cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreScore"+str(mode)+str(rank), "No Value" )
				if (cookieValue <> "No Value") then HighScoreScore [ mode, rank ] = Val(cookieValue)
			next rank
		next mode

+ Code Snippet

		SaveSharedVariable( HTML5DataVersion+"MusicVolume", str(MusicVolume) )
		SaveSharedVariable( HTML5DataVersion+"EffectsVolume", str(EffectsVolume) )
		SaveSharedVariable( HTML5DataVersion+"GameMode", str(GameMode) )
		SaveSharedVariable( HTML5DataVersion+"PlayingSyncRate", str(PlayingSyncRate) )

		for index = 0 to 5
			SaveSharedVariable( HTML5DataVersion+"LevelSkip"+str(index), str(LevelSkip[index]) )
		next index

		for index = 0 to 3
			SaveSharedVariable( HTML5DataVersion+"SecretCode"+str(index), str(SecretCode[index]) )
		next index
		
		for mode = 0 to 5
			for rank = 0 to 9
				SaveSharedVariable( HTML5DataVersion+"HighscoreName"+str(mode)+str(rank), HighScoreName [ mode, rank ] )
				SaveSharedVariable( HTML5DataVersion+"HighScoreLevel"+str(mode)+str(rank), str(HighScoreLevel [ mode, rank ]) )
				SaveSharedVariable( HTML5DataVersion+"HighScoreScore"+str(mode)+str(rank), str(HighScoreScore [ mode, rank ]) )
			next rank
		next mode

JeZxLee
Fallen Angel Software
Video Game Design Studio
http://www.FallenAngelSoftware.com

Back to top

Profile PM Email Website

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 7th Nov 2019 17:08 Edited at: 7th Nov 2019 17:14

Link

Since we do not yet have this version, I can only assume that the download function loads the data successfully, otherwise you can get the default row.
'MusicVolume = 100; EffectsVolume = 100 '

+ Code Snippet

SaveSharedVariable( HTML5DataVersion, 'MusicVolume='+str(MusicVolume)+'; EffectsVolume='+str(EffectsVolume) )

GetCookieSettings(LoadSharedVariable(HTML5DataVersion, 'MusicVolume=100; EffectsVolume=100'))

function GetCookieSettings( cookie$ ) 
	agk_options$ = lower(ReplaceString(cookie$, " ", "", -1))
	
	for agk_i = 1 to CountStringTokens(agk_options$, ";")
		agk_object$ = GetStringToken(agk_options$, ";", agk_i)
		agk_variable$ = GetStringToken(agk_objectOptions$, "=", 1)
		agk_value$ = GetStringToken(agk_objectOptions$, "=", 2)
		
		select agk_variable$
			case 'MusicVolume': 
				MusicVolume=val(agk_value$)
			endcase
			case 'EffectsVolume': 
				EffectsVolume=val(agk_value$)
			endcase
		endselect
	next agk_i
endfunction

https://www.instagram.com/qugurun/

Back to top

Profile PM

JeZxLee

7

Years of Service

User Offline

Joined: 15th Mar 2017

Location: Long Island, New York, United States, Earth

Posted: 7th Nov 2019 17:30

Link

Good stuff, let me play with it and I'll come back with result!
Thank you!

Jesse

JeZxLee
Fallen Angel Software
Video Game Design Studio
http://www.FallenAngelSoftware.com

Back to top

Profile PM Email Website

JeZxLee

7

Years of Service

User Offline

Joined: 15th Mar 2017

Location: Long Island, New York, United States, Earth

Posted: 7th Nov 2019 18:00 Edited at: 7th Nov 2019 18:01

Link

Hi,

You idea will work, just need some more help:

How would I modify below?:
(currently 60 Cookies, want to modify to use only 3 Cookies)

Let me know, thanks for your help and support!

NOTE: "HighScoreName" is a String, and "HighScoreLevel" & "HighScoreScore" are Integer.

Jesse

+ Code Snippet

		for mode = 0 to 5
			for rank = 0 to 9
				SaveSharedVariable( HTML5DataVersion+"HighScoreName"+str(mode)+str(rank), HighScoreName [ mode, rank ] )
				SaveSharedVariable( HTML5DataVersion+"HighScoreLevel"+str(mode)+str(rank), str(HighScoreLevel [ mode, rank ]) )
				SaveSharedVariable( HTML5DataVersion+"HighScoreScore"+str(mode)+str(rank), str(HighScoreScore [ mode, rank ]) )
			next rank
		next mode

JeZxLee
Fallen Angel Software
Video Game Design Studio
http://www.FallenAngelSoftware.com

Back to top

Profile PM Email Website

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 7th Nov 2019 19:23 Edited at: 7th Nov 2019 19:32

Link

Maybe consider using a type and the JSON functions to handle saving data

+ Code Snippet

// High Score
type HighScoreInfo
	Name as string
	Level as integer
	Score as integer	
endtype

// Store your complete save game info
type SaveGameInfo
		
	MusicVolume as float
	EffectsVolume as float
	GameMode as integer
	PlayingSyncRate as integer
	
	LevelSkip as integer[5]				// 6 levels
	SecretCode as integer[3]			// 4 secretcodes

	HighScores as highscoreinfo[5,9]	// 6 levels, 10 top scores
	
endtype


global Info as SaveGameInfo // this holds all you save info


// Loads a cookie as a JSON and converts to game variables
// Your cookie is named "Gameinfo" - feel free to change it
function LoadCookie()
	
	cookieValue$ = LoadSharedVariable(HTML5DataVersion+"GameInfo", "No Value")
	if cookieValue$ = "No Value" then exitfunction
	Info.fromJSON(cookieValue$)
	
endfunction

// Saves your save data into a single string 
function SaveCookie()
	SaveSharedVariable( HTML5DataVersion+"GameInfo", Info.toJSON() )
endfunction

Then all your data is neatly encapsulated in one type and loading and saving functions are super easy and simple, plus they are easy to extend in the future?? You could just have the high scores in a type and the toJSON() and fromJSON() inbuilt functions create your save strings for you.

Just an idea.

Back to top

Profile PM

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 7th Nov 2019 20:04 Edited at: 7th Nov 2019 20:06

Link

Just a guess

+ Code Snippet

settings$=''
for mode = 0 to 5
    for rank = 0 to 9
          settings$= settings$+YOURDATA
    next rank
next mode

SaveSharedVariable( HTML5DataVersion+"settings",  settings$ )

UPD
Bengismo, JSON bravo! I forgot about him

https://www.instagram.com/qugurun/

Back to top

Profile PM

JeZxLee

7

Years of Service

User Offline

Joined: 15th Mar 2017

Location: Long Island, New York, United States, Earth

Posted: 7th Nov 2019 21:11

Link

Hi, finally got it working, I'll post the code shortly!

JeZxLee
Fallen Angel Software
Video Game Design Studio
http://www.FallenAngelSoftware.com

Attachments

Login to view attachments

Back to top

Profile PM Email Website

JeZxLee

7

Years of Service

User Offline

Joined: 15th Mar 2017

Location: Long Island, New York, United States, Earth

Posted: 7th Nov 2019 22:44 Edited at: 7th Nov 2019 22:47

Link

Hi...

Please test below on all your Internet browsers:
http://fallenangelsoftware.com/stuff/files/SpaceSwap/HTML5/index.html

The code below works, but the last part is too long horizontally and I don't know how to compact it?
Any ideas?
https://pastebin.com/XficJwuE

Thanks!

Jesse

//------------------------------------------------------------------------------------------------------------

function LoadOptionsAndHighScores ( )
	if (Platform <> Web)
		index as integer
		if GetFileExists( DataVersion ) = 0
		else
			OpenToRead(1, DataVersion)
				MusicVolume = readInteger( 1 )
				EffectsVolume = readInteger( 1 )
				GameMode = readInteger( 1 )
				PlayingSyncRate = readInteger( 1 )
				
				for index = 0 to 5
					LevelSkip[index] = ReadInteger( 1 )
				next index

for index = 0 to 3
					SecretCode[index] = readInteger( 1 )
				next index

mode as integer
				rank as integer
				for mode = 0 to 5
					for rank = 0 to 9
						HighScoreName [ mode, rank ] = readString( 1 )
						HighScoreLevel [ mode, rank ] = ReadInteger( 1 )
						HighScoreScore [ mode, rank ] = ReadInteger( 1 )
					next rank
				next mode
			CloseFile ( 1 )
		endif
	else
		cookieValue as string
		cookieValue = LoadSharedVariable(HTML5DataVersion+"MusicVolume", "No Value")
		if (cookieValue <> "No Value") then MusicVolume = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"EffectsVolume", "No Value")
		if (cookieValue <> "No Value") then EffectsVolume = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"GameMode", "No Value")
		if (cookieValue <> "No Value") then GameMode = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"PlayingSyncRate", "No Value")
		if (cookieValue <> "No Value") then PlayingSyncRate = Val(cookieValue)

for index = 0 to 5
			cookieValue = LoadSharedVariable( HTML5DataVersion+"LevelSkip"+str(index), "No Value" )
			if (cookieValue <> "No Value") then LevelSkip[index]= Val(cookieValue)
		next index

for index = 0 to 3
			cookieValue = LoadSharedVariable( HTML5DataVersion+"SecretCode"+str(index), "No Value" )
			if (cookieValue <> "No Value") then SecretCode[index]= Val(cookieValue)
		next index

agk_i as integer
		for mode = 0 to 5
			cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreName"+str(mode), "No Value" )
			if (cookieValue <> "No Value")
				for agk_i = 0 to CountStringTokens(cookieValue, "*")
					HighScoreName [ mode, agk_i ] = GetStringToken( cookieValue, "*", (agk_i+1) )
				next agk_i
			endif
			cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreLevel"+str(mode), "No Value" )
			if (cookieValue <> "No Value")
				for agk_i = 0 to CountStringTokens(cookieValue, "*")
					HighScoreLevel [ mode, agk_i ] = Val(  GetStringToken( cookieValue, "*", (agk_i+1) )  )
				next agk_i
			endif
			cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreScore"+str(mode), "No Value" )
			if (cookieValue <> "No Value")
				for agk_i = 0 to CountStringTokens(cookieValue, "*")
					HighScoreScore [ mode, agk_i ] = Val(  GetStringToken( cookieValue, "*", (agk_i+1) )  )
				next agk_i
			endif
		next mode
	endif
endfunction

//------------------------------------------------------------------------------------------------------------

function SaveOptionsAndHighScores ( )
	if (Platform <> Web)
		index as integer
		OpenToWrite( 1 , DataVersion )
			WriteInteger ( 1, MusicVolume )
			WriteInteger ( 1, EffectsVolume )
			WriteInteger ( 1, GameMode )
			WriteInteger ( 1, PlayingSyncRate )
				
			for index = 0 to 5
				WriteInteger ( 1, LevelSkip[index] )
			next index

for index = 0 to 3
				WriteInteger ( 1, SecretCode[index] )
			next index
	 
			mode as integer
			rank as integer
			for mode = 0 to 5
				for rank = 0 to 9
					WriteString ( 1, HighScoreName [ mode, rank ] )
					WriteInteger ( 1, HighScoreLevel [ mode, rank ] )
					WriteInteger ( 1, HighScoreScore [ mode, rank ] )
				next rank
			next mode
		CloseFile ( 1 )
	else
		SaveSharedVariable( HTML5DataVersion+"MusicVolume", str(MusicVolume) )
		SaveSharedVariable( HTML5DataVersion+"EffectsVolume", str(EffectsVolume) )
		SaveSharedVariable( HTML5DataVersion+"GameMode", str(GameMode) )
		SaveSharedVariable( HTML5DataVersion+"PlayingSyncRate", str(PlayingSyncRate) )

for index = 0 to 5
			SaveSharedVariable( HTML5DataVersion+"LevelSkip"+str(index), str(LevelSkip[index]) )
		next index

for index = 0 to 3
			SaveSharedVariable( HTML5DataVersion+"SecretCode"+str(index), str(SecretCode[index]) )
		next index
		
		for mode = 0 to 5
			SaveSharedVariable( HTML5DataVersion+"HighScoreName"+str(mode), HighScoreName [ mode, 0 ]+'*'+HighScoreName [ mode, 1 ]+'*'+HighScoreName [ mode, 2 ]+'*'+HighScoreName [ mode, 3 ]+'*'+HighScoreName [ mode, 4 ]+'*'+HighScoreName [ mode, 5 ]+'*'+HighScoreName [ mode, 6 ]+'*'+HighScoreName [ mode, 7 ]+'*'+HighScoreName [ mode, 8 ]+'*'+HighScoreName [ mode, 9 ] )
			SaveSharedVariable( HTML5DataVersion+"HighScoreLevel"+str(mode), str(HighScoreLevel [ mode, 0 ])+'*'+str(HighScoreLevel [ mode, 1 ])+'*'+str(HighScoreLevel [ mode, 2 ])+'*'+str(HighScoreLevel [ mode, 3 ])+'*'+str(HighScoreLevel [ mode, 4 ])+'*'+str(HighScoreLevel [ mode, 5 ])+'*'+str(HighScoreLevel [ mode, 6 ])+'*'+str(HighScoreLevel [ mode, 7 ])+'*'+str(HighScoreLevel [ mode, 8 ])+'*'+str(HighScoreLevel [ mode, 9 ]) )
			SaveSharedVariable( HTML5DataVersion+"HighScoreScore"+str(mode), str(HighScoreScore [ mode, 0 ])+'*'+str(HighScoreScore [ mode, 1 ])+'*'+str(HighScoreScore [ mode, 2 ])+'*'+str(HighScoreScore [ mode, 3 ])+'*'+str(HighScoreScore [ mode, 4 ])+'*'+str(HighScoreScore [ mode, 5 ])+'*'+str(HighScoreScore [ mode, 6 ])+'*'+str(HighScoreScore [ mode, 7 ])+'*'+str(HighScoreScore [ mode, 8 ])+'*'+str(HighScoreScore [ mode, 9 ]) )
		next mode
	endif
endfunction

+ Code Snippet

//------------------------------------------------------------------------------------------------------------

function LoadOptionsAndHighScores ( )
	if (Platform <> Web)
		index as integer
		if GetFileExists( DataVersion ) = 0
		else
			OpenToRead(1, DataVersion)
				MusicVolume = readInteger( 1 )
				EffectsVolume = readInteger( 1 )
				GameMode = readInteger( 1 )
				PlayingSyncRate = readInteger( 1 )
				
				for index = 0 to 5
					LevelSkip[index] = ReadInteger( 1 )
				next index

				for index = 0 to 3
					SecretCode[index] = readInteger( 1 )
				next index

				mode as integer
				rank as integer
				for mode = 0 to 5
					for rank = 0 to 9
						HighScoreName [ mode, rank ] = readString( 1 )
						HighScoreLevel [ mode, rank ] = ReadInteger( 1 )
						HighScoreScore [ mode, rank ] = ReadInteger( 1 )
					next rank
				next mode
			CloseFile ( 1 )
		endif
	else
		cookieValue as string
		cookieValue = LoadSharedVariable(HTML5DataVersion+"MusicVolume", "No Value")
		if (cookieValue <> "No Value") then MusicVolume = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"EffectsVolume", "No Value")
		if (cookieValue <> "No Value") then EffectsVolume = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"GameMode", "No Value")
		if (cookieValue <> "No Value") then GameMode = Val(cookieValue)
		cookieValue = LoadSharedVariable(HTML5DataVersion+"PlayingSyncRate", "No Value")
		if (cookieValue <> "No Value") then PlayingSyncRate = Val(cookieValue)

		for index = 0 to 5
			cookieValue = LoadSharedVariable( HTML5DataVersion+"LevelSkip"+str(index), "No Value" )
			if (cookieValue <> "No Value") then LevelSkip[index]= Val(cookieValue)
		next index

		for index = 0 to 3
			cookieValue = LoadSharedVariable( HTML5DataVersion+"SecretCode"+str(index), "No Value" )
			if (cookieValue <> "No Value") then SecretCode[index]= Val(cookieValue)
		next index

		agk_i as integer
		for mode = 0 to 5
			cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreName"+str(mode), "No Value" )
			if (cookieValue <> "No Value")
				for agk_i = 0 to CountStringTokens(cookieValue, "*")
					HighScoreName [ mode, agk_i ] = GetStringToken( cookieValue, "*", (agk_i+1) )
				next agk_i
			endif
			cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreLevel"+str(mode), "No Value" )
			if (cookieValue <> "No Value")
				for agk_i = 0 to CountStringTokens(cookieValue, "*")
					HighScoreLevel [ mode, agk_i ] = Val(  GetStringToken( cookieValue, "*", (agk_i+1) )  )
				next agk_i
			endif
			cookieValue = LoadSharedVariable( HTML5DataVersion+"HighScoreScore"+str(mode), "No Value" )
			if (cookieValue <> "No Value")
				for agk_i = 0 to CountStringTokens(cookieValue, "*")
					HighScoreScore [ mode, agk_i ] = Val(  GetStringToken( cookieValue, "*", (agk_i+1) )  )
				next agk_i
			endif
		next mode
	endif
endfunction

//------------------------------------------------------------------------------------------------------------

function SaveOptionsAndHighScores ( )
	if (Platform <> Web)
		index as integer
		OpenToWrite( 1 , DataVersion )
			WriteInteger ( 1, MusicVolume )
			WriteInteger ( 1, EffectsVolume )
			WriteInteger ( 1, GameMode )
			WriteInteger ( 1, PlayingSyncRate )
				
			for index = 0 to 5
				WriteInteger ( 1, LevelSkip[index] )
			next index

			for index = 0 to 3
				WriteInteger ( 1, SecretCode[index] )
			next index
	 
			mode as integer
			rank as integer
			for mode = 0 to 5
				for rank = 0 to 9
					WriteString ( 1, HighScoreName [ mode, rank ] )
					WriteInteger ( 1, HighScoreLevel [ mode, rank ] )
					WriteInteger ( 1, HighScoreScore [ mode, rank ] )
				next rank
			next mode
		CloseFile ( 1 )
	else
		SaveSharedVariable( HTML5DataVersion+"MusicVolume", str(MusicVolume) )
		SaveSharedVariable( HTML5DataVersion+"EffectsVolume", str(EffectsVolume) )
		SaveSharedVariable( HTML5DataVersion+"GameMode", str(GameMode) )
		SaveSharedVariable( HTML5DataVersion+"PlayingSyncRate", str(PlayingSyncRate) )

		for index = 0 to 5
			SaveSharedVariable( HTML5DataVersion+"LevelSkip"+str(index), str(LevelSkip[index]) )
		next index

		for index = 0 to 3
			SaveSharedVariable( HTML5DataVersion+"SecretCode"+str(index), str(SecretCode[index]) )
		next index
		
		for mode = 0 to 5
			SaveSharedVariable( HTML5DataVersion+"HighScoreName"+str(mode), HighScoreName [ mode, 0 ]+'*'+HighScoreName [ mode, 1 ]+'*'+HighScoreName [ mode, 2 ]+'*'+HighScoreName [ mode, 3 ]+'*'+HighScoreName [ mode, 4 ]+'*'+HighScoreName [ mode, 5 ]+'*'+HighScoreName [ mode, 6 ]+'*'+HighScoreName [ mode, 7 ]+'*'+HighScoreName [ mode, 8 ]+'*'+HighScoreName [ mode, 9 ] )
			SaveSharedVariable( HTML5DataVersion+"HighScoreLevel"+str(mode), str(HighScoreLevel [ mode, 0 ])+'*'+str(HighScoreLevel [ mode, 1 ])+'*'+str(HighScoreLevel [ mode, 2 ])+'*'+str(HighScoreLevel [ mode, 3 ])+'*'+str(HighScoreLevel [ mode, 4 ])+'*'+str(HighScoreLevel [ mode, 5 ])+'*'+str(HighScoreLevel [ mode, 6 ])+'*'+str(HighScoreLevel [ mode, 7 ])+'*'+str(HighScoreLevel [ mode, 8 ])+'*'+str(HighScoreLevel [ mode, 9 ]) )
			SaveSharedVariable( HTML5DataVersion+"HighScoreScore"+str(mode), str(HighScoreScore [ mode, 0 ])+'*'+str(HighScoreScore [ mode, 1 ])+'*'+str(HighScoreScore [ mode, 2 ])+'*'+str(HighScoreScore [ mode, 3 ])+'*'+str(HighScoreScore [ mode, 4 ])+'*'+str(HighScoreScore [ mode, 5 ])+'*'+str(HighScoreScore [ mode, 6 ])+'*'+str(HighScoreScore [ mode, 7 ])+'*'+str(HighScoreScore [ mode, 8 ])+'*'+str(HighScoreScore [ mode, 9 ]) )
		next mode
	endif
endfunction

JeZxLee
Fallen Angel Software
Video Game Design Studio
http://www.FallenAngelSoftware.com

Back to top

Profile PM Email Website

JeZxLee

7

Years of Service

User Offline

Joined: 15th Mar 2017

Location: Long Island, New York, United States, Earth

Posted: 8th Nov 2019 04:28 Edited at: 8th Nov 2019 04:51

Link

This post has been marked by the post author as the answer.

Got the number of Internet Cookies down to ONE(1) !!!

//------------------------------------------------------------------------------------------------------------

function LoadOptionsAndHighScores ( )
	if (Platform <> Web)
		index as integer
		if GetFileExists( DataVersion ) = 0
		else
			OpenToRead(1, DataVersion)
				MusicVolume = readInteger( 1 )
				EffectsVolume = readInteger( 1 )
				GameMode = readInteger( 1 )
				PlayingSyncRate = readInteger( 1 )
				
				for index = 0 to 5
					LevelSkip[index] = ReadInteger( 1 )
				next index

for index = 0 to 3
					SecretCode[index] = readInteger( 1 )
				next index

mode as integer
				rank as integer
				for mode = 0 to 5
					for rank = 0 to 9
						HighScoreName [ mode, rank ] = readString( 1 )
						HighScoreLevel [ mode, rank ] = ReadInteger( 1 )
						HighScoreScore [ mode, rank ] = ReadInteger( 1 )
					next rank
				next mode
			CloseFile ( 1 )
		endif
	else		
		currentToken as integer
		currentToken = 1
		maxTokens as integer
		cookieValue as string
		cookieValue = LoadSharedVariable(HTML5DataVersion+"Data", "No Value")
		if (cookieValue <> "No Value")
			maxTokens = CountStringTokens(cookieValue, "*")
			MusicVolume = Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
			inc currentToken, 1
			EffectsVolume = Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
			inc currentToken, 1
			GameMode = Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
			inc currentToken, 1
			PlayingSyncRate = Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
			inc currentToken, 1

for index = 0 to 5
				LevelSkip[index]= Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
				inc currentToken, 1
			next index

for index = 0 to 3
				SecretCode[index]= Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
				inc currentToken, 1
			next index

agk_i as integer
			agk_i = currentToken
			for mode = 0 to 5
				for rank = 0 to 9
					HighScoreName [ mode, rank ] = GetStringToken( cookieValue, "*", (agk_i) )
					HighScoreLevel [ mode, rank ] = Val(  GetStringToken( cookieValue, "*", (agk_i+1) )  )
					HighScoreScore [ mode, rank ] = Val(  GetStringToken( cookieValue, "*", (agk_i+2) )  )
					inc agk_i, 3
				next rank
			next mode
		endif
	endif
endfunction

//------------------------------------------------------------------------------------------------------------

function SaveOptionsAndHighScores ( )
	if (Platform <> Web)
		index as integer
		OpenToWrite( 1 , DataVersion )
			WriteInteger ( 1, MusicVolume )
			WriteInteger ( 1, EffectsVolume )
			WriteInteger ( 1, GameMode )
			WriteInteger ( 1, PlayingSyncRate )
				
			for index = 0 to 5
				WriteInteger ( 1, LevelSkip[index] )
			next index

for index = 0 to 3
				WriteInteger ( 1, SecretCode[index] )
			next index
	 
			mode as integer
			rank as integer
			for mode = 0 to 5
				for rank = 0 to 9
					WriteString ( 1, HighScoreName [ mode, rank ] )
					WriteInteger ( 1, HighScoreLevel [ mode, rank ] )
					WriteInteger ( 1, HighScoreScore [ mode, rank ] )
				next rank
			next mode
		CloseFile ( 1 )
	else
		optionsScoresString as String
		optionsScoresString = ""
		
		optionsScoresString = optionsScoresString+str(MusicVolume)
		optionsScoresString = optionsScoresString+'*'
		optionsScoresString = optionsScoresString+str(EffectsVolume)
		optionsScoresString = optionsScoresString+'*'
		optionsScoresString = optionsScoresString+str(GameMode)
		optionsScoresString = optionsScoresString+'*'
		optionsScoresString = optionsScoresString+str(PlayingSyncRate)
		optionsScoresString = optionsScoresString+'*'
		
		for index = 0 to 5
			optionsScoresString = optionsScoresString+str(LevelSkip[index])
			optionsScoresString = optionsScoresString+'*'
		next index

for index = 0 to 3
			optionsScoresString = optionsScoresString+str(SecretCode[index])
			optionsScoresString = optionsScoresString+'*'
		next index
		
		for mode = 0 to 5
			for rank = 0 to 9
				optionsScoresString = optionsScoresString+HighScoreName[mode, rank]
				optionsScoresString = optionsScoresString+'*'
				optionsScoresString = optionsScoresString+str(HighScoreLevel[mode, rank])
				optionsScoresString = optionsScoresString+'*'
				optionsScoresString = optionsScoresString+str(HighScoreScore[mode, rank])
				if (mode < 5 or rank < 9) then optionsScoresString = optionsScoresString+'*'
			next rank
			
		next mode
		SaveSharedVariable( HTML5DataVersion+"Data", optionsScoresString )
	endif
endfunction

+ Code Snippet

//------------------------------------------------------------------------------------------------------------

function LoadOptionsAndHighScores ( )
	if (Platform <> Web)
		index as integer
		if GetFileExists( DataVersion ) = 0
		else
			OpenToRead(1, DataVersion)
				MusicVolume = readInteger( 1 )
				EffectsVolume = readInteger( 1 )
				GameMode = readInteger( 1 )
				PlayingSyncRate = readInteger( 1 )
				
				for index = 0 to 5
					LevelSkip[index] = ReadInteger( 1 )
				next index

				for index = 0 to 3
					SecretCode[index] = readInteger( 1 )
				next index

				mode as integer
				rank as integer
				for mode = 0 to 5
					for rank = 0 to 9
						HighScoreName [ mode, rank ] = readString( 1 )
						HighScoreLevel [ mode, rank ] = ReadInteger( 1 )
						HighScoreScore [ mode, rank ] = ReadInteger( 1 )
					next rank
				next mode
			CloseFile ( 1 )
		endif
	else		
		currentToken as integer
		currentToken = 1
		maxTokens as integer
		cookieValue as string
		cookieValue = LoadSharedVariable(HTML5DataVersion+"Data", "No Value")
		if (cookieValue <> "No Value")
			maxTokens = CountStringTokens(cookieValue, "*")
			MusicVolume = Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
			inc currentToken, 1
			EffectsVolume = Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
			inc currentToken, 1
			GameMode = Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
			inc currentToken, 1
			PlayingSyncRate = Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
			inc currentToken, 1

			for index = 0 to 5
				LevelSkip[index]= Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
				inc currentToken, 1
			next index

			for index = 0 to 3
				SecretCode[index]= Val(  GetStringToken( cookieValue, "*", (currentToken) )  )
				inc currentToken, 1
			next index

			agk_i as integer
			agk_i = currentToken
			for mode = 0 to 5
				for rank = 0 to 9
					HighScoreName [ mode, rank ] = GetStringToken( cookieValue, "*", (agk_i) )
					HighScoreLevel [ mode, rank ] = Val(  GetStringToken( cookieValue, "*", (agk_i+1) )  )
					HighScoreScore [ mode, rank ] = Val(  GetStringToken( cookieValue, "*", (agk_i+2) )  )
					inc agk_i, 3
				next rank
			next mode
		endif
	endif
endfunction

//------------------------------------------------------------------------------------------------------------

function SaveOptionsAndHighScores ( )
	if (Platform <> Web)
		index as integer
		OpenToWrite( 1 , DataVersion )
			WriteInteger ( 1, MusicVolume )
			WriteInteger ( 1, EffectsVolume )
			WriteInteger ( 1, GameMode )
			WriteInteger ( 1, PlayingSyncRate )
				
			for index = 0 to 5
				WriteInteger ( 1, LevelSkip[index] )
			next index

			for index = 0 to 3
				WriteInteger ( 1, SecretCode[index] )
			next index
	 
			mode as integer
			rank as integer
			for mode = 0 to 5
				for rank = 0 to 9
					WriteString ( 1, HighScoreName [ mode, rank ] )
					WriteInteger ( 1, HighScoreLevel [ mode, rank ] )
					WriteInteger ( 1, HighScoreScore [ mode, rank ] )
				next rank
			next mode
		CloseFile ( 1 )
	else
		optionsScoresString as String
		optionsScoresString = ""
		
		optionsScoresString = optionsScoresString+str(MusicVolume)
		optionsScoresString = optionsScoresString+'*'
		optionsScoresString = optionsScoresString+str(EffectsVolume)
		optionsScoresString = optionsScoresString+'*'
		optionsScoresString = optionsScoresString+str(GameMode)
		optionsScoresString = optionsScoresString+'*'
		optionsScoresString = optionsScoresString+str(PlayingSyncRate)
		optionsScoresString = optionsScoresString+'*'
		
		for index = 0 to 5
			optionsScoresString = optionsScoresString+str(LevelSkip[index])
			optionsScoresString = optionsScoresString+'*'
		next index

		for index = 0 to 3
			optionsScoresString = optionsScoresString+str(SecretCode[index])
			optionsScoresString = optionsScoresString+'*'
		next index
		
		for mode = 0 to 5
			for rank = 0 to 9
				optionsScoresString = optionsScoresString+HighScoreName[mode, rank]
				optionsScoresString = optionsScoresString+'*'
				optionsScoresString = optionsScoresString+str(HighScoreLevel[mode, rank])
				optionsScoresString = optionsScoresString+'*'
				optionsScoresString = optionsScoresString+str(HighScoreScore[mode, rank])
				if (mode < 5 or rank < 9) then optionsScoresString = optionsScoresString+'*'
			next rank
			
		next mode
		SaveSharedVariable( HTML5DataVersion+"Data", optionsScoresString )
	endif
endfunction

JeZxLee
Fallen Angel Software
Video Game Design Studio
http://www.FallenAngelSoftware.com

Back to top

Profile PM Email Website

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 8th Nov 2019 04:45 Edited at: 8th Nov 2019 06:40

Link

I am glad to help

Do you happen to know when a new version of the AGC with cookie support will appear

https://www.instagram.com/qugurun/

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / [SOLVED] Need Help! - Place Many Strings Into 1 String - Both Read & Write...

Attachments