DBPro - No media sea-scape - GameCreators Forum

Author

Message

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 2nd Sep 2006 14:40 Edited at: 2nd Sep 2006 15:27

Link

I made this from boredom. You can use it if you like. Use the mouse to move around.

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
dim objtaken(0) as boolean
Type Vec3D
   X as float
   Y as float
   Z as float
Endtype

`create sky
backdrop on : color backdrop rgb(0,128,255)
fog on : fog distance 3000 : fog color rgb(255,255,255)
set camera range 1,6000
cnum=400
climg=CreateCloudImage(rgb(255,255,255))
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
Dim Clouds(cnum) as tClouds
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=rnd(10000)-5000
   Clouds(c).Pos.Y=rnd(20)+200
   Clouds(c).Pos.Z=rnd(10000)-5000
   Clouds(c).R=5000
   Clouds(c).Move=rnd(0.5)
next c

`create matrix
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
   ink rgb(0,128,255),0 : box 0,0,128,128
   for i=1 to 5000
   ink rgb(0,rnd(128),rnd(255)),0
   dot rnd(128),rnd(128)
   next i
   blur bitmap 1,4
   get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
landsize=5000 : tiles=25
make matrix 1,landsize*2,landsize*2,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y

`setup camera
speed#=5
y#=50
x#=landsize : z#=landsize

`main loop
   do
   oldx#=x#
   oldz#=z#

ax#=wrapvalue(ax#+mousemovey())
   ay#=wrapvalue(ay#+mousemovex())
   if mouseclick()=1
      x#=x#+((sin(ay#)*cos(ax#))*speed#)
      y#=y#-(sin(ax#)*speed#)
      z#=z#+((cos(ay#)*cos(ax#))*speed#)
   endif
   if mouseclick()=2
      x#=x#-((sin(ay#)*cos(ax#))*speed#)
      y#=y#+(sin(ax#)*speed#)
      z#=z#-((cos(ay#)*cos(ax#))*speed#)
   endif
   position camera x#,y#,z#
   rotate camera ax#,ay#,0

for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3
      mh(x,y)=sin(ma(x,y))*40
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1

for c=1 to cnum
      ControlCloud(c)
   next c

sync
   loop

`functions
Function FreeObj()
for i=1 to 65535
   if Object exist(i)=0
      exitfunction i
   endif
next i
Endfunction i

Function FreeImg()
for i=1 to 65535
   if Image exist(i)=0
      exitfunction i
   endif
next i
Endfunction i

Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(200)+400,rnd(200)+400
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud

Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi

Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction

+ Code Snippet

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
dim objtaken(0) as boolean
Type Vec3D
   X as float
   Y as float
   Z as float
Endtype

`create sky
backdrop on : color backdrop rgb(0,128,255)
fog on : fog distance 3000 : fog color rgb(255,255,255)
set camera range 1,6000
cnum=400
climg=CreateCloudImage(rgb(255,255,255))
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
Dim Clouds(cnum) as tClouds
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=rnd(10000)-5000
   Clouds(c).Pos.Y=rnd(20)+200
   Clouds(c).Pos.Z=rnd(10000)-5000
   Clouds(c).R=5000
   Clouds(c).Move=rnd(0.5)
next c

`create matrix
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
   ink rgb(0,128,255),0 : box 0,0,128,128
   for i=1 to 5000
   ink rgb(0,rnd(128),rnd(255)),0
   dot rnd(128),rnd(128)
   next i
   blur bitmap 1,4
   get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
landsize=5000 : tiles=25
make matrix 1,landsize*2,landsize*2,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y

`setup camera
speed#=5
y#=50
x#=landsize : z#=landsize


   `main loop
   do
   oldx#=x#
   oldz#=z#

   ax#=wrapvalue(ax#+mousemovey())
   ay#=wrapvalue(ay#+mousemovex())
   if mouseclick()=1
      x#=x#+((sin(ay#)*cos(ax#))*speed#)
      y#=y#-(sin(ax#)*speed#)
      z#=z#+((cos(ay#)*cos(ax#))*speed#)
   endif
   if mouseclick()=2
      x#=x#-((sin(ay#)*cos(ax#))*speed#)
      y#=y#+(sin(ax#)*speed#)
      z#=z#-((cos(ay#)*cos(ax#))*speed#)
   endif
   position camera x#,y#,z#
   rotate camera ax#,ay#,0


   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3
      mh(x,y)=sin(ma(x,y))*40
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1

   for c=1 to cnum
      ControlCloud(c)
   next c

   sync
   loop


`functions
Function FreeObj()
for i=1 to 65535
   if Object exist(i)=0
      exitfunction i
   endif
next i
Endfunction i

Function FreeImg()
for i=1 to 65535
   if Image exist(i)=0
      exitfunction i
   endif
next i
Endfunction i

Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(200)+400,rnd(200)+400
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud

Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi


Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 2nd Sep 2006 15:21

Link

cool nice job. It's funny how the clouds open for you.

Back to top

Profile PM Email

The Nerd

20

Years of Service

User Offline

Joined: 5th Jun 2004

Location: Denmark

Posted: 2nd Sep 2006 15:21

Link

Looks very nice!

Good job!

SpaceBattle-Shootout

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 2nd Sep 2006 15:27 Edited at: 2nd Sep 2006 15:27

Link

Thank you. I dont think the waves are aggressive enough. Time to change that I think.

[edit]
Done!

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 2nd Sep 2006 19:36 Edited at: 2nd Sep 2006 19:42

Link

Just made it much cooler + fixed the clouds. The skysphere, well, I don't know what it's ment to be, but I think it looks cool.

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
dim objtaken(0) as boolean
Type Vec3D
   X as float
   Y as float
   Z as float
Endtype
landsize=10000 : tiles=25

`setup camera
speed#=5
y#=50
x#=landsize/2 : z#=landsize/2

`create sky
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance 3000 : fog color rgb(255,255,255)
set camera range 1,6000
cnum=50
climg=CreateCloudImage(rgb(255,255,255))
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
Dim Clouds(cnum) as tClouds
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=x#+(rnd(landsize/2)-(landsize/4))
   Clouds(c).Pos.Y=rnd(20)+200
   Clouds(c).Pos.Z=z#+(rnd(landsize/2)-(landsize/4))
   Clouds(c).R=(landsize/4)
   Clouds(c).Move=rnd(2.5)
next c
skimg=freeImg() : skobj=freeObj()
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
   paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize/2 : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0

`create matrix
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
   ink rgb(0,128,255),0 : box 0,0,128,128
   for i=1 to 5000
   ink rgb(0,rnd(128),rnd(255)),0
   dot rnd(128),rnd(128)
   next i
   blur bitmap 1,4
   get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y

`music
`load music "Queen - Seven Seas Of Rhye.mp3",1
`loop music 1

`main loop
   do
   oldx#=x#
   oldz#=z#

ax#=wrapvalue(ax#+mousemovey())
   ay#=wrapvalue(ay#+mousemovex())
   if mouseclick()=1
      x#=x#+((sin(ay#)*cos(ax#))*speed#)
      y#=y#-(sin(ax#)*speed#)
      z#=z#+((cos(ay#)*cos(ax#))*speed#)
   endif
   if mouseclick()=2
      x#=x#-((sin(ay#)*cos(ax#))*speed#)
      y#=y#+(sin(ax#)*speed#)
      z#=z#-((cos(ay#)*cos(ax#))*speed#)
   endif
   position camera x#,y#,z#
   rotate camera ax#,ay#,0

for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3
      mh(x,y)=sin(ma(x,y))*40
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1

for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,x#,0,z#

sync
   loop

`functions
Function FreeObj()
for i=1 to 65535
   if Object exist(i)=0
      exitfunction i
   endif
next i
Endfunction i

Function FreeImg()
for i=1 to 65535
   if Image exist(i)=0
      exitfunction i
   endif
next i
Endfunction i

Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(300)+600,rnd(250)+500
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud

Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi

Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction

+ Code Snippet

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
dim objtaken(0) as boolean
Type Vec3D
   X as float
   Y as float
   Z as float
Endtype
landsize=10000 : tiles=25

`setup camera
speed#=5
y#=50
x#=landsize/2 : z#=landsize/2

`create sky
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance 3000 : fog color rgb(255,255,255)
set camera range 1,6000
cnum=50
climg=CreateCloudImage(rgb(255,255,255))
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
Dim Clouds(cnum) as tClouds
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=x#+(rnd(landsize/2)-(landsize/4))
   Clouds(c).Pos.Y=rnd(20)+200
   Clouds(c).Pos.Z=z#+(rnd(landsize/2)-(landsize/4))
   Clouds(c).R=(landsize/4)
   Clouds(c).Move=rnd(2.5)
next c
skimg=freeImg() : skobj=freeObj()
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
   paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize/2 : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0

`create matrix
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
   ink rgb(0,128,255),0 : box 0,0,128,128
   for i=1 to 5000
   ink rgb(0,rnd(128),rnd(255)),0
   dot rnd(128),rnd(128)
   next i
   blur bitmap 1,4
   get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y

`music
`load music "Queen - Seven Seas Of Rhye.mp3",1
`loop music 1


   `main loop
   do
   oldx#=x#
   oldz#=z#

   ax#=wrapvalue(ax#+mousemovey())
   ay#=wrapvalue(ay#+mousemovex())
   if mouseclick()=1
      x#=x#+((sin(ay#)*cos(ax#))*speed#)
      y#=y#-(sin(ax#)*speed#)
      z#=z#+((cos(ay#)*cos(ax#))*speed#)
   endif
   if mouseclick()=2
      x#=x#-((sin(ay#)*cos(ax#))*speed#)
      y#=y#+(sin(ax#)*speed#)
      z#=z#-((cos(ay#)*cos(ax#))*speed#)
   endif
   position camera x#,y#,z#
   rotate camera ax#,ay#,0


   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3
      mh(x,y)=sin(ma(x,y))*40
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1

   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,x#,0,z#

   sync
   loop


`functions
Function FreeObj()
for i=1 to 65535
   if Object exist(i)=0
      exitfunction i
   endif
next i
Endfunction i

Function FreeImg()
for i=1 to 65535
   if Image exist(i)=0
      exitfunction i
   endif
next i
Endfunction i

Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(300)+600,rnd(250)+500
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud

Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi


Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction

[edit]
It sounds quite good too with 'The Seven Seas of Rhye' playing in the backround

, I'm addicted to this song at the moment. What does the Rhye bit mean anyway?

[edit]
Screenie for the non DBPro people.

Back to top

Profile PM Email

Vues3d on Kalimee

20

Years of Service

User Offline

Joined: 12th May 2004

Location: NYON (SWITZERLAND)

Posted: 3rd Sep 2006 01:30

Link

Very nice snippet

Official forum for Kalimée
http://www.vues3d.com

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 3rd Sep 2006 18:31

Link

Thanks.

I just made the water cooler, and made a cool little ship to move around with.

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
landsize=10000 : tiles=50
x#=landsize/2 : z#=landsize/2
cx#=x#-700 : cy#=1400 : cz#=z#-700

`create sky
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,(landsize/2)+1000
cnum=50
climg=CreateCloudImage(rgb(255,255,255))
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
Dim Clouds(cnum) as tClouds
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=x#+(rnd(landsize/2)-(landsize/4))
   Clouds(c).Pos.Y=rnd(20)+200
   Clouds(c).Pos.Z=z#+(rnd(landsize/2)-(landsize/4))
   Clouds(c).R=(landsize/4)
   Clouds(c).Move=rnd(2.5)
next c
skimg=freeImg() : skobj=freeObj()
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
   paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize/2 : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0

`create matrix
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
ink RGB(89,172,255),0 : box 0,0,128,128
get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
texture object wobj,wimg
position object wobj,landsize/2,-30,landsize/2

`create ship
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
endtype
global ship as tship
ship.obj=freeObj() : ship.tilt=freeObj()
ship.thrust=400 : ship.torque=100 : ship.mass=100 : ship.fric=0.78
ship.sx=50 : ship.sy=20 : ship.sz=100
ship.pos.x=x# : ship.pos.z=z#
make object box ship.obj,ship.sx,ship.sy,ship.sz
make object plain ship.tilt,1,1 : hide object ship.tilt
glue object to limb ship.obj,ship.tilt,0
noseobj=freeObj()
make object box noseobj,sin(45)*ship.sx,ship.sy,sin(45)*ship.sx
yrotate object noseobj,45 : fix object pivot noseobj
make mesh from object 1,noseobj : delete object noseobj
add limb ship.obj,1,1 : delete mesh 1
offset limb ship.obj,1,0,0,ship.sz/2
tempobj=freeObj()
make object box tempobj,5,60,5 : make mesh from object 1,tempobj
add limb ship.obj,2,1 : offset limb ship.obj,2,0,30+(ship.sy/2),(ship.sz/2)-(ship.sz/4)
delete mesh 1 : delete object tempobj
sailobj=FreeObj()
make object box sailobj,ship.sx,40,1
make mesh from object 1,sailobj : delete object sailobj
add limb ship.obj,3,1 : offset limb ship.obj,3,0,40,((ship.sz/2)-(ship.sz/4))+2.5
delete mesh 1
color object ship.obj,rgb(128,64,0)
color limb ship.obj,3,rgb(255,255,255)

`music
`load music "Queen - Seven Seas Of Rhye.mp3",1
`loop music 1

`main loop
   do

`control Player
   if upkey()
      ship.frc.x=sin(ship.ang.y)*ship.thrust
      ship.frc.z=cos(ship.ang.y)*ship.thrust
   else
      ship.frc.x=ship.frc.x*0
      ship.frc.z=ship.frc.z*0
   endif
   if leftkey() then ship.trq=-ship.torque
   if rightkey() then ship.trq=ship.torque
   if leftkey()=0 and rightkey()=0 then ship.trq=ship.trq*0.0
      ship.acc.x=ship.frc.x/ship.mass : ship.acc.z=ship.frc.z/ship.mass
      inc ship.vel.x,ship.acc.x : inc ship.vel.z,ship.acc.z
      ship.vel.x=ship.vel.x*ship.fric : ship.vel.z=ship.vel.z*ship.fric
      inc ship.pos.x,ship.vel.x
      inc ship.pos.z,ship.vel.z
         ship.pos.y=get ground height(1,ship.pos.x,ship.pos.z)+((ship.sy/2)-5)
      ship.rac=ship.trq/ship.mass
      inc ship.omg,ship.rac
      inc ship.ang.y,ship.omg
      ship.ang.y=ship.ang.y*ship.fric
      ship.hl=get ground height(1,ship.pos.x-(ship.sx/2),ship.pos.z)
      ship.hr=get ground height(1,ship.pos.x+(ship.sx/2),ship.pos.z)
      ship.hf=get ground height(1,ship.pos.x,ship.pos.z+(ship.sz/2))
      ship.hb=get ground height(1,ship.pos.x,ship.pos.z-(ship.sz/2))
      ship.ang.x=atanfull(ship.hb-ship.hf,ship.sz)
      ship.ang.z=atanfull(ship.hr-ship.hl,ship.sx)
         rotate object ship.tilt,curveangle(ship.ang.x,object angle x(ship.tilt),7.0),0,curveangle(ship.ang.z,object angle z(ship.tilt),7.0)
         position object ship.tilt,ship.pos.x,ship.pos.y,ship.pos.z
         rotate object ship.obj,0,ship.ang.y,0

`camera
   cx#=curvevalue(ship.pos.x-(sin(ship.ang.y+20)*300),cx#,20.0)
   cy#=curvevalue(ship.pos.y+70,cy#,50.0)
   cz#=curvevalue(ship.pos.z-(cos(ship.ang.y+20)*300),cz#,20.0)
   position camera cx#,cy#,cz#
   point camera ship.pos.x,ship.pos.y+(ship.sy/2),ship.pos.z

`control land
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,cx#,0,cz#

sync
   loop

`functions
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0

Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(300)+600,rnd(250)+500
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud

Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi

Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction

+ Code Snippet

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
landsize=10000 : tiles=50
x#=landsize/2 : z#=landsize/2
cx#=x#-700 : cy#=1400 : cz#=z#-700

`create sky
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,(landsize/2)+1000
cnum=50
climg=CreateCloudImage(rgb(255,255,255))
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
Dim Clouds(cnum) as tClouds
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=x#+(rnd(landsize/2)-(landsize/4))
   Clouds(c).Pos.Y=rnd(20)+200
   Clouds(c).Pos.Z=z#+(rnd(landsize/2)-(landsize/4))
   Clouds(c).R=(landsize/4)
   Clouds(c).Move=rnd(2.5)
next c
skimg=freeImg() : skobj=freeObj()
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
   paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize/2 : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0

`create matrix
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
ink RGB(89,172,255),0 : box 0,0,128,128
get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
texture object wobj,wimg
position object wobj,landsize/2,-30,landsize/2

`create ship
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
endtype
global ship as tship
ship.obj=freeObj() : ship.tilt=freeObj()
ship.thrust=400 : ship.torque=100 : ship.mass=100 : ship.fric=0.78
ship.sx=50 : ship.sy=20 : ship.sz=100
ship.pos.x=x# : ship.pos.z=z#
make object box ship.obj,ship.sx,ship.sy,ship.sz
make object plain ship.tilt,1,1 : hide object ship.tilt
glue object to limb ship.obj,ship.tilt,0
noseobj=freeObj()
make object box noseobj,sin(45)*ship.sx,ship.sy,sin(45)*ship.sx
yrotate object noseobj,45 : fix object pivot noseobj
make mesh from object 1,noseobj : delete object noseobj
add limb ship.obj,1,1 : delete mesh 1
offset limb ship.obj,1,0,0,ship.sz/2
tempobj=freeObj()
make object box tempobj,5,60,5 : make mesh from object 1,tempobj
add limb ship.obj,2,1 : offset limb ship.obj,2,0,30+(ship.sy/2),(ship.sz/2)-(ship.sz/4)
delete mesh 1 : delete object tempobj
sailobj=FreeObj()
make object box sailobj,ship.sx,40,1
make mesh from object 1,sailobj : delete object sailobj
add limb ship.obj,3,1 : offset limb ship.obj,3,0,40,((ship.sz/2)-(ship.sz/4))+2.5
delete mesh 1
color object ship.obj,rgb(128,64,0)
color limb ship.obj,3,rgb(255,255,255)

`music
`load music "Queen - Seven Seas Of Rhye.mp3",1
`loop music 1


   `main loop
   do


   `control Player
   if upkey()
      ship.frc.x=sin(ship.ang.y)*ship.thrust
      ship.frc.z=cos(ship.ang.y)*ship.thrust
   else
      ship.frc.x=ship.frc.x*0
      ship.frc.z=ship.frc.z*0
   endif
   if leftkey() then ship.trq=-ship.torque
   if rightkey() then ship.trq=ship.torque
   if leftkey()=0 and rightkey()=0 then ship.trq=ship.trq*0.0
      ship.acc.x=ship.frc.x/ship.mass : ship.acc.z=ship.frc.z/ship.mass
      inc ship.vel.x,ship.acc.x : inc ship.vel.z,ship.acc.z
      ship.vel.x=ship.vel.x*ship.fric : ship.vel.z=ship.vel.z*ship.fric
      inc ship.pos.x,ship.vel.x
      inc ship.pos.z,ship.vel.z
         ship.pos.y=get ground height(1,ship.pos.x,ship.pos.z)+((ship.sy/2)-5)
      ship.rac=ship.trq/ship.mass
      inc ship.omg,ship.rac
      inc ship.ang.y,ship.omg
      ship.ang.y=ship.ang.y*ship.fric
      ship.hl=get ground height(1,ship.pos.x-(ship.sx/2),ship.pos.z)
      ship.hr=get ground height(1,ship.pos.x+(ship.sx/2),ship.pos.z)
      ship.hf=get ground height(1,ship.pos.x,ship.pos.z+(ship.sz/2))
      ship.hb=get ground height(1,ship.pos.x,ship.pos.z-(ship.sz/2))
      ship.ang.x=atanfull(ship.hb-ship.hf,ship.sz)
      ship.ang.z=atanfull(ship.hr-ship.hl,ship.sx)
         rotate object ship.tilt,curveangle(ship.ang.x,object angle x(ship.tilt),7.0),0,curveangle(ship.ang.z,object angle z(ship.tilt),7.0)
         position object ship.tilt,ship.pos.x,ship.pos.y,ship.pos.z
         rotate object ship.obj,0,ship.ang.y,0


   `camera
   cx#=curvevalue(ship.pos.x-(sin(ship.ang.y+20)*300),cx#,20.0)
   cy#=curvevalue(ship.pos.y+70,cy#,50.0)
   cz#=curvevalue(ship.pos.z-(cos(ship.ang.y+20)*300),cz#,20.0)
   position camera cx#,cy#,cz#
   point camera ship.pos.x,ship.pos.y+(ship.sy/2),ship.pos.z


   `control land
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,cx#,0,cz#

   sync
   loop


`functions
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0

Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(300)+600,rnd(250)+500
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud

Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi

Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 3rd Sep 2006 18:51

Link

Nice!!! Really fun!!!

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 3rd Sep 2006 18:55 Edited at: 3rd Sep 2006 20:28

Link

Thanks. I think I'm gonna need some help getting this matrix to scroll, so you can't get to the edges. Any help?

[edit]

Made it better. also cleaned up the code a little.

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      landsize=20000
      tiles=50
      clouds=200
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene======================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1
`loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(1) as tship
setupShip(1,400,100,100,0.78,50,20,100,landsize/2,0,landsize/2)
createShips()
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`camera
   controlCamera()

