voici un jeu que j'avais codé sur amiga. Je l'ai recréé sur PC :
http://xmas.free.fr/Pousspouss.zip
Code : Tout sélectionner
; PB 5.70LTS x86
;
; Code : SPH
; Codé le 1 mai 2020
; (c)2020
;
; Mon score : 1419 secondes pour tout finir =)
If InitSprite() = 0
MessageRequester("Erreur", "Impossible d'ouvrir l'écran & l'environnement nécessaire aux sprites !", 0)
End
EndIf
If InitMouse() = 0
MessageRequester("Erreur", "Impossible d'activer la souris !", 0)
End
EndIf
If InitKeyboard() = 0
MessageRequester("Erreur", "Impossible d'activer le clavier !", 0)
End
EndIf
LoadFont(1000, "Arial", 18)
LoadFont(1001, "Arial", 30)
OpenWindow(0, 0, 0, 1024, 768, "PoussPouss", #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 1024, 768)
LoadSprite(0,"bmp/pointeur.bmp")
LoadSprite(1,"bmp/pilone.bmp")
LoadSprite(2,"bmp/mur.bmp")
LoadSprite(3,"bmp/trou.bmp")
LoadSprite(4,"bmp/vide.bmp")
For i=100 To 208
LoadSprite(i,"bmp/"+Str(i)+".bmp")
Next
;;;
Dim n(108)
For i=0 To 108
n(i)=i+100
Next
For i=1 To 2000
Swap n(Random(108)),n(Random(108))
Next
x=0
nb=0
Dim p(15,11)
For u=0 To 11
For i=0 To 15
p(i,u)=n(x) : nb+1
If nb>8
nb=0
x+1
EndIf
Next
Next
For i=4 To 12
p(i,11)=2
Next
p(13,11)=1
p(14,11)=1
p(15,11)=3
;;;
For i=1 To 2000
Swap p(Random(15),Random(11)),p(Random(15),Random(11))
Next
Dim x(1)
Dim y(1)
ClearScreen(RGB(0,15,26))
DisplaySprite(1,350,390)
DisplaySprite(2,350,470)
StartDrawing(ScreenOutput())
DrawingFont(FontID(1001))
BackColor(RGB(0,15,26))
DrawText(400,150,"PoussPouss", RGB(255,0,0))
DrawText(100,300,"Alignez entre les pylônes neuf items identiques", RGB(255,255,255))
DrawText(450,403,"Un pylône", RGB(255,255,255))
DrawText(450,483,"Un mur inamovible", RGB(255,255,255))
DrawingFont(FontID(1000))
BackColor(RGB(0,15,26))
DrawText(440,640,"Code : SPH", RGB(60,60,60))
DrawText(406,672,"HexaScrabble.com", RGB(60,60,60))
StopDrawing()
FlipBuffers()
Repeat
Delay(1)
ExamineMouse() ; Etat de la souris
Until MouseButton(1)=1
;*****************************************************************************************************
;*****************************************************************************************************
;*****************************************************************************************************
time=ElapsedMilliseconds()
;*****************************************************************************************************
;*****************************************************************************************************
;*****************************************************************************************************
Repeat
While WindowEvent():Wend ;<<-----------------------------
;;;
ExamineMouse() ; Etat de la souris
xm = MouseX() ; Position en x de la souris
ym = MouseY() ; Position en y de la souris
;;;
xx=xm/64
yy=ym/64
If MouseButton(1)=1 And p(xx,yy)<>2
If xx>0
If p(xx-1,yy)=3
Swap p(xx,yy),p(xx-1,yy)
EndIf
EndIf
If xx<15
If p(xx+1,yy)=3
Swap p(xx,yy),p(xx+1,yy)
EndIf
EndIf
If yy>0
If p(xx,yy-1)=3
Swap p(xx,yy),p(xx,yy-1)
EndIf
EndIf
If yy<11
If p(xx,yy+1)=3
Swap p(xx,yy),p(xx,yy+1)
EndIf
EndIf
nb=0
For u=0 To 11
For i=0 To 15
If p(i,u)=1
x(nb)=i
y(nb)=u
nb+1
EndIf
Next
Next
If (Abs(x(0)-x(1))=10 And Abs(y(0)-y(1))=0)
If x(0)>x(1)
Swap x(0),x(1)
EndIf
nb=0
kel=p(x(0)+1,y(0))
For i=x(0)+1 To x(1)-1
If p(i,y(0))=kel
nb+1
EndIf
;;;
Next
If nb=9 And kel<>4
For i=x(0)+1 To x(1)-1
p(i,y(0))=4
Next
total+1
If total=20
Goto fin
EndIf
EndIf
EndIf
If Abs(y(0)-y(1))=10 And Abs(x(0)-x(1))=0
If y(0)>y(1)
Swap y(0),y(1)
EndIf
nb=0
kel=p(x(0),y(0)+1)
For i=y(0)+1 To y(1)-1
If p(x(0),i)=kel
nb+1
EndIf
;;;
Next
If nb=9 And kel<>4
For i=y(0)+1 To y(1)-1
p(x(0),i)=4
Next
total+1
If total=20
Goto fin
EndIf
EndIf
EndIf
EndIf
For u=0 To 11
For i=0 To 15
DisplaySprite(p(i,u),i*64,u*64)
Next
Next
DisplayTransparentSprite(0,xm,ym)
FlipBuffers()
Delay(1)
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
End
;#############
;#############
;#############
;#############
;#############
fin:
ClearScreen(RGB(0,15,26))
StartDrawing(ScreenOutput())
DrawingFont(FontID(1001))
BackColor(RGB(0,15,26))
DrawText(400,200,"Félicitations", RGB(255,0,0))
DrawText(300,400,"Tu as mis "+Str((ElapsedMilliseconds()-time)/1000)+" secondes", RGB(255,255,255))
DrawText(370,448,"pour finir le jeu...", RGB(255,255,255))
StopDrawing()
FlipBuffers()
Repeat
While WindowEvent():Wend ;<<-----------------------------
Delay(1)
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
End
) enfin bref...un rond
Pas de score ni de message ???