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 Samegame

Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
Jean Claude

avatar

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

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 7:43

lol!

Avis aux utilisateurs: l'abus d'utilisation du jeu SameGame peut nuire gravement à la santé mentale du joueur, donc à consommer avec modération.

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



Nombre de messages : 125
Age : 69
Localisation : Ardennes françaises
Date d'inscription : 02/05/2012

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 7:59

"à la santé mentale du joueur, donc à consommer avec modération."

ou à modérer avec consommations ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

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

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 9:07

maelilou a écrit:
"à la santé mentale du joueur, donc à consommer avec modération."

ou à modérer avec consommations ?
Hahaha! Lequel va bien avec? Le rouge ou le blanc, Maître? Ou plutôt rosé?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
maelilou



Nombre de messages : 125
Age : 69
Localisation : Ardennes françaises
Date d'inscription : 02/05/2012

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 10:59

le petit jaune aussi... En France c'est le pastis.

Le vert, l'absinthe...

Le bleu, le curaçao etc.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

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

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 11:13

Hm, oké, moi perso, je prends du Cognac avec alors. ça va pas faire monter le score, mais autant plus l'ambience
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
bignono

avatar

Nombre de messages : 1127
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 11:17

A ce que je constate, c'est en train de tourner à la beuverie, là! lol!
Bon l'heure de l'apéro approche, à plus! Wink
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 Samegame   Lun 4 Juin 2012 - 12:24

Salut tout le monde.

Jean Claude n’arrive pas à dépasser le niveau 1. Surprised Surprised
Moi, je n’arrive pas à faire cet exploit : je dépasse TOUJOURS le niveau 1 et j’arrive parfois au niveau 5, rarement plus.

Mais, dis, Jean Claude, quelle stratégie infaillible utilises-tu pour NE PAS dépasser le niveau 1 ? Laughing Laughing

Quant tu commences le jeu, tu es sobre ou … ?
Pourquoi doit-on consommer avec modération ?

Consommer jusqu’à être rassasié, c’est tout ! Et advient que pourra !

@Lodchjo
Dans le prochain jeu, mets la phrase suivante(en gros caractères) « INTERDIT A JEAN CLAUDE » pour préserver sa santé mentale!

Boh ! Je divague peut-être. Pourtant je suis à jeun !

lol! lol! lol! lol! lol! lol!


Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 13:22

Papydall, je te rassure j'ai fini par dépasser le niveau I, comment ?, ben ch'sais pas trop.... lol!

Pour les prochains jeux, je préconise: Pas de m'interdire de jouer mais plutôt de faire un niveau spécial... lol!

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 13:28

En effet, c'est plus sympa Wink
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 Samegame   Lun 4 Juin 2012 - 13:46

D’autant plus que Jean Claude n’a pas voulu nous dévoiler sa stratégie.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 13:52

C'est par ce que la méthode aléatoire est soit complexe à décrire soit trop simple.
Exemple:
Il y a une case d'une couleur avec des couleur pareil autour, je clique par ce qu'il n'y en a pas trop du coup la fois d'après je clique là où il y en a plein ...

Autre exemple:
Toutes les secondes paires, je clique sur les rouge, sinon les secondes impairs, selon le sens du vent, je clique sur les bleus ou sur les verts ....

Bon allez, j'arrète, merci Jean-Claude d'avoir de l'auto dérision et de nous faire sourire sur ton dos Wink
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 Samegame   Lun 4 Juin 2012 - 14:26

Ah, non Jicehel. No No

Je ne souris Smile pas sur le dos de quiconque, mais je souris Smile sur ma chaise. Tu vois la scène ? Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 16:23

C'est moi qui rit,

Pour passer les niveaux suffit de cliquer sur "prochain niveau" geek

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

avatar

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

MessageSujet: +++   Lun 4 Juin 2012 - 19:25

@lodchjo :
Puisque tu cherches de belles recommandations à ajouter à ton programme,
j'aurais bien celle-ci à te proposer :

