Hi to all PLEASE modify this code that show the bad axis problem!!!
Your objective is to make all 3 axis correctly functionally!
PLEASE HELP ME BECAUSE I IN SURRENDER MODE...
make object cube 1, 110
scale object 1,20,5,50
yrotate object 1,270
xrotate object 1,0
zrotate object 1,0
fix object pivot 1
rem Activate manual sync
sync on
rem Begin main loop
while mouseclick()=0
set cursor 0,0
print "X = "; object angle x(1)
print "Y = "; object angle y(1)
print "Z = "; object angle z(1)
rem Control variables with the cursor keys
if inkey$()="a" then dx#=newxvalue(dx#, angle#, 3.0) : dz#=newzvalue(dz#, angle#, 3.0)
if inkey$()="z" then dx#=newxvalue(dx#, angle#, -3.0) : dz#=newzvalue(dz#, angle#, -3.0)
if leftkey()=1 then anglek#=wrapvalue(anglek#+10)
if rightkey()=1 then anglek#=wrapvalue(anglek#-10)
if upkey()=1 then angleq#=wrapvalue(angleq#+10)
if downkey()=1 then angleq#=wrapvalue(angleq#-10)
if inkey$()="," then angle#=wrapvalue(angle#-10)
if inkey$()="." then angle#=wrapvalue(angle#+10)
rem Update the object with these new values
position object 1,x#,0,z#
yrotate object 1,angle#
zrotate object 1,anglek#
xrotate object 1,angleq#
rem Update Screen
sync
rem End main loop
endwhile
rem End the program
end
PLEASE HELP ME!