Has anyone else noticed when you rotate objects on y axis it moves the fixed objects on y axis

Author

Message

fubarpk

Retired Moderator

20

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 7th Dec 2018 19:37

Link

It is more than likely just me.

But If i position objects I can fix them or not fix them and they stay in the same place
but when I fix them and rotate globally or locally on the y axis all of the joined objects
are offset by 1 on the y axis

// Project: RubiksCube 
// Created: 2018-12-08

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "RubiksCube" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant KEY_NUMPAD_0     96
#constant KEY_NUMPAD_1     97
#constant KEY_NUMPAD_2     98
#constant KEY_NUMPAD_3     99
#constant KEY_NUMPAD_4     100
#constant KEY_NUMPAD_5     101
#constant KEY_NUMPAD_6     102
#constant KEY_NUMPAD_7     103
#constant KEY_NUMPAD_8     104
#constant KEY_NUMPAD_9     105

global box1,box2,box3,box4,box5,box6,box7,box8,box9,box10,box11,box12,box13,box14
global box15,box16,box17,box18,box19,box20,box21,box22,box23,box24,box25,box26,box27

//Front section of boxes
box1=CreateObjectBox(1,1,1)
box2=CreateObjectBox(1,1,1)
box3=CreateObjectBox(1,1,1)
box4=CreateObjectBox(1,1,1)
box5=CreateObjectBox(1,1,1)
box6=CreateObjectBox(1,1,1)
box7=CreateObjectBox(1,1,1)
box8=CreateObjectBox(1,1,1)
box9=CreateObjectBox(1,1,1)
SetObjectPosition(box1,-1,1,-1)
SetObjectPosition(box2,0,1,-1)
SetObjectPosition(box3,1,1,-1)
SetObjectPosition(box4,-1,0,-1)
SetObjectPosition(box5,0,0,-1)
SetObjectPosition(box6,1,0,-1)
SetObjectPosition(box7,-1,-1,-1)
SetObjectPosition(box8,0,-1,-1)
SetObjectPosition(box9,1,-1,-1)
SetObjectColor(box1,255,0,0,255)
SetObjectColor(box2,255,0,0,255)
SetObjectColor(box3,255,0,0,255)
SetObjectColor(box4,255,0,0,255)
SetObjectColor(box5,255,0,0,255)
SetObjectColor(box6,255,0,0,255)
SetObjectColor(box7,255,0,0,255)
SetObjectColor(box8,255,0,0,255)
SetObjectColor(box9,255,0,0,255)

//Middle section of boxes
box10=CreateObjectBox(1,1,1)
box11=CreateObjectBox(1,1,1)
box12=CreateObjectBox(1,1,1)
box13=CreateObjectBox(1,1,1)
box14=CreateObjectBox(1,1,1)
box15=CreateObjectBox(1,1,1)
box16=CreateObjectBox(1,1,1)
box17=CreateObjectBox(1,1,1)
box18=CreateObjectBox(1,1,1)
SetObjectPosition(box10,-1,1,0)
SetObjectPosition(box11,0,1,0)
SetObjectPosition(box12,1,1,0)
SetObjectPosition(box13,-1,0,0)
SetObjectPosition(box14,0,0,0)
SetObjectPosition(box15,1,0,0)
SetObjectPosition(box16,-1,-1,0)
SetObjectPosition(box17,0,-1,0)
SetObjectPosition(box18,1,-1,0)
SetObjectColor(box10,255,255,0,255)
SetObjectColor(box11,255,255,0,255)
SetObjectColor(box12,255,255,0,255)
SetObjectColor(box13,255,255,0,255)
SetObjectColor(box14,255,255,0,255)
SetObjectColor(box15,255,255,0,255)
SetObjectColor(box16,255,255,0,255)
SetObjectColor(box17,255,255,0,255)
SetObjectColor(box18,255,255,0,255)

//Back Section of boxes
box19=CreateObjectBox(1,1,1)
box20=CreateObjectBox(1,1,1)
box21=CreateObjectBox(1,1,1)
box22=CreateObjectBox(1,1,1)
box23=CreateObjectBox(1,1,1)
box24=CreateObjectBox(1,1,1)
box25=CreateObjectBox(1,1,1)
box26=CreateObjectBox(1,1,1)
box27=CreateObjectBox(1,1,1)
SetObjectPosition(box19,-1,1,1)
SetObjectPosition(box20,0,1,1)
SetObjectPosition(box21,1,1,1)
SetObjectPosition(box22,-1,0,1)
SetObjectPosition(box23,0,0,1)
SetObjectPosition(box24,1,0,1)
SetObjectPosition(box25,-1,-1,1)
SetObjectPosition(box26,0,-1,1)
SetObjectPosition(box27,1,-1,1)
SetObjectColor(box19,0,0,255,255)
SetObjectColor(box20,0,0,255,255)
SetObjectColor(box21,0,0,255,255)
SetObjectColor(box22,0,0,255,255)
SetObjectColor(box23,0,0,255,255)
SetObjectColor(box24,0,0,255,255)
SetObjectColor(box25,0,0,255,255)
SetObjectColor(box26,0,0,255,255)
SetObjectColor(box27,0,0,255,255)

//SetObjectPosition(box1,-1,0,0)
//SetObjectPosition(box3,1,0,0)
//FixObjectToObject(box1,box2)
//FixObjectToObject(box3,box2)

//RotateObjectLocalY(box2,45)
do
    
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
	
	If GetRawKeyState(KEY_NUMPAD_7)=1
		unfixall()
		FixObjectToObject(box1,box11)
		FixObjectToObject(box2,box11)
		FixObjectToObject(box3,box11)
		FixObjectToObject(box10,box11)
		FixObjectToObject(box12,box11)
		FixObjectToObject(box19,box11)
		FixObjectToObject(box20,box11)
		FixObjectToObject(box21,box11)
		RotateObjectGlobalY(box11,90)

endif	
	If GetRawKeyState(KEY_NUMPAD_4)=1
		unfixAll()
		FixObjectToObject(box4,box14)
		FixObjectToObject(box5,box14)
		FixObjectToObject(box6,box14)
		FixObjectToObject(box13,box14)
		FixObjectToObject(box15,box14)
		FixObjectToObject(box22,box14)
		FixObjectToObject(box23,box14)
		FixObjectToObject(box24,box14)
		RotateObjectGlobalY(box14,90)
	endif	
	If GetRawKeyState(KEY_NUMPAD_1)=1
		unfixAll()
		FixObjectToObject(box7,box17)
		FixObjectToObject(box8,box17)
		FixObjectToObject(box9,box17)
		FixObjectToObject(box16,box17)
		FixObjectToObject(box18,box17)
		FixObjectToObject(box25,box17)
		FixObjectToObject(box26,box17)
		FixObjectToObject(box27,box17)
		RotateObjectGlobalY(box17,90)	
	endif	
	If GetRawKeyState(KEY_NUMPAD_9)=1
	endif
	If GetRawKeyState(KEY_NUMPAD_6)=1
	endif	
	If GetRawKeyState(KEY_NUMPAD_3)=1
	endif	
	
	
	
    Print( ScreenFPS() )
    Sync()
loop