Avis aux utilisateurs :
ATTENTION : le danger d'addiction de ce jeu est tel
qu'il est recommandé de ne s'y adonner
que sous le contrôle strict d'un expert psychiatre
(ou bien, pour des raisons économiques,
de votre femme, ce qui revient finalement un peu au même).

Hein ? Qu'est-ce que tu penses de cette jolie phrase ?
C'est du beau français, non !?
Et puis, ça fait vachement sérieux, en plus !
Laughing Laughing Laughing 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 : 5951
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Jeu Samegame   Lun 4 Juin 2012 - 20:27

Moi, king Je préfère être sous le contrôle de ma femme queen
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Jeu Samegame   Jeu 7 Juin 2012 - 14:47

Ma femme est au niveau 8. Mais là, il y a un problème: même si deux cases adjacentes ont la même couleur (apparente en tout cas), elles ne s'éliminent pas en cliquant dessus. Elle arrive à tout enlever sauf une centaine de cases, dont beaucoup pourraient encore partir, mais on ne comprend pas pourquoi ce n'est pas possible.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
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 Samegame   Jeu 7 Juin 2012 - 20:05

Salut Klaus.

En effet, au niveau 8, il y a un problème et je l’ai signalé dans un précédent post.
Comment suis-je arrivé au niveau 8 ? En modifiant un peu le code : c’était juste pour voir ce niveau.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Jeu Samegame   Jeu 7 Juin 2012 - 22:44

Eh bien, mon épouse y arrive régulièrement, avec entre 5000 et 10000 points d'avance. mais il n'y a pas moyen d'avancer dans ce niveau. Certains regroupements de cases ne disparaissent pas, ou finissent par disparaître si on les a fait descendre jusqu'à la moitié inférieurs. D'autres laissent un ou deux carrés de leur couleur en place, d'autres encore disparaissent, mais laissent un carré d'une autre couleur, généralement noir. Ceci est vrai pour toutes les couleurs, même les invisibles. Vers la fin du niveau, alors qu'il reste encore environ 150 cases, la situation devient inextricable: plein de choses qu'on devrait pouvoir enlever, mais on n'y arrive pas.

Voici une copie d'écran prise assez au début du niveau 8, avec 3 annotations:


On a l'impression que le code couleur technique en mémoire est différents pour des cases de même couleur apparente. Est-ce que je dis des bêtises ? Je ne me suis pas plongé dans le programme.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Jeu Samegame   Ven 8 Juin 2012 - 2:10

J'ai regardé dans le programme et j'ai trouvé:
à la ligne 73, tu calcules la couleur aléatoire des cases. Or, cette valeur, censée rester entre 1 et 9 maxi, peut atteindre 10 par moment, d'où le blocage.
Avec la modif simplie ci-après:
Code:
 a(x,y)= int(rnd(lv+2)+1)
 if a(x,y)>9 then a(x,y) = 9 : ' klaus
le problème est résolu.

En corrigeant encore 2 ou 3 fautes de frappe dans les libellés, voici la version opérationnelle jusqu'au niveau 8 inclus:
Code:

