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
» Version instantanée V 0.9.28i8 possédant l'objet SYNEDIT
par Laurent (Minibug) Aujourd'hui à 14:42

» KGF_dll - nouvelles versions
par Yannick Aujourd'hui à 13:17

» @Klaus
par Yannick Aujourd'hui à 13:06

» Compilateur FBPano
par jean_debord Aujourd'hui à 11:47

» Form [formulaires annexes]
par Jean Claude Aujourd'hui à 1:39

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Jeu 25 Mai 2017 - 22:50

» KG.dll - nouveautés en cours de préparation
par Klaus Jeu 25 Mai 2017 - 22:48

» Outils couleurs
par Yannick Jeu 25 Mai 2017 - 19:22

» bug number_events : toujours égal à 0
par silverman Mer 24 Mai 2017 - 15:36

» bug ON_MOVE N,L : actif que sur form 0
par silverman Mer 24 Mai 2017 - 15:30

» Testez vos connaissances
par Yannick Mar 23 Mai 2017 - 13:37

» Castle game Engine
par Jicehel Lun 22 Mai 2017 - 12:05

» Pb pour matheux
par Yannick Dim 21 Mai 2017 - 20:47

» Othello
par Laurent (Minibug) Dim 21 Mai 2017 - 11:04

» Problème au lancement de Panoramic.
par Marc37 Dim 21 Mai 2017 - 10:10

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2017
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Question pour des gamers...

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

Pénalités Enigme ou simple
Enigme à résoudre
75%
 75% [ 3 ]
Pénalité sèche
25%
 25% [ 1 ]
Total des votes : 4
 

AuteurMessage
Yannick

avatar

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

MessageSujet: Question pour des gamers...   Sam 18 Aoû 2012 - 0:12

Donnez moi vôtre avis,

je suis entrain de faire un remake d'un jeu de société très connu
mais en mono joueur.
Donc, je suis obligé d' adapter certaines règles dont les pénalités.

Que vaut il mieux :

une pénalité style enigme à résoudre ?

ou une pénalité tout court ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5834
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Question pour des gamers...   Sam 18 Aoû 2012 - 0:19

A voté ! Mais bon, ça dépend un peu du jeu aussi ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2266
Localisation : Vienne (86) - FRANCE
Date d'inscription : 10/02/2012

MessageSujet: Re: Question pour des gamers...   Sam 18 Aoû 2012 - 0:31

Il faudrai savoir de quel jeu il s'agit !

mais je pencherai plutot pour une pénalité tout court afin de ne pas surcharger le jeu.
Mais après faut voir...

Et puis je dis ca, je dis rien Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Sam 18 Aoû 2012 - 0:51

@ Jicehel

Si je dis tout, il n'y a plus de surprise... Laughing

@ minibug

Ce qui m'intéresse c'est ce que tu en dis, pas ce que tu n'en dis pas...
si tu ne dis rien, c'est trop court pour envisager quelque chose... Laughing


Bon, aller, comme j'suis un gars sympa ... Wink

j'ai repris le grand classique du jeu de l'oie...

Code:
dim de%(2)                    :' valeur des des
dim C%                        :' cas rencontré
dim P% ,New_P%,Inter_P%,rec%  :' point du parcours
dim T%                        :' No du tours
dim x% ,y%                    :' Variable passe partout
dim Doss_Img$,img$(63),de$(6)  :' adresse des images
dim M%                        :' variable du menu
dim A%,CP%,mn%                :' choix de l'amende
' ------------------------------------------------------------------------------
label Init,Init_Partie
label Menu,choix,Ss_choix,Valid_choix,Arret,APp,AIde,Quitter
label Lancer,Parcours,Avancer,Reculer,Amende,Fin_Partie
' ------------------------------------------------------------------------------
width 0,500:height 0,350:top 0,(screen_y-350)/2:left 0,(screen_x-500)/2
caption 0,"Jeu de l'Oie":font_name 0,"Times new roman":font_size 0,10

main_menu 1
 sub_menu 2:parent 2,1:caption 2,"Jeu"
    sub_menu 10:parent 10,2:caption 10,"Nouvelle Partie"  :on_click 10,Menu
    sub_menu 11:parent 11,2:caption 11,"Arrêter"          :on_click 11,Menu
    sub_menu 12:parent 12,2:caption 12,"Quitter"          :on_click 12,Menu
 sub_menu 3:parent 3,1:caption 3,"Options"
    sub_menu 13:parent 13,3:caption 13,"Choix des amendes":on_click 13,Menu
 sub_menu 14:parent 14,1:caption 14,"A Propos..."        :on_click 14,Menu
 sub_menu 15:parent 15,1:caption 15,"Aide"                :on_click 15,Menu

scene2d 100
sprite_target_is 100:width 100,150:height 100,150:top 100,10:left 100,300
sprite 64:sprite_file_load 64,Dir_current$+"\Img\Vierge2.bmp"

alpha 101  :top 101,170:left 101,300
picture 103:width 103,45:height 103,45:top 103,180:left 103,50
picture 104:width 104,45:height 104,45:top 104,180:left 104,100

