playground:music
Différences
Ci-dessous, les différences entre deux révisions de la page.
Prochaine révision | Révision précédenteDernière révisionLes deux révisions suivantes | ||
playground:music [2017/05/12 14:20] – créée falsam | playground:music [2018/01/11 02:02] – falsam | ||
---|---|---|---|
Ligne 1: | Ligne 1: | ||
+ | **14-Music.sb** | ||
+ | |||
+ | [[http:// | ||
+ | |||
+ | <file purebasic | ||
+ | ; | ||
+ | |||
+ | EnableExplicit | ||
+ | |||
+ | IncludeFile " | ||
+ | UseModule BJS | ||
+ | |||
+ | Global Scene, Camera, Light, Pop, Ground, GroundTex, GroundMat, Mesh | ||
+ | |||
+ | Declare LoadGame() | ||
+ | Declare RenderGame() | ||
+ | |||
+ | InitEngine(@LoadGame()) | ||
+ | |||
+ | Procedure LoadGame() | ||
+ | Scene = CreateScene() | ||
+ | If Scene | ||
+ | | ||
+ | ;Load Music | ||
+ | MusicLoad(" | ||
+ | Pop = MusicLoad(" | ||
+ | | ||
+ | ;Camera | ||
+ | Camera = CreateCamera(" | ||
+ | CameraBodySize(Camera, | ||
+ | CameraLookAt(Camera, | ||
+ | ClearScene(RGB(0, | ||
+ | CreateLight(" | ||
+ | Light = CreateLight(" | ||
+ | | ||
+ | ;Ground | ||
+ | Ground = CreateGround(" | ||
+ | GroundTex = LoadTexture(" | ||
+ | GroundMat = CreateMaterial(" | ||
+ | SetMaterialTexture(GroundMat, | ||
+ | SetMaterialColor(GroundMat, | ||
+ | ScaleMaterial(GroundMat, | ||
+ | SetMeshMaterial(Ground, | ||
+ | CreateMeshBody(Ground, | ||
+ | | ||
+ | ;Shadow | ||
+ | InitShadow(Light, | ||
+ | RenderShadows(Ground) | ||
+ | | ||
+ | ; | ||
+ | RenderLoop(@RenderGame()) | ||
+ | EndIf | ||
+ | EndProcedure | ||
+ | |||
+ | Procedure RenderGame() | ||
+ | Select Random(1000, | ||
+ | Case 5, 25, 35 | ||
+ | | ||
+ | Mesh = CreateSphere(" | ||
+ | MoveMesh(Mesh, | ||
+ | CreateMeshBody(Mesh, | ||
+ | ShadowEmitter(Mesh) | ||
+ | MusicPlay(Pop) | ||
+ | | ||
+ | Case 10, 20, 30 | ||
+ | Mesh = CreateBox(" | ||
+ | ScaleMesh(Mesh, | ||
+ | MoveMesh(Mesh, | ||
+ | CreatemeshBody(Mesh, | ||
+ | RotateMesh(Mesh, | ||
+ | ShadowEmitter(Mesh) | ||
+ | MusicPlay(Pop) | ||
+ | | ||
+ | EndSelect | ||
+ | |||
+ | RenderWorld() | ||
+ | EndProcedure | ||
+ | </ | ||
playground/music.txt · Dernière modification : 2023/03/15 15:49 de 127.0.0.1