Supplice chinois

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

Les astuces que j'ai publiées aujourd'hui m'ont donné des idées... :
Mais peut-être que, si vous ne les avez pas suivies, vous allez avoir un bug, un truc dans le genre : Impossible to load the FILE.
C'est que pour cela, il vous faudra charger les images :
Barre de titre.jpg et Croix rouge.jpg qui se trouvent en :
https://panoramic.1fr1.net/vos-sources-vos-utilitaires-a-partager-f2/barre-de-titre-sans-les-3-boutons-t477.htm
Et maintenant voici le code du nouvel inutilitaire :

Code:: rem ' Supplice chinois
dim i : label quit , ici
width 0,800 : height 0,600 : border_hide 0 : color 0,0,85,229
picture 1 : width 1,800 : height 1,30 : file_load 1,"Barre de titre.jpg"
alpha 2 : left 2,25 : top 2,8 : font_bold 2
font_size 2,10 : color 2,0,85,229 : font_color 2,255,255,255
caption 2,"Supplice chinois"
alpha 3 : left 3,4 : top 3,30 : width 3,792 : height 3,566
color 3,236,233,216
picture 4 : left 4,773 : top 4,6 : width 4,21 : height 4,21
file_load 4,"Croix rouge.jpg" : on_click 4,quit
button 5 : left 5,300 : top 5,500
caption 5,"Cliquez ici" : on_click 5,ici
end
ici:
hide 5 : caption 2,"Si vous trouvez ce programme ennuyeux, alors arrêtez-le !"
for i=1 to 2500 : wait 5 : ' Vous pouvez régler ces chiffres selon la vitesse de votre ordinateur
if mouse_y_position(3)<100 or mouse_x_position(3)>750
hide 4
else
show 4
end_if
next i
beep : caption 2,"Supplice terminé - Ah ah ah ah ah... !!!" : show 4
return
quit:
terminate

Bon supplice !
Laughing

Invité

Bizarre ça n'a pas marché, je mais la bonne barre de titre et il ne veut pas la chargé.

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

Ou bien tu ne les as pas placées au bon endroit,
ou alors tu n'as pas enregistré la croix rouge (à trouver au même endroit).
(ou alors avec un nom qui n'est pas le bon)
pirat

(parce que chez moi, ça marche)

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

Je sais pourquoi !
Quand tu as enregistré la barre de titre,
je disais de la mettre en .bmp
Depuis, j'ai changé le premier programme
et tout est programmé pour marcher en .jpg
A mon avis, ça doit être ça.
Transforme ta barre en .jpg
ou reprend-là à partir du site pré-cité.
rabbit

Invité

Mais JJN4 quand même tu as laissé quelques chances ;

La croix apparait au 10 seconde à peut près ou je me trompe parce que j'ai vus dans le programme MOUSE_X_POSTION(3)>750 et MOUSE_Y_POSITION(3)<100

Mais pourquoi à-tu appelé ça supplice chinois

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

C'est parce que ton ordinateur doit être très rapide,
alors règle la ligne affectée d'une remarque
par exemple, tu mets :
for i=1 to 25000
ou bien
wait 30
ça varie énormément selon les ordinateurs
même que chez moi, des fois c'est très rapide
et des fois c'est très lent avec le même réglage.
C'est bizarre.
Tu verras, c'est un vrai supplice, surtout si c'est très long !
lol!

Invité

Enh ! Bien.

Moi je n'est jamais su c'était quoi un supplice chinois.
J'ai passé des bouts de programme.

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

Pour 'supplice chinois', voir wikipedia.

Alors, tu as réussi à le faire marcher ou pas ?

Invité

Oui j'ai réussi JJN4 !

J'ai cherché sur wikipédia :

http://fr.wikipedia.org/wiki/Supplice_chinois

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

Bon, j'ai un peu exagéré, hein, en appelant ça supplice chinois...
C'est mon humour.
J'espère que ça ne t'a pas fait l'effet décrit sur wikipedia...
affraid

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

Ca c'est un risque que tu as pris...

Invité

Pas vraiment JJN4 !

En fait je n'ai pas lus toutes la page juste le début de la description

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

Comme Jack a dit (tiens, ça rappelle pas un jeu, ça ?)
qu'il publierait les inutilitaires dans un autre endroit,
et que celui-ci nécessite le téléchargement préalable d'une image,
alors que j'aime bien offrir des programmes « clé en main »,
(c'est à dire, on fait copier-coller, on clic sur exécuter et voilà)
alors j'en publie une nouvelle version sans nécessité de téléchargement.
(sinon, c'est exactement le même, hein !)(à peu de choses près)

Code:: rem ' Supplice chinois
dim i , x , y : label quit , ici
x=800 : rem longueur de la Form
y=450 : rem hauteur de la Form
border_hide 0 : color 0,0,40,255 : width 0,x : height 0,y
picture 1 : width 1,x : height 1,30 : 2d_target_is 1
for i=0 to 3 : 2d_pen_color 0,200-i*40,255 : 2d_line 0,i,x,i : next i
for i=4 to 22 : 2d_pen_color 0,(i-3)*5+40,255 : 2d_line 0,i,x,i : next i
for i=23 to 29 : 2d_pen_color 0,146-(i-22)*8,255 : 2d_line 0,i,x,i : next i
alpha 2 : left 2,27 : top 2,4 : font_color 2,255,255,255 : font_bold 2
color 2,0,80,255 : font_size 2,10 : caption 2,"Supplice chinois"
alpha 3 : left 3,2 : top 3,30 : width 3,x-4 : height 3,y-33 : color 3,236,233,216
picture 4 : left 4,5 : top 4,6 : width 4,18 : height 4,18
color 4,233,249,251 : 2d_target_is 4 : 2d_pen_color 255,51,0
2d_circle 9,9,8 : 2d_circle 9,9,6 : 2d_pen_color 51,51,153
2d_line 6,11,11,11 : 2d_circle 10,7,2 : 2d_pen_width 2 : 2d_line 8,6,8,11
picture 5 : left 5,x-25 : top 5,6 : width 5,20 : height 5,20
color 5,230,110,85 : 2d_target_is 5 : 2d_pen_color 255,255,255
2d_pen_width 2 : 2d_line 0,0,0,20 : 2d_line 0,0,20,0 : 2d_line 20,0,20,20
2d_line 0,20,20,20 : 2d_line 4,14,14,4 : 2d_line 4,4,14,14
on_click 5,quit
button 6 : left 6,300 : top 6,300
caption 6,"Cliquez ici" : on_click 6,ici
end
ici:
hide 6
for i=1 to 2500 : wait 5
caption 2,"Si vous trouvez ce programme ennuyeux, alors arrêtez-le ! ("+str$(2500-i)+")"
if mouse_y_position(3)<50 or mouse_x_position(3)>750 or mouse_y_position(3)>400
hide 5
else
show 5
end_if
next i
beep : caption 2,"Supplice terminé - Ah ah ah ah ah... !!!" : show 5
return
quit:
terminate

» Un nouveau casse tête chinois