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
» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Aujourd'hui à 8:27

» Projet de planétarium virtuel.
par Pedro Alvarez Hier à 20:53

» Quantité de mémoire utilisée par un exe
par Jack Hier à 16:39

» Problème avec 'file_load'.
par Pedro Alvarez Lun 18 Juin 2018 - 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

» image_width(n) et image_height(n)
par silverman Sam 9 Juin 2018 - 11:22

» Site sur la programmation sympa
par Jean Claude Jeu 7 Juin 2018 - 11:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Jeu "shuffle"

Aller en bas 
AuteurMessage
lodchjo

avatar

Nombre de messages : 162
Age : 47
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Jeu "shuffle"   Sam 28 Juil 2012 - 12:29

Coucou, mes amis!

Je suis de retour et comme promis, je publie un autre jeu, qui ressemble un peu le dernier, aussi fait avec cette langue de programmation diabolique, heu panoramic Very Happy



Le but, c'est pareil que le dernier, c'est juste la manière qui est différente, et aussi les dessins a faire.

Mais je dois m'excuser aussi, notamment pour avoir eu la flemme de verifier pour chaque puzzle les pas minimums nécessaires... je ferai ça quand j'aurais rien d'autre a faire. C'est juste que je ne voulais pas que ces codes restent dans mon ordi sans aucun utilité, pour peut-être être perdu avec le temps. Mais si ça intéresse qq'un d'entre vous, je serai très reconnaissant!

Allez, amusez-vous bien!

Lode

Code:

label switch, init, chng, nxt, prv, abt
label u1,u2,u3,u4,u5,u6,d1,d2,d3,d4,d5,d6,l1,l2,l3,l4,l5,l6,r1,r2,r3,r4,r5,r6
dim x,y,z, klr(37), level$(25), doel$(25), lvl, req(25),test$, mov
level$(1)="000000011110011110011110011110000000":doel$(1)="110011110011000000000000110011110011":req(1)=24
level$(2)="010101010101010101010101010101010101":doel$(2)="111100111000110000110000111000111100":req(2)=42
level$(3)="010101101010010101101010010101101010":doel$(3)="100011110001111000111000110001100011":req(3)=24
level$(4)="010101010101010101010101010101010101":doel$(4)="101010101010101010101010101010101010":req(4)=12
level$(5)="010101010101010101010101010101010101":doel$(5)="101010101010101010101010101010101010":req(5)=18
level$(6)="010101010101010101010101010101010101":doel$(6)="101010101010101010101010101010101010":req(6)=13
level$(7)="010101010101010101010101010101010101":doel$(7)="101010101010101010101010101010101010":req(7)=3
level$(8)="010101010101010101010101010101010101":doel$(8)="101010101010101010101010101010101010":req(8)=14
level$(9)="010101010101010101010101010101010101":doel$(9)="101010101010101010101010101010101010":req(9)=23
level$(10)="010101010101010101010101010101010101":doel$(10)="101010101010101010101010101010101010":req(10)=35
level$(11)="010101010101010101010101010101010101":doel$(11)="101010101010101010101010101010101010":req(11)=9
level$(12)="010101010101010101010101010101010101":doel$(12)="101010101010101010101010101010101010":req(12)=7
level$(13)="010101010101010101010101010101010101":doel$(13)="101010101010101010101010101010101010":req(13)=9
level$(14)="010101010101010101010101010101010101":doel$(14)="101010101010101010101010101010101010":req(14)=9
level$(15)="010101010101010101010101010101010101":doel$(15)="101010101010101010101010101010101010":req(15)=9
level$(16)="010101010101010101010101010101010101":doel$(16)="101010101010101010101010101010101010":req(16)=9
level$(17)="010101010101010101010101010101010101":doel$(17)="101010101010101010101010101010101010":req(17)=9
level$(18)="010101010101010101010101010101010101":doel$(18)="101010101010101010101010101010101010":req(18)=9
level$(19)="010101010101010101010101010101010101":doel$(19)="101010101010101010101010101010101010":req(19)=9
level$(20)="010101010101010101010101010101010101":doel$(20)="101010101010101010101010101010101010":req(20)=9
level$(21)="010101010101010101010101010101010101":doel$(21)="101010101010101010101010101010101010":req(21)=9
level$(22)="010101010101010101010101010101010101":doel$(22)="101010101010101010101010101010101010":req(22)=9
level$(23)="010101010101010101010101010101010101":doel$(23)="101010101010101010101010101010101010":req(23)=9
level$(24)="010101010101010101010101010101010101":doel$(24)="101010101010101010101010101010101010":req(24)=9
lvl=1
caption 0,"Shuffle"
border_small 0
color 0,0,0,0
width 0,500
height 0,410
for x = 1 to 6
 button 79+x
  left 79+x, x*41+20
  top 79+x, 35
  width 79+x,41
  font_name 79+x,"Symbol"
  caption 79+x,"­"
 button 85+x
  left 85+x, x*41+20
  top 85+x, 307
  width 85+x,41
  font_name 85+x,"Symbol"
  caption 85+x,"¯"
 button 91+x
  left 91+x,35
  top 91+x,x*41+20
  height 91+x,41
  width 91+x,25
  font_name 91+x,"Symbol"
  caption 91+x,"¬"
 button 97+x
  left 97+x,308
  top 97+x,x*41+20
  height 97+x,41
  width 97+x,25
  font_name 97+x,"Symbol"
  caption 97+x,"®"
