Un système de dialogue avec une limite de temps à la telltale

function Tell_Option(String say, int ID_button, String couleur, int ID_dialogue,  int Option_dial){
  
 
  gTell_system.Controls[ID_button].AsButton.Visible = true;
  gTell_system.Visible=true;  
    
            if(couleur == "R") {
                        gTell_system.Controls[ID_button].AsButton.TextColor = 61505;
                         TimerDial.Visible=true; // La couleur rouge est spécial, elle fonctionne avec un timer
                         Timer_Dialog = 10; // Par défaut, le temps est de 10. Dans l'absolu, je vais bidouiller
                                 //Un sytème pour avoir une timer personnalisable selon les conditions de jeu
                         }
                 else if (couleur == "B") gTell_system.Controls[ID_button].AsButton.TextColor = 1055;
                           else gTell_system.Controls[ID_button].AsButton.TextColor = 16;
        
    
    gTell_system.Controls[ID_button].AsButton.Text = say;
  
   // memory_say[ID_button] = say.Copy();
    memory_chars_ID[ID_button] = ID_dialogue;
    memory_opt[ID_button] = Option_dial;
  
 

  
}

function Tell_Say(int Option_nbr){
  
  int D;
  int O;
  
  D = memory_chars_ID[Option_nbr];
  O = memory_opt[Option_nbr];
   PNJ[D]  = O;
  
  //Display(" PNJ[%d] =%d ",D,  memory_opt[Option_nbr]);

  

  
  for(int i = 0; i<gTell_system.ControlCount;i++) {
  gTell_system.Controls[i].AsButton.Visible = false;
}
    gTell_system.Visible=false;
    
  
  //player.Say(memory_say[Option_nbr]);
  //dialog[D].SetOptionState(O, eOptionOn);
  
  dialog[D].Start();
  
  
}

Tell_Say(control.ID);

