PureBasic

Code : Tout sélectionner

;***********************************************
;Titre  : terre 3d
;Auteur  : Raven d'aprés le code de cooldj
;Date  :26/09/2014
;Heure  :08:06:47
;Version Purebasic :  PureBasic 5.23 LTS (Windows - x86)
;Version de l'editeur :EPB V2.58
; Libairies necessaire : Aucune 
;***********************************************

InitEngine3D()
InitKeyboard()
InitMouse()
InitSprite()
UsePNGImageDecoder()
UseJPEGImageDecoder()

Declare AffText(Text$,x.i,y.i,light.i)

If OpenScreen(1024,768,32,"Terre3d") = 0
   MessageBox_ (0,"Impossible d'ouvrir un écran 1024x768x32@75hz", "ERREUR", #MB_ICONINFORMATION|#MB_OK)  :End 
EndIf

Enumeration
   #terre
   #vaisseau
   #titre
EndEnumeration

CatchSprite(#vaisseau,?vaisseau,#PB_Sprite_BlendSourceAlpha)
CatchSprite(#titre,?titre,#PB_Sprite_BlendSourceAlpha)
Add3DArchive("media", #PB_3DArchive_FileSystem)
CreateCamera(0,0,0,100,100)
MoveCamera(0,  0, 10,40, #PB_Absolute)
CameraLookAt(0,0,10,20)
CreateMaterial(#terre, LoadTexture(#terre, "terre_map.jpg"))
CreateSphere(#terre,20,50,50)
CreateEntity(#terre,MeshID(0),#PB_Material_None)
CreateEntity(#terre,MeshID(0),MaterialID(0))

LoadImage(100,"media/font.bmp")              ; Charge l'image de toutes les lettres

vaisseau_posx=480
vaisseau_posy=700
;----------------fonte cooldj--------------------------------
For j=0 To 125-33                               ; Fait une boucle de toutes les lettres
   GrabImage(100,j,j*16,0,j*16+16,16)            ; Découpe lettre par lettre
   CreateSprite(j+100,16,16)  ; Crée un sprite pour chaque lettre
   StartDrawing(SpriteOutput(j+100))
      DrawImage(ImageID(j),0,0)                   ; Place la lettre découpée dans le sprite
   StopDrawing()
Next
;-------------------------------------------------------
Repeat

    ExamineKeyboard()
   ClearScreen(RGB(0,0,0))
			
   SpriteQuality(1)
   RotateEntity(0,0.3,0,0,#PB_Relative)    
   RenderWorld()
   
   ;--- fps ----
   If FPST < ElapsedMilliseconds()
      FPST = ElapsedMilliseconds()+1000
      fps = FPSC
      FPSC=0
   EndIf
   FPSC+1

   Transpa+1:If Transpa=255:Transpa=0:EndIf
   AffText("Fps: "+Str(fps),0,30,255)
   AffText("Start Game",420,420,255)
   AffText("Menu ",460,460,255)
   AffText("Credits ",440,500,255)
   DisplayTransparentSprite(#titre,-10,200,transpa) ;affiche le titre en transparence+transpa de 255 à 0
   
   
   If image_vaisseau=3:image_vaisseau=0:EndIf
   TransparentSpriteColor(#vaisseau,RGB(0,0,0))  ;affiche le vaisseau sans le fond noir
   ClipSprite(#vaisseau,image_vaisseau*60,0,60,60) ;clip l'image
   DisplayTransparentSprite(#vaisseau,vaisseau_posx,vaisseau_posy);affiche le vaisseau avec sa position sur l'ecran
  ; pas animation
   tempo_vaisseau + 1  
   If  tempo_vaisseau= 3
      image_vaisseau +1 
      tempo_vaisseau = -1
   EndIf

   FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)

;-------Procédure Cooldj-------------------
Procedure AffText(Text$,x.i,y.i,light.i)
   For j=1 To Len(Text$)                              ; Fait une boucle sur le nombre de caractères à afficher
      a$=Mid(Text$,j,1)                                ; Prends un caractère après l'autre
      If (Asc(a$)>=Asc("!")) And (Asc(a$)<=Asc("z"))  ; vérifie que le caractère existe
         i.i=Asc(a$)-33                              ; rappel : le code Ascii de ! est 33
         DisplayTransparentSprite(i+100,x+j*16,y,light)         ; Affiche le sprite du caractere
      EndIf
   Next
EndProcedure
;------------------------------------------
FreeEntity(#terre)
FreeTexture(#terre)
FreeSprite(#vaisseau)
FreeSprite(#titre)
CloseScreen()
End 

DataSection
   vaisseau:
   IncludeBinary "media\fighter.bmp"
   titre:
   IncludeBinary "media\space.png"
EndDataSection
; Epb

Code : Tout sélectionner

affiche 2d........
affiche 3d........
affiche 2d.......
affiche3d etc...