getrole5 {
  msg #CivSquare Roles are being given out...
  set %playernumber %mafianumber
  set %nametorole %names
  set %turn $r(1, %playernumber)
  set %mafia $gettok(%nametorole, %turn, 32)
  set % $+ $gettok(%nametorole, %turn, 32) Mafia
  dec %playernumber
  set %nametorole $remtok(%nametorole, %mafia, 1, 32)
  set %turn $r(1, %playernumber)
  set %werewolf $gettok(%nametorole, %turn, 32)
  set % $+ $gettok(%nametorole, %turn, 32) WereWolf
  dec %playernumber
  set %nametorole $remtok(%nametorole, %werewolf, 1, 32)
  set %turn $r(1, %playernumber)
  set %bodyguard $gettok(%nametorole, %turn, 32)
  set % $+ $gettok(%nametorole, %turn, 32) Bodyguard
  dec %playernumber
  set %nametorole $remtok(%nametorole, %bodyguard, 1, 32)
  set %turn $r(1, %playernumber)
  set %inspector $gettok(%nametorole, %turn, 32)
  set % $+ $gettok(%nametorole, %turn, 32) Inspector
  dec %playernumber
  set %nametorole $remtok(%nametorole, %inspector, 1, 32)
  set %pl %nametorole
  set % $+ %nametorole PL
  msg #CivSquare The roles have been set.
}