// bot menus and tools

newmenu botmaps

genbotmaps = [
  loop i (listlen $arg1) [
    listmapname = (at $arg1 $i)
    menutext = $listmapname (concat map $listmapname)
    menuitemmapload $listmapname (concat tmp_botmap "=" $listmapname ";" startbotmap)
  ]
]
genbotmaps $defaultmaps

tmp_botskill = good
tmp_numbots = 1
tmp_mode =
tmp_botmap =

// add bots
startbotmatch = [
  if (= $tmp_mode 7) [ // TDM
    numrvsf = (- (div $tmp_numbots 2) (curteam))
    numcla = (- (div $tmp_numbots 2) (= (curteam) 0))
    addnbot $numrvsf RVSF $tmp_botskill
    addnbot $numcla CLA $tmp_botskill
  ] [ // DM
    addnbot $tmp_numbots random $tmp_botskill
  ]
]

preparebotmatch = [
  echo starting botmatch..
  // register event that is fired during mapload
  addOnLoadOnce [
    kickallbots
    startbotmatch // add bots
    mode 0 // reset mode for next maps
  ]
  mode $tmp_mode
  map $tmp_botmap
]

afterdisconnect = [
  if $connected [
    addOnLoadOnce $arg1
    disconnect
  ] [
    if (watchingdemo) [
      addOnLoadOnce $arg1
      stopdemo
    ] $arg1
  ]
]

// register events and change map
startbotmap = [ afterdisconnect [preparebotmatch] ]

emptymap = [
  afterdisconnect [
    mode 0
    showmenu maps
  ]
]

newmenu singleplayer

// teamplay not mature yet
menuitem "Bot Team Deathmatch"    [ tmp_mode = 7; showmenu botskill ]
menuitem "Bot Deathmatch"         [ tmp_mode = 8; showmenu botskill ]
menuitem "Bot One Shot, One Kill" [ tmp_mode = 12; showmenu botskill ]
menuitem "Bot Survival"           [ showmenu "Survival Mode" ]
menuitem [] -1
menuitem "Empty Map"              emptymap

newmenu botskill

showmenu_enemies = [ if (= $tmp_mode 7) [ showmenu "team enemies" ] [ showmenu enemies ] ]
menuitem "Best"           [ tmp_botskill = best; showmenu_enemies ]
menuitem "Good (default)" [ tmp_botskill = good; showmenu_enemies ]
menuitem "Medium"         [ tmp_botskill = medium; showmenu_enemies ]
menuitem "Worse"          [ tmp_botskill = worse; showmenu_enemies ]
menuitem "Bad"            [ tmp_botskill = bad; showmenu_enemies ]

genenemyitems = [
  loop i (listlen $arg1) [
    numplayers = (at $arg1 $i)
    if (= $arg2 0) [ // DM
      -= numplayers 1 // don't count yourself as enemy
      menutext = (concat (+ $numplayers 1) players)
    ] [ // TDM
      teamsize = (div $numplayers 2)
      menutext = (concatword $teamsize vs $teamsize)
    ]
    menuitem $menutext (concat "tmp_numbots =" $numplayers "; showmenu botmaps")
  ]
]

newmenu enemies
genenemyitems "2 4 8 12 16 24 32" 0

newmenu "team enemies"
genenemyitems "4 8 12 16 24 32" 1

survSetsList = "survNumBots survBotsToAdd timeBetChkPts timeUntilTele survMaxBots"
survDifList = [ "10 1 60000 120000 20" "12 1 45000 90000 30" "14 2 30000 45000 50" "16 5 10000 30000 50" ]

