Waves - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|706\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Waves
Sun, 11 Nov 2007, 07:12
Toaster	Hello I am trying to get waves to work there suppose to align to the terrain. It also sets the direction in which the wave is to be seen at. Right now I think it should work but all I get is a MAV and it points to render world. Thanks for any help you can give to me. Graphics3D 800,600,32,2 Global camera = CreateCamera() Type twave Field h,x#,z#,place,dir,num End Type Type wave Field sprite,x#,z#,dir,time,num End Type Global ter=LoadTerrain("hmap01.jpg") ScaleEntity ter,2,55,2 Global ter_size=128 Global water_Height=10 Global number=0 For X=0 To ter_size For Z=0 To ter_size h#=TerrainY(ter,x,0,z) twave.twave = New twave twave\h=h# twave\x=x twave\z=z number=number+1 twave\num=number ;WaitKey ;Shore? If Abs(h#)>water_Height Then twave\place =1 EndIf ;Cls ;Text 0,0,"X: "+X ;Text 0,10,"Z: "+Z ;Text 0,20,"h: "+h ;Text 0,30,"Place: "+twave\place ;Flip Next Next For twave.twave = Each twave If twave\place = 1 Then c=CreatePivot() PositionEntity c,Twave\x#,0,Twave\z# HideEntity c ;Direction hdifa=0 hdifv#=0 For a=0 To 360 Step 30 h1#=TerrainY(ter,twave\x,0,twave\z) MoveEntity c,0,0,-(82) h2#=TerrainY(ter,twave\x,0,twave\z) If Abs(h1#-h2#)>Abs(hdifv#) Then hdifa=a hdifv#=h1#-h2# EndIf Next If hdifv#<0. Then hdifa=hdifa+180 EndIf Twave\dir=hdifa EndIf Next Global watersprite = LoadSprite("Spark.tga") While Not KeyDown(1) updatecamera() updatewaves() UpdateWorld RenderWorld Flip False Wend End Function updatewaves() For twave.twave=Each twave If twave\place = 1 Then wave.wave = New wave wave\num = twave\num twave\place = 2 wave\sprite = CopyEntity(watersprite) SpriteViewMode wave\sprite,2 ScaleSprite wave\sprite,2,2 PositionEntity wave\sprite,twave\x,water_Height,twave\z RotateEntity wave\sprite,0,twave\dir,0 wave\time = 0 EndIf Next For wave.wave=Each wave wave\time=wave\time+1 If wave\time=30 Then For twave.twave=Each twave If twave\num=wave\num Then twave\num=1 Next FreeEntity wave\sprite Delete wave EndIf Next End Function Function updatecamera() ;; UPDATE CAMERA mxs# = mxs + Float(MouseXSpeed())/3 mys# = mys + Float(MouseYSpeed())/3 mxs = mxs - mxs/4 mys = mys - mys/4 TurnEntity camera,mys,-mxs,0 RotateEntity camera,Min22(Max22(EntityPitch(camera),80),-80),EntityYaw(camera),0 MoveEntity camera,(KeyDown(32)-KeyDown(30))1,0,(KeyDown(17)-KeyDown(31))*1 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 End Function Function Min22#(A#,B#) If A < B Then Return B Return A End Function Function Max22#(A#,B#) If A > B Then Return B Return A End Function --v
Sun, 11 Nov 2007, 08:39
Toaster	I fixed it with the help of some people.. In case any of you were wondering how do I do waves with terrain well here it is.. Graphics3D 800,600,32,2 Global camera = CreateCamera() Type twave Field h,x#,z#,place,dir,num End Type Type wave Field sprite,x#,z#,dir,time,num,alpha# End Type Global ter=LoadTerrain("hmap01.jpg") Global ter_tex = LoadTerrain("sand") EntityTexture ter,ter_tex ScaleEntity ter,2,55,2 Global ter_size=256 Global water_Height=25 Global number=0 For X=0 To ter_size Step 4 For Z=0 To ter_size Step 4 h#=TerrainY(ter,x,0,z) twave.twave = New twave twave\h=h# twave\x=x twave\z=z number=number+1 twave\num=number ;WaitKey ;Shore? If Abs(h#)>water_Height Then twave\place =1 EndIf ;Cls ;Text 0,0,"X: "+X ;Text 0,10,"Z: "+Z ;Text 0,20,"h: "+h ;Text 0,30,"Place: "+twave\place ;Flip Next Next Local a Local hdifa Local hdifv# Local h1# Local h2# For twave.twave = Each twave If twave\place = 1 Then c=CreateCube() PositionEntity c,Twave\x#,0,Twave\z# HideEntity c ;Direction hdifa=0 hdifv#=0 For a=0 To 360 Step 30 RotateEntity c,0,a,0 PositionEntity c,Twave\x#,0,Twave\z# MoveEntity c,0,0,8 h1#=TerrainY(ter,EntityX(c),0,EntityZ(c)) MoveEntity c,0,0,-(82) h2#=TerrainY(ter,EntityX(c),0,EntityZ(c)) If Abs(h1#-h2#)>Abs(hdifv#) Then hdifa=a hdifv#=h1#-h2# EndIf Next If hdifv#<0. Then hdifa=hdifa+180 EndIf PositionEntity c,Twave\x#,0,Twave\z# RotateEntity c,0,hdifa,0 Twave\dir=hdifa EndIf Next Global watersprite = LoadSprite("Spark.tga") While Not KeyDown(1) updatecamera() updatewaves() UpdateWorld RenderWorld Flip False Wend End Function updatewaves() For twave.twave=Each twave If twave\place = 1 Then wave.wave = New wave wave\num = twave\num twave\place = 2 wave\alpha = 1 wave\sprite = CopyEntity(watersprite) ;SpriteViewMode wave\sprite,2 ScaleSprite wave\sprite,2,2 RotateEntity wave\sprite,0,twave\dir,0 ;RotateSprite wave\sprite,twave\dir PositionEntity wave\sprite,twave\x,water_Height,twave\z MoveEntity wave\sprite,0,0,-1 wave\time = 0 EndIf Next For wave.wave=Each wave wave\time=wave\time+1 If wave\time=200 Then For twave.twave=Each twave If twave\num=wave\num Then twave\place=1 Next FreeEntity wave\sprite Delete wave Else wave\alpha=wave\alpha-.005 EntityAlpha wave\sprite,wave\alpha MoveEntity wave\sprite,0,0,.02 EndIf Next End Function Function updatecamera() ;; UPDATE CAMERA mxs# = mxs + Float(MouseXSpeed())/3 mys# = mys + Float(MouseYSpeed())/3 mxs = mxs - mxs/4 mys = mys - mys/4 TurnEntity camera,mys,-mxs,0 RotateEntity camera,Min22(Max22(EntityPitch(camera),80),-80),EntityYaw(camera),0 MoveEntity camera,(KeyDown(32)-KeyDown(30))1,0,(KeyDown(17)-KeyDown(31))*1 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 End Function Function Min22#(A#,B#) If A < B Then Return B Return A End Function Function Max22#(A#,B#) If A > B Then Return B Return A End Function --v