application_title "SameGame"
label sg, dmn, init, nxt, drw, strt, mm, rst, hlp, xt
width 0,650:height 0,620:color 0,255,255,255:caption 0,"SameGame"
dim m,n,x,y,z, a(21,26), item, sk, k, b(1000),c(1000), a$, d(25), bl, lv, klr, klg, klb, kly, klp, kll, kln, klc, klw
main_menu 2000
sub_menu 2001:parent 2001,2000:caption 2001,"Nouveau jeu":on_click 2001, rst
sub_menu 2002:parent 2002,2000:caption 2002,"Prochain niveau":on_click 2002, nxt
sub_menu 2003:parent 2003,2000:caption 2003,"Aide":on_click 2003, hlp
sub_menu 2004:parent 2004,2000:caption 2004,"Sortie":on_click 2004, xt
form 2010:width 2010, 650:height 2010, 620:caption 2010,"SameGame":color 2010,0,255,0
memo 2011:parent 2011, 2010:left 2011, 5: top 2011, 5:width 2011, 630:height 2011, 495:font_name 2011, "Comic Sans MS": font_size 2011, 12:on_click 2011, mm
alpha 2012:parent 2012, 2010:left 2012, 5: top 2012, 505:width 2012, 300:height 2012, 25: font_size 2012, 12: caption 2012, "QUEL EST VOTRE NOM? (12 charactères max.):"
color 2012, 0,255,0:font_color 2012, 255,255,255:font_bold 2012
edit 2013:parent 2013, 2010:left 2013, 410: top 2013, 505:width 2013, 225:height 2013, 25: font_size 2013, 12
button 2014:parent 2014, 2010:left 2014, 5: top 2014, 540:width 2014, 630:height 2014, 40: caption 2014, "INITIALISATION . . . VEUILLEZ PATIENTER": on_click 2014, strt
inactive 2014
set_focus 2013
container 2019:top 2019,16:left 2019, 460:width 2019,165: height 2019, 170
alpha 2020:parent 2020, 2019:left 2020,10:top 2020, 20:caption 2020, "Joueur:":font_bold 2020
alpha 2021:parent 2021, 2019:left 2021,10:top 2021, 50:caption 2021, "Score:":font_bold 2021
alpha 2022:parent 2022, 2019:left 2022,10:top 2022, 80:caption 2022, "Niveau:":font_bold 2022
alpha 2023:parent 2023, 2019:left 2023,10:top 2023,110:caption 2023, "Bonus:":font_bold 2023
alpha 2024:parent 2024, 2019:left 2024,10:top 2024,140:caption 2024, "Carrés restants:":font_bold 2024
container 2025:top 2025,200:left 2025, 460:width 2025,165
alpha 2026:parent 2026, 2025:left 2026,10:top 2026, 20:font_bold 2026:font_color 2026,255,0,0: rem red
alpha 2027:parent 2027, 2025:left 2027,10:top 2027, 50:font_bold 2027:font_color 2027,0,255,0:rem green
alpha 2028:parent 2028, 2025:left 2028,10:top 2028, 80:font_bold 2028:font_color 2028,0,0,255:rem blue
alpha 2029:parent 2029, 2025:left 2029,10:top 2029, 110:font_bold 2029:font_color 2029,255,255,0:rem yellow
alpha 2030:parent 2030, 2025:left 2030,10:top 2030, 140:font_bold 2030:font_color 2030,255,0,255:rem pink
alpha 2031:parent 2031, 2025:left 2031,10:top 2031, 170:font_bold 2031:font_color 2031,0,255,255:rem light blue
alpha 2032:parent 2032, 2025:left 2032,10:top 2032, 200:font_bold 2032:font_color 2032,200,100,0:rem brown
alpha 2033:parent 2033, 2025:left 2033,10:top 2033, 230:font_bold 2033:font_color 2033,0,0,0:rem black
alpha 2034:parent 2034, 2025:left 2034,10:top 2034, 260:font_bold 2034:color 2034,0,0,0:font_color 2034,255,255,255:rem white
item_add 2011, " "
item_add 2011, string$(26," ")+"Instructions:"
item_add 2011, string$(25," ")+"---------------"
item_add 2011, " "
item_add 2011, "    - Le but du jeu c'est de vider le terrain de jeu."
item_add 2011, "    - Pour enlever des carrés, cliquez dessus."
item_add 2011, "    - Des carrés a coté de la même couleur vont être enlevé en même temps."
item_add 2011, "    - Pensez de manière stratégique pour enlever le plus de carrés possible."
item_add 2011, "    - Le plus de carrés enlevés en 1 seule fois, le plus élevé le bonus!"
item_add 2011, "    - Des carrés uniques ne peuvent pas être enlevés. Le minimum est 2."
item_add 2011, "    - Quand tous les carrés ont été enlevés, vous continuez au niveau superieur."
item_add 2011, "    - Si vous n'avez pas réussi a enlever tous les carrés, vous pouvez toujours"
item_add 2011, "      passer au niveau superieur, mais vous perdez 100 points pour chaque carré"
item_add 2011, "      qui reste. (Cliquez 'Prochain niveau' dans le menu.)"
item_add 2011, "    - Si tous les carrés sont enlevés, vous obtenez un bonus de 1.000 points!"
item_add 2011, "    - Une nouvelle couleur s'ajoute avec chaque niveau supérieur."
item_add 2011, "    - Le jeu est fini quand le score est negatif = vous avez perdu trop de points."
item_add 2011, " "
item_add 2011, string$(25," ")+"Programmé par Lodchjo © 2012 avec Panoramic Language."
item_add 2011, string$(25," ")+"(Jeu original par Kuniaki Moribe (Morisuke), 1985.)"
for y = 1 to 25
for x = 1 to 20
 picture x+y*25
 left x+y*25, x*21:height x+y*25, 20: width x+y*25, 20: top x+y*25,y*21:on_click x+y*25,sg
