jjn4 le renard

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

Pour ce lundi de Pâques, j'ai eu envie de faire une grande BA
(Bonne Action, pour les non-initiés) et j'ai eu une idée géniale :
Prendre du chocolat à ceux qui en ont trop et qui sont obèses,
pour le donner aux enfants maigrichons qui n'en ont pas.
En plus, ce serait une BA double, c'est super, non ?
sunny

Evidemment, il y a un inconvénient,
c'est que je serais alors aussitôt considéré comme un hors-la-loi,
et peut-être même, en ces temps troubles, comme un terroriste,
et recherché par toutes les polices, Interpol, GIGN, FBI, etc...
pirat

Alors, j'ai trouvé la solution :
me déguiser afin qu'on ne me reconnaisse pas.
En effet, habillé de mon habituel string martien,
même de loin, on identifirait aussitôt mon origine extraterrestre
et on en déduirait automatiquement que c'est moi.
geek

Tandis qu'avec le super déguisement que j'ai trouvé,
je ressemble à n'importe quel terrien lambda
et mon anonymat est vraiment garanti SGDG.
afro

Hein, qu'en pensez-vous ?

Code:: rem ' Jjn4-le-renard - 28/03/2016
dim i% , vb , vg , vr
label masc

rem form0
left 0,100
top 0,50
width 0,460
height 0,580
caption 0,"Mais qui est donc ce mystérieux inconnu ?"

picture 100
left 100,20
top 100,20
width 100,400
height 100,500
on_click 100,masc
2d_target_is 100
tete()
corps()
jambed()
jambeg()
brasdb()
brasdh()
brasgb()
brasgh()
epeed()
epeeg()
logo()

end : rem ' Début des routines =====================================

sub brasdb() : rem Ajout du bras droit bas du mystérieux inconnu
2d_poly_from 96,245
2d_poly_to 35,280
2d_poly_to 10,284
2d_poly_to 33,286
2d_poly_to 28,310
2d_poly_to 38,290
2d_poly_to 95,265
2d_flood 60,275,0,0,0
end_sub

sub brasdh() : rem Ajout du bras droit haut du mystérieux inconnu
2d_poly_from 116,195
2d_poly_to 40,220
2d_poly_to 25,210
2d_poly_to 34,222
2d_poly_to 20,232
2d_poly_to 36,228
2d_poly_to 34,245
2d_poly_to 43,228
2d_poly_to 106,215
2d_flood 70,215,0,0,0
end_sub

sub brasgb() : rem Ajout du bras gauche bas du mystérieux inconnu
2d_poly_from 184,245
2d_poly_to 245,280
2d_poly_to 270,284
2d_poly_to 247,286
2d_poly_to 252,310
2d_poly_to 242,290
2d_poly_to 185,265
2d_flood 220,275,0,0,0
end_sub

sub brasgh() : rem Ajout du bras gauche haut du mystérieux inconnu
2d_poly_from 164,195
2d_poly_to 240,220
2d_poly_to 255,210
2d_poly_to 246,222
2d_poly_to 260,232
2d_poly_to 244,228
2d_poly_to 246,245
2d_poly_to 237,228
2d_poly_to 174,215
2d_flood 210,215,0,0,0
end_sub

sub corps() : rem Affichage du corps du mystérieux inconnu
2d_poly_from 90,180
2d_poly_to 190,180
2d_poly_to 235,380
2d_poly_to 45,380
2d_poly_to 90,180
2d_flood 140,300,0,0,0
end_sub

sub epeed() : rem Affichage de l`épée droite du mystérieux inconnu
2d_fill_color 200,200,200
2d_circle 25,230,20
for i%=-5 to 5
2d_pen_color 145+abs(i%)*20,31+abs(i%)*20,194
2d_line 23+i%,210,5+i%,10
next i%
end_sub

sub epeeg() : rem Affichage de l`épée gauche du mystérieux inconnu
2d_pen_width 1
2d_pen_color 0,0,0
2d_circle 258,293,20
for i%=-5 to 5
2d_pen_color 145+abs(i%)*20,31+abs(i%)*20,194
2d_line 270+i%,280,385+i%,120
next i%
end_sub

sub jambed() : rem Ajout de la jambe droite du mystérieux inconnu
2d_poly_from 146,359
2d_poly_to 160,450
2d_poly_to 175,447
2d_poly_to 170,335
2d_flood 160,390,0,0,0
for i%=1 to 360
2d_point 185+35*cos(i%),457+10*sin(i%)
next i%
2d_flood 185,457,0,0,0
end_sub

sub jambeg() : rem Ajout de la jambe gauche du mystérieux inconnu
2d_poly_from 134,359
2d_poly_to 120,450
2d_poly_to 105,447
2d_poly_to 110,335
2d_flood 120,390,0,0,0
for i%=1 to 360
2d_point 95+35*cos(i%),457+10*sin(i%)
next i%
2d_flood 95,457,0,0,0
end_sub

sub logo()
2d_pen_width 10
2d_pen_color 150,31,194
2d_line 110,215,170,215
2d_line 163,205,110,278
2d_line 100,268,180,268
end_sub

masc: : rem Affichage du masque
vr=color_pixel_red(100,mouse_x_left_down(100),mouse_y_left_down(100))
vg=color_pixel_green(100,mouse_x_left_down(100),mouse_y_left_down(100))
vb=color_pixel_blue(100,mouse_x_left_down(100),mouse_y_left_down(100))
if vr=150 and vg=31 and vb=194
2d_pen_width 3
2d_pen_color 0,0,0
2d_line 125,163,130,161
2d_line 130,161,135,160
2d_line 135,160,145,160
2d_line 145,160,150,161
2d_line 150,161,155,163
2d_flood 140,112,0,255,0
2d_line 80,110,200,110
2d_fill_color 0,0,0
2d_rectangle 115,110,165,80
2d_pen_width 1
2d_fill_off
2d_circle 140,142,40
for i%=0 to 360
2d_point 140+20*cos(i%),130+10*sin(i%)
next i%
end_if
return

sub tete() : rem Affichage de la tête du mystérieux inconnu
2d_pen_width 1
2d_circle 140,142,40
2d_line 100,145,180,145
2d_pen_color 0,200,0
2d_circle 135,150,2
2d_circle 145,150,2
2d_pen_color 0,255,0
2d_pen_width 3
2d_line 120,130,160,130
2d_line 125,163,155,163
2d_pen_color 0,0,0
2d_pen_width 1
for i%=0 to 360
2d_point 140+20*cos(i%),130+10*sin(i%)
next i%
2d_flood 110,140,0,0,0
2d_flood 120,150,0,255,0
2d_flood 140,130,255,255,255
2d_fill_color 0,200,255
2d_circle 140,130,9
2d_fill_color 0,0,0
2d_circle 140,130,4
2d_fill_color 0,220,0
2d_pen_width 3
2d_line 125,163,130,165
2d_line 130,165,135,166
2d_line 135,166,145,166
2d_line 145,166,150,165
2d_line 150,165,155,163
2d_line 80,110,200,110
2d_fill_color 0,0,0
2d_rectangle 115,110,165,80
2d_pen_width 1
end_sub

NB: Avez-vous remarqué que les faisceaux laser sont,
comme les vaches martiennes, de la couleur du chocolat Milka.
Ceci dit sans aucunement vouloir faire de publicité...
lol!