PureBasic

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)