PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

Lemmz

http://forums.purebasic.com/french/viewtopic.php?t=19509

Page 1 sur 1

Lemmz

Publié : ven. 13/mars/2026 14:13
par SPH
Salut à tous,

Voici une démo de mon jeu actuel (a telecharger avec un clic droit) :
http://xmas.free.fr/sph/lemmz.zip

Nouvelle version anti plantage:

Code : Tout sélectionner

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; debut du code : le 10 novembre 2025
;;;;;;
;;;;;; BP 6.30
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

InitSprite()
InitKeyboard()
InitMouse()

ExamineDesktops()
drx = DesktopWidth(0)
dry = DesktopHeight(0)

If drx>1920
  drx=1920
  dry=1080
EndIf

OpenScreen(drx,dry,32,"Sprite")

;;;;;;;;;;;;;;;;;;;;;;;;
;- metier()=0 : chute / parapluie
;- metier()=1 : marche
;- metier()=2 : escalier
;- metier()=3 : stoppeur
;- metier()=4 : grimpeur
;- metier()=5 : creuseur vertical
;- metier()=6 : piocheur
;- metier()=7 : creuseur horizontal
;- metier()=70 : crash
;- metier()=71 : >>mort<<
;- kill()=4 : kill


For i=1 To 328
  If LoadSprite(i,"menu/"+Str(i)+".bmp", #PB_Sprite_AlphaBlending)
  EndIf
Next
For i=800 To 803
  If LoadSprite(i,"menu/"+Str(i)+".bmp", #PB_Sprite_AlphaBlending)
  EndIf
Next
For i=900 To 907
  If LoadSprite(i,"menu/"+Str(i)+".bmp", #PB_Sprite_AlphaBlending)
  EndIf
Next
For i=998 To 999
  If LoadSprite(i,"menu/"+Str(i)+".bmp", #PB_Sprite_AlphaBlending)
  EndIf
Next
If LoadSprite(500,"menu/Menu.bmp", #PB_Sprite_AlphaBlending)
EndIf
If LoadSprite(501,"menu/cadre.bmp", #PB_Sprite_AlphaBlending)
EndIf

LoadSprite(1001,"menu/niveau1.bmp", #PB_Sprite_AlphaBlending)

;;;
;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;

;Création du sprite
CreateSprite(1000,drx,dry)
StartDrawing(SpriteOutput(1000))
u=111
o=0
For i=0 To dry-1
  LineXY(0,i,drx,i,RGB(0,22,u))
  o+1
  o%11
  If o=0
    u-1
  EndIf
  
Next
StopDrawing()
;;;;;;;;;;;
;;;;;;;;;;;
;;;;;;;;;;;

Dim p.b(drx,dry)

StartDrawing(SpriteOutput(1001))
; For i=0 To 20
;   LineXY(300,800-i*14,800,300-i*14,RGBA(255,255,255,255))
; Next

For i=0 To drx-1
  For u=0 To dry-1
    If Point(i,u)<>0
      p(i,u)=1
      ;Plot(i,u,RGBA(222,222,2,222))
    EndIf
  Next
Next
For i=0 To drx-1
  For u=0 To 8
    p(i,u)=3
    p(i,dry-1-u)=3
  Next
Next
For i=0 To 8
  For u=0 To dry-1
    p(i,u)=3
    p(drx-1-i,u)=3
  Next
Next

StopDrawing()

TempsDepart.q = ElapsedMilliseconds()  ; Récupère la valeur actuelle

DisplayTransparentSprite(1001, 0, 0)


TempsEcoule.q = ElapsedMilliseconds()-TempsDepart  ; La valeur 'TempsEcoule' devrait être d'environ 1000 millisecondes 
                                                   ;  Debug "Temps écoulé : "+Str(TempsEcoule)+" millisecondes" 

;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; D E B U T ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

cmb_de_bestioles=100
Dim lax(cmb_de_bestioles)
Dim lay(cmb_de_bestioles)
Dim sens.b(cmb_de_bestioles)
Dim dessin(cmb_de_bestioles)
Dim metier.b(cmb_de_bestioles)
Dim chute.w(cmb_de_bestioles)
Dim grimpe.b(cmb_de_bestioles)
Dim grimpe0.b(cmb_de_bestioles)
Dim parachute.b(cmb_de_bestioles)
Dim parachute0.b(cmb_de_bestioles)
Dim creuseH.b(cmb_de_bestioles)
Dim creuseH0.b(cmb_de_bestioles)
Dim escalier.b(cmb_de_bestioles)

Dim flag0.b(cmb_de_bestioles)
flag_u.b
Dim kill.b(cmb_de_bestioles)
Dim chrono.b(cmb_de_bestioles)
Dim chrono0.b(cmb_de_bestioles)

alpinisme.b=14
chute=344
curseur=998

For i=1 To cmb_de_bestioles
  ;kill(i)=1
  
  lax(i)=Random(drx/1.2)+130
  lay(i)=Random(100)+44
  If cmb_de_bestioles=1
    lax(i)=890
    lay(i)=200
  EndIf
  sens(i)=Random(1)*2-1
  If cmb_de_bestioles=1
    sens(i)=-1
  EndIf
  If sens(i)=1
    dessin(i)=101
  Else
    dessin(i)=101;105
  EndIf
Next

stop.b=1
flag3.b=0
Flag_Mouse_Gauche.b=0
Flag_Mouse_Droit.b=0

Dim lax2(cmb_de_bestioles)
Dim lay2(cmb_de_bestioles)

Dim anti_freeze(cmb_de_bestioles)

;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;;;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;;;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;;;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;-;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;;;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;;;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;;;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;;;;;;;;;;;;;;;;;;;;;;;;;;               G   O
;;;

menu_x=100
menu_y=dry-180
menu=0


Repeat
  DisplaySprite(1000,0,0)
  DisplayTransparentSprite(1001, 0, 0)
  DisplaySprite(500,menu_x,menu_y)
  DisplayTransparentSprite(501,menu_x+menu*91,menu_y)
  
zzzz=0  
  
  ExamineMouse()  
  mx=MouseX()
  my=MouseY()
  Mouse_Gauche=MouseButton(#PB_MouseButton_Left)
  Mouse_Droit=MouseButton(#PB_MouseButton_Right)
  
  
  
  
  
  ;{  If Mouse_Gauche<>0 And Flag_Mouse_Gauche=0
  ;;;;;;;;;;;;
;   If Mouse_Gauche<>0 And Flag_Mouse_Gauche=0
;     Flag_Mouse_Gauche=1
    
    
  If Flag_Mouse_Gauche=0
    
  If mx>menu_x And mx<menu_x+818
    If my>menu_y And my<menu_y+134
      i=(mx-menu_x)/91
      DisplayTransparentSprite(501,menu_x+i*91,menu_y)
    If Mouse_Gauche<>0 And Flag_Mouse_Gauche=0
      Flag_Mouse_Gauche=1
      menu=i
    EndIf
  EndIf
  EndIf
  
  If menu=8
    For i=1 To cmb_de_bestioles
        If kill(i)=0 And metier(i)<70
          kill(i)=1   ;- kill
        EndIf
      Next
    EndIf
    
EndIf

    ;;;;;;;;;;;;
    
  If Mouse_Gauche<>0 And Flag_Mouse_Gauche=0
    Flag_Mouse_Gauche=1
    
    If menu=7 And kill(perso_i)=0 And metier(perso_i)<70
      kill(perso_i)=1   ;- kill
    EndIf
    
    If menu=8; And kill(perso_i)=0 And metier(perso_i)<70
    EndIf
    
    If menu=0 And metier(perso_i)=0 And parachute(perso_i)=0
      parachute(perso_i)=1 : parachute0(perso_i)=1 ;- metier(perso_i)=2
    EndIf
    
    If menu=1 And metier(perso_i)=1 And metier(perso_i)<70
      metier(perso_i)=3
    EndIf
    
    If menu=2 And metier(perso_i)=1 And metier(perso_i)<70
      grimpe(perso_i)=1
    EndIf
    
    If menu=3 And metier(perso_i)=1 And metier(perso_i)<70
      anti_freeze(perso_i)+1
      metier(perso_i)=2
    EndIf
    
    If menu=4 And metier(perso_i)=1 And metier(perso_i)<70
      creuseH(perso_i)=1
    EndIf
    
    If menu=5 And metier(perso_i)=1 And metier(perso_i)<70
      metier(perso_i)=6
    EndIf
    
    If menu=6 And metier(perso_i)=1 And metier(perso_i)<70
      metier(perso_i)=5
    EndIf
    
  EndIf
  
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ; ; ; ;    
; ; ; ; ;     If kill(perso_i)=0 And metier(perso_i)<70
; ; ; ; ;       ;       kill(perso_i)=1   ;- kill
; ; ; ; ;     EndIf
; ; ; ; ;     If metier(perso_i)=1 And metier(perso_i)<70
; ; ; ; ;       ;parachute(perso_i)=1 : parachute0(perso_i)=1 ;- metier(perso_i)=2
; ; ; ; ;       ;grimpe(perso_i)=1
; ; ; ; ;       ;creuseH(perso_i)=1
; ; ; ; ;       ;  metier(perso_i)=2
; ; ; ; ;       
; ; ; ; ;       ; ; ; ;       For i=0 To 10
; ; ; ; ;       ; ; ; ;         Debug p(lax(perso_i),lay(perso_i)+i)
; ; ; ; ;       ; ; ; ;       Next
; ; ; ; ;       ; ; ; ;       Debug "==="
; ; ; ; ;       ; ; ; ;       ;       kill(perso_i)=1   ;- kill
; ; ; ; ;     EndIf
; ; ; ; ;     
; ; ; ; ;     
; ; ; ; ;     
; ; ; ; ;     If metier(perso_i)=1 And metier(perso_i)<70
; ; ; ; ;       metier(perso_i)=2
; ; ; ; ;       anti_freeze(perso_i)+1
; ; ; ; ;     EndIf
; ; ; ; ;     
    
    ;    grimpe(perso_i)=1
  ;}
  
  ;{
  If Mouse_Gauche=0 And Flag_Mouse_Gauche=1
    Flag_Mouse_Gauche=0
  EndIf
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  Dim lax2(cmb_de_bestioles)
  Dim lay2(cmb_de_bestioles)
  pres=100000
  perso_i=0
  anti_freeze(0)=1
  
  For i=1 To cmb_de_bestioles
    lax2(i)=Abs(lax(i)-mx)
    lay2(i)=Abs(lay(i)-my-12)
    
    For o=8 To 0 Step-2 ;- 1 ou 2 ?
      If metier(i)>=70  ;- ajout 
        Goto suite0
      EndIf
      If lax2(i)<=o And lay2(i)<=o And pres>o
        perso_i=i
        pres=o
      EndIf
    Next
    suite0:
  Next
  
  If perso_i=0 Or kill(perso_i)>0 Or metier(perso_i)>=70
    curseur=998
  Else
    curseur=999
  EndIf
  
  ;  
  
  Goto no2
  StartDrawing(ScreenOutput())
  DrawText(20,20,"Personnage ="+Str(perso_i),$FFFFFF,0)
  DrawText(20,70,"lax2(i)="+Str(lax2(perso_i)),$FFFFFF,0)
  DrawText(20,92,"lay2(i)="+Str(lay2(perso_i)),$FFFFFF,0)
  DrawText(20,120,"sens(i)="+Str(sens(perso_i)),$FFDDDD,0)
  DrawText(20,164,"metier(i)="+Str(metier(perso_i)),$FFDDDD,0)
  DrawText(20,208,"parachute(i)="+Str(parachute(perso_i)),$FFDDDD,0)
  DrawText(220,208,"parachute0(i)="+Str(parachute0(perso_i)),$FFDDDD,0)
  DrawText(150,20,"kill(i)="+Str(kill(perso_i)),$6666FF,0)
  StopDrawing()
  no2:
  ;}
  
  
  
  ;;;;;
  ;;;;;
  ;;;;
  ;;;;
  ;;;
  ;;;
  ;;
  ;;
  ;
  ;
  
  If stop=1
    flag_u+1
    flag_u%30
  EndIf
  
  
  
  For bestioles=1 To cmb_de_bestioles
    
    
    If stop=1
      flag0(bestioles)+1
      flag0(bestioles)%4
    EndIf
    
    
    ;- metier 0
    ;{
    If metier(bestioles)=0
      If parachute(bestioles)=0
        If dessin(bestioles)<101 Or dessin(bestioles)>108
          dessin(bestioles)=101
        EndIf
        
        If sens(bestioles)=-1
          x=4
        Else
          x=0
        EndIf
        If kill(bestioles)<2 ;00000000000000000000000
          DisplayTransparentSprite(dessin(bestioles)+x, lax(bestioles)-SpriteWidth(dessin(bestioles)+x)/2,lay(bestioles)-SpriteHeight(dessin(bestioles)+x)-0)
        EndIf
      Else
        If parachute0(bestioles)=1
          dessin(bestioles)=49
          parachute0(bestioles)=0
        EndIf
        
        If sens(bestioles)=-1
          x=10
        Else
          x=0
        EndIf
        If kill(bestioles)<2 ;00000000000000000000000
          DisplayTransparentSprite(dessin(bestioles)+x, lax(bestioles)-SpriteWidth(dessin(bestioles)+x)/2,lay(bestioles)-SpriteHeight(dessin(bestioles)+x)-0)
        EndIf
      EndIf
      
      If stop=1
        If parachute(bestioles)=0
          If flag0(bestioles)=0
            dessin(bestioles)+1
            If dessin(bestioles)>104
              dessin(bestioles)=101
            EndIf
          EndIf
        Else
          If flag0(bestioles)=0
            dessin(bestioles)+1
            If dessin(bestioles)>58
              dessin(bestioles)=53 ;49
            EndIf
          EndIf
        EndIf
        
        For i=1 To 3-parachute(bestioles) ;o
          If p(lax(bestioles),lay(bestioles))<>0
            If chute(bestioles)<-chute And parachute(bestioles)=0
              ; on meurt    
              metier(bestioles)=70
              Goto suite
            Else
              chute(bestioles)=0
              ;If metier(bestioles)<>7 And metier(bestioles)<>8 And metier(bestioles)<>9 ;-ZZZ
              If metier(bestioles)<70
                metier(bestioles)=1
                parachute(bestioles)=0
              EndIf
              ;;;;;;;;;;;;;;;;;;;;;;;;;;;; dessin de marche ;;;;;;;;;;;;;;;
              If sens(bestioles)=1
                dessin(bestioles)=Random(5)+2
              Else
                dessin(bestioles)=Random(5)+10
              EndIf
              ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
              Goto suite
            EndIf
          EndIf
          ;           If grimpe_go(bestioles)=0
          If kill(bestioles)<2 ;00000000000000000000000
            lay(bestioles)+1
          EndIf
          chute(bestioles)-1
          ;           EndIf
        Next
      EndIf
    EndIf
    suite:
    ;}
    
    ;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;
    
    ;- metier 1
    ;{
    If metier(bestioles)=1
      If dessin(bestioles)<1 Or dessin(bestioles)>16
        If sens(bestioles)=1
          dessin(bestioles)=1
        Else
          dessin(bestioles)=9
        EndIf
      EndIf
      
      If kill(bestioles)<2
        DisplayTransparentSprite(dessin(bestioles), lax(bestioles)-SpriteWidth(dessin(bestioles))/2,lay(bestioles)-SpriteHeight(dessin(bestioles))+1)
      EndIf
      
      If stop=1
        If flag0(bestioles)=0
          dessin(bestioles)+1
          If sens(bestioles)=1
            If dessin(bestioles)=9
              dessin(bestioles)=1
            EndIf
          Else
            If dessin(bestioles)=17
              dessin(bestioles)=9
            EndIf
          EndIf
        EndIf
        
        If kill(bestioles)<2
          lax(bestioles)+sens(bestioles)
        EndIf
        
        escalier.b=0
        For o=0 To 13
          If p(lax(bestioles)+1*sens(bestioles),lay(bestioles)-o)>0;<>0
            escalier=o
          EndIf
        Next
        ;;;;;;;;;;;;;;;;;;;;;;
        ;;;;;;;;;;;;;;;;;;;;
        ;;;;;;;;;;;;;;;;;;
; ; ; ;         If echelle=666 ;- ECHELLE ====== 1
; ; ; ;                        ;               For u=0 To 7
; ; ; ;                        ;                 Debug p(lax(bestioles)-6-sens(bestioles)*2,lay(bestioles)+u)
; ; ; ;                        ;               Next
; ; ; ;                        ;               Debug "==="
; ; ; ;           StartDrawing(SpriteOutput(1001))
; ; ; ;           DrawingMode(#PB_2DDrawing_AllChannels)
; ; ; ;           ;Debug Point(lax(bestioles)+sens(bestioles)*2,lay(bestioles)+1)
; ; ; ;           
; ; ; ;           Plot(lax(bestioles)+sens(bestioles)*2,lay(bestioles),RGBA(255,255,255,255))
; ; ; ;           Plot(lax(bestioles)+sens(bestioles)*3,lay(bestioles),RGBA(255,255,255,255))
; ; ; ;           StopDrawing()
; ; ; ;         EndIf
        ;;;;;;;;;;;;;;;;;;;;;;
        ;;;;;;;;;;;;;;;;;;;;
        ;;;;;;;;;;;;;;;;;;
        escalier2.b=0
        For o=0 To 13
          If p(lax(bestioles)+2*sens(bestioles),lay(bestioles)-o)>0;<>0
            escalier2=o
          EndIf
        Next
        escalier3.b=0
        For o=0 To 13
          If p(lax(bestioles)+3*sens(bestioles),lay(bestioles)-o)>0;<>0
            escalier3=o
          EndIf
        Next
        
        If escalier>2 And escalier2>3 And escalier3>4
          ;- futur metier
          If grimpe(bestioles)+creuseH(bestioles)=0
            
            
            
            sens(bestioles)*-1
            
            If p(lax(bestioles)-2+sens(bestioles)*2,lay(bestioles)+3)=2
              lax(bestioles)+sens(bestioles)*4 ; decallage de 4 pixels lors du retour
              lay(bestioles)+1
            EndIf
            
          Else
            If grimpe(bestioles)<>0
              If sens(bestioles)=1
                dessin(bestioles)=17
              Else
                dessin(bestioles)=25
              EndIf
              metier(bestioles)=4
              Goto suite2
            Else
              If sens(bestioles)=1
                dessin(bestioles)=165
              Else
                dessin(bestioles)=197
              EndIf
              metier(bestioles)=7
              Goto suite2
            EndIf
          EndIf
          
          
          
          
          If sens(bestioles)=1
            dessin(bestioles)=Random(5)+2
          Else
            dessin(bestioles)=Random(5)+10
          EndIf
          
        Else
          
          lay(bestioles)-escalier-2*0
          
        EndIf
        
        escalier.b=0
        For o=8 To 1 Step-1
          If p(lax(bestioles)+1*sens(bestioles),lay(bestioles)+o)<>0;5
            escalier=o
          EndIf
        Next
        
        If escalier=o
          metier(bestioles)=0
          If parachute(bestioles)=0
            If sens(bestioles)=1
              dessin(bestioles)=101
            Else
              dessin(bestioles)=105
            EndIf
          EndIf
          
          Goto suite2
        Else
          lay(bestioles)+escalier-2
        EndIf
        
      EndIf
    EndIf
    suite2:
    
    ;}
    
    ;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;
    
    
    ;- metier 3
    ;{
    If metier(bestioles)=3
      If kill(bestioles)<2;- codé le 24/02
        DisplayTransparentSprite(dessin(bestioles), lax(bestioles)-SpriteWidth(dessin(bestioles))/2,lay(bestioles)-SpriteHeight(dessin(bestioles))+1)
      EndIf
      If dessin(bestioles)<85 Or dessin(bestioles)>100
        dessin(bestioles)=85
      EndIf
      
      For i=1 To 12 ;- mur construit
        For u=-7 To 7
          p(lax(bestioles)-u,lay(bestioles)-i)=3 ;-;;; anciennement 1
        Next
      Next
      
      If stop=1
        If flag0(bestioles)=0
          dessin(bestioles)+1
          If dessin(bestioles)>100
            dessin(bestioles)=85
          EndIf
        EndIf
      EndIf
    EndIf
    
    ;}
    
    ;- metier 4
    ;{
    
    If metier(bestioles)=4
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  A completer (quoi que...)
      ;             If sens(bestioles)=1
      ;               dessin(bestioles)=17
      ;             Else
      ;               dessin(bestioles)=25
      ;             EndIf
      
      DisplayTransparentSprite(dessin(bestioles), lax(bestioles)-sens(bestioles)*5-SpriteWidth(dessin(bestioles))/2,lay(bestioles)-SpriteHeight(dessin(bestioles))-0)
      If stop=1
        grimpe0(bestioles)+1
        grimpe0(bestioles)%4
        If grimpe0(bestioles)=0
          
          ;;;;;;;;;;;
          flag1.b=0
          StartDrawing(SpriteOutput(1001))
          DrawingMode(#PB_2DDrawing_AllChannels)
          For i=1 To 12
            ;p(lax(bestioles)+sens(bestioles)-5*sens(bestioles),lay(bestioles)-23)=1 ; a eliminer
            Plot(lax(bestioles)+sens(bestioles)-i*sens(bestioles),lay(bestioles)-13 ,RGBA(255,0,0,255))
            If p(lax(bestioles)+sens(bestioles)-i*sens(bestioles),lay(bestioles)-13)<>0
              flag1+1  
            EndIf
          Next
          StopDrawing() 
          ;;;;;;;;;;;
          If flag1=0
            lay(bestioles)-1
          Else
            grimpe(bestioles)=0
            metier(bestioles)=0 ; on se cogne et on chute
            sens(bestioles)*-1
            If sens(bestioles)=1
              dessin(bestioles)=101
            Else
              dessin(bestioles)=105
            EndIf
            Goto suite3
          EndIf
          
          If p(lax(bestioles)+sens(bestioles),lay(bestioles)-13)=0
            metier(bestioles)=-4
            If sens(bestioles)=1
              dessin(bestioles)=33
            Else
              dessin(bestioles)=41
            EndIf
            Goto suite3
          EndIf
          
          dessin(bestioles)+1
          If sens(bestioles)=1
            If dessin(bestioles)>=25
              dessin(bestioles)=17
            EndIf
          Else
            If dessin(bestioles)>=33
              dessin(bestioles)=25
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
    
    If metier(bestioles)=-4;- metier -4
      DisplayTransparentSprite(dessin(bestioles), lax(bestioles)-sens(bestioles)*5-SpriteWidth(dessin(bestioles))/2,lay(bestioles)-SpriteHeight(dessin(bestioles))-0)
      If stop=1
        grimpe0(bestioles)+1
        grimpe0(bestioles)%4
        If grimpe0(bestioles)=0
          
          ;;;;;;;;;;;
          If p(lax(bestioles)+sens(bestioles),lay(bestioles)-13)=0
          EndIf
          ;;;;;;;;;;;
          flag1.b=0
          StartDrawing(SpriteOutput(1001))
          DrawingMode(#PB_2DDrawing_AllChannels)
          For i=1 To 12
            Plot(lax(bestioles)+sens(bestioles)-i*sens(bestioles),lay(bestioles)-13 ,RGBA(255,255,0,255))
            If p(lax(bestioles)+sens(bestioles)-i*sens(bestioles),lay(bestioles)-13)<>0
              flag1+1
            EndIf
          Next
          StopDrawing() 
          ;;;;;;;;;;;
          If flag1=0
            lax(bestioles)+sens(bestioles)
            lay(bestioles)-1
            dessin(bestioles)+1
            If dessin(bestioles)=41 Or dessin(bestioles)=48
              metier(bestioles)=1
              ;              parachute(bestioles)=0 ;- zzz
              grimpe(bestioles)=0
              lay(bestioles)-1
              If sens(bestioles)=1
                dessin(bestioles)=Random(5)+2
              Else
                dessin(bestioles)=Random(5)+10
              EndIf
            EndIf
          Else
            grimpe(bestioles)=0
            metier(bestioles)=0 ; on se cogne et on chute
            sens(bestioles)*-1
            If sens(bestioles)=1
              dessin(bestioles)=101
            Else
              dessin(bestioles)=105
            EndIf
            Goto suite3
          EndIf
          ;;;;;;;;;;;
          
        EndIf
      EndIf
      
    EndIf
    
    suite3:
    
    
    ;}
    
    
    ;- metier 5
    ;{
    If metier(bestioles)=5
      If stop=1
        If dessin(bestioles)<149 Or dessin(bestioles)>164
          dessin(bestioles)=149
        EndIf
        
        u=p(lax(bestioles),lay(bestioles)+2+1)
        If u=0 Or u=3 ;->>>>>>>>>>>>>>>>>>>>>>> derniere retouche
          metier(bestioles)=0
          Goto suite4  
        EndIf
        
        If flag_u=0
          ;- trou dans le decors
          StartDrawing(SpriteOutput(1001))
          DrawingMode(#PB_2DDrawing_AllChannels)
          f.f=0
          For u=0 To 8
            o=Cos(f)*15
            For i=-o To o
              
              p(lax(bestioles)+i,lay(bestioles)+u-5)=0
              Plot(lax(bestioles)+i,lay(bestioles)+u-5,RGBA(0,0,0,0))
            Next
            f+0.067
          Next
          StopDrawing()
          lay(bestioles)+1
          ;;;;;;;;;;;;;;;;;;;;;;;;
        EndIf
        If flag0(bestioles)=0
          dessin(bestioles)+1
          If dessin(bestioles)>164
            dessin(bestioles)=149
          EndIf
        EndIf
      EndIf
      DisplayTransparentSprite(dessin(bestioles), lax(bestioles)-SpriteWidth(dessin(bestioles))/2,lay(bestioles)-SpriteHeight(dessin(bestioles))+1)
    EndIf
    suite4:
    ;}
    
    ;;;;;;
    ;;;;;;
    
    ;- metier 7
    ;{
    If metier(bestioles)=7
      If stop=1
        If dessin(bestioles)<165 Or dessin(bestioles)>228
          If sens(bestioles)=1
            dessin(bestioles)=165
          Else
            dessin(bestioles)=197
          EndIf
        EndIf
        
        If flag0(bestioles)=0
          dessin(bestioles)+1
          ;           creuseH0(bestioles)+1
        EndIf
        
        If sens(bestioles)=1 
          If dessin(bestioles)=197
            dessin(bestioles)=165
          EndIf
        Else
          If dessin(bestioles)=229
            dessin(bestioles)=197
          EndIf
        EndIf
        
        
        ;;;;;;;;;;;
        flag1.b=0
        ;           StartDrawing(SpriteOutput(1001))
        ;           DrawingMode(#PB_2DDrawing_AllChannels)
        For i=0 To 16 ;- 0 ou 1 To 12 a 14
                      ;p(lax(bestioles)+sens(bestioles)-5*sens(bestioles),lay(bestioles)-23)=1 ; a eliminer
                      ;Plot(lax(bestioles)+sens(bestioles),lay(bestioles)-i ,RGBA(255,0,0,255))
          u=p(lax(bestioles)+sens(bestioles),lay(bestioles)-i) ;->>>>>>>>>>>>>>>>>> Derniere retouche
          If u=1 Or u<0
            flag1+1  
            Break
          EndIf
        Next
        StopDrawing() 
        ;;;;;;;;;;;
        If flag1=0
          metier(bestioles)=1
          creuseH(bestioles)=0
          ;             creuseH0(bestioles)=0
          Goto suite5
        EndIf
        
        If flag_u=0
          ;- trou dans le decors
          StartDrawing(SpriteOutput(1001))
          DrawingMode(#PB_2DDrawing_AllChannels)
          
          For i=0 To 16 ;- 0 ou 1 To 12 a 16
            Plot(lax(bestioles)+sens(bestioles),lay(bestioles)-i ,RGBA(0,0,0,0))
            p(lax(bestioles)+sens(bestioles),lay(bestioles)-i)=0
          Next
          StopDrawing()
          lax(bestioles)+sens(bestioles)
          ;;;;;;;;;;;;;;;;;;;;;;;;
        EndIf
      EndIf
      DisplayTransparentSprite(dessin(bestioles), lax(bestioles)-SpriteWidth(dessin(bestioles))/2,lay(bestioles)-SpriteHeight(dessin(bestioles))+2)
    EndIf
    suite5:
    ;}
    
    
    ;- metier 6
    ;{
    If metier(bestioles)=6
      If stop=1
        If dessin(bestioles)<229 Or dessin(bestioles)>276
          If sens(bestioles)=1
            dessin(bestioles)=229
          Else
            dessin(bestioles)=253
          EndIf
        EndIf
        
        If flag0(bestioles)=0
          dessin(bestioles)+1
          ;           creuseH0(bestioles)+1
        EndIf
        
        If sens(bestioles)=1 
          If dessin(bestioles)=253
            dessin(bestioles)=229
          EndIf
        Else
          If dessin(bestioles)=277
            dessin(bestioles)=253
          EndIf
        EndIf
        
        
        ; ; ;         Debug p(lax(bestioles)+sens(bestioles),lay(bestioles))
        ; ; ;         Debug p(lax(bestioles),lay(bestioles)+1)
        ; ; ;         Debug p(lax(bestioles),lay(bestioles)+2)
        ; ; ;         
        ; ; ;         End:End
        
        ;;;;;;;;;;;
        flag1.b=0
        ;           StartDrawing(SpriteOutput(1001))
        ;           DrawingMode(#PB_2DDrawing_AllChannels)
        For i=-2 To 20 ;- -2 To 20
                       ;p(lax(bestioles)+sens(bestioles)-5*sens(bestioles),lay(bestioles)-23)=1 ; a eliminer
                       ;            Plot(lax(bestioles)+sens(bestioles),lay(bestioles)-i ,RGBA(255,0,0,255))
          u=p(lax(bestioles)+sens(bestioles),lay(bestioles)-i)
          If u=1 ;->>>>>>>>>>>>>>>>>>>>>>>> derniere retouche
            flag1+1  
            Break
          EndIf
        Next
        ;           For i=0 To 7 ;- 0 ou 1 To x
        ;p(lax(bestioles)+sens(bestioles)-5*sens(bestioles),lay(bestioles)-23)=1 ; a eliminer
        ;            Plot(lax(bestioles)+sens(bestioles),lay(bestioles)+2 ,RGBA(0,255,0,255))
        If p(lax(bestioles)+sens(bestioles),lay(bestioles)+2)=1
          flag1+1  
          ;Break
        EndIf
        ;           Next
        ;           StopDrawing() 
        ;;;;;;;;;;;
        If flag1=0
          metier(bestioles)=1
          ;creuseH(bestioles)=0
          ;             creuseH0(bestioles)=0
          Goto suite6
        EndIf
        
        If flag_u=0
          ;- trou dans le decors
          StartDrawing(SpriteOutput(1001))
          DrawingMode(#PB_2DDrawing_AllChannels)
          
          For i=-1 To 24 ;- -1 To 24
            For u=1 To 8
              Plot(lax(bestioles)+sens(bestioles)*u,lay(bestioles)-i+u-1 ,RGBA(0,0,0,0))
              p(lax(bestioles)+sens(bestioles)*u,lay(bestioles)-i+u-1)=0
            Next  
          Next
          ;           For i=1 To 1;25
          ;             Plot(lax(bestioles)+sens(bestioles)*i,lay(bestioles)+2 ,RGBA(0,0,0,0))
          ;             p(lax(bestioles)+sens(bestioles)*i,lay(bestioles)+2)=0
          ;           Next
          
          StopDrawing()
          lax(bestioles)+sens(bestioles)
          lay(bestioles)+1
          ;;;;;;;;;;;;;;;;;;;;;;;;
        EndIf
      EndIf
      DisplayTransparentSprite(dessin(bestioles), lax(bestioles)-SpriteWidth(dessin(bestioles))/2,lay(bestioles)-SpriteHeight(dessin(bestioles))+1)
    EndIf
    suite6:
    ;}
    
    
    ;- metier 2
    ;{
    If anti_freeze(0)>0
      anti_freeze(0)=0
      StartDrawing(SpriteOutput(1001))
      DrawingMode(#PB_2DDrawing_AllChannels)
      
      For anti_freeze=1 To cmb_de_bestioles
        If anti_freeze(anti_freeze)>0
          If metier(anti_freeze)=2 And kill(anti_freeze)<2
            flag2.b=0
            If stop=1
              If dessin(anti_freeze)<277 Or dessin(anti_freeze)>308
                If sens(anti_freeze)=1
                  dessin(anti_freeze)=277
                Else
                  dessin(anti_freeze)=293
                EndIf
              EndIf
              
              If flag0(anti_freeze)=0
                dessin(anti_freeze)+1
                ;           creuseH0(anti_freeze)+1
              EndIf
              
              If sens(anti_freeze)=1 
                If dessin(anti_freeze)=287
                  flag2=1
                EndIf
                If dessin(anti_freeze)=293;;
                  dessin(anti_freeze)=277
                  escalier(anti_freeze)+1
                  lax(anti_freeze)+6
                  lay(anti_freeze)-2            
                EndIf
              Else
                If dessin(anti_freeze)=303
                  flag2=-1
                EndIf
                If dessin(anti_freeze)=309
                  dessin(anti_freeze)=293
                  escalier(anti_freeze)+1
                  lax(anti_freeze)-6
                  lay(anti_freeze)-2
                EndIf
              EndIf
              
              ;         Debug p(lax(anti_freeze)+sens(anti_freeze),lay(anti_freeze)+1)
              ;         Debug p(lax(anti_freeze)+sens(anti_freeze),lay(anti_freeze)+2)
              ;         Debug p(lax(anti_freeze)+sens(anti_freeze),lay(anti_freeze)+3)
              ;         End:End
              ;;;;;;;;;;;
              flag1.b=0
              If flag2<>0
                ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;           StartDrawing(SpriteOutput(1001))
                ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;           DrawingMode(#PB_2DDrawing_AllChannels)
                For i=-1 To 6
                  For u=0 To 1
                    ;If i>=4
                      p(lax(anti_freeze)+sens(anti_freeze)*i,lay(anti_freeze)-u+1)=-2
                    ;Else
                     ; p(lax(anti_freeze)+sens(anti_freeze)*i,lay(anti_freeze)-u+1)=-2  ;;;;;; 2
                    ;EndIf
                    Plot(lax(anti_freeze)+sens(anti_freeze)*i,lay(anti_freeze)-u+1,RGBA(255,0,255,255))
                  Next
                Next
                ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;           StopDrawing() 
              EndIf
              
              escalier.b=0
              For o=0 To 15;13
                If p(lax(anti_freeze)+1*sens(anti_freeze),lay(anti_freeze)-o)<>0;5
                  escalier=o
                EndIf
              Next
              For o=0 To 2;7
                ;Plot(lax(anti_freeze)+sens(anti_freeze)*o,lay(anti_freeze)-8,RGBA(222,222,222,255))
                If p(lax(anti_freeze)+sens(anti_freeze)*o,lay(anti_freeze)-8)<>0;5
                  escalier=99
                  Break
                EndIf
              Next
              If escalier>4
                sens(anti_freeze)*-1
                lax(anti_freeze)+sens(anti_freeze)*2
                lay(anti_freeze)+1;2
                metier(anti_freeze)=1
                anti_freeze(anti_freeze)=0
                echelle=1
                Goto suite7
              EndIf
;               If escalier(anti_freeze)=4 And kill(anti_freeze)=0
;                 kill(anti_freeze)=1
;               EndIf
              If escalier(anti_freeze)>=24
                escalier(anti_freeze)=0
                metier(anti_freeze)=1
                anti_freeze(anti_freeze)=0
              EndIf
              
              ;;;;;;;;;;;
            EndIf
          EndIf
        EndIf
        suite7:
      Next
      StopDrawing() 
      
      For anti_freeze=1 To cmb_de_bestioles
        If anti_freeze(anti_freeze)>0
          If metier(anti_freeze)=2 And kill(anti_freeze)<2
            DisplayTransparentSprite(dessin(anti_freeze), lax(anti_freeze)-SpriteWidth(dessin(anti_freeze))/2,lay(anti_freeze)-SpriteHeight(dessin(anti_freeze))+2)
          EndIf
        EndIf
      Next  
    EndIf
    
    ;}
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
    
    ;- metier 70 (crash)
    ;{
    
    If metier(bestioles)=70
      If dessin(bestioles)<69 Or dessin(bestioles)>84
        dessin(bestioles)=69
      EndIf
      DisplayTransparentSprite(dessin(bestioles), lax(bestioles)-SpriteWidth(dessin(bestioles))/2,lay(bestioles)-SpriteHeight(dessin(bestioles))+1)
      If stop=1
        
        If flag0(bestioles)=0
          dessin(bestioles)+1
          If dessin(bestioles)>84
            metier(bestioles)=71
          EndIf
        EndIf
      EndIf
    EndIf
    ;}
    
    
    ;- metier 71 >> *Kill* <<
    ;{
    
    If metier(bestioles)=71
      If zzzz=0
        zzzz=1
            StartDrawing(SpriteOutput(1001))
            DrawingMode(#PB_2DDrawing_AllChannels)
        For i=1 To cmb_de_bestioles
          If metier(i)=71
            Circle(lax(i),lay(i),3,RGBA(255,255,255,255))
          EndIf
        Next
        StopDrawing()
    EndIf
    EndIf
;}
    
    
    ;- >> Kill <<   
    ;{    
    If kill(bestioles)=3
      If stop=1
        chrono0(bestioles)+1
        chrono0(bestioles)%3
        If chrono0(bestioles)=0
          chrono(bestioles)+1
        EndIf
      EndIf
      If chrono(bestioles)>3
        DisplayTransparentSprite(803,lax(bestioles)-SpriteWidth(803)/2,lay(bestioles)-SpriteHeight(803),255-(chrono(bestioles)-3)*70)
        ; embrouille ci-dessous
        kill(bestioles)=4
        metier(bestioles)=8
        If chrono(bestioles)>7
          ;kill(bestioles)=0
        EndIf
      Else
        DisplayTransparentSprite(800+chrono(bestioles),lax(bestioles)-SpriteWidth(800+chrono(bestioles))/2,lay(bestioles)-SpriteHeight(800+chrono(bestioles)))
      EndIf
    EndIf
    ;;;
    If kill(bestioles)=2
      If stop=1
        chrono0(bestioles)+1
        chrono0(bestioles)%3
        If chrono0(bestioles)=0
          chrono(bestioles)+1
          If chrono(bestioles)=15
            kill(bestioles)=3
            chrono(bestioles)=0
            DisplayTransparentSprite(800,lax(bestioles)-SpriteWidth(800)/2,lay(bestioles)-SpriteHeight(800)/2-10)
            ;;;;;;;;;;;;;;;;;;;;;;
            ;- trou dans le decors
            StartDrawing(SpriteOutput(1001))
            DrawingMode(#PB_2DDrawing_AllChannels)
            f.f=0
            
            For u=0 To 20
              o=Cos(f)*28
              
              For i=-o To o
                p=Random(Random(14))
                If p(lax(bestioles)+i,lay(bestioles)+u-7+p)=1
                  Plot(lax(bestioles)+i,lay(bestioles)+u-7+p,RGBA(255,0,0,255))
                EndIf
                p=Random(Random(14))
                If p(lax(bestioles)+i,lay(bestioles)-u-7-p)=1 And Random(1)=0
                  Plot(lax(bestioles)+i,lay(bestioles)-u-7-p,RGBA(255,0,0,255))
                EndIf
                
                p(lax(bestioles)+i,lay(bestioles)+u-7)=0
                p(lax(bestioles)+i,lay(bestioles)-u-1-7)=0
                Plot(lax(bestioles)+i,lay(bestioles)+u-7,RGBA(0,0,0,0))
                Plot(lax(bestioles)+i,lay(bestioles)-u-1-7,RGBA(0,0,0,0))
              Next
              f+0.067
            Next
            StopDrawing()
            ;;;;;;;;;;;;;;;;;;;;;;;;
            If metier(bestioles)=3
              
              For i=1 To 12 ;- mur detruit
                For u=-7 To 7
                  p(lax(bestioles)-u,lay(bestioles)-i)=0
                Next
              Next
              
            EndIf
            metier(bestioles)=0
          EndIf
          
        EndIf
      EndIf
      
      DisplayTransparentSprite(133+chrono(bestioles),lax(bestioles)-SpriteWidth(133+chrono(bestioles))/2,lay(bestioles)-SpriteHeight(133+chrono(bestioles)))
      For i=1 To 3
        If p(lax(bestioles),lay(bestioles))=0
          If stop=1
            lay(bestioles)+1
          EndIf
        EndIf
      Next
    EndIf
    ;;
    If kill(bestioles)=1 And chrono(bestioles)<8
      If stop=1
        chrono0(bestioles)+1
        chrono0(bestioles)%10 ;- compte a rebours
        If chrono0(bestioles)=0
          chrono(bestioles)+1
        EndIf
      EndIf
      If chrono(bestioles)<8
        DisplayTransparentSprite(900+chrono(bestioles), lax(bestioles)-SpriteWidth(900+chrono(bestioles))/2,lay(bestioles)-SpriteHeight(900+chrono(bestioles))-36)
      Else
        kill(bestioles)=2
        chrono(bestioles)=0
      EndIf
    EndIf
    ;}
    
    
  Next bestioles
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  DisplayTransparentSprite(curseur, mx-12 ,my-7)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
  FlipBuffers()
  Delay(1)
  
;   chrono+1
;   If chrono>100
;     GrabSprite(2000,0,0,1920,1080)
;     SaveSprite(2000,"c:\ProgramData\PureBasic\Examples\capture.bmp")
;     End
;   EndIf
  
  
  ExamineKeyboard()
  
  If KeyboardPushed(#PB_Key_Space)
    If flag3=0
      flag3=1
      stop*-1
    EndIf
  ElseIf KeyboardReleased(#PB_Key_Space)
    If flag3=1
      flag3=0
    EndIf
  EndIf
  
Until KeyboardPushed(#PB_Key_Escape)

Image

Nostalgie, quand tu nous tiens...

J'attends vos commentaires.

A+

==

PS : se joue a la souris et la pause avec la touche ESPACE

Re: Lemmz

Publié : dim. 15/mars/2026 14:51
par SPH
Je précise : tous les métiers sont programmés. :!:

Pour jouer à Lemmz, n'hésitez pas à mettre en pause (barre espace) pour distribuer les métiers. :idea:

Re: Lemmz

Publié : dim. 15/mars/2026 15:36
par Kwai chang caine
Bonjour mon gars

J'ai vu que y'avait des blemes entre les résolutions et ton programme, je fais pas exception à la règle
IMA => StartDrawing(SpriteOutput(1001))
Faut dire que j'ai un écran de gamer depuis pas longtemps :wink: (Y'a bien que ça en jeux chez moi) :lol:
Merci quand même pour le partage, ça avait l'air pas mal à voir la photo 8)

Re: Lemmz

Publié : dim. 15/mars/2026 15:49
par SPH
Salut petit KCC,

La résolution idéale pour Lemmz, c'est 1920/1080

Si tu as déja DL les datas (le .zip), utilise le nouveau code fournis dans le premier post. Il bride la resolution comme il faut.

Ou alors, attend que je code une vrai version... :twisted:

====

Moi aussi j'ai un ecran de fou. C'est meme une TV LG OLED 55C3 :wink:
Mais je code dans mon lit avec un portable banal

Re: Lemmz

Publié : dim. 15/mars/2026 20:31
par Ar-S
J'attends la suite avec impatiente. Trop cool de retrouver les lemmings :mrgreen:
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru