//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
	cmd tempblock 0 {blockx} 129 {blockz}
	set blockx 206
	set blockz 279
	cmd tempblock 1 {blockx} 129 {blockz}
quit
//-------------------------------------------------------------First Conditions
#MoveBlock
	set MBXtemp {MBX}
	setsub MBXtemp 1
	if blockx|=|MBXtemp goto #BlockXm
	set MBXtemp {MBX}
	setadd MBXtemp 1
	if blockx|=|MBXtemp goto #BlockXp
	
	set MBZtemp {MBZ}
	setsub MBZtemp 1
	if blockz|=|MBZtemp goto #BlockZm
	set MBZtemp {MBZ}
	setadd MBZtemp 1
	if blockz|=|MBZtemp goto #BlockZp
quit

#MoveBlock2
	set MBXtemp {MBX}
	setsub MBXtemp 1
	if blockx|=|MBXtemp goto #BlockXm
	set MBXtemp {MBX}
	setadd MBXtemp 1
	if blockx|=|MBXtemp goto #BlockXp
	
	set MBZtemp {MBZ}
	setsub MBZtemp 1
	if blockz|=|MBZtemp goto #BlockZm
	set MBZtemp {MBZ}
	setadd MBZtemp 1
	if blockz|=|MBZtemp goto #BlockZp
quit
//-------------------------------------------------------------Second Conditions
//Front
#BlockXm
	set MBZtemp {MBZ}
	if blockz|=|MBZtemp goto #PlaceBlockxmz
quit
//Back
#BlockXp
	set MBZtemp {MBZ}
	if blockz|=|MBZtemp goto #PlaceBlockxpz
quit
//Left
#BlockZm
	set MBXtemp {MBX}
	if blockx|=|MBXtemp goto #PlaceBlockxzm
quit
//Right
#BlockZp
	set MBXtemp {MBX}
	if blockx|=|MBXtemp goto #PlaceBlockxzp
quit
//-------------------------------------------------------------Position to place
#PlaceBlockxmz
	cmd tempblock 0 {blockx} 129 {blockz}
	set MBXtemp {MBX}
	setsub MBXtemp 2
	set blockx {MBXtemp}
	set blockz {MBZ}
	cmd tempblock 1 {blockx} 129 {blockz}
	if blockx|=|211 goto #winCheck
quit
#PlaceBlockxpz
	cmd tempblock 0 {blockx} 129 {blockz}
	set MBXtemp {MBX}
	setadd MBXtemp 2
	set blockx {MBXtemp}
	set blockz {MBZ}
	cmd tempblock 1 {blockx} 129 {blockz}
	if blockx|=|211 goto #winCheck
quit

#PlaceBlockxzm
	cmd tempblock 0 {blockx} 129 {blockz}
	set MBZtemp {MBZ}
	setsub MBZtemp 2
	set blockx {MBX}
	set blockz {MBZtemp}
	cmd tempblock 1 {blockx} 129 {blockz}
	if blockx|=|211 goto #winCheck
quit
#PlaceBlockxzp
	cmd tempblock 0 {blockx} 129 {blockz}
	set MBZtemp {MBZ}
	setadd MBZtemp 2
	set blockx {MBX}
	set blockz {MBZtemp}
	cmd tempblock 1 {blockx} 129 {blockz}
	if blockx|=|211 goto #winCheck
quit
#winCheck
	if blockz|=|273 goto #win
quit
#win
	msg %eCONGRATZ!! You are a big winner!
	cmd tempblock 0 {blockx} 129 {blockz}
	set blockx 206
	set blockz 279
	cmd tempblock 1 {blockx} 129 {blockz}
quit


//Monster
//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

#StartMonster
	cmd tempchunk 230 129 255 242 129 267 230 129 270
	cmd tempblock 0 {monsterx} 129 {monsterz}
	set monsterx 236
	set monsterz 270
	cmd tempblock 1 {monsterx} 129 {monsterz}