// Dialog script file
@S  // Dialog startup entry point
    
  //Dialogue avec le perso test cChar1;
  //////////////////////////////////////////////// ////////////////////////////
  //        Testons ensemble le système d'option,
  //         Le timer ... et évaluons la relouitude de cette méthodologie//
  //            Youpi !
  //////////////////////////////////////////////////////////////////////
  int Option;
  
  Option =  PNJ[dDialog1.ID];
  
  gTell_system.Y = (System.ScreenHeight/2);
  
  
  
  if(Timer_Dialog == 0) { PNJ[dDialog1.ID] = Critique_opt;
  dDialog1.Start();}
  
  
  
  
  
  
  
   if(Option == 0) {
    
    //INTRO
    Tell_Option("*L'insulter*Je ne veux rien de spécial pour toi",0,"N",dDialog1.ID,1);
    Tell_Option("Je suis un ange",1,"B",dDialog1.ID,2);
    Tell_Option("Je suis un démon",2,"N",dDialog1.ID,3);
    Tell_Option("Je me tire",3,"N",dDialog1.ID,5);
    
    
  }
  
  
  
  
  
  if(Option== 1) {

 //Je ne veux rien de spécial//
player:"Je ne veux rien de spécial avec toi mais peut être avec ta soeur, je suis un rebelle !!!"
Char1:"Tu es surtout un foufou dans ta teuté  ?"
player:"Pourquoi, j'en ai fait trop ?"
Char1:"Tu dis n'importe quoi surtout..."
Char1:"Je dis ça, je ne veux pas insulter les malades mentaux non plus..."
    Tell_Option("C'est pas faux, j'ai un peu craqué mon slip",0,"N",dDialog1.ID,6);
    Tell_Option("Je faisais de l'humour",1,"B",dDialog1.ID,7);
    Tell_Option("Je suis un ouf de chez ouf !",2,"N",dDialog1.ID,8);
    Tell_Option("Je me tire",3,"N",dDialog1.ID,5);
    gTell_system.Visible=true;  

    
    
 }
 
 
 
 
 if(Option == 6) {
   //J'ai craqué mon slip//
player:"C'est pas faux, j'ai craqué mon slip !"  
Char1:"Tu portes un slip kangourou ?"  
   Tell_Option("Je faisais de l'humour",0,"B",dDialog1.ID,7);
    Tell_Option("Je suis un ouf de chez ouf !",1,"N",dDialog1.ID,8);
    Tell_Option("Je me tire",2,"N",dDialog1.ID,5);
  
  
  
  
 }
 
 
 if(Option == 7) {
   //Je faisais de l'humour//
player:"Je faisais de l'humour"  
cChar1:"Mort ... de ... rire . . ."  
 Tell_Option("C'est pas faux, j'ai un peu craqué mon slip",0,"N",dDialog1.ID,6);
 Tell_Option("Je suis un ouf de chez ouf !",1,"N",dDialog1.ID,8);
 Tell_Option("Je me tire",2,"N",dDialog1.ID,5);
 }
 
 
 if(Option ==  {
   //Je suis un ouf ...//
player:"Je suis un ouf de chez ouf !"  
cChar1:"C'est cela oui ... "  
 Tell_Option("Je faisais de l'humour",0,"N",dDialog1.ID,7);
 Tell_Option("C'est pas faux, j'ai un peu craqué mon slip",1,"N",dDialog1.ID,6);
 Tell_Option("Je me tire",2,"N",dDialog1.ID,5);
 }
 
 
 
 
 
 
 
  if(Option == 2) {
      
      
  //Je suis un ange//
player:"Je suis un ange"
narrator:L'homme vous fixe, interrogatif.
player:"Pourquoi, j'en ai fait trop ?"
Char1:"Tu dis n'importe quoi surtout..."
Char1:"Je dis ça, je ne veux pas insulter les malades mentaux non plus..."  
    Tell_Option("C'est pas faux, j'ai un peu craqué mon slip",0,"N",dDialog1.ID,6);
    Tell_Option("Je faisais de l'humour",1,"N",dDialog1.ID,7);
    Tell_Option("Je suis un ouf de chez ouf !",2,"N",dDialog1.ID,8);
    Tell_Option("Je me tire",3,"N",dDialog1.ID,5);
    gTell_system.Visible=true;  
    }
 
 if(Option== 3) {


  //Je suis un démon//
player:"Je suis un démon !"
narrator:L'homme vous fixe, interrogatif.
player:"Pourquoi, j'en ai fait trop ?"
Char1:"Tu dis n'importe quoi surtout..."
Char1:"Je dis ça, je ne veux pas insulter les malades mentaux non plus..."  
    Tell_Option("C'est pas faux, j'ai un peu craqué mon slip",0,"N",dDialog1.ID,6);
    Tell_Option("Je faisais de l'humour",1,"N",dDialog1.ID,7);
    Tell_Option("Je suis un ouf de chez ouf !",2,"N",dDialog1.ID,8);
    Tell_Option("Je me tire",3,"N",dDialog1.ID,5);
    gTell_system.Visible=true;  

   }


 

  
  
  
  
  
  
   /////////Option de reprise de dialogue
  if (Option == -1) {
    
    
cChar1: Encore toi ?
    

    Tell_Option("Je suis un ange",1,"B",dDialog1.ID,2);
    //////////////////////////////////////////////////////
    Tell_Option("Je suis un démon",2,"R",dDialog1.ID,3); //// Cette Option, induit que la question -Encore toi-, apporte son lot de souffrance. Nous avons 3 secondes pour répondre //
    //Sinon
    Critique_opt = 9; // L'option critique est celle qui sera lu, si l'on ne prend pas de décision à temps.
    
    ///////////////////////////////////////////////////
    
    Tell_Option("Je me tire",3,"N",dDialog1.ID,5); //
    
   }
  
  
  
  
  
  /////////////////////////////////////////////////////
  
  if(Option == 5) {

  //Opt qui sert à quitter le dialogue
player:"Je me tiiiire !  Dans un endroit où je ne serai pas le suspect ! Un endroit où j'aurais plus besoin de prendre le mic'";  
Char1:"Salut gros naz !"
  
  PNJ[dDialog1.ID]= -1;
  
  StopDialog();
  }
  
    
  
  
  



 if(Option == 9) {
   //Replique due au stress//
  Timer_Dialog = -1;  
player: ENCULE !!!!!!!  //Pas bien !//

    //////////Testons un système de brouillage opt pour apporter un feedback ?//
    Tell_Option("@####!",0,"N",dDialog1.ID,5);
    Tell_Option("@#!\\##0#!",1,"N",dDialog1.ID,5);
    Tell_Option("*##*@##!",2,"N",dDialog1.ID,5);
    Tell_Option("##*##*@##!",3,"N",dDialog1.ID,5);
 

Char1:"?!"
  
  PNJ[dDialog1.ID]= -1;
  
  StopDialog();

  
 }

stop



@1
return
@2
return
@3
return
@4
return
@5
return
@6
return
@7
return
@8
return
@9
return

#define DIALOGTIMERID 20
#define DIALOGTIMERDELAY 200

Dialog* currentdialog;
int defaultoption;
int delaydialog;
bool launchTimer;

function defaultOption(this Dialog*, int option, int delay){
    if (option < 1 || option > this.OptionCount){
      currentdialog = null;
      SetTimer(DIALOGTIMERID, 0);
      return;
    }
    currentdialog = this;
    defaultoption = option;
    delaydialog = DIALOGTIMERDELAY;
    if (delay > 0)
      delaydialog = delay;
    launchTimer = true;
}

bool isDefaultOn(DialogOptionsRenderingInfo* info) {
  return (currentdialog == info.DialogToRender && defaultoption > 0 && defaultoption <= info.DialogToRender.OptionCount && info.DialogToRender.GetOptionState(defaultoption) == eOptionOn);
}


// Code ci-dessous copie depuis https://www.adventuregamestudio.co.uk/manual/ags41.htm (+ 3 petits ajouts)

int dlg_opt_color = 14;
int dlg_opt_acolor = 13;
int dlg_opt_ncolor = 4;

function dialog_options_get_dimensions(DialogOptionsRenderingInfo *info)
{
  // Create a 200x200 dialog options area at (50,100)
  info.X = 50;
  info.Y = 100;
  info.Width = 200;
  info.Height = 200;
  // Enable alpha channel for the drawing surface
  info.HasAlphaChannel = true;
  // Put the text parser at the bottom (if enabled)
  info.ParserTextBoxX = 10;
  info.ParserTextBoxY = 160;
  info.ParserTextBoxWidth = 180;
}

function dialog_options_render(DialogOptionsRenderingInfo *info)
{
  info.Surface.Clear(dlg_opt_color);
  int i = 1,  ypos = 0;
  // Render all the options that are enabled
  while (i <= info.DialogToRender.OptionCount)
  {
    if (info.DialogToRender.GetOptionState(i) == eOptionOn)
    {
      if (info.ActiveOptionID == i)
        info.Surface.DrawingColor = dlg_opt_acolor;
      else
        info.Surface.DrawingColor = dlg_opt_ncolor;
        
      info.Surface.DrawStringWrapped(5, ypos, info.Width - 10,
              eFontfntDefault, eAlignLeft, info.DialogToRender.GetOptionText(i));
      ypos += GetTextHeight(info.DialogToRender.GetOptionText(i), eFontfntDefault, info.Width - 10);
    }
    i++;
  }
  // J'ai ajoute ca :
  if (isDefaultOn(info) && !IsTimerExpired(DIALOGTIMERID) && launchTimer){
    SetTimer(DIALOGTIMERID, delaydialog);
    launchTimer = false;
  }
  // ----
}

function dialog_options_repexec(DialogOptionsRenderingInfo *info)
{
  // Et puis ca aussi :
  if (isDefaultOn(info) && IsTimerExpired(DIALOGTIMERID)){
    info.ActiveOptionID = defaultoption;
    info.RunActiveOption();
    return;
  }
  // ----
  
  info.ActiveOptionID = 0;
  if (mouse.y < info.Y || mouse.y >= info.Y + info.Height ||
      mouse.x < info.X || mouse.x >= info.X + info.Width)
  {
    return; // return if the mouse is outside UI bounds
  }
  
  int i = 1, ypos = 0;
  // Find the option that corresponds to where the mouse cursor is
  while (i <= info.DialogToRender.OptionCount)
  {
    if (info.DialogToRender.GetOptionState(i) == eOptionOn)
    {
      ypos += GetTextHeight(info.DialogToRender.GetOptionText(i), eFontfntDefault, info.Width - 10);
      if ((mouse.y - info.Y) < ypos)
      {
        info.ActiveOptionID = i;
        return;
      }
    }
    i++;
  }
}

function dialog_options_mouse_click(DialogOptionsRenderingInfo *info, MouseButton button)
{
  if (info.ActiveOptionID > 0){
    // Et enfin ca :
    if (isDefaultOn(info) && !IsTimerExpired(DIALOGTIMERID))
      launchTimer = true;
    // ----
    info.RunActiveOption();
  }
}

import function defaultOption(this Dialog*, int option, int delay = 0);

// Dialog script file
@S  // Dialog startup entry point
  this.defaultOption(2);
return
@1
return
@2
stop
@3
return
@4
return
@5
return
@6
return
@7
return