for y = 1 to 6
 z= (x-1)*6+y
picture z
 top z, y*41+20
 left z, x*41+20
 width z,40
 height z,40
picture z+36
 top z+36, 41+y*9
 left z+36, 360+x*9
 width z+36,8
 height z+36,8
next y
next x
on_click 80,u1
on_click 81,u2
on_click 82,u3
on_click 83,u4
on_click 84,u5
on_click 85,u6
on_click 86,d1
on_click 87,d2
on_click 88,d3
on_click 89,d4
on_click 90,d5
on_click 91,d6
on_click 92,l1
on_click 93,l2
on_click 94,l3
on_click 95,l4
on_click 96,l5
on_click 97,l6
on_click 98,r1
on_click 99,r2
on_click 100,r3
on_click 101,r4
on_click 102,r5
on_click 103,r6

main_menu 105
sub_menu 106 : caption 106,"Reset" : parent 106, 105
on_click 106, init
sub_menu 107 : caption 107,"Changer direction" : parent 107, 105
on_click 107, chng
sub_menu 108 : caption 108,"Puzzle precédant" : parent 108, 105
on_click 108, prv
sub_menu 109 : caption 109,"Puzzle suivant" : parent 109, 105
on_click 109, nxt
sub_menu 110 : caption 110,"Info" : parent 110, 105
on_click 110, abt
alpha 111
caption 111,"Faites:"
font_color 111,255,255,255
font_bold 111
top 111,30:left 111,340
gosub init
end

init:
if lvl>24 then lvl=1
mov=0
for x=1 to 36
klr(x)=val(mid$(doel$(lvl),x,1))
if klr(x)=1
 color x+36, 255,0,0
else
 color x+36,0,255,0
end_if
next x
for x=1 to 36
klr(x)=val(mid$(level$(lvl),x,1))
if klr(x)=1
 color x,255, 0,0
else
 color x,0,255,0
end_if
next x
caption 0, "Puzzle "+str$(lvl)+". Vous avez utilisé " + str$(mov)+" / " +str$(req(lvl))+" pas nécessaires."
return

chng:
 test$=doel$(lvl)
 doel$(lvl)=level$(lvl)
 level$(lvl)=test$
 gosub init
return

nxt:
lvl=lvl+1
if lvl>24 then lvl=1
gosub init
return

prv:
lvl=lvl-1
if lvl<1 then lvl=24
gosub init
return

abt:
message "'Shuffle' game. Créé par Lode Van de Velde."+chr$(13)+chr$(13)+"© 2012 EspoSoft <lodchjo@yahoo.com>"
return

u1:
 x=klr(1)
 klr(1)=klr(2)
 klr(2)=klr(3)
 klr(3)=klr(4)
 klr(4)=klr(5)
 klr(5)=klr(6)
 klr(6)=x
gosub switch
return

u2:
 x=klr(7)
 klr(7)=klr(8)
 klr(8)=klr(9)
 klr(9)=klr(10)
 klr(10)=klr(11)
 klr(11)=klr(12)
 klr(12)=x
gosub switch
return

u3:
 x=klr(13)
 klr(13)=klr(14)
 klr(14)=klr(15)
 klr(15)=klr(16)
 klr(16)=klr(17)
 klr(17)=klr(18)
 klr(18)=x
gosub switch
return

u4:
 x=klr(19)
 klr(19)=klr(20)
 klr(20)=klr(21)
 klr(21)=klr(22)
 klr(22)=klr(23)
 klr(23)=klr(24)
 klr(24)=x
gosub switch
return

u5:
 x=klr(25)
 klr(25)=klr(26)
 klr(26)=klr(27)
 klr(27)=klr(28)
 klr(28)=klr(29)
 klr(29)=klr(30)
 klr(30)=x
gosub switch
return

u6:
 x=klr(31)
 klr(31)=klr(32)
 klr(32)=klr(33)
 klr(33)=klr(34)
 klr(34)=klr(35)
 klr(35)=klr(36)
 klr(36)=x
gosub switch
return

d1:
 x=klr(6)
 klr(6)=klr(5)
 klr(5)=klr(4)
 klr(4)=klr(3)
 klr(3)=klr(2)
 klr(2)=klr(1)
 klr(1)=x
gosub switch
return

d2:
 x=klr(12)
 klr(12)=klr(11)
 klr(11)=klr(10)
 klr(10)=klr(9)
 klr(9)=klr(8)
 klr(8)=klr(7)
 klr(7)=x
gosub switch
return

d3:
x=klr(18)
 klr(18)=klr(17)
 klr(17)=klr(16)
 klr(16)=klr(15)
 klr(15)=klr(14)
 klr(14)=klr(13)
 klr(13)=x
gosub switch
return

