Crazy Sheep

[raven]

belle présentation, j'aime bien le titre comme ça :

Code : Tout sélectionner

;***********************
;      Crazy Sheep
;     Version 1.0.0
;      By MetalOS
;***********************

InitEngine3D()
InitKeyboard()
InitMouse()
InitSprite()
UsePNGImageDecoder()
Enumeration
  #Camera
  #EntityPlanet
  #Light
  #ImageTitre
  #SpriteTitre
EndEnumeration

Add3DArchive("Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive("Data/Models", #PB_3DArchive_FileSystem)
Add3DArchive("Data/Scripts", #PB_3DArchive_FileSystem)
Add3DArchive("Data/GUI", #PB_3DArchive_FileSystem)

Parse3DScripts()

AntialiasingMode(#PB_AntialiasingMode_x6)

OpenScreen(1366,768,32,"")
SkyDome("cloud.jpg", 30)
 
CreateCamera(#Camera,0,0,100,100)
MoveCamera(#Camera,0.2,0,5, #PB_Absolute)
CameraBackColor(#Camera, RGB(42, 90, 183))
CameraLookAt(#Camera,0,0,0)

;-Entity
CreateEntity(#EntityPlanet, LoadMesh(0, "Planete.mesh"),  #PB_Material_None)
RotateEntity(#EntityPlanet, 30, -20, 0)
CreateLight(#Light, RGB(255, 255, 255),  10, 0, 30, #PB_Light_Point)  ; Light blanc

;Sprit
;Sprit


LoadSprite(#SpriteTitre, "Data/Textures/Titre.png", #PB_Sprite_AlphaBlending)
 
Repeat
   Transpa+1:If Transpa=255:Transpa=0:EndIf
  ExamineKeyboard()
 
  RenderWorld()
  DisplayTransparentSprite(#SpriteTitre, 355, 10, transpa)
  FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)

[MetalOS]

Le fondu du titre est sympas.

[falsam]

@Cool Dji: En relisant ce topic, je viens de voir ta contribution permettant d'afficher du texte (voir ce lien). Merci beaucoup pour ce partage. Pratique pour afficher des scores ou autres sans passer par le chargement d'une fonte. J’adhère

[Cool Dji]

La fonction AffText m'accompagne depuis fort longtemps...

Le topic de MetalOs m'a encouragé à reprendre contact avec Blender et c'est cool !!

[MetalOS]

Voici le menu final du jeu:



Ici une petite modification du mouton et un premier objet pour les scenes.

[Ar-S]

Super rendu !