alias mapbanlist {
  if ( !%banmaps ) { return }
  set %banlist $null
  if ( %de_inferno == 1 ) {
    set %banlist %banlist de_inferno
  }
  if ( %de_dust2 == 1 ) {
    set %banlist %banlist de_dust2
  }
  if ( %de_train == 1 ) {
    set %banlist %banlist de_train
  }
  if ( %de_mirage == 1 ) {
    set %banlist %banlist de_mirage
  }
  if ( %de_nuke == 1 ) {
    set %banlist %banlist de_nuke
  }
  if ( %de_tuscan == 1 ) {
    set %banlist %banlist de_tuscan
  }
  return %banlist
}

alias start.mapbanning {
  if ( !%banmaps ) { return }
  set %turn %banner1
  set %turns 0
  set %de_inferno 1
  set %de_dust2 1
  set %de_train 1
  set %de_cpl_mill 1
  set %de_mirage 1
  set %de_nuke 1
  set %de_tuscan 1
  describe %ch Map banning is started between $user(%banner1).name and $user(%banner2).name . It's $user(%turn).name time to ban map. .banmap <map>, use .blist for map banlist.
  describe %ch Maps available to ban : $mapbanlist
  describe %ch It's now $user(%turn).name turn to ban.
}


on *:TEXT:.blist:*: {
  if ( !%banmaps ) { return }
  describe %ch Maps available to ban : $mapbanlist
}

on *:TEXT:.banmap *:*: {
  if ( !%banmaps ) { return }

  if ( $2 == de_inferno || $2 == de_dust2 || $2 == de_train || $2 == de_cpl_mill || $2 == de_mirage || $2 == de_nuke || $2 == de_tuscan ) {
    if ( $getid($nick) == %turn ) {
      if ( $($+(%,$2),2)  == 0 ) { describe %ch $2 is allready banned. | return }
      set % $+ $2 0
      inc %turns
      if ( %turns == 5 ) { describe %ch Final map is $mapbanlist | set %banmaps 0 | return }
      if ( %turn == %banner1 ) { set %turn %banner2 | describe %ch Map $2 is banned. It's now $user(%turn).name turn to ban. | return }
      if ( %turn == %banner2 ) { set %turn %banner1 | describe %ch Map $2 is banned. It's now $user(%turn).name turn to ban. | return }

    }
    else {
      notice $nick It's not your turn to ban map.
    }
  }
  else {
    describe %ch $nick Please type map name properly.
  }
}

on *:TEXT:.wantbanmaps*:*: {
  set %banner1 $null
  set %banner2 $null
  if ( $2 ) {
    set %banner1 $getid($nick)
    set %banner2 $getid($2)
    if ( $getid($2) == $getid($nick) ) { describe %ch You cannot ban maps with yourself! | return }
    if ( !%banner1 || !%banner2 ) { return }
    set %banmaps 1
    $start.mapbanning
  }
  else {
    set %banner1 $gettok(%c.gameauths,1,46)
    set %banner2 $gettok(%c.gameauths,2,46)
  }
  if ( $getid($nick) == %banner1 || $getid($nick) == %banner2 ) {
    if ( %banmaps == 1 ) { describe %ch Map banning is allready allowed | return }
    set %banmaps 1
    describe %ch Map banning will take place after pickup.
  }
}

on *:TEXT:.abortmapban:*: {
  if ( !%banmaps ) { return }
  if ( $getid($nick) == %banner1 || $getid($nick) == %banner2 || $userlvl($getid($nick)) >= $adminlvl ) {
    set %banmaps 0
    describe %ch Map banning is aborted.
  }
}