function unfixAll()
	FixObjectToObject(box1,0):	FixObjectToObject(box2,0):	FixObjectToObject(box3,0)
	FixObjectToObject(box4,0):	FixObjectToObject(box5,0) :	FixObjectToObject(box6,0)
	FixObjectToObject(box7,0):	FixObjectToObject(box8,0) :	FixObjectToObject(box9,0)
	FixObjectToObject(box10,0): FixObjectToObject(box11,0):	FixObjectToObject(box12,0)
	FixObjectToObject(box13,0):	FixObjectToObject(box14,0):	FixObjectToObject(box15,0)
	FixObjectToObject(box16,0):	FixObjectToObject(box17,0):	FixObjectToObject(box18,0)
	FixObjectToObject(box19,0):	FixObjectToObject(box20,0):	FixObjectToObject(box21,0)
	FixObjectToObject(box22,0):	FixObjectToObject(box23,0):	FixObjectToObject(box24,0)
	FixObjectToObject(box25,0):	FixObjectToObject(box26,0):	FixObjectToObject(box27,0)
endfunction

+ Code Snippet

// Project: RubiksCube 
// Created: 2018-12-08

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "RubiksCube" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant KEY_NUMPAD_0     96
#constant KEY_NUMPAD_1     97
#constant KEY_NUMPAD_2     98
#constant KEY_NUMPAD_3     99
#constant KEY_NUMPAD_4     100
#constant KEY_NUMPAD_5     101
#constant KEY_NUMPAD_6     102
#constant KEY_NUMPAD_7     103
#constant KEY_NUMPAD_8     104
#constant KEY_NUMPAD_9     105

global box1,box2,box3,box4,box5,box6,box7,box8,box9,box10,box11,box12,box13,box14
global box15,box16,box17,box18,box19,box20,box21,box22,box23,box24,box25,box26,box27

//Front section of boxes
box1=CreateObjectBox(1,1,1)
box2=CreateObjectBox(1,1,1)
box3=CreateObjectBox(1,1,1)
box4=CreateObjectBox(1,1,1)
box5=CreateObjectBox(1,1,1)
box6=CreateObjectBox(1,1,1)
box7=CreateObjectBox(1,1,1)
box8=CreateObjectBox(1,1,1)
box9=CreateObjectBox(1,1,1)
SetObjectPosition(box1,-1,1,-1)
SetObjectPosition(box2,0,1,-1)
SetObjectPosition(box3,1,1,-1)
SetObjectPosition(box4,-1,0,-1)
SetObjectPosition(box5,0,0,-1)
SetObjectPosition(box6,1,0,-1)
SetObjectPosition(box7,-1,-1,-1)
SetObjectPosition(box8,0,-1,-1)
SetObjectPosition(box9,1,-1,-1)
SetObjectColor(box1,255,0,0,255)
SetObjectColor(box2,255,0,0,255)
SetObjectColor(box3,255,0,0,255)
SetObjectColor(box4,255,0,0,255)
SetObjectColor(box5,255,0,0,255)
SetObjectColor(box6,255,0,0,255)
SetObjectColor(box7,255,0,0,255)
SetObjectColor(box8,255,0,0,255)
SetObjectColor(box9,255,0,0,255)

//Middle section of boxes
box10=CreateObjectBox(1,1,1)
box11=CreateObjectBox(1,1,1)
box12=CreateObjectBox(1,1,1)
box13=CreateObjectBox(1,1,1)
box14=CreateObjectBox(1,1,1)
box15=CreateObjectBox(1,1,1)
box16=CreateObjectBox(1,1,1)
box17=CreateObjectBox(1,1,1)
box18=CreateObjectBox(1,1,1)
SetObjectPosition(box10,-1,1,0)
SetObjectPosition(box11,0,1,0)
SetObjectPosition(box12,1,1,0)
SetObjectPosition(box13,-1,0,0)
SetObjectPosition(box14,0,0,0)
SetObjectPosition(box15,1,0,0)
SetObjectPosition(box16,-1,-1,0)
SetObjectPosition(box17,0,-1,0)
SetObjectPosition(box18,1,-1,0)
SetObjectColor(box10,255,255,0,255)
SetObjectColor(box11,255,255,0,255)
SetObjectColor(box12,255,255,0,255)
SetObjectColor(box13,255,255,0,255)
SetObjectColor(box14,255,255,0,255)
SetObjectColor(box15,255,255,0,255)
SetObjectColor(box16,255,255,0,255)
SetObjectColor(box17,255,255,0,255)
SetObjectColor(box18,255,255,0,255)

//Back Section of boxes
box19=CreateObjectBox(1,1,1)
box20=CreateObjectBox(1,1,1)
box21=CreateObjectBox(1,1,1)
box22=CreateObjectBox(1,1,1)
box23=CreateObjectBox(1,1,1)
box24=CreateObjectBox(1,1,1)
box25=CreateObjectBox(1,1,1)
box26=CreateObjectBox(1,1,1)
box27=CreateObjectBox(1,1,1)
SetObjectPosition(box19,-1,1,1)
SetObjectPosition(box20,0,1,1)
SetObjectPosition(box21,1,1,1)
SetObjectPosition(box22,-1,0,1)
SetObjectPosition(box23,0,0,1)
SetObjectPosition(box24,1,0,1)
SetObjectPosition(box25,-1,-1,1)
SetObjectPosition(box26,0,-1,1)
SetObjectPosition(box27,1,-1,1)
SetObjectColor(box19,0,0,255,255)
SetObjectColor(box20,0,0,255,255)
SetObjectColor(box21,0,0,255,255)
SetObjectColor(box22,0,0,255,255)
SetObjectColor(box23,0,0,255,255)
SetObjectColor(box24,0,0,255,255)
SetObjectColor(box25,0,0,255,255)
SetObjectColor(box26,0,0,255,255)
SetObjectColor(box27,0,0,255,255)

//SetObjectPosition(box1,-1,0,0)
//SetObjectPosition(box3,1,0,0)
//FixObjectToObject(box1,box2)
//FixObjectToObject(box3,box2)

//RotateObjectLocalY(box2,45)
do
    
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
	
	If GetRawKeyState(KEY_NUMPAD_7)=1
		unfixall()
		FixObjectToObject(box1,box11)
		FixObjectToObject(box2,box11)
		FixObjectToObject(box3,box11)
		FixObjectToObject(box10,box11)
		FixObjectToObject(box12,box11)
		FixObjectToObject(box19,box11)
		FixObjectToObject(box20,box11)
		FixObjectToObject(box21,box11)
		RotateObjectGlobalY(box11,90)

	endif	
	If GetRawKeyState(KEY_NUMPAD_4)=1
		unfixAll()
		FixObjectToObject(box4,box14)
		FixObjectToObject(box5,box14)
		FixObjectToObject(box6,box14)
		FixObjectToObject(box13,box14)
		FixObjectToObject(box15,box14)
		FixObjectToObject(box22,box14)
		FixObjectToObject(box23,box14)
		FixObjectToObject(box24,box14)
		RotateObjectGlobalY(box14,90)
	endif	
	If GetRawKeyState(KEY_NUMPAD_1)=1
		unfixAll()
		FixObjectToObject(box7,box17)
		FixObjectToObject(box8,box17)
		FixObjectToObject(box9,box17)
		FixObjectToObject(box16,box17)
		FixObjectToObject(box18,box17)
		FixObjectToObject(box25,box17)
		FixObjectToObject(box26,box17)
		FixObjectToObject(box27,box17)
		RotateObjectGlobalY(box17,90)	
	endif	
	If GetRawKeyState(KEY_NUMPAD_9)=1
	endif
	If GetRawKeyState(KEY_NUMPAD_6)=1
	endif	
	If GetRawKeyState(KEY_NUMPAD_3)=1
	endif	
	
	
	
    Print( ScreenFPS() )
    Sync()
loop

