Vous ne pouvez pas poster de nouveaux sujets dans ce forum Verrouillé
Résultats du concours n°1
Auteur Message
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Mar 23 Mai 2006, 21:23   Citer 

Bonsoir,

Le grand vainqueur de ce premier concours est Ratuss ! Son programme est de très bonne facture et le très faible nombre de participants n'entâme en rien la qualité de ce programme, ni même mes félicitations à son égard.
Nombre de participants : 1 (et oui, le choix du vainqueur fût dur !)

@+ Le Webmaster beer.gif


Voici son programme :

http://www.badongo.com/file/3915067 (en *.82p)


Code
:Lbl D
:1 -> dim L6
:ClrHome
:0 -> E
:Menu("-----BOOM!------","NORMAL",N,"PERSONNALISE",E,"OPTIONS",O,"CREDITS",C,"QUITTER",Q
:Lbl O
:Menu("OPTIONS","VOTRE SCORE",S,"EFFACER SCORE",F,"RETOUR",D
:Lbl F
:Menu("EFFACER SCORE","NON",D,"OUI",T
:Lbl T
:0 -> L6(1
:Lbl S
:Output(4,3,"VOTRE SCORE :
:If .54278 [différent de] fPart L6(1
:1000 -> W
:Output(6,7,W
:Pause
:Goto D
:Lbl C
:Output(4,6,"RATUSS
:Output(6,5,"29/04/06
:Pause
:Goto D
:Lbl E
:1 -> E
:Lbl N
:If .54278=fPart L6(1:Then
:int (L6(1)/100 -> O
:Else
:10 -> O
:End
:If E=1
:Then
:0 -> O
:While O>99 or O<1
:ClrHome
:Disp "NOMBRES DE MINES
:Input "(1-99) : ",O
:int O -> O
:End
:End
:FnOff :AxesOff
:0 -> Xmin
:94 -> Xmax
:0 -> Xscl
:0 -> Ymin
:62 -> Ymax
:0 -> Yscl
:ClrDraw
:For( [THETA] ,1,73,6
:Line( [THETA] ,1, [THETA] ,61
:End
:For( [THETA] ,1,61,6
:Line(1, [THETA] ,73, [THETA]
:End
:Line(69,56,69,60
:Line(70,58,70,59
:Pt-On(71,58
:4 -> A:4 -> B:4 -> M:4 -> N:100O -> W
:1 -> dim L6
:13 -> dim L6
:0 -> Q
:int rand13+2 -> P
:int rand10+1 -> U
:For( [THETA] ,32,42
:Line(8, [THETA] ,66, [THETA] ,0:End
:Text(22,10,"CHARGEMENT : 0
:While Q<O
:For( [THETA] ,P,13
:For(Z,U,10
:int (rand120/O -> I
:If I=0 and ( [THETA]  [différent de] 2 or (Z [différent de] 1 and Z [différent de] 2)) and ( [THETA]  [différent de] 3 or (Z [différent de] 1 and Z [différent de] 2)) and ( [THETA]  [différent de] 12 or (Z [différent de] 9 and Z [différent de] 10)) and ( [THETA]  [différent de] 13 or (Z [différent de] 9 and Z [différent de] 10)) and .1 [différent de] fPart (round(10^(Z-1)*L6( [THETA] ),1:Then
:10^úZ+L6( [THETA]  -> L6( [THETA]
:Pt-Off(6 [THETA] -8,6Z-2
:Q+1 -> Q
:Text(22,54,int (Q/O*100
:If Q=O:Goto 1
:If getKey=45:Goto D
:End
:End
:1 -> U
:End
:2 -> P
:End
:Lbl 1
:For( [THETA] ,32,42
:Line(8, [THETA] ,66, [THETA] ,0:End
:Line(8,37,66,37
:For( [THETA] ,7,61,6
:Line( [THETA] ,32, [THETA] ,42
:End
:Text(7,75,"MINES
:Text(13,76,O
:Text(25,75,"APROX
:Text(31,75,"IMITE
:Text(49,75,"SCORE
:If E=1
:Text(55,76,"----
:
:Lbl 0
:Line(A+1,B,A-1,B
:Line(A,B-1,A,B+1
:If M [différent de] A or N [différent de] B
:Line(M+1,N,M-1,N,0
:0 -> P
:If .1=fPart (round(L6((A+8)/6)*10^((B-4)/6),1
:Then
:Text(37,76,"BOOM!
:Goto P
:End
:If A<70:Then
:If .1=fPart (round(L6((A+14)/6)*10^((B-4)/6),1
:P+1 -> P:End
:If A>4:Then
:If .1=fPart (round(L6((A+2)/6)*10^((B-4)/6),1
:P+1 -> P:End
:If B<58:Then
:If .1=fPart (round(L6((A+8)/6)*10^((B+2)/6),1
:P+1 -> P:End
:If B>4:Then
:If .1=fPart (round(L6((A+8)/6)*10^((B-10)/6),1
:P+1 -> P:End
:Text(37,76,P
:If E=0
:Text(55,76,W
:If A=70 and B=58:Goto G
:0 -> K:While K=0
:getKey -> K:End
:A -> M:B -> N
:If K=24 and A>4:Then
:A-6 -> A
:W-5 -> W
:End
:If K=26 and A<70:Then
:A+6 -> A
:W+5 -> W
:End
:If K=25 and B<58:Then
:B+6 -> B
:W+5 -> W
:End
:If K=34 and B>4:Then
:B-6 -> B
:W-5 -> W
:End
:If K=45
:Menu("QUITTER?","NON",0,"OUI",D
:Goto 0
:Lbl G
:For( [THETA] ,1,3
:Line(68+ [THETA] ,56,68+ [THETA] ,60,0
:End
:For( [THETA] ,1,6
:If A [différent de] 70:Then
:Line(M+1,B,M-1,B,0
:Line(M,B-1,M,B+1,0
:End
:Line(A+1,B,A-1,B
:Line(A,B-1,A,B+1
:If A=70:Then
:For(Z,1,5,.05
:Pt-Off(73,55+int Z
:End
:For(Z,1,500:End
:End
:For(Z,1,250:End
:A -> M:A+6 -> A
:End
:Lbl P
:If E=0
:W+.54278 -> L6(1
:Line(A-2,B-2,A+2,B+2
:Line(A+2,B-2,A-2,B+2
:For( [THETA] ,2,13
:For(Z,1,10
:If .1=fPart (round(L6( [THETA] )*10^(Z-1),1
:Then
:Line(6 [THETA] -6,6Z,6 [THETA] -10,6Z-4
:Line(6 [THETA] -6,6Z-4,6 [THETA] -10,6Z
:End:End:End
:Pause
:Goto D
:Lbl Q
:ClrHome
:ClrDraw
:FnOn
:AxesOn



 Adresse email Haut de page Bas de page 
 
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Verrouillé





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2025 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink