PureBasic Forums - English

Code: Select all

; - Main ******************************
InitSprite():InitKeyboard()

If OpenWindow(0, 0, 0, #SCREEN_Width, #SCREEN_Height, "Test Anim Sprite V"+#VERSION, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
  If OpenWindowedScreen(WindowID(0), 0, 0, WindowWidth(0), WindowHeight(0), 1, 0, 0, #PB_Screen_NoSynchronization)
    ; On indique la fréquence de rafraichissement pour le flipbuffers
    SetFrameRate(#FRAME_RATE)
    ; Création de nos feuilles de sprites
    ImGSpriteZombies  = GS_CatchAnimSprite(?DS_SpriteZombies, "ZOMBIE", #SPR_W_ZOMBIE, #SPR_H_ZOMBIE, 18, $FF00FF)
;     ImgMapLvl1        = GS_LoadAnimSprite("GNG_MAP_Sprite_Lvl01.png","MAP01", 32, 32, 104, $FF00FF)
    ImgMapLvl1        = GS_CatchAnimSprite(?DS_SpriteLvl1, "MAP01", #SPR_W_LVL1, #SPR_H_LVL1, 104, $FF00FF)
    ;ScriptZombie = " "
    ;ScriptZombieMoving = CreateScript(ImGSpriteZombies, @ScriptZombie)

    If ImGSpriteZombies And ImgMapLvl1 And GS_CreateLayers("MAP01")
      ; Création des animations en fonction de nos feuilles préalablement créées
      SprAnimZombie1  = GS_CreateAnimSprite(#PB_Any, "ZOMBIE", 7, 9, 400)
      SprAnimZombie2  = GS_CreateAnimSprite(#PB_Any, "ZOMBIE", 16, 18, 400)
      SprAnimZombie3  = GS_CreateAnimSprite(#PB_Any, "ZOMBIE", 1, 7, 1000, -1)
      Water           = GS_CreateAnimSprite(#PB_Any, "MAP01", 86, 88)
      ; On génére une séquence d'animation dans une des couches
      GS_CreateSequence($E000, water)

      PosX_Zombie1    = Random(#SCREEN_Width-#SPR_W_ZOMBIE-3*32)

      Repeat
        Repeat
          Event = WaitWindowEvent(5)

          Select Event 
            Case #PB_Event_Gadget
              If EventGadget() = 0
                quit = 1
              EndIf
            
            Case #PB_Event_CloseWindow
              quit = 1 
          EndSelect
        Until Event = 0

        ExamineKeyboard()
        If KeyboardPushed(#PB_Key_Escape) : quit = 1 : EndIf

        FlipBuffers()
        ClearScreen(0)
  
        If StartDrawing(ScreenOutput())
          DrawText(0,222,"FPS: "+Str(GS_GetFPS()))
          ; ---------------
          ;Affiche les couches dans un ordre bien précis
          GS_DrawLayer("LAYER_01")
          GS_DrawLayer("LAYER_02")
          GS_DrawLayer("LAYER_03")
          ; ---------------            
          ;Zombies
          GS_DrawAnimSprite(SprAnimZombie2,  10, 5*32-#SPR_H_ZOMBIE)
          CurFrameZombie3 = GS_DrawAnimSprite(SprAnimZombie3, PosX_Zombie1, 5*32-#SPR_H_ZOMBIE)
          If CurFrameZombie3 = 7 And NextSprite = #False
            GS_RemoveAnimSprite(SprAnimZombie3, #True)
            NextSprite = #True
          ElseIf NextSprite = #True
            GS_DrawAnimSprite(SprAnimZombie1, PosX_Zombie1, 5*32-#SPR_H_ZOMBIE)
            PosX_Zombie1 + #SPEED_ZOMBIE
            If PosX_Zombie1 > #SCREEN_Width And CurFrameZombie3 = 7 : PosX_Zombie1 = Random(#SCREEN_Width-#SPR_W_ZOMBIE-3*32) : NextSprite = #False : GS_RemoveAnimSprite(SprAnimZombie3, #False) : EndIf
          EndIf
          GS_DrawLayer("LAYER_04")
          GS_DrawLayer("LAYER_SEQUENCE")
          ; ---------------
          StopDrawing()
          ; un peu de temps pour le processeur :)
          Delay(#DELAY_FOR_PROC)
        Else
          ;Error: Ne peut dessiner sur l'écran
        EndIf
      Until Quit = 1
    Else
      ;Error: Création des sprites
    EndIf
  Else
    ;Error: Problème d'ouverture de l'écran
  EndIf
EndIf