Sorry your browser is not supported!

set display mode 1024,768,32








loadingnum#=rnd(1)

if loadingnum#=1 then load image "loading/1.jpg", 2
if loadingnum#=0 then load image "loading/2.jpg", 2

load music "tennowa.mid", 3
paste image 2,0,0,2
loop music 3
wait 100









load dll "SC_Collision2.0.dll", 255

sync on : sync rate 100

hide mouse

set camera range 1,30000000






AUTOCAM OFF






load object "human/humanimation.x", 1
position object 1,1000,100,10000
scale object 1,500,500,500
Sc_setupobject 1,0,2
x#=500
y#=500






Global Variables
Global hAngle# As Integer
Global vAngle# As Integer

Rotate Object 1,Object Angle X(1),Object Angle Y(1)+180,Object Angle Z(1)
Fix Object Pivot 1
draw sprites first

map1()
global oldx#
global oldy#
global oldz#
SET AMBIENT LIGHT 50

stop music 3

do


oldx# = object position x(1)
   oldy# = object position y(1)
   oldz# = object position z(1)
mouvement()
collision()

MouseLook(Object Position X(1), Object Position Y(1)+65, Object Position Z(1), 200, MouseMovey(), MouseMovex())
turn object left 50,0.005
sync
loop

wait key




















function collision()

x# = object position x(1)
   y# = object position y(1)
   z# = object position z(1)
collide = sc_SphereSlidegroup(0,oldx#,oldy#,oldz#,x#,y#,z#,56,0)

   if collide>0
      x# = sc_getCollisionSlideX()
      y# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()
      position object 1,x#,y#,z#
endif

endfunction

function mouvement()
walk=0
scrape=0
if grabseq=0

if keystate(17)=1 then marche = 1;marcheanimation = 1;move object 1,10
If marcheanimation = 1 and object playing(1)=0
set object speed 1,10
  play object 1,154,158
  marche = 0
  Endif



if keystate(31)=1 then marche = 1;marchearrianimation = 1;move object 1,-10
If marchearrianimation = 1 and object playing(1)=0
set object speed 1,10
  play object 1,154,158
  if object playing(1)=0
  marche = 0
  play object 1,0,0
  Endif
Endif

   set object speed 1,10
   if keystate(30)=1 then droitanimation = 1;move object left 1,10
If droitanimation = 1 and object playing(1)=0
set object speed 1,10
  play object 1,170,174
  if object playing(1)=0
  marche = 0
  play object 1,0,0
  Endif
Endif



   set object speed 1,10
   if keystate(32)=1 then gaucheanimation = 1;move object right 1,10
If gaucheanimation = 1 and object playing(1)=0
set object speed 1,10
  play object 1,176,180
  if object playing(1)=0
  marche = 0
  play object 1,0,0
  Endif
Endif

   set object speed 1,5
if spacekey()=1 then play object 1,115,125;move object up 1,30
move object down 1,20
endif
endfunction

function map1()



load object "map1/map1.x",3
scale object 3,10000,10000,10000
position object 3,0,-10,0
SC_setupObject 3,1,0

load object "map1/chemins.x",4
scale object 4,10000,10000,10000
position object 4,0,-10,0
SC_setupObject 4,1,0

load object "map1/arbres.x",5
scale object 5,10000,10000,10000
position object 5,0,-100,0
SC_setupObject 5,1,0

load object "map1/bancs.x",6
scale object 6,10000,10000,10000
position object 6,0,-100,0
SC_setupObject 6,1,0


load object "map1/stands.x",7
scale object 7,10000,10000,10000
position object 7,0,-100,0
SC_setupObject 7,1,0

load object "map1/statue1.x",8
scale object 8,10000,10000,10000
position object 8,0,-100,0
SC_setupObject 8,1,0

load object "map1/portesplace.x",9
scale object 9,10000,10000,10000
position object 9,0,-100,0
SC_setupObject 9,1,0

load object "map1/place1.x",10
scale object 10,10000,10000,10000
position object 10,0,-100,0
SC_setupObject 10,1,0

load object "map1/place2.x",11
scale object 11,10000,10000,10000
position object 11,0,-100,0
SC_setupObject 11,1,0

load object "map1/statue2.x",12
scale object 12,10000,10000,10000
position object 12,0,-100,0
SC_setupObject 12,1,0

load object "map1/sky.x",50
scale object 50,1000000,1000000,1000000
position object 50,0,0,0

set object light 50,50
set object tRANSPARENCY 5,4

cls

load music "òX_town04.mid",1

loop music 1

endfunction

Function MouseLook(xTarget, yTarget, zTarget, hDist#, vDist#, Speed#)

   `Continue from where we last were
   hAngle# = hAngle# - Speed#
   vAngle# = vAngle# + vDist#

   `Tricky part: Make a 'circular' camera movement
   xPos# = xTarget + cos(hAngle#) * hDist#
   yPos# = yTarget + vAngle#
   zPos# = zTarget + sin(hAngle#) * hDist#

   `Position Camera in it's new place and point it at our main character
   Position Camera xPos#, yPos#, zPos#
   Point Camera xTarget, yTarget, zTarget

   `Usually you'll want the camera just a tad higher then the char, so do that now
   Position Camera xPos#, yPos#, zPos#

   `Point our Main Character in the same direction as our camera
   Rotate Object 1, Object Angle X(1), Camera Angle Y(), Object Angle Z(1)

EndFunction





if memblock exist(1) then delete memblock 1

sync on
sync rate 60
autocam off


`Setting up the variables
up=0
down=0
space=0
jumping=0
speed=4
left=0
right=0
shift=0
set ambient light 60
`Load Object and add animation data
load object "C:UsersCalebDocumentsratify1.7.dbo",32
position object 32, 500,1150,500
scale object 32,30,30,30
load object "C:Program FilesThe Game CreatorsFPS CreatorFilesentitybankww2charactersofficer.X", 1
append object "C:Program FilesThe Game CreatorsFPS CreatorFilesentitybankww2charactersofficer.X",1,total object frames(1)+1
move object up 1,615

`___________________________
`MAIN LOOP
`---------------------------
do
Text 10,10,Str$(Statistic(1))
TEXT 0,0,"FPS - "+str$(screen fps())

`Controls
if keystate(17)=1 then up=1
if keystate(17)=0 then up=0
if keystate(31)=1 then down=1
if keystate(31)=0 then down=0
if keystate(30)=1 then left=1
if keystate(30)=0 then left=0
if keystate(32)=1 then right=1
if keystate(32)=0 then right=0
if spacekey()=1 then space=1
if keystate(42)=1 then shift=1
if Keystate(42)=0 then shift=0

`Animation
if space=0
   if   up=1 or down=1
      loop object 1,235,257
      else
      stop object 1
      set object frame 1,228
   endif
endif



`Moving + moving slower while jumping
if down=1 and space=0 then move object 1,3
if up=1 And Space=0 then move object 1,-speed +0.3
if up=1 and shift=1 then move object 1,-6
if left=1 then yrotate object 1, object angle y(1)-2
if right=1 then yrotate object 1, object angle y(1)+2


rem crosshair
sw=screen width()/2
sh=screen height()/2
line sw-10,sh,sw+10,sh
line sw,sh-10,sw,sh+10

`___________________________
`JUMPING

if space=1 and Object playing(1)=0
   play object 1,190,215
   space=0
endif

`___________________________
   `CAMERA
`___________________________

position camera object position x(1),object position y(1)+45,object position z(1)
xrotate camera 30
yrotate camera object angle y(1)+180
move camera -140

sync
loop