newmenu "Survival Mode"
menuitemslider "Map: " 0 28 "$survMap" 1 [ "ac_aqueous" "ac_arabian" "ac_arctic" "ac_arid" "ac_complex" "ac_depot" "ac_desert" "ac_desert2" "ac_desert3" "ac_douze" "ac_edifice" "ac_elevation" "ac_gothic" "ac_iceroad" "ac_industrial" "ac_ingress" "ac_keller" "ac_mines" "ac_outpost" "ac_power" "ac_rattrap" "ac_scaffold" "ac_shine" "ac_snow" "ac_stellar" "ac_sunset" "ac_toxic" "ac_urban" "ac_werk" ] [ survMap = $arg1 ]
menuitemslider "Difficulty: " 0 3 "$survDifficulty" 1 [ "easy" "intermediate" "hard" "impossible" ] [ survDifficulty = $arg1; tmpSurvCtr = 0; loop sdl 5 [ (at $survSetsList $sdl) =  (at (at $survDifList $survDifficulty) $tmpSurvCtr); += tmpSurvCtr 1 ] ]
menuitem [] -1
menuitem "                       Customize" [ showmenu "Survival Mode - Customize" ]
menuitem "                         Start!"  [ survival (at $defaultmaps $survMap) ]

newmenu "Survival Mode - Customize"
menuitemslider "# of bots to spawn on start: " 6 20 "$survNumBots" 1 []         [ survNumBots = $arg1 ]
menuitemslider "# of bots to spawn at checkpoints: " 1 5 "$survBotsToAdd" 1 []  [ survBotsToAdd = $arg1 ]
menuitemslider "# of milliseconds between checkpoints: " 10000 120000 "$timeBetChkPts" 10000 [] [ timeBetChkPts = $arg1 ]
menuitemslider "# of milliseconds before teleporting: " 10000 180000 "$timeUntilTele" 10000 []  [ timeUntilTele = $arg1 ]
menuitemslider "Maximum # of bots in survival mode: " 10 50 "$survMaxBots" 2 [] [ survMaxBots = $arg1 ]
menuitem [] -1
menuitem "                           Back" [ closemenu "Survival Mode - Customize" ]

newmenu "Creating bot waypoints"

menuitem "Waypoints..."             [ showmenu "Waypoints" ]
menuitem "Paths..."                 [ showmenu "Paths" ]
menuitem "Other operations..."      [ showmenu "Other bot operations" ]
menuitem "" -1
menuitem "Flood map with waypoints" [ wpflood ]
menuitem "Save bot waypoints"       [ wpsave ]

newmenu Waypoints

menuitem "Add a waypoint"               [ addwp 0 ]
menuitem "Add auto-connecting waypoint" [ addwp 1 ]
menuitem "" -1
menuitem "Delete nearest waypoint"      [ delwp ]
menuitem "Delete all waypoints"         [ showmenu "Delete all waypoints" ]

newmenu Paths

menuitem "Create Start of 2-way path" [ addpath2way1 ]
menuitem "Create End of 2-way path"   [ addpath2way2 ]
menuitem "Delete Start of 2-way path" [ delpath2way1 ]
menuitem "Delete End of 2-way path"   [ delpath2way2 ]
menuitem "" -1
menuitem "Create Start of 1-way path" [ addpath1way1 ]
menuitem "Create End of 1-way path"   [ addpath1way2 ]
menuitem "Delete Start of 1-way path" [ delpath1way1 ]
menuitem "Delete End of 1-way path"   [ delpath1way2 ]

newmenu "Other bot operations"

menuitem "Set waypoint as jumpable" "setjumpwp"
menuitem "Unset waypoint as jumpable" "unsetjumpwp"
menuitem "Set waypoint direction (yaw)" "setwpyaw"
menuitem "" -1
menuitemslider "Waypoint visibility: " 0 1 " " 1 ["Hide waypoints" "Show waypoints"] "wpvisible $arg1"
menuitemslider "Select/place waypoints by: " 0 1 "($xhairwpsel)" 1 ["Your current location" "Clicking a point on the grid"] "xhairwpsel $arg1"

newmenu "Delete all waypoints"
menuinit [ delallwps = 0 ] // Ensures this menu works correctly.
menuitemcheckbox "Yes, delete all waypoints: " "delallwps = 1" "delallwps = $arg1"
menuitem "2   	   [ Apply! ]" [ if $delallwps [ wpclear ] [ showmenu "" ] ]