PureBasic

Code : Tout sélectionner

select 
  case trucmuche
endsele

Code : Tout sélectionner

 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;         
Case 1
  If poly_x2(0)>0
    For sph_ii=0 To 32
      For u=-sph_ii To sph_ii
        For i=-sph_ii To sph_ii
          For sph_uu=1 To pointx(0)
            If pointx(sph_uu)=Resx+i And pointy(sph_uu)=Resy+u
              Beep_(1000,100)
              If move=0
                move=1
                move_x=Resx+i
                move_y=Resy+u
                Goto fin2
              EndIf
              If move=1
                move_x2=Resx+i 
                move_y2=Resy+u
                Goto fin46
              EndIf
            EndIf
          Next
        Next
      Next
    Next
  Else
    move=0
  EndIf
  ;;;;
  fin46:
  nb2=0
  ii=0
  While poly_y2(nb2)>0
    ii=poly_y2(nb2)
    For i=1 To poly_y2(nb2)-3  ;CORRIGE ;-ERROR?
      If poly_x2(nb2+2+i)=move_x And poly_y2(nb2+2+i)=move_y
        poly_x2(nb2+2+i)=move_x2
        poly_y2(nb2+2+i)=move_y2
        changement=1
        Beep_(1000,100)
      EndIf
    Next
    nb2+ii
  Wend
  move=0
  fin2:
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;         
Case 2
  save=1
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;         
Case 3
  polygon_on+1
  If polygon_on>=poly_x2(0)
    polygon_on=0
  EndIf
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;         
EndSelect

Code : Tout sélectionner

                                ; Goto fin46 <- Beuark! GOTO !!!
                                ; -> Break [Level]
                                Break 6

Code : Tout sélectionner

Case 1
    If poly_x2(0)>0
        For sph_ii=0 To 32
        [...]
        

Code : Tout sélectionner

Case 1
    If poly_x2(0)>0
        WhatToDo()
    EndIf