function unfixAll()
	FixObjectToObject(box1,0):	FixObjectToObject(box2,0):	FixObjectToObject(box3,0)
	FixObjectToObject(box4,0):	FixObjectToObject(box5,0) :	FixObjectToObject(box6,0)
	FixObjectToObject(box7,0):	FixObjectToObject(box8,0) :	FixObjectToObject(box9,0)
	FixObjectToObject(box10,0): FixObjectToObject(box11,0):	FixObjectToObject(box12,0)
	FixObjectToObject(box13,0):	FixObjectToObject(box14,0):	FixObjectToObject(box15,0)
	FixObjectToObject(box16,0):	FixObjectToObject(box17,0):	FixObjectToObject(box18,0)
	FixObjectToObject(box19,0):	FixObjectToObject(box20,0):	FixObjectToObject(box21,0)
	FixObjectToObject(box22,0):	FixObjectToObject(box23,0):	FixObjectToObject(box24,0)
	FixObjectToObject(box25,0):	FixObjectToObject(box26,0):	FixObjectToObject(box27,0)
endfunction

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 7th Dec 2018 19:46

Link

Firstly i like to congratulate you in trying this puzzle

I think its cause your setting the positions to 1

+ Code Snippet

box19=CreateObjectBox(1,1,1)
box20=CreateObjectBox(1,1,1)
box21=CreateObjectBox(1,1,1)
box22=CreateObjectBox(1,1,1)
box23=CreateObjectBox(1,1,1)
box24=CreateObjectBox(1,1,1)
box25=CreateObjectBox(1,1,1)
box26=CreateObjectBox(1,1,1)
box27=CreateObjectBox(1,1,1)
SetObjectPosition(box19,-1,1,1)
SetObjectPosition(box20,0,1,1)
SetObjectPosition(box21,1,1,1)
SetObjectPosition(box22,-1,0,1)
SetObjectPosition(box23,0,0,1)
SetObjectPosition(box24,1,0,1)
SetObjectPosition(box25,-1,-1,1)
SetObjectPosition(box26,0,-1,1)
SetObjectPosition(box27,1,-1,1)

Try changing the Y's 1 values to 0

Back to top

Profile

puzzler2018

User Banned

Posted: 7th Dec 2018 19:51

Link

My bad

Change the Box 11,14,17 Y position to 0

SetObjectPosition(box11,0,0,0)
SetObjectPosition(box14,0,0,0)
SetObjectPosition(box17,0,0,0)

Back to top

Profile

fubarpk

Retired Moderator

20

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 7th Dec 2018 19:57

Link

I understand what you are saying but I need the centre box to be at (0,0,0,)
and all the others offset from that position. the top boxes move up 1 when numpad 7 pressed
and the bottom boxes move down 1 when numpad 1 is pressed

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

20

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 7th Dec 2018 20:00 Edited at: 7th Dec 2018 20:02

Link

+ Code Snippet

SetObjectPosition(box11,0,0,0)
SetObjectPosition(box14,0,0,0)
SetObjectPosition(box17,0,0,0)

Thanks that worked

Strange behaviour tho

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 7th Dec 2018 20:03

Link

Good luck with this little project

Maybe do a solver too?

Back to top

Profile

fubarpk

Retired Moderator

20

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 7th Dec 2018 20:08 Edited at: 7th Dec 2018 20:20

Link

Yeh maybe I found I should've just fixed all objects to the centre object box14 and always rotate
around that one.

hahah i was just thinking it would make a good example of fixed object, I really should know by now
I need all points to rotate around 0,0,0 not what I was doing

Really needs a bit of work yet so as I can keep track of what boxes have moved and their position yet
just I start with code like that which is usually quite readable then I refine and optimise etc lol and then
even I might have trouble following lol

But I have some skeleton code now just need to make a box type and array of them to help keep track
of the locations of which so I can rotate both ways etc

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

20

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 8th Dec 2018 14:32 Edited at: 9th Dec 2018 06:31

Link

A simple Rubiks Cube Puzzle

// Project: RubiksCube 
// Created: 2018-12-08

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "RubiksCube" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant KEY_NUMPAD_0     96
#constant KEY_NUMPAD_1     97
#constant KEY_NUMPAD_2     98
#constant KEY_NUMPAD_3     99
#constant KEY_NUMPAD_4     100
#constant KEY_NUMPAD_5     101
#constant KEY_NUMPAD_6     102
#constant KEY_NUMPAD_7     103
#constant KEY_NUMPAD_8     104
#constant KEY_NUMPAD_9     105
#constant KEY_SPACE        32
#constant KEY_A            65
#constant KEY_D            68
#constant KEY_E            69
#constant KEY_F            70
#constant KEY_G            71
#constant KEY_Q            81
#constant KEY_R            82
#constant KEY_S            83
#constant KEY_T            84
#constant KEY_W            87
#constant KEY_X            88
#constant KEY_Z            90
type cubePiece
	id as integer
	num as integer
	x as integer
	y as integer
	z as integer
	startX as integer //used for checking if solved 
	startY as integer
	startZ as integer	
endtype 
	
global rubiks as cubePiece[27]

//front face start locations
rubiks[0].num=1:rubiks[0].x=-1:rubiks[0].y=1:rubiks[0].z=-1
rubiks[1].num=2:rubiks[1].x=0:rubiks[1].y=1:rubiks[1].z=-1
rubiks[2].num=3:rubiks[2].x=1:rubiks[2].y=1:rubiks[2].z=-1
rubiks[3].num=4:rubiks[3].x=-1:rubiks[3].y=0:rubiks[3].z=-1
rubiks[4].num=5:rubiks[4].x=0:rubiks[4].y=0:rubiks[4].z=-1
rubiks[5].num=6:rubiks[5].x=1:rubiks[5].y=0:rubiks[5].z=-1
rubiks[6].num=7:rubiks[6].x=-1:rubiks[6].y=-1:rubiks[6].z=-1
rubiks[7].num=8:rubiks[7].x=0:rubiks[7].y=-1:rubiks[7].z=-1
rubiks[8].num=9:rubiks[8].x=1:rubiks[8].y=-1:rubiks[8].z=-1

//middle start locations
rubiks[9].num=10:rubiks[9].x=-1:rubiks[9].y=1:rubiks[9].z=0
rubiks[10].num=11:rubiks[10].x=0:rubiks[10].y=1:rubiks[10].z=0
rubiks[11].num=12:rubiks[11].x=1:rubiks[11].y=1:rubiks[11].z=0
rubiks[12].num=13:rubiks[12].x=-1:rubiks[12].y=0:rubiks[12].z=0
rubiks[13].num=14:rubiks[13].x=0:rubiks[13].y=0:rubiks[13].z=0
rubiks[14].num=15:rubiks[14].x=1:rubiks[14].y=0:rubiks[14].z=0
rubiks[15].num=16:rubiks[15].x=-1:rubiks[15].y=-1:rubiks[15].z=0
rubiks[16].num=17:rubiks[16].x=0:rubiks[16].y=-1:rubiks[16].z=0
rubiks[17].num=18:rubiks[17].x=1:rubiks[17].y=-1:rubiks[17].z=0

//back start locations
rubiks[18].num=19:rubiks[18].x=-1:rubiks[18].y=1:rubiks[18].z=1
rubiks[19].num=20:rubiks[19].x=0:rubiks[19].y=1:rubiks[19].z=1
rubiks[20].num=21:rubiks[20].x=1:rubiks[20].y=1:rubiks[20].z=1
rubiks[21].num=22:rubiks[21].x=-1:rubiks[21].y=0:rubiks[21].z=1
rubiks[22].num=23:rubiks[22].x=0:rubiks[22].y=0:rubiks[22].z=1
rubiks[23].num=24:rubiks[23].x=1:rubiks[23].y=0:rubiks[23].z=1
rubiks[24].num=25:rubiks[24].x=-1:rubiks[24].y=-1:rubiks[24].z=1
rubiks[25].num=26:rubiks[25].x=0:rubiks[25].y=-1:rubiks[25].z=1
rubiks[26].num=27:rubiks[26].x=1:rubiks[26].y=-1:rubiks[26].z=1

for num = 0 to 26
	rubiks[num].id=createObjectBox(1,1,1)
	If rubiks[num].num<=9 then setObjectColor(rubiks[num].id,255,0,0,255)
	If rubiks[num].num>9 and rubiks[num].num<=18 then setObjectColor(rubiks[num].id,255,255,0,255)
	If rubiks[num].num>18 and rubiks[num].num<=27 then setObjectColor(rubiks[num].id,0,0,255,255)
	SetObjectPosition(rubiks[num].id,rubiks[num].x,rubiks[num].y,rubiks[num].z)
	rubiks[num].startX=rubiks[num].x:rubiks[num].startY=rubiks[num].y:rubiks[num].startZ=rubiks[num].z
next

do
    
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
	
	If GetRawKeyState(KEY_Q)=1
		rotateTopRowAroundY()	
	endif	
	If GetRawKeyState(KEY_A)=1
		rotateMiddleRowAroundY() 
	endif	
	If GetRawKeyState(KEY_Z)=1
		rotateBottomRowAroundY()
	endif	
	
	If GetRawKeyState(KEY_W)=1
		rotate2TopRowAroundY()
	endif	
	If GetRawKeyState(KEY_S)=1
		rotate2MiddleRowAroundY()
	endif	
	If GetRawKeyState(KEY_X)=1
		rotate2BottomRowAroundY()
	endif	
	
	If GetRawKeyState(KEY_E)=1
		rotateLeftColumaroundX()
	endif
	If GetRawKeyState(KEY_R)=1
		rotateMiddleColumaroundX()
	endif	
	If GetRawKeyState(KEY_T)=1
		rotateRightColumaroundX()
	endif	
	
	If GetRawKeyState(KEY_D)=1
		rotate2LeftColumaroundX()
	endif
	If GetRawKeyState(KEY_F)=1
		rotate2MiddleColumaroundX()
	endif
	If GetRawKeyState(KEY_G)=1
		rotate2RightColumaroundX()
	endif
	
	
	If GetRawKeyState(KEY_SPACE)=1
		shuffle()
	endif
	
    Print( "RUBIKS CUBE PUZZLE" )
    Print( "Use the numeric Keypad to rotate cube pieces." )
    Print( "Q,A,Z rotate clockwise around the y axis.")
    Print( "W,S,X rotate anti-clockwise around the y axis.")
    Print( "E,R,T rotate clockwise around the X axis.")
    Print( "D,F,G rotate anti-clockwise around the X axis.")
    Print( "Space to shuffle.")
    if isSolved() then Print("Solved")
    Sync()
loop

function unfixAll()
	for num = 0 to 26
		FixObjectToObject(rubiks[num].id,0)
	next num	
endfunction

function getIdByLocation(x as integer,y as integer,z as integer)
	num=-1
	repeat
		inc num
	until rubiks[num].x=x and rubiks[num].y=y and rubiks[num].z=z
endfunction rubiks[num].id

function setObjectNewlocation(id as integer,x as integer,y as integer,z as integer)
	num=-1
	repeat 
		inc num	
	until rubiks[num].id=id
	rubiks[num].x=x:rubiks[num].y=y:rubiks[num].z=z
	SetObjectPosition(rubiks[num].id,x,y,z)
endfunction

function isSolved()
	num=-1:flag=1
	repeat
		inc num
		if rubiks[num].startX<>rubiks[num].x then flag=0
		if rubiks[num].startY<>rubiks[num].y then flag=0
		if rubiks[num].startZ<>rubiks[num].z then flag=0
	until num=26	
endfunction flag

function shuffle()
	for t = 1 to 10
	ran=(random(1,6))
	select ran
		case 1:
			rotateTopRowAroundY()
		endcase
		case 2:
			rotateMiddleRowAroundY()
		endcase
		case 3:
			rotateBottomRowAroundY()
		endcase
		case 4:
			rotateRightColumaroundX()
		endcase
		case 5:
			rotateMiddleColumaroundX()
		endcase
		case 6:
			rotateLeftColumaroundX()
		endcase
	endselect		
	next t			
endfunction

function rotateTopRowAroundY()
	id1=getIdByLocation(-1,1,-1) 
	id2=getIdByLocation(0,1,-1)  
	id3=getIdByLocation(1,1,-1)  
		
	id4=getIdByLocation(-1,1,0) 
	id5=getIdByLocation(0,1,0)  
	id6=getIdByLocation(1,1,0)  
		
	id7=getIdByLocation(-1,1,1) 
	id8=getIdByLocation(0,1,1)
	id9=getIdByLocation(1,1,1)  
		
	setObjectNewlocation(id1,-1,1,1)   
	setObjectNewlocation(id2,-1,1,0)  
	setObjectNewlocation(id3,-1,1,-1) 
		
	setObjectNewlocation(id4,0,1,1)   
	setObjectNewlocation(id5,0,1,0)   
	setObjectNewlocation(id6,0,1,-1)  
	
	setObjectNewlocation(id7,1,1,1)  
	setObjectNewlocation(id8,1,1,0)   
	setObjectNewlocation(id9,1,1,-1)  
endfunction

function rotate2TopRowAroundY()
	id1=getIdByLocation(-1,1,-1) 
	id2=getIdByLocation(0,1,-1)  
	id3=getIdByLocation(1,1,-1)  
		
	id4=getIdByLocation(-1,1,0) 
	id5=getIdByLocation(0,1,0)  
	id6=getIdByLocation(1,1,0)  
		
	id7=getIdByLocation(-1,1,1) 
	id8=getIdByLocation(0,1,1)
	id9=getIdByLocation(1,1,1)  
		
	setObjectNewlocation(id1,1,1,-1)   
	setObjectNewlocation(id2,1,1,0)  
	setObjectNewlocation(id3,1,1,1) 
		
	setObjectNewlocation(id4,0,1,-1)   
	setObjectNewlocation(id5,0,1,0)   
	setObjectNewlocation(id6,0,1,1)  
	
	setObjectNewlocation(id7,-1,1,-1)  
	setObjectNewlocation(id8,-1,1,0)   
	setObjectNewlocation(id9,-1,1,1)  
endfunction

function rotateMiddleRowAroundY()
	id1=getIdByLocation(-1,0,-1) 
	id2=getIdByLocation(0,0,-1)  
	id3=getIdByLocation(1,0,-1)  
		
	id4=getIdByLocation(-1,0,0) 
	id5=getIdByLocation(0,0,0)  
	id6=getIdByLocation(1,0,0)  
		
	id7=getIdByLocation(-1,0,1) 
	id8=getIdByLocation(0,0,1)
	id9=getIdByLocation(1,0,1)  
		
	setObjectNewlocation(id1,-1,0,1)   
	setObjectNewlocation(id2,-1,0,0)  
	setObjectNewlocation(id3,-1,0,-1) 
		
	setObjectNewlocation(id4,0,0,1)   
	setObjectNewlocation(id5,0,0,0)   
	setObjectNewlocation(id6,0,0,-1)  
		
	setObjectNewlocation(id7,1,0,1)  
	setObjectNewlocation(id8,1,0,0)   
	setObjectNewlocation(id9,1,0,-1)
