Getting a syntax error - GameCreators Forum

Author

Message

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 22nd Sep 2004 07:39

Link

Damn I am getting a syntax error with this in and out of code what am I doing wrong now?

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM Solar Dominion TEST LEVEL 1
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
autocam off
hide mouse
sync rate 60

Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
update matrix 1
X#=5000
Z#=5000

rem Make drone to mark a back position
make object sphere 3,10
hide object 3

rem Load 3D object and append walking data to it
LOAD OBJECT "Walk.x",1 : APPEND OBJECT "walk.x",1,100

rem Rotate and fix data so character faces right way
xrotate object 1,0
yrotate object 1,180
zrotate object 1,0
fix object pivot 1

X# = object position X(1)
Z# = object position Z(1)
Y# = Get ground height(1,X#,Z#)
Position object 1,X#,Y#,Z#

`position object 1,object position x(2),object position y(2),object position z(2)

rem check distance from vehicle
 if (playerX#-hovertankX#)^2+(playerZ#-hovertankZ#)^2 <= 160 
rem If chartacter collides with vehicle
if object collision(vehicle,player)=1
	rem get into vehicle and make sure pilot is not detected anymore
	glue object to limb 1,2,23
	position object 1,0,0,0
	set object collision off 1
   hide object 1
endif

set object collision on 1
REM Variables
player = 1
Hovertank = 2
inVehicle = 0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 1,100,100,100
cammode = 0

do
    
    gosub _UpdateHovertank
    gosub _UpdatePlayer
    sync
    loop
 rem movement

rem Modify character angle based on left/right keys
_UpdatePlayer:
   if inVehicle = 0
   stage=0
 if upkey()=1 or keystate(17)
   x# = newxvalue(x#,wrapvalue(AngleY#),30)
   z# = newzvalue(z#,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
 rem backward
   if downkey()=1 or keystate(31)
   x# = newxvalue(x#,wrapvalue(AngleY#),-30)
   z# = newzvalue(z#,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem left
 if leftkey()=1 or keystate(30)
 x# = newxvalue(x#,wrapvalue(AngleY#-90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#-90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem right
 if rightkey()=1 or keystate(32)
 x# = newxvalue(x#,wrapvalue(AngleY#+90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#+90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif
 
rem Loop 3D object animation from 0 to 20 (idle)
 LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,40

rem If character action changes
IF stage<>oldstage
	IF stage=0
		SET OBJECT FRAME 1,0.0
		LOOP OBJECT 1,0,20
		SET OBJECT SPEED 1,10
	ENDIF
	IF stage=1
		SET OBJECT FRAME 1,105.0
		LOOP OBJECT 1,105,125
		SET OBJECT SPEED 1,40
	ENDIF
	oldstage=stage
ENDIF

xMouse=mousemovex()
 yMouse=mousemovey()
 AngleY#=wrapvalue(AngleY#+xMouse)
 AngleX#=wrapvalue(AngleX#+yMouse)

Position object 1,x#,60,z#
 rotate object 1,AngleX#,AngleY#,0.025
 a#=wrapvalue(a#)

rem Player jumping
if controlkey()=1 and ajump=1
	jumpb=1
	height=60
endif
if jumpb=1
	height=height-1
	position object 1,object position x(1),object position y(1)+height,object position z(1)
endif
if object position y(1)>100 then ajump=0 else ajump=1
if object position y(1)<100
	position object 1,object position x(1),100,object position z(1)
	jump=0
	height=0
endif

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,1000,1000,1000

rem load hovercraft object
load object "CDHTANK1.X", 2

do
  rem movement

if joystick left()=1 then AngleY# = wrapvalue( AngleY# - 1.5 )
  if joystick right()=1 then AngleY# = wrapvalue( AngleY# + 1.5 )
  if joystick up()=1  then pitch object up 2, 10
  if joystick down()=1 then pitch object down 2,10

rem forwards
   if joystick slider a()=0 or upkey()=1 or keystate(17) 
   x = newxvalue(x,wrapvalue(AngleY#),30)
   z = newzvalue(z,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem backwards
   if joystick slider a()=65535 or downkey()=1 or keystate(31)
   x = newxvalue(x,wrapvalue(AngleY#),-30)
   z = newzvalue(z,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem right
 if joystick twist z()=1000 or rightkey()=1 or keystate(32)
 x = newxvalue(x,wrapvalue(AngleY#+90),10)
 z = newzvalue(z,wrapvalue(AngleY#+90),10)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem left
 if joystick twist z()=-1000 or leftkey()=1 or keystate(30)
 x = newxvalue(x,wrapvalue(AngleY#-90),10)
 z = newzvalue(z,wrapvalue(AngleY#-90),10)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif
 Position object 2,x,100,z
 yrotate object 2,AngleY#

rem jumping
if controlkey()=1 or joystick fire x(5) and ajump=1
	jumpb=1
	height=150
endif
if jumpb=1
	height=height-1
	position object 2,object position x(2),object position y(2)+height,object position z(2)
endif
if object position y(2)>100 then ajump=0 else ajump=1
if object position y(2)<100
	position object 2,object position x(2),100,object position z(2)
	jump=0
	height=0
endif
  If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person

If cammode = 0
  
     rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1

If Invehicle=1
      rem Set the hat look flags to nothing
      lookUp = 0: lookLeft = 0: lookRight = 0: lookBack = 0
      if jhat = 0 then lookUp = 1
      if jhat=9000 or jhat=4500 or jhat=13500 then lookRight = 1
      if jhat=31500 or jhat=27000 or jhat=22500 then lookLeft = 1
      if jhat = 18000 then lookBack = 1

if lookRight = 1 then turn camera right 90.0
     if lookLeft = 1  then turn camera left 90.0
     if lookUp = 1    then pitch camera up 45.0
     if lookBack = 1  then turn camera right 180.0
   else

rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1
   
   rem Place  for 3rd person

move object 1,-150
    position object 3,object position x(1),object position y(1),object position z(1)
    move object 1,150

rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation 1

Endif
 sync

loop

+ Code Snippet

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM Solar Dominion TEST LEVEL 1
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
autocam off
hide mouse
sync rate 60


Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
update matrix 1
X#=5000
Z#=5000

rem Make drone to mark a back position
make object sphere 3,10
hide object 3




rem Load 3D object and append walking data to it
LOAD OBJECT "Walk.x",1 : APPEND OBJECT "walk.x",1,100


rem Rotate and fix data so character faces right way
xrotate object 1,0
yrotate object 1,180
zrotate object 1,0
fix object pivot 1

X# = object position X(1)
Z# = object position Z(1)
Y# = Get ground height(1,X#,Z#)
Position object 1,X#,Y#,Z#


`position object 1,object position x(2),object position y(2),object position z(2)

