// CubeScript survival mode in a nutshell:
//
//    * All official maps support it.
//    * Each map has a unique "zone" that the player must stay in, to continue playing.
//    * Every "zone" is located somewhere other than the usual two bases.
//    * When the player first enters the "zone", the timers/counters start.
//    * If the player has not found the zone within the set timeframe, they are automatically teleported there.
//    * If the player dies, or leaves the "zone" for too long of a duration, the game ends.
//    * Total seconds survived, and total number of enemies killed during, are reported as stats when the game ends.

checkSurvAliases = [ loop csa (listlen $arg1) [ if (! (checkalias (at $arg1 $csa))) [ (at $arg1 $csa) = $arg2 ] ] ]

survResetAliases = "gotCheckPoint lastCheckPoint survIsFinished startedSurvival startedOBCount startPreSurvMillis startSurvMillis survKills survTeleported"

resetSurvAliases = [
  loop rsa (listlen $survResetAliases) [ (at $survResetAliases $rsa) = 0 ]
  checkSurvAliases survMap (rnd (listlen $defaultmaps))
  checkSurvAliases survBotsToAdd 1; checkSurvAliases survDifficulty 0; checkSurvAliases survNumBots 12; checkSurvAliases survMaxBots 32; checkSurvAliases timeBetChkPts 60000
]

resetSurvAliases

survival = [
  storesets "positiontype" tmpSurvSets; add2list tmpSurvSets $survNumBots; curSurvDifficulty = 0; positiontype 1; resetSurvAliases
  if (! (strstr $onKill survKills)) [ add2alias onKill [ += survKills 1 ] ]
  add2alias mapstartonce  [
    startPreSurvMillis = (millis)
    echo (c 2)Bot survival mode prepared, gather items and find the arena to start! (c 9)You have (c 5) (div $timeUntilTele 1000) (c 9)seconds to prepare!
    if (strstr $defaultmaps (curmap 1)) [ survMap = (findlist $defaultmaps (curmap 1)) ]
    setOfcZones; checkzone
  ]
  if (! (curteam)) [ team RVSF ]; mode 7; map $arg1
]

startSurvival = [
  startedSurvival = 1; startSurvMillis = (millis)
  addnbot $survNumBots CLA bad
  sleep 2500 [ if $survTeleported [ echo (c 9)You were teleported to the zone. ]; echo (c 3)Starting survival mode, good luck! ]
  sleep $timeBetChkPts [ gotCheckPoint = 1; increaseDifficulty ]
]

setzone = [ if (> (listlen $arg1) 3) [ zone = ""; loop szl 4 [ add2list zone (at $arg1 $szl) ] ] ]

// Zones consist of two points on a grid. Any area within these points are considered "inner zone".
// The order of the arguments given to setzone are important: setzone "minX maxX minY maxY"
// Hint: Use /whereami to find the two points.
survOfcZones = [
  ac_aqueous    159.10 198.90 128.10 142.90
  ac_arabian    128.10 196.90 93.10 146.90
  ac_arctic     81.10 120.90 137.10 176.90
  ac_arid       135.10 155.90 97.10 138.90
  ac_complex    105.10 150.90 129.10 181.90
  ac_depot      137.10 166.90 205.10 262.90
  ac_desert     89.10 102.90 129.10 174.90
  ac_desert2    65.10 98.90 149.10 190.90
  ac_desert3    25.10 62.90 97.10 134.90
  ac_douze      137.10 186.90 121.10 150.90
  ac_edifice    33.10 80.90 82.10 120.90
  ac_elevation  61.10 102.90 66.10 121.90
  ac_gothic     47.10 83.90 41.10 83.90
  ac_iceroad    325.10 374.90 244.10 274.90
  ac_industrial 319.10 357.90 180.10 244.90
  ac_ingress    133.10 181.90 66.10 112.90
  ac_keller     66.10 100.90 222.10 244.90
  ac_mines      83.10 110.90 117.10 131.90
  ac_outpost    61.10 99.90 73.10 98.90
  ac_power      155.10 216.90 211.10 244.90
  ac_rattrap    145.10 185.90 57.10 102.90
  ac_scaffold   62.10 91.90 49.10 63.90
  ac_shine      99.10 124.90 79.10 106.90
  ac_snow       17.10 54.90 102.10 127.90
  ac_stellar    158.90 184.90 49.10 102.90
  ac_sunset     148.10 183.90 102.10 127.90
  ac_toxic      72.10 114.90 120.10 147.90
  ac_urban      135.10 200.90 45.10 90.90
  ac_werk       121.10 147.90 110.10 150.90
]

setOfcZones = [
  survMapIndex = (findlist $survOfcZones (curmap 1))
  if (>= $survMapIndex 0) [
    tmpSurvZone = ""; tmpSurvCtr = 0
    loop soz 4 [ += tmpSurvCtr 1; add2list tmpSurvZone (at $survOfcZones (+ $survMapIndex $tmpSurvCtr)) ]
    setzone $tmpSurvZone
  ]
]