next x
next y
caption 2014, "DEMARRER  LE JEU":active 2014
lv=1
sk=0
gosub init
end
init:
bl=500
m=0
klr=0:klg=0:klb=0:kly=0:kll=0:kln=0:klc=0:klw=0:klp=0
caption 2021,"Score: "+str$(sk):caption 2022, "Niveau: "+str$(lv):caption 2023,"Bonus: "+str$(m*(m-1)):caption 2024,"Carrés restants: "+str$(bl)
for y = 1 to 25
for x = 1 to 20
 a(x,y)= int(rnd(lv+2)+1)
 if a(x,y)>9 then a(x,y) = 9 : ' klaus
 gosub drw
 show x+y*25
next x
next y
caption 2026, str$(int(klr/(lv+4))) + "% carrés rouges"
caption 2027, str$(int(klg/(lv+4))) + "% carrés verts"
caption 2028, str$(int(klb/(lv+4))) + "% carrés bleus"
if kly>0 then caption 2029, str$(int(kly/(lv+4))) + "% carrés jaunes"
if klp>0 then caption 2030, str$(int(klp/(lv+4))) + "% carrés roses"
if kll>0 then caption 2031, str$(int(kll/(lv+4))) + "% carrés bleu clairs"
if kln>0 then caption 2032, str$(int(kln/(lv+4))) + "% carrés bruns"
if klc>0 then caption 2033, str$(int(klc/(lv+4))) + "% carrés noirs"
if klw>0 then caption 2034, str$(int(klw/(lv+4))) + "% carrés blancs"
height 2025, 80+lv*30
return
sg:
item = number_click
if number_change>0 then item = number_change
if item>0
 x=mod(item,25)
 y=(item-x)/25
 k=a(x,y)
 if a(x-1,y)<>k and a(x+1,y)<>k and a(x,y+1)<>k and a(x,y-1)<>k then return
 hide item:sk=sk+1:bl=bl-1
 caption 2021,"Score: "+str$(sk):caption 2022, "Niveau: "+str$(lv):caption 2023,"Bonus: "+str$(m*(m-1)):caption 2024,"Carrés restants: "+str$(bl)
 a(x,y)=0
 b(1)=x:c(1)=y
end_if
 if k<>0 then gosub dmn
return
dmn:
 n=1
 m=0
 repeat
 n=n-1
 if x>1 and a(x-1,y)=k then n=n+1:m=m+1:b(n)=x-1:c(n)=y:sk=sk+1:bl=bl-1
 if x<20 and a(x+1,y)=k then n=n+1:m=m+1:b(n)=x+1:c(n)=y:sk=sk+1:bl=bl-1
 if y>1 and a(x,y-1)=k then n=n+1:m=m+1:b(n)=x:c(n)=y-1:sk=sk+1:bl=bl-1
 if y<25 and a(x,y+1)=k then n=n+1:m=m+1:b(n)=x:c(n)=y+1:sk=sk+1:bl=bl-1
 for z=1 to n
  hide b(z)+c(z)*25:a(b(z),c(z))=0
 next z
 x=b(n):y=c(n)
 until n=0
 sk=sk+m*(m-1)
 caption 2021,"Score: "+str$(sk):caption 2022, "Level: "+str$(lv):caption 2023,"Bonus: "+str$(m*(m-1)):caption 2024,"Carrés restants: "+str$(bl)
 wait 50
 if bl=0 then message "Félicitations!! Jeu parfait!":goto nxt
