PureBasic

Code : Tout sélectionner

    AssetsManagerAdd("Topo", "Insee.txt", @OnLoad(), @OnError())

 Case "Topo"
      MemorySize$=Str(Element)   ;=> récupere la taille du ficher texte (nombre de caractères)
j=0
k=0
Repeat
  j+1
        If Mid(MemorySize$,j,1)=","  ;=> est-ce que le caractère lu est un séparateur ?

          k+1                                ; oui, on incrémente le pointeur
          insee(k)=Val(car$)            ; et on insere le nombre dans un tableau dim
          car$=""                          ; on met à zero pour reconstruire un nouveau nombre

        Else                                  ; non

          car$+Mid(MemorySize$,j,1)  ; on ajoute le caractere lu aux autres caracteres déja lu et on continue

        EndIf

     Until j>Len(MemorySize$)          ; Boucle tant qu'on a pas lu tous les caractères
 

Code : Tout sélectionner

Procedure RenderGame()    
  RenderWorld()
  If loadingAll=1
  ;  DisplaySprite(1,100,100)
    FlipBuffers()
  EndIf  
EndProcedure 

Code : Tout sélectionner

EnableExplicit

IncludeFile "babylon/babylon.sbi"
IncludeFile "Sprite.sbi"

Global Scene, Camera, Ground, GroundMat
Global Ball, Ball0, Ball1

Declare LoadGame()
Declare RenderGame()

UseModule BJS
InitEngine(@LoadGame())

Procedure LoadGame()    
  Scene = CreateScene()
  If Scene
    Camera = CreateCamera("camera", 0, 5, 20, #BJS_ArcRotate)
    CameraLookAt(Camera, 0, 0, 0)
    
    CreateLight("Ambiance", 0, 100, 0)
    Ground = CreateGround("Ground", 20, 20)
    GroundMat = CreateMaterial("")
    SetMaterialColor(GroundMat, #BJS_Diffuse, RGB(210, 180, 140))
    SetMeshMaterial(Ground, GroundMat)
    
    ;Chargement de deux copies d'une balle taille 40x40 pixels
    Ball = SpriteManager("Texture 1","Data/textures/ball.png", 40, 40, 2)
    
    ;Ajout et affichage des deux balles 
    Ball0 = AddSprite("Sprite 1", Ball, 0, 1, 0) ; En x = 0, y = 1 z=0   
    Ball1 = AddSprite("Sprite 2", Ball, 5, 2, 0) ; En x = 5, y = 2 z=0 
    
    RenderLoop(@RenderGame())
  EndIf
EndProcedure

Procedure RenderGame()
  RenderWorld() 
EndProcedure

Code : Tout sélectionner

EnableExplicit

IncludeFile "babylon/babylon.sbi"

Global Scene, Camera, Light, Ground, Box 
Global GUI, Play, Sound, Time, x.f, y.f

Declare LoadGame()
Declare OnPlay()
Declare RenderGame()

UseModule BJS

InitEngine(@LoadGame())

Procedure LoadGame()    
  Scene = CreateScene()
  If Scene
    
    ;Camera & lighting environment
    ClearScene(RGB(128, 128, 128))
    
    CreateLight("global", 0, 200, 0, 0.4)
    Light = CreateLight("global", 0, 200, 0, 0.4, #BJS_Point)
    Camera = CreateCamera("camera", 0, 10, 30, #BJS_ArcRotate)
    
    ;Ground & Box
    Ground = Createground("ground", 10, 10)    
    Box = CreateBox("box", 3, 3, 3)
    MoveMesh(Box, 0, 3, 0)
    
    ;Music
    Sound = MusicLoad("petite music", "data/sounds/calm.wav")
    
    ;GUI 
    GUI = CreateDynamicTexture()
    Play = Image3D("Play", 20, 20, 80, 80, "data/textures/PlayBtn.png", @OnPlay())
    AddControl3D(GUI, Play)
    
    Time = Text3D("donne moi l'heure", 200, 20, 200, 30, "00:00:00")
    AddControl3D(GUI, Time)
        
    RenderLoop(@RenderGame())
  EndIf
EndProcedure

Procedure OnPlay()
  MusicPlay(Sound)
EndProcedure
  
Procedure RenderGame()
  Protected hhmmss.s = FormatDate("%hh:%ii:%ss", Date())
  
  ;Deplacement du bouton play
  If x < DesktopWidth(0)-80
    x + 1
  Else
    x = 20
  EndIf
  
  If y < DesktopHeight(0)-80
    y + 0.5
  Else
    y = 20
  EndIf
    
  MoveObject3D(play, x, y)
    
  ;Mise à jour de l'heure
  SetText3D(Time, hhmmss)
  
  RenderWorld()   
EndProcedure