Nos cadeaux de Noël

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Je propose que pour Noël, chacun d'entre nous publie ci-dessous
un programme (en langage panoramic, bien sûr) joli ou utile ou
ludique, qu'il ait fabriqué en cadeau pour les autres participants
de ce forum (et bien sûr aussi pour tous les visiteurs qui ne le
méritent pas moins et ne manqueront pas d'adhérer d'autant
plus à un forum aussi sympa).
(si possible, évitons les programmes dont l'exécution commence par :
Erreur à la ligne xx)
Je ne vous en donne pas un, comme exemple, aujourd'hui,
parce que c'est trop tôt.
Mais je le dis maintenant pour que chacun ait le temps
de préparer la surprise qu'il va faire aux autres.
Qu'est-ce que vous pensez de cette idée... ?
santa

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Surtout, ne répondez pas tous à la fois !
Bon, allez, je n'ai pas dit qu'il fallait que ce soit
un super cadeau, LE cadeau du siècle...
Ni que chacun devait dévoiler ses programmes
les plus personnels (comme le petit dernier
que vous avez inventé et qui vous permet
de gagner au loto chaque semaine...)
Non, juste un petit programme sympa suffira !
rabbit

Invité

Moi c'est déjà décider ça fais 3 semaines mais je nais pas encore composer mon histoire en prints.

Invité

Je suis content, je crois que j'ai un cadeaux pour Noël qui va vous plaire.
Mais chut!! c'est la surprise

Invité

Je suis le premier à donné mon cadeau on dirait !

C'est une petite histoire comme j'avais écrit 2 ou 3 post avant.
Mais si vous voulez un utilitaire aller plus bas j'en donne un.

Mon Histoire :

Code:: ' Histoire Qu'est-ce que Noël ? +
caption 0,"Histoire - Qu'est-ce que Noël ?":height 0,630

picture 1:width 1,592:height 1,594
font_bold 1:font_size 1,15
print_target_is 1:print_locate 50,30
print "Qu'est ce que Noël ?"
print_locate 30,80:font_name 1,"Times New Roman":font_size 1,10:font_bold_off 1

' Partie 1 -------------------------------------

print "Il était une fois, le 25 décembre en l'an 34 avant Jésus C. Un petit monsieur qui s'appelait Noël.":print_x_locate 30
print "Il habitait à Jérusalem. Noël avait 36 ans. C'est-à-dire qu'il est né 3 ans avant que Jésus soit né.":print_x_locate 30
print "Il vivait dans un petit village avec 360 personnes. Noël voulait inventer une fête pour célébrer la ":print_x_locate 30
print "naissace de Jésus.":print_x_locate 30

' Partie 2 -------------------------------------

print "":print_x_locate 30:' ligne de vide
print "La plupart des personnes dans le village étaient d'accord pour inventer une nouvelle fête. Trois"::print_x_locate 30
print "personnes n'étaient pas de cet avis. Dans sa maison, il chercha...":print_x_locate 30
print "Il chercha...":print_x_locate 30
print "Il regarda dans des livres. Le dernier ou le 256 ème qu'il avait regardé s'appelait « Les Fêtes ».":print_x_locate 30
print "Comme vous le savez sûrement, les livres ne resemblait pas à aujourd'hui. Il resemblait à de vieux":print_x_locate 30
print "grimoires. À la page 543 la partie « Des Nom de Fêtes à Inventer » il pensa qu'il alla trouver. Il":print_x_locate 30
print "tourna quelques page et trouva ce nom : « Détard ».":print_x_locate 30

' Partie 3 -------------------------------------

print "":print_x_locate 30:' ligne de vide
print "Mais il n'était pas sûr de lui. Alors il alla chercher les villageois. Il n'y avait pas tout le monde.":print_x_locate 30
print "Beaucoup était occupé à cuisiner, à bricoler, à construire, à prier, etc. Enfin les villageois arrivèrent.":print_x_locate 30
print "On entendit un long moment de silence. Après ça, Noël annonça la nouvelle. Il dit : « J'ai décider":print_x_locate 30
print "d'appeler la fête que je veux créer Détard ». Tout le monde réfléchit... Il n'était pas la plupart satisfait.":print_x_locate 30
print "Il dirent : « Non ! ».":print_x_locate 30
print "Lui aussi se dit que Détard ne pouvait pas être choisi pour une fête de ce genre":print_x_locate 30
print "":print_x_locate 30
print "Il comprenait...":print_x_locate 30
print "":print_x_locate 30:' ligne de vide

' Patie 4 --------------------------------------