d4:
x=klr(24)
 klr(24)=klr(23)
 klr(23)=klr(22)
 klr(22)=klr(21)
 klr(21)=klr(20)
 klr(20)=klr(19)
 klr(19)=x
gosub switch
return

d5:
x=klr(30)
 klr(30)=klr(29)
 klr(29)=klr(28)
 klr(28)=klr(27)
 klr(27)=klr(26)
 klr(26)=klr(25)
 klr(25)=x
gosub switch
return

d6:
x=klr(36)
 klr(36)=klr(35)
 klr(35)=klr(34)
 klr(34)=klr(33)
 klr(33)=klr(32)
 klr(32)=klr(31)
 klr(31)=x
gosub switch
return

r1:
 x=klr(31)
 klr(31)=klr(25)
 klr(25)=klr(19)
 klr(19)=klr(13)
 klr(13)=klr(7)
 klr(7)=klr(1)
 klr(1)=x
gosub switch
return

r2:
 x=klr(32)
 klr(32)=klr(26)
 klr(26)=klr(20)
 klr(20)=klr(14)
 klr(14)=klr(8)
 klr(8)=klr(2)
 klr(2)=x
gosub switch
return

r3:
 x=klr(33)
 klr(33)=klr(27)
 klr(27)=klr(21)
 klr(21)=klr(15)
 klr(15)=klr(9)
 klr(9)=klr(3)
 klr(3)=x
gosub switch
return

r4:
 x=klr(34)
 klr(34)=klr(28)
 klr(28)=klr(22)
 klr(22)=klr(16)
 klr(16)=klr(10)
 klr(10)=klr(4)
 klr(4)=x
gosub switch
return

r5:
 x=klr(35)
 klr(35)=klr(29)
 klr(29)=klr(23)
 klr(23)=klr(17)
 klr(17)=klr(11)
 klr(11)=klr(5)
 klr(5)=x
gosub switch
return

r6:
 x=klr(36)
 klr(36)=klr(30)
 klr(30)=klr(24)
 klr(24)=klr(18)
 klr(18)=klr(12)
 klr(12)=klr(6)
 klr(6)=x
gosub switch
return

l1:
 x=klr(1)
 klr(1)=klr(7)
 klr(7)=klr(13)
 klr(13)=klr(19)
 klr(19)=klr(25)
 klr(25)=klr(31)
 klr(31)=x
gosub switch
return

l2:
 x=klr(2)
 klr(2)=klr(8)
 klr(8)=klr(14)
 klr(14)=klr(20)
 klr(20)=klr(26)
 klr(26)=klr(32)
 klr(32)=x
gosub switch
return

l3:
 x=klr(3)
 klr(3)=klr(9)
 klr(9)=klr(15)
 klr(15)=klr(21)
 klr(21)=klr(27)
 klr(27)=klr(33)
 klr(33)=x
gosub switch
return

l4:
 x=klr(4)
 klr(4)=klr(10)
 klr(10)=klr(16)
 klr(16)=klr(22)
 klr(22)=klr(28)
 klr(28)=klr(34)
 klr(34)=x
gosub switch
return

l5:
 x=klr(5)
 klr(5)=klr(11)
 klr(11)=klr(17)
 klr(17)=klr(23)
 klr(23)=klr(29)
 klr(29)=klr(35)
 klr(35)=x
gosub switch
return

l6:
 x=klr(6)
 klr(6)=klr(12)
 klr(12)=klr(18)
 klr(18)=klr(24)
 klr(24)=klr(30)
 klr(30)=klr(36)
 klr(36)=x
gosub switch
return

switch:
mov=mov+1
for x=1 to 36
 if klr(x)=1
  color x,255, 0,0
 else
  color x,0,255,0
 end_if
next x
caption 0, "Puzzle "+str$(lvl)+". Vous avez utilisé " + str$(mov)+" / " +str$(req(lvl))+" pas nécessaires."
test$=""
for x=1 to 36
 test$=test$+str$(klr(x))
next x
if test$=doel$(lvl) then message "Félicitations!!"+ str$(mov)+" / " +str$(req(lvl))+"  Au niveau suivant!":lvl=lvl+1:gosub init
return

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Jeu "shuffle"   Sam 28 Juil 2012 - 13:02

Merci pour ton Shuffle Wink Excellent comme d'habitude
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Jeu "shuffle"   Sam 28 Juil 2012 - 13:09

WHOUAI ! je vais encore avoir mal à la tête....

Bravo, cheers tout de même, on se demande où tu pêches les idées...

A+

Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Jeu "shuffle"   Sam 28 Juil 2012 - 14:31

N’est pas pêcheur qui veut !

Avant d’essayer, je cours chercher de l’aspirine. Qui sait ?
Jean Claude m’a prévenu !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 28 Juil 2012 - 14:55

Bon , j'ai fait le plein de valium et prozac, je peux tester !

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



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

MessageSujet: Re: Jeu "shuffle"   Sam 28 Juil 2012 - 15:33

Prenez vos vacances d'abord, vous verrez après pour l'établissement spécialisé geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Jeu "shuffle"   

Revenir en haut Aller en bas
 
Jeu "shuffle"
Revenir en haut 
Page 1 sur 1

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