Glitchy world / jump code?

Blitz3D Forums/Blitz3D Beginners Area/Glitchy world / jump code?

Guy Fawkes (Posted 2010) [#1]

What's up w/ this running at only +/-20 FPS? Also, why is my water plane not showing up? Graphics3D 800,600,0,2 ; Variables to change Global Speed#=1.02;0.02 ; Player move Speed Global scale%=100 ; Scene scale Global waterlevel#=-1 Global angle#=160 ; Initial light angle (0...90...180...270...360 = dawn,noon,evening,midnight,dawn) Global tilesize%=32 ; Vertices per tile (x*x) Global VertexColors%=False ; use Vertexcolors or not Global Colored=True ; show tile seams (switch with Key "C") Global Fog%=True ; use fog or not (switch with Key "F") Global divider#=2.0 ; vertical divider for height ; Globals Global min#=65536.0 Global max#=0.0 Global oldangle#=-1 Global minm#,maxm# Global size,xpts,ypts,xscale#,yscale#,zscale#,crad#,crvm,hscale,hbase Global cam%,speedmulti%,wf%,init% Global lightpivot%,sun%,light%,ambientcol%,clscol%,water% ;Global FPS_C%,FMS%,FPS% Global heightfield%,tiles%,tsize% Global Tween# ; ********************************* GLOBALS **************************** Global midw,midh,disctex,boxtex,grasstex Global 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#,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 ################################### ; Arrays Dim meshes(0,0),surfaces(0,0),tris(0,0),vertex(0,0) ; Loading Textures Global colormap=LoadTexture("colormap.jpg",16+32+256+512) Global texsize=TextureWidth(colormap) ScaleTexture colormap,texsize,texsize ; Load Terragen Terrain Print "Loading Terrain..." : level=LoadTerragen("island.ter") ; Init Scene Print "Init Scene..." : InitScene() ; Create Meshterrain Tiles Print "Create Meshterrain Tiles..." : CreateTiles() ; Fixing Chunk normals Print "Fixing Chunk Normals..." : FixChunkNormals() ; Collisions Collisions 1,2,2,3 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 Global waterlvl# sx# = TextureWidth(colormap) sy# = TextureHeight(colormap) 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 waterlvl# = Rnd(.00001,.0001)+waterlvl# If waterlvl# > .002 waterlvl# = Rnd(.00001,.0001)-waterlvl# EndIf MoveEntity water, EntityX(water), waterlvl#, EntityZ(water) ; Local ms%,ft% ; Frame Tweeing ; ms=MilliSecs() : Tween#=(ms-ft)/5.0 : ft=ms ; check for User Input ; CheckInput() Updatescene() ; move the platforms UpdateWorld ;Moved from just before RenderWorld do_collisions.platform() move_platform.platform() RenderWorld ;Tween ; 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) ; Text 10, 200, "FPS: "+ShowFPS() Flip Wend End ; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;===================================== ; ------------------------------------------------------------------------------------------------- ; simple FPS measurement ; ------------------------------------------------------------------------------------------------- Function ShowFPS() FPS_C=FPS_C+1 : If FMS<MilliSecs() Then FMS=MilliSecs()+1000 : FPS=FPS_C : FPS_C=0 Return FPS End Function ; ------------------------------------------------------------------------------------------------- ; Check User Input (Keyboard / Mouse) and Camera Movement ; ------------------------------------------------------------------------------------------------- Function CheckInput() ; Local up%=0 ; Key Q/W: change light angle ; If KeyDown(16) Then angle=angle-0.1*Tween ; If KeyDown(17) Then angle=angle+0.1*Tween ; Key 1-9: predefined angle 0-180° in 22.5° steps ; If KeyHit(2) Then angle=0.0 ; If KeyHit(3) Then angle=22.5 ; If KeyHit(4) Then angle=45 ; If KeyHit(5) Then angle=67.5 ; If KeyHit(6) Then angle=90 ; If KeyHit(7) Then angle=112.5 ; If KeyHit(8) Then angle=135 ; If KeyHit(9) Then angle=157.5 ; If KeyHit(10) Then angle=180.0 ; SHIFT = increase player speed 5 times If KeyDown(54) Then speedmulti=5 Else speedmulti=1 ; Space = Wireframe on/off ; If KeyHit(57) Then wf=1-wf : WireFrame wf ; F = Fogswitch ; If KeyHit(33) Then Fog=1-Fog : CameraFogMode cam,Fog ; C = Colorswitch ; If KeyHit(46) Then Colored=1-Colored : FixChunkNormals() ; LMB/RMB: up/down ; If MouseDown(1) Then up=1 ; If MouseDown(2) Then up=-1 ; Simple Camera movement ; TurnEntity cam,MouseYSpeed(),-MouseXSpeed(),0 ; RotateEntity cam,EntityPitch(cam),EntityYaw(cam),0 ; MoveEntity cam,(KeyDown(205)-KeyDown(203))*Speed*Tween*speedmulti/2.0,up*Speed*Tween*speedmulti,(KeyDown(200)-KeyDown(208))*Speed*Tween*speedmulti/2 ; MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 End Function ; ------------------------------------------------------------------------------------------------- ; Init additional elements like cam, light, water ; ------------------------------------------------------------------------------------------------- Function InitScene() ; Create Camera cam=CreateCamera() PositionEntity cam,scale/3,scale/6,scale/3 CameraRange cam,0.01,scale*2 CameraFogMode cam,Fog CameraFogRange cam,scale/2,scale EntityType cam,1 EntityRadius cam,0.1 CameraClsColor cam,187,213,239 CameraFogColor cam,187,213,239 ; Light lightpivot=CreatePivot() sun=CreateSphere(8,lightpivot) ScaleEntity sun,2,2,2 EntityColor sun,255,255,128 EntityFX sun,1+8 PositionEntity sun,-scale/2,0,0 light=CreateLight(1,sun) PositionEntity light,0,0,0 LightColor light,255,255,255 AmbientLight 32,32,32 ; Water water=CreatePlane() ;CreateCube() EntityFX water,1+8 EntityAlpha water,0.5 EntityColor water,32,64,128 ; ScaleEntity water,scale/2,0.01,scale/2 PositionEntity water,EntityX(water),waterlevel#,EntityZ(water) End Function ; ------------------------------------------------------------------------------------------------- ; Updates light FX by angle ; ------------------------------------------------------------------------------------------------- Function Updatescene() ; Limit angle to 0...360 degrees angle=angle Mod 360.0 : If angle<0 Then angle=360.0+angle ; only continue if angle has been changed If angle<>oldangle Then ; rotate light angle and point light sources to pivot RotateEntity lightpivot,0,-90,-angle PointEntity light,lightpivot ; Update Ambientlight, Cameraclscolor according to angle If angle>=0 And angle<=180 Then If angle<=90 Then ambientcol=Normalize(angle,0,90,32,128) clscol=Normalize(angle,0,90,16,512) EndIf If angle>=90 Then ambientcol=Normalize(angle,90,180,128,32) clscol=Normalize(angle,90,180,512,16) EndIf ; limit daylight If clscol>224 Then clscol=224 ; set AmbientLight And CameraClsColor AmbientLight ambientcol,ambientcol,ambientcol CameraClsColor cam,clscol*0.70,clscol*0.75,clscol*1.0 CameraFogColor cam,clscol*0.75,clscol*0.80,clscol*1.0 EndIf EndIf If Not init Then PointEntity cam,lightpivot : init=True oldangle=angle End Function ; ------------------------------------------------------------------------------------------------- ; Creates and textures the tiles, optional with vertexcolors by the colormap texture ; ------------------------------------------------------------------------------------------------- Function CreateTiles() Local x%,y% LockBuffer TextureBuffer(colormap) For y=0 To tiles-1 For x=0 To tiles-1 ; new Tile meshes(x,y)=CreateMeshTile(scale/tsize,tsize+1,x,y) EntityFX meshes(x,y),2 ; get Surface and Tris per Tile surfaces(x,y)=GetSurface(meshes(x,y),1) tris(x,y)=CountVertices(surfaces(x,y)) ; apply texture EntityTexture meshes(x,y),colormap,0,1 ; collision EntityType meshes(x,y),2 Next Next UnlockBuffer TextureBuffer(colormap) End Function ; ------------------------------------------------------------------------------------------------- ; Fixes the Chunk normals that no visible seams appear ; ------------------------------------------------------------------------------------------------- Function FixChunkNormals() Local x%,y%,z% Local nx#,ny#,nz# Local r%,g%,b% For y=0 To tiles-1 For x=0 To tiles-1 For z=0 To tsize ; align vertical normals nx=VertexNX(surfaces(x,y),tsize+(z*(tsize+1))) ny=VertexNY(surfaces(x,y),tsize+(z*(tsize+1))) nz=VertexNZ(surfaces(x,y),tsize+(z*(tsize+1))) If x<tiles-1 Then VertexNormal surfaces(x+1,y),0+(z*(tsize+1)),nx,ny,nz ; align horizontal normals nx=VertexNX(surfaces(x,y),tris(x,y)-(tsize+1)+z) ny=VertexNY(surfaces(x,y),tris(x,y)-(tsize+1)+z) nz=VertexNZ(surfaces(x,y),tris(x,y)-(tsize+1)+z) If y<tiles-1 Then VertexNormal surfaces(x,y+1),z,nx,ny,nz r=128 g=128 b=128 ; If set: seams=red If Colored Then r=255 g=255 b=0 EndIf VertexColor surfaces(x,y),tsize+(z*(tsize+1)),r,g,b If x<tiles-1 Then VertexColor surfaces(x+1,y),(z*(tsize+1)),r,g,b VertexColor surfaces(x,y),tris(x,y)-(tsize+1)+z,r,g,b If y<tiles-1 Then VertexColor surfaces(x,y+1),z,r,g,b Next Next Next End Function ; ------------------------------------------------------------------------------------------------- ; Creates a single Mesh Terrain Tile with unfixed chunk borders ; ------------------------------------------------------------------------------------------------- Function CreateMeshTile(size%,vertexes,startx%=0,starty%=0) Local a%,r%,g%,b%,rgb%,v% Local mesh%,surface% Local xpoint%,ypoint% Local zpoint% Local tri%,lx%,ly%,h#,index% Local texfactor1#=texsize/(xpts-1) Local texfactor2#=texsize/(xpts*1.0) Local vx#,vz# Local sx%=startx*tsize Local sy%=starty*tsize ; create mesh and surface mesh = CreateMesh() surface = CreateSurface(mesh) Local buffer%=TextureBuffer(colormap) LockBuffer buffer ; set vertices For xpoint=0 To vertexes-1 For zpoint=0 To vertexes-1 h#=Normalize(PeekShort(heightfield,(((startx*tsize)+zpoint)+((starty*tsize)+xpoint)*xpts)*2)-32767,min,max,minm,maxm)/divider vx=-(scale/2.0)+(((starty)*tsize)+xpoint)*(scale*1.0/xpts) vz=-(scale/2.0)+(((startx)*tsize)+zpoint)*(scale*1.0/xpts) v=AddVertex (surface,vx,h,vz,((startx*tsize)+zpoint)*texfactor1,((starty*tsize)+xpoint)*texfactor1) If VertexColors Then ; read texel rgb=ReadPixelFast(((startx*tsize)+zpoint)*texfactor2,((starty*tsize)+xpoint)*texfactor2,buffer) r=(rgb And $ff0000)/$10000 g=(rgb And $ff00)/$100 b=(rgb And $ff) ; set vertexcolor by colormap VertexColor surface,v,r,g,b,1 Else VertexColor surface,v,128,128,128,1.0 EndIf Next Next UnlockBuffer buffer ; create triangles For tri = 0 To (vertexes^2)-vertexes-1 If tri Mod vertexes<>vertexes-1 AddTriangle (surface,tri,tri+1,tri+vertexes) AddTriangle (surface,tri+1,tri+vertexes+1,tri+vertexes) EndIf Next UpdateNormals mesh Return mesh End Function ; ----------------------------------------------------------------------------- ; Read Terragen-File and store heightdata to bank ; ----------------------------------------------------------------------------- Function LoadTerragen(filename$) Local bank%,i%,xpt%,ypt%,h%,h1#,bytes%=16,pos%,off%=0 Local infoflag$,sizeflag$,xptsflag$,yptsflag$,scalflag$,cradflag$,crvmflag$,altwflag$,endflag$ ; open stream Local file=ReadFile(filename$) ; Terragen-Header available? For i=1 To 16 : infoflag=infoflag+Chr(ReadByte(file)) : Next If infoflag<>"TERRAGENTERRAIN " Then RuntimeError "No valid Terragen Header found!" ; SIZE-Flag available? For i=1 To 4 : sizeflag=sizeflag+Chr(ReadByte(file)) : Next If sizeflag<>"SIZE" Then RuntimeError "No SIZE Flag found!" Else size=ReadInt(file) : bytes=bytes+4+4 ; XPTS-Flag available? For i=1 To 4 : xptsflag=xptsflag+Chr(ReadByte(file)) : Next If xptsflag<>"XPTS" Then RuntimeError "No XPTS Flag found!" Else xpts=ReadInt(file) : bytes=bytes+4+4 ; YPTS-Flag available? For i=1 To 4 : yptsflag=yptsflag+Chr(ReadByte(file)) : Next If yptsflag<>"YPTS" Then RuntimeError "No YPTS Flag found!" Else ypts=ReadInt(file) : bytes=bytes+4+4 ; SCAL-Flag available? For i=1 To 4 : scalflag=scalflag+Chr(ReadByte(file)) : Next If scalflag<>"SCAL" Then RuntimeError "No SCAL Flag found!" Else xscale#=ReadFloat(file) : yscale#=ReadFloat(file) : zscale#=ReadFloat(file) : bytes=bytes+4+4+4+4 ; CRAD-Flag available? (optional) For i=1 To 4 : cradflag=cradflag+Chr(ReadByte(file)) : Next If cradflag<>"CRAD" Then SeekFile file,FilePos(file)-4 : Goto nextcrvm Else crad=ReadFloat(file) : bytes=bytes+4+4 ; CRVM-Flag available? (optional) .nextcrvm For i=1 To 4 : crvmflag=crvmflag+Chr(ReadByte(file)) : Next If crvmflag<>"CRVM" Then SeekFile file,FilePos(file)-4 : Goto nextaltw Else crvm=ReadFloat(file) : bytes=bytes+4+4 ; ALTW-Flag available? .nextaltw For i=1 To 4 : altwflag=altwflag+Chr(ReadByte(file)) : Next If altwflag<>"ALTW" Then RuntimeError "No ALTW Flag found!" Else hscale=ReadShort(file) : hbase=ReadShort(file) : bytes=bytes+4+2+2 ; Banksize = x*y*2 heightfield=CreateBank(xpts*ypts*2) ; read height data For ypt=ypts To 1 Step -1 For xpt=1 To xpts Step 1 ; get 16bit height info and convert to signed integer h=ReadShort(file)-32767 ; calc minimum/maximum height If h<=min Then min=h If h>=max Then max=h ; put height data to bank PokeShort heightfield,((xpt-1)+(ypt-1)*xpts)*2,h Next Next ; close stream CloseFile(file) ; calc number of tiles and tilesize tiles%=(xpts-1)/tilesize tsize%=(xpts-1)/tiles ; get minimum/maximum height minm#=(hbase+((min*hscale)/65536.0))*scale/xpts*(xpts/1025.0) maxm#=(hbase+((max*hscale)/65536.0))*scale/xpts*(xpts/1025.0) Dim meshes(tiles,tiles),surfaces(tiles,tiles),tris(tiles,tiles),vertex(tilesize,tilesize) End Function ; ----------------------------------------------------------------------------- ; Normalize a value ; ----------------------------------------------------------------------------- Function Normalize#(value#=128.0,value_min#=0.0,value_max#=255.0,norm_min#=0.0,norm_max#=1.0) Return ((value#-value_min#)/(value_max#-value_min#))*(norm_max#-norm_min#)+norm_min# End Function ; ------------------------------------------------------------------------------------------------- ; Create a simple quad, with alpha and fx ; ------------------------------------------------------------------------------------------------- Function CreateQuad(r%=255,g%=255,b%=255,alpha#=1.0,fx%=0) Local mesh%,surface%,v1%,v2%,v3%,v4% mesh=CreateMesh() surface=CreateSurface(mesh) v1=AddVertex (surface,-1,1,0,1,0) v2=AddVertex (surface,1,1,0,0,0) v3=AddVertex (surface,-1,-1,0,1,1) v4=AddVertex (surface,1,-1,0,0,1) VertexColor surface,v1,r,g,b,alpha VertexColor surface,v3,r,g,b,alpha VertexColor surface,v2,r,g,b,alpha VertexColor surface,v4,r,g,b,alpha AddTriangle(surface,0,1,2) AddTriangle(surface,3,2,1) EntityFX mesh,fx FlipMesh mesh Return mesh End Function 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