http://alpha-thema-online.uv.ro

Ad_Infinitum · Administrator

make matrix 1,4000,4000,30,30
randomize matrix 1,2
make object box 1,24,16,20
DO
caY# = camera angle Y()
if spacekey()=1 then move object 1,20
if controlkey()=1 then move object 1,40
if shiftkey()=1 then move object 1,30
if upkey()=1 then move object 1,5
if downkey()=1then move object 1,-5
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-1) : walk=1
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+1)
x#=object position x(1):y#=object position y(1):z#=object position z(1):a#=object angle y(1):d#=250.0:h#=185.0:s#=50.0
Print "Alpha Thema Studio"
set camera to follow x#,y#,z#,a#,d#,h#,s#,1
if mouseclick()=1 then wait 10
loop