Sorry your browser is not supported!

 REM Project: kigges spel
REM Created: 2008-11-06 13:05:14
REM
REM ***** Main Source File *****
REM

Set dir "Files"

load static objects "C:\Program\The Game Creators\Dark Basic Professional Online\Projects\kigges spel\Files\levelbank\testlevel\universe.dbo",1
load object "C:\Program\The Game Creators\Dark Basic Professional Online\Projects\kigges spel\hero\ROOMDEMO.x",2
scale object 2, -35,-35,-35
xrotate object 2,90
position object 2, 1850,502,-900
Speed#=0

Sync rate 60

Rem camera
position camera 0,1600,600,-900
rotate camera 0,90,0
Camdist# = 230.0 Rem AVSTÅND
TrackAngle = 90: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 80.0 Rem HÖJD
Camsmooth = 1 Rem VINKEL
ColFlag = 1 Rem 0=kan kollidera med object = inte bra

Do
Rem controlls
if upkey()=1 then move object right 2,1
if downkey()=1 then move object left 2,1
if rightkey()=1 then speed#=0.8: move object down 2,Speed#
if leftkey()=1 then Speed#=0.8: move object up 2,Speed#
if spacekey ()=1 then move object 2,10


ObjX# = Object Position X (2): ObjZ# = Object Position Z(2)
Position Object 2,ObjX#,ObjHeight#+502,ObjZ#
  Camheight# = ObjHeight#+ReqCamHeight#
  Set Camera To Follow ObjX#+1,ObjHeight#+502,ObjZ#,WrapValue(Object Angle Y(2)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag


If OBJECT COLLISION(2,0)>0: Rem collision detected
    Repeat
      Move Object 2,0-Speed#
      Position Camera Object Position X(2),50.0,Object Position Z(2)-40
      Point Camera Object Position X(2),3.0,Object Position Z(2)
    Until OBJECT COLLISION(2,0)=0
Endif
  Sync
Loop
End


  Sync

If OBJECT COLLISION(2,0)>0: Rem collision detected
    Repeat
      Move Object 2,0-Speed#
      Position Camera Object Position X(2),50.0,Object Position Z(2)-40
      Point Camera Object Position X(2),3.0,Object Position Z(2)
    Until OBJECT COLLISION(2,0)=0
Endif

crash=object collision(2,0)
If crash<>0: Rem collision detected
    Repeat
      Move Object 2,0-Speed#
      Position Camera Object Position X(2),50.0,Object Position Z(2)-40
      Point Camera Object Position X(2),3.0,Object Position Z(2)
      crash=object collision(2,0)
    Until crash=0
Endif

Sync On: CLS 0
Sync Rate 60
AutoCam Off
Hide Mouse
Make Matrix 1,2000,2000,20,20
Create Bitmap 1,128,128
CLS RGB(0,128,0)
Get Image 1,0,0,128,128
Set Current Bitmap 0
Delete Bitmap 1
Prepare Matrix Texture 1,1,1,1
Make Object Cube 1,3
Position Object 1,1000,3,990
Color Object 1,RGB(255,0,0)
Make Object Box 2,80,20,3: Rem Create a wall
Position Object 2,1000,3.0,1000
Ghost Object On 2
Position Camera 1000,50.0,950
Point Camera 1000,3,990
Speed#=0
Do
  If UpKey()=1 Then Speed#=0.4: Move Object 1,Speed#
  If DownKey()=1 Then Speed#=0-.4: Move Object 1,Speed#
  If LeftKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.0)
  If RightKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.0)
  ObjPosX#=Object Position X(1)
  ObjPosZ#=Object Position Z(1)
  Position Camera ObjPosX#,50.0,ObjPosZ#-40
  Point Camera ObjPosX#,3.0,ObjPosZ#
  If OBJECT COLLISION(1,0)>0: Rem collision detected
    Repeat
      Move Object 1,0-Speed#
      Position Camera Object Position X(1),50.0,Object Position Z(1)-40
      Point Camera Object Position X(1),3.0,Object Position Z(1)
    Until OBJECT COLLISION(1,0)=0
  Endif
  Sync
Loop
End