endfunction

function rotate2MiddleRowAroundY()
	id1=getIdByLocation(-1,0,-1) 
	id2=getIdByLocation(0,0,-1)  
	id3=getIdByLocation(1,0,-1)  
		
	id4=getIdByLocation(-1,0,0) 
	id5=getIdByLocation(0,0,0)  
	id6=getIdByLocation(1,0,0)  
		
	id7=getIdByLocation(-1,0,1) 
	id8=getIdByLocation(0,0,1)
	id9=getIdByLocation(1,0,1)  
		
	setObjectNewlocation(id1,1,0,-1)   
	setObjectNewlocation(id2,1,0,0)  
	setObjectNewlocation(id3,1,0,1) 
		
	setObjectNewlocation(id4,0,0,-1)   
	setObjectNewlocation(id5,0,0,0)   
	setObjectNewlocation(id6,0,0,1)  
	
	setObjectNewlocation(id7,-1,0,-1)  
	setObjectNewlocation(id8,-1,0,0)   
	setObjectNewlocation(id9,-1,0,1) 
endfunction

function rotate2BottomRowAroundY()
	id1=getIdByLocation(-1,-1,-1) 
	id2=getIdByLocation(0,-1,-1)  
	id3=getIdByLocation(1,-1,-1)  
		
	id4=getIdByLocation(-1,-1,0) 
	id5=getIdByLocation(0,-1,0)  
	id6=getIdByLocation(1,-1,0)  
		
	id7=getIdByLocation(-1,-1,1) 
	id8=getIdByLocation(0,-1,1)
	id9=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id1,1,-1,-1)   
	setObjectNewlocation(id2,1,-1,0)  
	setObjectNewlocation(id3,1,-1,1) 
		
	setObjectNewlocation(id4,0,-1,-1)   
	setObjectNewlocation(id5,0,-1,0)   
	setObjectNewlocation(id6,0,-1,1)  
	
	setObjectNewlocation(id7,-1,-1,-1)  
	setObjectNewlocation(id8,-1,-1,0)   
	setObjectNewlocation(id9,-1,-1,1) 
endfunction

function rotateBottomRowAroundY()
	id1=getIdByLocation(-1,-1,-1) 
	id2=getIdByLocation(0,-1,-1)  
	id3=getIdByLocation(1,-1,-1)  
		
	id4=getIdByLocation(-1,-1,0) 
	id5=getIdByLocation(0,-1,0)  
	id6=getIdByLocation(1,-1,0)  
		
	id7=getIdByLocation(-1,-1,1) 
	id8=getIdByLocation(0,-1,1)
	id9=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id1,-1,-1,1)   
	setObjectNewlocation(id2,-1,-1,0)  
	setObjectNewlocation(id3,-1,-1,-1) 
		
	setObjectNewlocation(id4,0,-1,1)   
	setObjectNewlocation(id5,0,-1,0)   
	setObjectNewlocation(id6,0,-1,-1)  
		
	setObjectNewlocation(id7,1,-1,1)  
	setObjectNewlocation(id8,1,-1,0)   
	setObjectNewlocation(id9,1,-1,-1)  
endfunction

function rotateRightColumaroundX()
	id3=getIdByLocation(1,1,-1) 
	id6=getIdByLocation(1,0,-1)  
	id9=getIdByLocation(1,-1,-1)  
		
	id12=getIdByLocation(1,1,0) 
	id15=getIdByLocation(1,0,0)  
	id18=getIdByLocation(1,-1,0)  
		
	id21=getIdByLocation(1,1,1) 
	id24=getIdByLocation(1,0,1)
	id27=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id3,1,1,1)   
	setObjectNewlocation(id6,1,1,0)  
	setObjectNewlocation(id9,1,1,-1) 
		
	setObjectNewlocation(id12,1,0,1)   
	setObjectNewlocation(id15,1,0,0)   
	setObjectNewlocation(id18,1,0,-1)  
		
	setObjectNewlocation(id21,1,-1,1)  
	setObjectNewlocation(id24,1,-1,0)   
	setObjectNewlocation(id27,1,-1,-1)  
endfunction

function rotate2RightColumaroundX()
	id3=getIdByLocation(1,1,-1) 
	id6=getIdByLocation(1,0,-1)  
	id9=getIdByLocation(1,-1,-1)  
		
	id12=getIdByLocation(1,1,0) 
	id15=getIdByLocation(1,0,0)  
	id18=getIdByLocation(1,-1,0)  
		
	id21=getIdByLocation(1,1,1) 
	id24=getIdByLocation(1,0,1)
	id27=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id3,1,-1,-1)   
	setObjectNewlocation(id6,1,-1,0)  
	setObjectNewlocation(id9,1,-1,1) 
		
	setObjectNewlocation(id12,1,0,-1)   
	setObjectNewlocation(id15,1,0,0)   
	setObjectNewlocation(id18,1,0,1)  
		
	setObjectNewlocation(id21,1,1,-1)  
	setObjectNewlocation(id24,1,1,0)   
	setObjectNewlocation(id27,1,1,1)  
endfunction

function rotateMiddleColumaroundX()
	id3=getIdByLocation(0,1,-1) 
	id6=getIdByLocation(0,0,-1)  
	id9=getIdByLocation(0,-1,-1)  
		
	id12=getIdByLocation(0,1,0) 
	id15=getIdByLocation(0,0,0)  
	id18=getIdByLocation(0,-1,0)  
		
	id21=getIdByLocation(0,1,1) 
	id24=getIdByLocation(0,0,1)
	id27=getIdByLocation(0,-1,1)  
		
	setObjectNewlocation(id3,0,1,1)   
	setObjectNewlocation(id6,0,1,0)  
	setObjectNewlocation(id9,0,1,-1) 
		
	setObjectNewlocation(id12,0,0,1)   
	setObjectNewlocation(id15,0,0,0)   
	setObjectNewlocation(id18,0,0,-1)  
		
	setObjectNewlocation(id21,0,-1,1)  
	setObjectNewlocation(id24,0,-1,0)   
	setObjectNewlocation(id27,0,-1,-1)  
endfunction
	
function rotate2MiddleColumaroundX()
	id3=getIdByLocation(0,1,-1) 
	id6=getIdByLocation(0,0,-1)  
	id9=getIdByLocation(0,-1,-1)  
		
	id12=getIdByLocation(0,1,0) 
	id15=getIdByLocation(0,0,0)  
	id18=getIdByLocation(0,-1,0)  
		
	id21=getIdByLocation(0,1,1) 
	id24=getIdByLocation(0,0,1)
	id27=getIdByLocation(0,-1,1)  
		
	setObjectNewlocation(id3,0,-1,-1)   
	setObjectNewlocation(id6,0,-1,0)  
	setObjectNewlocation(id9,0,-1,1) 
		
	setObjectNewlocation(id12,0,0,-1)   
	setObjectNewlocation(id15,0,0,0)   
	setObjectNewlocation(id18,0,0,1)  
		
	setObjectNewlocation(id21,0,1,-1)  
	setObjectNewlocation(id24,0,1,0)   
	setObjectNewlocation(id27,0,1,1)  
endfunction

