//MegaTom : Welcome, welcome, Script to move a tempblock from it's position away from the player by 1 block

//Click a message block to create blocks starting position
#StartBlock
	set blockx 206
	set blockz 279
	cmd tempblock 1 {blockx} 129 {blockz}
quit
//-------------------------------------------------------------First Conditions
#MoveBlock
	msg moveblock
	set playerxtemp {PlayerX}
	setsub playerxtemp 1
	if blockx|=|playerxtemp goto #BlockXm
	set playerxtemp {PlayerX}
	setadd playerxtemp 1
	if blockx|=|playerxtemp goto #BlockXp
	
	set playerztemp {PlayerZ}
	setsub playerztemp 1
	if blockz|=|playerztemp goto #BlockZm
	set playerztemp {PlayerZ}
	setadd playerztemp 1
	if blockz|=|playerztemp+1 goto #BlockZp
	msg moveblockEND
quit

#MoveBlock2
	msg moveblock2
	set playerxtemp {PlayerX}
	setsub playerxtemp 1
	if blockx|=|playerxtemp goto #BlockXm
	set playerxtemp {PlayerX}
	setadd playerxtemp 1
	if blockx|=|playerxtemp goto #BlockXp
	
	set playerztemp {PlayerZ}
	setsub playerztemp 1
	if blockz|=|playerztemp goto #BlockZm
	set playerztemp {PlayerZ}
	setadd playerztemp 1
	if blockz|=|playerztemp goto #BlockZp
	msg moveblock2END
quit
//-------------------------------------------------------------Second Conditions
//Front
#BlockXm
	msg BlockXm
	set playerztemp {PlayerZ}
	if blockz|=|playerztemp goto #PlaceBlockxmz
quit
//Back
#BlockXp
	msg BlockXp
	set playerztemp {PlayerZ}
	if blockz|=|playerztemp goto #PlaceBlockxpz
quit
//Left
#BlockZm
	msg BlockZm
	set playerxtemp {PlayerX}
	if blockx|=|playerxtemp goto #PlaceBlockxzm
quit
//Right
#BlockZp
	msg BlockZp
	set playerxtemp {PlayerX}
	if blockx|=|{playerxtemp goto #PlaceBlockxzp
quit
//-------------------------------------------------------------Position to place
//Remove current block
//Update block position
//Place block at new position
#PlaceBlockxmz
	msg placeblockxmz
	cmd tempblock air {blockx} 129 {blockz}
	set playerxtemp {PlayerX}
	setsub playerxtemp 1
	set blockx playerxtemp
	set blockz {PlayerZ}
	cmd tempblock 1 {blockx} 129 {blockz}
quit
#PlaceBlockxpz
	msg placeblockxpz
	cmd tempblock air {blockx} 129 {blockz}
	set playerxtemp {PlayerX}
	setadd playerxtemp 1
	set blockx playerxtemp
	set blockz {PlayerZ}
	cmd tempblock 1 {blockx} 129 {blockz}
quit

#PlaceBlockxzm
	msg placeblockxzm
	cmd tempblock air {blockx} 129 {blockz}
	set playerztemp {PlayerZ}
	setsub subplayerztemp 1
	set blockx {PlayerX}
	set blockz playerztemp
	cmd tempblock 1 {blockx} 129 {blockz}
quit
#PlaceBlockxzp
	msg placeblockxzp
	cmd tempblock air {blockx} 129 {blockz}
	set playerztemp {PlayerZ}
	setadd playerztemp 1
	set blockx {PlayerX}
	set blockz playerztemp
	cmd tempblock 1 {blockx} 129 {blockz}
quit