Sorry your browser is not supported!

Okay, I have put the educational software on hold for a while and have decided to do something a bit more fun in making a platform game

This is in part due to Crazy Programmer and Conjured Entertainment giving me lot's of inspiration with their projects.

First off, I am not fully sure of where this is going to go as I haven't made my mind up with a title, theme or graphic style yet!

and I might also do an educational title at the same time as this yet lol but right now I am maybe thinking some sort of pixel retro style?

Anyway I decided to have a mess with the percentage system as I decided to do my next project in this style due to not being happy with the black bars on the apps on different devices.

If you saw my other post for this you will see that first it is not easy to think this way in %age's, especially being an old school programmer! It just doesn't seem natural but I think I am just about getting my head around it now

This is where I got up to anyway:

// Project: Voxel Platform 
// Created: Spectre

// ######################################## Set up the screen

SetSyncRate(30,0)
SetOrientationAllowed(0,0,1,1)

screenWidth# = GetMaxDeviceWidth()
screenHeight# = GetMaxDeviceHeight()

aspect# = screenWidth#/screenHeight#

SetDisplayAspect(-1)

displayLeft# = GetScreenBoundsLeft()
displayRight# = GetScreenBoundsRight()
displayTop# = GetScreenBoundsTop()
displayBottom# = GetScreenBoundsBottom()

displayWidth# = displayRight# - displayLeft#
displayHeight# = displayBottom# - displayTop#

displayCentreX# = displayWidth# * 0.5
displayCentreY# = displayHeight# * 0.5

