TGC Codebase Backup



Exe file for Hovercaft by Kequor

25th 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