button 105 :width 105,20:height 105,20:top 105,235:left 105,87
font_name 105,"Webdings":caption 105,"4":hint 105,"Lancer les dés":cursor_point 105
on_click 105,Lancer

gosub Init
gosub choix
end
' ------------------------------------------------------------------------------
Init:
  Doss_Img$=dir_current$+"\Img\"
  for x%=1 to 63
      Img$(x%)=Doss_Img$+str$(x%)+".bmp"
      sprite x% :sprite_hide x% :sprite_file_load x%,Img$(x%)
  next x%
  for x%=1 to 6
      de$(x%)=Doss_Img$+"dj"+str$(x%)+".jpg"
  next x%
  file_load 103,de$(6)
  file_load 104,de$(6)
  inactive 105
return
' ------------------------------------------------------------------------------
Menu:
  for x%=10 to 15
      if clicked(x%)=1 then M%=x%
  next x%
 
  Select M%
  case 10
    active 105
    inactive 13
    gosub Init_Partie
  case 11
    gosub Arret
  case 12
    gosub Quitter
  case 13
    gosub choix
  case 14
    gosub APp
  case 15
    gosub Aide
  end_select
return
' ------------------------------------------------------------------------------
Init_Partie:
  T%=0
  P%=0
  New_P%=0
  for x%=1 to 63
      sprite_x_position x%,150:sprite_show x%
  next x%
return
' ------------------------------------------------------------------------------
Lancer:
  inactive 105
  T%=T%+1
  C%=0
  de%(1)=int(rnd(5))+1
  de%(2)=int(rnd(5))+1
  for x%=1 to 6
      file_load 103,de$(x%)
      file_load 104,de$(x%)
      wait 150
  next x%
  file_load 103,de$(de%(1))
  file_load 104,de$(de%(2))
  sprite_hide 64
  gosub Parcours
return
' ------------------------------------------------------------------------------
Parcours:
  if T%=1
      if (de%(1)=5 and de%(2)=4) or (de%(1)=4 and de%(2)=5)
        C%=1
      else
        if (de%(1)=6 and de%(2)=3) or (de%(1)=3 and de%(2)=6)
            C%=2
        else
            if de%(1)+de%(2)=6
              C%=3
            else
              C%=4
            end_if
        end_if
      end_if
  else
      New_P%=P%+de%(1)+de%(2)
      if New_P%=9 or New_P%=18 or New_P%=27 or New_P%=36 or New_P%=45 or New_P%=54
        C%=5
      end_if
      if New_P%=19
        C%=6
      end_if
      if New_P%=31
        C%=7
      end_if
      if New_P%=42
        C%=8
      end_if
      if New_P%=52
        C%=9
      end_if
      if New_P%=58
        C%=10
      end_if
      if New_P%>63
        C%=11
      end_if
      if C%=0 then C%=12
  end_if


      select C%
      case 1
        New_P%=53
        caption 101, "Vous avez fait 5 et 4,"+chr$(13)+"vous allez directement en case 53..."
        gosub Avancer
        caption 101,""
      case 2
        New_P%=26
        caption 101,"Vous avez fait 6 et 3,"+chr$(13)+"vous allez directement en case 26..."
        gosub avancer
        caption 101,""
      case 3
        New_P%=6
        gosub Avancer
        caption 101, "Vous êtes sur le pont"+chr$(13)+"allez en case 12..."
        wait 100
        P%=7
        New_P%=12
        gosub Avancer
        caption 101,""
      case 4
        New_P%=P%+de%(1)+de%(2)
        gosub Avancer
      case 5
        gosub Avancer
        P%=New_P%+1
        New_P%=New_P%+de%(1)+de%(2)
        caption 101, "Vous êtes sur une oie,"+chr$(13)+"Votre tirage est doublé.."
        gosub Avancer
        message str$(New_P%)
        caption 101,""
      case 6
      ' paie l'amende et attends 2 tours
        gosub Avancer
        caption 101,"Vous devez payer l'amende !..."
        gosub Amende
      case 7
      ' paie l'amende et attends qu'un autre entre sur la case et prends sa case depart
        gosub Avancer
        caption 101,"Vous devez payer l'amende !..."
        gosub Amende
        rec%=mn%
        caption 101,"Vous reculez de :"+str$(rec%)+" cases"
        gosub Reculer
        caption 101,""
      case 8
      ' paie l'amende et va au no 30
        gosub Avancer
        caption 101,"Vous devez payer l'amende !..."
        gosub Amende
        caption 101,"Vous retournez à la case 30"
        rec%=12
        gosub Reculer
        caption 101,""
      case 9
      ' idem 7
        gosub Avancer
        caption 101,"Vous devez payer l'amende !..."
        gosub Amende
        rec%=mn%
        caption 101,"Vous reculez de :"+str$(rec%)+" cases"
        gosub Reculer
        caption 101,""
      case 10
      ' paie l'amende et retourne à la case départ
        gosub Avancer
        caption 101,"Pas de Chance, vous retournez à la case départ !
        gosub Init_Partie
        caption 101,""
      case 11
      ' sup 63
        Rec%=New_P%-63
        New_P%=63
        gosub Avancer
        caption 101,"Vôtre lancé donne plus de 63,"+chr$(13)+"vous de vez reculer de :"+str$(rec%)+" cases"
        gosub Reculer
        caption 101,""
        goto Parcours
      case 12
        gosub Avancer
      end_select


  P%=New_P%
  if P%=63 then gosub Fin_Partie
  active 105
