Sorry your browser is not supported!

Rem Project: sea 2
Rem Created: 9/9/2006 5:43:38 PM
Rem ***** Main Source File *****
Set Display Mode 1024,768,32

REM SKY OBJECT
Load Object "sky/sky.x", 10
objectScale(10, 500)
Set Object Light 10, 0
Set Object Fog 10, 0
Set Object Texture 10, 2, 0
Position Object 10, 0, 0, 0

REM WATER
Load Image "water/waves.bmp", 1
Load Image "water/waves.dds", 2
Load Image "water/refract.bmp", 3

Load Object "plain.x", 100, 2
objectScale(100, 500)
xRotate Object 100, 90
Position Object 100, 0, 0, 0
Set Object Diffuse 100, Rgb(128,128,128)
Set Object Emissive 100, Rgb(128,128,128)
Set Object Specular 100, Rgb(128,128,128)
Set Object Ambience 100, Rgb(128,128,128)

Set Blend Mapping On 100, 1, 2, 3, 24
Set Blend Mapping On 100, 2, 1, 3, 4
Set Blend Mapping On 100, 3, 3, 3, 26

Set Blend Mapping On 100, 4, 2, 11, 24
Set Blend Mapping On 100, 5, 1, 11, 7

Scale Object Texture 100, 0, 5, 5
Scale Object Texture 100, 1, 50, 50

Ghost Object On 100, 1

MAKE CAMERA 1000
SET CAMERA RANGE 1000, .1, 10000
SET CAMERA FOV 1000, 55

LOAD OBJECT "Media/hull.X",1
POSITION OBJECT 1,500,10,500


LOAD OBJECT "Media/dgun_base.X",2
make mesh from object 1, 2
add limb 1, 1, 1
offset limb 1, 1, 0, .47, 16.959662
link limb 1, 0, 1

LOAD OBJECT "Media/dgun.X",3
make mesh from object 2, 3
add limb 1, 2, 2
offset limb 1,2,0,.74031, 0
link limb 1, 1, 2

LOAD OBJECT "Media/prop.x",4
make mesh from object 3,4
add limb 1,3,3
offset limb 1,3, 2.19856,-10.307131,-83.868813
link limb 1,0,3

add limb 1,4,3
offset limb 1,4,-2.47,-10.307131,-83.868813
link limb 1,0,4

LOAD OBJECT "Media/rudder.x",5
make mesh from object 4,5
add limb 1,5,4
offset limb 1,5,-2,-9.5,-88.99
link limb 1,0,5

add limb 1,6,4
offset limb 1,6,2,-9.5,-88.99
link limb 1,0,6

LOAD OBJECT "Media/port_dplane.x",6
make mesh from object 5,6
add limb 1,7,5
offset limb 1,7, -6.4476135,-10.094486,69.78912
link limb 1,0,7

LOAD OBJECT "Media/star_dplane.x",7
make mesh from object 6,7
add limb 1,8,6
offset limb 1,8, 6.8476135,-10.094486,69.78912
link limb 1,0,8

LOAD OBJECT "Media/20mm_base.x",8
make mesh from object 7,8
add limb 1,9,7
offset limb 1,9,0,8,-9.128900
link limb 1,0,9

LOAD OBJECT "Media/20mm_gun.x",9
make mesh from object 8,9
add limb 1,10,8
offset limb 1,10,0,9.307491,-9.128906
link limb 1,0,10


DELETE OBJECT 2
DELETE OBJECT 3
DELETE OBJECT 4
DELETE OBJECT 5
DELETE OBJECT 6
DELETE OBJECT 7
DELETE OBJECT 8
DELETE OBJECT 9

 hpx#=OBJECT POSITION X(1)
 hpy#=OBJECT POSITION Y(1)
 hpz#=OBJECT POSITION Z(1)

POINT CAMERA 1000, hpx#, hpy#, hpz#
POSITION CAMERA 1000,hpx#-1,hpy#,hpz#+1.5

DO

CONTROL CAMERA USING ARROWKEYS 1000, 2, 5

rem POSITION OBJECT 100,CAMERA POSITION X(1000),CAMERA POSITION Y(1000),CAMERA POSITION Z(1000)
POSITION OBJECT 10,CAMERA POSITION X(1000),CAMERA POSITION Y(1000),CAMERA POSITION Z(1000)

REM MAKE CLOCKWISE ANGULAR WAKES(optionally just make them stra?ght for a better look)
ang# = WrapValue(ang# + 0.1)
Scroll Object Texture 100, 0, -Sin(ang#)*0.0001, Cos(ang#)*0.0001
Scroll Object Texture 100, 1, 0.0001, 0.0

tax#=LIMB ANGLE X(1,2)
tax#=tax#+1

rem ROTATE LIMB 1, 2, tax#, 0, 0

SYNC



LOOP

Function objectScale(obj as Integer, Size As Float)
   scale# = Size / Object Size X(obj) * 1000
   Scale Object obj, scale#, scale#, scale#
EndFunction

function Distance(Object1,Object2)
 dist#=sqrt((object position x(Object1)-object position x(Object2))^2+(object position y(Object1)-object position y(Object2))^2+(object position z(Object1)-object position z(Object2))^2)
endfunction dist#

function AngleY(Object1,Object2)
 angy#=atanfull(object position x(Object2)-object position x(Object1),object position z(Object2)-object position z(Object1))
endfunction angy#