rem -------------------------- fl=falling blocks
for x = 1 to 20
 for y = 0 to 24
  if a(x,y)<>0 and a(x,y+1)=0 then a(x,y+1)=a(x,y):a(x,y)=0:show (x+(y+1)*25):hide (x+y*25):y=0
 next y
 for y = 1 to 25
  gosub drw
 next y
next x
rem ---------------------------- check for empty columns
z=0
c(1)=0
for x = 1 to 20
 d(x)=0
 for y=1 to 25
  d(x)=d(x)+a(x,y)
 next y
next x
rem ------------------------------ move columns
for x = 1 to 19
 if d(x+1)<>0 and d(x)=0
 d(x)=d(x+1):d(x+1)=0
 for y = 1 to 25
  a(x,y)=a(x+1,y):a(x+1,y)=0:hide (x+1+y*25)
  gosub drw
 next y
 x=1
 end_if
next x
return
nxt:
 if bl>0 then sk = sk-bl*100:message "Vous perdez "+str$(bl*100)+" points!"
 if bl=0 then sk = sk+1000:message "Vous gagnez 1000 points!"
 caption 2021,"Score: "+str$(sk):caption 2022, "Level: "+str$(lv):caption 2023,"Bonus: "+str$(bl*100):caption 2024,"Carrés restants: "+str$(bl)
 if sk <0 then message "Game Over":lv=0:sk=0: show 2014
 lv=lv+1:if lv>8 then lv=1
 goto init
return
drw:
  select a(x,y)
  case 0
  hide x+y*25
  case 1
  color x+y*25, 255,0,0:show x+y*25
  if bl=500 then klr=klr+1
  case 2
  color x+y*25, 0,255,0:show x+y*25
  if bl=500 then klg=klg+1
  case 3
  color x+y*25, 0,0,255:show x+y*25
  if bl=500 then klb=klb+1
  case 4
  color x+y*25, 255,255,0:show x+y*25
  if bl=500 then kly=kly+1
  case 5
  color x+y*25, 255,0,255:show x+y*25
  if bl=500 then klp=klp+1
  case 6
  color x+y*25, 0,255,255:show x+y*25
  if bl=500 then kll=kll+1
  case 7
  color x+y*25, 200,100,0:show x+y*25
  if bl=500 then kln=kln+1
  case 8
  color x+y*25, 0,0,0:show x+y*25
  if bl=500 then klc=klc+1
  case 9
  color x+y*25, 255,255,255:show x+y*25
  if bl=500 then klw=klw+1
 end_select
return
strt:
 caption 2020, "Player: "+left$(text$(2013),12)
 hide 2010
return
mm:
 set_focus 2013
return
rst:
 show 2010
 sk=0
 caption 2021,"Score: "+str$(sk):caption 2022, "Level: "+str$(lv):caption 2023,"Bonus: "+str$(m*(m-1)):caption 2024,"Carrés restants: "+str$(bl)
 gosub init
return
hlp:
 show 2010
return
xt:
 terminate

Bientôt, on saura ce qui se passe à la fin du 8ème niveau ! Je n'ai pas voulu gâcher le plaisir en le forçant comme je pourrais le faire via le source, ou en cherchant dans le source ce qui se passera. On verra bien en jouant !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
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 Samegame   Ven 8 Juin 2012 - 12:37

Salut Klaus.

Bravo pour avoir corrigé le bug dans le jeu SameGame.
J’ai testé et voici où je suis arrivé.




lol! lol! lol!


A+

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
lodchjo

avatar

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

MessageSujet: Re: Jeu Samegame   Dim 17 Juin 2012 - 10:18

Merci Klaus!
Désolé d'avoir décroché un peu a cause de mon boulot qui était plus prenant que d'habitude.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
Contenu sponsorisé




MessageSujet: Re: Jeu Samegame   

Revenir en haut Aller en bas
 
Jeu Samegame
Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2

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: