glitchy jump code?

Blitz3D Forums/Blitz3D Beginners Area/glitchy jump code?

Guy Fawkes (Posted 2010) [#1]

What's up w/ this code? When I turn bounce off, it doesn't let me jump. But when I turn it on, if u bounce then try to jump, it sometimes allows u to jump twice.. I need it to STOP bouncing, and ONLY jump one time: Graphics3D 800,600,0,2 ; ********************************* GLOBALS **************************** Global midw,midh,disctex,boxtex,grasstex Global cam,player,item,player_piv;,hat Global camdistance#=5,camheight#=10 Global on_platform=0 Global picklength#=.5 Global pictentity Global gravity#=.01 Global turnspeed#,lateral_speed#,speed#,pxvel#,pyvel#,pzvel#,pyspin# ; player velocities Global jumping=1 Global pause Global camdist_to_player# Global fps Type platform Field entity,brush Field startX#,starty#,startz#,xdist#,ydist#,zdist#,xspeed#,yspeed#,zspeed#,startdelay#,enddelay# Field yvel#,xvel#,zvel#,yspin#,mx#,my# Field xdamp#,ydamp#,zdamp# Field xdirection,ydirection,zdirection Field xstartdelaycounter,xenddelaycounter Field ystartdelaycounter,yenddelaycounter Field zstartdelaycounter,zenddelaycounter End Type SeedRnd MilliSecs Global jumpsound = LoadSound("Jump-SoundBible.com-1007297584.mp3") ; CREATE OUR PLATFORMS ; (startXposition#,y#,z#, xdist,Yd#,Zd#, xspd#,yspd#,zspd#, xdamp#,ydamp#, zdamp, startdelay#,enddelay#, yspin# ,SHAPE_OF_PLATFORM$) create_tex() ; go create some textures ; create the platforms for our little demo! create_platform.platform(5,3,0,5,10,0,.001,.0005,0,.96,.96,.96,0,0,0,"box") ;create_platform.platform(-6,6,0,0,30,0,.001,.001,0,.96,.96,.96,100,0,.5,"box") ;create_platform.platform(-14,35,-4,0,0,10,0,0,.002,0,0,.96,0,0,0,"box") ;create_platform.platform(10,2,10,0,40,0,0,.006,0,0,.9,0,200,50,0,"disc") ;create_platform.platform(10,1.99,10,0,39.99,0,0,.006,0,0,.9,0,200,50,0,"disc") ;create_platform.platform(5,2,-12,0,20,0,0,.00005,0,00,.99,0,0,0,0,"disc") ;create_platform.platform(5,1.99,-12,0,19.99,0,0,.00005,0,00,.99,0,0,0,0,"disc") create_world() Collisions 1,2,2,2 ; set up collisions between the player and the world Collisions 1,3,2,2 ; set up collisions between the player and items fps=1 HidePointer EntityAlpha player,0 ;EntityAlpha hat,0 .main ; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MAIN LOOP ################################### While Not KeyDown( 1 ) pause = 0 If KeyHit(28) And pause = 0 pause = 1 EndIf If pause pausemusic() Repeat If KeyHit(28) Then pause = 0 : stopmusic() Delay .01 Until pause = 0 EndIf ; Get the handle of the type-3 entity which the player has hit itemtofree = EntityCollided(player, 3) ; Check if there was an entity-handle returned (will be something else than 0) If itemtofree Then ; Free the entity FreeEntity itemtofree ; Clear the variable itemtofree = 0 EndIf If KeyHit(59) Then save_bitmap() ; CAMERA MODES If KeyHit(2) fps=0 ShowPointer EntityAlpha player,1 ; EntityAlpha hat,1 EndIf If KeyHit(3) fps=1 HidePointer EntityAlpha player,0 ; EntityAlpha hat,0 EndIf If KeyHit(4) HidePointer MessageBox(0,"TEST","Switching",0) ; EntityAlpha hat,0 EndIf ; Line pick up and down to see if we are on or below a platform pick_platform.platform() ; move the player If fps=1 Then fps_camera() If fps=0 Then move_player() ; check player to world collisions ; move the platforms do_collisions.platform() move_platform.platform() UpdateWorld RenderWorld draw_overlay() ; text and messages to the screen Text 10, 100, "entitycollided: "+EntityCollided(player, 3) Text 10, 120, "fps: "+fps Text 10, 140, "cam pitch: "+EntityPitch(cam) Text 10, 160, "cam yaw: "+EntityYaw(cam) Text 10, 180, "cam roll: "+EntityRoll(cam) Flip Wend End ; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;===================================== Function pausemusic() If pause And ChannelPlaying(pausedchan) = 0 paused=LoadSound("m2m-e821f618aef9b29e0938ab06730dce0112898.mp3") pausedchan=PlaySound(paused) LoopSound paused EndIf End Function Function stopmusic() StopChannel paused FreeSound paused End Function Function create_platform.platform(stX#,sty#,stz#,dX#,dY#,dZ#,xspd#,yspd#,zspd#,xdamp#,ydamp#,zdamp#,sdelay#,edelay#,yspin#,shape$) ; create a platform and position it in the world foo.platform=New platform If shape$="disc" foo\entity=CreateSphere() ScaleMesh foo\entity,3,.5,3 foo\brush=CreateBrush() BrushColor foo\brush,Rnd(100,255),Rnd(100,255),Rnd(100,255) BrushTexture foo\brush,disctex PaintEntity foo\entity,foo\BRUSH EndIf If shape$="column" foo\entity=CreateCylinder() ScaleMesh foo\entity,3,.25,3 foo\brush=CreateBrush() BrushColor foo\brush,Rnd(0,255),Rnd(0,255),Rnd(0,255) BrushTexture foo\brush,boxtex PaintEntity foo\entity,foo\BRUSH EndIf If shape$="box" foo\entity=CreateCube() ScaleMesh foo\entity,3,.5,3 foo\brush=CreateBrush() BrushColor foo\brush,Rnd(100,255),Rnd(100,255),Rnd(100,255) BrushTexture foo\brush,boxtex PaintEntity foo\entity,foo\BRUSH EndIf SetBuffer BackBuffer() EntityPickMode foo\entity,2 EntityType foo\entity,2 foo\startx#=stx# foo\starty#=sty# foo\startz#=stz# foo\xdist#=dx# foo\ydist#=dy# foo\zdist#=dz# foo\xspeed#=xspd# foo\yspeed#=yspd# foo\zspeed#=zspd# foo\xdamp#=xdamp# foo\Ydamp#=Ydamp# foo\Zdamp#=Zdamp# foo\yspin#=yspin# foo\startdelay#=sdelay# foo\enddelay#=edelay# PositionEntity foo\entity,stx#,sty#,stz# Return foo.platform End Function ;===================================== Function move_platform.platform() For foo.platform = Each platform If foo\xdirection=0 ; if Platform is going down? foo\xstartdelaycounter=foo\xstartdelaycounter-1 ; reduce startdelay counter If foo\xstartdelaycounter<1 ; if startdelay counter is less than 1 foo\xstartdelaycounter=0 ; set it to 0 (so it will be less than 1 until it is reset) foo\xvel#=foo\xvel#-foo\xspeed# ; accelerate TranslateEntity foo\entity,foo\xvel#,0,0 If EntityX(foo\entity)<foo\startx#+(foo\xdist#*.25) Then foo\xvel#=foo\xvel#*FOO\xdamp If EntityX(foo\entity)<foo\startx# ; if platform reaches the bottom foo\xdirection=1 ; change direction to UP foo\xenddelaycounter=foo\enddelay# ; reset end delay counter EndIf EndIf EndIf If foo\xdirection=1 ; UP foo\xenddelaycounter=foo\xenddelaycounter-1 If foo\xenddelaycounter<1 foo\xenddelaycounter=0 foo\xvel#=foo\xvel#+foo\xspeed# If EntityX(foo\entity)>foo\startx#+(foo\xdist#*.75) Then foo\xvel#=foo\xvel#*FOO\xdamp TranslateEntity foo\entity,foo\xvel#,0,0 If EntityX(foo\entity)>foo\startx#+foo\xdist# ;If on_platform=1 Then yvel#=0 foo\xdirection=0 foo\xstartdelaycounter=foo\startdelay# EndIf EndIf EndIf If foo\ydirection=0 ; if Platform is going down? foo\yenddelaycounter=foo\yenddelaycounter-1 ; reduce startdelay counter TurnEntity foo\entity,0,foo\yspin#,0 If foo\yenddelaycounter<1 ; if startdelay counter is less than 1 foo\yenddelaycounter=0 ; set it to 0 (so it will be less than 1 until it is reset) foo\yvel#=foo\yvel#-foo\yspeed# ; accelerate TranslateEntity foo\entity,0,foo\yvel#,0 If EntityY(foo\entity)<foo\startY#+(foo\ydist#*.25) Then foo\yvel#=foo\yvel#*FOO\ydamp If EntityY(foo\entity)<foo\starty# ; if platform reaches the bottom foo\ydirection=1 ; change direction to UP foo\ystartdelaycounter=foo\startdelay# ; stop the platform EndIf EndIf EndIf If foo\ydirection=1 ; UP foo\ystartdelaycounter=foo\ystartdelaycounter-1 TurnEntity foo\entity,0,foo\yspin#,0 If foo\ystartdelaycounter<1 foo\ystartdelaycounter=0 foo\yvel#=foo\yvel#+foo\yspeed# TranslateEntity foo\entity,0,foo\yvel#,0 If EntityY(foo\entity)>foo\startY#+(foo\ydist#*.75) Then foo\yvel#=foo\yvel#*FOO\ydamp If EntityY(foo\entity)>foo\startY#+foo\ydist# ;If on_platform=1 Then yvel#=0 foo\ydirection=0 ;foo\yvel#=0 foo\yenddelaycounter=foo\enddelay# ; reset end delay counter EndIf EndIf EndIf If foo\zdirection=0 ; foo\zenddelaycounter=foo\zenddelaycounter-1 ; reduce startdelay counter If foo\zenddelaycounter<1 ; if startdelay counter is less than 1 foo\zenddelaycounter=0 ; set it to 0 (so it will be less than 1 until it is reset) foo\zvel#=foo\zvel#-foo\zspeed# ; accelerate TranslateEntity foo\entity,0,0,foo\zvel# If EntityZ(foo\entity)<foo\startz#+(foo\zdist#*.25) Then foo\zvel#=foo\zvel#*FOO\zdamp If EntityZ(foo\entity)<foo\startz# ; if platform reaches the bottom foo\zdirection=1 ; change direction to UP foo\zstartdelaycounter=foo\startdelay# ; reset end delay counter EndIf EndIf EndIf If foo\zdirection=1 ; UP foo\zstartdelaycounter=foo\zstartdelaycounter-1 If foo\zstartdelaycounter<1 foo\zstartdelaycounter=0 foo\zvel#=foo\zvel#+foo\zspeed# TranslateEntity foo\entity,0,0,foo\zvel# If EntityZ(foo\entity)>foo\startz#+(foo\zdist#*.75) Then foo\zvel#=foo\zvel#*FOO\zdamp If EntityZ(foo\entity)>foo\startz#+foo\zdist# ;If on_platform=1 Then yvel#=0 foo\zdirection=0 foo\zenddelaycounter=foo\enddelay# EndIf EndIf EndIf Next Return foo.platform End Function ;============================================================================================= Function create_world() midw=GraphicsWidth()/2 midh=GraphicsHeight()/2 cam=CreateCamera() MoveEntity cam,0,10,-15 player=CreateCube() ;hat=CreateCube(player) ;MoveEntity hat,0,1,0 ;ScaleMesh hat,.1,.1,1 player_piv=CreatePivot(player) MoveEntity player_piv,0,0,-camdistance ;AddMesh hat,player MoveEntity player,0,15,-5 EntityColor player,200,0,0 EntityShininess player,.9 EntityRadius player,1 EntityType player,1 ; type 1 = player ------ type 2 = world objects, type 3 = item objects AmbientLight 255,255,255 ;lite=CreateLight() ;bulb=CreateSphere(6,lite) ;EntityFX bulb,1 ;EntityColor bulb,255,255,0 ;PositionEntity lite,-20,40,-20 item=CreateCylinder(6) ScaleEntity item, .2, .001, .2 EntityFX item,1 EntityColor item,255,255,0 PositionEntity item,0,1,0 EntityType item,3 ;level = LoadMesh("level.b3d") level=CreateCube() EntityFX level,1 EntityType level,2 mirror=CreateMirror() ptex=CreateTexture(256,256) SetBuffer TextureBuffer(ptex) Color 40,40,80 Rect 0,0,256,256 Color 255,255,230 Rect 0,0,128,128,1 Color 0,60,0 Rect 1,1,126,126,0 Color 60,60,100 Rect 128,128,128,128,1 Color 0,0,90 Rect 129,129,127,127,0 EntityTexture level,ptex ScaleTexture ptex,.25,.25 EntityType level,2 EntityAlpha level,.7 SetBuffer BackBuffer() FlipMesh level ScaleEntity level,25,25,25 MoveEntity level,0,25,0 End Function ;============================================================================================= Function move_player() ; camera smoothing smoothcam(player_piv,player,25) If KeyHit(57) And jumping = 0 jumping=1;1 pyvel#=1 ;.2 jumpchannel=PlaySound(jumpsound) EndIf ; boost# could be if you pick up an object it would increase speed for a time If KeyDown(17)=1 Or KeyDown(200) Then speed#=speed#+.005 +boost# If KeyDown(30)=1 Or KeyDown(203) Then turnspeed# = turnspeed# + .2 +boost# If KeyDown(31)=1 Or KeyDown(208) Then speed# = speed# -(.005 +boost#) If KeyDown(32)=1 Or KeyDown(205) Then turnspeed# = turnspeed# - .2 +boost# ; FRICTION FOR SMOOTH MOVEMENT turnspeed#=turnspeed#*.94 speed#=speed#*.95 TurnEntity player,0,turnspeed#+pyspin#,0 ; turn pivot left --right If on_platform=0 Then pyvel#=pyvel#-gravity# ;move the player MoveEntity player,0,pyvel#,speed# TranslateEntity player,pxvel#,0,pzvel# pxvel#=pxvel#*.9 pzvel#=pzvel#*.9 PointEntity cam,player alpha_platforms.platform() ; so we can see the player FlushKeys FlushMouse End Function ;============================================================================================= Function fps_camera() If KeyHit(57) And jumping = 0 jumping=1;1 pyvel#=1 ;.2 jumpchannel=PlaySound(jumpsound) EndIf If KeyDown(17)=1 Or KeyDown(200) Then speed#=speed#+.005 +boost# If KeyDown(30)=1 Or KeyDown(203) Then lateral_speed# = lateral_speed# - .004 +boost# If KeyDown(31)=1 Or KeyDown(208) Then speed# = speed# -(.005 +boost#) If KeyDown(32)=1 Or KeyDown(205) Then lateral_speed# = lateral_speed# + .004 +boost# ; FRICTION FOR SMOOTH MOVEMENT lateral_speed#=lateral_speed#*.97 speed#=speed#*.95 PositionEntity cam,EntityX(player),EntityY(player)+1,EntityZ(player) ; CAMERA MOVEMENTS MY#=curvevalue#(MouseYSpeed(),MY#,4 ) MX#=curvevalue#(MouseXSpeed(),MX#,4 ) TurnEntity cam,MY#,0,0 ; turn camera up and down TurnEntity player,0,-mx+pyspin#,0 ; turn pivot left --right RotateEntity cam,EntityPitch(cam),EntityYaw(player),0 MoveMouse midw,midh; Bring mouse to middle of screen for mouselook to work If on_platform=0 Then pyvel#=pyvel#-gravity# ;pyvel#=pyvel#*.99 ;move the player --- the camera in this case! MoveEntity player,lateral_speed#,pyvel#,speed# TranslateEntity player,pxvel#,0,pzvel# pxvel#=pxvel#*.9 pzvel#=pzvel#*.9 FlushKeys FlushMouse End Function Function do_collisions.platform() For col=1 To CountCollisions(player) cnx#=CollisionNX(player,col) cny#=CollisionNY(player,col) cnz#=CollisionNZ(player,col) If cnx#<>0 pxvel#=pxvel#+cnx/10 EndIf If cnz#<>0 pzvel=pzvel+cnz/10 EndIf If cny#>0 pyvel=Abs(pyvel)*.1 ;.8; bounce jumping=0 EndIf If cny#<0 pyvel=pyvel-.05 For foo.platform=Each platform If CollisionEntity(player,col)=foo\entity foo\ydirection=1-foo\ydirection foo\yvel#=0 ;wire=1-wire EndIf Next EndIf Next Return foo.platform End Function ;==================================================================================== ;curvevalue() Function curvevalue#(newvalue#,oldvalue#,increments# ) If increments>1 Then oldvalue#=oldvalue#-(oldvalue#-newvalue#)/increments If increments<=1 Then oldvalue=newvalue Return oldvalue# End Function ;==================================================================================== Function pick_platform.platform() px#=EntityX(player) py#=EntityY(player) pz#=EntityZ(player) picklength#=.7 LinePick(px#,py#-picklength,pz#,0,picklength#,0,1) up_pict=0 up_pict=PickedEntity() LinePick(px#,py#+picklength#,pz#,0,-picklength#,0,1) down_pict=0 down_pict=PickedEntity() on_platform=0 pyspin#=0 If up_pict<>0 Or down_pict<>0 For foo.platform=Each platform EntityFX foo\entity,0 If foo\entity=down_pict EntityFX foo\entity,1 pyvel#=foo\yvel# + foo\yvel/50 pyspin#=foo\yspin# pxvel#=foo\xvel# pzvel#=foo\zvel# on_platform=1 jumping=0 ;ResetEntity player EndIf If foo\entity=up_pict ;pictentity=foo\entity pyvel#=pyvel#-.01 foo\ydirection=1 foo\yvel=0 ;ResetEntity player EndIf Next EndIf Return foo.platform End Function ;============================================================================================= Function mess$(x,y,message$) ; styles leftoffset= StringWidth(message$)*.1 width=StringWidth(message$)*1.2 height=FontHeight()*1.2 Color 0,0,0 Rect x+3,y+3,width,height+3,1 ; shadow Color 0,0,60 Rect x-leftoffset,y,width,height,1 ; draw a rectangle Color 0,140,0 Rect x-leftoffset-1,y-1,width+1,height+1,0 Rect x-leftoffset-2,y-2,width+2,height+2,0 Color 255,255,0 Text x,y,message,0,0 ; print message inside the rectangle End Function ;============================================================================================= Function draw_overlay() If fps=1 Then draw_crosshairs() ; Draw the FPS rect ; screen messages ************ mess$(60,5,"WASD or arrows to move, SPACE to JUMP") ;If pictentity<>0 Then mess$(60,180,"distance"+EntityDistance(player,pictentity)) If fps=0 Then mess$(60,30,"press 2 for FPS MODE") If fps=1 Then mess$(60,30,"press 1 for CHASE-CAM MODE") mess$(60,60,"press 3 for item positioner") ;If on_platform=1 Then mess$(60,220,"ON A PLATFORM") ;If on_platform=0 Then mess$(60,220,"OFF PLATFORMS") ;mess$(60,260,"x= "+EntityX(player)) ;mess$(60,280,"y= "+EntityY(player)) ;mess$(60,300,"z= "+EntityZ(player)) ;mess$(60,260,"fill this in") End Function ;============================================================================================= Function smoothcam(pivot,target,camspeed) curx#=EntityX(cam) curz#=EntityZ(cam) destx#=EntityX(pivot,True) destz#=EntityZ(pivot,True) curx#=curx#+((destx#-curx#)/camspeed) curz#=curz#+((destz#-curz#)/camspeed) PositionEntity cam,curx,EntityY(target)+camheight#,curz End Function ;============================================================================================= Function draw_crosshairs() Color 0,235,0 Rect midw-3,midh-3,6,6,0 ;Line midw-6,midh,midw+6,midh End Function ;============================================================================================= Function alpha_platforms.platform() ; get the distance from the camera to the player this could be static for speed increase camdist_to_player#=EntityDistance(cam,player)-3 For foo.platform = Each platform ; now see if the platform is between the player and the camera camdist_to_platform#=EntityDistance(cam,FOO\ENTITY) If camdist_to_player>camdist_to_platform EntityAlpha FOO\ENTITY,.7 Else EntityAlpha FOO\ENTITY,1 EndIf Next Return foo.platform End Function ;============================================================================================= Function save_bitmap() Repeat Until KeyDown(59)=0 SaveBuffer(FrontBuffer(),"screenshot.bmp") End Function ;============================================================================================= Function create_tex() disctex=CreateTexture(256,256,64+8) SetBuffer TextureBuffer(disctex) For x=1 To 230 Color Rnd(100,255),Rnd(100,255),Rnd(100,255) Oval Rnd(0,255),Rnd(0,255),Rnd(8,32),Rnd(8,32),1 Next boxtex=CreateTexture(32,32,8) SetBuffer TextureBuffer(boxtex) Color 200,200,200 Rect 0,0,32,32 Color 30,30,30 Rect 0,0,16,16,1 Rect 16,16,16,16,1 ScaleTexture boxtex,.5,.5 grasstex=CreateTexture(127,127,8) SetBuffer TextureBuffer(grasstex) Color 0,128,0 Rect 0,0,128,128 For x=0 To 128 For y=0 To 128 count=count+1 If count=5 count=1 Color Rnd(0,20),Rnd(0,155),0 Line x,y,x+3,y+3 EndIf Next Next SetBuffer BackBuffer() End Function

Guy Fawkes (Posted 2010) [#2]

Does anyone know what is going on w/ this code?

Serpent (Posted 2010) [#3]

When bouncing is turned off, it seems that when you jump the jumping is stopped just slightly above the bottom of the cube. If you tab spacebar and can get through this weird barrier the jump works normally. It seems that the cube collides with something slightly above the ground. When the bounce factor is turned down low you notice this because it stops the jump completely. However, when the bounce factor is 0.8 (which appears to be what you have been using) you don't notice the reduction in jump speed. If you set the bounce factor to 0.5, you can see two things out of the ordinary. First of all, when you jump, you don't jump very high because every frame that the cube collides with the invisible barrier above the surface reduces the Y speed by a factor of 0.5. Also, you can jump a second time in mid-air, indicating that the flag 'jumping' has been set to 0 (meaning that a collision has taken place).

Serpent (Posted 2010) [#4]

When you disable collisions with the level, everything works fine (apart from the falling the floor etc.) and I think i know why...

Serpent (Posted 2010) [#5]

I've found the problem. Calling UpdateWorld calculates all collisions, etc. UpdateWorld in this case was being called AFTER the code that dealt with collisions. Effectively, all the code in the program regarding collisions was one frame out of sync. Whenever you would jump, the program would deal with the collisions from the frame before and think that the player is still in contact with the floor (because although the player had moved, collisions still hadn't been updated). The program would execute the bounce code. When the bounce factor is set to something high like 0.8, this bounce that occurs one frame after the jump is unnoticable. However, when you tried to disable bouncing completely, whenever you jump the program remembers the collisions from the previous frame and multiplies the Y speed by 0 or 0.1 or whatever you set the bounce factor to. The solution to the problem is to simply move the 'UpdateWorld' in the main loop to before where the do_collisions() function is called. Graphics3D 800,600,0,2 ; ********************************* GLOBALS **************************** Global midw,midh,disctex,boxtex,grasstex Global cam,player,item,player_piv;,hat Global camdistance#=5,camheight#=10 Global on_platform=0 Global picklength#=.5 Global pictentity Global gravity#=.01 Global turnspeed#,lateral_speed#,speed#,pxvel#,pyvel#,pzvel#,pyspin# ; player velocities Global jumping=1 Global pause Global camdist_to_player# Global fps Type platform Field entity,brush Field startX#,starty#,startz#,xdist#,ydist#,zdist#,xspeed#,yspeed#,zspeed#,startdelay#,enddelay# Field yvel#,xvel#,zvel#,yspin#,mx#,my# Field xdamp#,ydamp#,zdamp# Field xdirection,ydirection,zdirection Field xstartdelaycounter,xenddelaycounter Field ystartdelaycounter,yenddelaycounter Field zstartdelaycounter,zenddelaycounter End Type SeedRnd MilliSecs Global jumpsound = LoadSound("Jump-SoundBible.com-1007297584.mp3") ; CREATE OUR PLATFORMS ; (startXposition#,y#,z#, xdist,Yd#,Zd#, xspd#,yspd#,zspd#, xdamp#,ydamp#, zdamp, startdelay#,enddelay#, yspin# ,SHAPE_OF_PLATFORM$) create_tex() ; go create some textures ; create the platforms for our little demo! create_platform.platform(5,3,0,5,10,0,.001,.0005,0,.96,.96,.96,0,0,0,"box") ;create_platform.platform(-6,6,0,0,30,0,.001,.001,0,.96,.96,.96,100,0,.5,"box") ;create_platform.platform(-14,35,-4,0,0,10,0,0,.002,0,0,.96,0,0,0,"box") ;create_platform.platform(10,2,10,0,40,0,0,.006,0,0,.9,0,200,50,0,"disc") ;create_platform.platform(10,1.99,10,0,39.99,0,0,.006,0,0,.9,0,200,50,0,"disc") ;create_platform.platform(5,2,-12,0,20,0,0,.00005,0,00,.99,0,0,0,0,"disc") ;create_platform.platform(5,1.99,-12,0,19.99,0,0,.00005,0,00,.99,0,0,0,0,"disc") create_world() Collisions 1,2,2,2 ; set up collisions between the player and the world Collisions 1,3,2,2 ; set up collisions between the player and items fps=1 HidePointer EntityAlpha player,0 ;EntityAlpha hat,0 .main ; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MAIN LOOP ################################### While Not KeyDown( 1 ) pause = 0 If KeyHit(28) And pause = 0 pause = 1 EndIf If pause pausemusic() Repeat If KeyHit(28) Then pause = 0 : stopmusic() Delay .01 Until pause = 0 EndIf ; Get the handle of the type-3 entity which the player has hit itemtofree = EntityCollided(player, 3) ; Check if there was an entity-handle returned (will be something else than 0) If itemtofree Then ; Free the entity FreeEntity itemtofree ; Clear the variable itemtofree = 0 EndIf If KeyHit(59) Then save_bitmap() ; CAMERA MODES If KeyHit(2) fps=0 ShowPointer EntityAlpha player,1 ; EntityAlpha hat,1 EndIf If KeyHit(3) fps=1 HidePointer EntityAlpha player,0 ; EntityAlpha hat,0 EndIf If KeyHit(4) HidePointer MessageBox(0,"TEST","Switching",0) ; EntityAlpha hat,0 EndIf ; Line pick up and down to see if we are on or below a platform pick_platform.platform() ; move the player If fps=1 Then fps_camera() If fps=0 Then move_player() ; check player to world collisions ; move the platforms UpdateWorld ;Moved from just before RenderWorld do_collisions.platform() move_platform.platform() RenderWorld draw_overlay() ; text and messages to the screen Text 10, 100, "entitycollided: "+EntityCollided(player, 3) Text 10, 120, "fps: "+fps Text 10, 140, "cam pitch: "+EntityPitch(cam) Text 10, 160, "cam yaw: "+EntityYaw(cam) Text 10, 180, "cam roll: "+EntityRoll(cam) Flip Wend End ; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;===================================== Function pausemusic() If pause And ChannelPlaying(pausedchan) = 0 paused=LoadSound("m2m-e821f618aef9b29e0938ab06730dce0112898.mp3") pausedchan=PlaySound(paused) LoopSound paused EndIf End Function Function stopmusic() StopChannel paused FreeSound paused End Function Function create_platform.platform(stX#,sty#,stz#,dX#,dY#,dZ#,xspd#,yspd#,zspd#,xdamp#,ydamp#,zdamp#,sdelay#,edelay#,yspin#,shape$) ; create a platform and position it in the world foo.platform=New platform If shape$="disc" foo\entity=CreateSphere() ScaleMesh foo\entity,3,.5,3 foo\brush=CreateBrush() BrushColor foo\brush,Rnd(100,255),Rnd(100,255),Rnd(100,255) BrushTexture foo\brush,disctex PaintEntity foo\entity,foo\BRUSH EndIf If shape$="column" foo\entity=CreateCylinder() ScaleMesh foo\entity,3,.25,3 foo\brush=CreateBrush() BrushColor foo\brush,Rnd(0,255),Rnd(0,255),Rnd(0,255) BrushTexture foo\brush,boxtex PaintEntity foo\entity,foo\BRUSH EndIf If shape$="box" foo\entity=CreateCube() ScaleMesh foo\entity,3,.5,3 foo\brush=CreateBrush() BrushColor foo\brush,Rnd(100,255),Rnd(100,255),Rnd(100,255) BrushTexture foo\brush,boxtex PaintEntity foo\entity,foo\BRUSH EndIf SetBuffer BackBuffer() EntityPickMode foo\entity,2 EntityType foo\entity,2 foo\startx#=stx# foo\starty#=sty# foo\startz#=stz# foo\xdist#=dx# foo\ydist#=dy# foo\zdist#=dz# foo\xspeed#=xspd# foo\yspeed#=yspd# foo\zspeed#=zspd# foo\xdamp#=xdamp# foo\Ydamp#=Ydamp# foo\Zdamp#=Zdamp# foo\yspin#=yspin# foo\startdelay#=sdelay# foo\enddelay#=edelay# PositionEntity foo\entity,stx#,sty#,stz# Return foo.platform End Function ;===================================== Function move_platform.platform() For foo.platform = Each platform If foo\xdirection=0 ; if Platform is going down? foo\xstartdelaycounter=foo\xstartdelaycounter-1 ; reduce startdelay counter If foo\xstartdelaycounter<1 ; if startdelay counter is less than 1 foo\xstartdelaycounter=0 ; set it to 0 (so it will be less than 1 until it is reset) foo\xvel#=foo\xvel#-foo\xspeed# ; accelerate TranslateEntity foo\entity,foo\xvel#,0,0 If EntityX(foo\entity)<foo\startx#+(foo\xdist#*.25) Then foo\xvel#=foo\xvel#*FOO\xdamp If EntityX(foo\entity)<foo\startx# ; if platform reaches the bottom foo\xdirection=1 ; change direction to UP foo\xenddelaycounter=foo\enddelay# ; reset end delay counter EndIf EndIf EndIf If foo\xdirection=1 ; UP foo\xenddelaycounter=foo\xenddelaycounter-1 If foo\xenddelaycounter<1 foo\xenddelaycounter=0 foo\xvel#=foo\xvel#+foo\xspeed# If EntityX(foo\entity)>foo\startx#+(foo\xdist#*.75) Then foo\xvel#=foo\xvel#*FOO\xdamp TranslateEntity foo\entity,foo\xvel#,0,0 If EntityX(foo\entity)>foo\startx#+foo\xdist# ;If on_platform=1 Then yvel#=0 foo\xdirection=0 foo\xstartdelaycounter=foo\startdelay# EndIf EndIf EndIf If foo\ydirection=0 ; if Platform is going down? foo\yenddelaycounter=foo\yenddelaycounter-1 ; reduce startdelay counter TurnEntity foo\entity,0,foo\yspin#,0 If foo\yenddelaycounter<1 ; if startdelay counter is less than 1 foo\yenddelaycounter=0 ; set it to 0 (so it will be less than 1 until it is reset) foo\yvel#=foo\yvel#-foo\yspeed# ; accelerate TranslateEntity foo\entity,0,foo\yvel#,0 If EntityY(foo\entity)<foo\startY#+(foo\ydist#*.25) Then foo\yvel#=foo\yvel#*FOO\ydamp If EntityY(foo\entity)<foo\starty# ; if platform reaches the bottom foo\ydirection=1 ; change direction to UP foo\ystartdelaycounter=foo\startdelay# ; stop the platform EndIf EndIf EndIf If foo\ydirection=1 ; UP foo\ystartdelaycounter=foo\ystartdelaycounter-1 TurnEntity foo\entity,0,foo\yspin#,0 If foo\ystartdelaycounter<1 foo\ystartdelaycounter=0 foo\yvel#=foo\yvel#+foo\yspeed# TranslateEntity foo\entity,0,foo\yvel#,0 If EntityY(foo\entity)>foo\startY#+(foo\ydist#*.75) Then foo\yvel#=foo\yvel#*FOO\ydamp If EntityY(foo\entity)>foo\startY#+foo\ydist# ;If on_platform=1 Then yvel#=0 foo\ydirection=0 ;foo\yvel#=0 foo\yenddelaycounter=foo\enddelay# ; reset end delay counter EndIf EndIf EndIf If foo\zdirection=0 ; foo\zenddelaycounter=foo\zenddelaycounter-1 ; reduce startdelay counter If foo\zenddelaycounter<1 ; if startdelay counter is less than 1 foo\zenddelaycounter=0 ; set it to 0 (so it will be less than 1 until it is reset) foo\zvel#=foo\zvel#-foo\zspeed# ; accelerate TranslateEntity foo\entity,0,0,foo\zvel# If EntityZ(foo\entity)<foo\startz#+(foo\zdist#*.25) Then foo\zvel#=foo\zvel#*FOO\zdamp If EntityZ(foo\entity)<foo\startz# ; if platform reaches the bottom foo\zdirection=1 ; change direction to UP foo\zstartdelaycounter=foo\startdelay# ; reset end delay counter EndIf EndIf EndIf If foo\zdirection=1 ; UP foo\zstartdelaycounter=foo\zstartdelaycounter-1 If foo\zstartdelaycounter<1 foo\zstartdelaycounter=0 foo\zvel#=foo\zvel#+foo\zspeed# TranslateEntity foo\entity,0,0,foo\zvel# If EntityZ(foo\entity)>foo\startz#+(foo\zdist#*.75) Then foo\zvel#=foo\zvel#*FOO\zdamp If EntityZ(foo\entity)>foo\startz#+foo\zdist# ;If on_platform=1 Then yvel#=0 foo\zdirection=0 foo\zenddelaycounter=foo\enddelay# EndIf EndIf EndIf Next Return foo.platform End Function ;============================================================================================= Function create_world() midw=GraphicsWidth()/2 midh=GraphicsHeight()/2 cam=CreateCamera() MoveEntity cam,0,10,-15 player=CreateCube() ;hat=CreateCube(player) ;MoveEntity hat,0,1,0 ;ScaleMesh hat,.1,.1,1 player_piv=CreatePivot(player) MoveEntity player_piv,0,0,-camdistance ;AddMesh hat,player MoveEntity player,0,15,-5 EntityColor player,200,0,0 EntityShininess player,.9 EntityRadius player,1 EntityType player,1 ; type 1 = player ------ type 2 = world objects, type 3 = item objects AmbientLight 255,255,255 ;lite=CreateLight() ;bulb=CreateSphere(6,lite) ;EntityFX bulb,1 ;EntityColor bulb,255,255,0 ;PositionEntity lite,-20,40,-20 item=CreateCylinder(6) ScaleEntity item, .2, .001, .2 EntityFX item,1 EntityColor item,255,255,0 PositionEntity item,0,1,0 EntityType item,3 ;level = LoadMesh("level.b3d") level=CreateCube() EntityFX level,1 EntityType level,2 mirror=CreateMirror() ptex=CreateTexture(256,256) SetBuffer TextureBuffer(ptex) Color 40,40,80 Rect 0,0,256,256 Color 255,255,230 Rect 0,0,128,128,1 Color 0,60,0 Rect 1,1,126,126,0 Color 60,60,100 Rect 128,128,128,128,1 Color 0,0,90 Rect 129,129,127,127,0 EntityTexture level,ptex ScaleTexture ptex,.25,.25 EntityType level,2 EntityAlpha level,.7 SetBuffer BackBuffer() FlipMesh level ScaleEntity level,25,25,25 MoveEntity level,0,25,0 End Function ;============================================================================================= Function move_player() ; camera smoothing smoothcam(player_piv,player,25) If KeyHit(57) And jumping = 0 jumping=1;1 pyvel#=1 ;.2 jumpchannel=PlaySound(jumpsound) EndIf ; boost# could be if you pick up an object it would increase speed for a time If KeyDown(17)=1 Or KeyDown(200) Then speed#=speed#+.005 +boost# If KeyDown(30)=1 Or KeyDown(203) Then turnspeed# = turnspeed# + .2 +boost# If KeyDown(31)=1 Or KeyDown(208) Then speed# = speed# -(.005 +boost#) If KeyDown(32)=1 Or KeyDown(205) Then turnspeed# = turnspeed# - .2 +boost# ; FRICTION FOR SMOOTH MOVEMENT turnspeed#=turnspeed#*.94 speed#=speed#*.95 TurnEntity player,0,turnspeed#+pyspin#,0 ; turn pivot left --right If on_platform=0 Then pyvel#=pyvel#-gravity# ;move the player MoveEntity player,0,pyvel#,speed# TranslateEntity player,pxvel#,0,pzvel# pxvel#=pxvel#*.9 pzvel#=pzvel#*.9 PointEntity cam,player alpha_platforms.platform() ; so we can see the player FlushKeys FlushMouse End Function ;============================================================================================= Function fps_camera() If KeyHit(57) And jumping = 0 jumping=1;1 pyvel#=1 ;.2 jumpchannel=PlaySound(jumpsound) EndIf If KeyDown(17)=1 Or KeyDown(200) Then speed#=speed#+.005 +boost# If KeyDown(30)=1 Or KeyDown(203) Then lateral_speed# = lateral_speed# - .004 +boost# If KeyDown(31)=1 Or KeyDown(208) Then speed# = speed# -(.005 +boost#) If KeyDown(32)=1 Or KeyDown(205) Then lateral_speed# = lateral_speed# + .004 +boost# ; FRICTION FOR SMOOTH MOVEMENT lateral_speed#=lateral_speed#*.97 speed#=speed#*.95 PositionEntity cam,EntityX(player),EntityY(player)+1,EntityZ(player) ; CAMERA MOVEMENTS MY#=curvevalue#(MouseYSpeed(),MY#,4 ) MX#=curvevalue#(MouseXSpeed(),MX#,4 ) TurnEntity cam,MY#,0,0 ; turn camera up and down TurnEntity player,0,-mx+pyspin#,0 ; turn pivot left --right RotateEntity cam,EntityPitch(cam),EntityYaw(player),0 MoveMouse midw,midh; Bring mouse to middle of screen for mouselook to work If on_platform=0 Then pyvel#=pyvel#-gravity# ;pyvel#=pyvel#*.99 ;move the player --- the camera in this case! MoveEntity player,lateral_speed#,pyvel#,speed# TranslateEntity player,pxvel#,0,pzvel# pxvel#=pxvel#*.9 pzvel#=pzvel#*.9 FlushKeys FlushMouse End Function Function do_collisions.platform() For col=1 To CountCollisions(player) cnx#=CollisionNX(player,col) cny#=CollisionNY(player,col) cnz#=CollisionNZ(player,col) If cnx#<>0 pxvel#=pxvel#+cnx/10 EndIf If cnz#<>0 pzvel=pzvel+cnz/10 EndIf If cny#>0 pyvel=Abs(pyvel)*.1 ;.8; bounce jumping=0 EndIf If cny#<0 pyvel=pyvel-.05 For foo.platform=Each platform If CollisionEntity(player,col)=foo\entity foo\ydirection=1-foo\ydirection foo\yvel#=0 ;wire=1-wire EndIf Next EndIf Next Return foo.platform End Function ;==================================================================================== ;curvevalue() Function curvevalue#(newvalue#,oldvalue#,increments# ) If increments>1 Then oldvalue#=oldvalue#-(oldvalue#-newvalue#)/increments If increments<=1 Then oldvalue=newvalue Return oldvalue# End Function ;==================================================================================== Function pick_platform.platform() px#=EntityX(player) py#=EntityY(player) pz#=EntityZ(player) picklength#=.7 LinePick(px#,py#-picklength,pz#,0,picklength#,0,1) up_pict=0 up_pict=PickedEntity() LinePick(px#,py#+picklength#,pz#,0,-picklength#,0,1) down_pict=0 down_pict=PickedEntity() on_platform=0 pyspin#=0 If up_pict<>0 Or down_pict<>0 For foo.platform=Each platform EntityFX foo\entity,0 If foo\entity=down_pict EntityFX foo\entity,1 pyvel#=foo\yvel# + foo\yvel/50 pyspin#=foo\yspin# pxvel#=foo\xvel# pzvel#=foo\zvel# on_platform=1 jumping=0 ;ResetEntity player EndIf If foo\entity=up_pict ;pictentity=foo\entity pyvel#=pyvel#-.01 foo\ydirection=1 foo\yvel=0 ;ResetEntity player EndIf Next EndIf Return foo.platform End Function ;============================================================================================= Function mess$(x,y,message$) ; styles leftoffset= StringWidth(message$)*.1 width=StringWidth(message$)*1.2 height=FontHeight()*1.2 Color 0,0,0 Rect x+3,y+3,width,height+3,1 ; shadow Color 0,0,60 Rect x-leftoffset,y,width,height,1 ; draw a rectangle Color 0,140,0 Rect x-leftoffset-1,y-1,width+1,height+1,0 Rect x-leftoffset-2,y-2,width+2,height+2,0 Color 255,255,0 Text x,y,message,0,0 ; print message inside the rectangle End Function ;============================================================================================= Function draw_overlay() If fps=1 Then draw_crosshairs() ; Draw the FPS rect ; screen messages ************ mess$(60,5,"WASD or arrows to move, SPACE to JUMP") ;If pictentity<>0 Then mess$(60,180,"distance"+EntityDistance(player,pictentity)) If fps=0 Then mess$(60,30,"press 2 for FPS MODE") If fps=1 Then mess$(60,30,"press 1 for CHASE-CAM MODE") mess$(60,60,"press 3 for item positioner") ;If on_platform=1 Then mess$(60,220,"ON A PLATFORM") ;If on_platform=0 Then mess$(60,220,"OFF PLATFORMS") ;mess$(60,260,"x= "+EntityX(player)) ;mess$(60,280,"y= "+EntityY(player)) ;mess$(60,300,"z= "+EntityZ(player)) ;mess$(60,260,"fill this in") End Function ;============================================================================================= Function smoothcam(pivot,target,camspeed) curx#=EntityX(cam) curz#=EntityZ(cam) destx#=EntityX(pivot,True) destz#=EntityZ(pivot,True) curx#=curx#+((destx#-curx#)/camspeed) curz#=curz#+((destz#-curz#)/camspeed) PositionEntity cam,curx,EntityY(target)+camheight#,curz End Function ;============================================================================================= Function draw_crosshairs() Color 0,235,0 Rect midw-3,midh-3,6,6,0 ;Line midw-6,midh,midw+6,midh End Function ;============================================================================================= Function alpha_platforms.platform() ; get the distance from the camera to the player this could be static for speed increase camdist_to_player#=EntityDistance(cam,player)-3 For foo.platform = Each platform ; now see if the platform is between the player and the camera camdist_to_platform#=EntityDistance(cam,FOO\ENTITY) If camdist_to_player>camdist_to_platform EntityAlpha FOO\ENTITY,.7 Else EntityAlpha FOO\ENTITY,1 EndIf Next Return foo.platform End Function ;============================================================================================= Function save_bitmap() Repeat Until KeyDown(59)=0 SaveBuffer(FrontBuffer(),"screenshot.bmp") End Function ;============================================================================================= Function create_tex() disctex=CreateTexture(256,256,64+8) SetBuffer TextureBuffer(disctex) For x=1 To 230 Color Rnd(100,255),Rnd(100,255),Rnd(100,255) Oval Rnd(0,255),Rnd(0,255),Rnd(8,32),Rnd(8,32),1 Next boxtex=CreateTexture(32,32,8) SetBuffer TextureBuffer(boxtex) Color 200,200,200 Rect 0,0,32,32 Color 30,30,30 Rect 0,0,16,16,1 Rect 16,16,16,16,1 ScaleTexture boxtex,.5,.5 grasstex=CreateTexture(127,127,8) SetBuffer TextureBuffer(grasstex) Color 0,128,0 Rect 0,0,128,128 For x=0 To 128 For y=0 To 128 count=count+1 If count=5 count=1 Color Rnd(0,20),Rnd(0,155),0 Line x,y,x+3,y+3 EndIf Next Next SetBuffer BackBuffer() End Function

Serpent (Posted 2010) [#6]

Now you should be able to set the bounce factor to whatever you want and it will not affect the jumping at all.