hello got problem in dbp i got bsp map where i trying to drop player
and the problem is i cant move anywhere and when i move my mouse the screen start shaking....
there is the code
rem World3D Showcase
rem Standard Setup Code
sync on : sync rate 0 : color backdrop rgb(0,0,64) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING PLEASE WAIT" : sync
rem Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
rem Load BSP world
load bsp "mapa/cs_dust.wad","mapa/de_dust.bsp"
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001
rem Main loop
desc$="By TIN TIN ;]"
do
rem making screenshoot
rem Auto camera control
rem TUT5A
rem Trigger player initialisation
restart=1
rem TUT5B
rem In case of restart
if restart=1
restart=0
set bsp collision off 1
set bsp camera collision 1,0,0.75,0
endif
rem TUT5C
rem Control player direction
rotate camera camera angle x(0)+(mousemovey()/2.0),camera angle y(0)+(mousemovex()/2.0),0
rem Control player movement
cx#=camera angle x(0) : cy#=camera angle y(0)
if upkey()=1 then xrotate camera 0,0 : move camera 0,0.2 : xrotate camera 0,cx#
if downkey()=1 then xrotate camera 0,0 : move camera 0,-0.2 : xrotate camera 0,cx#
if leftkey()=1 then yrotate camera 0,cy#-90 : move camera 0.2 : yrotate camera 0,cy#
if rightkey()=1 then yrotate camera 0,cy#+90 : move camera 0.2 : yrotate camera 0,cy#
if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280
rem Apply simple gravity to player
position camera camera position x(),camera position y()-0.1,camera position z()
rem TUT5D
rem Player is always focal point of sky
rem Position listener at player for 3D sound
position listener camera position x(),camera position y(),camera position z()
rotate listener camera angle x(),camera angle y(),camera angle z()
rem Show Framerate
text 20,screen height()-40,desc$
fps$="FPSY: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
sync rate 60
rem Update screen
sync
rem End loop
loop
