Level Editor - Need Help - Saving / Loading

Author

Message

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 4th Jan 2016 04:56

Link

How to write and read multiple Floats / integers from 1 single file.

I am creating a new level editor for my Platformer and wish to save / load levels.

I am having trouble with writing / reading multiple lines of code.

This is my old BreakOut level editor.

// Project: BreakOut Level Editor 
// Created: 2015-09-27

//Set Display Variables
SetDisplayAspect(-1)

DeviceWidth# = GetDeviceWidth()
DeviceHeight# = GetDeviceHeight()

W# = 100 * GetDeviceWidth()/DeviceWidth#
H# = 100 * GetDeviceHeight()/DeviceHeight#

//Load up to 100 sprites....If you wish to change this you will have to Increase Sprites 101 number (Sprite that has view offset so we can move around the level)
Global Dim Sprite[1000]

Global ShowText = 0

Global PointerImage
Global ID = 1

//Define IDs of Sprites being placed on screen (Props, Platforms, Monsters)
//Platform ID = SID, PropID = PID, Monster ID = FID
Global SID = 1

//Load your images here....make sure you number them like i have. (Start at 1 and work your way up to How ever many you wish.)

LoadImage (2,"bricks/1.png")
LoadImage (3,"bricks/2.png")
LoadImage (4,"bricks/3.png")
LoadImage (5,"bricks/4.png")
LoadImage (6,"bricks/5.png")
LoadImage (7,"bricks/6.png")
LoadImage (8,"bricks/7.png")
LoadImage (9,"bricks/8.png")
LoadImage (10,"bricks/9.png")
LoadImage (11,"bricks/10.png")
LoadImage (12,"bricks/11.png")
LoadImage (13,"bricks/12.png")
LoadImage (14,"bricks/13.png")
LoadImage (15,"bricks/14.png")
LoadImage (16,"bricks/15.png")
LoadImage (17,"bricks/16.png")
LoadImage (18,"bricks/17.png")
LoadImage (19,"bricks/18.png")
 
//Load the starting Pointer Image
PointerImage = CreateSprite(0)
SetSpriteSize (PointerImage,4,-1)

//Get Map$ Name
MapName = 0
If MapName = 0
	StartTextInput ("Level Name.txt")
	endif

