//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
	//The monster will move towards you
	set PlayerXtemp {PlayerX}
	set PlayerZtemp {PlayerZ}
	if monsterx|>|PlayerXtemp call #monsterToPlayerXm
	if monsterx|<|PlayerXtemp call #monsterToPlayerXp
	if monsterz|>|PlayerZtemp call #monsterToPlayerZm
	if monsterz|<|PlayerZtemp call #monsterToPlayerZp

	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
quit
#MoveMonster2
	//The monster will move towards you
	set PlayerXtemp {PlayerX}
	set PlayerZtemp {PlayerZ}
	if monsterx|>|PlayerXtemp call #monsterToPlayerXm
	if monsterx|<|PlayerXtemp call #monsterToPlayerXp
	if monsterz|>|PlayerZtemp call #monsterToPlayerZm
	if monsterz|<|PlayerZtemp call #monsterToPlayerZp

	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
quit

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

#monsterToPlayerXmS
	cmd tempblock 0 {monsterx} 129 {monsterz}
	setsub monsterx 1
	cmd tempblock 1 {monsterx} 129 {monsterz}
quit
#monsterToPlayerXpS
	cmd tempblock 0 {monsterx} 129 {monsterz}
	setadd monsterx 1
	cmd tempblock 1 {monsterx} 129 {monsterz}
quit
#monsterToPlayerZmS
	cmd tempblock 0 {monsterx} 129 {monsterz}
	setsub monsterz 1
	cmd tempblock 1 {monsterx} 129 {monsterz}
quit
#monsterToPlayerZpS
	cmd tempblock 0 {monsterx} 129 {monsterz}
	setadd monsterz 1
	cmd tempblock 1 {monsterx} 129 {monsterz}
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

//mouse
//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

#Startmouse
	cmd tempchunk 267 129 270 255 129 255 255 129 270
	cmd tempblock 0 {mousex} 129 {mousez}
	set mousex 265
	set mousez 280
	cmd tempBblock 1 {mousex} 129 {mousez}
quit
//-------------------------------------------------------------First Conditions
#Movemouse
	//The mouse will move away from you
	set PlayerXtempB {PlayerX}
	set PlayerZtempB {PlayerZ}
	if mousex|>|PlayerXtempB call #mouseToPlayerXm
	if mousex|<|PlayerXtempB call #mouseToPlayerXp
	if mousez|>|PlayerZtempB call #mouseToPlayerZm
	if mousez|<|PlayerZtempB call #mouseToPlayerZp
quit
#Movemouse2
	//The mouse will move towards you
	set PlayerXtempB {PlayerX}
	set PlayerZtempB {PlayerZ}
	if mousex|>|PlayerXtempB call #mouseToPlayerXm
	if mousex|<|PlayerXtempB call #mouseToPlayerXp
	if mousez|>|PlayerZtempB call #mouseToPlayerZm
	if mousez|<|PlayerZtempB call #mouseToPlayerZp
quit

//-------------------------------------------------------------Towards player
#mouseToPlayerXm
	cmd tempblock 0 {mousex} 129 {mousez}
	setadd mousex 1
	cmd tempblock 1 {mousex} 129 {mousez}
	if mousez|>|PlayerZtempB goto #mouseToPlayerZmS
	if mousez|<|PlayerZtempB goto #mouseToPlayerZpS
quit
#mouseToPlayerXp
	cmd tempblock 0 {mousex} 129 {mousez}
	setsub mousex 1
	cmd tempblock 1 {mousex} 129 {mousez}
	if mousez|>|PlayerZtempB goto #mouseToPlayerZmS
	if mousez|<|PlayerZtempB goto #mouseToPlayerZpS
quit
#mouseToPlayerZm
	cmd tempblock 0 {mousex} 129 {mousez}
	setadd mousez 1
	cmd tempblock 1 {mousex} 129 {mousez}
	if mousex|>|PlayerXtempB goto #mouseToPlayerXmS
	if mousex|<|PlayerXtempB goto #mouseToPlayerXpS
quit
#mouseToPlayerZp
	cmd tempblock 0 {mousex} 129 {mousez}
	setsub mousez 1
	cmd tempblock 1 {mousex} 129 {mousez}
	if mousex|>|PlayerXtempB goto #mouseToPlayerXmS
	if mousex|<|PlayerXtempB goto #mouseToPlayerXpS
quit

#mouseToPlayerXmS
	cmd tempblock 0 {mousex} 129 {mousez}
	setadd mousex 1
	cmd tempblock 1 {mousex} 129 {mousez}
	if mousex|=|255 goto #Checkwinmouse
quit
#mouseToPlayerXpS
	cmd tempblock 0 {mousex} 129 {mousez}
	setsub mousex 1
	cmd tempblock 1 {mousex} 129 {mousez}
	if mousex|=|255 goto #Checkwinmouse
quit
#mouseToPlayerZmS
	cmd tempblock 0 {mousex} 129 {mousez}
	setadd mousez 1
	cmd tempblock 1 {mousex} 129 {mousez}
	if mousex|=|255 goto #Checkwinmouse
quit
#mouseToPlayerZpS
	cmd tempblock 0 {mousex} 129 {mousez}
	setsub mousez 1
	cmd tempblock 1 {mousex} 129 {mousez}
	if mousex|=|255 goto #Checkwinmouse
quit
//-------------------------------------------------------------Second Conditions
#Checkwinmouse
	if mousez|=|280 goto #winMouse
quit
#winMouse
	msg %eWINNER WINNER! good work!
	cmd tempchunk 267 129 270 255 129 255 255 129 270
	cmd tempblock 0 {mousex} 129 {mousez}
	set mousex 265
	set mousez 280
	cmd tempblock 1 {mousex} 129 {mousez}
quit