// Global_PV_script.txt
// __________________________________________
// Regroupe trois scripts pour message "PV" :
//   1 - Lorsqu'un chatteur fait un PV au Bot
// 		 Bot dénonciateur
//   2 - Taper !PV pour signaler qu'un PV se demande en salle 
//      (peut être précédé ou suivi d'un blanc et du nom d'un chatteur)
//   3 - Message au chatteur dont le PV a été bloqué avec le téléphone barré 
// __________________________________________

//--------------------------------------
// Change la couleur du texte

func red$ ()
{
  return chr$(1,255,0,0);   // couleur rouge
}

// nettoye la ligne line$ en remplaçant toutes les icones par des blancs,
// en convertissant tous les mots en minuscules,
// et en entourant tous les mots par des blancs.

func clean$ (line$)
{
  var last, r$, i, c;

  i = 1;
  last = len(line$);

  while (i <= last)
  {
    c = asc (line$,i);
    if (c <= 9)  // séquence spéciale
    {
      i += 4;    // passer 4 caractères
      if (c > 5)
        i += 4;
      c = 32;  // remplacer par un blanc
    }
    else   // caractère normal
    {
      if (c >= 65 && c <= 90)  // si entre A et Z
        c += 32;    // convertir en minuscules
      i++;
    }
    r$ = r$ + chr$(c);
  }

  return r$ + " ";
}

//--------------------------------------
//   1 - Lorsqu'un chatteur fait un PV au Bot
// 		 Bot dénonciateur

proc event (session_key, userid$, sex$, has_photo, age, is_away,
            admin, cam_on, is_bot, toc_capab, signature$,
            action, is_myself, line$)
{
  if (action == 200)
  {
    print ("Vous connaissez la dernière, il y a " + userid$ + " qui me fait un PV sauvage !!");
  }
}

//--------------------------------------
//   2 - Taper !PV pour signaler qu'un PV se demande en salle 
//      (peut être précédé ou suivi du nom d'un chatteur)


proc event (session_key, userid$, sex$, has_photo, age, is_away,
            admin, cam_on, is_bot, toc_capab, signature$,
            action, is_myself, line$)
{
	var dev_word$;

  dev_word$ = clean$(line$);   // nettoye la ligne pour pouvoir y chercher des mots
  
if (toc_capab)
    {
    if (pos (dev_word$, " !pv " ))    // contient !pv (avec 2 blancs autour, attention !)
		{
		print (red$()+"UN PV SE DEMANDE EN SALLE - MERCI DE RESPECTER LES REFUS"); // message pour les PVs
		}
    }
}
//--------------------------------------
//   3 - Message au chatteur dontle PV a été bloqué avec le téléphone barré 


 proc event (session_key, userid$, sex$, has_photo, age, is_away,
              admin, cam_on, is_bot, toc_capab, signature$,
              action, is_myself, line$)
  {
    if (action == 204)
      print ("Un râteau pour toi " + userid$ + ", " + line$ + " a bloqué ton PV sauvage !!");
  }
//--------------------------------------