do
	
	//Complete Text Input to get Map$ name
	If MapName = 0 and GetTextInputCompleted() = 1
		
		Map$ = GetTextInput()
		MapName = 10
		endif
	
	
	Print("Brick ID:" + str (SID))
	
	//Change Image ID +1 	//Set New Pointer IMG 	//Delete Pre-Exisiting Pointer IMG
	If GetPointerPressed()	
		DeleteSprite (PointerImage)
		ID = ID + 1
		PointerImage = CreateSPrite(ID)
		SetSpriteSize (PointerImage,4,-1)
		SetSpritePosition(PointerImage,X#,Y#)
		endif
		
		If ID = 20
			ID = 1
			PointerImage = CreateSprite(0)
            SetSpriteSize (PointerImage,4,-1)
            SetSpritePosition(PointerImage,X#,Y#)
		endif
		
		X# = GetSpriteX(PointerImage)
		Y# = GetSpriteY(PointerImage)
		PointerImageWidth# = GetSpriteWidth(PointerImage)
		PointerImageHeight# = GetSpriteHeight(PointerImage)
		
		If GetRawKeypressed(39) = 1
			SetSpritePosition(PointerImage,X# + PointerImageWidth#,Y#)
			endif
			
			If GetRawKeypressed(37) = 1
			SetSpritePosition(PointerImage,X# - PointerImageWidth# ,Y#)
			endif
			
			If GetRawKeypressed(38) = 1
			SetSpritePosition(PointerImage,X#,Y# - PointerImageHeight# )
			endif
			
			If GetRawKeypressed(40) = 1
			SetSpritePosition(PointerImage,X#,Y# + PointerImageHeight# )
			endif
		
		
		If GetrawkeyPressed(16)=1
				Sprite[SID] = CreateSprite(ID)
				SetSpriteSize(Sprite[SID],4,-1)
				SetSpritePosition (Sprite[SID],X#,Y#)
				
			    // Increase Sprite ID to create next sprite
				SID = SID +1
				endif
				
						//Undo Delete SPrites With the Z Key///WHOOOOOOOOOPS FEATURE
						If GetRawKeyPressed(90) = 1
						       SID = SID - 1
						       DeleteSPrite(Sprite[SID])
						       endif
						       
						       If GetRawKeyPressed(112) = 1//f12
								   // Num = 1 to SID - 1 (-1 is to make sure you dont print a blank sprite position because of the Curser sprite that has not yet been place)
							For Num = 1 to SID -1
								OpenToWrite (Num,Map$,Num)
								WriteLine (Num, "Brick["+str (Num) + "]" + " = CreateSprite( " + str (GetSpriteImageID(Sprite[Num]))+" )"+ "  :  " + "SetSpritePosition(Brick[" + Str (Num)+"]" + "," + str (GetSpriteX(Sprite[Num])) +"," + str (GetSPriteY(Sprite[Num])) + ")" + " : SetSpriteSize (Brick[" +str(num)+"]" +",W#/22,H#/22)")
								
							closefile(Num)
							Next Num
		                  endif
		                  
		                 If GetRawKeyPressed(82) = 1
							SetSpritePosition(PointerImage,0,0)
							endif
		
		
		
	Print(GetRawLastKey())
			Print ("Pointer Image ID: " + str (ID) )

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: BreakOut Level Editor 
// Created: 2015-09-27

//Set Display Variables
SetDisplayAspect(-1)


DeviceWidth# = GetDeviceWidth()
DeviceHeight# = GetDeviceHeight()

W# = 100 * GetDeviceWidth()/DeviceWidth#
H# = 100 * GetDeviceHeight()/DeviceHeight#

//Load up to 100 sprites....If you wish to change this you will have to Increase Sprites 101 number (Sprite that has view offset so we can move around the level)
Global Dim Sprite[1000]

Global ShowText = 0

Global PointerImage
Global ID = 1

//Define IDs of Sprites being placed on screen (Props, Platforms, Monsters)
//Platform ID = SID, PropID = PID, Monster ID = FID
Global SID = 1


//Load your images here....make sure you number them like i have. (Start at 1 and work your way up to How ever many you wish.)

LoadImage (2,"bricks/1.png")
LoadImage (3,"bricks/2.png")
LoadImage (4,"bricks/3.png")
LoadImage (5,"bricks/4.png")
LoadImage (6,"bricks/5.png")
LoadImage (7,"bricks/6.png")
LoadImage (8,"bricks/7.png")
LoadImage (9,"bricks/8.png")
LoadImage (10,"bricks/9.png")
LoadImage (11,"bricks/10.png")
LoadImage (12,"bricks/11.png")
LoadImage (13,"bricks/12.png")
LoadImage (14,"bricks/13.png")
LoadImage (15,"bricks/14.png")
LoadImage (16,"bricks/15.png")
LoadImage (17,"bricks/16.png")
LoadImage (18,"bricks/17.png")
LoadImage (19,"bricks/18.png")
 
//Load the starting Pointer Image
PointerImage = CreateSprite(0)
SetSpriteSize (PointerImage,4,-1)

//Get Map$ Name
MapName = 0
If MapName = 0
	StartTextInput ("Level Name.txt")
	endif
	
	




do
	
	//Complete Text Input to get Map$ name
	If MapName = 0 and GetTextInputCompleted() = 1
		
		Map$ = GetTextInput()
		MapName = 10
		endif
	
	
	Print("Brick ID:" + str (SID))
	
	//Change Image ID +1 	//Set New Pointer IMG 	//Delete Pre-Exisiting Pointer IMG
	If GetPointerPressed()	
		DeleteSprite (PointerImage)
		ID = ID + 1
		PointerImage = CreateSPrite(ID)
		SetSpriteSize (PointerImage,4,-1)
		SetSpritePosition(PointerImage,X#,Y#)
		endif
		
		If ID = 20
			ID = 1
			PointerImage = CreateSprite(0)
            SetSpriteSize (PointerImage,4,-1)
            SetSpritePosition(PointerImage,X#,Y#)
		endif
		
		X# = GetSpriteX(PointerImage)
		Y# = GetSpriteY(PointerImage)
		PointerImageWidth# = GetSpriteWidth(PointerImage)
		PointerImageHeight# = GetSpriteHeight(PointerImage)
		
		If GetRawKeypressed(39) = 1
			SetSpritePosition(PointerImage,X# + PointerImageWidth#,Y#)
			endif
			
			If GetRawKeypressed(37) = 1
			SetSpritePosition(PointerImage,X# - PointerImageWidth# ,Y#)
			endif
			
			If GetRawKeypressed(38) = 1
			SetSpritePosition(PointerImage,X#,Y# - PointerImageHeight# )
			endif
			
			If GetRawKeypressed(40) = 1
			SetSpritePosition(PointerImage,X#,Y# + PointerImageHeight# )
			endif
		
		
		If GetrawkeyPressed(16)=1
				Sprite[SID] = CreateSprite(ID)
				SetSpriteSize(Sprite[SID],4,-1)
				SetSpritePosition (Sprite[SID],X#,Y#)
				
			    // Increase Sprite ID to create next sprite
				SID = SID +1
				endif
				
						//Undo Delete SPrites With the Z Key///WHOOOOOOOOOPS FEATURE
						If GetRawKeyPressed(90) = 1
						       SID = SID - 1
						       DeleteSPrite(Sprite[SID])
						       endif
						       
						       If GetRawKeyPressed(112) = 1//f12
								   // Num = 1 to SID - 1 (-1 is to make sure you dont print a blank sprite position because of the Curser sprite that has not yet been place)
							For Num = 1 to SID -1
								OpenToWrite (Num,Map$,Num)
								WriteLine (Num, "Brick["+str (Num) + "]" + " = CreateSprite( " + str (GetSpriteImageID(Sprite[Num]))+" )"+ "  :  " + "SetSpritePosition(Brick[" + Str (Num)+"]" + "," + str (GetSpriteX(Sprite[Num])) +"," + str (GetSPriteY(Sprite[Num])) + ")" + " : SetSpriteSize (Brick[" +str(num)+"]" +",W#/22,H#/22)")
								
							closefile(Num)
							Next Num
		                  endif
		                  
		                 If GetRawKeyPressed(82) = 1
							SetSpritePosition(PointerImage,0,0)
							endif
		
		
		
	Print(GetRawLastKey())
			Print ("Pointer Image ID: " + str (ID) )
    

    Print( ScreenFPS() )
    Sync()
loop

As you will see the way I am saving it is writing out generated lines of code just to copy and past into AGK.

What I am trying to do is grab each sprites Xpos / Ypos and write them as floats into a file.

which I would assume would be.

If savekey = pressed
SaveFile = OpenToWrite("Save.txt",0)
for num = 1 to ID#
WriteInteger(SaveFile,ID#)
WriteFloat (SaveFile,GetSpriteX(Sprite[Num]))
WriteFloat (SaveFile,GetSpriteY(Sprite[Num]))
Next num
CloseFile (SaveFile)

Then when load key is pressed

SaveFile = OpenToRead("Save.txt")
ID# = ReadInteger(SaveFile)
XPos# = ReadFloat(SaveFile)
YPos# = ReadFloat(SaveFile)

For Num = 1 to ID#
Sprite[Num] = CreateSprite(0)
SetSpriteSize(Sprite[Num],SizeX#,SizeY#)
SetSpritePosition(Sprite[Num],Xpos#,YPos#)
Next Num

I have been going over this for awhile now, searched the fourms and found http://davidjohnwheeler.blogspot.co.uk/2015/04/level-editor.html but just cant make and since of it.

Any help would be much appreciated. Thanks in advance!!!

Sign up for NaGaCreMo!

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 4th Jan 2016 09:34

Link

Change ID# to just ID (the # would indicate it is a float, but you are using it as an int).

In your save section: WriteInteger(SaveFile,ID#) is going to write the same number (ID#) over and over again at each iteration of your FOR loop. You only need to write it once.

If savekey = pressed
SaveFile = OpenToWrite("Save.txt",0)
WriteInteger(SaveFile,ID)
for num = 1 to ID
WriteFloat (SaveFile,GetSpriteX(Sprite[Num]))
WriteFloat (SaveFile,GetSpriteY(Sprite[Num]))
Next num
CloseFile (SaveFile)

SaveFile = OpenToRead("Save.txt")
ID = ReadInteger(SaveFile)
For Num = 1 to ID
XPos# = ReadFloat(SaveFile)
YPos# = ReadFloat(SaveFile)
Sprite[Num] = CreateSprite(0)
SetSpriteSize(Sprite[Num],SizeX#,SizeY#)
SetSpritePosition(Sprite[Num],Xpos#,YPos#)
Next Num

Alternatively, you could drop saving the ID to the file altogether, and just read the x# and y# floats until FileEOF is true.

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 4th Jan 2016 10:30 Edited at: 4th Jan 2016 11:37

Link

You might find this module useful. It allows you to get and set parameters by name.

If you continue with your current method, then I recommend that you make the first parameter the file version. When you need to change it later you can use the version number to read the parameters correctly in your code, and to write them back out with an updated version number.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 4th Jan 2016 18:53 Edited at: 4th Jan 2016 19:17

Link

The problem I am having is reading the multiple integers and possibly writing them. I know how to write multiple lines. I may be writing multiple floats I may not be. The way I am reading it does not read everything. It only reads one value.

so lets say I have 3 sprites.

with the 3 sprite locations.

SriteNum = 3
Sprite 1.
X# = 39
Y# = 31

Sprite2
X# = 68
Y# = 23

Sprite 3
X# = 30
Y# = 89

I want to save all the locations to a file then read them in the future to create the level.

If Save Key is pressed......
OpenToWrite(MyFile,"Save.Txt",0)
For Num = 1 to SriteNum
WriteInteger (MyFile,SriteNum)
WriteFloat (MyFile,GetSpriteX(Sprite[Num]))
WriteFloat (MyFile,GetSpriteY(Sprite[Num]))
CloseFile(MyFile)
Next Num
Endif

If Load Key is Pressed.....

This is where I think I need help. Possibly writing too.

When trying to read the floats as showed in the first post. It is only returning the first (or last idk which.) x / y values. It is not reading them all.

From reading the help docs it should read the file as.

X# = 39
Y# = 31
X# = 68
Y# = 23
X# = 30
Y# = 89

And store the values / create the sprites and repeat until each value has been read.

I'm sorry for the lack of being able to describe the situation any better. I know it sounds confusing atleast to me it does.

Thanks for any advice in advance. I really appreciate all the help.

Code sample that you can run with no media that isn't working.
I have butchered it so many times I don't know which way is up or down any more

Click the mouse to create sprites any where on the screen at the mouse x/y position.
Hit F1 to save the sprites locations / F2 to Load the sprites locations.

// Project: Testing 
// Created: 2016-01-03

// set window properties
SetWindowTitle( "Testing" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
ID# as integer 
ID# = 1

Global Dim Sprite[1000]
Global Dim Xpos[1000]
Global Dim Ypos[1000]

X$ = "XPOS.txt"
Y$ = "YPOS.txt"

do
	If GetPointerPressed()=1 
		Sprite[ID#] = CreateSprite(0)
		SetSpritePosition(Sprite[ID#],GetPointerX(),GetPointerY())
		ID# = ID# + 1
		SetSpriteSize(Sprite[ID#],50,50)
		endif
		
		
		
	If GetRawKeyPressed(112) = 1
		For Num = 1 to ID#
		myfile = OpenToWrite(X$,0)
		WriteInteger (myfile,ID#)
		WriteFloat (myfile,GetSpriteX(Sprite[Num]))
					CloseFile(myfile)
				
			Next Num
			endif
		
		If GetRawKeyPressed(113) = 1
			myfile = OpentoRead(X$)
			tiles = ReadInteger (myfile)
			ID# = tiles
			for num = 1 to ID#
			
			X# = ReadFloat(Myfile)
			Y# = ReadFloat(Myfile)
		   Sprite[Num] = CreateSprite(0)
		   SetSpriteSize (Sprite[num],50,50)
		   SetSpritePosition(Sprite[num],X#,Y#)
			
			
			
			
			print (Xpos[Num])
			next num
			endif
			
			
	
	Print(GetRawLastKey())
    
Print("ID# " + str (ID#))
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: Testing 
// Created: 2016-01-03

// set window properties
SetWindowTitle( "Testing" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
ID# as integer 
ID# = 1

Global Dim Sprite[1000]
Global Dim Xpos[1000]
Global Dim Ypos[1000]

X$ = "XPOS.txt"
Y$ = "YPOS.txt"

	
	

do
	If GetPointerPressed()=1 
		Sprite[ID#] = CreateSprite(0)
		SetSpritePosition(Sprite[ID#],GetPointerX(),GetPointerY())
		ID# = ID# + 1
		SetSpriteSize(Sprite[ID#],50,50)
		endif
		
		
		
	If GetRawKeyPressed(112) = 1
		For Num = 1 to ID#
		myfile = OpenToWrite(X$,0)
		WriteInteger (myfile,ID#)
		WriteFloat (myfile,GetSpriteX(Sprite[Num]))
					CloseFile(myfile)
				
			Next Num
			endif
		
		If GetRawKeyPressed(113) = 1
			myfile = OpentoRead(X$)
			tiles = ReadInteger (myfile)
			ID# = tiles
			for num = 1 to ID#
			
			X# = ReadFloat(Myfile)
			Y# = ReadFloat(Myfile)
		   Sprite[Num] = CreateSprite(0)
		   SetSpriteSize (Sprite[num],50,50)
		   SetSpritePosition(Sprite[num],X#,Y#)
			
			
			
			
			print (Xpos[Num])
			next num
			endif
			
			
	
	Print(GetRawLastKey())
    
Print("ID# " + str (ID#))
    Print( ScreenFPS() )
    Sync()
loop

Sign up for NaGaCreMo!

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 4th Jan 2016 19:45

Link

Did you see my previous post?

Try this:

// Project: Testing 
// Created: 2016-01-03
 
// set window properties
SetWindowTitle( "Testing" )
SetWindowSize( 1024, 768, 0 )
 
// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

ID = 0
 
Global Dim Sprite[1000]
Global Dim Xpos#[1000]
Global Dim Ypos#[1000]
 
SaveFile$ = "POS.txt"
 
do
    If GetPointerPressed()=1 
        ID = ID + 1
        Sprite[ID] = CreateSprite(0)
        SetSpritePosition(Sprite[ID],GetPointerX(),GetPointerY())
        SetSpriteSize(Sprite[ID],50,50)
    endif
         
    If GetRawKeyPressed(112) = 1
        myfile = OpenToWrite(SaveFile$,0)
		WriteInteger (myfile,ID)
        For Num = 1 to ID
			WriteFloat (myfile,GetSpriteX(Sprite[Num]))
			WriteFloat (myfile,GetSpritey(Sprite[Num]))
        Next Num
        CloseFile(myfile)
    endif
         
    If GetRawKeyPressed(113) = 1
		myfile = OpentoRead(SaveFile$)
		ID = ReadInteger (myfile)
		for num = 1 to ID
			X# = ReadFloat(Myfile)
			Y# = ReadFloat(Myfile)
			Sprite[Num] = CreateSprite(0)
			SetSpriteSize (Sprite[num],50,50)
			SetSpritePosition(Sprite[num],X#,Y#)
			print (Xpos#[Num])
        next num
    endif

`Print(GetRawLastKey())
	Print("ID " + str (ID))
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: Testing 
// Created: 2016-01-03
 
// set window properties
SetWindowTitle( "Testing" )
SetWindowSize( 1024, 768, 0 )
 
// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

ID = 0
 
Global Dim Sprite[1000]
Global Dim Xpos#[1000]
Global Dim Ypos#[1000]
 
SaveFile$ = "POS.txt"
 
do
    If GetPointerPressed()=1 
        ID = ID + 1
        Sprite[ID] = CreateSprite(0)
        SetSpritePosition(Sprite[ID],GetPointerX(),GetPointerY())
        SetSpriteSize(Sprite[ID],50,50)
    endif
         
    If GetRawKeyPressed(112) = 1
        myfile = OpenToWrite(SaveFile$,0)
		WriteInteger (myfile,ID)
        For Num = 1 to ID
			WriteFloat (myfile,GetSpriteX(Sprite[Num]))
			WriteFloat (myfile,GetSpritey(Sprite[Num]))
        Next Num
        CloseFile(myfile)
    endif
         
    If GetRawKeyPressed(113) = 1
		myfile = OpentoRead(SaveFile$)
		ID = ReadInteger (myfile)
		for num = 1 to ID
			X# = ReadFloat(Myfile)
			Y# = ReadFloat(Myfile)
			Sprite[Num] = CreateSprite(0)
			SetSpriteSize (Sprite[num],50,50)
			SetSpritePosition(Sprite[num],X#,Y#)
			print (Xpos#[Num])
        next num
    endif

	`Print(GetRawLastKey())
	Print("ID " + str (ID))
    Print( ScreenFPS() )
    Sync()
loop

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 4th Jan 2016 20:05 Edited at: 4th Jan 2016 20:07

Link

Thanks very much CJB. ID# was declared an Integer at the top of the code source. I figured it wouldn't matter.
The part I'm guessing that does matter is having the Integer written / read before the for loop.
Something so simple can cause the biggest head ach.

Thanks again!!!

Sign up for NaGaCreMo!

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 4th Jan 2016 20:10

Link

Quote: "OpenToWrite(MyFile,"Save.Txt",0)
For Num = 1 to SriteNum
WriteInteger (MyFile,SriteNum)
WriteFloat (MyFile,GetSpriteX(Sprite[Num]))
WriteFloat (MyFile,GetSpriteY(Sprite[Num]))
CloseFile(MyFile)
Next Num
Endif"

You have closed the file after writing the details of the first sprite.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 4th Jan 2016 20:18 Edited at: 4th Jan 2016 20:19

Link

Quote: "You have closed the file after writing the details of the first sprite."

Thanks guys very much. I am just now having the time to go over your tutorial BatVink, as it will be needed when the editor gets more advanced.

Sign up for NaGaCreMo!

Back to top

Profile PM Email Website

Yodaman Jer

User Banned

Posted: 4th Jan 2016 21:02

Link

One thing of note.

I noticed that you are using three different arrays to store tile information. Is there a specific reason you are doing it this way?

The way I am using is one that good ol' Clonkex taught me a while ago, and it's pretty good. It keeps things a lot neater, and makes adding more information in a lot easier!

First, you'll want to declare a UDT (user-defined type)

+ Code Snippet

Type tileData
    tileID as integer
    tileX as float
    tileY as float
    //any more data you need can be added in here!
EndType

Next, declare a two-dimensional array, which will making storing the tile positions much easier as well!

+ Code Snippet

// make this global so it easily accessible in other functions
Global map as tileData[roomWidth, roomHeight]

roomWidth and roomHeight are constants, so always determine the size of the level you want!

In your main loop, you'll want to have some sort of grid-snapping function. In this example, which I am copy>pasting from my current project, you will see it in use, and I will do my best to explain them here in a moment!

+ Code Snippet

    // This will add tiles to the map!
    If GetPointerPressed() = 1
		PosX = GetPointerX()
		PosY = GetPointerY()
		
		x = GridSnap(PosX, gridSpace)/gridSpace
		y = GridSnap(PosY, gridSpace)/gridSpace
		
		// If the player is within the bounds of the map
		If x >= 0 and x <= roomWidth - 1 and y >= 0 and y <= roomHeight - 1
			// Create the tile if it doesn't exist already
			If map[x,y].tileExists = 0
				map[x,y].tileExists = 1
				map[x,y].tileID = CloneSprite(tile)
				map[x,y].tileX = x
				map[x,y].tileY = y
				
				SetSpritePosition(map[x,y].tileID, GridSnap(PosX, gridSpace), GridSnap(PosY, gridSpace))
				SetSpriteVisible(map[x,y].tileID, 1)
				itemCount = itemCount + 1
			EndIf
		EndIf
	EndIf

So, how this works is that when the player clicks the mouse, it will determine the cursor's position and snap it to the nearest point of the grid. Then, it will check if that place you just clicked is "in use", which I have as a tag in my UDT. If it is 0, I know there is no tile there, so we set the flag to 1 (true), and create the sprite/tile, then position it using the mouse position which is fed into the GridSnap() function. To check that the cursor is actually inside of the placeable grid, we just use this line:

+ Code Snippet

If x >= 0 and x <= roomWidth - 1 and y >= 0 and y <= roomHeight - 1

And that's it! Pretty dang easy, and this is where it really gets advantageous!

When saving a file...

+ Code Snippet

Function SaveMap(name as string)
    OpenToWrite(1, name)
        For x = 0 to roomWidth-1
            For y = 0 to roomHeight-1
                //Write out each array element's data
                WriteInteger(map[x,y].tileID)
                // any other data...
            Next y
        Next x
    CloseFile(1)
EndFunction

And loading the file, you just replace whatever may be in your map array already!

+ Code Snippet

Function LoadMap(name as string)
    OpenToRead(1, name)
        For x = 0 to roomWidth-1
            For y = 0 to roomHeight-1
                //read in each array element's data
                map[x,y].tileID = ReadInteger(1)
                // any other data...
            Next y
        Next x
    CloseFile(1)
EndFunction

And wah-lah! It may take a bit of work to get it implemented, but if you use this technique it will make things so much easier!

Just my $0.02

Sign up for NaGaCreMo!

Back to top

Profile

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 4th Jan 2016 21:36 Edited at: 5th Jan 2016 01:22

Link

Thanks yoda, I just have not got around to this. But as you will see in a few minsI will post you the complete demo I have made after discovering my dumbfounded mistakes. You will notice also in that code you see above. Only 1 array is actually being used. Sprite[]

Revised Code / commented.

// Project: Testing 
// Created: 2016-01-03
  
// set window properties
SetWindowTitle( "Testing" )

//Add a BackGround//
 BackGround = LoadImage("BG.png")
 BG = CreateSprite(BackGround)
 SetSpriteSize(BG,100,100)
 FixSPriteToScreen(BG,1)
 
  
  
  
  
// set display properties//
SetDisplayAspect(-1)
 
 //Keep Track of Sprite ID//
ID = 0

//Keep Track of Img ID being Displayed with Pointer Image//
TID = 1
 
 //Keep Track of all the sprite IDS// 
Global Dim Sprite[1000]

//Save File Name//
SaveFile$ = "POS.txt"

//Load all the images//
for ImgID = 1 to 18
LoadImage(ImgID,str(ImgID)+".png")	
next ImgID

//Create the Display Image//
PointerImage = CreateSprite(TID)
SetSpriteSize (PointerImage,4,-1)

do
	SetPrintColor(0,0,0)
	//Print the location of PointerImage//
	Print("Pointer IMG Xpos#: " + str(Xpos#))
	Print("Pointer IMG Ypos#: " + str(Ypos#))
	
	     
	    //Store Variable Values of Display Img / Xpos / Ypos.//
	    XPos# = GetSpriteX(PointerImage)
		YPos# = GetSpriteY(PointerImage)
		SetViewOffset ( GetSpriteX ( PointerImage ) -25, 0)
		PointerImageWidth# = GetSpriteWidth(PointerImage)
		PointerImageHeight# = GetSpriteHeight(PointerImage)
	    ///////////////////////////////////////////////////////
	    
	    //If SpaceBar is Pressed...Change Display Image. If Display image reaches last image. Change Display Img back to TID = 1
	If GetRawKeyPressed(32)	
		DeleteSprite (PointerImage)
		TID = TID + 1
		PointerImage = CreateSPrite(TID)
		SetSpriteSize (PointerImage,4,-1)
		SetSpritePosition(PointerImage,Xpos#,Ypos#)
		endif
		
		If TID = 18 and GetRawKeyPressed(32) = 1
			TID = 0
		endif
		//////////////////////////////////////////////////////
	     
	     //Move PointerImage Right//
	     If GetRawKeypressed(39) = 1
			SetSpritePosition(PointerImage,Xpos# + PointerImageWidth#,Ypos#)
			endif
			//Move PointerImage Left//
			If GetRawKeypressed(37) = 1
			SetSpritePosition(PointerImage,Xpos# - PointerImageWidth# ,Ypos#)
			endif
			//Move PointerImage Up//
			If GetRawKeypressed(38) = 1
			SetSpritePosition(PointerImage,Xpos#,Ypos# - PointerImageHeight# )
			endif
			//Move PointerImage Down//
			If GetRawKeypressed(40) = 1
			SetSpritePosition(PointerImage,Xpos#,Ypos# + PointerImageHeight# )
			endif
	       /////////////////////////////////////////////////////
	     
	     
    // If Left ShiftKey is Pressed. Create a sprite using the PointerImage ID in the position of the Pointer Image.// 
    If GetRawKeyPressed(16) = 1
        ID = ID + 1
        Sprite[ID] = CreateSprite(TID)
        SetSpritePosition(Sprite[ID],Xpos#,Ypos#)
        SetSpriteSize(Sprite[ID],4,-1)
    endif
   /////////////////////////////////////////////////////   
      
      
      
      
      ///// If the F1 Key is pressed. Save the Level.//////    
    If GetRawKeyPressed(112) = 1
        myfile = OpenToWrite(SaveFile$,0)
        WriteInteger (myfile,ID)
        For Num = 1 to ID
            WriteFloat (myfile,GetSpriteX(Sprite[Num]))
            WriteFloat (myfile,GetSpritey(Sprite[Num]))
            WriteInteger(myfile,GetSpriteImageID(Sprite[Num]))
        Next Num
        CloseFile(myfile)
    endif
    ///////////////////////////////////////////////////////
    
    ///  If the F2 key is pressed. Load the previous level. ///    
    If GetRawKeyPressed(113) = 1
        myfile = OpentoRead(SaveFile$)
        ID = ReadInteger (myfile)
        for num = 1 to ID
            X# = ReadFloat(Myfile)
            Y# = ReadFloat(Myfile)
            Img = ReadInteger(Myfile)
            Sprite[Num] = CreateSprite(Img)
            SetSpriteSize (Sprite[num],4,-1)
            SetSpritePosition(Sprite[num],X#,Y#)
            
               
            
        next num
        closefile(myfile)
    endif
    /////////////////////////////////////////////////////////////
 
    ///If the Z key is pressed. Delete the last sprite placed.///
    If GetRawKeyPressed(90) = 1
		
		DeleteSprite(Sprite[ID])
		ID = ID - 1

endif
			
		
		
         /////////////////////////////////////////////////////////			
    
    Print(GetRawLastKey())
 
    `Print(GetRawLastKey())
    Print("ID " + str (ID))
    Print( ScreenFPS() )
    Sync()
    
    
    
loop

+ Code Snippet

// Project: Testing 
// Created: 2016-01-03
  
// set window properties
SetWindowTitle( "Testing" )

 //Add a BackGround//
 BackGround = LoadImage("BG.png")
 BG = CreateSprite(BackGround)
 SetSpriteSize(BG,100,100)
 FixSPriteToScreen(BG,1)
 
  
  
  
  
// set display properties//
SetDisplayAspect(-1)
 
 //Keep Track of Sprite ID//
ID = 0

//Keep Track of Img ID being Displayed with Pointer Image//
TID = 1
 
 //Keep Track of all the sprite IDS// 
Global Dim Sprite[1000]

  //Save File Name//
SaveFile$ = "POS.txt"

//Load all the images//
for ImgID = 1 to 18
LoadImage(ImgID,str(ImgID)+".png")	
next ImgID


//Create the Display Image//
PointerImage = CreateSprite(TID)
SetSpriteSize (PointerImage,4,-1)



  
do
	SetPrintColor(0,0,0)
	//Print the location of PointerImage//
	Print("Pointer IMG Xpos#: " + str(Xpos#))
	Print("Pointer IMG Ypos#: " + str(Ypos#))
	
	     
	    //Store Variable Values of Display Img / Xpos / Ypos.//
	    XPos# = GetSpriteX(PointerImage)
		YPos# = GetSpriteY(PointerImage)
		SetViewOffset ( GetSpriteX ( PointerImage ) -25, 0)
		PointerImageWidth# = GetSpriteWidth(PointerImage)
		PointerImageHeight# = GetSpriteHeight(PointerImage)
	    ///////////////////////////////////////////////////////
	    
	    //If SpaceBar is Pressed...Change Display Image. If Display image reaches last image. Change Display Img back to TID = 1
	If GetRawKeyPressed(32)	
		DeleteSprite (PointerImage)
		TID = TID + 1
		PointerImage = CreateSPrite(TID)
		SetSpriteSize (PointerImage,4,-1)
		SetSpritePosition(PointerImage,Xpos#,Ypos#)
		endif
		
		If TID = 18 and GetRawKeyPressed(32) = 1
			TID = 0
		endif
		//////////////////////////////////////////////////////
	     
	     //Move PointerImage Right//
	     If GetRawKeypressed(39) = 1
			SetSpritePosition(PointerImage,Xpos# + PointerImageWidth#,Ypos#)
			endif
			//Move PointerImage Left//
			If GetRawKeypressed(37) = 1
			SetSpritePosition(PointerImage,Xpos# - PointerImageWidth# ,Ypos#)
			endif
			//Move PointerImage Up//
			If GetRawKeypressed(38) = 1
			SetSpritePosition(PointerImage,Xpos#,Ypos# - PointerImageHeight# )
			endif
			//Move PointerImage Down//
			If GetRawKeypressed(40) = 1
			SetSpritePosition(PointerImage,Xpos#,Ypos# + PointerImageHeight# )
			endif
	       /////////////////////////////////////////////////////
	     
	     
    // If Left ShiftKey is Pressed. Create a sprite using the PointerImage ID in the position of the Pointer Image.// 
    If GetRawKeyPressed(16) = 1
        ID = ID + 1
        Sprite[ID] = CreateSprite(TID)
        SetSpritePosition(Sprite[ID],Xpos#,Ypos#)
        SetSpriteSize(Sprite[ID],4,-1)
    endif
   /////////////////////////////////////////////////////   
      
      
      
      
      ///// If the F1 Key is pressed. Save the Level.//////    
    If GetRawKeyPressed(112) = 1
        myfile = OpenToWrite(SaveFile$,0)
        WriteInteger (myfile,ID)
        For Num = 1 to ID
            WriteFloat (myfile,GetSpriteX(Sprite[Num]))
            WriteFloat (myfile,GetSpritey(Sprite[Num]))
            WriteInteger(myfile,GetSpriteImageID(Sprite[Num]))
        Next Num
        CloseFile(myfile)
    endif
    ///////////////////////////////////////////////////////
    
    ///  If the F2 key is pressed. Load the previous level. ///    
    If GetRawKeyPressed(113) = 1
        myfile = OpentoRead(SaveFile$)
        ID = ReadInteger (myfile)
        for num = 1 to ID
            X# = ReadFloat(Myfile)
            Y# = ReadFloat(Myfile)
            Img = ReadInteger(Myfile)
            Sprite[Num] = CreateSprite(Img)
            SetSpriteSize (Sprite[num],4,-1)
            SetSpritePosition(Sprite[num],X#,Y#)
            
               
            
        next num
        closefile(myfile)
    endif
    /////////////////////////////////////////////////////////////
 
    ///If the Z key is pressed. Delete the last sprite placed.///
    If GetRawKeyPressed(90) = 1
		
		DeleteSprite(Sprite[ID])
		ID = ID - 1

				endif
			
		
		
         /////////////////////////////////////////////////////////			
    
    Print(GetRawLastKey())
 
    `Print(GetRawLastKey())
    Print("ID " + str (ID))
    Print( ScreenFPS() )
    Sync()
    
    
    
loop

All this does is position the sprites on the screen 4x4 sprites. Saves the Position of each sprite / ImageID. Then Load them to a blank level.

Move the tiles using the arrow keys. 1 grid at a time.
Z key = Undo last placed sprite.
Left Shift Key = Create Tile Sprite Under Display Image Sprite.
F1 = Save Level.
F2 = Load Level.
Space = Change Display Image ID.

I may have forgot to mention something. If I did, I know I commented all the actions.

Project Files Attached.

Some Images may not be sized correctly to move along the grid. These Images are 13,14,15. the rest will work properly.

Sign up for NaGaCreMo!

Attachments

Login to view attachments

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 4th Jan 2016 22:22

Link

Excellent progress being made there Crazy Programmer! Can't wait to see the finished game

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 4th Jan 2016 22:50 Edited at: 5th Jan 2016 01:23

Link

Thanks CJB your encouragement is truly appreciated.

Edit: Heres a sample level I just made. Saves and loads.

Sign up for NaGaCreMo!

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 5th Jan 2016 02:14

Link

Just got back from work, first day back after xmas leave. Got AppGameKit website withdrawal I think! Seems like you have this sorted now anyway.
The level is looking good, keep up the good work, you will soon have your NaGaCreMo done! I think I will have to retract my submission as I will have no chance by the looks of it to get anywhere started on it with work now!!!

Not sure if it is just my web browser but I can't seem to open any of the code snippets hmmm

The Amiga and Amos were great!

My website LEAP - Download Paint Pot here!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 5th Jan 2016 02:39

Link

Quote: "soon have your NaGaCreMo done!"

,
Well my goal isn't to complete a game in 30 days any more. I'm going to take baby steps. I'm in no rush like I was last time. I want things done right

NaGaCreMo has done its job....Motivated me to start a project

Sign up for NaGaCreMo!

Back to top

Profile PM Email Website

Yodaman Jer

User Banned

Posted: 5th Jan 2016 05:40

Link

Quote: "Not sure if it is just my web browser but I can't seem to open any of the code snippets hmmm "

Ah, so I'm not the only one! It seems to be that if you hit a certain amount of code snippets in a page, they will just refuse to load, so I'm going to report a bug in the bug reports thread.

Crazy Programmer, this looks great! Very glad to see your hard work come to fruition

Sign up for NaGaCreMo!

Back to top

Profile

Sorry your browser is not supported!

AppGameKit Classic Chat / Level Editor - Need Help - Saving / Loading

Attachments