`control land
   controlScene()

sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(89,172,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
   paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShips()
local num as integer : num=array count(ship())
for n=1 to num
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
next n
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.z,ship(num).vel.z
         ship(num).pos.y=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
      ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
      ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
      ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
      ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
      ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
`=====================================================
`=====================================================

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      landsize=20000
      tiles=50
      clouds=200
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene======================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1
`loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(1) as tship
setupShip(1,400,100,100,0.78,50,20,100,landsize/2,0,landsize/2)
createShips()
`=====================================================



`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `camera
   controlCamera()


   `control land
   controlScene()

   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(89,172,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
   paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShips()
local num as integer : num=array count(ship())
for n=1 to num
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
next n
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.z,ship(num).vel.z
         ship(num).pos.y=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
      ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
      ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
      ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
      ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
      ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
`=====================================================
`=====================================================

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 3rd Sep 2006 23:01 Edited at: 3rd Sep 2006 23:03

Link

Wow, now it's even more amazing than it was before! I love it!

I added some boundarys because you could go off of the matrix. The variable BoundsPAD decides how far inland the boundarys are. The boundary code is in your ship movemet code.

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global BoundsPAD as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      landsize=20000
      tiles=50
      clouds=200
      BoundsPAD=350
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene======================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1
`loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(1) as tship
setupShip(1,400,100,100,0.78,50,20,100,landsize/2,0,landsize/2)
createShips()
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`camera
   controlCamera()

`control land
   controlScene()

sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(89,172,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
   paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShips()
local num as integer : num=array count(ship())
for n=1 to num
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
next n
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.z,ship(num).vel.z
         ship(num).pos.y=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
      ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
      ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
      ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
      ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
      ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)

if ship(num).pos.x>landsize-BoundsPAD then ship(num).pos.x=landsize-BoundsPAD
         if ship(num).pos.z>landsize-BoundsPAD then ship(num).pos.z=landsize-BoundsPAD

if ship(num).pos.x<BoundsPAD then ship(num).pos.x=BoundsPAD
         if ship(num).pos.z<BoundsPAD then ship(num).pos.z=BoundsPAD

position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
`=====================================================
`=====================================================

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global BoundsPAD as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      landsize=20000
      tiles=50
      clouds=200
      BoundsPAD=350
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene======================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1
`loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(1) as tship
setupShip(1,400,100,100,0.78,50,20,100,landsize/2,0,landsize/2)
createShips()
`=====================================================



`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `camera
   controlCamera()


   `control land
   controlScene()

   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(89,172,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
   paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShips()
local num as integer : num=array count(ship())
for n=1 to num
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
next n
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.z,ship(num).vel.z
         ship(num).pos.y=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
      ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
      ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
      ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
      ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
      ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)

         if ship(num).pos.x>landsize-BoundsPAD then ship(num).pos.x=landsize-BoundsPAD
         if ship(num).pos.z>landsize-BoundsPAD then ship(num).pos.z=landsize-BoundsPAD

         if ship(num).pos.x<BoundsPAD then ship(num).pos.x=BoundsPAD
         if ship(num).pos.z<BoundsPAD then ship(num).pos.z=BoundsPAD


         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
`=====================================================
`=====================================================

Again, nice job!

EDIT: OOPS, just read about scroll thing lol.

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 3rd Sep 2006 23:03

Link

@Sixty- I think he wanted unlimited space, if he wanted boudries he would've done it in 2 seconds

Back to top

Profile PM Email Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 3rd Sep 2006 23:03

Link

Yes I know take a look at my edit

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 4th Sep 2006 00:19

Link

Thanks

Back to top

Profile PM Email

David iz cool

19

Years of Service

User Offline

Joined: 21st Sep 2005

Location: somewhere lol :P

Posted: 4th Sep 2006 03:49

Link

very cool! i like the clouds,definately have to study this.

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 4th Sep 2006 20:21

Link

Go for it. If you need any help understanding it just ask.

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 6th Sep 2006 22:07

Link

Made the water better, and also some simple gravity so that you go off the water after going up a slope, but doesn't happen too easily, that would be unrealistic.

Code:

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(1) as tship
setupShip(1,400,100,100,0.78,50,20,100,landsize/2,0,landsize/2)
createShips()
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`camera
   controlCamera()

`control land
   controlScene()

sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShips()
local num as integer : num=array count(ship())
for n=1 to num
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
next n
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
`=====================================================
`=====================================================

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(1) as tship
setupShip(1,400,100,100,0.78,50,20,100,landsize/2,0,landsize/2)
createShips()
`=====================================================



`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `camera
   controlCamera()


   `control land
   controlScene()

   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShips()
local num as integer : num=array count(ship())
for n=1 to num
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
next n
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
`=====================================================
`=====================================================

And a screenie again for the non-DBPro people:

Back to top

Profile PM Email

Jack

20

Years of Service

User Offline

Joined: 4th Oct 2004

Location: [Germany]

Posted: 6th Sep 2006 22:44

Link

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype

gosub make_water_image

`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(1) as tship
setupShip(1,400,100,100,0.78,50,20,100,landsize/2,0,landsize/2)
createShips()
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`camera
   controlCamera()

`control land
   controlScene()

sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=10
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=10

make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
scale object texture wobj,tiles,tiles
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShips()
local num as integer : num=array count(ship())
for n=1 to num
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
next n
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
`=====================================================
`=====================================================

make_water_image:
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,222),0 : dot 0,1 : ink rgb(65,64,189),0 : dot 0,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 0,3 : ink rgb(65,64,197),0 : dot 0,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 0,5 : ink rgb(57,60,180),0 : dot 0,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 0,7 : ink rgb(49,48,148),0 : dot 0,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 0,9 : ink rgb(65,72,197),0 : dot 0,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 0,11 : ink rgb(57,60,180),0 : dot 0,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 0,13 : ink rgb(57,56,189),0 : dot 0,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 0,15 : ink rgb(57,64,205),0 : dot 0,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 0,17 : ink rgb(65,72,230),0 : dot 0,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 0,19 : ink rgb(74,72,222),0 : dot 0,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,213),0 : dot 0,21 : ink rgb(49,52,172),0 : dot 0,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,213),0 : dot 0,23 : ink rgb(57,60,205),0 : dot 0,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 0,25 : ink rgb(57,60,205),0 : dot 0,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,230),0 : dot 0,27 : ink rgb(65,68,197),0 : dot 0,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 0,29 : ink rgb(74,76,222),0 : dot 0,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 0,31 : ink rgb(74,72,222),0 : dot 1,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 1,1 : ink rgb(65,60,197),0 : dot 1,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 1,3 : ink rgb(65,64,213),0 : dot 1,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 1,5 : ink rgb(49,52,172),0 : dot 1,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 1,7 : ink rgb(65,68,222),0 : dot 1,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,156),0 : dot 1,9 : ink rgb(49,48,164),0 : dot 1,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 1,11 : ink rgb(49,52,172),0 : dot 1,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 1,13 : ink rgb(65,60,197),0 : dot 1,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 1,15 : ink rgb(57,60,205),0 : dot 1,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 1,17 : ink rgb(74,76,238),0 : dot 1,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 1,19 : ink rgb(74,76,222),0 : dot 1,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 1,21 : ink rgb(65,56,180),0 : dot 1,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 1,23 : ink rgb(57,64,205),0 : dot 1,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 1,25 : ink rgb(57,60,197),0 : dot 1,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 1,27 : ink rgb(74,76,222),0 : dot 1,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 1,29 : ink rgb(65,64,189),0 : dot 1,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 1,31 : ink rgb(65,68,213),0 : dot 2,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,230),0 : dot 2,1 : ink rgb(74,76,230),0 : dot 2,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 2,3 : ink rgb(49,56,180),0 : dot 2,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,56,180),0 : dot 2,5 : ink rgb(49,48,156),0 : dot 2,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 2,7 : ink rgb(74,68,205),0 : dot 2,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 2,9 : ink rgb(41,40,139),0 : dot 2,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,213),0 : dot 2,11 : ink rgb(57,56,180),0 : dot 2,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 2,13 : ink rgb(57,56,189),0 : dot 2,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 2,15 : ink rgb(49,56,180),0 : dot 2,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,213),0 : dot 2,17 : ink rgb(65,76,230),0 : dot 2,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,222),0 : dot 2,19 : ink rgb(57,64,189),0 : dot 2,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 2,21 : ink rgb(57,56,180),0 : dot 2,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 2,23 : ink rgb(57,72,222),0 : dot 2,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 2,25 : ink rgb(49,56,189),0 : dot 2,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 2,27 : ink rgb(65,68,222),0 : dot 2,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 2,29 : ink rgb(74,68,197),0 : dot 2,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 2,31 : ink rgb(74,72,222),0 : dot 3,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 3,1 : ink rgb(74,76,230),0 : dot 3,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 3,3 : ink rgb(65,68,197),0 : dot 3,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,56,197),0 : dot 3,5 : ink rgb(57,60,180),0 : dot 3,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 3,7 : ink rgb(74,68,197),0 : dot 3,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 3,9 : ink rgb(57,60,172),0 : dot 3,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 3,11 : ink rgb(65,64,189),0 : dot 3,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 3,13 : ink rgb(49,56,180),0 : dot 3,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,213),0 : dot 3,15 : ink rgb(49,60,189),0 : dot 3,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 3,17 : ink rgb(65,76,230),0 : dot 3,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,238),0 : dot 3,19 : ink rgb(82,80,238),0 : dot 3,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,197),0 : dot 3,21 : ink rgb(65,72,213),0 : dot 3,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 3,23 : ink rgb(57,64,197),0 : dot 3,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 3,25 : ink rgb(49,60,189),0 : dot 3,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 3,27 : ink rgb(74,76,222),0 : dot 3,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,180),0 : dot 3,29 : ink rgb(57,60,180),0 : dot 3,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 3,31 : ink rgb(57,64,205),0 : dot 4,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,213),0 : dot 4,1 : ink rgb(57,56,180),0 : dot 4,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 4,3 : ink rgb(49,48,164),0 : dot 4,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,180),0 : dot 4,5 : ink rgb(49,52,172),0 : dot 4,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,156),0 : dot 4,7 : ink rgb(57,68,213),0 : dot 4,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 4,9 : ink rgb(41,44,172),0 : dot 4,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,164),0 : dot 4,11 : ink rgb(74,72,222),0 : dot 4,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 4,13 : ink rgb(49,52,172),0 : dot 4,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,222),0 : dot 4,15 : ink rgb(74,72,213),0 : dot 4,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 4,17 : ink rgb(65,72,222),0 : dot 4,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,238),0 : dot 4,19 : ink rgb(74,85,238),0 : dot 4,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,213),0 : dot 4,21 : ink rgb(74,72,222),0 : dot 4,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 4,23 : ink rgb(57,60,197),0 : dot 4,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 4,25 : ink rgb(57,60,189),0 : dot 4,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,238),0 : dot 4,27 : ink rgb(74,76,230),0 : dot 4,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 4,29 : ink rgb(65,64,189),0 : dot 4,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 4,31 : ink rgb(82,76,230),0 : dot 5,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 5,1 : ink rgb(65,68,189),0 : dot 5,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,172),0 : dot 5,3 : ink rgb(65,60,189),0 : dot 5,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,222),0 : dot 5,5 : ink rgb(49,52,189),0 : dot 5,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,172),0 : dot 5,7 : ink rgb(57,60,189),0 : dot 5,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,180),0 : dot 5,9 : ink rgb(74,68,180),0 : dot 5,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,139),0 : dot 5,11 : ink rgb(57,56,172),0 : dot 5,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 5,13 : ink rgb(57,52,172),0 : dot 5,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,213),0 : dot 5,15 : ink rgb(57,64,205),0 : dot 5,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 5,17 : ink rgb(49,56,180),0 : dot 5,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(90,93,255),0 : dot 5,19 : ink rgb(82,85,246),0 : dot 5,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,85,246),0 : dot 5,21 : ink rgb(74,76,222),0 : dot 5,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 5,23 : ink rgb(65,56,180),0 : dot 5,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 5,25 : ink rgb(82,72,213),0 : dot 5,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 5,27 : ink rgb(65,64,205),0 : dot 5,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 5,29 : ink rgb(57,64,189),0 : dot 5,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 5,31 : ink rgb(57,64,189),0 : dot 6,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 6,1 : ink rgb(74,72,205),0 : dot 6,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 6,3 : ink rgb(57,56,180),0 : dot 6,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 6,5 : ink rgb(74,68,197),0 : dot 6,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,230),0 : dot 6,7 : ink rgb(49,44,131),0 : dot 6,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,76,189),0 : dot 6,9 : ink rgb(49,48,164),0 : dot 6,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,148),0 : dot 6,11 : ink rgb(49,52,172),0 : dot 6,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 6,13 : ink rgb(49,52,172),0 : dot 6,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 6,15 : ink rgb(74,68,197),0 : dot 6,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,205),0 : dot 6,17 : ink rgb(49,52,164),0 : dot 6,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(90,89,255),0 : dot 6,19 : ink rgb(82,97,255),0 : dot 6,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,205),0 : dot 6,21 : ink rgb(74,68,197),0 : dot 6,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,197),0 : dot 6,23 : ink rgb(49,56,172),0 : dot 6,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 6,25 : ink rgb(65,72,213),0 : dot 6,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 6,27 : ink rgb(65,68,213),0 : dot 6,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,197),0 : dot 6,29 : ink rgb(49,56,172),0 : dot 6,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,205),0 : dot 6,31 : ink rgb(65,64,189),0 : dot 7,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 7,1 : ink rgb(65,60,189),0 : dot 7,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,189),0 : dot 7,3 : ink rgb(65,68,222),0 : dot 7,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,164),0 : dot 7,5 : ink rgb(32,36,139),0 : dot 7,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 7,7 : ink rgb(49,52,164),0 : dot 7,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,148),0 : dot 7,9 : ink rgb(41,48,148),0 : dot 7,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 7,11 : ink rgb(49,44,172),0 : dot 7,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 7,13 : ink rgb(57,68,197),0 : dot 7,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 7,15 : ink rgb(49,52,164),0 : dot 7,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,89,222),0 : dot 7,17 : ink rgb(57,60,180),0 : dot 7,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,246),0 : dot 7,19 : ink rgb(98,93,255),0 : dot 7,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 7,21 : ink rgb(82,76,238),0 : dot 7,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 7,23 : ink rgb(65,68,189),0 : dot 7,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,180),0 : dot 7,25 : ink rgb(65,60,172),0 : dot 7,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 7,27 : ink rgb(65,68,230),0 : dot 7,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 7,29 : ink rgb(57,60,164),0 : dot 7,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,197),0 : dot 7,31 : ink rgb(57,52,180),0 : dot 8,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 8,1 : ink rgb(74,72,222),0 : dot 8,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,164),0 : dot 8,3 : ink rgb(57,60,189),0 : dot 8,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,164),0 : dot 8,5 : ink rgb(49,44,139),0 : dot 8,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,148),0 : dot 8,7 : ink rgb(74,72,172),0 : dot 8,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 8,9 : ink rgb(57,64,189),0 : dot 8,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 8,11 : ink rgb(57,52,172),0 : dot 8,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,148),0 : dot 8,13 : ink rgb(65,68,189),0 : dot 8,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 8,15 : ink rgb(57,60,172),0 : dot 8,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,238),0 : dot 8,17 : ink rgb(57,56,172),0 : dot 8,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 8,19 : ink rgb(82,85,238),0 : dot 8,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,197),0 : dot 8,21 : ink rgb(82,80,230),0 : dot 8,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,60,197),0 : dot 8,23 : ink rgb(74,72,205),0 : dot 8,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 8,25 : ink rgb(65,64,172),0 : dot 8,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 8,27 : ink rgb(82,80,238),0 : dot 8,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 8,29 : ink rgb(49,52,172),0 : dot 8,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 8,31 : ink rgb(65,60,197),0 : dot 9,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,213),0 : dot 9,1 : ink rgb(57,60,189),0 : dot 9,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,213),0 : dot 9,3 : ink rgb(49,52,189),0 : dot 9,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 9,5 : ink rgb(49,44,156),0 : dot 9,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,139),0 : dot 9,7 : ink rgb(41,48,164),0 : dot 9,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,180),0 : dot 9,9 : ink rgb(49,44,139),0 : dot 9,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 9,11 : ink rgb(65,68,197),0 : dot 9,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,164),0 : dot 9,13 : ink rgb(49,44,164),0 : dot 9,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 9,15 : ink rgb(49,52,197),0 : dot 9,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,68,213),0 : dot 9,17 : ink rgb(65,56,189),0 : dot 9,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 9,19 : ink rgb(90,85,238),0 : dot 9,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 9,21 : ink rgb(49,52,164),0 : dot 9,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 9,23 : ink rgb(74,68,213),0 : dot 9,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 9,25 : ink rgb(57,60,180),0 : dot 9,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,64,197),0 : dot 9,27 : ink rgb(74,76,238),0 : dot 9,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 9,29 : ink rgb(57,56,180),0 : dot 9,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 9,31 : ink rgb(57,60,180),0 : dot 10,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 10,1 : ink rgb(65,60,205),0 : dot 10,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,189),0 : dot 10,3 : ink rgb(41,44,148),0 : dot 10,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 10,5 : ink rgb(41,44,148),0 : dot 10,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,131),0 : dot 10,7 : ink rgb(57,52,164),0 : dot 10,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,180),0 : dot 10,9 : ink rgb(49,44,131),0 : dot 10,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,172),0 : dot 10,11 : ink rgb(57,60,189),0 : dot 10,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,48,148),0 : dot 10,13 : ink rgb(49,48,164),0 : dot 10,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 10,15 : ink rgb(57,56,180),0 : dot 10,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,238),0 : dot 10,17 : ink rgb(74,64,180),0 : dot 10,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,164),0 : dot 10,19 : ink rgb(65,60,164),0 : dot 10,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 10,21 : ink rgb(57,68,213),0 : dot 10,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 10,23 : ink rgb(82,76,230),0 : dot 10,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,213),0 : dot 10,25 : ink rgb(49,52,164),0 : dot 10,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 10,27 : ink rgb(90,89,238),0 : dot 10,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 10,29 : ink rgb(57,56,180),0 : dot 10,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 10,31 : ink rgb(57,60,197),0 : dot 11,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 11,1 : ink rgb(57,60,180),0 : dot 11,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 11,3 : ink rgb(57,64,205),0 : dot 11,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,197),0 : dot 11,5 : ink rgb(41,44,148),0 : dot 11,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,148),0 : dot 11,7 : ink rgb(57,52,139),0 : dot 11,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,180),0 : dot 11,9 : ink rgb(57,56,189),0 : dot 11,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,44,148),0 : dot 11,11 : ink rgb(57,60,205),0 : dot 11,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 11,13 : ink rgb(32,40,148),0 : dot 11,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,213),0 : dot 11,15 : ink rgb(57,60,197),0 : dot 11,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 11,17 : ink rgb(74,72,238),0 : dot 11,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 11,19 : ink rgb(57,56,172),0 : dot 11,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 11,21 : ink rgb(65,60,189),0 : dot 11,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 11,23 : ink rgb(74,68,222),0 : dot 11,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,197),0 : dot 11,25 : ink rgb(49,44,156),0 : dot 11,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 11,27 : ink rgb(82,80,246),0 : dot 11,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 11,29 : ink rgb(74,68,205),0 : dot 11,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 11,31 : ink rgb(65,68,205),0 : dot 12,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 12,1 : ink rgb(82,72,213),0 : dot 12,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 12,3 : ink rgb(74,72,205),0 : dot 12,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,44,164),0 : dot 12,5 : ink rgb(65,64,180),0 : dot 12,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(32,44,131),0 : dot 12,7 : ink rgb(65,68,205),0 : dot 12,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 12,9 : ink rgb(57,52,148),0 : dot 12,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 12,11 : ink rgb(57,52,189),0 : dot 12,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 12,13 : ink rgb(57,64,172),0 : dot 12,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,180),0 : dot 12,15 : ink rgb(65,76,238),0 : dot 12,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 12,17 : ink rgb(74,72,230),0 : dot 12,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,222),0 : dot 12,19 : ink rgb(57,56,180),0 : dot 12,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,197),0 : dot 12,21 : ink rgb(65,68,205),0 : dot 12,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 12,23 : ink rgb(49,52,172),0 : dot 12,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,205),0 : dot 12,25 : ink rgb(65,56,180),0 : dot 12,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,180),0 : dot 12,27 : ink rgb(74,68,230),0 : dot 12,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 12,29 : ink rgb(65,64,197),0 : dot 12,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 12,31 : ink rgb(65,64,205),0 : dot 13,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 13,1 : ink rgb(49,56,180),0 : dot 13,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 13,3 : ink rgb(57,56,189),0 : dot 13,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,180),0 : dot 13,5 : ink rgb(65,64,205),0 : dot 13,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,40,131),0 : dot 13,7 : ink rgb(49,52,164),0 : dot 13,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,197),0 : dot 13,9 : ink rgb(65,52,164),0 : dot 13,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 13,11 : ink rgb(49,52,180),0 : dot 13,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,189),0 : dot 13,13 : ink rgb(57,48,164),0 : dot 13,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 13,15 : ink rgb(65,72,222),0 : dot 13,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,246),0 : dot 13,17 : ink rgb(65,72,222),0 : dot 13,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,238),0 : dot 13,19 : ink rgb(65,68,205),0 : dot 13,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 13,21 : ink rgb(74,60,180),0 : dot 13,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 13,23 : ink rgb(49,52,180),0 : dot 13,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,230),0 : dot 13,25 : ink rgb(41,48,172),0 : dot 13,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,180),0 : dot 13,27 : ink rgb(65,68,205),0 : dot 13,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 13,29 : ink rgb(65,64,205),0 : dot 13,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 13,31 : ink rgb(65,64,197),0 : dot 14,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 14,1 : ink rgb(57,60,189),0 : dot 14,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 14,3 : ink rgb(74,68,213),0 : dot 14,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,222),0 : dot 14,5 : ink rgb(49,56,172),0 : dot 14,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,172),0 : dot 14,7 : ink rgb(65,60,164),0 : dot 14,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,164),0 : dot 14,9 : ink rgb(57,52,148),0 : dot 14,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 14,11 : ink rgb(41,48,172),0 : dot 14,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 14,13 : ink rgb(57,60,164),0 : dot 14,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 14,15 : ink rgb(65,68,213),0 : dot 14,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 14,17 : ink rgb(65,68,205),0 : dot 14,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 14,19 : ink rgb(74,68,205),0 : dot 14,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 14,21 : ink rgb(49,52,156),0 : dot 14,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,164),0 : dot 14,23 : ink rgb(65,68,197),0 : dot 14,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 14,25 : ink rgb(57,56,164),0 : dot 14,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 14,27 : ink rgb(65,72,213),0 : dot 14,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 14,29 : ink rgb(74,68,213),0 : dot 14,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,197),0 : dot 14,31 : ink rgb(74,76,230),0 : dot 15,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 15,1 : ink rgb(65,68,205),0 : dot 15,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,197),0 : dot 15,3 : ink rgb(65,68,205),0 : dot 15,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 15,5 : ink rgb(82,80,222),0 : dot 15,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,213),0 : dot 15,7 : ink rgb(65,56,156),0 : dot 15,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 15,9 : ink rgb(65,60,189),0 : dot 15,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 15,11 : ink rgb(49,44,139),0 : dot 15,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,205),0 : dot 15,13 : ink rgb(49,56,180),0 : dot 15,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,48,139),0 : dot 15,15 : ink rgb(65,68,213),0 : dot 15,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,246),0 : dot 15,17 : ink rgb(82,85,230),0 : dot 15,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 15,19 : ink rgb(65,72,238),0 : dot 15,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 15,21 : ink rgb(49,48,172),0 : dot 15,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,180),0 : dot 15,23 : ink rgb(74,80,222),0 : dot 15,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,48,156),0 : dot 15,25 : ink rgb(57,56,164),0 : dot 15,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,205),0 : dot 15,27 : ink rgb(65,64,205),0 : dot 15,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 15,29 : ink rgb(65,64,205),0 : dot 15,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 15,31 : ink rgb(74,76,230),0 : dot 16,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 16,1 : ink rgb(65,64,205),0 : dot 16,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 16,3 : ink rgb(74,68,205),0 : dot 16,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,172),0 : dot 16,5 : ink rgb(74,68,213),0 : dot 16,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 16,7 : ink rgb(57,60,180),0 : dot 16,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 16,9 : ink rgb(57,56,180),0 : dot 16,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 16,11 : ink rgb(57,56,164),0 : dot 16,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,156),0 : dot 16,13 : ink rgb(49,48,148),0 : dot 16,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 16,15 : ink rgb(65,64,180),0 : dot 16,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 16,17 : ink rgb(57,52,180),0 : dot 16,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 16,19 : ink rgb(82,85,238),0 : dot 16,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,213),0 : dot 16,21 : ink rgb(57,56,180),0 : dot 16,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,189),0 : dot 16,23 : ink rgb(65,64,205),0 : dot 16,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,148),0 : dot 16,25 : ink rgb(49,48,156),0 : dot 16,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,197),0 : dot 16,27 : ink rgb(74,72,222),0 : dot 16,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 16,29 : ink rgb(65,64,205),0 : dot 16,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 16,31 : ink rgb(65,72,213),0 : dot 17,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 17,1 : ink rgb(65,68,205),0 : dot 17,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 17,3 : ink rgb(74,72,222),0 : dot 17,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,56,189),0 : dot 17,5 : ink rgb(74,76,222),0 : dot 17,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 17,7 : ink rgb(57,64,189),0 : dot 17,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,164),0 : dot 17,9 : ink rgb(57,52,164),0 : dot 17,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,213),0 : dot 17,11 : ink rgb(57,60,189),0 : dot 17,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 17,13 : ink rgb(49,52,148),0 : dot 17,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 17,15 : ink rgb(65,60,189),0 : dot 17,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,205),0 : dot 17,17 : ink rgb(74,80,255),0 : dot 17,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,205),0 : dot 17,19 : ink rgb(82,76,238),0 : dot 17,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 17,21 : ink rgb(82,76,222),0 : dot 17,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 17,23 : ink rgb(49,48,180),0 : dot 17,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 17,25 : ink rgb(65,60,205),0 : dot 17,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,230),0 : dot 17,27 : ink rgb(57,68,222),0 : dot 17,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 17,29 : ink rgb(65,68,197),0 : dot 17,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,205),0 : dot 17,31 : ink rgb(65,64,205),0 : dot 18,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 18,1 : ink rgb(74,72,230),0 : dot 18,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 18,3 : ink rgb(65,76,230),0 : dot 18,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 18,5 : ink rgb(65,68,222),0 : dot 18,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,72,238),0 : dot 18,7 : ink rgb(57,56,189),0 : dot 18,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 18,9 : ink rgb(49,48,164),0 : dot 18,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,205),0 : dot 18,11 : ink rgb(57,60,189),0 : dot 18,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,189),0 : dot 18,13 : ink rgb(41,44,148),0 : dot 18,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,180),0 : dot 18,15 : ink rgb(74,64,205),0 : dot 18,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 18,17 : ink rgb(74,80,222),0 : dot 18,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 18,19 : ink rgb(82,85,238),0 : dot 18,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,213),0 : dot 18,21 : ink rgb(57,60,197),0 : dot 18,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 18,23 : ink rgb(57,60,205),0 : dot 18,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 18,25 : ink rgb(57,60,189),0 : dot 18,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 18,27 : ink rgb(74,80,246),0 : dot 18,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 18,29 : ink rgb(82,80,230),0 : dot 18,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 18,31 : ink rgb(65,68,197),0 : dot 19,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,246),0 : dot 19,1 : ink rgb(65,72,222),0 : dot 19,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 19,3 : ink rgb(65,68,222),0 : dot 19,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 19,5 : ink rgb(57,56,172),0 : dot 19,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,246),0 : dot 19,7 : ink rgb(57,56,172),0 : dot 19,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 19,9 : ink rgb(49,52,172),0 : dot 19,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,172),0 : dot 19,11 : ink rgb(74,80,230),0 : dot 19,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 19,13 : ink rgb(32,36,139),0 : dot 19,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 19,15 : ink rgb(57,64,180),0 : dot 19,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 19,17 : ink rgb(82,93,255),0 : dot 19,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 19,19 : ink rgb(65,68,230),0 : dot 19,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,222),0 : dot 19,21 : ink rgb(65,64,197),0 : dot 19,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 19,23 : ink rgb(57,60,189),0 : dot 19,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 19,25 : ink rgb(65,68,197),0 : dot 19,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 19,27 : ink rgb(65,72,213),0 : dot 19,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 19,29 : ink rgb(74,72,213),0 : dot 19,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 19,31 : ink rgb(65,64,205),0 : dot 20,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 20,1 : ink rgb(82,80,255),0 : dot 20,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 20,3 : ink rgb(65,68,197),0 : dot 20,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,213),0 : dot 20,5 : ink rgb(57,60,180),0 : dot 20,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,238),0 : dot 20,7 : ink rgb(57,48,164),0 : dot 20,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,197),0 : dot 20,9 : ink rgb(57,56,180),0 : dot 20,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 20,11 : ink rgb(57,64,189),0 : dot 20,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 20,13 : ink rgb(57,52,172),0 : dot 20,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,148),0 : dot 20,15 : ink rgb(57,56,172),0 : dot 20,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 20,17 : ink rgb(82,85,222),0 : dot 20,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,180),0 : dot 20,19 : ink rgb(74,72,230),0 : dot 20,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 20,21 : ink rgb(74,76,238),0 : dot 20,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,189),0 : dot 20,23 : ink rgb(57,60,197),0 : dot 20,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 20,25 : ink rgb(57,60,197),0 : dot 20,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 20,27 : ink rgb(65,68,222),0 : dot 20,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 20,29 : ink rgb(65,72,222),0 : dot 20,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 20,31 : ink rgb(57,64,197),0 : dot 21,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,213),0 : dot 21,1 : ink rgb(65,76,213),0 : dot 21,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,68,205),0 : dot 21,3 : ink rgb(74,72,213),0 : dot 21,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,89,230),0 : dot 21,5 : ink rgb(57,60,164),0 : dot 21,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 21,7 : ink rgb(74,80,238),0 : dot 21,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 21,9 : ink rgb(57,60,197),0 : dot 21,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,60,180),0 : dot 21,11 : ink rgb(57,60,189),0 : dot 21,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,222),0 : dot 21,13 : ink rgb(49,52,164),0 : dot 21,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 21,15 : ink rgb(65,64,189),0 : dot 21,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,164),0 : dot 21,17 : ink rgb(82,76,213),0 : dot 21,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,180),0 : dot 21,19 : ink rgb(74,80,238),0 : dot 21,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 21,21 : ink rgb(74,76,238),0 : dot 21,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 21,23 : ink rgb(65,64,197),0 : dot 21,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 21,25 : ink rgb(65,72,222),0 : dot 21,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 21,27 : ink rgb(74,80,222),0 : dot 21,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,230),0 : dot 21,29 : ink rgb(82,85,246),0 : dot 21,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 21,31 : ink rgb(57,68,222),0 : dot 22,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 22,1 : ink rgb(74,64,205),0 : dot 22,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,85,238),0 : dot 22,3 : ink rgb(82,80,246),0 : dot 22,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,89,255),0 : dot 22,5 : ink rgb(82,68,222),0 : dot 22,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 22,7 : ink rgb(65,72,197),0 : dot 22,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 22,9 : ink rgb(57,56,180),0 : dot 22,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,189),0 : dot 22,11 : ink rgb(49,52,172),0 : dot 22,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,205),0 : dot 22,13 : ink rgb(57,56,197),0 : dot 22,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,189),0 : dot 22,15 : ink rgb(65,60,197),0 : dot 22,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 22,17 : ink rgb(65,64,197),0 : dot 22,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,148),0 : dot 22,19 : ink rgb(74,76,238),0 : dot 22,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 22,21 : ink rgb(74,68,205),0 : dot 22,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 22,23 : ink rgb(49,56,180),0 : dot 22,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 22,25 : ink rgb(74,80,230),0 : dot 22,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 22,27 : ink rgb(74,80,238),0 : dot 22,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 22,29 : ink rgb(82,85,246),0 : dot 22,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 22,31 : ink rgb(65,68,213),0 : dot 23,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 23,1 : ink rgb(65,68,213),0 : dot 23,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,255),0 : dot 23,3 : ink rgb(49,48,156),0 : dot 23,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 23,5 : ink rgb(82,72,222),0 : dot 23,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 23,7 : ink rgb(41,52,172),0 : dot 23,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,76,222),0 : dot 23,9 : ink rgb(57,60,180),0 : dot 23,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 23,11 : ink rgb(57,64,180),0 : dot 23,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 23,13 : ink rgb(57,60,189),0 : dot 23,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,164),0 : dot 23,15 : ink rgb(57,56,189),0 : dot 23,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 23,17 : ink rgb(57,52,172),0 : dot 23,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 23,19 : ink rgb(74,76,238),0 : dot 23,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 23,21 : ink rgb(74,80,230),0 : dot 23,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,180),0 : dot 23,23 : ink rgb(49,48,164),0 : dot 23,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 23,25 : ink rgb(57,64,205),0 : dot 23,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,230),0 : dot 23,27 : ink rgb(65,68,213),0 : dot 23,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,76,222),0 : dot 23,29 : ink rgb(82,85,246),0 : dot 23,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 23,31 : ink rgb(74,72,222),0 : dot 24,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,56,197),0 : dot 24,1 : ink rgb(49,56,180),0 : dot 24,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,230),0 : dot 24,3 : ink rgb(74,76,230),0 : dot 24,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,189),0 : dot 24,5 : ink rgb(65,72,213),0 : dot 24,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 24,7 : ink rgb(74,72,205),0 : dot 24,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 24,9 : ink rgb(57,56,172),0 : dot 24,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 24,11 : ink rgb(41,48,164),0 : dot 24,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,180),0 : dot 24,13 : ink rgb(49,52,180),0 : dot 24,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 24,15 : ink rgb(49,52,172),0 : dot 24,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 24,17 : ink rgb(57,52,172),0 : dot 24,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 24,19 : ink rgb(82,80,238),0 : dot 24,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,60,172),0 : dot 24,21 : ink rgb(57,56,189),0 : dot 24,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 24,23 : ink rgb(74,60,197),0 : dot 24,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 24,25 : ink rgb(65,64,197),0 : dot 24,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,205),0 : dot 24,27 : ink rgb(65,72,197),0 : dot 24,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 24,29 : ink rgb(74,80,213),0 : dot 24,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 24,31 : ink rgb(65,72,230),0 : dot 25,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,213),0 : dot 25,1 : ink rgb(57,60,197),0 : dot 25,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 25,3 : ink rgb(74,64,189),0 : dot 25,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,189),0 : dot 25,5 : ink rgb(65,68,222),0 : dot 25,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,197),0 : dot 25,7 : ink rgb(49,48,172),0 : dot 25,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,172),0 : dot 25,9 : ink rgb(74,72,222),0 : dot 25,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 25,11 : ink rgb(57,52,172),0 : dot 25,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 25,13 : ink rgb(57,60,197),0 : dot 25,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 25,15 : ink rgb(57,56,172),0 : dot 25,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 25,17 : ink rgb(57,52,172),0 : dot 25,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 25,19 : ink rgb(57,56,172),0 : dot 25,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 25,21 : ink rgb(49,44,148),0 : dot 25,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 25,23 : ink rgb(49,48,180),0 : dot 25,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,156),0 : dot 25,25 : ink rgb(65,60,189),0 : dot 25,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,76,222),0 : dot 25,27 : ink rgb(57,64,180),0 : dot 25,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,238),0 : dot 25,29 : ink rgb(90,85,238),0 : dot 25,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 25,31 : ink rgb(82,76,222),0 : dot 26,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 26,1 : ink rgb(65,68,213),0 : dot 26,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 26,3 : ink rgb(74,76,213),0 : dot 26,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,189),0 : dot 26,5 : ink rgb(49,52,172),0 : dot 26,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,213),0 : dot 26,7 : ink rgb(49,44,148),0 : dot 26,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,48,148),0 : dot 26,9 : ink rgb(74,68,197),0 : dot 26,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 26,11 : ink rgb(49,48,164),0 : dot 26,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,156),0 : dot 26,13 : ink rgb(57,60,180),0 : dot 26,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 26,15 : ink rgb(49,52,172),0 : dot 26,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 26,17 : ink rgb(57,64,197),0 : dot 26,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 26,19 : ink rgb(74,64,222),0 : dot 26,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 26,21 : ink rgb(57,60,180),0 : dot 26,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,148),0 : dot 26,23 : ink rgb(57,48,164),0 : dot 26,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,189),0 : dot 26,25 : ink rgb(49,52,172),0 : dot 26,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,205),0 : dot 26,27 : ink rgb(57,64,197),0 : dot 26,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 26,29 : ink rgb(82,85,246),0 : dot 26,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 26,31 : ink rgb(57,60,197),0 : dot 27,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 27,1 : ink rgb(65,64,197),0 : dot 27,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 27,3 : ink rgb(65,64,197),0 : dot 27,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,205),0 : dot 27,5 : ink rgb(57,56,172),0 : dot 27,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 27,7 : ink rgb(82,80,246),0 : dot 27,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,44,139),0 : dot 27,9 : ink rgb(49,48,164),0 : dot 27,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,222),0 : dot 27,11 : ink rgb(57,48,180),0 : dot 27,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 27,13 : ink rgb(74,72,205),0 : dot 27,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 27,15 : ink rgb(57,56,172),0 : dot 27,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 27,17 : ink rgb(57,60,189),0 : dot 27,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 27,19 : ink rgb(49,56,180),0 : dot 27,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 27,21 : ink rgb(74,68,205),0 : dot 27,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,40,139),0 : dot 27,23 : ink rgb(57,56,172),0 : dot 27,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 27,25 : ink rgb(57,60,197),0 : dot 27,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 27,27 : ink rgb(65,68,222),0 : dot 27,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 27,29 : ink rgb(65,68,213),0 : dot 27,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,189),0 : dot 27,31 : ink rgb(74,76,230),0 : dot 28,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 28,1 : ink rgb(74,76,230),0 : dot 28,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,197),0 : dot 28,3 : ink rgb(57,56,180),0 : dot 28,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 28,5 : ink rgb(49,52,189),0 : dot 28,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,164),0 : dot 28,7 : ink rgb(74,76,230),0 : dot 28,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 28,9 : ink rgb(49,44,148),0 : dot 28,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,205),0 : dot 28,11 : ink rgb(57,68,197),0 : dot 28,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 28,13 : ink rgb(65,64,197),0 : dot 28,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,180),0 : dot 28,15 : ink rgb(57,60,172),0 : dot 28,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 28,17 : ink rgb(57,64,197),0 : dot 28,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 28,19 : ink rgb(57,60,189),0 : dot 28,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 28,21 : ink rgb(57,52,180),0 : dot 28,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,156),0 : dot 28,23 : ink rgb(49,56,172),0 : dot 28,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 28,25 : ink rgb(57,64,205),0 : dot 28,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 28,27 : ink rgb(65,64,197),0 : dot 28,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 28,29 : ink rgb(74,76,222),0 : dot 28,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 28,31 : ink rgb(65,68,205),0 : dot 29,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,230),0 : dot 29,1 : ink rgb(74,76,222),0 : dot 29,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 29,3 : ink rgb(65,64,180),0 : dot 29,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 29,5 : ink rgb(65,68,197),0 : dot 29,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 29,7 : ink rgb(65,64,197),0 : dot 29,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 29,9 : ink rgb(49,52,164),0 : dot 29,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 29,11 : ink rgb(74,72,222),0 : dot 29,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 29,13 : ink rgb(65,64,197),0 : dot 29,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 29,15 : ink rgb(57,52,172),0 : dot 29,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,197),0 : dot 29,17 : ink rgb(65,68,213),0 : dot 29,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 29,19 : ink rgb(74,76,213),0 : dot 29,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 29,21 : ink rgb(57,60,189),0 : dot 29,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 29,23 : ink rgb(74,72,205),0 : dot 29,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 29,25 : ink rgb(57,64,205),0 : dot 29,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,230),0 : dot 29,27 : ink rgb(74,68,213),0 : dot 29,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 29,29 : ink rgb(65,64,205),0 : dot 29,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 29,31 : ink rgb(65,72,222),0 : dot 30,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 30,1 : ink rgb(57,56,180),0 : dot 30,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 30,3 : ink rgb(65,64,189),0 : dot 30,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 30,5 : ink rgb(74,68,197),0 : dot 30,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 30,7 : ink rgb(74,76,230),0 : dot 30,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 30,9 : ink rgb(57,56,189),0 : dot 30,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 30,11 : ink rgb(65,64,189),0 : dot 30,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 30,13 : ink rgb(57,60,205),0 : dot 30,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,205),0 : dot 30,15 : ink rgb(57,60,189),0 : dot 30,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 30,17 : ink rgb(65,68,213),0 : dot 30,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 30,19 : ink rgb(65,68,205),0 : dot 30,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 30,21 : ink rgb(57,52,189),0 : dot 30,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 30,23 : ink rgb(65,64,213),0 : dot 30,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 30,25 : ink rgb(74,76,222),0 : dot 30,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,230),0 : dot 30,27 : ink rgb(65,68,213),0 : dot 30,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 30,29 : ink rgb(57,56,180),0 : dot 30,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 30,31 : ink rgb(65,68,222),0 : dot 31,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 31,1 : ink rgb(57,60,189),0 : dot 31,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 31,3 : ink rgb(65,64,197),0 : dot 31,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,222),0 : dot 31,5 : ink rgb(57,56,189),0 : dot 31,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 31,7 : ink rgb(49,48,164),0 : dot 31,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,156),0 : dot 31,9 : ink rgb(74,68,197),0 : dot 31,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 31,11 : ink rgb(57,64,189),0 : dot 31,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 31,13 : ink rgb(65,68,197),0 : dot 31,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 31,15 : ink rgb(65,72,213),0 : dot 31,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 31,17 : ink rgb(65,76,222),0 : dot 31,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 31,19 : ink rgb(57,60,197),0 : dot 31,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 31,21 : ink rgb(49,48,164),0 : dot 31,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 31,23 : ink rgb(57,64,197),0 : dot 31,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 31,25 : ink rgb(65,68,213),0 : dot 31,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,238),0 : dot 31,27 : ink rgb(65,64,205),0 : dot 31,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 31,29 : ink rgb(82,80,205),0 : dot 31,30
ink rgb(82,80,205),0 : dot 31,31
get image 10,0,0,32,32,0

return

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype


gosub make_water_image


`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(1) as tship
setupShip(1,400,100,100,0.78,50,20,100,landsize/2,0,landsize/2)
createShips()
`=====================================================



`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `camera
   controlCamera()


   `control land
   controlScene()

   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=10
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=10

   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
scale object texture wobj,tiles,tiles
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShips()
local num as integer : num=array count(ship())
for n=1 to num
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
next n
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
`=====================================================
`=====================================================

make_water_image:
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,222),0 : dot 0,1 : ink rgb(65,64,189),0 : dot 0,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 0,3 : ink rgb(65,64,197),0 : dot 0,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 0,5 : ink rgb(57,60,180),0 : dot 0,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 0,7 : ink rgb(49,48,148),0 : dot 0,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 0,9 : ink rgb(65,72,197),0 : dot 0,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 0,11 : ink rgb(57,60,180),0 : dot 0,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 0,13 : ink rgb(57,56,189),0 : dot 0,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 0,15 : ink rgb(57,64,205),0 : dot 0,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 0,17 : ink rgb(65,72,230),0 : dot 0,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 0,19 : ink rgb(74,72,222),0 : dot 0,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,213),0 : dot 0,21 : ink rgb(49,52,172),0 : dot 0,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,213),0 : dot 0,23 : ink rgb(57,60,205),0 : dot 0,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 0,25 : ink rgb(57,60,205),0 : dot 0,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,230),0 : dot 0,27 : ink rgb(65,68,197),0 : dot 0,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 0,29 : ink rgb(74,76,222),0 : dot 0,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 0,31 : ink rgb(74,72,222),0 : dot 1,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 1,1 : ink rgb(65,60,197),0 : dot 1,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 1,3 : ink rgb(65,64,213),0 : dot 1,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 1,5 : ink rgb(49,52,172),0 : dot 1,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 1,7 : ink rgb(65,68,222),0 : dot 1,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,156),0 : dot 1,9 : ink rgb(49,48,164),0 : dot 1,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 1,11 : ink rgb(49,52,172),0 : dot 1,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 1,13 : ink rgb(65,60,197),0 : dot 1,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 1,15 : ink rgb(57,60,205),0 : dot 1,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 1,17 : ink rgb(74,76,238),0 : dot 1,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 1,19 : ink rgb(74,76,222),0 : dot 1,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 1,21 : ink rgb(65,56,180),0 : dot 1,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 1,23 : ink rgb(57,64,205),0 : dot 1,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 1,25 : ink rgb(57,60,197),0 : dot 1,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 1,27 : ink rgb(74,76,222),0 : dot 1,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 1,29 : ink rgb(65,64,189),0 : dot 1,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 1,31 : ink rgb(65,68,213),0 : dot 2,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,230),0 : dot 2,1 : ink rgb(74,76,230),0 : dot 2,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 2,3 : ink rgb(49,56,180),0 : dot 2,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,56,180),0 : dot 2,5 : ink rgb(49,48,156),0 : dot 2,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 2,7 : ink rgb(74,68,205),0 : dot 2,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 2,9 : ink rgb(41,40,139),0 : dot 2,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,213),0 : dot 2,11 : ink rgb(57,56,180),0 : dot 2,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 2,13 : ink rgb(57,56,189),0 : dot 2,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 2,15 : ink rgb(49,56,180),0 : dot 2,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,213),0 : dot 2,17 : ink rgb(65,76,230),0 : dot 2,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,222),0 : dot 2,19 : ink rgb(57,64,189),0 : dot 2,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 2,21 : ink rgb(57,56,180),0 : dot 2,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 2,23 : ink rgb(57,72,222),0 : dot 2,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 2,25 : ink rgb(49,56,189),0 : dot 2,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 2,27 : ink rgb(65,68,222),0 : dot 2,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 2,29 : ink rgb(74,68,197),0 : dot 2,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 2,31 : ink rgb(74,72,222),0 : dot 3,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 3,1 : ink rgb(74,76,230),0 : dot 3,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 3,3 : ink rgb(65,68,197),0 : dot 3,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,56,197),0 : dot 3,5 : ink rgb(57,60,180),0 : dot 3,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 3,7 : ink rgb(74,68,197),0 : dot 3,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 3,9 : ink rgb(57,60,172),0 : dot 3,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 3,11 : ink rgb(65,64,189),0 : dot 3,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 3,13 : ink rgb(49,56,180),0 : dot 3,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,213),0 : dot 3,15 : ink rgb(49,60,189),0 : dot 3,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 3,17 : ink rgb(65,76,230),0 : dot 3,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,238),0 : dot 3,19 : ink rgb(82,80,238),0 : dot 3,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,197),0 : dot 3,21 : ink rgb(65,72,213),0 : dot 3,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 3,23 : ink rgb(57,64,197),0 : dot 3,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 3,25 : ink rgb(49,60,189),0 : dot 3,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 3,27 : ink rgb(74,76,222),0 : dot 3,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,180),0 : dot 3,29 : ink rgb(57,60,180),0 : dot 3,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 3,31 : ink rgb(57,64,205),0 : dot 4,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,213),0 : dot 4,1 : ink rgb(57,56,180),0 : dot 4,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 4,3 : ink rgb(49,48,164),0 : dot 4,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,180),0 : dot 4,5 : ink rgb(49,52,172),0 : dot 4,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,156),0 : dot 4,7 : ink rgb(57,68,213),0 : dot 4,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 4,9 : ink rgb(41,44,172),0 : dot 4,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,164),0 : dot 4,11 : ink rgb(74,72,222),0 : dot 4,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 4,13 : ink rgb(49,52,172),0 : dot 4,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,222),0 : dot 4,15 : ink rgb(74,72,213),0 : dot 4,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 4,17 : ink rgb(65,72,222),0 : dot 4,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,238),0 : dot 4,19 : ink rgb(74,85,238),0 : dot 4,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,213),0 : dot 4,21 : ink rgb(74,72,222),0 : dot 4,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 4,23 : ink rgb(57,60,197),0 : dot 4,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 4,25 : ink rgb(57,60,189),0 : dot 4,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,238),0 : dot 4,27 : ink rgb(74,76,230),0 : dot 4,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 4,29 : ink rgb(65,64,189),0 : dot 4,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 4,31 : ink rgb(82,76,230),0 : dot 5,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 5,1 : ink rgb(65,68,189),0 : dot 5,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,172),0 : dot 5,3 : ink rgb(65,60,189),0 : dot 5,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,222),0 : dot 5,5 : ink rgb(49,52,189),0 : dot 5,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,172),0 : dot 5,7 : ink rgb(57,60,189),0 : dot 5,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,180),0 : dot 5,9 : ink rgb(74,68,180),0 : dot 5,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,139),0 : dot 5,11 : ink rgb(57,56,172),0 : dot 5,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 5,13 : ink rgb(57,52,172),0 : dot 5,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,213),0 : dot 5,15 : ink rgb(57,64,205),0 : dot 5,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 5,17 : ink rgb(49,56,180),0 : dot 5,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(90,93,255),0 : dot 5,19 : ink rgb(82,85,246),0 : dot 5,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,85,246),0 : dot 5,21 : ink rgb(74,76,222),0 : dot 5,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 5,23 : ink rgb(65,56,180),0 : dot 5,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 5,25 : ink rgb(82,72,213),0 : dot 5,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 5,27 : ink rgb(65,64,205),0 : dot 5,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 5,29 : ink rgb(57,64,189),0 : dot 5,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 5,31 : ink rgb(57,64,189),0 : dot 6,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 6,1 : ink rgb(74,72,205),0 : dot 6,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 6,3 : ink rgb(57,56,180),0 : dot 6,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 6,5 : ink rgb(74,68,197),0 : dot 6,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,230),0 : dot 6,7 : ink rgb(49,44,131),0 : dot 6,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,76,189),0 : dot 6,9 : ink rgb(49,48,164),0 : dot 6,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,148),0 : dot 6,11 : ink rgb(49,52,172),0 : dot 6,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 6,13 : ink rgb(49,52,172),0 : dot 6,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 6,15 : ink rgb(74,68,197),0 : dot 6,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,205),0 : dot 6,17 : ink rgb(49,52,164),0 : dot 6,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(90,89,255),0 : dot 6,19 : ink rgb(82,97,255),0 : dot 6,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,205),0 : dot 6,21 : ink rgb(74,68,197),0 : dot 6,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,197),0 : dot 6,23 : ink rgb(49,56,172),0 : dot 6,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 6,25 : ink rgb(65,72,213),0 : dot 6,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 6,27 : ink rgb(65,68,213),0 : dot 6,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,197),0 : dot 6,29 : ink rgb(49,56,172),0 : dot 6,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,205),0 : dot 6,31 : ink rgb(65,64,189),0 : dot 7,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 7,1 : ink rgb(65,60,189),0 : dot 7,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,189),0 : dot 7,3 : ink rgb(65,68,222),0 : dot 7,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,164),0 : dot 7,5 : ink rgb(32,36,139),0 : dot 7,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 7,7 : ink rgb(49,52,164),0 : dot 7,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,148),0 : dot 7,9 : ink rgb(41,48,148),0 : dot 7,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 7,11 : ink rgb(49,44,172),0 : dot 7,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 7,13 : ink rgb(57,68,197),0 : dot 7,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 7,15 : ink rgb(49,52,164),0 : dot 7,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,89,222),0 : dot 7,17 : ink rgb(57,60,180),0 : dot 7,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,246),0 : dot 7,19 : ink rgb(98,93,255),0 : dot 7,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 7,21 : ink rgb(82,76,238),0 : dot 7,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 7,23 : ink rgb(65,68,189),0 : dot 7,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,180),0 : dot 7,25 : ink rgb(65,60,172),0 : dot 7,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 7,27 : ink rgb(65,68,230),0 : dot 7,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 7,29 : ink rgb(57,60,164),0 : dot 7,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,197),0 : dot 7,31 : ink rgb(57,52,180),0 : dot 8,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 8,1 : ink rgb(74,72,222),0 : dot 8,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,164),0 : dot 8,3 : ink rgb(57,60,189),0 : dot 8,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,164),0 : dot 8,5 : ink rgb(49,44,139),0 : dot 8,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,148),0 : dot 8,7 : ink rgb(74,72,172),0 : dot 8,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 8,9 : ink rgb(57,64,189),0 : dot 8,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 8,11 : ink rgb(57,52,172),0 : dot 8,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,148),0 : dot 8,13 : ink rgb(65,68,189),0 : dot 8,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 8,15 : ink rgb(57,60,172),0 : dot 8,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,238),0 : dot 8,17 : ink rgb(57,56,172),0 : dot 8,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 8,19 : ink rgb(82,85,238),0 : dot 8,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,197),0 : dot 8,21 : ink rgb(82,80,230),0 : dot 8,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,60,197),0 : dot 8,23 : ink rgb(74,72,205),0 : dot 8,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 8,25 : ink rgb(65,64,172),0 : dot 8,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 8,27 : ink rgb(82,80,238),0 : dot 8,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 8,29 : ink rgb(49,52,172),0 : dot 8,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 8,31 : ink rgb(65,60,197),0 : dot 9,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,213),0 : dot 9,1 : ink rgb(57,60,189),0 : dot 9,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,213),0 : dot 9,3 : ink rgb(49,52,189),0 : dot 9,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 9,5 : ink rgb(49,44,156),0 : dot 9,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,139),0 : dot 9,7 : ink rgb(41,48,164),0 : dot 9,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,180),0 : dot 9,9 : ink rgb(49,44,139),0 : dot 9,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 9,11 : ink rgb(65,68,197),0 : dot 9,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,164),0 : dot 9,13 : ink rgb(49,44,164),0 : dot 9,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 9,15 : ink rgb(49,52,197),0 : dot 9,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,68,213),0 : dot 9,17 : ink rgb(65,56,189),0 : dot 9,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 9,19 : ink rgb(90,85,238),0 : dot 9,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 9,21 : ink rgb(49,52,164),0 : dot 9,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 9,23 : ink rgb(74,68,213),0 : dot 9,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 9,25 : ink rgb(57,60,180),0 : dot 9,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,64,197),0 : dot 9,27 : ink rgb(74,76,238),0 : dot 9,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 9,29 : ink rgb(57,56,180),0 : dot 9,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 9,31 : ink rgb(57,60,180),0 : dot 10,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 10,1 : ink rgb(65,60,205),0 : dot 10,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,189),0 : dot 10,3 : ink rgb(41,44,148),0 : dot 10,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 10,5 : ink rgb(41,44,148),0 : dot 10,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,131),0 : dot 10,7 : ink rgb(57,52,164),0 : dot 10,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,180),0 : dot 10,9 : ink rgb(49,44,131),0 : dot 10,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,172),0 : dot 10,11 : ink rgb(57,60,189),0 : dot 10,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,48,148),0 : dot 10,13 : ink rgb(49,48,164),0 : dot 10,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 10,15 : ink rgb(57,56,180),0 : dot 10,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,238),0 : dot 10,17 : ink rgb(74,64,180),0 : dot 10,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,164),0 : dot 10,19 : ink rgb(65,60,164),0 : dot 10,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 10,21 : ink rgb(57,68,213),0 : dot 10,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 10,23 : ink rgb(82,76,230),0 : dot 10,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,213),0 : dot 10,25 : ink rgb(49,52,164),0 : dot 10,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 10,27 : ink rgb(90,89,238),0 : dot 10,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 10,29 : ink rgb(57,56,180),0 : dot 10,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 10,31 : ink rgb(57,60,197),0 : dot 11,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 11,1 : ink rgb(57,60,180),0 : dot 11,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 11,3 : ink rgb(57,64,205),0 : dot 11,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,197),0 : dot 11,5 : ink rgb(41,44,148),0 : dot 11,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,148),0 : dot 11,7 : ink rgb(57,52,139),0 : dot 11,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,180),0 : dot 11,9 : ink rgb(57,56,189),0 : dot 11,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,44,148),0 : dot 11,11 : ink rgb(57,60,205),0 : dot 11,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 11,13 : ink rgb(32,40,148),0 : dot 11,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,213),0 : dot 11,15 : ink rgb(57,60,197),0 : dot 11,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 11,17 : ink rgb(74,72,238),0 : dot 11,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 11,19 : ink rgb(57,56,172),0 : dot 11,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 11,21 : ink rgb(65,60,189),0 : dot 11,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 11,23 : ink rgb(74,68,222),0 : dot 11,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,197),0 : dot 11,25 : ink rgb(49,44,156),0 : dot 11,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 11,27 : ink rgb(82,80,246),0 : dot 11,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 11,29 : ink rgb(74,68,205),0 : dot 11,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 11,31 : ink rgb(65,68,205),0 : dot 12,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 12,1 : ink rgb(82,72,213),0 : dot 12,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 12,3 : ink rgb(74,72,205),0 : dot 12,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,44,164),0 : dot 12,5 : ink rgb(65,64,180),0 : dot 12,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(32,44,131),0 : dot 12,7 : ink rgb(65,68,205),0 : dot 12,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 12,9 : ink rgb(57,52,148),0 : dot 12,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 12,11 : ink rgb(57,52,189),0 : dot 12,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 12,13 : ink rgb(57,64,172),0 : dot 12,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,180),0 : dot 12,15 : ink rgb(65,76,238),0 : dot 12,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 12,17 : ink rgb(74,72,230),0 : dot 12,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,222),0 : dot 12,19 : ink rgb(57,56,180),0 : dot 12,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,197),0 : dot 12,21 : ink rgb(65,68,205),0 : dot 12,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 12,23 : ink rgb(49,52,172),0 : dot 12,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,205),0 : dot 12,25 : ink rgb(65,56,180),0 : dot 12,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,180),0 : dot 12,27 : ink rgb(74,68,230),0 : dot 12,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 12,29 : ink rgb(65,64,197),0 : dot 12,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 12,31 : ink rgb(65,64,205),0 : dot 13,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 13,1 : ink rgb(49,56,180),0 : dot 13,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 13,3 : ink rgb(57,56,189),0 : dot 13,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,180),0 : dot 13,5 : ink rgb(65,64,205),0 : dot 13,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,40,131),0 : dot 13,7 : ink rgb(49,52,164),0 : dot 13,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,197),0 : dot 13,9 : ink rgb(65,52,164),0 : dot 13,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 13,11 : ink rgb(49,52,180),0 : dot 13,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,189),0 : dot 13,13 : ink rgb(57,48,164),0 : dot 13,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 13,15 : ink rgb(65,72,222),0 : dot 13,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,246),0 : dot 13,17 : ink rgb(65,72,222),0 : dot 13,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,238),0 : dot 13,19 : ink rgb(65,68,205),0 : dot 13,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 13,21 : ink rgb(74,60,180),0 : dot 13,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 13,23 : ink rgb(49,52,180),0 : dot 13,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,230),0 : dot 13,25 : ink rgb(41,48,172),0 : dot 13,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,180),0 : dot 13,27 : ink rgb(65,68,205),0 : dot 13,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 13,29 : ink rgb(65,64,205),0 : dot 13,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 13,31 : ink rgb(65,64,197),0 : dot 14,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 14,1 : ink rgb(57,60,189),0 : dot 14,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 14,3 : ink rgb(74,68,213),0 : dot 14,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,222),0 : dot 14,5 : ink rgb(49,56,172),0 : dot 14,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,172),0 : dot 14,7 : ink rgb(65,60,164),0 : dot 14,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,164),0 : dot 14,9 : ink rgb(57,52,148),0 : dot 14,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 14,11 : ink rgb(41,48,172),0 : dot 14,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 14,13 : ink rgb(57,60,164),0 : dot 14,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 14,15 : ink rgb(65,68,213),0 : dot 14,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 14,17 : ink rgb(65,68,205),0 : dot 14,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 14,19 : ink rgb(74,68,205),0 : dot 14,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 14,21 : ink rgb(49,52,156),0 : dot 14,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,164),0 : dot 14,23 : ink rgb(65,68,197),0 : dot 14,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 14,25 : ink rgb(57,56,164),0 : dot 14,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 14,27 : ink rgb(65,72,213),0 : dot 14,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 14,29 : ink rgb(74,68,213),0 : dot 14,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,197),0 : dot 14,31 : ink rgb(74,76,230),0 : dot 15,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 15,1 : ink rgb(65,68,205),0 : dot 15,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,197),0 : dot 15,3 : ink rgb(65,68,205),0 : dot 15,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 15,5 : ink rgb(82,80,222),0 : dot 15,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,213),0 : dot 15,7 : ink rgb(65,56,156),0 : dot 15,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 15,9 : ink rgb(65,60,189),0 : dot 15,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 15,11 : ink rgb(49,44,139),0 : dot 15,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,205),0 : dot 15,13 : ink rgb(49,56,180),0 : dot 15,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,48,139),0 : dot 15,15 : ink rgb(65,68,213),0 : dot 15,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,246),0 : dot 15,17 : ink rgb(82,85,230),0 : dot 15,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 15,19 : ink rgb(65,72,238),0 : dot 15,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 15,21 : ink rgb(49,48,172),0 : dot 15,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,180),0 : dot 15,23 : ink rgb(74,80,222),0 : dot 15,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,48,156),0 : dot 15,25 : ink rgb(57,56,164),0 : dot 15,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,205),0 : dot 15,27 : ink rgb(65,64,205),0 : dot 15,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 15,29 : ink rgb(65,64,205),0 : dot 15,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 15,31 : ink rgb(74,76,230),0 : dot 16,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 16,1 : ink rgb(65,64,205),0 : dot 16,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 16,3 : ink rgb(74,68,205),0 : dot 16,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,172),0 : dot 16,5 : ink rgb(74,68,213),0 : dot 16,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 16,7 : ink rgb(57,60,180),0 : dot 16,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 16,9 : ink rgb(57,56,180),0 : dot 16,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 16,11 : ink rgb(57,56,164),0 : dot 16,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,156),0 : dot 16,13 : ink rgb(49,48,148),0 : dot 16,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 16,15 : ink rgb(65,64,180),0 : dot 16,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 16,17 : ink rgb(57,52,180),0 : dot 16,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 16,19 : ink rgb(82,85,238),0 : dot 16,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,213),0 : dot 16,21 : ink rgb(57,56,180),0 : dot 16,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,189),0 : dot 16,23 : ink rgb(65,64,205),0 : dot 16,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,148),0 : dot 16,25 : ink rgb(49,48,156),0 : dot 16,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,197),0 : dot 16,27 : ink rgb(74,72,222),0 : dot 16,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 16,29 : ink rgb(65,64,205),0 : dot 16,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 16,31 : ink rgb(65,72,213),0 : dot 17,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 17,1 : ink rgb(65,68,205),0 : dot 17,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 17,3 : ink rgb(74,72,222),0 : dot 17,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,56,189),0 : dot 17,5 : ink rgb(74,76,222),0 : dot 17,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 17,7 : ink rgb(57,64,189),0 : dot 17,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,164),0 : dot 17,9 : ink rgb(57,52,164),0 : dot 17,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,213),0 : dot 17,11 : ink rgb(57,60,189),0 : dot 17,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 17,13 : ink rgb(49,52,148),0 : dot 17,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 17,15 : ink rgb(65,60,189),0 : dot 17,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,205),0 : dot 17,17 : ink rgb(74,80,255),0 : dot 17,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,205),0 : dot 17,19 : ink rgb(82,76,238),0 : dot 17,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 17,21 : ink rgb(82,76,222),0 : dot 17,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 17,23 : ink rgb(49,48,180),0 : dot 17,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 17,25 : ink rgb(65,60,205),0 : dot 17,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,230),0 : dot 17,27 : ink rgb(57,68,222),0 : dot 17,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 17,29 : ink rgb(65,68,197),0 : dot 17,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,205),0 : dot 17,31 : ink rgb(65,64,205),0 : dot 18,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 18,1 : ink rgb(74,72,230),0 : dot 18,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 18,3 : ink rgb(65,76,230),0 : dot 18,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 18,5 : ink rgb(65,68,222),0 : dot 18,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,72,238),0 : dot 18,7 : ink rgb(57,56,189),0 : dot 18,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 18,9 : ink rgb(49,48,164),0 : dot 18,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,205),0 : dot 18,11 : ink rgb(57,60,189),0 : dot 18,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,189),0 : dot 18,13 : ink rgb(41,44,148),0 : dot 18,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,180),0 : dot 18,15 : ink rgb(74,64,205),0 : dot 18,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 18,17 : ink rgb(74,80,222),0 : dot 18,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 18,19 : ink rgb(82,85,238),0 : dot 18,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,213),0 : dot 18,21 : ink rgb(57,60,197),0 : dot 18,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,189),0 : dot 18,23 : ink rgb(57,60,205),0 : dot 18,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 18,25 : ink rgb(57,60,189),0 : dot 18,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 18,27 : ink rgb(74,80,246),0 : dot 18,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 18,29 : ink rgb(82,80,230),0 : dot 18,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 18,31 : ink rgb(65,68,197),0 : dot 19,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,246),0 : dot 19,1 : ink rgb(65,72,222),0 : dot 19,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 19,3 : ink rgb(65,68,222),0 : dot 19,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 19,5 : ink rgb(57,56,172),0 : dot 19,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,246),0 : dot 19,7 : ink rgb(57,56,172),0 : dot 19,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 19,9 : ink rgb(49,52,172),0 : dot 19,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,172),0 : dot 19,11 : ink rgb(74,80,230),0 : dot 19,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 19,13 : ink rgb(32,36,139),0 : dot 19,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 19,15 : ink rgb(57,64,180),0 : dot 19,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 19,17 : ink rgb(82,93,255),0 : dot 19,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 19,19 : ink rgb(65,68,230),0 : dot 19,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,222),0 : dot 19,21 : ink rgb(65,64,197),0 : dot 19,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 19,23 : ink rgb(57,60,189),0 : dot 19,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 19,25 : ink rgb(65,68,197),0 : dot 19,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 19,27 : ink rgb(65,72,213),0 : dot 19,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 19,29 : ink rgb(74,72,213),0 : dot 19,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 19,31 : ink rgb(65,64,205),0 : dot 20,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 20,1 : ink rgb(82,80,255),0 : dot 20,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 20,3 : ink rgb(65,68,197),0 : dot 20,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,213),0 : dot 20,5 : ink rgb(57,60,180),0 : dot 20,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,238),0 : dot 20,7 : ink rgb(57,48,164),0 : dot 20,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,197),0 : dot 20,9 : ink rgb(57,56,180),0 : dot 20,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 20,11 : ink rgb(57,64,189),0 : dot 20,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 20,13 : ink rgb(57,52,172),0 : dot 20,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,44,148),0 : dot 20,15 : ink rgb(57,56,172),0 : dot 20,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 20,17 : ink rgb(82,85,222),0 : dot 20,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,180),0 : dot 20,19 : ink rgb(74,72,230),0 : dot 20,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 20,21 : ink rgb(74,76,238),0 : dot 20,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,189),0 : dot 20,23 : ink rgb(57,60,197),0 : dot 20,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 20,25 : ink rgb(57,60,197),0 : dot 20,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 20,27 : ink rgb(65,68,222),0 : dot 20,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 20,29 : ink rgb(65,72,222),0 : dot 20,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 20,31 : ink rgb(57,64,197),0 : dot 21,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,213),0 : dot 21,1 : ink rgb(65,76,213),0 : dot 21,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,68,205),0 : dot 21,3 : ink rgb(74,72,213),0 : dot 21,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,89,230),0 : dot 21,5 : ink rgb(57,60,164),0 : dot 21,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 21,7 : ink rgb(74,80,238),0 : dot 21,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 21,9 : ink rgb(57,60,197),0 : dot 21,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,60,180),0 : dot 21,11 : ink rgb(57,60,189),0 : dot 21,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,222),0 : dot 21,13 : ink rgb(49,52,164),0 : dot 21,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 21,15 : ink rgb(65,64,189),0 : dot 21,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,164),0 : dot 21,17 : ink rgb(82,76,213),0 : dot 21,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,180),0 : dot 21,19 : ink rgb(74,80,238),0 : dot 21,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 21,21 : ink rgb(74,76,238),0 : dot 21,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 21,23 : ink rgb(65,64,197),0 : dot 21,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 21,25 : ink rgb(65,72,222),0 : dot 21,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 21,27 : ink rgb(74,80,222),0 : dot 21,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,230),0 : dot 21,29 : ink rgb(82,85,246),0 : dot 21,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 21,31 : ink rgb(57,68,222),0 : dot 22,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,222),0 : dot 22,1 : ink rgb(74,64,205),0 : dot 22,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,85,238),0 : dot 22,3 : ink rgb(82,80,246),0 : dot 22,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,89,255),0 : dot 22,5 : ink rgb(82,68,222),0 : dot 22,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 22,7 : ink rgb(65,72,197),0 : dot 22,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 22,9 : ink rgb(57,56,180),0 : dot 22,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,189),0 : dot 22,11 : ink rgb(49,52,172),0 : dot 22,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,205),0 : dot 22,13 : ink rgb(57,56,197),0 : dot 22,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,189),0 : dot 22,15 : ink rgb(65,60,197),0 : dot 22,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 22,17 : ink rgb(65,64,197),0 : dot 22,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,148),0 : dot 22,19 : ink rgb(74,76,238),0 : dot 22,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 22,21 : ink rgb(74,68,205),0 : dot 22,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 22,23 : ink rgb(49,56,180),0 : dot 22,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 22,25 : ink rgb(74,80,230),0 : dot 22,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 22,27 : ink rgb(74,80,238),0 : dot 22,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 22,29 : ink rgb(82,85,246),0 : dot 22,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 22,31 : ink rgb(65,68,213),0 : dot 23,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,238),0 : dot 23,1 : ink rgb(65,68,213),0 : dot 23,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,255),0 : dot 23,3 : ink rgb(49,48,156),0 : dot 23,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 23,5 : ink rgb(82,72,222),0 : dot 23,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 23,7 : ink rgb(41,52,172),0 : dot 23,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,76,222),0 : dot 23,9 : ink rgb(57,60,180),0 : dot 23,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 23,11 : ink rgb(57,64,180),0 : dot 23,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 23,13 : ink rgb(57,60,189),0 : dot 23,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,164),0 : dot 23,15 : ink rgb(57,56,189),0 : dot 23,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 23,17 : ink rgb(57,52,172),0 : dot 23,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,48,172),0 : dot 23,19 : ink rgb(74,76,238),0 : dot 23,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 23,21 : ink rgb(74,80,230),0 : dot 23,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,180),0 : dot 23,23 : ink rgb(49,48,164),0 : dot 23,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 23,25 : ink rgb(57,64,205),0 : dot 23,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,230),0 : dot 23,27 : ink rgb(65,68,213),0 : dot 23,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,76,222),0 : dot 23,29 : ink rgb(82,85,246),0 : dot 23,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 23,31 : ink rgb(74,72,222),0 : dot 24,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,56,197),0 : dot 24,1 : ink rgb(49,56,180),0 : dot 24,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,230),0 : dot 24,3 : ink rgb(74,76,230),0 : dot 24,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,189),0 : dot 24,5 : ink rgb(65,72,213),0 : dot 24,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 24,7 : ink rgb(74,72,205),0 : dot 24,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,172),0 : dot 24,9 : ink rgb(57,56,172),0 : dot 24,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 24,11 : ink rgb(41,48,164),0 : dot 24,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,180),0 : dot 24,13 : ink rgb(49,52,180),0 : dot 24,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 24,15 : ink rgb(49,52,172),0 : dot 24,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 24,17 : ink rgb(57,52,172),0 : dot 24,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 24,19 : ink rgb(82,80,238),0 : dot 24,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,60,172),0 : dot 24,21 : ink rgb(57,56,189),0 : dot 24,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 24,23 : ink rgb(74,60,197),0 : dot 24,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 24,25 : ink rgb(65,64,197),0 : dot 24,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,205),0 : dot 24,27 : ink rgb(65,72,197),0 : dot 24,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 24,29 : ink rgb(74,80,213),0 : dot 24,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 24,31 : ink rgb(65,72,230),0 : dot 25,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,213),0 : dot 25,1 : ink rgb(57,60,197),0 : dot 25,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 25,3 : ink rgb(74,64,189),0 : dot 25,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,189),0 : dot 25,5 : ink rgb(65,68,222),0 : dot 25,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,197),0 : dot 25,7 : ink rgb(49,48,172),0 : dot 25,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,172),0 : dot 25,9 : ink rgb(74,72,222),0 : dot 25,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 25,11 : ink rgb(57,52,172),0 : dot 25,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 25,13 : ink rgb(57,60,197),0 : dot 25,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,172),0 : dot 25,15 : ink rgb(57,56,172),0 : dot 25,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 25,17 : ink rgb(57,52,172),0 : dot 25,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 25,19 : ink rgb(57,56,172),0 : dot 25,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 25,21 : ink rgb(49,44,148),0 : dot 25,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 25,23 : ink rgb(49,48,180),0 : dot 25,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,156),0 : dot 25,25 : ink rgb(65,60,189),0 : dot 25,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,76,222),0 : dot 25,27 : ink rgb(57,64,180),0 : dot 25,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(82,80,238),0 : dot 25,29 : ink rgb(90,85,238),0 : dot 25,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 25,31 : ink rgb(82,76,222),0 : dot 26,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 26,1 : ink rgb(65,68,213),0 : dot 26,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,213),0 : dot 26,3 : ink rgb(74,76,213),0 : dot 26,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,189),0 : dot 26,5 : ink rgb(49,52,172),0 : dot 26,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,213),0 : dot 26,7 : ink rgb(49,44,148),0 : dot 26,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,48,148),0 : dot 26,9 : ink rgb(74,68,197),0 : dot 26,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 26,11 : ink rgb(49,48,164),0 : dot 26,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,156),0 : dot 26,13 : ink rgb(57,60,180),0 : dot 26,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 26,15 : ink rgb(49,52,172),0 : dot 26,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 26,17 : ink rgb(57,64,197),0 : dot 26,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 26,19 : ink rgb(74,64,222),0 : dot 26,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,197),0 : dot 26,21 : ink rgb(57,60,180),0 : dot 26,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,148),0 : dot 26,23 : ink rgb(57,48,164),0 : dot 26,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,189),0 : dot 26,25 : ink rgb(49,52,172),0 : dot 26,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,205),0 : dot 26,27 : ink rgb(57,64,197),0 : dot 26,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 26,29 : ink rgb(82,85,246),0 : dot 26,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 26,31 : ink rgb(57,60,197),0 : dot 27,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 27,1 : ink rgb(65,64,197),0 : dot 27,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 27,3 : ink rgb(65,64,197),0 : dot 27,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,205),0 : dot 27,5 : ink rgb(57,56,172),0 : dot 27,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 27,7 : ink rgb(82,80,246),0 : dot 27,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,44,139),0 : dot 27,9 : ink rgb(49,48,164),0 : dot 27,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,222),0 : dot 27,11 : ink rgb(57,48,180),0 : dot 27,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 27,13 : ink rgb(74,72,205),0 : dot 27,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,180),0 : dot 27,15 : ink rgb(57,56,172),0 : dot 27,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 27,17 : ink rgb(57,60,189),0 : dot 27,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,60,189),0 : dot 27,19 : ink rgb(49,56,180),0 : dot 27,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 27,21 : ink rgb(74,68,205),0 : dot 27,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(41,40,139),0 : dot 27,23 : ink rgb(57,56,172),0 : dot 27,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 27,25 : ink rgb(57,60,197),0 : dot 27,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 27,27 : ink rgb(65,68,222),0 : dot 27,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 27,29 : ink rgb(65,68,213),0 : dot 27,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,189),0 : dot 27,31 : ink rgb(74,76,230),0 : dot 28,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,230),0 : dot 28,1 : ink rgb(74,76,230),0 : dot 28,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,197),0 : dot 28,3 : ink rgb(57,56,180),0 : dot 28,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 28,5 : ink rgb(49,52,189),0 : dot 28,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,164),0 : dot 28,7 : ink rgb(74,76,230),0 : dot 28,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 28,9 : ink rgb(49,44,148),0 : dot 28,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,72,205),0 : dot 28,11 : ink rgb(57,68,197),0 : dot 28,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 28,13 : ink rgb(65,64,197),0 : dot 28,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,56,180),0 : dot 28,15 : ink rgb(57,60,172),0 : dot 28,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 28,17 : ink rgb(57,64,197),0 : dot 28,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 28,19 : ink rgb(57,60,189),0 : dot 28,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 28,21 : ink rgb(57,52,180),0 : dot 28,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,156),0 : dot 28,23 : ink rgb(49,56,172),0 : dot 28,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,189),0 : dot 28,25 : ink rgb(57,64,205),0 : dot 28,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 28,27 : ink rgb(65,64,197),0 : dot 28,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 28,29 : ink rgb(74,76,222),0 : dot 28,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 28,31 : ink rgb(65,68,205),0 : dot 29,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,230),0 : dot 29,1 : ink rgb(74,76,222),0 : dot 29,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,189),0 : dot 29,3 : ink rgb(65,64,180),0 : dot 29,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 29,5 : ink rgb(65,68,197),0 : dot 29,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 29,7 : ink rgb(65,64,197),0 : dot 29,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,180),0 : dot 29,9 : ink rgb(49,52,164),0 : dot 29,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 29,11 : ink rgb(74,72,222),0 : dot 29,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 29,13 : ink rgb(65,64,197),0 : dot 29,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 29,15 : ink rgb(57,52,172),0 : dot 29,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,68,197),0 : dot 29,17 : ink rgb(65,68,213),0 : dot 29,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,205),0 : dot 29,19 : ink rgb(74,76,213),0 : dot 29,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,172),0 : dot 29,21 : ink rgb(57,60,189),0 : dot 29,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 29,23 : ink rgb(74,72,205),0 : dot 29,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 29,25 : ink rgb(57,64,205),0 : dot 29,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,230),0 : dot 29,27 : ink rgb(74,68,213),0 : dot 29,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 29,29 : ink rgb(65,64,205),0 : dot 29,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 29,31 : ink rgb(65,72,222),0 : dot 30,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,222),0 : dot 30,1 : ink rgb(57,56,180),0 : dot 30,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 30,3 : ink rgb(65,64,189),0 : dot 30,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,172),0 : dot 30,5 : ink rgb(74,68,197),0 : dot 30,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,52,164),0 : dot 30,7 : ink rgb(74,76,230),0 : dot 30,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 30,9 : ink rgb(57,56,189),0 : dot 30,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,48,156),0 : dot 30,11 : ink rgb(65,64,189),0 : dot 30,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,197),0 : dot 30,13 : ink rgb(57,60,205),0 : dot 30,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,205),0 : dot 30,15 : ink rgb(57,60,189),0 : dot 30,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 30,17 : ink rgb(65,68,213),0 : dot 30,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 30,19 : ink rgb(65,68,205),0 : dot 30,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,189),0 : dot 30,21 : ink rgb(57,52,189),0 : dot 30,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 30,23 : ink rgb(65,64,213),0 : dot 30,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 30,25 : ink rgb(74,76,222),0 : dot 30,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,80,230),0 : dot 30,27 : ink rgb(65,68,213),0 : dot 30,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,205),0 : dot 30,29 : ink rgb(57,56,180),0 : dot 30,30
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,213),0 : dot 30,31 : ink rgb(65,68,222),0 : dot 31,0
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,72,222),0 : dot 31,1 : ink rgb(57,60,189),0 : dot 31,2
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 31,3 : ink rgb(65,64,197),0 : dot 31,4
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,68,222),0 : dot 31,5 : ink rgb(57,56,189),0 : dot 31,6
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 31,7 : ink rgb(49,48,164),0 : dot 31,8
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,156),0 : dot 31,9 : ink rgb(74,68,197),0 : dot 31,10
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,164),0 : dot 31,11 : ink rgb(57,64,189),0 : dot 31,12
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,68,205),0 : dot 31,13 : ink rgb(65,68,197),0 : dot 31,14
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 31,15 : ink rgb(65,72,213),0 : dot 31,16
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,64,205),0 : dot 31,17 : ink rgb(65,76,222),0 : dot 31,18
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(74,76,222),0 : dot 31,19 : ink rgb(57,60,197),0 : dot 31,20
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(49,52,180),0 : dot 31,21 : ink rgb(49,48,164),0 : dot 31,22
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,56,180),0 : dot 31,23 : ink rgb(57,64,197),0 : dot 31,24
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,64,197),0 : dot 31,25 : ink rgb(65,68,213),0 : dot 31,26
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(65,76,238),0 : dot 31,27 : ink rgb(65,64,205),0 : dot 31,28
ink rgb(82,80,238),0 : dot 0,0 : ink rgb(57,60,197),0 : dot 31,29 : ink rgb(82,80,205),0 : dot 31,30
ink rgb(82,80,205),0 : dot 31,31
get image 10,0,0,32,32,0