function rotateLeftColumaroundX()
	id3=getIdByLocation(-1,1,-1) 
	id6=getIdByLocation(-1,0,-1)  
	id9=getIdByLocation(-1,-1,-1)  
		
	id12=getIdByLocation(-1,1,0) 
	id15=getIdByLocation(-1,0,0)  
	id18=getIdByLocation(-1,-1,0)  
		
	id21=getIdByLocation(-1,1,1) 
	id24=getIdByLocation(-1,0,1)
	id27=getIdByLocation(-1,-1,1)  
		
	setObjectNewlocation(id3,-1,1,1)   
	setObjectNewlocation(id6,-1,1,0)  
	setObjectNewlocation(id9,-1,1,-1) 
		
	setObjectNewlocation(id12,-1,0,1)   
	setObjectNewlocation(id15,-1,0,0)   
	setObjectNewlocation(id18,-1,0,-1)  
		
	setObjectNewlocation(id21,-1,-1,1)  
	setObjectNewlocation(id24,-1,-1,0)   
	setObjectNewlocation(id27,-1,-1,-1)  	
endfunction

function rotate2LeftColumaroundX()
	id3=getIdByLocation(-1,1,-1) 
	id6=getIdByLocation(-1,0,-1)  
	id9=getIdByLocation(-1,-1,-1)  
		
	id12=getIdByLocation(-1,1,0) 
	id15=getIdByLocation(-1,0,0)  
	id18=getIdByLocation(-1,-1,0)  
		
	id21=getIdByLocation(-1,1,1) 
	id24=getIdByLocation(-1,0,1)
	id27=getIdByLocation(-1,-1,1)  
		
	setObjectNewlocation(id3,-1,-1,-1)   
	setObjectNewlocation(id6,-1,-1,0)  
	setObjectNewlocation(id9,-1,-1,1) 
		
	setObjectNewlocation(id12,-1,0,-1)   
	setObjectNewlocation(id15,-1,0,0)   
	setObjectNewlocation(id18,-1,0,1)  
		
	setObjectNewlocation(id21,-1,1,-1)  
	setObjectNewlocation(id24,-1,1,0)   
	setObjectNewlocation(id27,-1,1,1) 
endfunction

+ Code Snippet


// Project: RubiksCube 
// Created: 2018-12-08

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "RubiksCube" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant KEY_NUMPAD_0     96
#constant KEY_NUMPAD_1     97
#constant KEY_NUMPAD_2     98
#constant KEY_NUMPAD_3     99
#constant KEY_NUMPAD_4     100
#constant KEY_NUMPAD_5     101
#constant KEY_NUMPAD_6     102
#constant KEY_NUMPAD_7     103
#constant KEY_NUMPAD_8     104
#constant KEY_NUMPAD_9     105
#constant KEY_SPACE        32
#constant KEY_A            65
#constant KEY_D            68
#constant KEY_E            69
#constant KEY_F            70
#constant KEY_G            71
#constant KEY_Q            81
#constant KEY_R            82
#constant KEY_S            83
#constant KEY_T            84
#constant KEY_W            87
#constant KEY_X            88
#constant KEY_Z            90
type cubePiece
	id as integer
	num as integer
	x as integer
	y as integer
	z as integer
	startX as integer //used for checking if solved 
	startY as integer
	startZ as integer	
endtype 
	
global rubiks as cubePiece[27]

//front face start locations
rubiks[0].num=1:rubiks[0].x=-1:rubiks[0].y=1:rubiks[0].z=-1
rubiks[1].num=2:rubiks[1].x=0:rubiks[1].y=1:rubiks[1].z=-1
rubiks[2].num=3:rubiks[2].x=1:rubiks[2].y=1:rubiks[2].z=-1
rubiks[3].num=4:rubiks[3].x=-1:rubiks[3].y=0:rubiks[3].z=-1
rubiks[4].num=5:rubiks[4].x=0:rubiks[4].y=0:rubiks[4].z=-1
rubiks[5].num=6:rubiks[5].x=1:rubiks[5].y=0:rubiks[5].z=-1
rubiks[6].num=7:rubiks[6].x=-1:rubiks[6].y=-1:rubiks[6].z=-1
rubiks[7].num=8:rubiks[7].x=0:rubiks[7].y=-1:rubiks[7].z=-1
rubiks[8].num=9:rubiks[8].x=1:rubiks[8].y=-1:rubiks[8].z=-1

//middle start locations
rubiks[9].num=10:rubiks[9].x=-1:rubiks[9].y=1:rubiks[9].z=0
rubiks[10].num=11:rubiks[10].x=0:rubiks[10].y=1:rubiks[10].z=0
rubiks[11].num=12:rubiks[11].x=1:rubiks[11].y=1:rubiks[11].z=0
rubiks[12].num=13:rubiks[12].x=-1:rubiks[12].y=0:rubiks[12].z=0
rubiks[13].num=14:rubiks[13].x=0:rubiks[13].y=0:rubiks[13].z=0
rubiks[14].num=15:rubiks[14].x=1:rubiks[14].y=0:rubiks[14].z=0
rubiks[15].num=16:rubiks[15].x=-1:rubiks[15].y=-1:rubiks[15].z=0
rubiks[16].num=17:rubiks[16].x=0:rubiks[16].y=-1:rubiks[16].z=0
rubiks[17].num=18:rubiks[17].x=1:rubiks[17].y=-1:rubiks[17].z=0

//back start locations
rubiks[18].num=19:rubiks[18].x=-1:rubiks[18].y=1:rubiks[18].z=1
rubiks[19].num=20:rubiks[19].x=0:rubiks[19].y=1:rubiks[19].z=1
rubiks[20].num=21:rubiks[20].x=1:rubiks[20].y=1:rubiks[20].z=1
rubiks[21].num=22:rubiks[21].x=-1:rubiks[21].y=0:rubiks[21].z=1
rubiks[22].num=23:rubiks[22].x=0:rubiks[22].y=0:rubiks[22].z=1
rubiks[23].num=24:rubiks[23].x=1:rubiks[23].y=0:rubiks[23].z=1
rubiks[24].num=25:rubiks[24].x=-1:rubiks[24].y=-1:rubiks[24].z=1
rubiks[25].num=26:rubiks[25].x=0:rubiks[25].y=-1:rubiks[25].z=1
rubiks[26].num=27:rubiks[26].x=1:rubiks[26].y=-1:rubiks[26].z=1



for num = 0 to 26
	rubiks[num].id=createObjectBox(1,1,1)
	If rubiks[num].num<=9 then setObjectColor(rubiks[num].id,255,0,0,255)
	If rubiks[num].num>9 and rubiks[num].num<=18 then setObjectColor(rubiks[num].id,255,255,0,255)
	If rubiks[num].num>18 and rubiks[num].num<=27 then setObjectColor(rubiks[num].id,0,0,255,255)
	SetObjectPosition(rubiks[num].id,rubiks[num].x,rubiks[num].y,rubiks[num].z)
	rubiks[num].startX=rubiks[num].x:rubiks[num].startY=rubiks[num].y:rubiks[num].startZ=rubiks[num].z
next