print "Alors, il lui vient d'autres idées. Ses idées étaient les suivantes : Joun, Pédé, Tripla, Ancou et Eweux.":print_x_locate 30
print "Mais les villageois n'aimaient pas les noms. Il chercha...":print_x_locate 30
print "Et il chercha...":print_x_locate 30
print "":print_x_locate 30
print "Et puis il trouva ! Les villageois étaient bien satisfait de ce nom : « NOËL ». Mias Noël n'avait toujours":print_x_locate 30
print "pas expliqué aux villageois ce qu'était cette fête ???":print_x_locate 30
print "Il leur expliqua...":print_x_locate 30
print "":print_x_locate 30
print "Cette fête est une occasion de célébrer la naissance de Jésus ! Et même j'ai décider de créer une fête pour":print_x_locate 30
print "célébrer la mort de Jésus. Elle s'appelera Pâques.":print_x_locate 30
print "":print_x_locate 30
print "Et ils fétèrent Noël le 25 décembre !":print_x_locate 30
print "":print_x_locate 30
print "Depuis ce jour tout le monde fête Noël le 25 décembre"

Et voici mon utilitaire :
(Vous ferai attention aux touches de raccourcis)

Code:: label quitter,menushide,about,close,newimage
label langue1,langue2,save,OK,version
label suit,plein,open,saveas,image,ok2

dim menus,is_screen,n,a$,is_image
dim NomFichier$,i,j,NomPath$,Nom$
dim is_close
menus=0
is_screen=0
n=13
is_image=0
is_close=0
a$=chr$(10)+chr$(13)

left 0,250
top 0,150
width 0,420
height 0,270
caption 0,"ImagePlayer 1.0"
on_key_up 0,suit

alpha 38:hide 38
left 38,70
top 38,30
font_size 38,30
font_name 38,"Times New Roman"
caption 38,"ImagePlayer 1.0"

picture 1
full_space 1
color 1,0,0,0
stretch_on 1
hint 1,"Il n'y a pas d'image placé"
cursor_cross 1

main_menu 2
sub_menu 3:parent 3,2:caption 3,"Fichier"
sub_menu 4:parent 4,2:caption 4,"Edition"
sub_menu 5:parent 5,2:caption 5,"Affichage"
sub_menu 6:parent 6,2:caption 6,"?"

sub_menu 7:parent 7,3:caption 7,"Nouveau N":on_click 7,newimage
sub_menu 8:parent 8,3:caption 8,"Ouvrir... O":on_click 8,open
sub_menu 9:parent 9,3:caption 9,"Enregistrer S":on_click 9,saveas
sub_menu 10:parent 10,3:caption 10,"Enregistrer sous...":on_click 10,saveas
sub_menu 11:parent 11,3:caption 11,"Fermer F12":on_click 11,close
sub_menu 12:parent 12,3:caption 12,"Ouvert Récemment"
sub_menu 13:parent 13,12:caption 13,"(vide)":inactive 13
sub_menu 14:parent 14,12:caption 14,"(vide)":inactive 14
sub_menu 15:parent 15,12:caption 15,"(vide)":inactive 15
sub_menu 16:parent 16,12:caption 16,"(vide)":inactive 16
sub_menu 17:parent 17,3:caption 17,"Imprimer... P"
sub_menu 18:parent 18,3:caption 18,"Quitter Alt+F4":on_click 18,quitter

sub_menu 19:parent 19,4:caption 19,"Couper Ctrl+X"
sub_menu 20:parent 20,4:caption 20,"Copier Ctrl+C"
sub_menu 21:parent 21,4:caption 21,"Coller Ctrl+V"

sub_menu 22:parent 22,5:caption 22,"Barre d'état"
sub_menu 23:parent 23,5:caption 23,"Barre de menus* B":on_click 23,menushide
sub_menu 24:parent 24,5:caption 24,"Image* M":on_click 24,image
sub_menu 25:parent 25,5:caption 25,"Plein Écran E":on_click 25,plein
sub_menu 26:parent 26,5:caption 26,"Afficher l'image... F"
sub_menu 32:parent 32,5:caption 32,"Langue"
sub_menu 30:parent 30,32:caption 30,"Barre de Menu en Français":on_click 30,langue2
sub_menu 31:parent 31,32:caption 31,"English Menu Bar":on_click 31,langue1

sub_menu 27:parent 27,6:caption 27,"Aide... F1"
sub_menu 28:parent 28,6:caption 28,"A Propos...":on_click 28,about
sub_menu 39:parent 39,6:caption 39,"Version...":on_click 39,version

' invisible ------------------------------------------------------------

form 35
hide 35
left 35,300
top 35,200
height 35,150
width 35,250
caption 35,"A Propos..."
command_target_is 35

alpha 36
left 36,10
top 36,10
caption 36,"Ce logiciel ne comportent pas d'installation."+a$+"Cela veut dire qu'il est completement portable/"+a$+"et sans DLL et fichier nécessaires."+a$+a$+"Auteur : Nicolas Maltais"+a$+a$+"Copyright décembre 2009"