return

...

[/center]
Desert Dead Screenshots

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 9th Sep 2006 14:12 Edited at: 9th Sep 2006 14:44

Link

Nice, but shouldn't the water reflect the colour of the sky?

Anyway, another update. Ahh, the joy of functions

, so easy to add a little AI in. You can change the amount of ships that are in the area.

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
      Ships      =    20
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   setupShip(s,400,100,100,0.78,50,20,100,rnd(landsize),0,rnd(landsize))
   createShip(s)
next s
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`control ai
   rem start
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
   next s
   rem end

`camera
   controlCamera()

`control land
   controlScene()

sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
`=====================================================
`=====================================================

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
      Ships      =    20
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   setupShip(s,400,100,100,0.78,50,20,100,rnd(landsize),0,rnd(landsize))
   createShip(s)
next s
`=====================================================



`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `control ai
   rem start
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
   next s
   rem end

   `camera
   controlCamera()


   `control land
   controlScene()

   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
`=====================================================
`=====================================================

Pfft, slow downs. I added some vectors to check the distances between you and the ships so they can be hidden if they get too far.

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
      Ships      =    30
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   setupShip(s,400,100,100,0.78,50,20,100,rnd(landsize),0,rnd(landsize))
   createShip(s)
   null=make vector2(s)
next s
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`control ai
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
      set vector2 s,ship(s).pos.x-camera position x(),ship(s).pos.z-camera position z()
      if length vector2(s)>landsize/2 then hide object ship(s).obj else show object ship(s).obj
   next s

`camera
   controlCamera()