SetScissor( displayLeft#, displayTop#, displayRight#, displayBottom# )

// ###########################################################

// ######################################## Set up pixel percentages

onePercentX# = screenWidth#/100.0
onePercentY# = screenHeight#/100.0

xPixel# = 100.0/screenWidth#
yPixel# = 100.0/screenHeight#

// ###########################################################

// ######################################## Set up joystick and buttons

joyStick = 1
joyStickSizeX# = xPixel# * 250.0
joyStickSizeY# = joyStickSizeX# * aspect#
joyStickCentreX# = joyStickSizeX# * 0.5
joyStickCentreY# = joyStickSizeY# * 0.5
AddVirtualJoystick(joyStick, 99.0 - joyStickCentreX# , 99.0 - joyStickCentreY# , joyStickSizeX#)
SetVirtualJoystickAlpha(joyStick, 60.0, 110.0)

button1 = 1
button2 = 2
buttonSizeX# = xPixel# * 150.0
buttonSizeY# = buttonSizeX# * aspect#
buttonCentreX# = buttonSizeX# * 0.5
buttonCentreY# = buttonSizeY# * 0.5
AddVirtualButton(button1, 1.0 + buttonCentreX#, 99.0 - buttonCentreY#, buttonSizeX#)
AddVirtualButton(button2, 2.0 + buttonSizeX# + buttonCentreX#, 99.0 - buttonCentreY#, buttonSizeX#)
SetVirtualButtonText(button1,"1")
SetVirtualButtonText(button2,"2")
SetVirtualButtonAlpha(button1, 110.0)
SetVirtualButtonAlpha(button2, 110.0)

// ###########################################################

// ######################################## Set up game preferences

xSpeed# = xPixel# * 4.0
ySpeed# = (screenHeight#/screenWidth#) * aspect#

Dim lvl_map[10,10]

// ###########################################################

// ######################################## Load media

#constant numberLvlBlocks = 57
gosub loadLevelImages

backImage = LoadImage("0.png")
backSprite = CreateSprite(backImage)

SetSpriteSize(backSprite, 100.0, 100.0)
SetSpritePosition(backSprite, 0.0, 0.0)

blockSizeX# = xPixel# * (onePercentX# * 10)
blockSizeY# = yPixel# * (onePercentY# * 10)

xPos# = 0.0
yPos# = 0.0

blockImage1 = LoadImage("1.png")
blockImage2 = LoadImage("2.png")
blockImage3 = LoadImage("3.png")
blockImage4 = LoadImage("4.png")
gosub level_1

//SetSpriteSize(blockSprite, blockSizeX#, blockSizeY#)
//SetSpritePosition(blockSprite, xPos#, yPos#)

// ###########################################################

SetPrintColor(0,0,0)

do
	
	
	//xPos# = xPos# + xSpeed#
	//yPos# = xPos# * ySpeed#
	
	//SetSpritePosition(blockSprite, xPos#, yPos#)
	
	//gosub printSettings
    Sync()
loop

printSettings:
    Print ("Screen Width = " + Str(screenWidth#))
    Print ("Screen Height = " + Str(screenHeight#))
    
    Print ("Display Width = " + Str(displayWidth#))
    Print ("Display Height = " + Str(displayHeight#))
    
    Print ("Aspect = " + Str(aspect#))
    
    Print ("Number of X pixels in 1% = " + Str(onePercentX#))
    Print ("Number of Y pixels in 1% = " + Str(onePercentY#))
    
    Print ("Size in % 1 X pixel = " + Str(xPixel#))
    Print ("Size in % 1 Y pixel = " + Str(yPixel#))
    
    Print ("JoyStick X: "+ Str(GetVirtualJoystickX(joyStick)))
    Print ("JoyStick Y: "+ Str(GetVirtualJoystickY(joyStick)))
    
    Print ("Button 1: "+ Str(GetVirtualButtonState(button1)))
    Print ("Button 2: "+ Str(GetVirtualButtonState(button2)))
    
    Print ("X Speed = " + Str(xSpeed#))
    Print ("Y Speed = " + Str(ySpeed#))
    
    
	Print ("FPS = " + Str(ScreenFPS()))
return

// ######################################## Level data and build

// 0 = Blank square
// 1 = Platform Block 1

level_1:
	lvl$=       "0000000000"
	lvl$=lvl$ + "F000000000"
	lvl$=lvl$ + "3300u00000"
	lvl$=lvl$ + "6003300000"
	lvl$=lvl$ + "00000000Q0"
	lvl$=lvl$ + "0000000330"
	lvl$=lvl$ + "00R0700000"
	lvl$=lvl$ + "0033330003"
	lvl$=lvl$ + "0006600036"
	lvl$=lvl$ + "3333333366"
	
	gosub build_lvl
return

build_lvl:
	textPos = 0
	for y = 1 to 10
		for x = 1 to 10
			
			textPos = textPos + 1
			blockNUM$ = Mid(lvl$,textPos,1)
			
			if blockNUM$ <> "0"
				
				for i = 1 to numberLvlBlocks
					if blockNUM$ = lvlBlock[i].sLevelSection
						blockSprite=CreateSprite(lvlBlock[i].iImage)
					endif
				next i
				
				
				SetSpriteSize(blockSprite, blockSizeX#, blockSizeY#)
				lvl_map[x,y]=blockSprite
				
				SetSpritePosition( lvl_map[x,y], (x-1) * blockSizeX#, (y-1) * blockSizeY# )
			else
				lvl_map[x,y]=0
			endif
			
		next x
	next y
return

// ###########################################################

// ######################################## Levels

loadLevelImages:
	Type level_block_Type
		iImage as integer
		sLevelSection as string
	Endtype
	lvlBlock as level_block_Type[numberLvlBlocks]

level_texture_image = LoadImage("level_blocks.png")

lvlBlock[1].iImage = LoadSubImage(level_texture_image, "brick_grey.png")
	lvlBlock[2].iImage = LoadSubImage(level_texture_image, "brick_red.png")
	lvlBlock[3].iImage = LoadSubImage(level_texture_image, "dirt_grass.png")
	lvlBlock[4].iImage = LoadSubImage(level_texture_image, "dirt_sand.png")
	lvlBlock[5].iImage = LoadSubImage(level_texture_image, "dirt_snow.png")
	lvlBlock[6].iImage = LoadSubImage(level_texture_image, "dirt.png")
	lvlBlock[7].iImage = LoadSubImage(level_texture_image, "fence_stone.png")
	lvlBlock[8].iImage = LoadSubImage(level_texture_image, "fence_wood.png")
	lvlBlock[9].iImage = LoadSubImage(level_texture_image, "grass_brown.png")
	lvlBlock[10].iImage = LoadSubImage(level_texture_image, "grass_tan.png")
	lvlBlock[11].iImage = LoadSubImage(level_texture_image, "grass_top.png")
	lvlBlock[12].iImage = LoadSubImage(level_texture_image, "grass1.png")
	lvlBlock[13].iImage = LoadSubImage(level_texture_image, "grass2.png")
	lvlBlock[14].iImage = LoadSubImage(level_texture_image, "grass3.png")
	lvlBlock[15].iImage = LoadSubImage(level_texture_image, "grass4.png")
	lvlBlock[16].iImage = LoadSubImage(level_texture_image, "gravel_dirt.png")
	lvlBlock[17].iImage = LoadSubImage(level_texture_image, "gravel_stone.png")
	lvlBlock[18].iImage = LoadSubImage(level_texture_image, "greysand.png")
	lvlBlock[19].iImage = LoadSubImage(level_texture_image, "greystone_ruby_alt.png")
	lvlBlock[20].iImage = LoadSubImage(level_texture_image, "greystone_ruby.png")
	lvlBlock[21].iImage = LoadSubImage(level_texture_image, "greystone_sand.png")
	lvlBlock[22].iImage = LoadSubImage(level_texture_image, "greystone.png")
	lvlBlock[23].iImage = LoadSubImage(level_texture_image, "ice.png")
	lvlBlock[24].iImage = LoadSubImage(level_texture_image, "lava.png")
	lvlBlock[25].iImage = LoadSubImage(level_texture_image, "mushroom_brown.png")
	lvlBlock[26].iImage = LoadSubImage(level_texture_image, "mushroom_red.png")
	lvlBlock[27].iImage = LoadSubImage(level_texture_image, "mushroom_tan.png")
	lvlBlock[28].iImage = LoadSubImage(level_texture_image, "redsand.png")
	lvlBlock[29].iImage = LoadSubImage(level_texture_image, "redstone_emerald_alt.png")
	lvlBlock[30].iImage = LoadSubImage(level_texture_image, "redstone_emerald.png")
	lvlBlock[31].iImage = LoadSubImage(level_texture_image, "redstone_sand.png")
	lvlBlock[32].iImage = LoadSubImage(level_texture_image, "redstone.png")
	lvlBlock[33].iImage = LoadSubImage(level_texture_image, "rock_moss.png")
	lvlBlock[34].iImage = LoadSubImage(level_texture_image, "rock.png")
	lvlBlock[35].iImage = LoadSubImage(level_texture_image, "sand.png")
	lvlBlock[36].iImage = LoadSubImage(level_texture_image, "snow.png")
	lvlBlock[37].iImage = LoadSubImage(level_texture_image, "stone_browniron_alt.png")
	lvlBlock[38].iImage = LoadSubImage(level_texture_image, "stone_browniron.png")
	lvlBlock[39].iImage = LoadSubImage(level_texture_image, "stone_coal_alt.png")
	lvlBlock[40].iImage = LoadSubImage(level_texture_image, "stone_coal.png")
	lvlBlock[41].iImage = LoadSubImage(level_texture_image, "stone_diamond_alt.png")
	lvlBlock[42].iImage = LoadSubImage(level_texture_image, "stone_diamond.png")
	lvlBlock[43].iImage = LoadSubImage(level_texture_image, "stone_dirt.png")
	lvlBlock[44].iImage = LoadSubImage(level_texture_image, "stone_gold_alt.png")
	lvlBlock[45].iImage = LoadSubImage(level_texture_image, "stone_gold.png")
	lvlBlock[46].iImage = LoadSubImage(level_texture_image, "stone_grass.png")
	lvlBlock[47].iImage = LoadSubImage(level_texture_image, "stone_iron_alt.png")
	lvlBlock[48].iImage = LoadSubImage(level_texture_image, "stone_iron.png")
	lvlBlock[49].iImage = LoadSubImage(level_texture_image, "stone_sand.png")
	lvlBlock[50].iImage = LoadSubImage(level_texture_image, "stone_silver_alt.png")
	lvlBlock[51].iImage = LoadSubImage(level_texture_image, "stone_silver.png")
	lvlBlock[52].iImage = LoadSubImage(level_texture_image, "stone_snow.png")
	lvlBlock[53].iImage = LoadSubImage(level_texture_image, "stone.png")
	lvlBlock[54].iImage = LoadSubImage(level_texture_image, "water.png")
	lvlBlock[55].iImage = LoadSubImage(level_texture_image, "wheat_stage1.png")
	lvlBlock[56].iImage = LoadSubImage(level_texture_image, "wheat_stage2.png")
	lvlBlock[57].iImage = LoadSubImage(level_texture_image, "wheat_stage3.png")
	
	lvlBlock[1].sLevelSection = "1"
	lvlBlock[2].sLevelSection = "2"
	lvlBlock[3].sLevelSection = "3"
	lvlBlock[4].sLevelSection = "4"
	lvlBlock[5].sLevelSection = "5"
	lvlBlock[6].sLevelSection = "6"
	lvlBlock[7].sLevelSection = "7"
	lvlBlock[8].sLevelSection = "8"
	lvlBlock[9].sLevelSection = "9"
	lvlBlock[10].sLevelSection = "A"
	lvlBlock[11].sLevelSection = "B"
	lvlBlock[12].sLevelSection = "C"
	lvlBlock[13].sLevelSection = "D"
	lvlBlock[14].sLevelSection = "E"
	lvlBlock[15].sLevelSection = "F"
	lvlBlock[16].sLevelSection = "G"
	lvlBlock[17].sLevelSection = "H"
	lvlBlock[18].sLevelSection = "I"
	lvlBlock[19].sLevelSection = "J"
	lvlBlock[20].sLevelSection = "K"
	lvlBlock[21].sLevelSection = "L"
	lvlBlock[22].sLevelSection = "M"
	lvlBlock[23].sLevelSection = "N"
	lvlBlock[24].sLevelSection = "O"
	lvlBlock[25].sLevelSection = "P"
	lvlBlock[26].sLevelSection = "Q"
	lvlBlock[27].sLevelSection = "R"
	lvlBlock[28].sLevelSection = "S"
	lvlBlock[29].sLevelSection = "T"
	lvlBlock[30].sLevelSection = "U"
	lvlBlock[31].sLevelSection = "V"
	lvlBlock[32].sLevelSection = "W"
	lvlBlock[33].sLevelSection = "X"
	lvlBlock[34].sLevelSection = "Y"
	lvlBlock[35].sLevelSection = "Z"
	lvlBlock[36].sLevelSection = "a"
	lvlBlock[37].sLevelSection = "b"
	lvlBlock[38].sLevelSection = "c"
	lvlBlock[39].sLevelSection = "d"
	lvlBlock[40].sLevelSection = "e"
	lvlBlock[41].sLevelSection = "f"
	lvlBlock[42].sLevelSection = "g"
	lvlBlock[43].sLevelSection = "h"
	lvlBlock[44].sLevelSection = "i"
	lvlBlock[45].sLevelSection = "j"
	lvlBlock[46].sLevelSection = "k"
	lvlBlock[47].sLevelSection = "l"
	lvlBlock[48].sLevelSection = "m"
	lvlBlock[49].sLevelSection = "n"
	lvlBlock[50].sLevelSection = "o"
	lvlBlock[51].sLevelSection = "p"
	lvlBlock[52].sLevelSection = "q"
	lvlBlock[53].sLevelSection = "r"
	lvlBlock[54].sLevelSection = "s"
	lvlBlock[55].sLevelSection = "t"
	lvlBlock[56].sLevelSection = "u"
	lvlBlock[57].sLevelSection = "v"
return

// ###########################################################

// Project: Voxel Platform 
// Created: Spectre


// ######################################## Set up the screen

SetSyncRate(30,0)
SetOrientationAllowed(0,0,1,1)

screenWidth# = GetMaxDeviceWidth()
screenHeight# = GetMaxDeviceHeight()

aspect# = screenWidth#/screenHeight#

SetDisplayAspect(-1)

displayLeft# = GetScreenBoundsLeft()
displayRight# = GetScreenBoundsRight()
displayTop# = GetScreenBoundsTop()
displayBottom# = GetScreenBoundsBottom()

displayWidth# = displayRight# - displayLeft#
displayHeight# = displayBottom# - displayTop#

displayCentreX# = displayWidth# * 0.5
displayCentreY# = displayHeight# * 0.5

SetScissor( displayLeft#, displayTop#, displayRight#, displayBottom# )

// ###########################################################


// ######################################## Set up pixel percentages

onePercentX# = screenWidth#/100.0
onePercentY# = screenHeight#/100.0

xPixel# = 100.0/screenWidth#
yPixel# = 100.0/screenHeight#

// ###########################################################


// ######################################## Set up joystick and buttons

joyStick = 1
joyStickSizeX# = xPixel# * 250.0
joyStickSizeY# = joyStickSizeX# * aspect#
joyStickCentreX# = joyStickSizeX# * 0.5
joyStickCentreY# = joyStickSizeY# * 0.5
AddVirtualJoystick(joyStick, 99.0 - joyStickCentreX# , 99.0 - joyStickCentreY# , joyStickSizeX#)
SetVirtualJoystickAlpha(joyStick, 60.0, 110.0)

button1 = 1
button2 = 2
buttonSizeX# = xPixel# * 150.0
buttonSizeY# = buttonSizeX# * aspect#
buttonCentreX# = buttonSizeX# * 0.5
buttonCentreY# = buttonSizeY# * 0.5
AddVirtualButton(button1, 1.0 + buttonCentreX#, 99.0 - buttonCentreY#, buttonSizeX#)
AddVirtualButton(button2, 2.0 + buttonSizeX# + buttonCentreX#, 99.0 - buttonCentreY#, buttonSizeX#)
SetVirtualButtonText(button1,"1")
SetVirtualButtonText(button2,"2")
SetVirtualButtonAlpha(button1, 110.0)
SetVirtualButtonAlpha(button2, 110.0)


// ###########################################################


// ######################################## Set up game preferences

xSpeed# = xPixel# * 4.0
ySpeed# = (screenHeight#/screenWidth#) * aspect#

Dim lvl_map[10,10]

// ###########################################################


// ######################################## Load media

#constant numberLvlBlocks = 57
gosub loadLevelImages


backImage = LoadImage("0.png")
backSprite = CreateSprite(backImage)

SetSpriteSize(backSprite, 100.0, 100.0)
SetSpritePosition(backSprite, 0.0, 0.0)

blockSizeX# = xPixel# * (onePercentX# * 10)
blockSizeY# = yPixel# * (onePercentY# * 10)

xPos# = 0.0
yPos# = 0.0

blockImage1 = LoadImage("1.png")
blockImage2 = LoadImage("2.png")
blockImage3 = LoadImage("3.png")
blockImage4 = LoadImage("4.png")
gosub level_1

//SetSpriteSize(blockSprite, blockSizeX#, blockSizeY#)
//SetSpritePosition(blockSprite, xPos#, yPos#)


// ###########################################################

SetPrintColor(0,0,0)

do
	
	
	//xPos# = xPos# + xSpeed#
	//yPos# = xPos# * ySpeed#
	
	//SetSpritePosition(blockSprite, xPos#, yPos#)
	
	//gosub printSettings
    Sync()
loop

printSettings:
    Print ("Screen Width = " + Str(screenWidth#))
    Print ("Screen Height = " + Str(screenHeight#))
    
    Print ("Display Width = " + Str(displayWidth#))
    Print ("Display Height = " + Str(displayHeight#))
    
    Print ("Aspect = " + Str(aspect#))
    
    Print ("Number of X pixels in 1% = " + Str(onePercentX#))
    Print ("Number of Y pixels in 1% = " + Str(onePercentY#))
    
    Print ("Size in % 1 X pixel = " + Str(xPixel#))
    Print ("Size in % 1 Y pixel = " + Str(yPixel#))
    
    Print ("JoyStick X: "+ Str(GetVirtualJoystickX(joyStick)))
    Print ("JoyStick Y: "+ Str(GetVirtualJoystickY(joyStick)))
    
    Print ("Button 1: "+ Str(GetVirtualButtonState(button1)))
    Print ("Button 2: "+ Str(GetVirtualButtonState(button2)))
    
    Print ("X Speed = " + Str(xSpeed#))
    Print ("Y Speed = " + Str(ySpeed#))
    
    
	Print ("FPS = " + Str(ScreenFPS()))
return

// ######################################## Level data and build 

// 0 = Blank square
// 1 = Platform Block 1

level_1:
	lvl$=       "0000000000"
	lvl$=lvl$ + "F000000000"
	lvl$=lvl$ + "3300u00000"
	lvl$=lvl$ + "6003300000"
	lvl$=lvl$ + "00000000Q0"
	lvl$=lvl$ + "0000000330"
	lvl$=lvl$ + "00R0700000"
	lvl$=lvl$ + "0033330003"
	lvl$=lvl$ + "0006600036"
	lvl$=lvl$ + "3333333366"
	
	gosub build_lvl
return

build_lvl:
	textPos = 0
	for y = 1 to 10
		for x = 1 to 10
			
			textPos = textPos + 1
			blockNUM$ = Mid(lvl$,textPos,1)
			
			if blockNUM$ <> "0"
				
				for i = 1 to numberLvlBlocks
					if blockNUM$ = lvlBlock[i].sLevelSection
						blockSprite=CreateSprite(lvlBlock[i].iImage)
					endif
				next i
				
				
				SetSpriteSize(blockSprite, blockSizeX#, blockSizeY#)
				lvl_map[x,y]=blockSprite
				
				SetSpritePosition( lvl_map[x,y], (x-1) * blockSizeX#, (y-1) * blockSizeY# )
			else
				lvl_map[x,y]=0
			endif
			
		next x
	next y
return

// ###########################################################


// ######################################## Levels

loadLevelImages:
	Type level_block_Type
		iImage as integer
		sLevelSection as string
	Endtype
	lvlBlock as level_block_Type[numberLvlBlocks]

	level_texture_image = LoadImage("level_blocks.png")

	lvlBlock[1].iImage = LoadSubImage(level_texture_image, "brick_grey.png")
	lvlBlock[2].iImage = LoadSubImage(level_texture_image, "brick_red.png")
	lvlBlock[3].iImage = LoadSubImage(level_texture_image, "dirt_grass.png")
	lvlBlock[4].iImage = LoadSubImage(level_texture_image, "dirt_sand.png")
	lvlBlock[5].iImage = LoadSubImage(level_texture_image, "dirt_snow.png")
	lvlBlock[6].iImage = LoadSubImage(level_texture_image, "dirt.png")
	lvlBlock[7].iImage = LoadSubImage(level_texture_image, "fence_stone.png")
	lvlBlock[8].iImage = LoadSubImage(level_texture_image, "fence_wood.png")
	lvlBlock[9].iImage = LoadSubImage(level_texture_image, "grass_brown.png")
	lvlBlock[10].iImage = LoadSubImage(level_texture_image, "grass_tan.png")
	lvlBlock[11].iImage = LoadSubImage(level_texture_image, "grass_top.png")
	lvlBlock[12].iImage = LoadSubImage(level_texture_image, "grass1.png")
	lvlBlock[13].iImage = LoadSubImage(level_texture_image, "grass2.png")
	lvlBlock[14].iImage = LoadSubImage(level_texture_image, "grass3.png")
	lvlBlock[15].iImage = LoadSubImage(level_texture_image, "grass4.png")
	lvlBlock[16].iImage = LoadSubImage(level_texture_image, "gravel_dirt.png")
	lvlBlock[17].iImage = LoadSubImage(level_texture_image, "gravel_stone.png")
	lvlBlock[18].iImage = LoadSubImage(level_texture_image, "greysand.png")
	lvlBlock[19].iImage = LoadSubImage(level_texture_image, "greystone_ruby_alt.png")
	lvlBlock[20].iImage = LoadSubImage(level_texture_image, "greystone_ruby.png")
	lvlBlock[21].iImage = LoadSubImage(level_texture_image, "greystone_sand.png")
	lvlBlock[22].iImage = LoadSubImage(level_texture_image, "greystone.png")
	lvlBlock[23].iImage = LoadSubImage(level_texture_image, "ice.png")
	lvlBlock[24].iImage = LoadSubImage(level_texture_image, "lava.png")
	lvlBlock[25].iImage = LoadSubImage(level_texture_image, "mushroom_brown.png")
	lvlBlock[26].iImage = LoadSubImage(level_texture_image, "mushroom_red.png")
	lvlBlock[27].iImage = LoadSubImage(level_texture_image, "mushroom_tan.png")
	lvlBlock[28].iImage = LoadSubImage(level_texture_image, "redsand.png")
	lvlBlock[29].iImage = LoadSubImage(level_texture_image, "redstone_emerald_alt.png")
	lvlBlock[30].iImage = LoadSubImage(level_texture_image, "redstone_emerald.png")
	lvlBlock[31].iImage = LoadSubImage(level_texture_image, "redstone_sand.png")
	lvlBlock[32].iImage = LoadSubImage(level_texture_image, "redstone.png")
	lvlBlock[33].iImage = LoadSubImage(level_texture_image, "rock_moss.png")
	lvlBlock[34].iImage = LoadSubImage(level_texture_image, "rock.png")
	lvlBlock[35].iImage = LoadSubImage(level_texture_image, "sand.png")
	lvlBlock[36].iImage = LoadSubImage(level_texture_image, "snow.png")
	lvlBlock[37].iImage = LoadSubImage(level_texture_image, "stone_browniron_alt.png")
	lvlBlock[38].iImage = LoadSubImage(level_texture_image, "stone_browniron.png")
	lvlBlock[39].iImage = LoadSubImage(level_texture_image, "stone_coal_alt.png")
	lvlBlock[40].iImage = LoadSubImage(level_texture_image, "stone_coal.png")
	lvlBlock[41].iImage = LoadSubImage(level_texture_image, "stone_diamond_alt.png")
	lvlBlock[42].iImage = LoadSubImage(level_texture_image, "stone_diamond.png")
	lvlBlock[43].iImage = LoadSubImage(level_texture_image, "stone_dirt.png")
	lvlBlock[44].iImage = LoadSubImage(level_texture_image, "stone_gold_alt.png")
	lvlBlock[45].iImage = LoadSubImage(level_texture_image, "stone_gold.png")
	lvlBlock[46].iImage = LoadSubImage(level_texture_image, "stone_grass.png")
	lvlBlock[47].iImage = LoadSubImage(level_texture_image, "stone_iron_alt.png")
	lvlBlock[48].iImage = LoadSubImage(level_texture_image, "stone_iron.png")
	lvlBlock[49].iImage = LoadSubImage(level_texture_image, "stone_sand.png")
	lvlBlock[50].iImage = LoadSubImage(level_texture_image, "stone_silver_alt.png")
	lvlBlock[51].iImage = LoadSubImage(level_texture_image, "stone_silver.png")
	lvlBlock[52].iImage = LoadSubImage(level_texture_image, "stone_snow.png")
	lvlBlock[53].iImage = LoadSubImage(level_texture_image, "stone.png")
	lvlBlock[54].iImage = LoadSubImage(level_texture_image, "water.png")
	lvlBlock[55].iImage = LoadSubImage(level_texture_image, "wheat_stage1.png")
	lvlBlock[56].iImage = LoadSubImage(level_texture_image, "wheat_stage2.png")
	lvlBlock[57].iImage = LoadSubImage(level_texture_image, "wheat_stage3.png")
	
	lvlBlock[1].sLevelSection = "1"
	lvlBlock[2].sLevelSection = "2"
	lvlBlock[3].sLevelSection = "3"
	lvlBlock[4].sLevelSection = "4"
	lvlBlock[5].sLevelSection = "5"
	lvlBlock[6].sLevelSection = "6"
	lvlBlock[7].sLevelSection = "7"
	lvlBlock[8].sLevelSection = "8"
	lvlBlock[9].sLevelSection = "9"
	lvlBlock[10].sLevelSection = "A"
	lvlBlock[11].sLevelSection = "B"
	lvlBlock[12].sLevelSection = "C"
	lvlBlock[13].sLevelSection = "D"
	lvlBlock[14].sLevelSection = "E"
	lvlBlock[15].sLevelSection = "F"
	lvlBlock[16].sLevelSection = "G"
	lvlBlock[17].sLevelSection = "H"
	lvlBlock[18].sLevelSection = "I"
	lvlBlock[19].sLevelSection = "J"
	lvlBlock[20].sLevelSection = "K"
	lvlBlock[21].sLevelSection = "L"
	lvlBlock[22].sLevelSection = "M"
	lvlBlock[23].sLevelSection = "N"
	lvlBlock[24].sLevelSection = "O"
	lvlBlock[25].sLevelSection = "P"
	lvlBlock[26].sLevelSection = "Q"
	lvlBlock[27].sLevelSection = "R"
	lvlBlock[28].sLevelSection = "S"
	lvlBlock[29].sLevelSection = "T"
	lvlBlock[30].sLevelSection = "U"
	lvlBlock[31].sLevelSection = "V"
	lvlBlock[32].sLevelSection = "W"
	lvlBlock[33].sLevelSection = "X"
	lvlBlock[34].sLevelSection = "Y"
	lvlBlock[35].sLevelSection = "Z"
	lvlBlock[36].sLevelSection = "a"
	lvlBlock[37].sLevelSection = "b"
	lvlBlock[38].sLevelSection = "c"
	lvlBlock[39].sLevelSection = "d"
	lvlBlock[40].sLevelSection = "e"
	lvlBlock[41].sLevelSection = "f"
	lvlBlock[42].sLevelSection = "g"
	lvlBlock[43].sLevelSection = "h"
	lvlBlock[44].sLevelSection = "i"
	lvlBlock[45].sLevelSection = "j"
	lvlBlock[46].sLevelSection = "k"
	lvlBlock[47].sLevelSection = "l"
	lvlBlock[48].sLevelSection = "m"
	lvlBlock[49].sLevelSection = "n"
	lvlBlock[50].sLevelSection = "o"
	lvlBlock[51].sLevelSection = "p"
	lvlBlock[52].sLevelSection = "q"
	lvlBlock[53].sLevelSection = "r"
	lvlBlock[54].sLevelSection = "s"
	lvlBlock[55].sLevelSection = "t"
	lvlBlock[56].sLevelSection = "u"
	lvlBlock[57].sLevelSection = "v"
return

// ###########################################################

I have now expanded it a bit and am making a level editor and game all in one.
I use a simple tag at the start of the program to either start the map editor or game:

// Use gameMode$ "editor" for level editor or "game" to play the game

gameMode$ = "game"


if gameMode$ = "editor"

So far the levels are static and only one screen in size but I plan to expand this to scroll the levels and be large in size.

In editor mode you can start making a level on a blank screen or you can load a previous created level and edit that if you want. Once done I just press the "S" key to save the level.

The loading and saving of the levels is very simple as they are saved as a .txt file, which I might rename to .dat later, not sure yet.

This is how they were stored originally in the code itself using 10 x 10 blocks:

level_1:
	lvl$=       "0000000000"
	lvl$=lvl$ + "F000000000"
	lvl$=lvl$ + "3300u00000"
	lvl$=lvl$ + "6003300000"
	lvl$=lvl$ + "00000000Q0"
	lvl$=lvl$ + "0000000330"
	lvl$=lvl$ + "00R0700000"
	lvl$=lvl$ + "0033330003"
	lvl$=lvl$ + "0006600036"
	lvl$=lvl$ + "3333333366"
	
	gosub build_lvl
return

but now in the .txt file they are stored like this:

0 0 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 0 3 3 0 0 u 0 0 0 0 0 G 0 0 3 3 0 0 0 0 0 0 0 0 0 0 0 0 0 F 0 0 0 0 0 0 0 0 3 3 0 0 0 R 0 Y 0 0 0 0 D 0 0 h h h h 0 0 0 h 0 0 0 f g 0 0 0 h i h h h h h h h h i j

and now I read the levels in all at once at the start and store them like this:

// ######################################## Load all Levels

readLevels:
	for i = 0 to totalLevels
		OpenToRead(1, "lvl_" + Str(i) + ".txt")
		
		for n = 1 to lvlX * lvlY
			if n = 1
				l$ = ReadString(1)
			else
				l$ = l$ + ReadString(1)
			endif
		next n
		lvl$[i] = l$
		
		CloseFile ( 1 )
	next i
return

I might have to change this when the levels get much bigger but for now it works well and fast as the levels are built like this:

// ######################################## Build Levels

build_lvl:
	textPos = 0
	for y = 1 to lvlY
		for x = 1 to lvlX
			
			textPos = textPos + 1
			blockNUM$ = Mid(lvl$[lvlNUM],textPos,1)
			
			if blockNUM$ <> "0"
				
				for i = 1 to numberLvlBlocks
					if blockNUM$ = lvlBlock[i].sLevelSection
						blockSprite=CreateSprite(lvlBlock[i].iImage)
					endif
				next i
				
				
				SetSpriteSize(blockSprite, blockSizeX#, blockSizeY#)
				lvl_map[x,y]=blockSprite
				
				SetSpritePosition( lvl_map[x,y], (x-1) * blockSizeX#, (y-1) * blockSizeY# )
			else
				lvl_map[x,y]=0
			endif
			
		next x
	next y
return

Game mode so far simply has the level loaded with a virtual joystick and 2 buttons for fire and jump as I haven't even got a player on there to move yet

So that's where I am at after coding for a couple of days.

What do you think? Any ideas, feedback, comments etc are welcome

Here are a couple of quick video clips showing you where I am up to so far, nothing special.....yet haha

Game Mode:

Level Editor Mode:

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 11th Sep 2015 22:56

Sweet Paul! So much in so little time...I wish I could see the videos on my computer but a 6inch rain last night and today has had my internet crushed all day long. No telling when it will be back.

From what I can see...it looks like you are off to a fantastic start!

The way you have laid out the editor and game in one is very interesting 😎

Can't wait too see more!

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

Jack

19

Years of Service

User Offline

Joined: 4th Oct 2004

Location: [Germany]

Posted: 11th Sep 2015 23:05

Very nice work

I always like if there are leveleditors in games. Will this editor be in the final game?

[/url]

Back to top

Profile PM Email Website

Conjured Entertainment

AGK Developer

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location: Nirvana

Posted: 11th Sep 2015 23:22

Looking good man.
Mine was more of an experiment than a project, but I guess I will go ahead and start making one because they are a lot of fun!

Coding things my way since 1981 -- Currently using AppGameKit V2 Tier 1

Back to top

Profile PM Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 12th Sep 2015 04:09

Crazy Programmer and Conjured Entertainment

- Thanks for the inspiration for me to have a go at a game.

Quote: "Very nice work

I always like if there are leveleditors in games. Will this editor be in the final game? "

Thanks Jack, not sure if I will be leaving it open in the finished version,, although when you think about it, this is the type of thing that Mario Maker does but a million times better lol

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 12th Sep 2015 04:17

Quote: "not sure if I will be leaving it open in the finished version"

It would be a neat idea...Have your game levels, then have a special feature you buy (In app purchases) to create your own and play.

Im really looking forward to see which direction you go with the whole project

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

DavidAGK

AGK Developer

10

Years of Service

User Offline

Joined: 1st Jan 2014

Location:

Posted: 12th Sep 2015 20:55

"a couple of days" - that is awesome progress Paul!!! Great job. I love reading and seeing people's games in progess. Wish more would jump on and show what they're up to!

Using Tier 1 AppGameKit V2
Started coding with AMOS (Thanks Francois Lionet)

Back to top

Profile PM Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 12th Sep 2015 21:46 Edited at: 12th Sep 2015 21:52

Quote: "then have a special feature you buy (In app purchases) to create your own and play. "

Now you got me thinking

Cheers Will.

Quote: "that is awesome progress Paul!!! Great job"

Cheers David, really enjoying this project as I haven't done a platform game before, mainly done Amiga Demo's and Educational Software lol.

Quote: "I love reading and seeing people's games in progess. Wish more would jump on and show what they're up to!
"

Me too and to be honest, the showcase section is my favourite place to go on the forums.

I just need to slow my mind down a bit because it goes into overdrive when I start something off and I tend to go off at massive tangents

Ideas so far I was thinking of making more than one game as I go along with this project and as I learn more stuff along the way so I don't get bored.

Ideas:

All games based on old retro games using Retro Gamer magazines as inspiration.

First make a multi level game using single screens with no scrolling.

Increase number of blocks on a screen at a time and make another game using push scrolling onto new screens.

Change format to proper scrolling platform game style and again change gfx and make new game.

Make level editor available in game as mentioned above.

So I will be using and updating one set of code in doing this as it will be a gradual progress and also making multiple games

Well that's now the plan but we'll see if it works

The Amiga and Amos were great!

Back to top

Profile PM Email Website

SoftMotion3D

AGK Developer

18

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 12th Sep 2015 22:06

cool editor! Nice work paul!

www.sheldonscreations.com

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 12th Sep 2015 22:41

Quote: "cool editor! Nice work paul!"

Cheers SoftMotion3D, quite basic yet but will get there

The Amiga and Amos were great!

Back to top

Profile PM Email Website

michael l

8

Years of Service

User Offline

Joined: 27th Jun 2015

Location: Germany

Posted: 13th Sep 2015 22:13

looks already promising

Back to top

Profile PM

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 00:34 Edited at: 18th Sep 2015 00:35

Quote: "looks already promising"

Cheers michael

Okay, so I have not had chance to do much coding with working late shifts the past week however I have done a little bit by changing the block size on screen.
I have gone from 10 x 10 to 25 x 20 which fits the format better on the screens I have tried it on.

I have also had an idea for the first game and sort of style but have to think about it a bit more as I don't want to do a total rip of the game in mind but my own version.

So the game I am up to now basing this first version on is the retro game: (Chuckie Egg!)

So now with this in mind I had a mess with my editor and this is the first test level to get a character working and sorting the game play.

The next thing now then will be to get everything working in this level and then I can change the gfx to the style I have not thought yet and then do the rest of the levels and scoring system.

Watch this space

The Amiga and Amos were great!

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 18th Sep 2015 00:52

Quote: "So now with this in mind I had a mess with my editor and this is the first test level "

Looking sweet...I'm liking the concept

Quote: "get everything working in this level and then I can change the gfx to the style "

I cant wait to play a demo

Keep up the progress, it is looking even more promising.

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 01:20

Quote: "I cant wait to play a demo"

Bit off yet and the character is a blue block at the minute while I test things

Loving retro gaming at the minute so it is having a big influence on my coding etc, always bought Retro Gamer but doing the Amiga Style demo got me quite excited in the retro stuff again

Quote: "Looking sweet...I'm liking the concept "

Cheers Will and your project has given me the inspiration to crack on with it all

The Amiga and Amos were great!

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 04:41

Right

going to bed soon as totally goosed after doing a bit of code and using the physics commands for the first time!

Not got the system how I want it but have the platforms and controls working on the test level now with the square block!
Had the sticky wall problem at first but this is now sorted too

@Funnell7, that block looks familiar

Using a cube for test purposes hehe

Have a look here:

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 18th Sep 2015 05:38

Quote: "@Funnell7, that block looks familiar Using a cube for test purposes hehe "

I started off with the same cube...I don't know if Funell has noticed yet but I am still using his RayCast Down function for jumping

RCDOWN

Quote: "Not got the system how I want it but have the platforms and controls working "

That's the first step to getting started

One step closer to where you want to be

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

Stupinator

8

Years of Service

User Offline

Joined: 14th Sep 2015

Location: Vancouver, WA, USA

Posted: 18th Sep 2015 07:02

jumping looks a bit stiff, are you using physics or manipulating a velocity variable?

-Stupinator

Back to top

Profile PM Email

Funnell7

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 18th Sep 2015 11:56 Edited at: 18th Sep 2015 11:57

Quote: "@Funnell7, that block looks familiar Using a cube for test purposes hehe "

Quote: "I started off with the same cube...I don't know if Funell has noticed yet but I am still using his RayCast Down function for jumping
RCDOWN "

Lol and lol... Its all good, sharing is caring

Paul, have you managed to get the ladders to work yet? That's abit of a sore subject on these forums lol...

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 14:24

Quote: "One step closer to where you want to be "

Quote: "jumping looks a bit stiff, are you using physics or manipulating a velocity variable?
"

Using the built in physics impulse but not got it know where near where I want it and only got it up and running last night. Going to have a mess with it and also the velocity commands but might even do my own platform system yet if I don't like it because at the moment I am not sure if it will suite the style of game.

Quote: "Paul, have you managed to get the ladders to work yet? That's abit of a sore subject on these forums lol...
"

Oh dear lol, I have picked another project which will be a nightmare like Paint Pot was?

I haven't even started on the ladders yet and that might be another reason to do my own platform system instead of using the physics commands so will see

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 18th Sep 2015 15:19

Quote: "I haven't even started on the ladders yet and that might be another reason to do my own platform system instead of using the physics commands so will see "

Challenge accepted, I will solve the ladder issues today

*Crosses Fingers*

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 15:21

Well I have decided on the name of this first game! It is going to be called:

Platypus Peril

Try saying that 10 times after a few

If a MOD would be so kind to change my thread title that would be great

Could it be changed from:

[WIP] - [Multi Format] - SpecTre's Platform Game (Working Title)

To:

[WIP] - [Multi Format] - Platypus Peril

The Amiga and Amos were great!

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 15:22

Quote: "Challenge accepted, I will solve the ladder issues today *Crosses Fingers*"

Haha who's going to get it first

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 18th Sep 2015 16:12

SetWindowSize(1136, 640, 0)
SetVirtualResolution(1136, 640)
SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1800)

global Ground
global Character
global RCDown

Ground = CreateSprite(0)
SetSpriteSize(Ground, 1136, 50)
SetSpriteColor(Ground, 255, 0, 0, 255)
SetSpritePosition(Ground, 0, 590)
SetSpritePhysicsOn(Ground, 1)
SetSpriteGroup(Ground, 1) // Assign a group number to ground sprites

Ground1 = CreateSprite(0)
SetSpriteSize(Ground1,620,20)
SetSpritePosition(Ground1,0,400)
SetSpritePhysicsOn(Ground1, 1)
SetSpriteGroup(Ground1, 1)

LoadImage (1,"Ladder.png")

Ladder = CreateSprite(1)
SetSpriteSize(Ladder,80,180)
SetSPritePosition(Ladder,600, 412)

Ladder1 = createSprite(0)
SetSpriteSize(Ladder1, 5,30)
SetSpritePosition(ladder1,640,550)

Ladder2 = CreateSprite(0)
SetSPriteSize(Ladder2,5,30)
SetSpritePosition(Ladder2,640,390)

Character = CreateSprite(0)
SetSpriteSize(Character, 50, 50)
SetSpriteColor(Character, 0, 0, 255, 255)
SetSpritePosition(Character, 100, 540)
SetSpritePhysicsOn(Character, 2)
SetSpritePhysicsCanRotate(Character, 0)

do	
	RCDown = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character), GetSpriteYByOffset(Character), GetSpriteXByOffset(Character), GetSpriteYByOffset(Character) + 30)
	
	if GetRawKeyState(39) = 1 // Right
		SetSpritePhysicsVelocity(Character, 300, GetSpritePhysicsVelocityY(Character))
	elseif GetRawKeyState(37) = 1 // Left
		SetSpritePhysicsVelocity(Character, -300, GetSpritePhysicsVelocityY(Character))
	else
		SetSpritePhysicsVelocity(Character, 0, GetSpritePhysicsVelocityY(Character))
	endif
	
	if GetRawKeyPressed(32) = 1 AND RCDown = 1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
	endif
	
	
	X# = GetSpriteX(Character)
	Y# = GetSpriteY(Character)
	
	If GetSpriteCollision (Character,Ladder1) = 1 and GetRawKeyState(38) = 1
		SetPhysicsGravity (0,0)
		LadderStart =1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -30)
		endif
		
		If GetSpriteCollision (Character,Ladder2) = 1 and LadderStart =1
			SetSpritePosition(Character,570,350)
			SetPhysicsGravity(0,1600)
			LadderStart = 0
			endif
			
			Print(GetRawLastKey())

Sync()
loop

SetWindowSize(1136, 640, 0)
SetVirtualResolution(1136, 640)
SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1800)

global Ground
global Character
global RCDown

Ground = CreateSprite(0)
SetSpriteSize(Ground, 1136, 50)
SetSpriteColor(Ground, 255, 0, 0, 255)
SetSpritePosition(Ground, 0, 590)
SetSpritePhysicsOn(Ground, 1)
SetSpriteGroup(Ground, 1) // Assign a group number to ground sprites

Ground1 = CreateSprite(0)
SetSpriteSize(Ground1,620,20)
SetSpritePosition(Ground1,0,400)
SetSpritePhysicsOn(Ground1, 1)
SetSpriteGroup(Ground1, 1)

LoadImage (1,"Ladder.png")

Ladder = CreateSprite(1)
SetSpriteSize(Ladder,80,180)
SetSPritePosition(Ladder,600, 412)

Ladder1 = createSprite(0)
SetSpriteSize(Ladder1, 5,30)
SetSpritePosition(ladder1,640,550)

Ladder2 = CreateSprite(0)
SetSPriteSize(Ladder2,5,30)
SetSpritePosition(Ladder2,640,390)

Character = CreateSprite(0)
SetSpriteSize(Character, 50, 50)
SetSpriteColor(Character, 0, 0, 255, 255)
SetSpritePosition(Character, 100, 540)
SetSpritePhysicsOn(Character, 2)
SetSpritePhysicsCanRotate(Character, 0)





do	
	RCDown = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character), GetSpriteYByOffset(Character), GetSpriteXByOffset(Character), GetSpriteYByOffset(Character) + 30)
	
	if GetRawKeyState(39) = 1 // Right
		SetSpritePhysicsVelocity(Character, 300, GetSpritePhysicsVelocityY(Character))
	elseif GetRawKeyState(37) = 1 // Left
		SetSpritePhysicsVelocity(Character, -300, GetSpritePhysicsVelocityY(Character))
	else
		SetSpritePhysicsVelocity(Character, 0, GetSpritePhysicsVelocityY(Character))
	endif
	
	if GetRawKeyPressed(32) = 1 AND RCDown = 1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
	endif
	
	
	X# = GetSpriteX(Character)
	Y# = GetSpriteY(Character)
	
	If GetSpriteCollision (Character,Ladder1) = 1 and GetRawKeyState(38) = 1
		SetPhysicsGravity (0,0)
		LadderStart =1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -30)
		endif
		
		If GetSpriteCollision (Character,Ladder2) = 1 and LadderStart =1
			SetSpritePosition(Character,570,350)
			SetPhysicsGravity(0,1600)
			LadderStart = 0
			endif
			
			Print(GetRawLastKey())

    Sync()
loop

I win

Its nothing great but it works for only spending 10 mins on it.

LadderImage attached, i would download it because it is the size i want it to be for this test....also its a good ladder to have.

Press the Up Arrow key once your at the ladder, I did not work on climbing down the ladder as its just the reverse of climbing up.

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Attachments

Login to view attachments

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 18:00

Quote: "I win"

Well done

nice example.

Quote: "Press the Up Arrow key once your at the ladder, I did not work on climbing down the ladder as its just the reverse of climbing up."

Does it count as winning if it doesn't go down?

Joking

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Funnell7

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 18th Sep 2015 19:14

Quote: "Oh dear lol, I have picked another project which will be a nightmare like Paint Pot was? "

Lol, was just a little inside joke for those who were around about 6 months or so ago... There was this chap who for the life of him couldn't get ladders to work with physics

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 20:11

Quote: "Lol, was just a little inside joke for those who were around about 6 months or so ago... There was this chap who for the life of him couldn't get ladders to work with physics"

That will be me lol when get it up and running proper, taking me a while to adjust the physics on the %age system at the moment. Can't seem to get the ray casting down to work yet to see if on platform or not.
Working in Virtual resolution but driving me mad to get it to work in the %age!!!

The Amiga and Amos were great!

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 20:17

oops

RayDown = PhysicsRayCastGroup(platformCollision, GetSpriteXByOffset(player), GetSpriteYByOffset(player), GetSpriteXByOffset(player), GetSpriteYByOffset(player) - (blockSizeY#))

// Had the line above instead of this one below haha!

RayDown = PhysicsRayCastGroup(platformCollision, GetSpriteXByOffset(player), GetSpriteYByOffset(player), GetSpriteXByOffset(player), GetSpriteYByOffset(player) + (blockSizeY#))

Used - instead of + lol, sorted!

The Amiga and Amos were great!

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 18th Sep 2015 20:52

Version working with better physics

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 19th Sep 2015 03:49

Quote: "Version working with better physics"

Sweeet! Its looking better

Also another way you could work out the ladder is animate your player climbing a ladder and just hide the real player while the animation of the ladder is playing and position him where needs be when animation is done.
Just another way of getting the job done.

I was planning on having another go at it, but then went golfing and got to go hunting when I got home from golf

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 19th Sep 2015 10:53

Quote: "I was planning on having another go at it, but then went golfing and got to go hunting when I got home from golf "

Cool

I think I am going to have to have a serious think about this ladder thing because the way I want to do it is to actual just walk to the ladder and then go up and down the ladder with the arrow keys but be able to stop on the ladder if you let go of the key or jump off it if you want to and also walk left and right on the ladder too until you fall off. You should also be able to jump on the ladder.
Going down the ladder you should be able to just press down to get on the ladder if you are above it.

Think this may be a bit complicated with the box2D physics so far. Might be a running joke yet as Funnell7 said

I might even have to do the physics in game myself yet.

Does anyone know if the box2D physics system will do this before I start messing with it?

Unfortunately I am working over the weekend!

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 19th Sep 2015 15:06 Edited at: 19th Sep 2015 15:07

Quote: "Does anyone know if the box2D physics system will do this before I start messing with it?"

It sure will

Let me work out an idea I just had, its really fun messing with this ladder

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 19th Sep 2015 16:12

I was thinking of an idea to turn the physics off for the player character only when comes into contact with the ladder and then to move it up and down the ladder, then turn the physics back on when jump or walk off. Want to get coding!

The Amiga and Amos were great!

Back to top

Profile PM Email Website

DavidAGK

AGK Developer

10

Years of Service

User Offline

Joined: 1st Jan 2014

Location:

Posted: 19th Sep 2015 16:23

Personally....I'd code the character controller. It gives you so much more control and that's key to a good platformer. Think Leander from the good ol' days!

Using Tier 1 AppGameKit V2
Started coding with AMOS (Thanks Francois Lionet)

Back to top

Profile PM Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 19th Sep 2015 16:23 Edited at: 19th Sep 2015 16:58

SetWindowSize(1136, 640, 0)
SetVirtualResolution(1136, 640)
SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1800)

global Ground
global Character
global RCDown

//Make a ground to walk on
Ground = CreateSprite(0)
SetSpriteSize(Ground, 1136, 50)
SetSpriteColor(Ground, 255, 0, 0, 255)
SetSpritePosition(Ground, 0, 590)
SetSpritePhysicsOn(Ground, 1)
SetSpriteGroup(Ground, 1) // Assign a group number to ground sprites

//Make a 2nd Ground to walk on
Ground1 = CreateSprite(0)
SetSpriteSize(Ground1,620,20)
SetSpritePosition(Ground1,0,400)
SetSpritePhysicsOn(Ground1, 1)
SetSpriteGroup(Ground1, 1)

//Load Image Ladder
LoadImage (1,"Ladder.png")

//Create Sprite Ladder
For Ladder# = 1 to 3
Ladder = CreateSprite(1)
SetSpriteSize(Ladder,80,180)
SetSPritePosition(Ladder,600, Ladder# * 150)
next Ladder#

//Create Ladder Start Sprite
Ladder1 = createSprite(0)
SetSpriteSize(Ladder1, 5,30)
SetSpritePosition(ladder1,640,550)

//Create Blue Cube as Character
Character = CreateSprite(0)
SetSpriteSize(Character, 50, 50)
SetSpriteColor(Character, 0, 0, 255, 255)
SetSpritePosition(Character, 100, 540)
SetSpritePhysicsOn(Character, 2)
SetSpritePhysicsCanRotate(Character, 0)

do	
	//Ray Cast Dwon to check if Character can jump
	RCDown = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character), GetSpriteYByOffset(Character), GetSpriteXByOffset(Character), GetSpriteYByOffset(Character) + 30)
	
	
	//Move Character Left, Right, And Jump. 
	if GetRawKeyState(39) = 1 // Right
		SetSpritePhysicsVelocity(Character, 300, GetSpritePhysicsVelocityY(Character))
	elseif GetRawKeyState(37) = 1 // Left
		SetSpritePhysicsVelocity(Character, -300, GetSpritePhysicsVelocityY(Character))
	else
		SetSpritePhysicsVelocity(Character, 0, GetSpritePhysicsVelocityY(Character))
	endif
	//Jump
	if GetRawKeyPressed(32) = 1 AND RCDown = 1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
	endif

//Check to see if Character has started ladder climb.
	If GetSpriteCollision (Character,Ladder1) = 1 and GetRawKeyState(38) = 1 and LadderStart = 0
		SetPhysicsGravity (0,0)
		LadderStart =1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -30)
		endif
		
		//Check to see if player wants off ladder moving left or right.
		If LadderStart = 1 and GetRawKeyState(39) or LadderStart = 1 and GetRawKeyState(37) = 1
			
			SetPhysicsGravity(0,1600)
			LadderStart = 0
			endif
			
			//Give the player the ability to jump on the ladder (Which will end the climb) 
			If LadderStart = 1 and GetRawKeyPressed(32)
				     SetPhysicsGravity(0,1600)
					SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
LadderStart = 0
					
					endif
			
			Print(GetRawLastKey())

Sync()
loop

SetWindowSize(1136, 640, 0)
SetVirtualResolution(1136, 640)
SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1800)

global Ground
global Character
global RCDown

//Make a ground to walk on
Ground = CreateSprite(0)
SetSpriteSize(Ground, 1136, 50)
SetSpriteColor(Ground, 255, 0, 0, 255)
SetSpritePosition(Ground, 0, 590)
SetSpritePhysicsOn(Ground, 1)
SetSpriteGroup(Ground, 1) // Assign a group number to ground sprites

//Make a 2nd Ground to walk on
Ground1 = CreateSprite(0)
SetSpriteSize(Ground1,620,20)
SetSpritePosition(Ground1,0,400)
SetSpritePhysicsOn(Ground1, 1)
SetSpriteGroup(Ground1, 1)

//Load Image Ladder
LoadImage (1,"Ladder.png")

//Create Sprite Ladder
For Ladder# = 1 to 3
Ladder = CreateSprite(1)
SetSpriteSize(Ladder,80,180)
SetSPritePosition(Ladder,600, Ladder# * 150)
next Ladder#

//Create Ladder Start Sprite
Ladder1 = createSprite(0)
SetSpriteSize(Ladder1, 5,30)
SetSpritePosition(ladder1,640,550)






//Create Blue Cube as Character
Character = CreateSprite(0)
SetSpriteSize(Character, 50, 50)
SetSpriteColor(Character, 0, 0, 255, 255)
SetSpritePosition(Character, 100, 540)
SetSpritePhysicsOn(Character, 2)
SetSpritePhysicsCanRotate(Character, 0)





do	
	//Ray Cast Dwon to check if Character can jump
	RCDown = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character), GetSpriteYByOffset(Character), GetSpriteXByOffset(Character), GetSpriteYByOffset(Character) + 30)
	
	
	//Move Character Left, Right, And Jump. 
	if GetRawKeyState(39) = 1 // Right
		SetSpritePhysicsVelocity(Character, 300, GetSpritePhysicsVelocityY(Character))
	elseif GetRawKeyState(37) = 1 // Left
		SetSpritePhysicsVelocity(Character, -300, GetSpritePhysicsVelocityY(Character))
	else
		SetSpritePhysicsVelocity(Character, 0, GetSpritePhysicsVelocityY(Character))
	endif
	//Jump
	if GetRawKeyPressed(32) = 1 AND RCDown = 1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
	endif

          //Check to see if Character has started ladder climb.
	If GetSpriteCollision (Character,Ladder1) = 1 and GetRawKeyState(38) = 1 and LadderStart = 0
		SetPhysicsGravity (0,0)
		LadderStart =1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -30)
		endif
		
		//Check to see if player wants off ladder moving left or right.
		If LadderStart = 1 and GetRawKeyState(39) or LadderStart = 1 and GetRawKeyState(37) = 1
			
			SetPhysicsGravity(0,1600)
			LadderStart = 0
			endif
			
			//Give the player the ability to jump on the ladder (Which will end the climb) 
			If LadderStart = 1 and GetRawKeyPressed(32)
				     SetPhysicsGravity(0,1600)
					SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
LadderStart = 0
					
					endif
			
			Print(GetRawLastKey())

    Sync()
loop

The player can now jump on the ladder (Once) after the jump it will end the ladder climb.

The reason I just went ahead and ended it was because to get the jump down right using the built in physics you must turn the gravity back on.

If you wish to jump more than once on a ladder, your going to need a timer function to turn back off the gravity and continue climbing.

Also moving left or right will hop off the ladder.

^ This is just the first thought that came to my head...I'm sure there are many ways of doing it. None being right or wrong

Edit: On 2nd thought I would not use a timer to jump more than once on a ladder.

I would set variables
X# = GetPlayerX(Character)
Y# = GetPlayerY(Character)

When you jump you get

StartJump = GetPlayerY(Character)

If StartJump > Y# + JumpHeight
end jump
continue climb

SetWindowSize(1136, 640, 0)
SetVirtualResolution(1136, 640)
SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1800)

global Ground
global Character
global RCDown

//Make a ground to walk on
Ground = CreateSprite(0)
SetSpriteSize(Ground, 1136, 50)
SetSpriteColor(Ground, 255, 0, 0, 255)
SetSpritePosition(Ground, 0, 590)
SetSpritePhysicsOn(Ground, 1)
SetSpriteGroup(Ground, 1) // Assign a group number to ground sprites

//Make a 2nd Ground to walk on
Ground1 = CreateSprite(0)
SetSpriteSize(Ground1,620,20)
SetSpritePosition(Ground1,0,400)
SetSpritePhysicsOn(Ground1, 1)
SetSpriteGroup(Ground1, 1)

//Load Image Ladder
LoadImage (1,"Ladder.png")

//Create Sprite Ladder
For Ladder# = 1 to 3
Ladder = CreateSprite(1)
SetSpriteSize(Ladder,80,180)
SetSPritePosition(Ladder,600, Ladder# * 150)
next Ladder#

//Create Ladder Start Sprite
Ladder1 = createSprite(0)
SetSpriteSize(Ladder1, 5,30)
SetSpritePosition(ladder1,640,550)

//Create Blue Cube as Character
Character = CreateSprite(0)
SetSpriteSize(Character, 50, 50)
SetSpriteColor(Character, 0, 0, 255, 255)
SetSpritePosition(Character, 100, 540)
SetSpritePhysicsOn(Character, 2)
SetSpritePhysicsCanRotate(Character, 0)

do	
	
	X# = GetSpriteX(Character)
	Y# = GetSpriteY(Character)
	//Ray Cast Dwon to check if Character can jump
	RCDown = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character), GetSpriteYByOffset(Character), GetSpriteXByOffset(Character), GetSpriteYByOffset(Character) + 30)
	
	
	//Move Character Left, Right, And Jump. 
	if GetRawKeyState(39) = 1 // Right
		SetSpritePhysicsVelocity(Character, 300, GetSpritePhysicsVelocityY(Character))
	elseif GetRawKeyState(37) = 1 // Left
		SetSpritePhysicsVelocity(Character, -300, GetSpritePhysicsVelocityY(Character))
	else
		SetSpritePhysicsVelocity(Character, 0, GetSpritePhysicsVelocityY(Character))
	endif
	//Jump
	if GetRawKeyPressed(32) = 1 AND RCDown = 1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
	endif

//Check to see if Character has started ladder climb.
	If GetSpriteCollision (Character,Ladder1) = 1 and GetRawKeyState(38) = 1 and LadderStart = 0
		SetPhysicsGravity (0,0)
		LadderStart =1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -30)
		endif
		
		//Check to see if player wants off ladder moving left or right.
		If LadderStart = 1 and GetRawKeyState(39) or LadderStart = 1 and GetRawKeyState(37) = 1
			
			SetPhysicsGravity(0,1600)
			LadderStart = 0
			endif
			
			//Give the player the ability to jump on the ladder (Which will end the climb) 
			If LadderStart = 1 and GetRawKeyPressed(32)
				     SetPhysicsGravity(0,1600)
				     JumpStart = GetSpriteY(Character) 
				     
					SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
					
					ElseIF JumpStart > Y# + 100 and LadderStart = 1
						SetPhysicsGravity(0,0)
							SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -30)
						
					endif
					
					Print(Y#)
					Print(JumpStart)
					
					
			
			Print(GetRawLastKey())

Sync()
loop

SetWindowSize(1136, 640, 0)
SetVirtualResolution(1136, 640)
SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1800)

global Ground
global Character
global RCDown

//Make a ground to walk on
Ground = CreateSprite(0)
SetSpriteSize(Ground, 1136, 50)
SetSpriteColor(Ground, 255, 0, 0, 255)
SetSpritePosition(Ground, 0, 590)
SetSpritePhysicsOn(Ground, 1)
SetSpriteGroup(Ground, 1) // Assign a group number to ground sprites

//Make a 2nd Ground to walk on
Ground1 = CreateSprite(0)
SetSpriteSize(Ground1,620,20)
SetSpritePosition(Ground1,0,400)
SetSpritePhysicsOn(Ground1, 1)
SetSpriteGroup(Ground1, 1)

//Load Image Ladder
LoadImage (1,"Ladder.png")

//Create Sprite Ladder
For Ladder# = 1 to 3
Ladder = CreateSprite(1)
SetSpriteSize(Ladder,80,180)
SetSPritePosition(Ladder,600, Ladder# * 150)
next Ladder#

//Create Ladder Start Sprite
Ladder1 = createSprite(0)
SetSpriteSize(Ladder1, 5,30)
SetSpritePosition(ladder1,640,550)






//Create Blue Cube as Character
Character = CreateSprite(0)
SetSpriteSize(Character, 50, 50)
SetSpriteColor(Character, 0, 0, 255, 255)
SetSpritePosition(Character, 100, 540)
SetSpritePhysicsOn(Character, 2)
SetSpritePhysicsCanRotate(Character, 0)





do	
	
	X# = GetSpriteX(Character)
	Y# = GetSpriteY(Character)
	//Ray Cast Dwon to check if Character can jump
	RCDown = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character), GetSpriteYByOffset(Character), GetSpriteXByOffset(Character), GetSpriteYByOffset(Character) + 30)
	
	
	//Move Character Left, Right, And Jump. 
	if GetRawKeyState(39) = 1 // Right
		SetSpritePhysicsVelocity(Character, 300, GetSpritePhysicsVelocityY(Character))
	elseif GetRawKeyState(37) = 1 // Left
		SetSpritePhysicsVelocity(Character, -300, GetSpritePhysicsVelocityY(Character))
	else
		SetSpritePhysicsVelocity(Character, 0, GetSpritePhysicsVelocityY(Character))
	endif
	//Jump
	if GetRawKeyPressed(32) = 1 AND RCDown = 1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
	endif

          //Check to see if Character has started ladder climb.
	If GetSpriteCollision (Character,Ladder1) = 1 and GetRawKeyState(38) = 1 and LadderStart = 0
		SetPhysicsGravity (0,0)
		LadderStart =1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -30)
		endif
		
		//Check to see if player wants off ladder moving left or right.
		If LadderStart = 1 and GetRawKeyState(39) or LadderStart = 1 and GetRawKeyState(37) = 1
			
			SetPhysicsGravity(0,1600)
			LadderStart = 0
			endif
			
			//Give the player the ability to jump on the ladder (Which will end the climb) 
			If LadderStart = 1 and GetRawKeyPressed(32)
				     SetPhysicsGravity(0,1600)
				     JumpStart = GetSpriteY(Character) 
				     
					SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
					
					ElseIF JumpStart > Y# + 100 and LadderStart = 1
						SetPhysicsGravity(0,0)
							SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -30)
						
					endif
					
					Print(Y#)
					Print(JumpStart)
					
					
			
			Print(GetRawLastKey())

    Sync()
loop

^ Working example of jumping more than once on a ladder

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

Stupinator

8

Years of Service

User Offline

Joined: 14th Sep 2015

Location: Vancouver, WA, USA

Posted: 19th Sep 2015 17:19

Looking much better! good work.

And that name, oh gosh it's so kosher.

-Stupinator

Back to top

Profile PM Email

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 19th Sep 2015 21:44

@Will (CP)
Looks good, will try it after the weekend when not working!

@Stupinator
Cheers, it is getting there and glad you like the name of the game.

The Amiga and Amos were great!

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 19th Sep 2015 21:53 Edited at: 19th Sep 2015 21:53

As I can't code at the minute, here is a rough pen drawing I did of the design for the platypus character!

What do you think?

The Amiga and Amos were great!

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 19th Sep 2015 22:15

Looks really good, I wish I could draw

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

18

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 20th Sep 2015 00:19 Edited at: 20th Sep 2015 00:20

did someone say Platypus?

Sorry I couldn't resist.. lol

Attachments

Login to view attachments

Back to top

Profile PM Email

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 20th Sep 2015 01:16

@David Gervais, haha, that's great

The Amiga and Amos were great!

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 20th Sep 2015 02:06

Hey David, with being a MOD and all, could you use your magic and change the title of this thread please from:

[WIP] - [Multi Format] - SpecTre's Platform Game (Working Title)

To:

[WIP] - [Multi Format] - Platypus Peril

Thanks

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 20th Sep 2015 19:39

Your game seems to be great. The physics, on the last video, is really good.

What are you doing to not "snap" to the border of a block, when you jump and are in collision with that border ?
The example of Crazyprogrammer is great too ! Thanks

http://www.dracaena-studio.com

Back to top

Profile PM Website

David Gervais

Retired Moderator

18

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 20th Sep 2015 21:36

Sorry, but I'm having fun at your expense.. made a different platypus (animated 4 frame walk, 2 frame climb and single frame jump) facing right, but you can xflip to get it walking left.)

First the zip with the sprites..

Followed by a sneaky animated gif..

Cheers!

Attachments

Login to view attachments

Back to top

Profile PM Email

David Gervais

Retired Moderator

18

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 20th Sep 2015 21:37 Edited at: 20th Sep 2015 21:39

Here is the animated gif. I wonder if it'll show with the img tags?..

brb

Well, I'll be, it does work..

Cheers!

P.S. Feel free to play with them.

Attachments

Login to view attachments

Back to top

Profile PM Email

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 20th Sep 2015 21:54

Looks amazing David

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 20th Sep 2015 22:03 Edited at: 20th Sep 2015 22:06

Quote: "Your game seems to be great. The physics, on the last video, is really good."

Cheers Blendman!

Quote: "What are you doing to not "snap" to the border of a block, when you jump and are in collision with that border ? "

I got it working with both impulse and velocity so it doesn't stick to the walls with the code mentioned above and with the velocity method as mentioned by Crazy Programmer you use the no friction setting.

So all great and also good examples by Crazy Programmer

I am seriously thinking about scrapping the box2D physics method though now and coding my own system to get the authentic retro jump etc so watch this space for another method

I must be mad lol

@David Gervais, great gfx as always! That is super cool.

Quote: "Sorry, but I'm having fun at your expense.."

Feel free to have a play, all ideas etc are good and love your gfx

Thinking of style, game design and how to play the game at the moment but if it is okay with you can I see if I can use this for the test version so far for future videos etc?

Cheers guys.

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 20th Sep 2015 22:42

Quote: " authentic retro jump "

What games are you referring too?

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

18

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 20th Sep 2015 23:02

Of course you can use them, that's why I posted the zip with the sprites and the sample gif.. Go crazy, have fun! If you are going to 'scale' the sprites I suggest you use the _2x versions of the sprites, they seem to look decent all the way down to 25%, which is half of the originals. but the originals scaled to 50% don't look as good.

Anyways, have fun with them, even if only for placeholders.

Cheers!

Back to top

Profile PM Email

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 21st Sep 2015 01:11 Edited at: 21st Sep 2015 01:13

Quote: "Go crazy, have fun!"

Cool, cheers David as always

Quote: "What games are you referring too?"

Like Chuckie Egg and Bubble Bobble on the Spectrum

Still going to try and complete the ladder in this version though first and think doing own physics might be a good learning curve too.

EDIT:
re the ladders I have been having a read and I think it might have something to do with CreateMouseJoint command so will have a look there on Tuesday when get back to coding

Quote: "I must be mad lol"

Still stick to this quote of mine too so far

The Amiga and Amos were great!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 21st Sep 2015 02:59