Chapeauramic

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

Je ne sais pas si vous l'avez deviné,
mais contrairement aux terriens,
les martiens marchent sur la tête.
C'est d'ailleurs ce qui leur donne
un caractère très mars-à-mars...
(euh pardon) très terre-à terre.

Mais il reste aux terriens et aux
martiens deux point communs :
les chapeaux et les chaussures.

Les terriens ont un chapeau
(qui leur sert à saluer)
et deux chaussures
(qui leur servent à marcher dedans)
(quoiqu'il paraît que certains
préfèrent marcher à côté).

Les martiens se servent aussi de chaussure
pour marcher et de chapeaux pour saluer,
(et ça, bien sûr, c'est logique)
sauf qu'ils n'ont qu'une seule chaussure
(qu'ils se lacent autour de la tête)
et deux chapeaux (posés sur les pieds).
Remarquez que ça leur donne un avantage,
c'est de pouvoir saluer de façon différenciée.

Vous allez pouvoir le constater avec ce programme.
Ah oui, mais attention, il y a un bouton mystère !!!
Allez-vous pouvoir trouver sa fonction ?
Et qui va mettre le moins de temps ?
Eh, eh, j'attends de savoir vos scores...

Code:: rem ' Chapeauramic
   dim i , j , x , y : rem Variables provisoires numériques
   dim cr , cg , cb : rem Couleurs du fond
   dim io : rem Indicateur d`Ouverture
   dim tt : rem Décomptage du Temps
   dim xx , yy : rem Coordonnées de l`emplacement du martien
   dim zz : rem Altitude des bras
   label dames , dessin , droite , gauche
   label go , groupes , indic , sieurs , temps
   xx=500
   cr=color_pixel_red(0,400,10)
   cg=color_pixel_green(0,400,10)
   cb=color_pixel_blue(0,400,10)

rem form0
   width 0,1350
   height 0,580
   caption 0," CES MARTIENS QUI MARCHENT SUR LA TÊTE"
   print_target_is 0
   print_locate 550,400
   print "Chaussure"
   2d_target_is 0
   2d_line 580,400,600,362
   2d_line 600,362,594,364
   2d_line 600,362,601,368

picture 10
   width 10,1320
   height 10,356
   2d_target_is 10
   gosub dessin
   on_click 10,indic

button 20
   left 20,50
   top 20,410
   width 20,120
   height 20,120
   font_size 20,70
   font_name 20,"Webdings"
   caption 20,chr$(148)
   on_click 20,groupes

button 30
   left 30,200
   top 30,410
   width 30,120
   height 30,120
   font_size 30,70
   font_name 30,"Webdings"
   caption 30,chr$(129)
   on_click 30,dames

button 40
   left 40,350
   top 40,410
   width 40,120
   height 40,120
   font_size 40,70
   font_name 40,"Webdings"
   caption 40,chr$(128)
   on_click 40,sieurs

alpha 50
   left 50,500
   top 50,470
   font_bold 50
   font_size 50,12
   caption 50,"Temps :"

alpha 60
   left 60,580
   top 60,470
   font_bold 60
   font_size 60,12
   font_color 60,255,0,0

button 70
   left 70,720
   top 70,410
   width 70,120
   height 70,120
   font_size 70,70
   font_name 70,"Wingdings 3"
   caption 70,chr$(197)
   on_click 70,gauche

button 80
   left 80,870
   top 80,410
   width 80,120
   height 80,120
   font_size 80,70
   font_name 80,"Wingdings 3"
   caption 80,chr$(198)
   on_click 80,droite

button 90
   left 90,1180
   top 90,410
   width 90,120
   height 90,120
   font_size 90,70
   font_name 90,"Webdings"
   caption 90,chr$(115)
   on_click 90,go

timer 100
   timer_interval 100,1000
   on_timer 100,temps

end

dames: : rem Saluer les dames
   io=0
   font_name 90,"Webdings"
   caption 90,chr$(115)
   2d_pen_color 255,255,255
   2d_fill_color 255,255,255
   2d_rectangle xx+40,80,xx+83,13
   2d_circle xx+92,310,4
   2d_circle xx+108,310,4
   2d_pen_color 0,0,0
   2d_fill_color 0,0,0
   2d_circle xx+88,310,4
   2d_circle xx+112,310,4
   2d_fill_color 255,154,255
   2d_rectangle xx+40,60,xx+83,56
   2d_poly_from xx+50,56
   2d_poly_to xx+60,13
   2d_poly_to xx+70,56
   2d_flood xx+65,50,255,154,255
   beep
   wait 500
   2d_pen_color 255,255,255
   2d_fill_color 255,255,255
   2d_rectangle xx+40,80,xx+83,13
   2d_circle xx+88,310,4
   2d_circle xx+112,310,4
   2d_pen_color 0,0,0
   2d_fill_color 0,0,0
   2d_circle xx+92,310,4
   2d_circle xx+108,310,4
   2d_flood xx+109,311,0,0,0
   2d_fill_color 255,154,255
   2d_rectangle xx+40,80,xx+83,76
   2d_poly_from xx+50,76
   2d_poly_to xx+60,33
   2d_poly_to xx+70,76
   2d_flood xx+65,70,255,154,255
return

dessin: : rem Dessin martien
   rem Tête
   2d_pen_color 0,0,0
   2d_fill_color 0,255,0
   2d_circle xx+100,300-yy,35
   2d_fill_color 255,255,255
   2d_circle xx+90,310-yy,7
   2d_circle xx+110,310-yy,7
   2d_fill_color 0,0,0
   2d_circle xx+92,310-yy,4
   2d_circle xx+108,310-yy,4
   2d_poly_from xx+90,290-yy
   2d_poly_to xx+95,288-yy
   2d_poly_to xx+100,287-yy
   2d_poly_to xx+105,288-yy
   2d_poly_to xx+110,290-yy
   rem Corps
   2d_fill_color 0,255,0
   2d_rectangle xx+90,170-yy,xx+110,268-yy
   2d_fill_color 0,0,0
   2d_rectangle xx+88,170-yy,xx+112,177-yy
   rem Jambes
   2d_poly_from xx+90,170-yy
   2d_poly_to xx+50,80-yy
   2d_poly_to xx+70,80-yy
   2d_poly_to xx+100,150-yy
   2d_poly_to xx+130,80-yy
   2d_poly_to xx+150,80-yy
   2d_poly_to xx+110,170-yy
   2d_flood xx+100,160-yy,0,255,0
   rem Bras gauche
   2d_poly_from xx+90,260-yy
   2d_poly_to xx+50,240-zz
   2d_poly_to xx+90,250-yy
   2d_flood xx+88,255-yy,0,255,0
   rem Bras droit
   2d_poly_from xx+110,260-yy
   2d_poly_to xx+150,240-zz
   2d_poly_to xx+109,250-yy
   2d_flood xx+111,255-yy,0,255,0
   rem Chapeau gauche
   2d_fill_color 255,154,255
   2d_rectangle xx+40,80-yy,xx+83,76-yy
   2d_poly_from xx+50,76-yy
   2d_poly_to xx+60,33-yy
   2d_poly_to xx+70,76-yy
   2d_flood xx+65,70-yy,255,154,255
   rem Chapeau droit
   2d_fill_color 0,201,255
   2d_rectangle xx+120,80-yy,xx+162,76-yy
   2d_poly_from xx+130,76-yy
   2d_poly_to xx+130,40-yy
   2d_poly_to xx+150,40-yy
   2d_poly_to xx+150,76-yy
   2d_flood xx+140,60-yy,0,201,255
   rem Chaussure
   2d_fill_color 200,155,0
   2d_rectangle xx+55,350-yy,xx+145,356-yy
   2d_pen_color 200,155,0
   2d_line xx+110,268-yy,xx+65,300-yy
   2d_line xx+90,268-yy,xx+135,300-yy
   2d_pen_color 0,0,0
   2d_poly_from xx+140,350-yy
   2d_poly_to xx+145,335-yy
   2d_poly_to xx+145,315-yy
   2d_poly_to xx+134,300-yy
   2d_poly_from xx+60,350-yy
   2d_poly_to xx+55,335-yy
   2d_poly_to xx+55,315-yy
   2d_poly_to xx+65,300-yy
   2d_flood xx+70,330-yy,200,155,0
   2d_poly_from xx+70,350-yy
   2d_poly_to xx+66,345-yy
   2d_poly_to xx+65,340-yy
   2d_poly_to xx+66,335-yy
   2d_poly_to xx+70,332-yy
   2d_poly_to xx+90,335-yy
   2d_poly_to xx+110,335-yy
   2d_poly_to xx+130,332-yy
   2d_poly_to xx+134,335-yy
   2d_poly_to xx+135,340-yy
   2d_poly_to xx+134,350-yy
   2d_poly_from xx+70,340-yy
   2d_poly_to xx+90,345-yy
   2d_poly_to xx+110,345-yy
   2d_poly_to xx+130,340-yy
return

droite: : rem Aller à droite
   io=0
   font_name 90,"Webdings"
   caption 90,chr$(115)
   color 0,cr,cg,cb
   if xx<1150
   xx=xx+25
   2d_clear
   yy=5 : zz=35
   gosub dessin
   beep
   wait 100
   2d_clear
   yy=0 : zz=0
   gosub dessin
   end_if
return

gauche: : rem Aller à gauche
   io=0
   font_name 90,"Webdings"
   caption 90,chr$(115)
   color 0,cr,cg,cb
   if xx>-25
   xx=xx-25
   2d_clear
   yy=5 : zz=35
   gosub dessin
   beep
   wait 100
   2d_clear
   yy=0 : zz=0
   gosub dessin
   end_if
return

go: : rem Action
   if io=1
   2d_pen_color 0,0,0
   2d_fill_color 0,0,0
   2d_rectangle xx+98,120,xx+102,300
   2d_rectangle xx+8,208,xx+188,212
   for i=1 to 360
   2d_point 20*cos(i)+xx+100,20*sin(i)+210
   2d_point 40*cos(i)+xx+100,40*sin(i)+210
   2d_point 60*cos(i)+xx+100,60*sin(i)+210
   2d_point 80*cos(i)+xx+100,80*sin(i)+210
   next i
   beep
   wait 800
   2d_pen_color 255,255,255
   2d_fill_color 255,255,255
   2d_circle xx+92,310,4
   2d_circle xx+108,310,4
   2d_pen_color 0,0,0
   2d_fill_color 0,0,0
   2d_circle xx+90,310,4
   2d_circle xx+110,310,4
   beep
   wait 1200
   midi_on
   midi_instrument 127
   midi_volume 127
   midi_play 66,4
   midi_off
   2d_clear
   2d_fill_color 200,155,0
   2d_rectangle xx+55,350-yy,xx+145,356-yy
   2d_pen_color 200,155,0
   2d_pen_color 0,0,0
   2d_poly_from xx+140,350-yy
   2d_poly_to xx+145,335-yy
   2d_poly_to xx+145,315-yy
   2d_poly_to xx+134,300-yy
   2d_poly_from xx+60,350-yy
   2d_poly_to xx+55,335-yy
   2d_poly_to xx+55,315-yy
   2d_poly_to xx+65,300-yy
   2d_poly_from xx+65,300-yy
   2d_poly_to xx+135,300-yy
   2d_flood xx+70,330-yy,200,155,0
   2d_poly_from xx+70,350-yy
   2d_poly_to xx+66,345-yy
   2d_poly_to xx+65,340-yy
   2d_poly_to xx+66,335-yy
   2d_poly_to xx+70,332-yy
   2d_poly_to xx+90,335-yy
   2d_poly_to xx+110,335-yy
   2d_poly_to xx+130,332-yy
   2d_poly_to xx+134,335-yy
   2d_poly_to xx+135,340-yy
   2d_poly_to xx+134,350-yy
   2d_poly_from xx+70,340-yy
   2d_poly_to xx+90,345-yy
   2d_poly_to xx+110,345-yy
   2d_poly_to xx+130,340-yy
   2d_fill_color 0,201,255
   2d_rectangle xx+160,355-yy,xx+202,351-yy
   2d_poly_from xx+170,351-yy
   2d_poly_to xx+170,315-yy
   2d_poly_to xx+190,315-yy
   2d_poly_to xx+190,351-yy
   2d_flood xx+180,335-yy,0,201,255
   2d_poly_from xx+55,325
   2d_poly_to xx+25,356-yy
   2d_poly_to xx+58,345-yy
   2d_flood xx+50,340-yy,255,154,255
   2d_pen_color 0,255,0
   2d_fill_color 0,255,0
   for i=1 to int(rnd(5))+7
   x=xx+int(rnd(150))+50
   y=int(rnd(250))-yy
   2d_circle x,y,int(rnd(30))+10
   next i
   for i=1 to 100
   2d_circle x,y+i,4
   wait 20
   next i
   for i=10 to 40 step 10
   off_click i
   next i
   for i=70 to 90 step 10
   off_click i
   next i
   timer_off 100
   end_if
return

groupes: : rem Saluer les groupes mixtes
   io=0
   font_name 90,"Webdings"
   caption 90,chr$(115)
   gosub dames
   wait 400
   gosub sieurs
return

indic: : rem Fait marcher l`indicateur
   i=mouse_x_left_down(10)
   j=mouse_y_left_down(10)
   io=0
   font_name 90,"Webdings"
   caption 90,chr$(115)
   if clicked(90)=1
   if color_pixel_green(10,i,j)=201 or color_pixel_green(10,i,j)=154
   io=1
   font_name 90,"Wingdings"
   caption 90,chr$(165)
   end_if
   end_if
return

sieurs: : rem Saluer les messieurs
   io=0
   font_name 90,"Webdings"
   caption 90,chr$(115)
   2d_pen_color 255,255,255
   2d_fill_color 255,255,255
   2d_rectangle xx+120,80,xx+162,40
   2d_pen_color 0,0,0
   2d_fill_color 0,201,255
   2d_rectangle xx+120,60,xx+162,56
   2d_poly_from xx+130,56
   2d_poly_to xx+130,20
   2d_poly_to xx+150,20
   2d_poly_to xx+150,56
   2d_flood xx+140,40,0,201,255
   beep
   wait 500
   2d_pen_color 255,255,255
   2d_fill_color 255,255,255
   2d_rectangle xx+120,60,xx+162,20
   2d_pen_color 0,0,0
   2d_fill_color 0,201,255
   2d_rectangle xx+120,80,xx+162,76
   2d_poly_from xx+130,76
   2d_poly_to xx+130,40
   2d_poly_to xx+150,40
   2d_poly_to xx+150,76
   2d_flood xx+140,60,0,201,255
return

temps: : rem Décomptage du temps
   tt=tt+1
   caption 60,str$(tt)+" sec"
return

Sujet: re Sam 15 Mar 2014 - 18:58

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

et le score ?
bounce

Sujet: Re: Chapeauramic Sam 15 Mar 2014 - 22:03

Du diable si je comprends quelque chose à la logique martienne ! si on peut appeler ça une logique... scratch

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

Ah ah, on flanche !!!
Allez, un petit indice........
C'est du côté des chapeaux......
Very Happy

Sujet: Re: Chapeauramic Dim 16 Mar 2014 - 0:30

Pauvre Martien Je l'ai bousillé Pourtant il ne le mérite pas !

Sujet: Re: Chapeauramic Dim 16 Mar 2014 - 8:30

Je pense que jjn4 commence a travaillé du chapeau (hihihi !!)

HARGFFF ! j'y comprendrai jamais rien a la logique martienne...

Question

Sujet: Re: Chapeauramic Dim 16 Mar 2014 - 11:04

Minibug a écrit:: HARGFFF ! j'y comprendrai jamais rien a la logique martienne...

La logique martienne n’est pas faite pour être comprise (puisqu’elle a tombé sur la tête) mais pour être méditée !

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

10 secondes, ouah, mais nous avons affaire à un crac !
Qui dit mieux ?

Citation :
Je pense que jjn4 commence a travailler du chapeau

Mais non, sur mars, on dit :
marcher à côté de ses casquettes.
Laughing

Sujet: re Dim 16 Mar 2014 - 14:54

Moi, j' trouve poa... Sad

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

Il faut cliquer sur...
et ensuite sur...
Allez, je ne peux pas en dire plus !
Laughing

Sujet: Re: Chapeauramic Dim 16 Mar 2014 - 16:41

Après le bouton secret, si tu as besoin d'aide, tu trouves la cible pour détruire le martien. Sauf si tu ne veux pas exploser les martiens auxquels cas tu es dans la m... Very Happy

Sujet: Re: Chapeauramic Dim 16 Mar 2014 - 17:05

@Ygeronimi

Si tu es rationnel comme moi (dont je ne doute pas), commence par étudier le code plutôt que de cliquer à l’aveuglette ici et là !

Sujet: Re: Chapeauramic Dim 16 Mar 2014 - 17:29

Oui, mais ça c'est de la triche !

Et puis si tu es rationnel, tu ne joues pas à des jeux de martiens qui marchent sur leur tête ! Smile

On est bien en Mars, mais pas dessus ! Very Happy

Sujet: Re: Chapeauramic Dim 16 Mar 2014 - 18:44

Hé! JJN4, il faut consulter, tu m’inquiète fortement Razz

Surtout va pas voir un médecin terrien, tu risques de te faire enfermer.

lol!

Sujet: re Dim 16 Mar 2014 - 21:53

Soeur Anne ! ils sont tous devenus fous !

lol!

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

Citation :
Hé! JJN4, il faut consulter, tu m’inquiète fortement

Désolé, Jean Claude, mais sur Mars,
ce sont ceux qui marchent bêtement sur leurs pieds
(on en trouve quelquefois, on ne sait pas pourquoi)
qu'on envoie consulter.
Laughing

Sujet: Re: Chapeauramic Lun 17 Mar 2014 - 17:14

Et on les envoie consulter les docteurs prise-de-tête ? ou les docteurs casse-pieds ?

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

Non, casse-tête !
Laughing

Sujet: Re: Chapeauramic Lun 17 Mar 2014 - 20:45

Citation:
Sur Mars, ce sont ceux qui marchent bêtement sur leurs pieds
(on en trouve quelquefois, on ne sait pas pourquoi)
qu'on envoie consulter.

c'est normal, vu qu'ils marchent dans des chapeaux.
alien

Je me demande: Comment prendre son pied avec une Martienne.

lol!

Sujet: Re: Chapeauramic Lun 17 Mar 2014 - 20:48

Bon cette affaire, c'est pas le pied, j'arrête de me prendre la tête.

alien

Sujet: Re: Chapeauramic Lun 17 Mar 2014 - 20:49

Te prends pas la tête avec ça...
Tiens, on s'es Very Happy

t croisés pour dire la même chose...

Sujet: re Mar 18 Mar 2014 - 1:55

Que cela fait du bien de vous lire dans cette état...d' esprit...
...Cela faisait un moment que le forum n' était pas parti en vrille de la sorte.

Sujet: Re: Chapeauramic Mar 18 Mar 2014 - 2:56

Et dire qu’un Martien en retraite n’a plus de temps pour PANORAMIQUER !

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

C'est à dire que quand on a la tête occupée à marcher,
après on est fatigué et on a plus la tête à autre chose...
(d'antan qu'après, elle est un peu aplatie !)
Laughing