findCenter = [
  midZoneX = (+f (divf (-f (at $tmpSurvZone 1) (at $tmpSurvZone 0)) 2.00) (at $tmpSurvZone 0))
  midZoneY = (+f (divf (-f (at $tmpSurvZone 3) (at $tmpSurvZone 2)) 2.00) (at $tmpSurvZone 2))
  tmpZoneCenter = (concat $midZoneX $midZoneY)
]

teleportPlayer = [ if (! (alive)) [ attack ]; if (!= $gamespeed 100) [ gamespeed 100 ]; survTeleported = 1; findCenter; if (! $editing) [ edittoggle ]; go_to (at $tmpZoneCenter 0) (at $tmpZoneCenter 1); sleep 50 [ edittoggle ] ]

isInZone = [
  if (&& (&& (>= (getposition 0) (at $zone 0)) (>= (getposition 1) (at $zone 2))) (&& (<= (getposition 0) (at $zone 1)) (<= (getposition 1) (at $zone 3)))) [
    result 1
  ] [
    result 0
  ]
]

checkzone = [
  if (! $survIsFinished) [
    if (&& $startedSurvival (&& (>= (- (millis) $startSurvMillis) 500) (|| $editing (!= $gamespeed 100)))) [ endSurvival (concatword (c 3) "Error: " (c 1) editmode (c 5) " and " (c 1) gamespeed (c 5) " are not allowed in Survival Mode.") ]
    if (&& (isInZone) (! $startedSurvival)) [ startSurvival ]
    if (&& (! $startedSurvival) (>= (- (millis) $startPreSurvMillis) $timeUntilTele)) [ teleportPlayer ]
    if (&& (>= (- (millis) $lastCheckPoint) $timeBetChkPts) (&& $startedSurvival $gotCheckPoint)) [ increaseDifficulty ]
    if (&& (! $startedOBCount) (&& (! (isInZone)) $startedSurvival)) [ startOBCount ]
    if (&& $startedSurvival (&& (! (alive)) (>= (- (millis) $startSurvMillis) 500))) [ finalSurvMillis = (- (millis) $startSurvMillis); endSurvival (concatword (c 3) "You survived for " (c 5) (divf $finalSurvMillis 1000) (c 3) " seconds, and killed " (c 5) $survKills (c 3) " enemies.") ]
    sleep 0 [ checkzone ]
  ]
]

startOBCount = [
  startedOBCount = 1; startOBMillis = (millis); backInZone = 0; tmpSCtr = 5
  echo (c 3)Get back into the arena! (c 9)You only have (c 5)5 (c 9)seconds to return.
  loop soc 5 [ sleep (* $soc 1000) [ if (&& (! (isInZone)) (! $backInZone)) [ echo (concatword (c 2) $tmpSCtr ...); -= tmpSCtr 1 ] [ backInZone = 1 ] ] ]
  sleep 5000 [ if (&& (! (isInZone)) (&& (! $backInZone) (>= (- (millis) $startOBMillis) 5000))) [ endSurvival (concatword (c 3) "You took too long to return to the arena!") ] [ startedOBCount = 0 ] ]
]

increaseDifficulty = [
  lastCheckPoint = (millis)
  if (<= (+ $survNumBots $survBotsToAdd) $survMaxBots) [ += survNumBots $survBotsToAdd; addnbot $survBotsToAdd CLA best ] [ tmpSurvInt = (- $survMaxBots $survNumBots); += survNumBots $tmpSurvInt; addnbot $tmpSurvInt CLA best ]
  if (< $curSurvDifficulty 4) [ += curSurvDifficulty 1; botskillall (at "bad worse medium good best" $curSurvDifficulty) ]
]

endSurvival = [
  tmp_survstr = $arg1; startedSurvival = 0; survIsFinished = 1; positiontype (at $tmpSurvSets 0); survNumBots = (at $tmpSurvSets 1)
  add2alias mapstartonce [ echo $tmp_survstr ]
  tdm (at $defaultmaps (rnd (listlen $defaultmaps)))
]

// List of aliases that need to be cleared from saved.cfg on quit:
survAliases = "backInZone checkzone curSurvDifficulty endSurvival finalSurvMillis gotCheckPoint increaseDifficulty isInZone lastCheckPoint midZoneX midZoneY onKill resetSurvAliases setOfcZones setzone startedOBCount startedSurvival startOBCount startOBMillis startPreSurvMillis startSurvival startSurvMillis survIsFinished survival_test survKills survMapIndex survOfcZones survTeleported tmpSurvCtr tmpSurvInt tmpSurvSets tmp_survstr tmpSurvZone tmpZoneCenter zone checkSurvAliases survResetAliases survAliases"

addListOnQuit $survAliases