I am not positioning my character like that this is my code
`########################################################################################################################
`#*************************************************** Main Source File *************************************************#
`########################################################################################################################
`================================================================================
`=---------------------------DISPLAY--------------------------------------------=
`================================================================================
SYNC ON : SYNC RATE 75
SET NORMALIZATION ON
SET DISPLAY MODE 1024,768,32,1
SET CAMERA RANGE 0,0.1,955000000
SET CAMERA FOV 0,60
BACKDROP OFF
AUTOCAM OFF
HIDE MOUSE
GOSUB stats:
`================================================================================
`=-----------------------SET-DIRECTORIES----------------------------------------=
`================================================================================
SET DIR "C:UsersOnQueDesktoprunner"
`#######################################################################################################################
`#-------------------------------------------------PLAYER-VARIBLES-----------------------------------------------------#
`#######################################################################################################################
`--------------------------------------------------
`--------------PLAYER-&-WEAPONS-&-AMMO-------------
`--------------------------------------------------
`-----------------PLAYER-CREATION------------------
PYR = 1 ` Player Object Value
DUMMY = 9000
`########################################################################################################################
`#--------------------------------------------------ENVIROMENT----------------------------------------------------------#
`########################################################################################################################
intBoxNum = 101
` #######################################################################################################################
`#----------------------------------------------------LEVELS------------------------------------------------------------#
`########################################################################################################################
`city_1 = 200
` #######################################################################################################################
`#---------------------------------------------------BUILDING-1---------------------------------------------------------#
`########################################################################################################################
building_1 = 201
building_2 = 202
building_3 = 203
building_4 = 204
building_5 = 205
building_6 = 206
building_7 = 207
building_8 = 208
building_9 = 209
building_10 = 210
building_11 = 211
building_12 = 212
building_13 = 213
building_14 = 214
building_15 = 215
building_16 = 216
building_17 = 217
building_18 = 218
building_19 = 219
building_20 = 220
building_21 = 221
building_22 = 222
building_23 = 223
building_24 = 224
ground_0 = 200
`================================================================================
`=--------------------PLAYER,WEAPON-CHANGE-&-RELOAD-----------------------------=
`================================================================================
`-------------------------------PLAYER-------------------------------------------
ANIMATE# = ANIMATE# `JUMP VARIBLE
PHealth# = PlrHealth#
Old_PHealth# = OPlrHealth#
MOVE = 1
`================================================================================
`=-----------------------------------GLOBAL-------------------------------------=
`================================================================================
GLOBAL RADIUS# AS DOUBLE FLOAT : RADIUS# = 8
Global PRotY# = 2.0
GLOBAL PRotZ# = 2.0
GLOBAL SKYrotY# = 2.0
Global z# = .05
GLOBAL Bro#=bro#
`------------------------------PLAYER-MOVEMENT-VECTOR----------------------------
GLOBAL vx# AS DOUBLE FLOAT
GLOBAL vy# AS DOUBLE FLOAT
GLOBAL vz# AS DOUBLE FLOAT
GLOBAL gravity# AS DOUBLE FLOAT : gravity# = -.07
GLOBAL slope# AS DOUBLE FLOAT : slope# = 0
GLOBAL ground AS INTEGER : ground = 1
GLOBAL jumptimer AS INTEGER : jumptimer = 0
GLOBAL SPEED AS FLOAT : SPEED = .6
GLOBAL SPEED_1 AS FLOAT : SPEED_1 = .4
GLOBAL VIEW AS INTEGER : VIEW = 1
`================================================================================
`=--------------------------CHARACTER-LOAD-PLAYER-------------------------------=
`================================================================================
MAKE OBJECT SPHERE PYR,1
HIDE OBJECT PYR
MAKE OBJECT SPHERE DUMMY,radius#
`POSITION OBJECT DUMMY ,5500000,550000000,9000000``19092,10000,10451
HIDE OBJECT DUMMY
SC_SETUPCOMPLEXOBJECT dummy,0,2
`==================================================
`=---------------------SKY------------------------=
`==================================================
LOAD OBJECT "SKYBOXCIELO.X",INTBOXNUM
YROTATE OBJECT INTBOXNUM,180
SET OBJECT LIGHT INTBOXNUM,0
SET OBJECT TEXTURE INTBOXNUM,2,1
SET OBJECT CULL INTBOXNUM,0
SCALE OBJECT INTBOXNUM, 110000000000000, 110000000000000, 110000000000000
POSITION OBJECT INTBOXNUM, 17090,-900,28934.9980469
`#######################################################################################################################
`#----------------------------------------SCENE-LOADING----------------------------------------------------------------#
`#######################################################################################################################
LOAD OBJECT "level_1ground.x",ground_0
POSITION OBJECT ground_0, 7000,-250500,9784
SCALE OBJECT ground_0, 1000000,100000,1000000
LOAD IMAGE "level_1concrete texture.bmp" ,500
LOAD OBJECT "level_1building_1.x",building_1
POSITION OBJECT building_1,0,-150,0
SCALE OBJECT building_1,1000,1000,1000
SET OBJECT SMOOTHING building_1,100
SC_SETUPOBJECT building_1,2,0
LOAD OBJECT "level_1building_2.x",building_2
POSITION OBJECT building_2,-330,-250,0
SET OBJECT SMOOTHING building_2,100
SCALE OBJECT building_2, 200,200,200
SC_SETUPOBJECT building_2,2,0
LOAD OBJECT "level_1building_3.x",building_3
SET OBJECT SMOOTHING building_3,100
SCALE OBJECT building_3, 500,500,500
SC_SETUPOBJECT building_3,2,0
LOAD OBJECT "level_1building_4.x",building_4
SET OBJECT SMOOTHING building_4,100
SCALE OBJECT building_4, 1000,1000,1000
SC_SETUPOBJECT building_4,2,0
LOAD OBJECT "level_1building_5.x",building_5
SET OBJECT SMOOTHING building_5,100
SCALE OBJECT building_5, 1000,1000,1000
SC_SETUPOBJECT building_1,2,0
LOAD OBJECT "level_1building_6.x",building_6
SET OBJECT SMOOTHING building_6,100
SCALE OBJECT building_6, 1000,1000,1000
SC_SETUPOBJECT building_6,2,0
LOAD OBJECT "level_1building_7.x",building_7
SET OBJECT SMOOTHING building_7,100
SCALE OBJECT building_7, 1000,1000,1000
SC_SETUPOBJECT building_7,2,0
remstart
LOAD OBJECT "level_1building_8.x",building_8
SCALE OBJECT building_8, 1000,1000,1000
SC_SETUPOBJECT building_8,2,2
LOAD OBJECT "level_1building_9.x",building_9
SCALE OBJECT building_9, 1000,1000,1000
SC_SETUPOBJECT building_9,2,2
LOAD OBJECT "level_1building_10.x",building_10
SCALE OBJECT building_10, 1000,1000,1000
SC_SETUPOBJECT building_10,2,2
LOAD OBJECT "level_1building_11.x",building_11
SCALE OBJECT building_11, 1000,1000,1000
SC_SETUPOBJECT building_11,2,2
LOAD OBJECT "level_1building_12.x",building_12
SCALE OBJECT building_12, 1000,1000,1000
SC_SETUPOBJECT building_12,2,2
LOAD OBJECT "level_1building_13.x",building_13
SCALE OBJECT building_13, 1000,1000,1000
SC_SETUPOBJECT building_13,2,2
LOAD OBJECT "level_1building_14.x",building_14
SCALE OBJECT building_14, 1000,1000,1000
SC_SETUPOBJECT building_14,2,2
LOAD OBJECT "level_1building_15.x",building_15
SCALE OBJECT building_15, 1000,1000,1000
SC_SETUPOBJECT building_3,2,2
LOAD OBJECT "level_1building_16.x",building_16
SCALE OBJECT building_16, 1000,1000,1000
SC_SETUPOBJECT building_16,2,2
LOAD OBJECT "level_1building_17.x",building_17
SCALE OBJECT building_17, 1000,1000,1000
SC_SETUPOBJECT building_17,2,2
LOAD OBJECT "level_1building_18.x",building_18
SCALE OBJECT building_18, 1000,1000,1000
SC_SETUPOBJECT building_18,2,2
LOAD OBJECT "level_1building_19.x",building_19
SCALE OBJECT building_19, 1000,1000,1000
SC_SETUPOBJECT building_19,2,2
LOAD OBJECT "level_1building_20.x",building_20
SCALE OBJECT building_20, 1000,1000,1000
SC_SETUPOBJECT building_20,2,2
LOAD OBJECT "level_1building_21.x",building_21
SCALE OBJECT building_21, 1000,1000,1000
SC_SETUPOBJECT building_21,2,2
LOAD OBJECT "level_1building_22.x",building_22
SCALE OBJECT building_22, 1000,1000,1000
SC_SETUPOBJECT building_22,2,2
LOAD OBJECT "level_1building_23.x",building_23
SCALE OBJECT building_23, 1000,1000,1000
SC_SETUPOBJECT building_23,2,2
LOAD OBJECT "level_1building_24.x",building_24
SCALE OBJECT building_24, 1000,1000,1000
SC_SETUPOBJECT building_24,2,2
remend
DO
`SC_UpdateObject building_1
`SC_UpdateObject dummy
IF SHIFTKEY()=1
RADIUS# = RADIUS# -.3
IF RADIUS# < 4
RADIUS# = 4
ENDIF
ENDIF
IF SHIFTKEY()=0 AND RADIUS# >= 4
RADIUS# = RADIUS# +.3
IF RADIUS# > 8
RADIUS# = 8
ENDIF
ENDIF
`IF SHIFTKEY()=1 AND MOUSECLICK()=2 THEN RADIUS# = 1
`IF SHIFTKEY()=0 THEN INC RADIUS#,1
rem if player is jumping or falling then apply 'normal' gravity
rem if not attempt to keep the player stuck to the floor
yrotate object DUMMY,object angle Y(DUMMY)+mousemovex()/3.0
xrotate object DUMMY,object angle X(DUMMY)+mousemovey()/3.0
IF OBJECT ANGLE X(DUMMY)>90 THEN XROTATE OBJECT DUMMY,90
IF OBJECT ANGLE X(DUMMY)<-90 THEN XROTATE OBJECT DUMMY,-90
yrotate object PYR,object angle Y(DUMMY)
xrotate object PYR,object angle X(DUMMY)
IF vy#=0 AND jumptimer=0 THEN vy# = vy# + 15*gravity# ELSE vy# = vy# + gravity#
IF KEYSTATE(32)=1 THEN vx# = VX# + COS(angy#)*speed_1 : vz# = -VZ# - SIN(angy#)*speed_1
IF KEYSTATE(30)=1 THEN vx# =-VX# - COS(angy#)*speed_1 : vz# = VZ# + SIN(angy#)*speed_1
IF KEYSTATE(31)=1 THEN vx# =-VX# - SIN(angy#)*speed_1 : vz# = -VZ# - COS(angy#)*speed_1
IF MOUSECLICK()=2 THEN vx# = VX# + SIN(angy#)*speed : vz# = VZ# + COS(angy#)*speed
IF MOUSECLICK()=3 THEN vx# = VX# + SIN(angy#)*speed : vz# = VZ# + COS(angy#)*speed
IF KEYSTATE(31)=1 AND MOUSECLICK()=2 THEN vx# =-VX# - SIN(angy#)*speed_1 : vz# = -VZ# - COS(angy#)*speed_1
IF KEYSTATE(31)=1 AND KEYSTATE(32)=1
vx# =-VX# - SIN(angy#)*speed_1 : vz# = -VZ# - COS(angy#)*speed_1
vx# = -VX# + COS(angy#)*speed_1 : vz# = VZ# - SIN(angy#)*speed_1
ENDIF
IF keystate(31)=1 and keystate(30)=1
vx# =-VX# - SIN(angy#)*speed_1 : vz# = -VZ# - COS(angy#)*speed_1
vx# = VX# - COS(angy#)*speed_1 : vz# = -VZ# + SIN(angy#)*speed_1
ENDIF
IF ground=1
IF spacekey()=1 AND jumptimer=0 THEN vy# = vy# + 3.1 : jumptimer = 10
ENDIF
DX# = OBJECT POSITION X(DUMMY)
DY# = OBJECT POSITION Y(DUMMY)
DZ# = OBJECT POSITION Z(DUMMY)
rem this would be the player's final position without collision
x# = oldx#+vx#
y# = oldy#+vy#
z# = oldz#+vz#
rem first handle gravity - seperated from horizontal movement
rem to achieve a more realistic effect
rem Method: simple - cast a sphere vertically down, if it hits the level then
rem position the object there (sticky collision) then move
rem on to horizontal movement
rem more complex - if we were to only use the simple method the player would be
rem allowed to climb almost vertical slopes. Alternative is to
rem get the normalY direction to work out how flat the gorund
rem below the player is, 0-slope# is flatter, slope#-1 is steeper.
rem if it's flat, use sticky collision, if it's steep slide the
rem player down the slope. Changing slope# determines how steep the
rem player can climb. NOTE: this also effects stairs.
collide = sc_SphereCastGroup(0,oldx#,oldy#,oldz#,oldx#,oldy#+vy#,oldz#,radius#,0)
IF collide>0
rem how flat is this ground
ny# = sc_getCollisionNormalY()
IF ABS(ny#)>slope#
rem FLAT, stick
oldy# = sc_getStaticCollisionY()
ELSE
rem STEEP, slide
x# = x# - oldx# : z# = z# - oldz#
oldx# = sc_getCollisionSlideX()
oldy# = sc_getCollisionSlideY()
oldz# = sc_getCollisionSlideZ()
x# = x# + oldx# : z# = z# + oldz#
ENDIF
rem ny#<0 means the player has hit a ceiling rather than a floor
IF ny#>slope#
rem only on ground if standing on flat ground
ground = 1
vy# = 0
ELSE
ground = 0
rem if player has hit a flat ceiling then stop vy# movement
IF ny#<-slope# THEN vy# = gravity#
ENDIF
ELSE
rem nothing below player, not on ground, add vertical speed to player
oldy# = oldy# + vy#
ground = 0
ENDIF
rem jumptimer will decrease only when player is back on ground
rem creates a pause between two successive jumps
IF ground = 1 AND jumptimer>0 THEN DEC jumptimer
rem handle horizontal movement as sliding
rem player only collides with group 1 (level) objs and moves freely through others
collide = sc_SphereSlideGroup(0,oldx#,oldy#,oldz#,x#,oldy#,z#,radius#,0)
IF collide>0
rem if hit, reposition player, halt movement vector
x# = sc_getCollisionSlideX()
oldy# = sc_getCollisionSlideY()
z# = sc_getCollisionSlideZ()
vx# = 0
vz# = 0
rem possible code for giving the player a jumping help up stairs...
rem might be useful if slope# is set very high but stairs are still required
ENDIF
POSITION OBJECT DUMMY,x#,OLDY#,z#
POSITION OBJECT PYR,OBJECT POSITION X(DUMMY),OBJECT POSITION Y(DUMMY)+2,OBJECT POSITION Z(DUMMY)
`position object T_Dummy,OBJECT POSITION X(DUMMY),OBJECT POSITION Y(DUMMY),OBJECT POSITION Z(DUMMY)
SC_UPDATEOBJECT DUMMY
POSITION CAMERA 0, OBJECT POSITION X(pyr),OBJECT POSITION Y(pyr),OBJECT POSITION Z(PYR)
ROTATE CAMERA 0,OBJECT ANGLE X(PYR),OBJECT ANGLE Y(PYR),OBJECT ANGLE Z(PYR)
Scale# = Scale#
move# = Move#
rotate# = rotate#
object = object
currentobject# = currentobject#
`================================================================================
`=-------------------------------OBJECT-SELECTION-------------------------------=
`================================================================================
IF KEYSTATE( 10)=1 THEN currentobject#=1
IF currentobject#=1
object = BUIDLING_7
endif
IF keystate(11)=1 then currentobject#=2
IF currentobject#=2
object = palm_1
ENDIF
IF keystate(16)=1 then currentobject#=3
IF currentobject#=3
object = palm_2
ENDIF
IF KEYSTATE(17)=1 THEN currentobject#=4
IF currentobject#=4
object =palm_3
ENDIF
IF keystate(18)=1 then currentobject#=5
IF currentobject#=5
object = palm_4
ENDIF
IF keystate(19)=1 then currentobject#=6
IF currentobject#=6
object = palm_5
ENDIF
IF KEYSTATE(20)=1 THEN currentobject#=7
IF currentobject#=7
object = palm_6
ENDIF
IF keystate(21)=1 then currentobject#=8
IF currentobject#=8
object = palm_7
ENDIF
IF keystate(22)=1 then currentobject#=9
IF currentobject#=9
object = palm_8
ENDIF
`================================================================================
`=------------------------------OBJECT-MANIPULATION-----------------------------=
`================================================================================
`-----------------------------OBJECT-MANIPULATION-(MOVE)------------------------
IF KEYSTATE(13) = 1
scale# = 0
rotate# = 0
move# = 1
ENDIF
IF move# = 1
IF LEFTKEY()=1 THEN MOVE OBJECT LEFT object,200
IF RIGHTKEY()=1 THEN MOVE OBJECT RIGHT object,200
IF DOWNKEY()=1 THEN MOVE OBJECT object,-.1
IF UPKEY()=1 THEN MOVE OBJECT object,.1
IF KEYSTATE(14)=1 THEN MOVE OBJECT UP object,200
IF KEYSTATE(28)=1 THEN MOVE OBJECT DOWN object,200
ENDIF
center text sw/10,0,"OPOSX "+str$(OPOSX#)
center text sw/2,0,"OPOSy "+str$(OPOSy#)
center text sw/2,25,"OPOSz "+str$(OPOSz#)
`----------------------------OBJECT-MANIPULATION-(ROTATE)-----------------------
IF KEYSTATE(15)=1
rotate# = 1
move# =0
scale#=0
ENDIF
IF rotate# = 1
ROTATE OBJECT OBJECT,rotX#,rotY#,rotZ#
IF LEFTKEY()=1 then INC roty#,1
IF RIGHTKEY()=1 then DEC roty#,1
IF DOWNKEY()=1 then DEC ROTZ#,1
IF UPKEY()=1 then INC ROTZ#,1
IF KEYSTATE(25)=1 THEN INC rotX#,1
IF KEYSTATE(24)=1 THEN DEC rotX#,1
ENDIF
center text sw/2,125,"rotx "+str$(rotx#)
center text sw/2,150,"roty "+str$(roty#)
center text sw/2,175,"rotz "+str$(rotz#)
`-----------------------------OBJECT-MANIPULATION-(SCALE)------------------------
IF Keystate(12)=1
scale# = 1
rotate# = 0
move#= 0
ENDIF
IF Scale# = 1
SCALE OBJECT OBJECT,SCLX#,SCLY#,SCLZ#
IF LEFTKEY()=1 then INC SCLX#,1
IF RIGHTKEY()=1 then DEC SCLX#,1
IF DOWNKEY()=1 then DEC SCLZ#,1
IF UPKEY()=1 then INC SCLZ#,1
IF KEYSTATE(26)=1 THEN INC SCLY#,1
IF KEYSTATE(27)=1 THEN DEC SCLY#,1
endif
`================================================================================
`=------------------------OBJECT-COORDIATE-INFO---------------------------------=
`================================================================================
PXP# = OBJECT POSITION X(PYR)
PYP# = OBJECT POSITION Y(PYR)
PZP# = OBJECT POSITION Z(PYR)
ph6X#=OBJECT POSITION X(BUILDING_7)
ph6Y#=OBJECT POSITION Y(BUILDING_7)
ph6Z#=OBJECT POSITION Z(BUILDING_7)
Ph4x#=OBJECT POSITION X(BUILDING_4)
ph4y#=OBJECT POSITION Y(BUILDING_4)
ph4z#=OBJECT POSITION Z(BUILDING_4)
Ph5x#=OBJECT POSITION X(BUILDING_5)
ph5y#=OBJECT POSITION Y(BUILDING_5)
ph5z#=OBJECT POSITION Z(BUILDING_5)
` center text sw/2,50,"sclx "+str$(sclx#)
` center text sw/2,75,"scly "+str$(scly#)
` center text sw/2,100,"sclz "+str$(sclz#)
sx#=OBJECT POSITION X(intboxnum)
sy#=OBJECT POSITION Y(intboxnum)
sz#=OBJECT POSITION Z(intboxnum)
oldx# = OBJECT POSITION X(dummy)
oldy# = OBJECT POSITION Y(dummy)
oldz# = OBJECT POSITION Z(dummy)
camx# = CAMERA POSITION X(0)
camy# = CAMERA POSITION Y(0)
camz# = CAMERA POSITION Z(0) rem apply gravity, and user changes to movement
angy# = OBJECT ANGLE Y(dummy)
vx# = 0
vz# = 0
bx# = 0
bz# = 0
cax# = camera ANGLE X(0)
cay# = camera ANGLE Y(0)
caz# = camera ANGLE Z(0)
text 0,screen height()-75,"city position x: "+str$(PXP#)
text 0,screen height()-50,"city position y: "+str$(PYP#)
text 0,screen height()-25,"city position z: "+str$(PZP#)
text 0,screen height()-225,"BUILDING_7 position X: "+str$(ph6X#)
text 0,screen height()-250,"BUILDING_7 position Y: "+str$(ph6Y#)
text 0,screen height()-275,"BUILDING_7 position Z: "+str$(ph6Z#)
text 0,screen height()-375,"BUILDING_5 position x: "+str$(ph5X#)
text 0,screen height()-350,"BUILDING_5 position y: "+str$(ph5y#)
text 0,screen height()-325,"BUILDING_5 position z: "+str$(ph5z#)
text 0,screen height()-150,"BUILDING_4 position x: "+str$(p4x#)
text 0,screen height()-125,"BUILDING_4 POSITION y: "+str$(p4y#)
text 0,screen height()-100,"BUILDING_4 position z: "+str$(p4z#)
SYNC
LOOP
delete memblock 1
`================================================================================
`=------------------------POLY-COUNTER------------------------------------------=
`================================================================================
stats:
`
rem reveal value
if tmdisplaywait>0 then dec tmdisplaywait
`
rem stat panel slides
`
rem fps, poly and timing stats
if tmdisplaywait<10
col as dword : col=(255-(25*tmdisplaywait))
colb=(col<<24) : colw=(col<<24)+(col<<16)+(col<<8)+(col)
s1$="POLY:"+str$(statistic(1)/1000)+"k FPS:"+str$(screen fps())
ink colb,0 : center text (screen width()/2)+1,(screen height()-40)+1,s1$
ink colw,0 : center text screen width()/2,screen height()-40,s1$
if tmglob>0
p1#=tmsync : p2#=tmglob : p1b#=tmphys : p2b#=tmglob : p1c#=tmrest : p2c#=tmglob
s2$="TIMING "+" DRAW:"+str$((p1#/p2#)*100,0)+"% AI:"+str$((p1b#/p2b#)*100,0)+"% CODE:"+str$((p1c#/p2c#)*100,0)+"%"
ink colb,0 : center text (screen width()/2)+1,(screen height()-30)+1,s2$
ink colw,0 : center text screen width()/2,screen height()-30,s2$
endif
endif
`
return
can I do this with this kinda of positioning or will I have to
change everything which I would'nt mind. Also I havent messed with
timers before would you mind explaining more. I thought I
understood, but when I ran it it gave me an error at the end while
comand .
thanks very much POLLYWOG
