Unnamed

alias begin {
  if ($readini(mafia.ini,main,game) == 2) || ($readini(mafia.ini,main,halt) == 1) { halt }
  elseif (%players < 3) {
    msg $readini(mafia.ini,main,chan) 14[4ERROR14][4 $+ $readini(mafia.ini,main,chan) $+ 14] You need 3 or more players!
    writeini mafia.ini main game 0
    writeini mafia.ini main gamereg 0
    remini mafia.ini playing
    var %x = 1
    while (%x <= $nick($chan,0,v)) {
      mode $readini(mafia.ini,main,chan) -v $nick($chan,%x,v)
      inc %x
    }
    unset %players
  }
  else {
    msg $readini(mafia.ini,main,chan) 14[4MAFIA14][4 $+ $readini(mafia.ini,main,chan) $+ 14] Roles are being handed out now!
    writeini mafia.ini main gamereg 0
    handoutroles
    mode $readini(mafia.ini,main,chan) +m
  }
}
alias handoutroles {
  if ($readini(mafia.ini,main,game) == 2) || ($readini(mafia.ini,main,halt) == 1) { halt }
  else {
    var %x = 1
    while (%x <= %players) {
      :set
      set %setrole $read(roles.txt, $rand(1, %players))
      if (% $+ %setrole $+ .role == yes) { goto :set | halt }
      else {
        set % $+ %setrole $+ .role yes
        writeini mafia.ini Player- $+ %x Role %setrole
        if (%setrole == civilian) { inc %x | halt }
        msg $readini(mafia.ini,Player- $+ %x,Player) 14[4MAFIA14][4 $+ $readini(mafia.ini,Player- $+ %x,Player) $+ 14] You are the4 $eval($+(%,SETROLE),2) $+ 14!
        unset %setrole
        unset %setrole
        unset %setrole
        inc %x
      }
    }
    msg $readini(mafia.ini,main,chan) 14[4MAFIA14][4 $+ $readini(mafia.ini,main,chan) $+ 14] The Roles have been handed out! It's time to play!
    writeini mafia.ini game-stats time night
    msg $readini(mafia.ini,main,chan) 14[4MAFIA14][4 $+ $readini(mafia.ini,main,chan) $+ 14] It is now night-time! Night is 3 minutes!
    timer 1 180 day
  }
}