FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 17:49

» Cartes de voeux, menus, etc.
par JL35 Aujourd'hui à 17:48

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 jjn4 le renard

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
jjn4

avatar

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

MessageSujet: jjn4 le renard   Lun 28 Mar 2016 - 20:23

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
Laughing  Laughing  Laughing  alien  Laughing  Laughing  Laughing
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!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
jjn4

avatar

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

MessageSujet: +++   Mar 29 Mar 2016 - 15:28

Ah, au fait, il y a une astuce à trouver.
Mais, bien sûr, personne ne trouvera...
Le renard est bien trop malin !
Laughing Laughing king alien farao Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 29 Mar 2016 - 15:52

Je t' ai démasqué, le renard vert !
Maintenant je sais qui tu es !
lol!

Je dis comment ?....  Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Mar 29 Mar 2016 - 16:47

Chhhhhhhhhutttt !!!
Il y a Garcia qui n'est pas loin...
Regardez, le voilà qui arrive...
silent silent silent alien Laughing Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: jjn4 le renard   Mar 29 Mar 2016 - 17:06

C'est simple : il suffit de cliquer sur le logo pour voire qui se cache derrière le logo
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: jjn4 le renard   Mar 29 Mar 2016 - 17:56

Une chose est certaine ! Heureusement qu'il a un masque !

lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Mar 29 Mar 2016 - 19:39

C'est vrai,
le masque,
ça chante tout !
Suspect alien Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Contenu sponsorisé




MessageSujet: Re: jjn4 le renard   

Revenir en haut Aller en bas
 
jjn4 le renard
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Les Tuto du Renard - Musique.
» jjn4-2 -- LE RETOUR
» Un kit coloré pour un renard =^.^=
» mon nouvel avatar
» Animaux ! c:

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: