Code
:Clrdraw
:Clrhome
:94->Xmax:0->Xmin
:62->Ymax:0->Ymin
:3->L
:47->A:0->B
:prgmMINEXI
:Clrdraw
:Lbl U
:Menu(">>>>>>MINEX<<<<<","JOUER",H,"AIDE",J,"QUITTER",R)
:Lbl J
:Clrdraw
:Text(1,1,"BOUGER: HAUT,GAUCHE
:Text(8,1,"OU DROITE."
:Text(16,1,"ATTENTION ! ! !
:Text(24,1,"RECULER EST IMPOSSIBLE...
:Text(32,1,"1 MINE = 1 VIE PERDUE
:Text(40,1,"M'ECRIRE:
:Text(48,1,"SANZOSAN(9 espace)HOTMAIL.FR
:Text(56,1,"MINEX BY J.COTNYS
:Line(38,12,40,12
:Line(37,11,37,10
:Line(38,9,40,9
:Line(40,9,40,12
:Pt-On(41,9
:Line(42,10,42,12
:Pt-On(41,13
:Line(40,14,37,14
:Pt-On(36,13
:Line(35,12,35,9
:Pt-On(36,8
:Line(37,7,40,7
:Pause
:Clrdraw
:Goto U
:Lbl R
:Clrdraw
:Clrhome
:Stop
:Lbl H
:Clrdraw
:0->B:3->L
:Pt-On(A,B)
:For(N,1,61,1/5
:int 58rand+16->V
:Pt-Off(V,N)
:End
:Text(1,1," SORTIE ->"
:Text(1,64,"<- SORTIE"
:Text(10,1," VIES: ",L
:For(I,1,1500)
:getkey->T
:If T=25 or T=24 or T=26
:Then
:Pt-Off(A,B)
:End
:If T=25:B+1->B
:If T=26:A+1->A
:If T=24:A-1->A
:If T=105:Pause
:Pt-On(A,B)
:If A=int 58rand+16
:Then
:Pt-On(A-1,B+1
:Pt-On(A+1,B+1
:Pt-On(A-1,B-1
:Pt-On(A+1,B-1
:For(X,1,20
:Text(30,30,"EXPLOSE !"
:End
:Clrdraw
:L-1->L
:If L<1:Goto S
:47->A:0->B
:Goto H
:End
:If B(supérieur ou égal:2nd Math 4)61
:Then
:For(X,1,25)
:Text(40,30,"BIEN JOUE ! !"
:End
:Goto W
:End
:Lbl S
:Il L<1:Then
:Pause
:For(X,1,20
:Text(40,30,"T'ES MORT !"
:End
:Lbl W
:Menu("Fin","REJOUER",H,"QUITTER",R
:End
:End
Code
:Clrdraw
:Clrhome
:94->Xmax:0->Xmin
:62->Ymax:0->Ymin
:1/3->F
:Text(15,34," M I N E X"
:For(M,34,38,F
:Pt-On(M,40)
:end
:For(M,34,38,F
:Pt-On(M+7,40)
:end
:For(M,34,38,F
:Pt-On(M+14,40)
:end
:For(M,34,38,F
:Pt-On(M+21,40)
:end
:For(M,41,47,F
:Pt-On(61,M)
:end
:For(M,38,34,-F
:Pt-On(M+21,48
:Pt-On(M+14,48)
:Pt-On(M+7,48
:Pt-On(M,48
:end
:For(M,47,41,-F
:Pt-On(32,M)
:End
:For(M,1,39
:Text(30,M," V "
:Text(30,94-(M+10),"1.0"
:End
:For(X,1,10
:Text(50,22"COPYRIGHT 2006"
:End