`control land
   controlScene()

sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
`=====================================================
`=====================================================

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
      Ships      =    30
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
createClouds()
createSky()
createSkysphere()
createSea()
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   setupShip(s,400,100,100,0.78,50,20,100,rnd(landsize),0,rnd(landsize))
   createShip(s)
   null=make vector2(s)
next s
`=====================================================



`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `control ai
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
      set vector2 s,ship(s).pos.x-camera position x(),ship(s).pos.z-camera position z()
      if length vector2(s)>landsize/2 then hide object ship(s).obj else show object ship(s).obj
   next s

   `camera
   controlCamera()


   `control land
   controlScene()

   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
`=====================================================
`=====================================================

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 9th Sep 2006 14:55

Link

Wow I come back and it looks even better! Now, try adding some water spray...

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 9th Sep 2006 15:06

Link

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 9th Sep 2006 19:03

Link

lol

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 9th Sep 2006 23:19

Link

That was amazingly fun

this game is really turning out!!

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 10th Sep 2006 03:18 Edited at: 10th Sep 2006 03:23

Link

You're all probably getting bored with me always adding things, but I don't care, lol.

I just made islands, that are actually just sphere's with the bottom flattened and the rest randomised. Pretty cool I would say.

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   old as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
type tisle
   pos as vec3d
   size as float
   ang as float
   obj as integer
   img as integer
endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
      Ships      =    20
      Islands    =    3
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
dim shipisled(ships,islands) as float
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
dim isle(islands) as tisle
createClouds()
createSky()
createSkysphere()
createSea()
for i=1 to islands
   generateIsland(i)
   null=make vector2(ships+i)
next i
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   setupShip(s,400,100,100,0.78,50,20,100,rnd(landsize),0,rnd(landsize))
   createShip(s)
   null=make vector2(s)
next s
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`control ai
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
      set vector2 s,ship(s).pos.x-camera position x(),ship(s).pos.z-camera position z()
      if length vector2(s)>landsize/3 then hide object ship(s).obj else show object ship(s).obj
   next s

`remember old ship positions
   for s=1 to ships
      ship(s).old.x=ship(s).pos.x
      ship(s).old.y=ship(s).pos.y
      ship(s).old.z=ship(s).pos.z
   next s

`camera
   controlCamera()

`control land
   controlScene()

sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function generateIsland(num)
seed#=2000
isle(num).obj=freeObj()
isle(num).img=freeImg()
isle(num).ang=rnd(360)
isle(num).size=rnd(seed#)*2
isle(num).pos.x=rnd(landsize) : isle(num).pos.z=rnd(landsize)
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(0,128,0),0 : box 0,0,128,128
      for x=1 to 5000
         ink rgb(0,rnd(255),0),0
         dot rnd(128),rnd(128)
      next x
   blur bitmap 1,4
   get image isle(num).img,0,0,128,128
set current bitmap 0 : delete bitmap 1
make object sphere isle(num).obj,100 : scale object isle(num).obj,isle(num).size,isle(num).size/1,isle(num).size
make mesh from object 1,isle(num).obj : delete object isle(num).obj
   lock vertexdata for mesh 1
      for v=1 to get vertexdata vertex count()-1
            ax#=atanfull(get vertexdata position y(v)-isle(num).pos.y,get vertexdata position z(v)-isle(num).pos.z)
            ay#=atanfull(get vertexdata position x(v)-isle(num).pos.x,get vertexdata position z(v)-isle(num).pos.z)+isle(num).ang
            rand#=seed#/5
            x#=get vertexdata position x(v)+((sin(ay#)*cos(ax#))*rnd(rand#))
            z#=get vertexdata position z(v)+((cos(ay#)*cos(ax#))*rnd(rand#))
            if get vertexdata position y(v)>=0
               y#=get vertexdata position y(v)-(sin(ax#)*rnd(rand#))
            else
               y#=0
            endif
            set vertexdata position v,x#,y#,z#
      next v
   unlock vertexdata
   make object isle(num).obj,1,isle(num).img : scale object texture isle(num).obj,10,10
   position object isle(num).obj,isle(num).pos.x,isle(num).pos.y,isle(num).pos.z
   delete mesh 1
endfunction
function controlIslands()
for i=1 to array count(isle())
   set vector2 array count(ship())+i,isle(i).pos.x-camera position x(),isle(i).pos.z-camera position z()
   if length vector2(i)>landsize/2 then hide object isle(i).obj else show object isle(i).obj
next i
endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
      for i=1 to array count(isle())
         shipisled(num,i)=sqrt((isle(i).pos.x-ship(num).pos.x)^2+(isle(i).pos.z-ship(num).pos.z)^2)
         if shipisled(num,i)<(isle(i).size/2)+ship(num).sz
            ship(num).pos.x=ship(num).old.x
            ship(num).pos.z=ship(num).old.z
         endif
      next i
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
function objectScreen(obj)
if object screen x(obj)>-20 and object screen y(obj)>-20 and object screen x(obj)<screen width()+20 and object screen y(obj)<screen height()+20 then exitfunction 1
endfunction 0
`=====================================================
`=====================================================

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   old as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
type tisle
   pos as vec3d
   size as float
   ang as float
   obj as integer
   img as integer
endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    20000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -0.35
      Ships      =    20
      Islands    =    3
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
dim shipisled(ships,islands) as float
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
dim isle(islands) as tisle
createClouds()
createSky()
createSkysphere()
createSea()
for i=1 to islands
   generateIsland(i)
   null=make vector2(ships+i)
next i
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   setupShip(s,400,100,100,0.78,50,20,100,rnd(landsize),0,rnd(landsize))
   createShip(s)
   null=make vector2(s)
next s
`=====================================================



`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `control ai
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
      set vector2 s,ship(s).pos.x-camera position x(),ship(s).pos.z-camera position z()
      if length vector2(s)>landsize/3 then hide object ship(s).obj else show object ship(s).obj
   next s

   `remember old ship positions
   for s=1 to ships
      ship(s).old.x=ship(s).pos.x
      ship(s).old.y=ship(s).pos.y
      ship(s).old.z=ship(s).pos.z
   next s

   `camera
   controlCamera()


   `control land
   controlScene()

   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
function controlScene()
   for x=1 to tiles : for y=1 to tiles
      ma(x,y)=ma(x,y)+3.5
      mh(x,y)=sin(ma(x,y))*40.0
      set matrix height 1,x,y,mh(x,y)
   next y : next y
   update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1
dim mh(tiles,tiles) as float
dim ma(tiles,tiles) as float
for x=1 to tiles : for y=1 to tiles
   ma(x,y)=rnd(360)
next x : next y
global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-30,landsize/2
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+600
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd(600)+1200,rnd(800)+1700
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function generateIsland(num)
seed#=2000
isle(num).obj=freeObj()
isle(num).img=freeImg()
isle(num).ang=rnd(360)
isle(num).size=rnd(seed#)*2
isle(num).pos.x=rnd(landsize) : isle(num).pos.z=rnd(landsize)
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(0,128,0),0 : box 0,0,128,128
      for x=1 to 5000
         ink rgb(0,rnd(255),0),0
         dot rnd(128),rnd(128)
      next x
   blur bitmap 1,4
   get image isle(num).img,0,0,128,128
set current bitmap 0 : delete bitmap 1
make object sphere isle(num).obj,100 : scale object isle(num).obj,isle(num).size,isle(num).size/1,isle(num).size
make mesh from object 1,isle(num).obj : delete object isle(num).obj
   lock vertexdata for mesh 1
      for v=1 to get vertexdata vertex count()-1
            ax#=atanfull(get vertexdata position y(v)-isle(num).pos.y,get vertexdata position z(v)-isle(num).pos.z)
            ay#=atanfull(get vertexdata position x(v)-isle(num).pos.x,get vertexdata position z(v)-isle(num).pos.z)+isle(num).ang
            rand#=seed#/5
            x#=get vertexdata position x(v)+((sin(ay#)*cos(ax#))*rnd(rand#))
            z#=get vertexdata position z(v)+((cos(ay#)*cos(ax#))*rnd(rand#))
            if get vertexdata position y(v)>=0
               y#=get vertexdata position y(v)-(sin(ax#)*rnd(rand#))
            else
               y#=0
            endif
            set vertexdata position v,x#,y#,z#
      next v
   unlock vertexdata
   make object isle(num).obj,1,isle(num).img : scale object texture isle(num).obj,10,10
   position object isle(num).obj,isle(num).pos.x,isle(num).pos.y,isle(num).pos.z
   delete mesh 1
endfunction
function controlIslands()
for i=1 to array count(isle())
   set vector2 array count(ship())+i,isle(i).pos.x-camera position x(),isle(i).pos.z-camera position z()
   if length vector2(i)>landsize/2 then hide object isle(i).obj else show object isle(i).obj
next i
endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.z=z#
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,40,((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,rgb(128,64,0)
   color limb ship(n).obj,3,rgb(255,255,255)
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
      for i=1 to array count(isle())
         shipisled(num,i)=sqrt((isle(i).pos.x-ship(num).pos.x)^2+(isle(i).pos.z-ship(num).pos.z)^2)
         if shipisled(num,i)<(isle(i).size/2)+ship(num).sz
            ship(num).pos.x=ship(num).old.x
            ship(num).pos.z=ship(num).old.z
         endif
      next i
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+70,cy,50.0)
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
function objectScreen(obj)
if object screen x(obj)>-20 and object screen y(obj)>-20 and object screen x(obj)<screen width()+20 and object screen y(obj)<screen height()+20 then exitfunction 1
endfunction 0
`=====================================================
`=====================================================

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 10th Sep 2006 05:55

Link

Awesome. Make some shooting

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 12th Sep 2006 11:02 Edited at: 12th Sep 2006 11:04

Link

Hey Zoto - that's very nice. From a physics point of view, you might be interested in this code I wrote a while ago, which simulates 'real' waves - that is, rather than moving according to a mathematical function (ie. sine waves) they use a physics model of interacting forces to produce a realistic effect.

`Jetski physics engine by Ric.

sync on
sync rate 70
hide mouse

`set mouse position to centre
position mouse 0.5*screen width(),0

`***camera properties***

autocam off
 set camera range 1,10000
 camdist#=20 `cam distance
 camheight#=8 `cam height
 smoothness=50 `chasecam smoothness

fog on
 fog distance 150
 fog color rgb(100,100,120)

`*********************

`***wave properties***

`size of wave area
 rows=50
 columns=50

`wavegenerator1 x,z coordinates:
 a=15
 b=10

`wavegenerator2 x,z coordinates:
 c=35
 d=40

`wave characteristics
 elasticity#=0.002 `determines wave speed
 damping#=0.995 `determines the decay of the wave height
 amplitude#=20  `the wave height at the generator points
 frequency#=1   `how quickly the generator points move up and down
 current#=0.02  `how much the wave slope affects the jetski

`******************

`***jetski motion properties***

friction#=0.99 `1=no friction - slides all over the place
               `0=big friction - like moving through concrete

power#=0.01    `controls the acceleration of the jetski

`***note***

`ideally, the friction should get bigger as the speed of
`the jetski increases, thus establishing a maximum speed
`....haven't coded that bit yet though.

`**********

`******************set up wave matrix********************
`********************************************************

dim tile(rows+1,columns+1)
dim v#(rows,columns)

make matrix 1,rows*10,columns*10,rows,columns
`make matrix 2,rows*10,columns*10,rows,columns

`give every tile of the matrix a coordinate - tile(x,z)
for x=1 to rows
for z=1 to columns
tile(x,z)=tile
tile=tile+1
next z
next x

`fix the wave generator points
dim fixed(rows*columns)
fixed(tile(a,b))=1
fixed(tile(c,d))=1

`***apply texture to wave***
`load image "watertexture.jpg",1
create bitmap 1,10,10
ink rgb(255,255,255),0
box 0,0,10,10
ink rgb(0,0,180),0
box 0,0,9,9
get image 1,0,0,10,10,1
prepare matrix texture 1,1,1,1
ghost matrix on 1
`tile=1
`for x=rows-1 to 0 step -1
`for z=0 to columns-1
`set matrix tile 1,z,x,tile
`inc tile
`next z
`next x
`***************************

`******************************************************
`******************************************************

`*******************make objects**********************

`make simple skysphere
make object sphere 2000,-10000
ink rgb(150,150,250),0
box 0,0,10,10
get image 3,0,0,10,10
texture object 2000,3
set object fog 2000,0

`***load track***

`load object "track.x",1000
`scale object 1000,100,40,100
`set object collision to polygons 1000
`position object 1000,250,0,250

`****************

`Make a simple jetski - object number 1
  make object cube 1,0.1
  make object box 2,2,1,4
  make mesh from object 1,2
  delete object 2
  make object cone 3,2
  scale object 3,100,200,100
  xrotate object 3,90
  make mesh from object 2,3
  delete object 3
  make object sphere 4,2
  make mesh from object 3,4
  delete object 4
  add limb 1,1,1
  add limb 1,2,2
  offset limb 1,2,0,0,2
  add limb 1,3,3
  ink rgb(255,0,0),0
  box 0,0,10,10
  get image 2,0,0,10,10
  set current bitmap 0
  texture object 1,2
  ink rgb(255,255,255),0

`*****************************************************

`*******initial positions and speeds *********

number=50  `number of floating boxes
dim x#(number)
dim y#(number)
dim z#(number)
dim frontspeed#(number)
dim sidespeed#(number)

x#(1)=rnd(250)  `initial x position of jetski
z#(1)=rnd(250)  `initial z position of jetski

for object=2 to number

make object cube object,5

x#(object)=rnd(500)  `initial x position of boxes
z#(object)=rnd(500)  `initial z position of boxes

next object

`**********************************

`************MAIN PROGRAM LOOP***************

do

gosub wave

gosub control

gosub get_wave_slope

gosub chasecam

text 0,0,str$(screen fps())

sync
loop

`************subroutines***************

wave:

`****move the generator points up and down****

y#=amplitude#*sin(theta#)
theta#=theta#+frequency#

if fixed(tile(a,b))=1
set matrix height 1,a,b,y#
endif
if fixed(tile(c,d))=1
set matrix height 1,c,d,y#
endif

`********************************************

`****make wave propogate through matrix******

for x=1+1 to rows-1
for z=1+1 to columns-1

`check x+1 height
if x<rows
distxp1#=get matrix height(1,x+1,z)-get matrix height (1,x,z)
endif

`check x-1 height
if x>1
distxm1#=get matrix height(1,x-1,z)-get matrix height (1,x,z)
endif

`check z+1 height
if z<columns
distzp1#=get matrix height(1,x,z+1)-get matrix height (1,x,z)
endif

`check z-1 height
if z>1
distzm1#=get matrix height(1,x,z-1)-get matrix height (1,x,z)
endif

`calculate vector some of heights adjacent to tile
`and make this proportional to the tile's acceleration
vectorsum#=distxp1#+distxm1#+distzp1#+distzm1#
a#=vectorsum#*elasticity#
`increase tile's velocity by it's acceleration amount
v#(tile(x,z))=v#(tile(x,z))+a#
if fixed(tile(x,z))=0
`reposition tile
set matrix height 1,x,z,get matrix height(1,x,z)+v#(tile(x,z))
v#(tile(x,z))=v#(tile(x,z))*damping#
endif

next z
next x

update matrix 1

`****************************************************

return

get_wave_slope:

for object=1 to number

y#(object)=get ground height(1,x#(object),z#(object))
   yfront#=get ground height(1,newxvalue(x#(object),angle#,1),newzvalue(z#(object),angle#,1))
   yside#=get ground height(1,newxvalue(x#(object),angle#+90,1),newzvalue(z#(object),angle#+90,1))

frontspeed#(object)=frontspeed#(object)+(y#(object)-yfront#)*current#
   sidespeed#(object)=sidespeed#(object)+(y#(object)-yside#)*current#

x#(object)=newxvalue(x#(object),angle#,frontspeed#(object))
   z#(object)=newzvalue(z#(object),angle#,frontspeed#(object))

x#(object)=newxvalue(x#(object),angle#+90,sidespeed#(object))
   z#(object)=newzvalue(z#(object),angle#+90,sidespeed#(object))

position object object,x#(object),y#(object),z#(object)

next object

return

control:

`***steering****

if mousex()>0.5*screen width() then polarity=1
if mousex()<0.5*screen width() then polarity=-1
`the square function is so that the steering is less sensitive
`in the middle and more sensitive for extreme turns
`note: squaring makes the mouse position always positive,
`hence the need for a polarity.
turn#=(((mousex()-(0.5*screen width()))^2)/10000)*polarity
if turn#>1 then turn#=1
if turn#<-1 then turn#=-1
yrotate object 1,object angle y(1)+turn#
direction#=wrapvalue(direction#+turn#)
rotate limb 1,1,0,0,-turn#*20 `roll the jetski body according to turn amount

`***************

`*****speed*****

if upkey()=1 then frontspeed#(1)=frontspeed#(1)+(power#*cos(direction#)):sidespeed#(1)=sidespeed#(1)+(power#*sin(direction#))
if downkey()=1 then frontspeed#(1)=frontspeed#(1)-(power#*cos(direction#)):sidespeed#(1)=sidespeed#(1)-(power#*sin(direction#))

for object=1 to number
frontspeed#(object)=frontspeed#(object)*friction#
sidespeed#(object)=sidespeed#(object)*friction#
next object

`***************

return

chasecam:

yrotate camera curveangle(direction#,camera angle y(),smoothness)
position camera object position x(1),object position y(1)+camheight#,object position z(1)
move camera -camdist#
point camera object position x(1),object position y(1)+camheight#,object position z(1)

return

`********have a nice day*************

+ Code Snippet

`Jetski physics engine by Ric.

sync on
sync rate 70
hide mouse

`set mouse position to centre
position mouse 0.5*screen width(),0


`***camera properties***

 autocam off
 set camera range 1,10000
 camdist#=20 `cam distance
 camheight#=8 `cam height
 smoothness=50 `chasecam smoothness

 fog on
 fog distance 150
 fog color rgb(100,100,120)


`*********************



`***wave properties***

 `size of wave area
 rows=50
 columns=50

 `wavegenerator1 x,z coordinates:
 a=15
 b=10

 `wavegenerator2 x,z coordinates:
 c=35
 d=40

 `wave characteristics
 elasticity#=0.002 `determines wave speed
 damping#=0.995 `determines the decay of the wave height
 amplitude#=20  `the wave height at the generator points
 frequency#=1   `how quickly the generator points move up and down
 current#=0.02  `how much the wave slope affects the jetski

`******************

`***jetski motion properties***

friction#=0.99 `1=no friction - slides all over the place
               `0=big friction - like moving through concrete

power#=0.01    `controls the acceleration of the jetski

`***note***

`ideally, the friction should get bigger as the speed of
`the jetski increases, thus establishing a maximum speed
`....haven't coded that bit yet though.

`**********



`******************set up wave matrix********************
`********************************************************

dim tile(rows+1,columns+1)
dim v#(rows,columns)

make matrix 1,rows*10,columns*10,rows,columns
`make matrix 2,rows*10,columns*10,rows,columns

`give every tile of the matrix a coordinate - tile(x,z)
for x=1 to rows
for z=1 to columns
tile(x,z)=tile
tile=tile+1
next z
next x

`fix the wave generator points
dim fixed(rows*columns)
fixed(tile(a,b))=1
fixed(tile(c,d))=1

`***apply texture to wave***
`load image "watertexture.jpg",1
create bitmap 1,10,10
ink rgb(255,255,255),0
box 0,0,10,10
ink rgb(0,0,180),0
box 0,0,9,9
get image 1,0,0,10,10,1
prepare matrix texture 1,1,1,1
ghost matrix on 1
`tile=1
`for x=rows-1 to 0 step -1
`for z=0 to columns-1
`set matrix tile 1,z,x,tile
`inc tile
`next z
`next x
`***************************

`******************************************************
`******************************************************




`*******************make objects**********************

`make simple skysphere
make object sphere 2000,-10000
ink rgb(150,150,250),0
box 0,0,10,10
get image 3,0,0,10,10
texture object 2000,3
set object fog 2000,0

`***load track***

`load object "track.x",1000
`scale object 1000,100,40,100
`set object collision to polygons 1000
`position object 1000,250,0,250

`****************



`Make a simple jetski - object number 1
  make object cube 1,0.1
  make object box 2,2,1,4
  make mesh from object 1,2
  delete object 2
  make object cone 3,2
  scale object 3,100,200,100
  xrotate object 3,90
  make mesh from object 2,3
  delete object 3
  make object sphere 4,2
  make mesh from object 3,4
  delete object 4
  add limb 1,1,1
  add limb 1,2,2
  offset limb 1,2,0,0,2
  add limb 1,3,3
  ink rgb(255,0,0),0
  box 0,0,10,10
  get image 2,0,0,10,10
  set current bitmap 0
  texture object 1,2
  ink rgb(255,255,255),0

`*****************************************************



`*******initial positions and speeds *********


number=50  `number of floating boxes
dim x#(number)
dim y#(number)
dim z#(number)
dim frontspeed#(number)
dim sidespeed#(number)

x#(1)=rnd(250)  `initial x position of jetski
z#(1)=rnd(250)  `initial z position of jetski

for object=2 to number

make object cube object,5

x#(object)=rnd(500)  `initial x position of boxes
z#(object)=rnd(500)  `initial z position of boxes

next object

`**********************************

`************MAIN PROGRAM LOOP***************

do

gosub wave

gosub control

gosub get_wave_slope

gosub chasecam

text 0,0,str$(screen fps())

sync
loop


`************subroutines***************

wave:

`****move the generator points up and down****

y#=amplitude#*sin(theta#)
theta#=theta#+frequency#

if fixed(tile(a,b))=1
set matrix height 1,a,b,y#
endif
if fixed(tile(c,d))=1
set matrix height 1,c,d,y#
endif

`********************************************

`****make wave propogate through matrix******

for x=1+1 to rows-1
for z=1+1 to columns-1

`check x+1 height
if x<rows
distxp1#=get matrix height(1,x+1,z)-get matrix height (1,x,z)
endif


`check x-1 height
if x>1
distxm1#=get matrix height(1,x-1,z)-get matrix height (1,x,z)
endif

`check z+1 height
if z<columns
distzp1#=get matrix height(1,x,z+1)-get matrix height (1,x,z)
endif

`check z-1 height
if z>1
distzm1#=get matrix height(1,x,z-1)-get matrix height (1,x,z)
endif

`calculate vector some of heights adjacent to tile
`and make this proportional to the tile's acceleration
vectorsum#=distxp1#+distxm1#+distzp1#+distzm1#
a#=vectorsum#*elasticity#
`increase tile's velocity by it's acceleration amount
v#(tile(x,z))=v#(tile(x,z))+a#
if fixed(tile(x,z))=0
`reposition tile
set matrix height 1,x,z,get matrix height(1,x,z)+v#(tile(x,z))
v#(tile(x,z))=v#(tile(x,z))*damping#
endif

next z
next x

update matrix 1

`****************************************************

return


get_wave_slope:

for object=1 to number

   y#(object)=get ground height(1,x#(object),z#(object))
   yfront#=get ground height(1,newxvalue(x#(object),angle#,1),newzvalue(z#(object),angle#,1))
   yside#=get ground height(1,newxvalue(x#(object),angle#+90,1),newzvalue(z#(object),angle#+90,1))

   frontspeed#(object)=frontspeed#(object)+(y#(object)-yfront#)*current#
   sidespeed#(object)=sidespeed#(object)+(y#(object)-yside#)*current#

   x#(object)=newxvalue(x#(object),angle#,frontspeed#(object))
   z#(object)=newzvalue(z#(object),angle#,frontspeed#(object))

   x#(object)=newxvalue(x#(object),angle#+90,sidespeed#(object))
   z#(object)=newzvalue(z#(object),angle#+90,sidespeed#(object))

position object object,x#(object),y#(object),z#(object)

next object

return

control:

`***steering****


if mousex()>0.5*screen width() then polarity=1
if mousex()<0.5*screen width() then polarity=-1
`the square function is so that the steering is less sensitive
`in the middle and more sensitive for extreme turns
`note: squaring makes the mouse position always positive,
`hence the need for a polarity.
turn#=(((mousex()-(0.5*screen width()))^2)/10000)*polarity
if turn#>1 then turn#=1
if turn#<-1 then turn#=-1
yrotate object 1,object angle y(1)+turn#
direction#=wrapvalue(direction#+turn#)
rotate limb 1,1,0,0,-turn#*20 `roll the jetski body according to turn amount

`***************

`*****speed*****

if upkey()=1 then frontspeed#(1)=frontspeed#(1)+(power#*cos(direction#)):sidespeed#(1)=sidespeed#(1)+(power#*sin(direction#))
if downkey()=1 then frontspeed#(1)=frontspeed#(1)-(power#*cos(direction#)):sidespeed#(1)=sidespeed#(1)-(power#*sin(direction#))

for object=1 to number
frontspeed#(object)=frontspeed#(object)*friction#
sidespeed#(object)=sidespeed#(object)*friction#
next object

`***************

return

chasecam:

yrotate camera curveangle(direction#,camera angle y(),smoothness)
position camera object position x(1),object position y(1)+camheight#,object position z(1)
move camera -camdist#
point camera object position x(1),object position y(1)+camheight#,object position z(1)

return

`********have a nice day*************

(Use the mouse to steer the boat, and arrow keys to change speed.)

It's good to see you continuing to develop your code - I'm looking forward to seeing what you add next.

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 13th Sep 2006 01:21

Link

I noticed this code when I was trying to make the waves more realistic. I found it was quite annoying thought that you had to move one tile constantly. Instead of moving that tile all the time, couldn't you just make it a seperate variable, and make the rest react from that?

Back to top

Profile PM Email

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 13th Sep 2006 10:15

Link

I know what you mean - those are the wave 'sources', which drive all of the other parts of the matrix. You could do as you suggest, and have a 'virtual' source, which is actually off the matrix completeley, or you can do what I've done a few times and have the source positioned underneath an island or something where you can't see it.

Back to top

Profile PM Email Website

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 13th Sep 2006 16:16

Link

wow that was awesome man. Felt like i was back in Loz:Wind Waker! Now just add in a port and some cannons and there you go! a sweet little pirate game!

____ ____ ____ ___ _ _ __ _ _ __ _ _ ____
|___ |--< |--| /__ Y | \| | | \| ___| |--|

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 13th Sep 2006 22:39 Edited at: 14th Sep 2006 00:31

Link

@Ric

Nice idea. I never thought of that, only problem is with the island one is that the islands are randomly places - come to think of it, so could the source

@Crazy Ninja
Where'd you think I got my inspiration?

[edit]
Infact Ric, if it's not too much hastle, could you explain a little of the physics behind those waves? I know a little about physics myself, but not gone into anything quite like that before. I don't want to have to re-write it into my own coding style line by line without even understandingany of it

[edit]
Oh, and what's with the random cubes everywhere?

[edit]
Infact, I've worked out the waves now. Thanks Ric!

Back to top

Profile PM Email

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 14th Sep 2006 11:03

Link

Glad you figured it out - I basically thought of the water as being a set of surface points connected by springs - and just used Hooke's law (Force is proportional to extension) to work out the restoring force between each point on the matrix. Once the force is calculated, you can work out the acceleration using Newton's 2nd, and hence the velocity. The great thing about this approach is that you can model real wave effects - by forcing certain points to remain stationary, you can set up virtual barriers and watch waves being reflected, diffracted, formation of standing waves etc. Also, by placing two sources close to each other, you can show two source interference patterns - it works just like a virtual ripple tank.

Back to top

Profile PM Email Website

Cave Man

18

Years of Service

User Offline

Joined: 22nd Aug 2006

Location: North Carolina, US

Posted: 14th Sep 2006 23:31

Link

This is cool! Make a shooting game

Language: DBP 6.2
High-Fire -> http://forum.thegamecreators.com/?m=forum_view&t=88511&b=5

Back to top

Profile PM

Alquerian

18

Years of Service

User Offline

Joined: 29th Mar 2006

Location: Reno Nevada

Posted: 15th Sep 2006 01:27

Link

@Zoto

very interesting piece of code. Very good job especially with no media

"We are what we repeatedly do. Excellence, therefore, is not an act, but a habit." - Aristotle

Back to top

Profile PM Email Website

fire

20

Years of Service

User Offline

Joined: 30th Jul 2004

Location: israel

Posted: 16th Sep 2006 11:59

Link

awsome!

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 16th Sep 2006 12:54

Link

Thanks everyone.

Ric - You're right, it does heheh.

Cave Man - What, from this? Or just a shooting game?

Back to top

Profile PM Email

Jrock

18

Years of Service

User Offline

Joined: 20th Feb 2006

Location: Riven

Posted: 16th Sep 2006 17:13

Link

This would be really really cool if you added reflection shading to the water

.

Ok the mods got rid of my sig...

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 16th Sep 2006 17:55 Edited at: 16th Sep 2006 17:55

Link

My crappy computer can't handle shaders ¬_¬', besides, it wouldn't be very cartoony with shaders.

Back to top

Profile PM Email

lower logic

18

Years of Service

User Offline

Joined: 15th Jun 2006

Location:

Posted: 17th Sep 2006 06:12 Edited at: 17th Sep 2006 06:12

Link

Looks really cool and felt really realistic, though I can't wait to see how it looks when you add Ric's code. Add a race track, a cool model, and some racing AI and you could have the next Wave Race, which was a really fun game.

Back to top

Profile PM

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 17th Sep 2006 06:56

Link

you can have fake reflections using a second camera and ghost the matrix

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Sep 2006 16:10

Link

Hmm, not a bad idea.

I think I'll go and put Ric's code in now

Back to top

Profile PM Email

Roxas

19

Years of Service

User Offline

Joined: 11th Nov 2005

Location: http://forum.thegamecreators.com

Posted: 17th Sep 2006 17:59

Link

Check my model in 3 dimension chat (the TLoZ topic) Im creating model in this one

FFXI <3

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Sep 2006 19:01

Link

That's a pretty cool model. You can use my code if you want.

Here's the code with the waves, not perfect yet, but doing good.
Anyone know how to get some good matrix normals?

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   old as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
   sailcol as integer
   boatcol as integer
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
type tisle
   pos as vec3d
   size as float
   ang as float
   obj as integer
   img as integer
endtype
type tsea
   elasticity as float
   damping as float
   amplitude as float
   frequency as float
   fixx as integer
   fixz as integer
   ang as float
   y as float
   acc as float
   vsum as float
   xp as float
   xm as float
   zp as float
   zm as float
endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float : global wsea as tsea
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    40000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -1.35
      Ships      =    10
      Islands    =    2
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
dim shipisled(ships,islands) as float
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
dim isle(islands) as tisle
createClouds()
createSky()
createSkysphere()
createSea()
for i=1 to islands
   generateIsland(i)
next i
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   if s>1
      setupShip(s,rnd(500)+500,rnd(300),rnd(100)+100,0.78,rnd(50)+50,rnd(20)+20,rnd(100)+100,rnd(landsize),100,rnd(landsize),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(64)+64,rnd(32)+32,0))
   else
      setupship(s,1000,150,150,0.78,70,15,120,rnd(landsize),100,rnd(landsize),rgb(255,255,255),rgb(128,64,0))
   endif
   createShip(s)
   null=make vector2(s)
next s
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`control ai
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
      set vector2 s,ship(s).pos.x-camera position x(),ship(s).pos.z-camera position z()
      if length vector2(s)>landsize/3 then hide object ship(s).obj else show object ship(s).obj
   next s

`remember old ship positions
   for s=1 to ships
      ship(s).old.x=ship(s).pos.x
      ship(s).old.y=ship(s).pos.y
      ship(s).old.z=ship(s).pos.z
   next s

`camera
   controlCamera()

`control land
   controlScene()

ink rgb(0,0,0),0 : text 9,screen height()-31,"Fps: "+str$(screen fps())
   ink rgb(255,0,0),0 : text 10,screen height()-30,"Fps: "+str$(screen fps())
   sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
function controlScene()
   wsea.ang=wrapvalue(wsea.ang+wsea.frequency)
   wsea.y=sin(wsea.ang)*wsea.amplitude
   if tilef(tile(wsea.fixx,wsea.fixz))=1
      set matrix height 1,wsea.fixx,wsea.fixz,wsea.y
   endif
   for x=2 to tiles-1 : for z=2 to tiles-1
      if x<tiles then wsea.xp=get matrix height(1,x+1,z)-get matrix height(1,x,z)
      if z<tiles then wsea.zp=get matrix height(1,x,z+1)-get matrix height(1,x,z)
      if x>1 then wsea.xm=get matrix height(1,x-1,z)-get matrix height(1,x,z)
      if z>1 then wsea.zm=get matrix height(1,x,z-1)-get matrix height(1,x,z)
         wsea.vsum=wsea.xp+wsea.xm+wsea.zp+wsea.zm
         wsea.acc=wsea.vsum*wsea.elasticity
         tilev(x,z)=tilev(x,z)+wsea.acc
         if tilef(tile(x,z))=0
            set matrix height 1,x,z,get matrix height(1,x,z)+tilev(x,z)
            tilev(x,z)=tilev(x,z)*wsea.damping
         endif
   next x : next z
 update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1

wsea.elasticity=0.003
wsea.damping=0.995
wsea.amplitude=450.0
wsea.frequency=2.0
wsea.fixx=rnd(tiles-2)+1 : wsea.fixz=rnd(tiles-2)+1
dim tile(tiles+1,tiles+1)
dim tilev(tiles,tiles) as float
dim tilef(tiles*tiles) as boolean
for x=1 to tiles : for z=1 to tiles
   tile(x,z)=tilec
   inc tilec
next x : next z
tilef(tile(wsea.fixx,wsea.fixz))=1

global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   ghost object on wobj : set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-(landsize/600),landsize/2
   hide object wobj
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+(landsize/66)
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd((landsize/66))+(landsize/33),rnd((landsize/50))+(landsize/25)
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function generateIsland(num)
seed#=(landsize/20)
isle(num).obj=freeObj()
isle(num).img=freeImg()
isle(num).ang=rnd(360)
isle(num).size=rnd(seed#/2)+(seed#)
isle(num).pos.x=rnd(landsize) : isle(num).pos.z=rnd(landsize)
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(128,128,128),0 : box 0,0,128,128
      for x=1 to 5000
         col=rnd(255)
         ink rgb(col,col,col),0
         dot rnd(128),rnd(128)
      next x
   blur bitmap 1,4
   get image isle(num).img,0,0,128,128
set current bitmap 0 : delete bitmap 1
make object sphere isle(num).obj,100 : scale object isle(num).obj,isle(num).size,isle(num).size/2,isle(num).size
make mesh from object 1,isle(num).obj : delete object isle(num).obj
   lock vertexdata for mesh 1
      for v=1 to get vertexdata vertex count()-1
            ax#=atanfull(get vertexdata position y(v)-isle(num).pos.y,get vertexdata position z(v)-isle(num).pos.z)
            ay#=atanfull(get vertexdata position x(v)-isle(num).pos.x,get vertexdata position z(v)-isle(num).pos.z)+isle(num).ang
            rand#=seed#/5
            x#=get vertexdata position x(v)+((sin(ay#)*cos(ax#))*rnd(rand#))
            z#=get vertexdata position z(v)+((cos(ay#)*cos(ax#))*rnd(rand#))
            if get vertexdata position y(v)>=0
               y#=get vertexdata position y(v)-(sin(ax#)*rnd(rand#))
            else
               y#=0
            endif
            set vertexdata position v,x#,y#,z#
      next v
   unlock vertexdata
   make object isle(num).obj,1,isle(num).img : scale object texture isle(num).obj,10,10
   position object isle(num).obj,isle(num).pos.x,isle(num).pos.y,isle(num).pos.z
   delete mesh 1
endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#,sailcol,boatcol)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.y=y# : ship(num).pos.z=z#
ship(num).sailcol=sailcol : ship(num).boatcol=boatcol
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,((ship(n).sy/2)+40),((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,ship(n).boatcol
   color limb ship(n).obj,3,ship(n).sailcol
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
      for i=1 to array count(isle())
         shipisled(num,i)=sqrt((isle(i).pos.x-ship(num).pos.x)^2+(isle(i).pos.z-ship(num).pos.z)^2)
         if shipisled(num,i)<(isle(i).size/2)+ship(num).sz
            ship(num).pos.x=ship(num).old.x
            ship(num).pos.z=ship(num).old.z
         endif
      next i
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+(landsize/250),cy,50.0)
   if cy<get ground height(1,cx,cz)+(landsize/250)
      cy=get ground height(1,cx,cz)+(landsize/250)
   endif
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
function objectScreen(obj)
if object screen x(obj)>-20 and object screen y(obj)>-20 and object screen x(obj)<screen width()+20 and object screen y(obj)<screen height()+20 then exitfunction 1
endfunction 0
`=====================================================
`=====================================================

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   old as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
   sailcol as integer
   boatcol as integer
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
type tisle
   pos as vec3d
   size as float
   ang as float
   obj as integer
   img as integer
endtype
type tsea
   elasticity as float
   damping as float
   amplitude as float
   frequency as float
   fixx as integer
   fixz as integer
   ang as float
   y as float
   acc as float
   vsum as float
   xp as float
   xm as float
   zp as float
   zm as float
endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float : global wsea as tsea
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    40000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -1.35
      Ships      =    10
      Islands    =    2
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
dim shipisled(ships,islands) as float
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
dim isle(islands) as tisle
createClouds()
createSky()
createSkysphere()
createSea()
for i=1 to islands
   generateIsland(i)
next i
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   if s>1
      setupShip(s,rnd(500)+500,rnd(300),rnd(100)+100,0.78,rnd(50)+50,rnd(20)+20,rnd(100)+100,rnd(landsize),100,rnd(landsize),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(64)+64,rnd(32)+32,0))
   else
      setupship(s,1000,150,150,0.78,70,15,120,rnd(landsize),100,rnd(landsize),rgb(255,255,255),rgb(128,64,0))
   endif
   createShip(s)
   null=make vector2(s)
next s
`=====================================================


`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `control ai
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
      set vector2 s,ship(s).pos.x-camera position x(),ship(s).pos.z-camera position z()
      if length vector2(s)>landsize/3 then hide object ship(s).obj else show object ship(s).obj
   next s

   `remember old ship positions
   for s=1 to ships
      ship(s).old.x=ship(s).pos.x
      ship(s).old.y=ship(s).pos.y
      ship(s).old.z=ship(s).pos.z
   next s

   `camera
   controlCamera()


   `control land
   controlScene()

   ink rgb(0,0,0),0 : text 9,screen height()-31,"Fps: "+str$(screen fps())
   ink rgb(255,0,0),0 : text 10,screen height()-30,"Fps: "+str$(screen fps())
   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
function controlScene()
   wsea.ang=wrapvalue(wsea.ang+wsea.frequency)
   wsea.y=sin(wsea.ang)*wsea.amplitude
   if tilef(tile(wsea.fixx,wsea.fixz))=1
      set matrix height 1,wsea.fixx,wsea.fixz,wsea.y
   endif
   for x=2 to tiles-1 : for z=2 to tiles-1
      if x<tiles then wsea.xp=get matrix height(1,x+1,z)-get matrix height(1,x,z)
      if z<tiles then wsea.zp=get matrix height(1,x,z+1)-get matrix height(1,x,z)
      if x>1 then wsea.xm=get matrix height(1,x-1,z)-get matrix height(1,x,z)
      if z>1 then wsea.zm=get matrix height(1,x,z-1)-get matrix height(1,x,z)
         wsea.vsum=wsea.xp+wsea.xm+wsea.zp+wsea.zm
         wsea.acc=wsea.vsum*wsea.elasticity
         tilev(x,z)=tilev(x,z)+wsea.acc
         if tilef(tile(x,z))=0
            set matrix height 1,x,z,get matrix height(1,x,z)+tilev(x,z)
            tilev(x,z)=tilev(x,z)*wsea.damping
         endif
   next x : next z
 update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1

wsea.elasticity=0.003
wsea.damping=0.995
wsea.amplitude=450.0
wsea.frequency=2.0
wsea.fixx=rnd(tiles-2)+1 : wsea.fixz=rnd(tiles-2)+1
dim tile(tiles+1,tiles+1)
dim tilev(tiles,tiles) as float
dim tilef(tiles*tiles) as boolean
for x=1 to tiles : for z=1 to tiles
   tile(x,z)=tilec
   inc tilec
next x : next z
tilef(tile(wsea.fixx,wsea.fixz))=1


global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   ghost object on wobj : set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-(landsize/600),landsize/2
   hide object wobj
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+(landsize/66)
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd((landsize/66))+(landsize/33),rnd((landsize/50))+(landsize/25)
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function generateIsland(num)
seed#=(landsize/20)
isle(num).obj=freeObj()
isle(num).img=freeImg()
isle(num).ang=rnd(360)
isle(num).size=rnd(seed#/2)+(seed#)
isle(num).pos.x=rnd(landsize) : isle(num).pos.z=rnd(landsize)
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(128,128,128),0 : box 0,0,128,128
      for x=1 to 5000
         col=rnd(255)
         ink rgb(col,col,col),0
         dot rnd(128),rnd(128)
      next x
   blur bitmap 1,4
   get image isle(num).img,0,0,128,128
set current bitmap 0 : delete bitmap 1
make object sphere isle(num).obj,100 : scale object isle(num).obj,isle(num).size,isle(num).size/2,isle(num).size
make mesh from object 1,isle(num).obj : delete object isle(num).obj
   lock vertexdata for mesh 1
      for v=1 to get vertexdata vertex count()-1
            ax#=atanfull(get vertexdata position y(v)-isle(num).pos.y,get vertexdata position z(v)-isle(num).pos.z)
            ay#=atanfull(get vertexdata position x(v)-isle(num).pos.x,get vertexdata position z(v)-isle(num).pos.z)+isle(num).ang
            rand#=seed#/5
            x#=get vertexdata position x(v)+((sin(ay#)*cos(ax#))*rnd(rand#))
            z#=get vertexdata position z(v)+((cos(ay#)*cos(ax#))*rnd(rand#))
            if get vertexdata position y(v)>=0
               y#=get vertexdata position y(v)-(sin(ax#)*rnd(rand#))
            else
               y#=0
            endif
            set vertexdata position v,x#,y#,z#
      next v
   unlock vertexdata
   make object isle(num).obj,1,isle(num).img : scale object texture isle(num).obj,10,10
   position object isle(num).obj,isle(num).pos.x,isle(num).pos.y,isle(num).pos.z
   delete mesh 1
endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#,sailcol,boatcol)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.y=y# : ship(num).pos.z=z#
ship(num).sailcol=sailcol : ship(num).boatcol=boatcol
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,((ship(n).sy/2)+40),((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,ship(n).boatcol
   color limb ship(n).obj,3,ship(n).sailcol
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
      for i=1 to array count(isle())
         shipisled(num,i)=sqrt((isle(i).pos.x-ship(num).pos.x)^2+(isle(i).pos.z-ship(num).pos.z)^2)
         if shipisled(num,i)<(isle(i).size/2)+ship(num).sz
            ship(num).pos.x=ship(num).old.x
            ship(num).pos.z=ship(num).old.z
         endif
      next i
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+(landsize/250),cy,50.0)
   if cy<get ground height(1,cx,cz)+(landsize/250)
      cy=get ground height(1,cx,cz)+(landsize/250)
   endif
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
function objectScreen(obj)
if object screen x(obj)>-20 and object screen y(obj)>-20 and object screen x(obj)<screen width()+20 and object screen y(obj)<screen height()+20 then exitfunction 1
endfunction 0
`=====================================================
`=====================================================

Back to top

Profile PM Email

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 24th Sep 2006 03:53

Link

I always use Yarble's function, but I don't know how it works.

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   old as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
   sailcol as integer
   boatcol as integer
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
type tisle
   pos as vec3d
   size as float
   ang as float
   obj as integer
   img as integer
endtype
type tsea
   elasticity as float
   damping as float
   amplitude as float
   frequency as float
   fixx as integer
   fixz as integer
   ang as float
   y as float
   acc as float
   vsum as float
   xp as float
   xm as float
   zp as float
   zm as float
endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float : global wsea as tsea
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    40000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -1.35
      Ships      =    10
      Islands    =    2
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
dim shipisled(ships,islands) as float
dim MatHeight#(tiles,tiles) as float
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
dim isle(islands) as tisle
createClouds()
createSky()
createSkysphere()
createSea()
for i=1 to islands
   generateIsland(i)
next i
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   if s>1
      setupShip(s,rnd(500)+500,rnd(300),rnd(100)+100,0.78,rnd(50)+50,rnd(20)+20,rnd(100)+100,rnd(landsize),100,rnd(landsize),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(64)+64,rnd(32)+32,0))
   else
      setupship(s,1000,150,150,0.78,70,15,120,rnd(landsize),100,rnd(landsize),rgb(255,255,255),rgb(128,64,0))
   endif
   createShip(s)
   null=make vector2(s)
next s
`=====================================================

`======================Main Loop======================
`=====================================================
do

`control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

`control ai
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
      set vector2 s,ship(s).pos.x-camera position x(),ship(s).pos.z-camera position z()
      if length vector2(s)>landsize/3 then hide object ship(s).obj else show object ship(s).obj
   next s

`remember old ship positions
   for s=1 to ships
      ship(s).old.x=ship(s).pos.x
      ship(s).old.y=ship(s).pos.y
      ship(s).old.z=ship(s).pos.z
   next s

`camera
   controlCamera()

`control land
   controlScene()

ink rgb(0,0,0),0 : text 9,screen height()-31,"Fps: "+str$(screen fps())
   ink rgb(255,0,0),0 : text 10,screen height()-30,"Fps: "+str$(screen fps())
   sync
loop
`=====================================================
`=====================================================

`======================Functions======================
`=====================================================
function controlScene()
   wsea.ang=wrapvalue(wsea.ang+wsea.frequency)
   wsea.y=sin(wsea.ang)*wsea.amplitude
   if tilef(tile(wsea.fixx,wsea.fixz))=1
      set matrix height 1,wsea.fixx,wsea.fixz,wsea.y
   endif
   for x=2 to tiles-1 : for z=2 to tiles-1
      if x<tiles then wsea.xp=get matrix height(1,x+1,z)-get matrix height(1,x,z)
      if z<tiles then wsea.zp=get matrix height(1,x,z+1)-get matrix height(1,x,z)
      if x>1 then wsea.xm=get matrix height(1,x-1,z)-get matrix height(1,x,z)
      if z>1 then wsea.zm=get matrix height(1,x,z-1)-get matrix height(1,x,z)
         wsea.vsum=wsea.xp+wsea.xm+wsea.zp+wsea.zm
         wsea.acc=wsea.vsum*wsea.elasticity
         tilev(x,z)=tilev(x,z)+wsea.acc
         if tilef(tile(x,z))=0
            set matrix height 1,x,z,get matrix height(1,x,z)+tilev(x,z)
            tilev(x,z)=tilev(x,z)*wsea.damping
         endif
         MatHeight#(x-1,z-1)=get matrix height(1,x-1,z-1)
   next x : next z
   normal(1,50,50)
 update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1

wsea.elasticity=0.003
wsea.damping=0.995
wsea.amplitude=450.0
wsea.frequency=2.0
wsea.fixx=rnd(tiles-2)+1 : wsea.fixz=rnd(tiles-2)+1
dim tile(tiles+1,tiles+1)
dim tilev(tiles,tiles) as float
dim tilef(tiles*tiles) as boolean
for x=1 to tiles : for z=1 to tiles
   tile(x,z)=tilec
   inc tilec
next x : next z
tilef(tile(wsea.fixx,wsea.fixz))=1

global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   ghost object on wobj : set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-(landsize/600),landsize/2
   hide object wobj
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+(landsize/66)
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd((landsize/66))+(landsize/33),rnd((landsize/50))+(landsize/25)
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function generateIsland(num)
seed#=(landsize/20)
isle(num).obj=freeObj()
isle(num).img=freeImg()
isle(num).ang=rnd(360)
isle(num).size=rnd(seed#/2)+(seed#)
isle(num).pos.x=rnd(landsize) : isle(num).pos.z=rnd(landsize)
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(128,128,128),0 : box 0,0,128,128
      for x=1 to 5000
         col=rnd(255)
         ink rgb(col,col,col),0
         dot rnd(128),rnd(128)
      next x
   blur bitmap 1,4
   get image isle(num).img,0,0,128,128
set current bitmap 0 : delete bitmap 1
make object sphere isle(num).obj,100 : scale object isle(num).obj,isle(num).size,isle(num).size/2,isle(num).size
make mesh from object 1,isle(num).obj : delete object isle(num).obj
   lock vertexdata for mesh 1
      for v=1 to get vertexdata vertex count()-1
            ax#=atanfull(get vertexdata position y(v)-isle(num).pos.y,get vertexdata position z(v)-isle(num).pos.z)
            ay#=atanfull(get vertexdata position x(v)-isle(num).pos.x,get vertexdata position z(v)-isle(num).pos.z)+isle(num).ang
            rand#=seed#/5
            x#=get vertexdata position x(v)+((sin(ay#)*cos(ax#))*rnd(rand#))
            z#=get vertexdata position z(v)+((cos(ay#)*cos(ax#))*rnd(rand#))
            if get vertexdata position y(v)>=0
               y#=get vertexdata position y(v)-(sin(ax#)*rnd(rand#))
            else
               y#=0
            endif
            set vertexdata position v,x#,y#,z#
      next v
   unlock vertexdata
   make object isle(num).obj,1,isle(num).img : scale object texture isle(num).obj,10,10
   position object isle(num).obj,isle(num).pos.x,isle(num).pos.y,isle(num).pos.z
   delete mesh 1
endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#,sailcol,boatcol)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.y=y# : ship(num).pos.z=z#
ship(num).sailcol=sailcol : ship(num).boatcol=boatcol
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,((ship(n).sy/2)+40),((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,ship(n).boatcol
   color limb ship(n).obj,3,ship(n).sailcol
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
      for i=1 to array count(isle())
         shipisled(num,i)=sqrt((isle(i).pos.x-ship(num).pos.x)^2+(isle(i).pos.z-ship(num).pos.z)^2)
         if shipisled(num,i)<(isle(i).size/2)+ship(num).sz
            ship(num).pos.x=ship(num).old.x
            ship(num).pos.z=ship(num).old.z
         endif
      next i
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+(landsize/250),cy,50.0)
   if cy<get ground height(1,cx,cz)+(landsize/250)
      cy=get ground height(1,cx,cz)+(landsize/250)
   endif
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
function objectScreen(obj)
if object screen x(obj)>-20 and object screen y(obj)>-20 and object screen x(obj)<screen width()+20 and object screen y(obj)<screen height()+20 then exitfunction 1
endfunction 0
`=====================================================
`=====================================================

function normal(MatNum,MapSizeX,MapSizeZ)
for x=1 to MapSizeX-1
   for z=1 to MapSizeZ-1
      rem create regular normals for Terrain array

rem  Vertices on the matrix
      rem    x-1,z-1    x,z-1
      rem    x-1,z      x,z

rem Get stored heights
      h8#=MatHeight#(x,z-1)
      h4#=MatHeight#(x-1,z)
      h1#=MatHeight#(x,z)

rem Calculate projected angle X using heights
      y1#=h1#
      y2#=h4#
      rem X distance is a function of stepX#
      dx#=stepX#/10
      rem Y distance is the difference in height
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)

rem Calculate projected angle Z using heights
      y1#=h1#
      y2#=h8#
      rem Z distance is a function of stepZ#
      dz#=stepZ#/10
      rem Y distance is the difference in height
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)

rem Make normal from projected angle
      nx# = Sin(ax#)
      ny# = Cos(ax#)
      nz# = Sin(az#)

rem Setting matrix normal for smoothness
      Set Matrix Normal MatNum,x,z,nx#,ny#,nz#

Next x
Next z
EndFunction

+ Code Snippet

`====================Screen Setup=====================
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off
`=====================================================
`=====================Setup Types=====================
Type Vec3D
   X as float
   Y as float
   Z as float
   Mag as float
   angX as float
   angY as float
Endtype
type tship
   pos as vec3D
   old as vec3D
   vel as vec3D
   acc as vec3D
   frc as vec3D
   trq as float
   omg as float
   rac as float
   ang as vec3D
   thrust as float
   torque as float
   fric as float
   mass as float
   obj as integer
   tilt as integer
   tex as integer
   hl as float : hr as float
   hf as float : hb as float
   sx as float : sy as float : sz as float
   ground as boolean
   up as boolean
   down as boolean
   left as boolean
   right as boolean
   sailcol as integer
   boatcol as integer
endtype
Type tClouds
   Obj as integer
   Pos as Vec3D
   Move as float
   r as float
Endtype
type tisle
   pos as vec3d
   size as float
   ang as float
   obj as integer
   img as integer
endtype
type tsea
   elasticity as float
   damping as float
   amplitude as float
   frequency as float
   fixx as integer
   fixz as integer
   ang as float
   y as float
   acc as float
   vsum as float
   xp as float
   xm as float
   zp as float
   zm as float
endtype
`=====================================================
`===================Setup Variables===================
dim objtaken(0) as boolean : dim imgtaken(0) as boolean
global landsize as integer : global tiles as integer : global cnum as integer : global grav as float : global wsea as tsea
global cx as float : global cy as float : global cz as float
   `Important Variables>>>
      Landsize   =    40000
      Tiles      =    50
      Clouds     =    200
      Grav       =    -1.35
      Ships      =    10
      Islands    =    2
   `<<<<<<<<<<<<<<<<<<<<<<
cx=(landsize/2)-2000 : cy=1000 : cz=(landsize/2)-2000
dim shipisled(ships,islands) as float
dim MatHeight#(tiles,tiles) as float
`=====================================================
`=====================Create Scene====================
Dim Clouds(clouds) as tClouds
dim isle(islands) as tisle
createClouds()
createSky()
createSkysphere()
createSea()
for i=1 to islands
   generateIsland(i)
next i
`load music "Queen - Seven Seas Of Rhye.mp3",1 : loop music 1
`=====================================================
`====================Create Ships=====================
dim ship(ships) as tship
for s=1 to ships
   if s>1
      setupShip(s,rnd(500)+500,rnd(300),rnd(100)+100,0.78,rnd(50)+50,rnd(20)+20,rnd(100)+100,rnd(landsize),100,rnd(landsize),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(64)+64,rnd(32)+32,0))
   else
      setupship(s,1000,150,150,0.78,70,15,120,rnd(landsize),100,rnd(landsize),rgb(255,255,255),rgb(128,64,0))
   endif
   createShip(s)
   null=make vector2(s)
next s
`=====================================================


`======================Main Loop======================
`=====================================================
do

   `control Player
   controlShip(1,upkey(),downkey(),leftkey(),rightkey())

   `control ai
   for s=2 to ships
      ship(s).up=1
      rand=PosNeg()*10
      if rand<0 then ship(s).left=1 : ship(s).right=0
      if rand>0 then ship(s).right=1 : ship(s).left=0
      if rand=0 then ship(s).left=0 : ship(s).right=0
      controlShip(s,ship(s).up,ship(s).down,ship(s).left,ship(s).right)
      set vector2 s,ship(s).pos.x-camera position x(),ship(s).pos.z-camera position z()
      if length vector2(s)>landsize/3 then hide object ship(s).obj else show object ship(s).obj
   next s

   `remember old ship positions
   for s=1 to ships
      ship(s).old.x=ship(s).pos.x
      ship(s).old.y=ship(s).pos.y
      ship(s).old.z=ship(s).pos.z
   next s

   `camera
   controlCamera()


   `control land
   controlScene()

   ink rgb(0,0,0),0 : text 9,screen height()-31,"Fps: "+str$(screen fps())
   ink rgb(255,0,0),0 : text 10,screen height()-30,"Fps: "+str$(screen fps())
   sync
loop
`=====================================================
`=====================================================




`======================Functions======================
`=====================================================
function controlScene()
   wsea.ang=wrapvalue(wsea.ang+wsea.frequency)
   wsea.y=sin(wsea.ang)*wsea.amplitude
   if tilef(tile(wsea.fixx,wsea.fixz))=1
      set matrix height 1,wsea.fixx,wsea.fixz,wsea.y
   endif
   for x=2 to tiles-1 : for z=2 to tiles-1
      if x<tiles then wsea.xp=get matrix height(1,x+1,z)-get matrix height(1,x,z)
      if z<tiles then wsea.zp=get matrix height(1,x,z+1)-get matrix height(1,x,z)
      if x>1 then wsea.xm=get matrix height(1,x-1,z)-get matrix height(1,x,z)
      if z>1 then wsea.zm=get matrix height(1,x,z-1)-get matrix height(1,x,z)
         wsea.vsum=wsea.xp+wsea.xm+wsea.zp+wsea.zm
         wsea.acc=wsea.vsum*wsea.elasticity
         tilev(x,z)=tilev(x,z)+wsea.acc
         if tilef(tile(x,z))=0
            set matrix height 1,x,z,get matrix height(1,x,z)+tilev(x,z)
            tilev(x,z)=tilev(x,z)*wsea.damping
         endif
         MatHeight#(x-1,z-1)=get matrix height(1,x-1,z-1)
   next x : next z
   normal(1,50,50)
 update matrix 1
   for c=1 to cnum
      ControlCloud(c)
   next c
   position object skobj,camera position x(),-(object size y(skobj)/8),camera position z()
endfunction
function createSea()
simg=freeImg()
   create bitmap 1,128,128 : set current bitmap 1
      ink rgb(0,128,255),0 : box 0,0,128,128
      get image simg,0,0,128,128
   set current bitmap 0 : delete bitmap 1
make matrix 1,landsize,landsize,tiles,tiles
prepare matrix texture 1,simg,1,1

wsea.elasticity=0.003
wsea.damping=0.995
wsea.amplitude=450.0
wsea.frequency=2.0
wsea.fixx=rnd(tiles-2)+1 : wsea.fixz=rnd(tiles-2)+1
dim tile(tiles+1,tiles+1)
dim tilev(tiles,tiles) as float
dim tilef(tiles*tiles) as boolean
for x=1 to tiles : for z=1 to tiles
   tile(x,z)=tilec
   inc tilec
next x : next z
tilef(tile(wsea.fixx,wsea.fixz))=1


global wobj as integer
wobj=freeObj() : wimg=freeImg()
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(255,255,255),0 : box 0,0,128,128
   get image wimg,0,0,128,128
set current bitmap 0 : delete bitmap 1
   make object plain wobj,landsize,landsize : xrotate object wobj,90 : fix object pivot wobj
   ghost object on wobj : set object light wobj,0 : set object fog wobj,0 : set object ambient wobj,0
   texture object wobj,wimg
   position object wobj,landsize/2,-(landsize/600),landsize/2
   hide object wobj
endfunction
function createSky()
backdrop on : color backdrop rgb(0,128,250)
fog on : fog distance (landsize/2)-2000 : fog color rgb(255,255,255)
set camera range 1,landsize
endfunction
function createSkysphere()
global skobj as integer
skimg=freeImg() : skobj=freeObj() : climg=freeImg()
climg=createCloudImage(rgb(255,255,255))
   create bitmap 1,500,50 : set current bitmap 1
   ink rgb(0,128,250),0 : box 0,0,500,50
   for x=1 to 500 step 50
      paste image climg,x,0,1
   next x
   get image skimg,0,0,500,50
   set current bitmap 0 : delete bitmap 1
      make object sphere skobj,landsize : scale object skobj,100,50,100
      texture object skobj,skimg
      set object skobj,1,0,0
endfunction
function createClouds()
global cnum as integer
cnum=array count(clouds())
climg=CreateCloudImage(rgb(255,255,255))
for c=1 to cnum
   Clouds(c).Obj=CreateCloud(climg)
   Clouds(c).Pos.X=cx+(rnd(landsize/1)-(landsize/2))
   Clouds(c).Pos.Y=rnd(20)+(landsize/66)
   Clouds(c).Pos.Z=cz+(rnd(landsize/1)-(landsize/2))
   Clouds(c).R=(landsize/2)
   Clouds(c).Move=rnd(2.5)
next c
endfunction
Function CreateCloud(img)
cloud=FreeObj()
Make Object Plain cloud,rnd((landsize/66))+(landsize/33),rnd((landsize/50))+(landsize/25)
zrotate object cloud,90 : fix object pivot cloud
Texture Object cloud,img
Ghost Object on cloud
Disable Object ZWrite cloud
Set Object Light cloud,0
Endfunction cloud
Function CreateCloudImage(col)
cloudi=FreeImg()
Create Bitmap 1,50,50 : set current bitmap 1
ink col,0
for x=1 to 1000
ang=rnd(180) : rad=rnd(20)
box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
get image cloudi,0,0,bitmap width(1),bitmap height(1)
Set current bitmap 0 : delete bitmap 1
Endfunction cloudi
Function ControlCloud(c)
Clouds(c).Pos.Z=Clouds(c).Pos.Z-Clouds(c).Move
if Clouds(c).Pos.Z<Camera Position Z()-Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()+Clouds(c).R
if Clouds(c).Pos.Z>Camera Position Z()+Clouds(c).R then Clouds(c).Pos.Z=Camera Position Z()-Clouds(c).R
if Clouds(c).Pos.X<Camera Position X()-Clouds(c).R then Clouds(c).Pos.X=Camera Position X()+Clouds(c).R
if Clouds(c).Pos.X>Camera Position X()+Clouds(c).R then Clouds(c).Pos.X=Camera Position X()-Clouds(c).R
Point Object c,camera position x(),Clouds(c).Pos.Y,camera position z()
Position Object c,Clouds(c).Pos.X,Clouds(c).Pos.Y,Clouds(c).Pos.Z
Endfunction
function generateIsland(num)
seed#=(landsize/20)
isle(num).obj=freeObj()
isle(num).img=freeImg()
isle(num).ang=rnd(360)
isle(num).size=rnd(seed#/2)+(seed#)
isle(num).pos.x=rnd(landsize) : isle(num).pos.z=rnd(landsize)
create bitmap 1,128,128 : set current bitmap 1
   ink rgb(128,128,128),0 : box 0,0,128,128
      for x=1 to 5000
         col=rnd(255)
         ink rgb(col,col,col),0
         dot rnd(128),rnd(128)
      next x
   blur bitmap 1,4
   get image isle(num).img,0,0,128,128
set current bitmap 0 : delete bitmap 1
make object sphere isle(num).obj,100 : scale object isle(num).obj,isle(num).size,isle(num).size/2,isle(num).size
make mesh from object 1,isle(num).obj : delete object isle(num).obj
   lock vertexdata for mesh 1
      for v=1 to get vertexdata vertex count()-1
            ax#=atanfull(get vertexdata position y(v)-isle(num).pos.y,get vertexdata position z(v)-isle(num).pos.z)
            ay#=atanfull(get vertexdata position x(v)-isle(num).pos.x,get vertexdata position z(v)-isle(num).pos.z)+isle(num).ang
            rand#=seed#/5
            x#=get vertexdata position x(v)+((sin(ay#)*cos(ax#))*rnd(rand#))
            z#=get vertexdata position z(v)+((cos(ay#)*cos(ax#))*rnd(rand#))
            if get vertexdata position y(v)>=0
               y#=get vertexdata position y(v)-(sin(ax#)*rnd(rand#))
            else
               y#=0
            endif
            set vertexdata position v,x#,y#,z#
      next v
   unlock vertexdata
   make object isle(num).obj,1,isle(num).img : scale object texture isle(num).obj,10,10
   position object isle(num).obj,isle(num).pos.x,isle(num).pos.y,isle(num).pos.z
   delete mesh 1
endfunction
function setupShip(num,thrust#,torque#,mass#,fric#,sx#,sy#,sz#,x#,y#,z#,sailcol,boatcol)
ship(num).obj=freeObj() : ship(num).tilt=freeObj() : ship(num).tex=freeImg()
ship(num).thrust=thrust# : ship(num).torque=torque# : ship(num).mass=mass# : ship(num).fric=fric#
ship(num).sx=sx# : ship(num).sy=sy# : ship(num).sz=sz#
ship(num).pos.x=x# : ship(num).pos.y=y# : ship(num).pos.z=z#
ship(num).sailcol=sailcol : ship(num).boatcol=boatcol
endfunction
function createShip(n)
   make object box ship(n).obj,ship(n).sx,ship(n).sy,ship(n).sz
   make object plain ship(n).tilt,1,1 : hide object ship(n).tilt
   glue object to limb ship(n).obj,ship(n).tilt,0
   noseobj=freeObj()
   make object box noseobj,sin(45)*ship(n).sx,ship(n).sy,sin(45)*ship(n).sx
   yrotate object noseobj,45 : fix object pivot noseobj
   make mesh from object 1,noseobj : delete object noseobj
   add limb ship(n).obj,1,1 : delete mesh 1
   offset limb ship(n).obj,1,0,0,ship(n).sz/2
   tempobj=freeObj()
   make object box tempobj,5,60,5 : make mesh from object 1,tempobj
   add limb ship(n).obj,2,1 : offset limb ship(n).obj,2,0,30+(ship(n).sy/2),(ship(n).sz/2)-(ship(n).sz/4)
   delete mesh 1 : delete object tempobj
   sailobj=FreeObj()
   make object box sailobj,ship(n).sx,40,1
   make mesh from object 1,sailobj : delete object sailobj
   add limb ship(n).obj,3,1 : offset limb ship(n).obj,3,0,((ship(n).sy/2)+40),((ship(n).sz/2)-(ship(n).sz/4))+2.5
   delete mesh 1
   color object ship(n).obj,ship(n).boatcol
   color limb ship(n).obj,3,ship(n).sailcol
endfunction
function controlShip(num,up as boolean,down as boolean,left as boolean,right as boolean)
   if up=1
      ship(num).frc.x=sin(ship(num).ang.y)*ship(num).thrust
      ship(num).frc.z=cos(ship(num).ang.y)*ship(num).thrust
   else
      ship(num).frc.x=ship(num).frc.x*0
      ship(num).frc.z=ship(num).frc.z*0
   endif
   if left=1 then ship(num).trq=-ship(num).torque
   if right=1 then ship(num).trq=ship(num).torque
   if left=0 and right=0 then ship(num).trq=ship(num).trq*0.0
      ship(num).acc.x=ship(num).frc.x/ship(num).mass : ship(num).acc.z=ship(num).frc.z/ship(num).mass
      inc ship(num).vel.x,ship(num).acc.x : inc ship(num).vel.z,ship(num).acc.z
      ship(num).vel.x=ship(num).vel.x*ship(num).fric : ship(num).vel.z=ship(num).vel.z*ship(num).fric
      inc ship(num).pos.x,ship(num).vel.x
      inc ship(num).pos.y,ship(num).vel.y
      inc ship(num).pos.z,ship(num).vel.z
      ship(num).rac=ship(num).trq/ship(num).mass
      inc ship(num).omg,ship(num).rac
      inc ship(num).ang.y,ship(num).omg
      ship(num).ang.y=ship(num).ang.y*ship(num).fric
      if ship(num).ground
         ship(num).hl=get ground height(1,ship(num).pos.x-(ship(num).sx/2),ship(num).pos.z)
         ship(num).hr=get ground height(1,ship(num).pos.x+(ship(num).sx/2),ship(num).pos.z)
         ship(num).hf=get ground height(1,ship(num).pos.x,ship(num).pos.z+(ship(num).sz/2))
         ship(num).hb=get ground height(1,ship(num).pos.x,ship(num).pos.z-(ship(num).sz/2))
         ship(num).ang.x=atanfull(ship(num).hb-ship(num).hf,ship(num).sz)
         ship(num).ang.z=atanfull(ship(num).hr-ship(num).hl,ship(num).sx)
      endif
      ship(num).vel.y=ship(num).vel.y+Grav
      ht#=get ground height(1,ship(num).pos.x,ship(num).pos.z)+((ship(num).sy/2)-5)
      if ship(num).pos.y<ht#
         ship(num).vel.y=ship(num).vel.y-(ship(num).pos.y-ht#)
         ship(num).pos.y=ht#
         ship(num).ground=1
      else
         ship(num).ground=0
      endif
         rotate object ship(num).tilt,curveangle(ship(num).ang.x,object angle x(ship(num).tilt),7.0),0,curveangle(ship(num).ang.z,object angle z(ship(num).tilt),7.0)
         position object ship(num).tilt,ship(num).pos.x,ship(num).pos.y,ship(num).pos.z
         rotate object ship(num).obj,0,ship(num).ang.y,0
      if ship(num).pos.x<0 or ship(num).pos.z<0 or ship(num).pos.x>landsize or ship(num).pos.z>landsize
         ship(num).pos.x=rnd(landsize)
         ship(num).pos.z=rnd(landsize)
      endif
      for i=1 to array count(isle())
         shipisled(num,i)=sqrt((isle(i).pos.x-ship(num).pos.x)^2+(isle(i).pos.z-ship(num).pos.z)^2)
         if shipisled(num,i)<(isle(i).size/2)+ship(num).sz
            ship(num).pos.x=ship(num).old.x
            ship(num).pos.z=ship(num).old.z
         endif
      next i
endfunction
function controlCamera()
   cx=curvevalue(ship(1).pos.x-(sin(ship(1).ang.y+20)*300),cx,20.0)
   cy=curvevalue(ship(1).pos.y+(landsize/250),cy,50.0)
   if cy<get ground height(1,cx,cz)+(landsize/250)
      cy=get ground height(1,cx,cz)+(landsize/250)
   endif
   cz=curvevalue(ship(1).pos.z-(cos(ship(1).ang.y+20)*300),cz,20.0)
   position camera cx,cy,cz
   point camera ship(1).pos.x,ship(1).pos.y+(ship(1).sy/2),ship(1).pos.z
endfunction
Function circ(x1,y1,r,t)
for x=1 to r
   for y=1 to r
      if sqrt((x-(r/2))^2 + (y-(r/2))^2)<(r/2) and sqrt((x-(r/2))^2 + (y-(r/2))^2)>(r/2)-t
         box (x1+x)-(r/2),(y1+y)-(r/2),((x1+x)-(r/2))+1,((y1+y)-(r/2))+1
      endif
   next x
next y
Endfunction
Function FreeObj()
local num as integer
array insert at bottom objtaken()
num=array count(objtaken())
if objtaken(num)=0 and object exist(num)=0
   objtaken(num)=1 : exitfunction num
endif
Endfunction 0
Function FreeImg()
local num as integer
array insert at bottom imgtaken()
num=array count(imgtaken())
if imgtaken(num)=0 and image exist(num)=0
   imgtaken(num)=1 : exitfunction num
endif
Endfunction 0
function PosNeg()
local rand as integer : rand=rnd(10)
local ret as integer
if rand<5 then ret=-1
if rand>5 then ret=1
if rand=5 then ret=0
endfunction ret
function objectScreen(obj)
if object screen x(obj)>-20 and object screen y(obj)>-20 and object screen x(obj)<screen width()+20 and object screen y(obj)<screen height()+20 then exitfunction 1
endfunction 0
`=====================================================
`=====================================================






function normal(MatNum,MapSizeX,MapSizeZ)
for x=1 to MapSizeX-1
   for z=1 to MapSizeZ-1
      rem create regular normals for Terrain array

      rem  Vertices on the matrix
      rem    x-1,z-1    x,z-1
      rem    x-1,z      x,z

      rem Get stored heights
      h8#=MatHeight#(x,z-1)
      h4#=MatHeight#(x-1,z)
      h1#=MatHeight#(x,z)

      rem Calculate projected angle X using heights
      y1#=h1#
      y2#=h4#
      rem X distance is a function of stepX#
      dx#=stepX#/10
      rem Y distance is the difference in height
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)

      rem Calculate projected angle Z using heights
      y1#=h1#
      y2#=h8#
      rem Z distance is a function of stepZ#
      dz#=stepZ#/10
      rem Y distance is the difference in height
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)

      rem Make normal from projected angle
      nx# = Sin(ax#)
      ny# = Cos(ax#)
      nz# = Sin(az#)

      rem Setting matrix normal for smoothness
      Set Matrix Normal MatNum,x,z,nx#,ny#,nz#

   Next x
Next z
EndFunction

Insanity is just a state of mind.

Back to top

Profile PM Website

Cave Man

18

Years of Service

User Offline

Joined: 22nd Aug 2006

Location: North Carolina, US

Posted: 24th Sep 2006 15:05

Link

Quote: "Cave Man - What, from this? Or just a shooting game?"

From this. All the boats shoot little cannons, get hit, and sink!

And maybe, cannoneers on the island!

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 24th Sep 2006 16:30

Link

Deamon:
It works ok, but not that well... besides, I think he stole it from a DBC example

Cave Man:
Hmm, I dunno, it already runs at only 30fps here, when it's set to 60, so if I made all of these bombs and stuff I would have a hard time running it.

Back to top

Profile PM Email

Natflash Games

18

Years of Service

User Offline

Joined: 7th Feb 2006

Location:

Posted: 4th Oct 2006 22:43

Link

Woah, thats pretty cool, the clouds look like you used HDR; wich is a good thing of course.

Check out my site for the latest on my games.

Back to top

Profile PM Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 4th Oct 2006 22:53

Link

What's HDR? And thanks

Back to top

Profile PM Email

Alquerian

18

Years of Service

User Offline

Joined: 29th Mar 2006

Location: Reno Nevada

Posted: 5th Oct 2006 03:29

Link

HDR is High Dynamic Range, they are a type of shader.

"We are what we repeatedly do. Excellence, therefore, is not an act, but a habit." - Aristotle

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 7th Oct 2006 00:19

Link

Wow cool. My crappy PC can't do shaders, so I'm glad to hear I've got this far without them

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / DBPro - No media sea-scape