SIMULATION DE JETS DE DÉ ( STYLE JEU DE RÔLE )

menu menubar { 
  Lancé de dé 
  ;'si le lancé de dé est activé l'otion activer est grisée, si il n'est pas activé, l'option désactivé est grisée 
  .$iif(%LanceDe == on,$style(2)) activer: { echo 7 lancé de dé activé | .enable #LanceDé | set %LanceDe on }
  .$iif(%LanceDe == $null,$style(2)) désactiver: { echo 7 Lancé de dé désactivé | .disable #LanceDé | unset %LanceDe }
  .-
  ;'pour choisir le chan sur lequel le lancé de dé doit être utilisé ( un seul chan)  
  .choix du chan: { set %JDRchan #$$?="sur quel chan utiliser le lancé de dé?" | /echo 7 Le lancé de dé s'effectuera sur %JDRchan }
  .-
  ;'pour que possesseur du script puisse lancer son dé et choisir si il sera visible des autres joueur ou non
  .lancer un dé: { %de = $$?="Quel est la valeur du dé à lancer?" | var %JDRmsg $?!="Voulez vous que les joueurs voient la valeur du dé que vous lancez?" 
    var %JDRres $?!="Voulez-vous qu'il voient le résultat du lancé de dé?"
    if (%JDRmsg == $true) { msg %JDRchan le6 MJ 2lance un 6dé %de }
    if (%JDRres == $true) { msg %JDRchan 2résultat du lancé du dé %de $+ :6 $rand(1,%de) }
    elseif ( %JDRres == $false) { /echo 2résultat du lancé du dé %de $+ :6 $rand(1,%de) } 
  }
}
;'ne s'exécute que si le groupe est activé
#LanceDé on
;'regarde quand une personne sur le chan utilise le trigger !dé
on *:text:!dé*:%JDRchan:{ if ($int($2) != 0 && $2 > 1)  { %de = $int($2) | msg %JDRchan 6 $+ $nick 2lance un 6dé %de | msg %JDRchan 2résultat du lancé de dé:6 $rand(1,%de) } }
#LanceDé end