Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
 | | Sujet: jeu de des basic Lun 19 Avr 2010 - 17:08 | |
| Pour ceux qui en ont ras la casquette d'aller chercher les des sous leur meubles. - Code:
-
dim x%,y%,i%,a
label lancer,Quit
caption 0,"Jeu de dés"
height 0,175:width 0,245
main_menu 3
sub_menu 4:caption 4,"Lancer" :parent 4,3:on_click 4,lancer
sub_menu 5:caption 5,"Quitter":parent 5,3:on_click 5,Quit
picture 1:height 1,90:width 1,90:top 1,10:left 1,15: color 1,200,200,200
file_load 1,"d1.jpg"
picture 2:height 2,90:width 2,90:top 2,10:left 2,120: color 2,200,200,200
file_load 2,"dd1.jpg"
end
lancer:
a=0
repeat
for i%=1 to 6
file_load 1,"d"+str$(i%)+".jpg"
file_load 2,"dd"+str$(i%)+".jpg"
a=a+1
wait 500
next i%
until a=18
x%=int(rnd(7))
y%=int(rnd(7))
file_load 1,"d"+str$(x%)+".jpg"
file_load 2,"dd"+str$(y%)+".jpg"
return
quit:
terminate
les amateurs de 3D pourront suremment l' améliorer Ils vous faudra refaire les faces de vos dés car malheureusement je ne peut vous les transmettre et je ne sais pas encore codé du dessin comme certains ( un panoramicien au travail) . | |
|
Calendrier