button 37
left 37,150
width 37,80
top 37,60
height 37,30
caption 37,"OK"
on_click 37,OK

' ----------------------------------------------------------------------

form 40
hide 40
left 40,300
top 40,200
height 40,150
width 40,250
caption 40,"Version..."
command_target_is 40

alpha 41
left 41,10
top 41,10
caption 41,"Cette version est une version testé."+a$+"C'est à dire une version sans bugs."+a$+a$+" Version(s) Disponible(s) :"+a$+a$+" ImagePlayer 1.0"
font_color 41,40,0,100

button 42
left 42,150
width 42,80
top 42,60
height 42,30
caption 42,"OK"
on_click 42,ok2

end

' touches de raccourcis ------------------------------------------------

suit:
if key_up_code=66 then goto menushide
if key_up_code=69 then goto plein
if key_up_code=79 then goto open
if key_up_code=83 then goto saveas
if key_up_code=77 then goto image
if key_up_code=123 then goto close
return

' Autres ---------------------------------------------------------------

langue1:
caption 3,"File":caption 4,"Edit":caption 5,"View"
caption 27,"Help... F1":caption 28,"About..."
caption 22,"Status Bar":caption 23,"Menu bar* B"
caption 25,"Full Screen E"
caption 26,"View image... F":caption 32,"Language"
caption 19,"Cut Ctrl+X":caption 20,"Copy Ctrl+C"
caption 21,"Paste Ctrl+V"
caption 7,"New N":caption 8,"Open... O"
caption 9,"Save S":caption 10,"Save as..."
caption 11,"Close F12":caption 12,"Recently opened"
caption 17,"Print... P":caption 18,"Quit Alt+F4"
if n=13 then caption 13,"(empty)":caption 14,"(empty)":caption 15,"(empty)":caption 16,"(empty)"
if n=14 then caption 14,"(empty)":caption 15,"(empty)":caption 16,"(empty)"
if n=15 then caption 16,"(empty)"
return

langue2:
caption 3,"Fichier":caption 4,"Edition":caption 5,"Affichage"
caption 7,"Nouveau N":caption 8,"Ouvrir... O"
caption 9,"Enregistrer S":caption 10,"Enregistrer sous..."
caption 11,"Fermer F12":caption 12,"Ouvert Récemment"
caption 17,"Imprimer... P":caption 18,"Quitter Alt+F4"
caption 19,"Couper Ctrl+X":caption 20,"Copier Ctrl+C"
caption 21,"Coller Ctrl+V":caption 22,"Barre d'état"
caption 23,"Barre de menus* B":caption 25,"Plein Écran E"
caption 26,"Afficher l'image... F":caption 32,"Langue"
caption 27,"Aide... F1":caption 28,"A Propos..."
if n=13 then caption 13,"(vide)":caption 14,"(vide)":caption 15,"(vide)":caption 16,"(vide)"
if n=14 then caption 14,"(vide)":caption 15,"(vide)":caption 16,"(vide)"
if n=15 then caption 16,"(vide)"
return

menushide:
if (menus=0)
hide 3:hide 4:hide 5:hide 6
menus=1
else
show 3:show 4:show 5:show 6
menus=0
end_if
return

plein:
if (is_screen=0)
stretch_off 1
color 0,0,0,0
is_screen=1
else
stretch_on 1
is_screen=0
end_if
return

image:
if (is_image=0)
hide 1:inactive 25:color 0,233,232,218
is_image=1
else
show 1:active 25
is_image=0
end_if
return

close:
if (is_close=0)
show 38:hide 1
is_close=1
else
hide 38:show 1
is_close=0
end_if
return

newimage:
color 1,0,0,0
caption 0,"ImagePlayer 1.0"
return

' Dialogues --------------------------------------------------------------------------------------------------------------

open:
open_dialog 33
filter 33,"BMP/BITMAP Images BMP|*.bmp|JPG/JPEG Images JPG|ICO Icones Windows"
NomFichier$=file_name$(33)
delete 33
j=len(NomFichier$)
NomPath$=""
Nom$=""
for i=j to 1 step -1
if (mid$(NomFichier$,i,1)="\")
NomPath$=mid$(NomFichier$,1,i)
if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
caption 0,"ImagePlayer 1.0 - "+Nom$
hint 1," ImagePlayer - Informations :"+a$+a$+"Nom de l'image : "+Nom$+a$+"Emplacement de l'image : "+NomPath$+a$+"Au complet : "+NomFichier$+a$
exit_for
end_if
next i
if (file_exists(NomFichier$)=1)
file_load 1,NomFichier$
on_click 9,save
if key_up_code=83 then goto save
end_if
if n=16 then n=13
active n:caption n,Nomfichier$:n=n+1
return

saveas:
save_dialog 34
filter 34,"Tous les fichiers|*.*|BMP/BITMAP Images BMP|*.bmp|JPG/JPEG Images JPG|ICO Icones Windows"
NomFichier$=file_name$(34)
delete 34
file_save 1,NomFichier$
on_click 9,save
if key_up_code=83 then goto save
return

save:
file_save 1,NomFichier$
return

' Aide -------------------------------------------------------------------------------------------------------------------

about:
show 35
return

version:
show 40
return

ok2:
hide 40
return

OK:
hide 35
return

' Fin Section ------------------------------------------------------------------------------------------------------------

quitter:
terminate

Nombre de messages : 2747 Date d'inscription : 13/09/2009

C'est très joli, Nicolas, bravo ! cheers

Mais au fait, les cadeaux de Noël,
c'est pas le 24 décembre au Canada ?
Mais peu importe, après tout
comme dit le proverbe :
Vaut mieux tôt que jamais.
Laughing

PS : et puis les pères Noël sont tellement surbookés, de nos jours,
qu'ils ne peuvent plus faire tout le travail le même jour !

Invité

C'est le 24 la veille de Noël et c'est le 25 Noël.
Mais les cadeaux en effet c'est le 24 au soir.

Invité

Moi mon cadeaux est fait, mais le plus important dans Noël, c'est l'attente. Aussi il faudra bien attendre le 24 décembre pour que je dis-je au Père Noël de Passer. Avant l'heure, c'est pas l'heure, après on verra...
@+

Invité

Mais moi je suis partie le 24 ou le 25 alors je l'ai donné tout de suite.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Je vous offre un petit cadeau de Noël tout simple,
mais que vous pourrez placer à côté du sapin
(si vous avez un portable ou une table à roulette)
pendant toute la durée du réveillon. Ouaih !
Joyeuses fêtes !!!!!!!!!!!!!!!!!!!!

Code:: rem ' Joyeux-Noël
dim a$ , i , j , k , y
a$="JE VOUS SOUHAITE A TOUS UN JOYEUX NOËL" : y=20
label quit , light , rep
caption 0,"Cliquez dans la fenêtre noire pour arrêter"
width 0,screen_x-20 : color 0,0,0,0 : on_click 0,quit
for i=1 to len(a$)
if mid$(a$,i,1)=" "
y=y+int(screen_x/len(a$))
else
j=j+1 : y=y+int((screen_x-120)/len(a$))
alpha j : top j,80 : left j,y
caption j,mid$(a$,i,1)
font_bold j : font_size j,22
end_if
next i
rep:
for k=1 to 20000
gosub light
next k
goto rep
end
light:
for i=1 to j
font_color i,int(rnd(150))+101,int(rnd(150))+101,int(rnd(150))+101
next i
if k/10=int(k/10)
alpha 80 : left 80,int(rnd(screen_x-100)) : top 80,int(rnd(380)) : height 80,60
color 80,int(rnd(150))+101,int(rnd(150))+101,int(rnd(150))+101
alpha 81 : left 81,int(rnd(screen_x-100)) : top 81,int(rnd(380)) : height 81,40
color 81,int(rnd(150))+101,int(rnd(150))+101,int(rnd(150))+101 : width 81,40
alpha 82 : left 82,int(rnd(screen_x-100)) : top 82,int(rnd(380)) : height 82,20
color 82,int(rnd(150))+101,int(rnd(150))+101,int(rnd(150))+101 : width 82,20
wait 1
delete 80 : delete 81 : delete 82
end_if
return
quit:
terminate

Invité

Super JJN4
Moi aussi je souhaite un joyeux Noël !

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Ouah ! merci jj, ça scintille de toutes parts !

Joyeux Noël également à toi.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Et comme ce n'était qu'une présentation,
je vous offre un cadeau plus conséquent :
un jeu qui occupera vos longues soirées d'hiver.
Ah, je vous préviens, comme c'est un jeu d'argent,
si vous gagnez, à la fin, votre ordinateur peut vous sortir
les billets de banque que vous avez gagnés par la fente du lecteur de disquettes,
ah oui, mais pour ça, il faut d'abord trouver le mot de passe...
Bon Noël !

Code:: rem ' Poker Pyrénéen

dim a$ , b$ , c$ , y$ , z$ , c , h , i , j , k , m , p(5) , q , t, tt, z
dim s0$, s1$ , s2$ , s3$ , s4$ , s5$ , r(10) , s(4) , u$(8)
for i=1 to 5 : p(i)=40 : next i
a$=string$(34," ")+chr$(13)
a$=a$+" "+chr$(218)+string$(30,chr$(194))+chr$(191)+" "+chr$(13)
for i=1 to 33
a$=a$+" "+chr$(195)+string$(30,chr$(197))+chr$(180)+" "+chr$(13)
next i
a$=a$+" "+chr$(192)+string$(30,chr$(193))+chr$(217)+" "+chr$(13)
a$=a$+string$(34," ") : z=100000
for i=1 to 5
c$=c$+" "+chr$(13)
next i
z$="Le POKER PYRÉNÉEN se joue sans figures"+chr$(13)
z$=z$+"Il se joue également en aveugle,"+chr$(13)
z$=z$+"c'est à dire qu'on ne sait pas"+chr$(13)
z$=z$+"combien on a d'adversaires"+chr$(13)
z$=z$+"ni ce qu'ils jouent"+chr$(13)
z$=z$+"BONNE CHANCE !"
y$="LES HUIT COMBINAISONS POSSIBLES PAR ORDRE CROISSANT :"+chr$(13)
y$=y$+"- UNE PAIRE : (par ex) deux 7 de couleur différente"+chr$(13)
y$=y$+"- DEUX PAIRES : (par ex) deux 4 et deux 9 quelle que soit la couleur"+chr$(13)
y$=y$+"- QUINTE : (par ex) 4, 5, 6, 7 et 8 de couleur quelconque"+chr$(13)
y$=y$+"- BRELAN : (par ex) trois As de couleur différente"+chr$(13)
y$=y$+"- FULL : Brelan + 1 Paire (par ex) 2, 2, 2, 6 et 6"+chr$(13)
y$=y$+"- COULEUR : (par ex) 5 coeurs de n'importe quelle valeur"+chr$(13)
y$=y$+"- CARRÉ : 4 cartes même hauteur (par ex) 3, 3, 3 et 3"+chr$(13)
y$=y$+"- QUINTE FLUSH : 5 cartes qui se suivent dans la même couleur"+chr$(13)
y$=y$+"L'ORDRE DE VALEUR DES CARTES EST CELUI-CI :"+chr$(13)
y$=y$+" Le 1 (As) est la valeur la plus faible"+chr$(13)
y$=y$+" Le 10 est la valeur la plus forte" : u$(0)=" RIEN "
u$(1)=" PAIRE " : u$(2)=" 2 PAIRES " : u$(3)=" QUINTE " : u$(4)=" BRELAN "
u$(5)=" FULL " : u$(6)=" COULEUR " : u$(7)=" CARRÉ " : u$(8)=" QUINTE FLUSH "
label calc
label face , pile , choi , voir , mise , cont , fini , joue , quit , pass , aide

width 0,1000 : height 0,700 : color 0,0,160,0 : caption 0,"Poker"

alpha 1
left 1,20 : top 1,606
font_bold 1 : font_size 1,24 : font_color 1,255,0,0 : color 1,255,255,0
caption 1," P O K E R P Y R É N É E N "

alpha 2
left 2,270 : top 2,20 : width 2,215 : height 2,295
font_name 2,"Terminal" : font_color 2,255,0,0 : color 2,255,255,255
caption 2,a$
on_click 2,pile

alpha 3
left 3,270 : top 3,20 : width 3,215 : height 3,295
font_name 3,"Symbol" : font_size 3,30 : color 3,255,255,255
caption 3,b$
hide 3

alpha 4
left 4,510 : top 4,20 : width 4,215 : height 4,295
font_name 4,"Terminal" : font_color 4,255,0,0 : color 4,255,255,255
caption 4,a$
on_click 4,pile

alpha 5
left 5,510 : top 5,20 : width 5,215 : height 5,295
font_name 5,"Symbol" : font_size 5,30 : color 5,255,255,255
caption 5,b$
hide 5

alpha 6
left 6,750 : top 6,20 : width 6,215 : height 6,295
font_name 6,"Terminal" : font_color 6,255,0,0 : color 6,255,255,255
caption 6,a$
on_click 6,pile

alpha 7
left 7,750 : top 7,20 : width 7,215 : height 7,295
font_name 7,"Symbol" : font_size 7,30 : color 7,255,255,255
caption 7,b$
hide 7

alpha 8
left 8,510 : top 8,340 : width 8,215 : height 8,295
font_name 8,"Terminal" : font_color 8,255,0,0 : color 8,255,255,255
caption 8,a$
on_click 8,pile
hide 8

alpha 9
left 9,510 : top 9,340 : width 9,215 : height 9,295
font_name 9,"Symbol" : font_size 9,30 : color 9,255,255,255
caption 9,b$
hide 9

alpha 10
left 10,750 : top 10,340 : width 10,215 : height 10,295
font_name 10,"Terminal" : font_color 10,255,0,0 : color 10,255,255,255
caption 10,a$
on_click 10,pile
hide 10

alpha 11
left 11,750 : top 11,340 : width 11,215 : height 11,295
font_name 11,"Symbol" : font_size 11,30 : color 11,255,255,255
caption 11,b$
hide 11

alpha 12
left 12,90 : top 12,15
font_bold 12 : font_size 12,10 : font_color 12,255,255,0
caption 12,"Cliquez sur les cartes"+chr$(13)+" pour les retourner"

button 13
left 13,55 : top 13,70 : width 13,180
caption 13,"A la fin, appuyer ici pour continuer"
on_click 13,voir
hide 13

alpha 14
left 14,20 : top 14,350 : font_color 14,255,255,0
font_bold 14 : font_size 14,20
caption 14,"Vous avez : "+str$(z)+" €"

alpha 15
left 15,20 : top 15,390 : font_color 15,255,255,0
font_bold 15 : font_size 15,20

list 16
left 16,330 : top 16,395 : width 16,75 : height 16,175
font_size 16,16 : item_add 16,1000 : item_add 16,2000 : item_add 16,5000
item_add 16,10000 : item_add 16,20000 : item_add 16,50000 : item_add 16,z
on_click 16,mise
hide 16

alpha 17
left 17,20 : top 17,430 : font_color 17,255,255,0
font_bold 17 : font_size 17,20

button 18
left 18,50 : top 18,480 : width 18,100
caption 18,"Continuer le jeu"
on_click 18,cont
hide 18

button 19
left 19,50 : top 19,500
caption 19,"Continuer"
on_click 19,fini
hide 19

alpha 20
left 20,80 : top 20,500
font_bold 20 : font_size 20,30 : font_color 20,255,255,0

button 21
left 21,80 : top 21,160 : width 21,100 : height 21,30
font_bold 21 : font_size 21,12
caption 21,"Rejouer"
on_click 21,joue
hide 21

button 22
left 22,80 : top 22,220 : width 22,100 : height 22,30
font_bold 22 : font_size 22,12
caption 22,"Quitter"
on_click 22,quit

button 23
left 23,150 : top 23,500 : width 23,100
caption 23,"Vous passez"
on_click 23,pass
hide 23

button 24
left 24,10 : top 24,10 : width 24,40
caption 24,"Aide"
on_click 24,aide

alpha 25
left 25,50 : top 25,290
font_bold 25 : font_size 25,14
color 25,255,255,255 : font_color 25,255,0,0
caption 25," COMBINAISONS "

end

pile:
k=0 : q=q+1
for i=2 to 10 step 2
if clicked(i)=1 then k=i
next i
gosub choi
caption k+1,b$
hide k
show k+1
if q=3
caption 15,"Combien misez-vous ?" : show 15 : show 16
hide 12
end_if
if p(4)<>40 and p(5)<>40
gosub calc
caption 12,"Pariez à nouveau"
show 15 : show 16 : show 23
end_if
return

face:
k=0
for i=3 to 11 step 2
if clicked(i)=1 then k=i
next i
hide k
show k-1
return

voir:
caption 12,"Cliquez sur les cartes"+chr$(13)+" pour les retourner"
hide 13 : show 8 : show 10
for i=2 to 6 step 2
on_click i,pile
off_click i+1
next i
return

mise:
if m+val(item_index$(16))<=z
m=m+val(item_index$(16))
show 17 : caption 17,"Votre mise : "+str$(m)+" €" : hide 23
if p(4)=40
show 18
else
show 19
end_if
end_if
return

cont:
caption 12,"Retournez celles que"+chr$(13)+"vous voulez changer"
show 12 : show 13
for i=3 to 7 step 2
on_click i,face
off_click i-1
next i
hide 15 : hide 16 : hide 18
return

choi:
h=int(rnd(10)) : c=int(rnd(4)) : j=c*10+h : b$=""
if j=p(1) or j=p(2) or j=p(3) or j=p(4) or j=p(5) then goto choi
p(k/2)=j
if c=1 or c=2
font_color k+1,255,0,0
else
font_color k+1,0,0,0
end_if
s0$=chr$(13)
s1$=" "+chr$(167+c)+" "+chr$(13)
s2$=" "+chr$(167+c)+" "+chr$(167+c)+" "+chr$(13)
s3$=" "+chr$(167+c)+" "+chr$(167+c)+" "+chr$(167+c)+" "+chr$(13)
s4$=" "+str$(h+1)+" "+str$(h+1)+" "
s5$=" "+str$(h+1)+" "+str$(h+1)+" "
select h
case 0 : b$=s4$+chr$(13)+s0$+s1$+s0$+s0$+s4$
case 1 : b$=s4$+chr$(13)+s0$+s1$+s1$+s0$+s4$
case 2 : b$=s4$+chr$(13)+s2$+s0$+s1$+s0$+s4$
case 3 : b$=s4$+chr$(13)+s2$+s0$+s0$+s2$+s4$
case 4 : b$=s4$+chr$(13)+s2$+s1$+s0$+s2$+s4$
case 5 : b$=s4$+chr$(13)+s2$+s1$+s1$+s2$+s4$
case 6 : b$=s4$+chr$(13)+s2$+s1$+s2$+s2$+s4$
case 7 : b$=s4$+chr$(13)+s2$+s2$+s2$+s2$+s4$
case 8 : b$=s4$+chr$(13)+s2$+s3$+s2$+s2$+s4$
case 9 : b$=s5$+chr$(13)+s2$+s3$+s3$+s2$+s5$
end_select
return

fini:
hide 15 : hide 16 : hide 19 : hide 23 : show 20
k=int(rnd(10-tt)/2)
if k=0
caption 12,"Personne n'a fait"+chr$(13)+"mieux que vous"
caption 20,"VOUS GAGNEZ"
midi_on : midi_play 60,8 : midi_play 72,8 : wait 200 : midi_off
z=z+m
else
caption 12,"Quelqu'un a un meilleur"+chr$(13)+"jeu que le vôtre"
caption 20,"VOUS PERDEZ" : beep
z=z-m
end_if
show 21
return

pass:
z=z-m

joue:
for i=2 to 6 step 2
on_click i,pile
hide i+1 : show i
next i
for i=8 to 11
hide i : hide 7+i
next i
hide 19 : hide 20 : hide 21 : hide 23
caption 12,"Cliquez sur les cartes"+chr$(13)+" pour les retourner"
q=0 : m=0 : for i=1 to 5 : p(i)=40 : next i
if z>0
caption 14,"Vous avez : "+str$(z)+" €"
else
caption 14,"Vous êtes ruiné"
end_if
caption 25," COMBINAISONS "
return

calc:
for j=1 to 10 : r(j)=0 : next j : tt=0
for i=1 to 5
for j=1 to 10
if (p(i)-int(p(i)/10)*10)=j-1 then r(j)=r(j)+1
next j
next i : t=0
for j=1 to 10
if (r(j)=2 and t=3) or (r(j)=3 and t=2) then t=6
if r(j)=2 and t=2 then t=5
if r(j)>t then t=r(j)
next j
select t
case 1 : t=0
case 2 : t=1
case 4 : t=7
case 3 : t=4
case 5 : t=2
case 6 : t=5
end_select
tt=t
for j=1 to 4 : s(j)=0 : next j : t=0
for i=1 to 5
for j=1 to 4
if int(p(i)/10)=j-1 then s(j)=s(j)+1
next j
next i
for j=1 to 4
if s(j)>t then t=s(j)
next j
if t=5
t=6
else
t=0
end_if
if t>tt then tt=t
t=0
for j=2 to 10
if r(j)=1 and r(j-1)=1 then t=t+1
next j
if t=3 then t=2
if t=4 and tt=6 then t=8
if t=4 then t=3
if t<>3 and t<>8 then t=0
if t>tt then tt=t
caption 25,u$(tt)
return

aide:
message z$ : message y$
return

quit:
terminate

Invité

Super jeu !
Je le trouve drôle ce jeu !

J'ai gagné 80000 ¢ ou euros/francs
Aucune Idée

Invité

Y a pas eu beaucoup de cadeaux et ont est le 26 décembre !

santa

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Tout le monde (à part toi, mais moi en particulier) s'est ruiné avec le jeu à jj, alors il ne reste plus rien pour les cadeaux.
Par contre lui a dû passer un bon Noël !

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Ah oui, c'est vrai !
J'avais complètement oublié de vous préciser
que je touchais une forte commission
sur tout ce que vous perdez...
Ah, désolé, ce détail m'était sorti de l'esprit !
lol!

Toute plaisanterie mise à part,
le Noël a été très agréable.
J'espère qu'il en a été de même pour tous !!!
santa

Nombre de messages : 2747 Date d'inscription : 13/09/2009

@ Nicolas :
Ce sont les Euros, qu'on a en France,
€ : ça veut dire Euro (Alt+E)
Les Francs ont disparus depuis une dizaine d'années.
Au fait, c'est quoi, la monnaie qu'il y a au Canada ?
Des dollars canadiens ?
rendeer

PS : il fait quel temps au Canada ?
C'est plein de neige ?
Ici, dans les pyrénées,
il fait un temps magnifique !
(Noël au balcon)
santa

Invité

Merci JJN4 et aussi pour la touche de raccourci.

Ta question ben

Ici il fait -17 (soleil,nuageux)
Il y a de la neige
Un peu moins qu'un mètre

Mais j'ai hâte à l'été

Invité

c'est pas le bon sujet, je reporte.
POURQUOI, il n'est plus possible d'effacer un sujet lorsque l'on se trompe?

COUCOU, ME REVOILOU.

Je vois que pendant que je me goinfrais de poulardes farcies et autre bonheur du même genre, le tout arrosé de petites quantités des meilleurs vins, vous n'avez pas chomés les uns et les autres (ainsi que Jack).

Entre l'horloge à un euro de OW35 et le Poker de JJ, on ne s'ennuie pas.
Une mention spéciale à Cosmos70 pour son gros travail.

Very Happy

Moi je suis honteux, je n'ai pas travailler comme vous. Embarassed

il faut que fasse un effort.

A bientôt.

Invité

Bon retour parmi nous
Tu dois certainement avoir des pantalons surdimensionnés pour les retours chez toi.
Pour les cadeaux, franchement vu le succès, qu'ils ont eus, les 2 derniers, considère que ses toi qui les offrent, cela aura un meilleur effet.
Plusieurs fois j'ai eu envie de les retirer, mais il faut savoir aussi montrer ses lacunes.
Salutation

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Bon retour Jean Claude, content de te retrouver, en 'pleine' forme apparemment Very Happy

Voici mon cadeau de nouvel an,

Vous pouvez y ajouter au LABEL bonne_annee tous ce que vous souhaitez voir apparaitre sur votre PC à minuit le 21/12/2009 ou à 0:00 heure le 01/01/2010. (par exemple avec un EXECUTE)

Code:: ' Bonne Année 2010

dim jour$,heure$,minute$,seconde$,a$,rs$
dim jour,heure,minute,seconde,a,y,l
dim rs,rsm,rsh,rsj,rmh,rhj,rja,r,g,b
label fin,bonne_annee

button 1:top 1,143:left 1,255:width 1,35:height 1,20:caption 1,"FIN"
top 0,10:left 0,10:width 0,300:height 0,200:color 0,255,255,0
font_color 0,0,0,255:font_name 0,"fixedsys"

jour$=mid$(date$,1,2):jour=val(jour$):heure$=mid$(time$,1,2):heure=val(heure$)
minute$=mid$(time$,4,2):minute=val(minute$):seconde$=mid$(time$,7,2)
seconde=val(seconde$):rsm=60-seconde:rmh=60-minute:rsh=(rmh*60)+rsm
if heure$="00" then rhj=23
if heure$="01" then rhj=22
if heure$="02" then rhj=21
if heure$="03" then rhj=20
if heure$="04" then rhj=19
if heure$="05" then rhj=18
if heure$="06" then rhj=17
if heure$="07" then rhj=16
if heure$="08" then rhj=15
if heure$="09" then rhj=14
if heure$="10" then rhj=13
if heure$="11" then rhj=12
if heure$="12" then rhj=11
if heure$="13" then rhj=10
if heure$="14" then rhj=9
if heure$="15" then rhj=8
if heure$="16" then rhj=7
if heure$="17" then rhj=6
if heure$="18" then rhj=5
if heure$="19" then rhj=4
if heure$="20" then rhj=3
if heure$="21" then rhj=2
if heure$="22" then rhj=1
if heure$="23" then rhj=0
rsj=(3600*rhj)+rsh:rja=31-jour:rs=((3600*24)*rja)+rsj:rs=rs-60
a$="Bientôt 2010"
while a=0
caption 0,date$+" "+time$
if clicked(1)=1 then goto fin
rs=rs-1
rs$=str$(rs):l=len(rs$):l=l*11:y=(170+l)/2
if rs=0 then goto bonne_annee
print_locate 80,20:print a$
print_locate y,70:print rs
wait 1000
end_while

bonne_annee:
wait 1000
hide 0:show 0:hide 1
print_locate 50,50:print "BONNE ANNEE 2010 à TOUS"
wait 10000

fin:
terminate

Pourvu que je ne me sois pas planté dans les calculs. Embarassed

Pour les plus doués, vous pouvez vous en servir pour déclencher un feu d'artifice. bom

. Moi, je m'en servirait pour faire péter le Champagne à la seconde S. jocolor

A bientôt.

Je viens de corriger (il y avait 60 secondes d'écart)

Invité

À super Jean Claude !

Je crois que je vais mettre un bruit de réveil-matin et le faire sonné en 2010.
Ah ! Mais non je ne poura pas l'attendre je vais partir Mercredi après-midi.

Désolé !
Sad

» Les cadeaux de Noël
» Cadeaux pour cosmos70
» Mon p'tit chrono...
» En attendant Noël
» Ma liste pour Noël