do
    
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
	
	If GetRawKeyState(KEY_Q)=1
		rotateTopRowAroundY()	
	endif	
	If GetRawKeyState(KEY_A)=1
		rotateMiddleRowAroundY() 
	endif	
	If GetRawKeyState(KEY_Z)=1
		rotateBottomRowAroundY()
	endif	
	
	If GetRawKeyState(KEY_W)=1
		rotate2TopRowAroundY()
	endif	
	If GetRawKeyState(KEY_S)=1
		rotate2MiddleRowAroundY()
	endif	
	If GetRawKeyState(KEY_X)=1
		rotate2BottomRowAroundY()
	endif	
	
	If GetRawKeyState(KEY_E)=1
		rotateLeftColumaroundX()
	endif
	If GetRawKeyState(KEY_R)=1
		rotateMiddleColumaroundX()
	endif	
	If GetRawKeyState(KEY_T)=1
		rotateRightColumaroundX()
	endif	
	
	If GetRawKeyState(KEY_D)=1
		rotate2LeftColumaroundX()
	endif
	If GetRawKeyState(KEY_F)=1
		rotate2MiddleColumaroundX()
	endif
	If GetRawKeyState(KEY_G)=1
		rotate2RightColumaroundX()
	endif
	
	
	If GetRawKeyState(KEY_SPACE)=1
		shuffle()
	endif
	
    Print( "RUBIKS CUBE PUZZLE" )
    Print( "Use the numeric Keypad to rotate cube pieces." )
    Print( "Q,A,Z rotate clockwise around the y axis.")
    Print( "W,S,X rotate anti-clockwise around the y axis.")
    Print( "E,R,T rotate clockwise around the X axis.")
    Print( "D,F,G rotate anti-clockwise around the X axis.")
    Print( "Space to shuffle.")
    if isSolved() then Print("Solved")
    Sync()
loop

function unfixAll()
	for num = 0 to 26
		FixObjectToObject(rubiks[num].id,0)
	next num	
endfunction	

function getIdByLocation(x as integer,y as integer,z as integer)
	num=-1
	repeat
		inc num
	until rubiks[num].x=x and rubiks[num].y=y and rubiks[num].z=z
endfunction rubiks[num].id	

function setObjectNewlocation(id as integer,x as integer,y as integer,z as integer)
	num=-1
	repeat 
		inc num	
	until rubiks[num].id=id
	rubiks[num].x=x:rubiks[num].y=y:rubiks[num].z=z
	SetObjectPosition(rubiks[num].id,x,y,z)
endfunction	

function isSolved()
	num=-1:flag=1
	repeat
		inc num
		if rubiks[num].startX<>rubiks[num].x then flag=0
		if rubiks[num].startY<>rubiks[num].y then flag=0
		if rubiks[num].startZ<>rubiks[num].z then flag=0
	until num=26	
endfunction flag

function shuffle()
	for t = 1 to 10
	ran=(random(1,6))
	select ran
		case 1:
			rotateTopRowAroundY()
		endcase
		case 2:
			rotateMiddleRowAroundY()
		endcase
		case 3:
			rotateBottomRowAroundY()
		endcase
		case 4:
			rotateRightColumaroundX()
		endcase
		case 5:
			rotateMiddleColumaroundX()
		endcase
		case 6:
			rotateLeftColumaroundX()
		endcase
	endselect		
	next t			
endfunction

function rotateTopRowAroundY()
	id1=getIdByLocation(-1,1,-1) 
	id2=getIdByLocation(0,1,-1)  
	id3=getIdByLocation(1,1,-1)  
		
	id4=getIdByLocation(-1,1,0) 
	id5=getIdByLocation(0,1,0)  
	id6=getIdByLocation(1,1,0)  
		
	id7=getIdByLocation(-1,1,1) 
	id8=getIdByLocation(0,1,1)
	id9=getIdByLocation(1,1,1)  
		
	setObjectNewlocation(id1,-1,1,1)   
	setObjectNewlocation(id2,-1,1,0)  
	setObjectNewlocation(id3,-1,1,-1) 
		
	setObjectNewlocation(id4,0,1,1)   
	setObjectNewlocation(id5,0,1,0)   
	setObjectNewlocation(id6,0,1,-1)  
	
	setObjectNewlocation(id7,1,1,1)  
	setObjectNewlocation(id8,1,1,0)   
	setObjectNewlocation(id9,1,1,-1)  
endfunction	

function rotate2TopRowAroundY()
	id1=getIdByLocation(-1,1,-1) 
	id2=getIdByLocation(0,1,-1)  
	id3=getIdByLocation(1,1,-1)  
		
	id4=getIdByLocation(-1,1,0) 
	id5=getIdByLocation(0,1,0)  
	id6=getIdByLocation(1,1,0)  
		
	id7=getIdByLocation(-1,1,1) 
	id8=getIdByLocation(0,1,1)
	id9=getIdByLocation(1,1,1)  
		
	setObjectNewlocation(id1,1,1,-1)   
	setObjectNewlocation(id2,1,1,0)  
	setObjectNewlocation(id3,1,1,1) 
		
	setObjectNewlocation(id4,0,1,-1)   
	setObjectNewlocation(id5,0,1,0)   
	setObjectNewlocation(id6,0,1,1)  
	
	setObjectNewlocation(id7,-1,1,-1)  
	setObjectNewlocation(id8,-1,1,0)   
	setObjectNewlocation(id9,-1,1,1)  
endfunction	

function rotateMiddleRowAroundY()
	id1=getIdByLocation(-1,0,-1) 
	id2=getIdByLocation(0,0,-1)  
	id3=getIdByLocation(1,0,-1)  
		
	id4=getIdByLocation(-1,0,0) 
	id5=getIdByLocation(0,0,0)  
	id6=getIdByLocation(1,0,0)  
		
	id7=getIdByLocation(-1,0,1) 
	id8=getIdByLocation(0,0,1)
	id9=getIdByLocation(1,0,1)  
		
	setObjectNewlocation(id1,-1,0,1)   
	setObjectNewlocation(id2,-1,0,0)  
	setObjectNewlocation(id3,-1,0,-1) 
		
	setObjectNewlocation(id4,0,0,1)   
	setObjectNewlocation(id5,0,0,0)   
	setObjectNewlocation(id6,0,0,-1)  
		
	setObjectNewlocation(id7,1,0,1)  
	setObjectNewlocation(id8,1,0,0)   
	setObjectNewlocation(id9,1,0,-1)
endfunction	

function rotate2MiddleRowAroundY()
	id1=getIdByLocation(-1,0,-1) 
	id2=getIdByLocation(0,0,-1)  
	id3=getIdByLocation(1,0,-1)  
		
	id4=getIdByLocation(-1,0,0) 
	id5=getIdByLocation(0,0,0)  
	id6=getIdByLocation(1,0,0)  
		
	id7=getIdByLocation(-1,0,1) 
	id8=getIdByLocation(0,0,1)
	id9=getIdByLocation(1,0,1)  
		
	setObjectNewlocation(id1,1,0,-1)   
	setObjectNewlocation(id2,1,0,0)  
	setObjectNewlocation(id3,1,0,1) 
		
	setObjectNewlocation(id4,0,0,-1)   
	setObjectNewlocation(id5,0,0,0)   
	setObjectNewlocation(id6,0,0,1)  
	
	setObjectNewlocation(id7,-1,0,-1)  
	setObjectNewlocation(id8,-1,0,0)   
	setObjectNewlocation(id9,-1,0,1) 
endfunction	

function rotate2BottomRowAroundY()
	id1=getIdByLocation(-1,-1,-1) 
	id2=getIdByLocation(0,-1,-1)  
	id3=getIdByLocation(1,-1,-1)  
		
	id4=getIdByLocation(-1,-1,0) 
	id5=getIdByLocation(0,-1,0)  
	id6=getIdByLocation(1,-1,0)  
		
	id7=getIdByLocation(-1,-1,1) 
	id8=getIdByLocation(0,-1,1)
	id9=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id1,1,-1,-1)   
	setObjectNewlocation(id2,1,-1,0)  
	setObjectNewlocation(id3,1,-1,1) 
		
	setObjectNewlocation(id4,0,-1,-1)   
	setObjectNewlocation(id5,0,-1,0)   
	setObjectNewlocation(id6,0,-1,1)  
	
	setObjectNewlocation(id7,-1,-1,-1)  
	setObjectNewlocation(id8,-1,-1,0)   
	setObjectNewlocation(id9,-1,-1,1) 
endfunction


function rotateBottomRowAroundY()
	id1=getIdByLocation(-1,-1,-1) 
	id2=getIdByLocation(0,-1,-1)  
	id3=getIdByLocation(1,-1,-1)  
		
	id4=getIdByLocation(-1,-1,0) 
	id5=getIdByLocation(0,-1,0)  
	id6=getIdByLocation(1,-1,0)  
		
	id7=getIdByLocation(-1,-1,1) 
	id8=getIdByLocation(0,-1,1)
	id9=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id1,-1,-1,1)   
	setObjectNewlocation(id2,-1,-1,0)  
	setObjectNewlocation(id3,-1,-1,-1) 
		
	setObjectNewlocation(id4,0,-1,1)   
	setObjectNewlocation(id5,0,-1,0)   
	setObjectNewlocation(id6,0,-1,-1)  
		
	setObjectNewlocation(id7,1,-1,1)  
	setObjectNewlocation(id8,1,-1,0)   
	setObjectNewlocation(id9,1,-1,-1)  
endfunction	

function rotateRightColumaroundX()
	id3=getIdByLocation(1,1,-1) 
	id6=getIdByLocation(1,0,-1)  
	id9=getIdByLocation(1,-1,-1)  
		
	id12=getIdByLocation(1,1,0) 
	id15=getIdByLocation(1,0,0)  
	id18=getIdByLocation(1,-1,0)  
		
	id21=getIdByLocation(1,1,1) 
	id24=getIdByLocation(1,0,1)
	id27=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id3,1,1,1)   
	setObjectNewlocation(id6,1,1,0)  
	setObjectNewlocation(id9,1,1,-1) 
		
	setObjectNewlocation(id12,1,0,1)   
	setObjectNewlocation(id15,1,0,0)   
	setObjectNewlocation(id18,1,0,-1)  
		
	setObjectNewlocation(id21,1,-1,1)  
	setObjectNewlocation(id24,1,-1,0)   
	setObjectNewlocation(id27,1,-1,-1)  
endfunction

function rotate2RightColumaroundX()
	id3=getIdByLocation(1,1,-1) 
	id6=getIdByLocation(1,0,-1)  
	id9=getIdByLocation(1,-1,-1)  
		
	id12=getIdByLocation(1,1,0) 
	id15=getIdByLocation(1,0,0)  
	id18=getIdByLocation(1,-1,0)  
		
	id21=getIdByLocation(1,1,1) 
	id24=getIdByLocation(1,0,1)
	id27=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id3,1,-1,-1)   
	setObjectNewlocation(id6,1,-1,0)  
	setObjectNewlocation(id9,1,-1,1) 
		
	setObjectNewlocation(id12,1,0,-1)   
	setObjectNewlocation(id15,1,0,0)   
	setObjectNewlocation(id18,1,0,1)  
		
	setObjectNewlocation(id21,1,1,-1)  
	setObjectNewlocation(id24,1,1,0)   
	setObjectNewlocation(id27,1,1,1)  
endfunction


function rotateMiddleColumaroundX()
	id3=getIdByLocation(0,1,-1) 
	id6=getIdByLocation(0,0,-1)  
	id9=getIdByLocation(0,-1,-1)  
		
	id12=getIdByLocation(0,1,0) 
	id15=getIdByLocation(0,0,0)  
	id18=getIdByLocation(0,-1,0)  
		
	id21=getIdByLocation(0,1,1) 
	id24=getIdByLocation(0,0,1)
	id27=getIdByLocation(0,-1,1)  
		
	setObjectNewlocation(id3,0,1,1)   
	setObjectNewlocation(id6,0,1,0)  
	setObjectNewlocation(id9,0,1,-1) 
		
	setObjectNewlocation(id12,0,0,1)   
	setObjectNewlocation(id15,0,0,0)   
	setObjectNewlocation(id18,0,0,-1)  
		
	setObjectNewlocation(id21,0,-1,1)  
	setObjectNewlocation(id24,0,-1,0)   
	setObjectNewlocation(id27,0,-1,-1)  
endfunction
	
function rotate2MiddleColumaroundX()
	id3=getIdByLocation(0,1,-1) 
	id6=getIdByLocation(0,0,-1)  
	id9=getIdByLocation(0,-1,-1)  
		
	id12=getIdByLocation(0,1,0) 
	id15=getIdByLocation(0,0,0)  
	id18=getIdByLocation(0,-1,0)  
		
	id21=getIdByLocation(0,1,1) 
	id24=getIdByLocation(0,0,1)
	id27=getIdByLocation(0,-1,1)  
		
	setObjectNewlocation(id3,0,-1,-1)   
	setObjectNewlocation(id6,0,-1,0)  
	setObjectNewlocation(id9,0,-1,1) 
		
	setObjectNewlocation(id12,0,0,-1)   
	setObjectNewlocation(id15,0,0,0)   
	setObjectNewlocation(id18,0,0,1)  
		
	setObjectNewlocation(id21,0,1,-1)  
	setObjectNewlocation(id24,0,1,0)   
	setObjectNewlocation(id27,0,1,1)  
endfunction	

function rotateLeftColumaroundX()
	id3=getIdByLocation(-1,1,-1) 
	id6=getIdByLocation(-1,0,-1)  
	id9=getIdByLocation(-1,-1,-1)  
		
	id12=getIdByLocation(-1,1,0) 
	id15=getIdByLocation(-1,0,0)  
	id18=getIdByLocation(-1,-1,0)  
		
	id21=getIdByLocation(-1,1,1) 
	id24=getIdByLocation(-1,0,1)
	id27=getIdByLocation(-1,-1,1)  
		
	setObjectNewlocation(id3,-1,1,1)   
	setObjectNewlocation(id6,-1,1,0)  
	setObjectNewlocation(id9,-1,1,-1) 
		
	setObjectNewlocation(id12,-1,0,1)   
	setObjectNewlocation(id15,-1,0,0)   
	setObjectNewlocation(id18,-1,0,-1)  
		
	setObjectNewlocation(id21,-1,-1,1)  
	setObjectNewlocation(id24,-1,-1,0)   
	setObjectNewlocation(id27,-1,-1,-1)  	
endfunction

function rotate2LeftColumaroundX()
	id3=getIdByLocation(-1,1,-1) 
	id6=getIdByLocation(-1,0,-1)  
	id9=getIdByLocation(-1,-1,-1)  
		
	id12=getIdByLocation(-1,1,0) 
	id15=getIdByLocation(-1,0,0)  
	id18=getIdByLocation(-1,-1,0)  
		
	id21=getIdByLocation(-1,1,1) 
	id24=getIdByLocation(-1,0,1)
	id27=getIdByLocation(-1,-1,1)  
		
	setObjectNewlocation(id3,-1,-1,-1)   
	setObjectNewlocation(id6,-1,-1,0)  
	setObjectNewlocation(id9,-1,-1,1) 
		
	setObjectNewlocation(id12,-1,0,-1)   
	setObjectNewlocation(id15,-1,0,0)   
	setObjectNewlocation(id18,-1,0,1)  
		
	setObjectNewlocation(id21,-1,1,-1)  
	setObjectNewlocation(id24,-1,1,0)   
	setObjectNewlocation(id27,-1,1,1) 
endfunction

code needs a bit of refinement but its works and altho it don't texure the faces like an actual rubiks cube it does work like one
but would need to add the rotations instead of just moving when proper texture facing is used

fubar

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Has anyone else noticed when you rotate objects on y axis it moves the fixed objects on y axis