quit
//-------------------------------------------------------------First Conditions
#MoveMonster
	set MONSTERXtemp {MBX}
	setsub MONSTERXtemp 1
	if monsterx|=|MONSTERXtemp goto #monsterxm
	set MONSTERXtemp {MBX}
	setadd MONSTERXtemp 1
	if monsterx|=|MONSTERXtemp goto #monsterxp
	
	set MONSTERZtemp {MBZ}
	setsub MONSTERZtemp 1
	if monsterz|=|MONSTERZtemp goto #monsterzm
	set MONSTERZtemp {MBZ}
	setadd MONSTERZtemp 1
	if monsterz|=|MONSTERZtemp goto #monsterzp
	
	//The monster will move towards you
	set PlayerXtemp {PlayerX}
	set PlayerZtemp {PlayerZ}
	if monsterx|>|PlayerXtemp goto #monsterToPlayerXm
	if monsterx|<|PlayerXtemp goto #monsterToPlayerXp
	if monsterz|>|PlayerZtemp goto #monsterToPlayerZm
	if monsterz|<|PlayerZtemp goto #monsterToPlayerZp
quit
#MoveMonster2
	set MONSTERXtemp {MBX}
	setsub MONSTERXtemp 1
	if monsterx|=|MONSTERXtemp goto #monsterxm
	set MONSTERXtemp {MBX}
	setadd MONSTERXtemp 1
	if monsterx|=|MONSTERXtemp goto #monsterxp
	
	set MONSTERZtemp {MBZ}
	setsub MONSTERZtemp 1
	if monsterz|=|MONSTERZtemp goto #monsterzm
	set MONSTERZtemp {MBZ}
	setadd MONSTERZtemp 1
	if monsterz|=|MONSTERZtemp goto #monsterzp
	
	//The monster will move towards you
	set PlayerXtemp {PlayerX}
	set PlayerZtemp {PlayerZ}
	if monsterx|>|PlayerXtemp goto #monsterToPlayerXm
	if monsterx|<|PlayerXtemp goto #monsterToPlayerXp
	if monsterz|>|PlayerZtemp goto #monsterToPlayerZm
	if monsterz|<|PlayerZtemp goto #monsterToPlayerZp
quit

//-------------------------------------------------------------Towards player
#monsterToPlayerXm
	cmd tempblock 0 {monsterx} 129 {monsterz}
	setsub monsterx 1
	cmd tempblock 1 {monsterx} 129 {monsterz}
	if monsterz|>|PlayerZtemp goto #monsterToPlayerZm
	if monsterz|<|PlayerZtemp goto #monsterToPlayerZp
quit
#monsterToPlayerXp
	cmd tempblock 0 {monsterx} 129 {monsterz}
	setadd monsterx 1
	cmd tempblock 1 {monsterx} 129 {monsterz}
	if monsterz|>|PlayerZtemp goto #monsterToPlayerZm
	if monsterz|<|PlayerZtemp goto #monsterToPlayerZp
quit
#monsterToPlayerZm
	cmd tempblock 0 {monsterx} 129 {monsterz}
	setsub monsterz 1
	cmd tempblock 1 {monsterx} 129 {monsterz}
	if monsterx|>|PlayerXtemp goto #monsterToPlayerXm
	if monsterx|<|PlayerXtemp goto #monsterToPlayerXp
quit
#monsterToPlayerZp
	cmd tempblock 0 {monsterx} 129 {monsterz}
	setadd monsterz 1
	cmd tempblock 1 {monsterx} 129 {monsterz}
	if monsterx|>|PlayerXtemp goto #monsterToPlayerXm
	if monsterx|<|PlayerXtemp goto #monsterToPlayerXp
quit

//-------------------------------------------------------------Second Conditions
#monsterxm
	set MONSTERZtemp {MBZ}
	if monsterz|=|MONSTERZtemp goto #Deathmonsterxmz
quit
#monsterxp
	set MONSTERZtemp {MBZ}
	if monsterz|=|MONSTERZtemp goto #Deathmonsterxpz
quit
#monsterzm
	set MONSTERXtemp {MBX}
	if monsterx|=|MONSTERXtemp goto #Deathmonsterxzm
quit
#monsterzp
	set MONSTERXtemp {MBX}
	if monsterx|=|MONSTERXtemp goto #Deathmonsterxzp
quit
//-------------------------------------------------------------Death
#Deathmonsterxmz
	kill
quit
#Deathmonsterxpz
	kill
quit
#Deathmonsterxzm
	kill
quit
#Deathmonsterxzp
	kill
quit