Water snake by Anonymous Coder1st Mar 2005 0:36
|
|---|
|
Summary ` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com ` WaterSnake by Neil Houlden ` I haven't finished th Description ` This code was downloaded from The Game Creators Code ` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com
` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com
` WaterSnake by Neil Houlden
` I haven't finished this yet, but take a look:
`Show the title screen:
center text screen width()/2,6, " __ ____ ___ __ "
center text screen width()/2,18, "========== / / /_/ / /_ /_/ =========="
center text screen width()/2,30, "========== /_/_/ / / / /__ / | =========="
center text screen width()/2,40, " "
center text screen width()/2,50, " ###### ## ## ### ## ## #######"
center text screen width()/2,60, "## ## ### ## ## ## ## ## ## "
center text screen width()/2,70, "## #### ## ## ## ## ## ## "
center text screen width()/2,80, " ###### ## ## ## ## ## #### #######"
center text screen width()/2,90, " ## ## #### ######### ## ## ## "
center text screen width()/2,100, "## ## ## ### ## ## ## ## ## "
center text screen width()/2,110, " ###### ## ## ## ## ## ## #######"
center text screen width()/2,120, " "
center text screen width()/2,130, " ============================================= "
center text screen width()/2,150, " By Neil Houlden www.neilsdemo.tk "
center text screen width()/2,170, " ============================================= "
center text screen width()/2,280, "Use you're mouse to control the Water Snake."
center text screen width()/2,290, "Press any key to Continue"
center text screen width()/2,400, " - neilio_omnipotent@yahoo.co.uk -"
wait key
cls
input "enter the length of the snake (I usually use 300): " ,bodylength
`set Frame Rate
sync rate 20
`hide the mouse
hide mouse
`make ground (So I can see how fast I'm going)
make object plain 1,100,100
xrotate object 1,90
set object wireframe 1,1
`make the head
make object sphere 2,4
color object 2,rgb(0,255,50)
`Prepare to make body parts
t=3
partcolor=1
`The body part making loop
for t=3 to bodylength
`Make a body part
make object sphere t,3
` color it
if partcolor=1
partcolor=2
color object t,rgb(0,100,0)
else
partcolor=1
color object t,rgb(0,255,50)
endif
next t
` game loop
do
`Control the way the head faces by moving the mouse
yrotate object 2,object angle y(2)+ (mousemovex()/2)
xrotate object 2,object angle x(2)+ (mousemovey()/2)
if object angle x(2)<-90
xrotate object 2,object angle x(2)-object angle x(2)
xrotate object 2,-90
endif
if object angle x(2)>90
xrotate object 2,object angle x(2)-object angle x(2)
xrotate object 2,90
endif
` position the bits
t=bodylength
for a=4 to bodylength
position object t,object position x(t-1),object position y(t-1),object position z(t-1)
t=t-1
next a
`this want's to be outside the loop because the last body part has to be attatched to the head.
position object 3, object position x(2),object position y(2),object position z(2)
`move the head in the direction it's facing
move object 2,1
`put the camera in the right place.
set camera to follow object position x(2),object position y(2),object position z(2),object angle y(2),50,object position y(2)+10,5,1
point camera object position x(2),object position y(2),object position z(2)
loop
|