rem check distance from vehicle
 if (playerX#-hovertankX#)^2+(playerZ#-hovertankZ#)^2 <= 160 
rem If chartacter collides with vehicle
if object collision(vehicle,player)=1
	rem get into vehicle and make sure pilot is not detected anymore
	glue object to limb 1,2,23
	position object 1,0,0,0
	set object collision off 1
   hide object 1
endif



set object collision on 1
REM Variables
player = 1
Hovertank = 2
inVehicle = 0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 1,100,100,100
cammode = 0

do
    
    gosub _UpdateHovertank
    gosub _UpdatePlayer
    sync
    loop
 rem movement
 

 rem Modify character angle based on left/right keys
_UpdatePlayer:
   if inVehicle = 0
   stage=0
 if upkey()=1 or keystate(17)
   x# = newxvalue(x#,wrapvalue(AngleY#),30)
   z# = newzvalue(z#,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
 rem backward
   if downkey()=1 or keystate(31)
   x# = newxvalue(x#,wrapvalue(AngleY#),-30)
   z# = newzvalue(z#,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

 rem left
 if leftkey()=1 or keystate(30)
 x# = newxvalue(x#,wrapvalue(AngleY#-90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#-90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

 rem right
 if rightkey()=1 or keystate(32)
 x# = newxvalue(x#,wrapvalue(AngleY#+90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#+90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif
 
rem Loop 3D object animation from 0 to 20 (idle)
 LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,40

 rem If character action changes
IF stage<>oldstage
	IF stage=0
		SET OBJECT FRAME 1,0.0
		LOOP OBJECT 1,0,20
		SET OBJECT SPEED 1,10
	ENDIF
	IF stage=1
		SET OBJECT FRAME 1,105.0
		LOOP OBJECT 1,105,125
		SET OBJECT SPEED 1,40
	ENDIF
	oldstage=stage
ENDIF

 xMouse=mousemovex()
 yMouse=mousemovey()
 AngleY#=wrapvalue(AngleY#+xMouse)
 AngleX#=wrapvalue(AngleX#+yMouse)

 Position object 1,x#,60,z#
 rotate object 1,AngleX#,AngleY#,0.025
 a#=wrapvalue(a#)

rem Player jumping
if controlkey()=1 and ajump=1
	jumpb=1
	height=60
endif
if jumpb=1
	height=height-1
	position object 1,object position x(1),object position y(1)+height,object position z(1)
endif
if object position y(1)>100 then ajump=0 else ajump=1
if object position y(1)<100
	position object 1,object position x(1),100,object position z(1)
	jump=0
	height=0
endif

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,1000,1000,1000

rem load hovercraft object
load object "CDHTANK1.X", 2

do
  rem movement

  if joystick left()=1 then AngleY# = wrapvalue( AngleY# - 1.5 )
  if joystick right()=1 then AngleY# = wrapvalue( AngleY# + 1.5 )
  if joystick up()=1  then pitch object up 2, 10
  if joystick down()=1 then pitch object down 2,10

rem forwards
   if joystick slider a()=0 or upkey()=1 or keystate(17) 
   x = newxvalue(x,wrapvalue(AngleY#),30)
   z = newzvalue(z,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem backwards
   if joystick slider a()=65535 or downkey()=1 or keystate(31)
   x = newxvalue(x,wrapvalue(AngleY#),-30)
   z = newzvalue(z,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

 rem right
 if joystick twist z()=1000 or rightkey()=1 or keystate(32)
 x = newxvalue(x,wrapvalue(AngleY#+90),10)
 z = newzvalue(z,wrapvalue(AngleY#+90),10)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

 rem left
 if joystick twist z()=-1000 or leftkey()=1 or keystate(30)
 x = newxvalue(x,wrapvalue(AngleY#-90),10)
 z = newzvalue(z,wrapvalue(AngleY#-90),10)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif
 Position object 2,x,100,z
 yrotate object 2,AngleY#

rem jumping
if controlkey()=1 or joystick fire x(5) and ajump=1
	jumpb=1
	height=150
endif
if jumpb=1
	height=height-1
	position object 2,object position x(2),object position y(2)+height,object position z(2)
endif
if object position y(2)>100 then ajump=0 else ajump=1
if object position y(2)<100
	position object 2,object position x(2),100,object position z(2)
	jump=0
	height=0
endif
  If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person

   If cammode = 0
  
     rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1

 If Invehicle=1
      rem Set the hat look flags to nothing
      lookUp = 0: lookLeft = 0: lookRight = 0: lookBack = 0
      if jhat = 0 then lookUp = 1
      if jhat=9000 or jhat=4500 or jhat=13500 then lookRight = 1
      if jhat=31500 or jhat=27000 or jhat=22500 then lookLeft = 1
      if jhat = 18000 then lookBack = 1

     if lookRight = 1 then turn camera right 90.0
     if lookLeft = 1  then turn camera left 90.0
     if lookUp = 1    then pitch camera up 45.0
     if lookBack = 1  then turn camera right 180.0
   else


     rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1
   
   rem Place  for 3rd person

    move object 1,-150
    position object 3,object position x(1),object position y(1),object position z(1)
    move object 1,150



   rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation 1


  Endif
 sync

loop

Back to top

Profile PM

BatVink

Moderator

22

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 22nd Sep 2004 08:22

Link

If cammode has no endif, or at least I think that is the one causing the problem. In any case, you are short of an endif.

BatVink
http://biglaugh.co.uk/catalog AMD 3000+ Barton, 512Mb Ram, 120 Gig Drive space, GeForce 5200 FX 128 Mb, Asus A7N8X Mobo.
Terms & Conditions apply

Back to top

Profile PM Email

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 22nd Sep 2004 08:24 Edited at: 22nd Sep 2004 08:34

Link

Thanks BatVink I think the problem is in this loop command

loop

well that is where the error is indicated

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 23rd Sep 2004 01:21 Edited at: 23rd Sep 2004 01:21

Link

I am still getting this damn syntax error what is going on? I even put in the endif where the camode is and I am still getting it

Rem * Title  : Test Level 1
Rem * Author : Ian George
Rem * Date   : 21/09/04
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM Solar Dominion TEST LEVEL 1
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
autocam off
hide mouse
sync rate 60

Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
update matrix 1
X#=5000
Z#=5000

rem Make drone to mark a back position
make object sphere 3,10
hide object 3

rem Load 3D object and append walking data to it
LOAD OBJECT "Walk.x",1 : APPEND OBJECT "walk.x",1,100

rem Rotate and fix data so character faces right way
xrotate object 1,0
yrotate object 1,180
zrotate object 1,0
fix object pivot 1

X# = object position X(1)
Z# = object position Z(1)
Y# = Get ground height(1,X#,Z#)
Position object 1,X#,Y#,Z#

`position object 1,object position x(2),object position y(2),object position z(2)

rem check distance from vehicle
 if (playerX#-hovertankX#)^2+(playerZ#-hovertankZ#)^2 <= 160
rem If chartacter collides with vehicle
if object collision(vehicle,player)=1
   rem get into vehicle and make sure pilot is not detected anymore
   glue object to limb 1,2,23
   position object 1,0,0,0
   set object collision off 1
   hide object 1
endif

set object collision on 1
REM Variables
player = 1
Hovertank = 2
inVehicle = 0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 1,100,100,100
cammode = 0

do

gosub _UpdateAircraft
    gosub _UpdateHovertank
    gosub _UpdatePlayer
    sync
    loop
 rem movement

rem Modify character angle based on left/right keys
_UpdatePlayer:
   if inVehicle = 0
   stage=0
 if upkey()=1 or keystate(17)
   x# = newxvalue(x#,wrapvalue(AngleY#),30)
   z# = newzvalue(z#,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
 rem backward
   if downkey()=1 or keystate(31)
   x# = newxvalue(x#,wrapvalue(AngleY#),-30)
   z# = newzvalue(z#,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem left
 if leftkey()=1 or keystate(30)
 x# = newxvalue(x#,wrapvalue(AngleY#-90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#-90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem right
 if rightkey()=1 or keystate(32)
 x# = newxvalue(x#,wrapvalue(AngleY#+90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#+90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem Loop 3D object animation from 0 to 20 (idle)
 LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,40

rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

xMouse=mousemovex()
 yMouse=mousemovey()
 AngleY#=wrapvalue(AngleY#+xMouse)
 AngleX#=wrapvalue(AngleX#+yMouse)

Position object 1,x#,60,z#
 rotate object 1,AngleX#,AngleY#,0.025
 a#=wrapvalue(a#)

rem Player jumping
if controlkey()=1 and ajump=1
   jumpb=1
   height=60
endif
if jumpb=1
   height=height-1
   position object 1,object position x(1),object position y(1)+height,object position z(1)
endif
if object position y(1)>100 then ajump=0 else ajump=1
if object position y(1)<100
   position object 1,object position x(1),100,object position z(1)
   jump=0
   height=0
endif

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,1000,1000,1000

rem load hovercraft object
load object "CDHTANK1.X", 2

rem movement

if joystick left()=1 then AngleY# = wrapvalue( AngleY# - 1.5 )
  if joystick right()=1 then AngleY# = wrapvalue( AngleY# + 1.5 )
  if joystick up()=1  then pitch object up 2, 10
  if joystick down()=1 then pitch object down 2,10

rem forwards
   if joystick slider a()=0 or upkey()=1 or keystate(17)
   x = newxvalue(x,wrapvalue(AngleY#),30)
   z = newzvalue(z,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem backwards
   if joystick slider a()=65535 or downkey()=1 or keystate(31)
   x = newxvalue(x,wrapvalue(AngleY#),-30)
   z = newzvalue(z,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem right
 if joystick twist z()=1000 or rightkey()=1 or keystate(32)
 x = newxvalue(x,wrapvalue(AngleY#+90),10)
 z = newzvalue(z,wrapvalue(AngleY#+90),10)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem left
 if joystick twist z()=-1000 or leftkey()=1 or keystate(30)
 x = newxvalue(x,wrapvalue(AngleY#-90),10)
 z = newzvalue(z,wrapvalue(AngleY#-90),10)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif
 Position object 2,x,100,z
 yrotate object 2,AngleY#

rem jumping
if controlkey()=1 or joystick fire x(5) and ajump=1
   jumpb=1
   height=150
endif
if jumpb=1
   height=height-1
   position object 2,object position x(2),object position y(2)+height,object position z(2)
endif
if object position y(2)>100 then ajump=0 else ajump=1
if object position y(2)<100
   position object 2,object position x(2),100,object position z(2)
   jump=0
   height=0
endif
endif
endif

rem check distance from vehicle
 if (playerX#-aircraftX#)^2+(playerZ#-aircraftZ#)^2 <= 160
rem If chartacter collides with vehicle
if object collision(vehicle,player)=1
   rem get into vehicle and make sure pilot is not detected anymore
   glue object to limb 1,3,4
   position object 1,0,0,0
   set object collision off 1
   hide object 1

rem Aircraft Object
load object "AIRPL043.X", 3

rem Rotate and fix data so character faces right way
xrotate object 3,0
yrotate object 3,180
zrotate object 3,0
fix object pivot 3
position object 3,x,150,z

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 3,1000,1000,1000

rem movement
   if joystick up()=1 then pitch object up 3,5
   if joystick down()=1 then pitch object down 3,5
   if joystick left()=1 then turn object left 3,5
   if joystick right()=1 then turn object right 3,5
   if joystick twist z()=1000 then roll object left 3,5
   if joystick twist z()=-1000 then roll object right 3,5
   if joystick slider a()=0 then move object 3,1000
   if joystick slider a()=65535 then move object 3,-60

rem VTOL take off and landing
if controlkey()=1 or joystick fire x(5)
   position object 2,object position x(2),object position y(2)+height,object position z(2)
  height=90
endif
if spacekey()=1 or joystick fire x(4)
   position object 2,object position x(2),object position y(2)-10,object position z(2)
  height=height-1
endif

If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person

If cammode = 0

rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1
     endif
     endif
     endif
 If Invehicle=1
      rem Set the hat look flags to nothing
      lookUp = 0: lookLeft = 0: lookRight = 0: lookBack = 0
      if jhat = 0 then lookUp = 1
      if jhat=9000 or jhat=4500 or jhat=13500 then lookRight = 1
      if jhat=31500 or jhat=27000 or jhat=22500 then lookLeft = 1
      if jhat = 18000 then lookBack = 1

if lookRight = 1 then turn camera right 90.0
     if lookLeft = 1  then turn camera left 90.0
     if lookUp = 1    then pitch camera up 45.0
     if lookBack = 1  then turn camera right 180.0
   else

rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1

rem Place  for 3rd person

move object 1,-150
    position object 3,object position x(1),object position y(1),object position z(1)
    move object 1,150

rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation 1

Endif
 sync

loop

+ Code Snippet

Rem * Title  : Test Level 1
Rem * Author : Ian George
Rem * Date   : 21/09/04
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM Solar Dominion TEST LEVEL 1
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
autocam off
hide mouse
sync rate 60


Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
update matrix 1
X#=5000
Z#=5000

rem Make drone to mark a back position
make object sphere 3,10
hide object 3




rem Load 3D object and append walking data to it
LOAD OBJECT "Walk.x",1 : APPEND OBJECT "walk.x",1,100


rem Rotate and fix data so character faces right way
xrotate object 1,0
yrotate object 1,180
zrotate object 1,0
fix object pivot 1

X# = object position X(1)
Z# = object position Z(1)
Y# = Get ground height(1,X#,Z#)
Position object 1,X#,Y#,Z#


`position object 1,object position x(2),object position y(2),object position z(2)

rem check distance from vehicle
 if (playerX#-hovertankX#)^2+(playerZ#-hovertankZ#)^2 <= 160
rem If chartacter collides with vehicle
if object collision(vehicle,player)=1
   rem get into vehicle and make sure pilot is not detected anymore
   glue object to limb 1,2,23
   position object 1,0,0,0
   set object collision off 1
   hide object 1
endif



set object collision on 1
REM Variables
player = 1
Hovertank = 2
inVehicle = 0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 1,100,100,100
cammode = 0

do

    gosub _UpdateAircraft
    gosub _UpdateHovertank
    gosub _UpdatePlayer
    sync
    loop
 rem movement


 rem Modify character angle based on left/right keys
_UpdatePlayer:
   if inVehicle = 0
   stage=0
 if upkey()=1 or keystate(17)
   x# = newxvalue(x#,wrapvalue(AngleY#),30)
   z# = newzvalue(z#,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
 rem backward
   if downkey()=1 or keystate(31)
   x# = newxvalue(x#,wrapvalue(AngleY#),-30)
   z# = newzvalue(z#,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

 rem left
 if leftkey()=1 or keystate(30)
 x# = newxvalue(x#,wrapvalue(AngleY#-90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#-90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

 rem right
 if rightkey()=1 or keystate(32)
 x# = newxvalue(x#,wrapvalue(AngleY#+90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#+90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem Loop 3D object animation from 0 to 20 (idle)
 LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,40

 rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

 xMouse=mousemovex()
 yMouse=mousemovey()
 AngleY#=wrapvalue(AngleY#+xMouse)
 AngleX#=wrapvalue(AngleX#+yMouse)

 Position object 1,x#,60,z#
 rotate object 1,AngleX#,AngleY#,0.025
 a#=wrapvalue(a#)

rem Player jumping
if controlkey()=1 and ajump=1
   jumpb=1
   height=60
endif
if jumpb=1
   height=height-1
   position object 1,object position x(1),object position y(1)+height,object position z(1)
endif
if object position y(1)>100 then ajump=0 else ajump=1
if object position y(1)<100
   position object 1,object position x(1),100,object position z(1)
   jump=0
   height=0
endif

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,1000,1000,1000

rem load hovercraft object
load object "CDHTANK1.X", 2


  rem movement

  if joystick left()=1 then AngleY# = wrapvalue( AngleY# - 1.5 )
  if joystick right()=1 then AngleY# = wrapvalue( AngleY# + 1.5 )
  if joystick up()=1  then pitch object up 2, 10
  if joystick down()=1 then pitch object down 2,10

rem forwards
   if joystick slider a()=0 or upkey()=1 or keystate(17)
   x = newxvalue(x,wrapvalue(AngleY#),30)
   z = newzvalue(z,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem backwards
   if joystick slider a()=65535 or downkey()=1 or keystate(31)
   x = newxvalue(x,wrapvalue(AngleY#),-30)
   z = newzvalue(z,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

 rem right
 if joystick twist z()=1000 or rightkey()=1 or keystate(32)
 x = newxvalue(x,wrapvalue(AngleY#+90),10)
 z = newzvalue(z,wrapvalue(AngleY#+90),10)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

 rem left
 if joystick twist z()=-1000 or leftkey()=1 or keystate(30)
 x = newxvalue(x,wrapvalue(AngleY#-90),10)
 z = newzvalue(z,wrapvalue(AngleY#-90),10)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif
 Position object 2,x,100,z
 yrotate object 2,AngleY#

rem jumping
if controlkey()=1 or joystick fire x(5) and ajump=1
   jumpb=1
   height=150
endif
if jumpb=1
   height=height-1
   position object 2,object position x(2),object position y(2)+height,object position z(2)
endif
if object position y(2)>100 then ajump=0 else ajump=1
if object position y(2)<100
   position object 2,object position x(2),100,object position z(2)
   jump=0
   height=0
endif
endif
endif

rem check distance from vehicle
 if (playerX#-aircraftX#)^2+(playerZ#-aircraftZ#)^2 <= 160
rem If chartacter collides with vehicle
if object collision(vehicle,player)=1
   rem get into vehicle and make sure pilot is not detected anymore
   glue object to limb 1,3,4
   position object 1,0,0,0
   set object collision off 1
   hide object 1

rem Aircraft Object
load object "AIRPL043.X", 3

rem Rotate and fix data so character faces right way
xrotate object 3,0
yrotate object 3,180
zrotate object 3,0
fix object pivot 3
position object 3,x,150,z


rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 3,1000,1000,1000



  rem movement
   if joystick up()=1 then pitch object up 3,5
   if joystick down()=1 then pitch object down 3,5
   if joystick left()=1 then turn object left 3,5
   if joystick right()=1 then turn object right 3,5
   if joystick twist z()=1000 then roll object left 3,5
   if joystick twist z()=-1000 then roll object right 3,5
   if joystick slider a()=0 then move object 3,1000
   if joystick slider a()=65535 then move object 3,-60

rem VTOL take off and landing
if controlkey()=1 or joystick fire x(5)
   position object 2,object position x(2),object position y(2)+height,object position z(2)
  height=90
endif
if spacekey()=1 or joystick fire x(4)
   position object 2,object position x(2),object position y(2)-10,object position z(2)
  height=height-1
endif

  If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person

   If cammode = 0

     rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1
     endif
     endif
     endif
 If Invehicle=1
      rem Set the hat look flags to nothing
      lookUp = 0: lookLeft = 0: lookRight = 0: lookBack = 0
      if jhat = 0 then lookUp = 1
      if jhat=9000 or jhat=4500 or jhat=13500 then lookRight = 1
      if jhat=31500 or jhat=27000 or jhat=22500 then lookLeft = 1
      if jhat = 18000 then lookBack = 1

     if lookRight = 1 then turn camera right 90.0
     if lookLeft = 1  then turn camera left 90.0
     if lookUp = 1    then pitch camera up 45.0
     if lookBack = 1  then turn camera right 180.0
   else


     rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1

   rem Place  for 3rd person

    move object 1,-150
    position object 3,object position x(1),object position y(1),object position z(1)
    move object 1,150



   rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation 1


  Endif
 sync

loop

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 23rd Sep 2004 07:15

Link

Damn need help I am so close yewt so far again, so much better if there was an actual book to explain how do do things

Back to top

Profile PM

Torrey

20

Years of Service

User Offline

Joined: 20th Aug 2004

Location: New Jersey

Posted: 23rd Sep 2004 08:17 Edited at: 23rd Sep 2004 08:20

Link

Change your keystates in the IF commands to look something like:

if upkey() = 1 or keystate(17) = 1

Do that with every occurance of it, but make sure to make a backup of your current source before doing that.

Back to top

Profile PM Email

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 23rd Sep 2004 13:39

Link

Is that the problem then Torrey?

Back to top

Profile PM

Torrey

20

Years of Service

User Offline

Joined: 20th Aug 2004

Location: New Jersey

Posted: 23rd Sep 2004 13:58

Link

There's a lot wrong here. The first two subs you try to call don't exist (_UpdateAircraft _UpdateHovertank). There are some IF statements that are missing endif's and then that makes your loop at the bottom out of whack. The best thing to do is, update your source with the two labels, _UpdateAircraft _UpdateHovertank so those calls can be made. After you're done with that zip up the source file, with models and whatever media it needs, and I'll spend some time repairing the thing. Wouldn't take too long, or at least I think that.

Back to top

Profile PM Email

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 23rd Sep 2004 22:13 Edited at: 23rd Sep 2004 23:06

Link

OK I will need your email address though Torrey, Sorry silly me see your email there still I have sent everything, goodbye

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 25th Sep 2004 06:05

Link

Er I haven't heard from you fr a while Torrey what's happenning please?

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 25th Sep 2004 10:31

Link

Well, one thing I saw was;

+ Code Snippet

rem check distance from vehicle
 if (playerX#-hovertankX#)^2+(playerZ#-hovertankZ#)^2 <= 160
rem If chartacter collides with vehicle
if object collision(vehicle,player)=1
   rem get into vehicle and make sure pilot is not detected anymore
   glue object to limb 1,2,23
   position object 1,0,0,0
   set object collision off 1
   hide object 1
endif
rem ----> possible missing endif here?


set object collision on 1
REM Variables
player = 1
Hovertank = 2
inVehicle = 0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 1,100,100,100
cammode = 0

do

And I note that you never "return" from the subroutine of updateplayer, and that updateaircraft and updatehovercraft do not exist. In addition, during update player you seem to be making keyboard tests multiple times for different objects, and loading these objects over and over if the subroutine is called more than once. And all of this is done if invehicle = 0.

Basically, I think the code needs to be reorganized, common sections either joined or separated into different routines, loading objects once and only once, and cleaning up the flow. It's very hard to make out what changes should be done from a simple reading however, so I think you need to rewrite it.
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 25th Sep 2004 23:53

Link

OK Sandra D thanks

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 28th Sep 2004 15:14 Edited at: 28th Sep 2004 15:16

Link

Well I have managed to solve the syntax error problem but now I can't seem to get the player object to hide and jion on to the aircraft object

REM *************************************************************
REM *************************************************************
REM *************************************************************
REM *************************************************************
REM Solar Dominion In And Out Vehicles Test Levels
REM *************************************************************
REM *************************************************************
REM *************************************************************
REM *************************************************************

autocam off
hide mouse
sync rate 60
sync on

Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
update matrix 1
X#=5000
Z#=5000

rem Make drone to mark a back position
make object sphere 3,10
hide object 3

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,40
rem scale object
scale object 1,25,25,25

`position object 1,object position x(2),object position y(2),object position z(2)

rem If chartacter collides with vehicle
if object collision(1,2)=2
   rem get into vehicle and make sure pilot is not detected anymore
   glue object to limb 1,2,4
   position object 1,0,0,0
   set object collision off 1
endif

cammode = 0

do

rem Modify character angle based on left/right keys
 stage=0
 if upkey()=1 or keystate(17)
   x# = newxvalue(x#,wrapvalue(AngleY#),30)
   z# = newzvalue(z#,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
 rem backward
   if downkey()=1 or keystate(31)
   x# = newxvalue(x#,wrapvalue(AngleY#),-30)
   z# = newzvalue(z#,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem left
 if leftkey()=1 or keystate(30)
 x# = newxvalue(x#,wrapvalue(AngleY#-90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#-90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem right
 if rightkey()=1 or keystate(32)
 x# = newxvalue(x#,wrapvalue(AngleY#+90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#+90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

xMouse=mousemovex()
 yMouse=mousemovey()
 AngleY#=wrapvalue(AngleY#+xMouse)
 AngleX#=wrapvalue(AngleX#+yMouse)

Position object 1,x#,100,z#
 rotate object 1,AngleX#,AngleY#,0
 
rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#

rem Player jumping
if controlkey()=1 and ajump=1
   jumpb=1
   height=60
endif
if jumpb=1
   height=height-1
   position object 1,object position x(1),object position y(1)+height,object position z(1)
endif
if object position y(1)>100 then ajump=0 else ajump=1
if object position y(1)<100
   position object 1,object position x(1),100,object position z(1)
   jump=0
   height=0
endif

rem Aircraft Object
load object "AIRPL043.X", 2

rem Rotate and fix data so character faces right way
xrotate object 2,0
yrotate object 2,180
zrotate object 2,0
fix object pivot 2
position object 2,x,150,z

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,1000,1000,1000

rem movement
   if joystick up()=1 then pitch object up 2,5
   if joystick down()=1 then pitch object down 2,5
   if joystick left()=1 then turn object left 2,5
   if joystick right()=1 then turn object right 2,5
   if joystick twist z()=1000 then roll object left 2,5
   if joystick twist z()=-1000 then roll object right 2,5
   if joystick slider a()=0 then move object 2,1000
   if joystick slider a()=64531 then move object 2,-60

rem VTOL take off and landing
if controlkey()=1 or joystick fire x(7)
   position object 2,object position x(2),object position y(2)+height,object position z(2)
  height=90
endif
if spacekey()=1 or joystick fire x(6 )
   position object 2,object position x(2),object position y(2)-10,object position z(2)
  height=height-10
endif

rem HAT control
  jhat=joystick hat angle(0)

text 10,10,"HAT signal: "+str$(jhat)
  text 10,20,"Joystick:   "+str$(jx)+"/"+str$(jy)
  text 10,30,"Slider:     "+str$(joystick slider a())
  text 10,40,"FPS:        "+str$(screen fps())

If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person

If cammode = 0
     rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1

if lookRight = 1 then turn camera right 90.0
     if lookLeft = 1  then turn camera left 90.0
     if lookUp = 1    then pitch camera up 45.0
     if lookBack = 1  then turn camera right 180.0
   else

rem Place  for 3rd person

move object 1,-150
    position object 3,object position x(1),object position y(1),object position z(1)
    move object 1,150

rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation 1

Endif

sync
loop

+ Code Snippet

REM *************************************************************
REM *************************************************************
REM *************************************************************
REM *************************************************************
REM Solar Dominion In And Out Vehicles Test Levels
REM *************************************************************
REM *************************************************************
REM *************************************************************
REM *************************************************************

autocam off
hide mouse
sync rate 60
sync on

Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
update matrix 1
X#=5000
Z#=5000

rem Make drone to mark a back position
make object sphere 3,10
hide object 3



rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,40
rem scale object
scale object 1,25,25,25

`position object 1,object position x(2),object position y(2),object position z(2)


rem If chartacter collides with vehicle
if object collision(1,2)=2
   rem get into vehicle and make sure pilot is not detected anymore
   glue object to limb 1,2,4
   position object 1,0,0,0
   set object collision off 1
endif


cammode = 0

do

 rem Modify character angle based on left/right keys
 stage=0
 if upkey()=1 or keystate(17)
   x# = newxvalue(x#,wrapvalue(AngleY#),30)
   z# = newzvalue(z#,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
 rem backward
   if downkey()=1 or keystate(31)
   x# = newxvalue(x#,wrapvalue(AngleY#),-30)
   z# = newzvalue(z#,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

 rem left
 if leftkey()=1 or keystate(30)
 x# = newxvalue(x#,wrapvalue(AngleY#-90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#-90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

 rem right
 if rightkey()=1 or keystate(32)
 x# = newxvalue(x#,wrapvalue(AngleY#+90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#+90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif


 xMouse=mousemovex()
 yMouse=mousemovey()
 AngleY#=wrapvalue(AngleY#+xMouse)
 AngleX#=wrapvalue(AngleX#+yMouse)


 Position object 1,x#,100,z#
 rotate object 1,AngleX#,AngleY#,0
 
rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF



rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#

rem Player jumping
if controlkey()=1 and ajump=1
   jumpb=1
   height=60
endif
if jumpb=1
   height=height-1
   position object 1,object position x(1),object position y(1)+height,object position z(1)
endif
if object position y(1)>100 then ajump=0 else ajump=1
if object position y(1)<100
   position object 1,object position x(1),100,object position z(1)
   jump=0
   height=0
endif

rem Aircraft Object
load object "AIRPL043.X", 2

rem Rotate and fix data so character faces right way
xrotate object 2,0
yrotate object 2,180
zrotate object 2,0
fix object pivot 2
position object 2,x,150,z


rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,1000,1000,1000



  rem movement
   if joystick up()=1 then pitch object up 2,5
   if joystick down()=1 then pitch object down 2,5
   if joystick left()=1 then turn object left 2,5
   if joystick right()=1 then turn object right 2,5
   if joystick twist z()=1000 then roll object left 2,5
   if joystick twist z()=-1000 then roll object right 2,5
   if joystick slider a()=0 then move object 2,1000
   if joystick slider a()=64531 then move object 2,-60

rem VTOL take off and landing
if controlkey()=1 or joystick fire x(7)
   position object 2,object position x(2),object position y(2)+height,object position z(2)
  height=90
endif
if spacekey()=1 or joystick fire x(6 )
   position object 2,object position x(2),object position y(2)-10,object position z(2)
  height=height-10
endif

  rem HAT control
  jhat=joystick hat angle(0)

  text 10,10,"HAT signal: "+str$(jhat)
  text 10,20,"Joystick:   "+str$(jx)+"/"+str$(jy)
  text 10,30,"Slider:     "+str$(joystick slider a())
  text 10,40,"FPS:        "+str$(screen fps())

  If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person

   If cammode = 0
     rem Place camera and set orientation to object for FPS
     position camera object position x(1),object position y(1)+60,object position z(1)
     set camera to object orientation 1

     if lookRight = 1 then turn camera right 90.0
     if lookLeft = 1  then turn camera left 90.0
     if lookUp = 1    then pitch camera up 45.0
     if lookBack = 1  then turn camera right 180.0
   else


    rem Place  for 3rd person

    move object 1,-150
    position object 3,object position x(1),object position y(1),object position z(1)
    move object 1,150



   rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation 1


  Endif

  sync
loop

also I can't get the player object to append to the walk x data what is wrong, why doesn't it work?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Getting a syntax error