Exe file for Hovercaft by Kequor25th Feb 2004 14:14
|
---|
Summary The exe file I promised plus the code again. Description Code ` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com Rem Look down to get the exe file from this page. Rem Setupync Sync On Sync Rate 30 Draw to front Backdrop on Set camera range 1,3000 Autocam off Hide mouse Color Backdrop RGB(12,5,157) Rem make matrix Make matrix 1,50000,50000,30,30 Rem texture matrix Load image "snow.bmp",1 Prepare matrix texture 1,1,1,1 Rem Make player Load object "SPCVEH08.X",1 Position object 1,-100,0,-100 Scale object 1,1000,1000,1000 rem Rotate and fix data so character faces right way xrotate object 1,190 yrotate object 1,90 zrotate object 1,187 fix object pivot 1 rem Begin loop do rem Update character y#=150 position object 1,x#,y#,z# yrotate object 1,a# rem Control camera with arrow keys if upkey()=0 then x#=newxvalue(x#,a#,0) : z#=newzvalue(z#,a#,0) if upkey()=1 then x#=newxvalue(x#,a#,20) : z#=newzvalue(z#,a#,20) if downkey()=1 then x#=newxvalue(x#,a#,-4) : z#=newzvalue(z#,a#,-4) if leftkey()=1 then a#=wrapvalue(a#-3.0) if rightkey()=1 then a#=wrapvalue(a#+3.0) rem Position camera to the back of the character cx#=newxvalue(x#,wrapvalue(a#+180),200) cz#=newzvalue(z#,wrapvalue(a#+180),200) cy#=200 position camera cx#,cy#,cz# rem Point camera at object point camera x#,y#,z# rem Syncronise sync rem End loop loop rem End the program end |