return
' ------------------------------------------------------------------------------
Avancer:
  if P%=0 then P%=1
  for x%= P% to New_P%
      for y%=1 to 150
      if x%>1 then sprite_x_position x%-1,sprite_x_position(x%-1)-1
      sprite_x_position x%,sprite_x_position(x%)-1
      wait 5
      next y%
  next x%
return
' ------------------------------------------------------------------------------
Reculer:
  if rec%>0
      for x%=New_P% to (New_P%-rec%)
        for y%=1 to 150
            sprite_x_position x%,sprite_x_position(x%)+1
            sprite_x_position x%-1,sprite_x_position(x%-1)+1
        next y%
      next x%
  end_if
return
' ------------------------------------------------------------------------------
Amende:
  if A%=1
    gosub puzzle
  else
    mn%=CP%
    gosub Reculer
  end_if
return
' ------------------------------------------------------------------------------
Puzzle:
return
' ------------------------------------------------------------------------------
Fin_Partie:
  inactive 105
  active 13
  sprite_show 64
  message "Bravo ! Vous avez Gagné !"
return
' ------------------------------------------------------------------------------
choix:
  if object_exists(200)=1
      show 200
  else
      Form 200:width 200,300:height 200,150:top 200,(screen_y-150)/2:left 200,(screen_x-300)/2
      font_name 200,"Times new roman":font_size 200,10:caption 200,"Options"
      command_target_is 200
      container_option 201:top 201,5:left 201,5:width 201,120
      option 202:parent 202,201:top 202,20:left 202,5:caption 202,"Puzzle":on_click 202,Ss_choix
      cursor_point 202
      option 203:parent 203,201:top 203,60:left 203,5:caption 203,"Cases":on_click 203,Ss_choix
      cursor_point 203
      alpha 204: top 204,15:left 204,130:caption 204,"Nbre de cases de pénalité"
      spin 205 : top 205,40:left 205,130:width 205,60:min 205,0:max 205,10:inactive 205
      button 206:top 206,83:left 206,200:caption 206,"Valider":on_click 206,Valid_choix
      cursor_point 206
  end_if
return
' ------------------------------------------------------------------------------
Ss_choix:
  if checked(202)=1
      inactive 205
      A%=1
  end_if
  if checked(203)=1
      active 205
      A%=0
  end_if
return
' ------------------------------------------------------------------------------
Valid_choix:
  if active(205)=1 then CP%=val(text$(205))
  if checked(202)=0 and checked(203)=0
      message "Vous devez choisir un mode de pénalité"
  else
      hide 200
  end_if
return
' ------------------------------------------------------------------------------
Arret:
  if message_confirmation_yes_no("Etes vous sûr de vouloir arrêter ?")=1
    sprite_show 64
    gosub Init_Partie
  end_if
return
' ------------------------------------------------------------------------------
APp:
return
' ------------------------------------------------------------------------------
Aide:
return
' ------------------------------------------------------------------------------
Quitter:
Terminate


Dernière édition par ygeronimi le Sam 18 Aoû 2012 - 4:58, édité 3 fois (Raison : avancement du code)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5834
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Question pour des gamers...   Sam 18 Aoû 2012 - 0:54

Pour un jeu de l'oie, fait les 2, plus de pénalités sèches puisque c'est l'esprit du jeu de base, mais quelques pénalités soumises à énigme sur certaines cases, ce serait original Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Sam 18 Aoû 2012 - 1:02

Je viens de ré éditer avec l'avancée du schmilblick.

L'idée est de reprendre exactement les règles avec les numéros de cases à piège etc...
Sauf que là, on ne peut pas attendre l'arrivée d'un autre joueur pour sortir de certaines cases... Wink
donc je pensais mettre des pénalités soit sèche ( on recule de x cases ) soit à énigme ( type puzzle )
où le nombre de minutes pour résoudre le truc devienne le nombre de cases de recul.

c'est un jeu deux en un... Laughing Laughing


edit : les images sont dispo sur mon webdav dans le dossier "programme en cours" Zip Jeu
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Question pour des gamers...   Sam 18 Aoû 2012 - 1:33

I voted.
j'ai voté.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Question pour des gamers...   

Revenir en haut Aller en bas
 
Question pour des gamers...
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Question pour sous forum Complet avec icones
» Question pour les colonnes.
» Question pour image de catégorie
» question pour le QEEL
» Interview d'un professionnel dans le secteur Télécom/Informatique

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Présentation et bavardage-
Sauter vers: