Journey of the Prarie King

;DollieandDilan
;Don Osipov, Willie Chen, Dilan Apterman
;IntroCS1 pd9
;Final Project
;2019-01-20

globals [
  going?            ;if the game is running this is true
  time-left         ;duration left in the game until win
  fired?            ;used to implement firerate
  kills             ;used for powerup spawning
  killlocker        ;used to prevent a bug with poewrup spawning
  lives             ;amount of lives before death
  firerate          ;changed by firerate powerup
  fireratetime      ;duration of powerup
  deadorc           ;used to prevent a bug
  dead?             ;used to prevent a bug
  hardmode?         ;changes various values if true (to make game harder)
]

patches-own [spawnpoint?]

players-own [
  speed                ;changed by speed powerup
  speedtime            ;duration of powerup
  octashot             ;changed by octashot powerup
  octashottime         ;duration of powerup
  shotgun              ;changed by shotgun powerup
  shotguntime          ;duration of powerup
]

breed [players player]              ;player
breed [bullets bullet]              ;bullets
breed [orcs orc]                    ;enemy
breed [speedups speedup]            ;powerup
breed [octashotups octashotup]      ;powerup
breed [nukes nuke]                  ;powerup
breed [liveups liveup]              ;powerup
breed [shotgunups shotgunup]        ;powerup
breed [firerateups firerateup]      ;powerup

to setup
  ca
  import-pcolors "Journey of the Prarie King.png"
  create-players 1
  set hardmode? false

  ask player 0 [
    set shape "idle"
    set size 25
    set speed 7
    set fired? 0
    set shotgun false]

ask patch 8 122 [set spawnpoint? true];north side      ;used to set spawnpoints on enemies...
ask patch -8 122 [set spawnpoint? true]
ask patch 24 122 [set spawnpoint? true]

ask patch 8 -122 [set spawnpoint? true];south side
ask patch -8 122 [set spawnpoint? true]
ask patch 24 -122 [set spawnpoint? true]

ask patch -122 8 [set spawnpoint? true];west side
ask patch -122 -8 [set spawnpoint? true]
ask patch -122 -24 [set spawnpoint? true]

ask patch 122 8 [set spawnpoint? true];east side
ask patch 122 -8 [set spawnpoint? true]
ask patch 122 -24 [set spawnpoint? true]

set time-left 60              ;60 seconds until game finishes
set fired? false
set killlocker true
set kills 0
set lives 2                   ;start with 2 lives
set firerate .5
reset-timer
end 

to hardmode-setup
  ca
  import-pcolors "JOPK_Level_1_1.png"
  create-players 1
  set hardmode? true

  ask player 0 [
    set shape "idle"
    set size 25
    set speed 6
    set fired? 0
    set shotgun false ]

  ask patch 8 122 [set spawnpoint? true];north side
  ask patch -8 122 [set spawnpoint? true]
  ask patch 24 122 [set spawnpoint? true]

  ask patch 8 -122 [set spawnpoint? true];south side
  ask patch -8 122 [set spawnpoint? true]
  ask patch 24 -122 [set spawnpoint? true]

  ask patch -122 8 [set spawnpoint? true];west side
  ask patch -122 -8 [set spawnpoint? true]
  ask patch -122 -24 [set spawnpoint? true]

  ask patch 122 8 [set spawnpoint? true];east side
  ask patch 122 -8 [set spawnpoint? true]
  ask patch 122 -24 [set spawnpoint? true]

  set time-left 60
  set fired? false
  set killlocker true
  set kills 0
  set lives 1                   ;start with 1 life
  set firerate .6
reset-timer
end 

to go
  if dead? != true [       ;if player is not dead...
    set going? true
    cycle

    every .1
    [
      bullet-travel
      die?
      spawn
      move
      speedtimer
      speeduppower
      powerupspawn
      octashotpower
      octashottimer
      nukepower
      fireratepower
      fireratetimer
      shotgunpower
      shotguntimer
      liveuppower]

    every 1 [
      set time-left (time-left - 1)       ;counts down timer until win
    ]

    if time-left = 0 [
      ask orcs [die]
      user-message "You have won!"      ;win message
      stop
      set going? false]
  ]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;PLAYER DEATH

to die?
  ask orcs [
    ask players in-radius 15 [
      set lives lives - 1
      set going? false
      set deadorc true] ;deadorc used to prevent bug
    if deadorc = true [
      set deadorc false
      die]]
  if lives <= 0 [
    set lives 0
    user-message "Game Over"           ;death message
    set dead? true
    stop]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;POWERUP TIMERS

to speedtimer                         ;duration of powerup
  ifelse hardmode? = true [
    if count players > 0 [            ;if count players > 0 used to prevent death bug
    ask player 0 [
      if speed = 10 [
        every .1 [
          if count players != 0 [
            ask player 0 [set speedtime speedtime + .1]
            ask player 0 [if speedtime >= 5 [set speed 6]]
  ]]]]]]

  [
    if count players > 0 [             ;if count players > 0 used to prevent death bug
      ask player 0 [
        if speed = 13 [
          every .1 [
            if count players != 0 [
              ask player 0 [set speedtime speedtime + .1]
              ask player 0 [if speedtime >= 7 [set speed 7]]
  ]]]]]]
end 

to octashottimer                    ;duration of powerup
  if count players > 0 [            ;if count players > 0 used to prevent death bug
    ask player 0 [
      if octashot = 1 [
        every .1 [
          if count players != 0 [
            ask player 0 [
              set octashottime octashottime + .1
              ifelse hardmode? = true [
                if octashottime >= 5 [set octashot 0 set octashottime 0]] [
                if octashottime >= 7 [set octashot 0 set octashottime 0]]
  ]]]]]]
end 

to fireratetimer                   ;duration of powerup
  ifelse hardmode? = true [
    if firerate = .3 [
      every .1 [
        if count players != 0 [
          set fireratetime fireratetime + .1
          if fireratetime >= 5 [set firerate .6 set fireratetime 0]
  ]]]]
  [
    if firerate = .2 [
      every .1 [
        if count players != 0 [
          set fireratetime fireratetime + .1
          if fireratetime >= 7 [set firerate .5 set fireratetime 0]
  ]]]]
end 

to shotguntimer                   ;duration of powerup
  if count players > 0 [          ;if count lpayers > 0 used to prevent death bug
    ask player 0 [
      if shotgun = true [
        every .1 [
          if count players != 0 [
            ask player 0 [
              set shotguntime shotguntime + .1
              ifelse hardmode? = true [
                if shotguntime >= 5 [set shotgun false set shotguntime 0]] [
                if shotguntime >= 7 [set shotgun false set shotguntime 0]]
  ]]]]]]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;POWERUP EFFECTS

to speeduppower                       ;effect of powerup
  ifelse hardmode? = true [
    ask speedups [
    ask players in-radius 15 [
      set speedtime 0
      set speed 10]
    if count players in-radius 15 > 0 [
        die]]]

  [
    ask speedups [
      ask players in-radius 15 [
        set speedtime 0
        set speed 13]
      if count players in-radius 15 > 0 [
        die]]]
end 

to octashotpower                   ;effect of powerup
  ask octashotups [
    ask players in-radius 15 [
      set octashot 1]
    if count players in-radius 15 > 0 [
      die]]
end 

to nukepower                       ;effect of powerup
  ask nukes [
    if count players in-radius 15 != 0 [
      ask orcs [die]
      die]]
end 

to fireratepower                  ;effect of powerup
  ifelse hardmode? = true [
    ask firerateups [
      if count players in-radius 15 != 0 [
        set firerate .3
        die]]]
  [
    ask firerateups [
      if count players in-radius 15 != 0 [
        set firerate .2
        die]]]
end 

to shotgunpower                   ;effect of powerup
  ask shotgunups [
    if count players in-radius 15 != 0 [
      ask player 0 [
        set shotgun true]
      die]]
end 

to liveuppower                   ;effect of powerup
  ask liveups [
    if count players in-radius 15 != 0 [
      set lives lives + 1
      die]]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;POWERUP SPAWN

to powerupspawn
  ifelse hardmode? = true [

    if kills mod 14 = 1 [
      set killlocker false]

    if kills mod 14 = 0 and kills != 0 [
      if killlocker = false [
        let randomizer random 6                  ;so that uses same random value for each powerup
        if randomizer = 0 [
          create-speedups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "coffee"]]           ;custom turtles created for look
        if randomizer = 1 [
          create-octashotups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "wheel"]]
        if randomizer = 2 [
          create-nukes 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "nuke"]]
        if randomizer = 3 [
          create-firerateups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "machinegun"]]
        if randomizer = 4 [
          create-shotgunups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "shotgun"]]
        if randomizer = 5 [
          create-liveups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "extralife"]]
        set killlocker true]]]

  [
    if kills mod 10 = 1 [
      set killlocker false]

    if kills mod 10 = 0 and kills != 0 [
      if killlocker = false [
        let randomizer random 6
        if randomizer = 0 [
          create-speedups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "coffee"]]
        if randomizer = 1 [
          create-octashotups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "wheel"]]
        if randomizer = 2 [
          create-nukes 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "nuke"]]
        if randomizer = 3 [
          create-firerateups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "machinegun"]]
        if randomizer = 4 [
          create-shotgunups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "shotgun"]]
        if randomizer = 5 [
          create-liveups 1 [setxy random (96 - -96 + 1) + -96 random (96 - -96 + 1) + -96 set size 20 set shape "extralife"]]
        set killlocker true]]]
end 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ORCS

to spawn
  ask patches with [spawnpoint? = true] [         ;spawns at spawnpoints
    if random 125 = 0 [
      sprout-orcs 1 [
        set shape "orcwalk_1"
        set size 25]
    ]
  ]
end 

to move
  ifelse hardmode? = true [
    ask orcs [
      if going? = true [
        ifelse count bullets in-radius 15 > 0

        [
          set kills kills + 1
          ask bullets in-radius 15 [die]
          die]

        [
          set shape "orcwalk_1"
          if count players > 0 [         ;if count lpayers > 0 used to prevent death bug
            set heading towards player 0
            every 10 / 100 [
              fd 6]
            set shape "orcwalk_2"]]
  ]]]
  [
    ask orcs [
      if going? = true [
        ifelse count bullets in-radius 15 > 0

        [
          set kills kills + 1
          ask bullets in-radius 15 [die]
          die]

        [
          set shape "orcwalk_1"
          if count players > 0 [          ;if count lpayers > 0 used to prevent death bug
            set heading towards player 0
            every 10 / 100 [
              fd 5]
            set shape "orcwalk_2"]]
  ]]]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;PLAYER MOVEMENT

to walk-right
  if going? = true [
    ask player 0 [

      set heading 90
      set shape "rightwalk_1"
      every 10 / 100 [
        fd speed]
      set shape "rightwalk_2"
    ]
  ]
end 

to walk-left
  if going? = true [
    ask player 0 [
      set heading 270
      set shape "leftwalk_1"
      every 10 / 100 [
        fd speed]
      set shape "leftwalk_2"
    ]
  ]
end 

to walk-up
  if going? = true [
    ask player 0 [
      set heading 360
      set shape "upwalk_1"
      every 10 / 100
      [fd speed]
      set shape "upwalk_2"
    ]
  ]
end 

to walk-down
  if going? = true [
    ask player 0 [
      set heading 180
      set shape "walkdown_1"
      every 10 / 100
      [fd speed]
      set shape "walkdown_2"
    ]
  ]
end 

                             ;if wanted for future implementation
;to walk-upright
;  if going? = true
;  [ask player 0
;   [set heading 45
;      set shape "upwalk_1"
;        fd 3
;       set shape "upwalk_2"]
;  ]
;end

;to walk-downright
;  if going? = true
;  [ask player 0
;   [set heading 135
;      set shape "walkdown_1"
;        fd 3
;        set shape "walkdown_2"]
;  ]
;end

;to walk-upleft
;  if going? = true
;  [ask player 0
;    [set heading 315
;     set shape "upwalk_1"
;        fd 3
;        set shape "upwalk_2"]
;  ]
;end

;to walk-downleft
;  if going? = true
;  [ask player 0
;    [set heading 225
;      set shape "walkdown_1"
;        fd 3
;        set shape "walkdown_2"]
;  ]
;end



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;SHOOTING

to cycle ;needed for firerate
  every firerate
  [if fired? = true
    [set fired? false]]
end 

to bullet-travel ;bullet speed and causes them to die if they step outside the map
  ask turtles [
    if breed = bullets [
      ifelse abs xcor = 128 or abs ycor = 128 [
        die]
      [fd 8
      ]
  ]]
end 

to shoot-up
  ask player 0 [
    if octashot = 1 [
      octashotyay
    ]
    if shotgun = true [
      shotgun-upwards
    ]
    if octashot = 0 and shotgun = false [
      if fired? = false [
        set shape "upwalk_1"
        hatch-bullets 1 [
          set shape "bullet"
          set heading 360
          fd 3]
        set fired? true]]]
end 

to shoot-down
  ask player 0 [
    if octashot = 1 [
      octashotyay
    ]
    if shotgun = true [
      shotgun-downwards
    ]
    if octashot = 0 and shotgun = false [
      if fired? = false [
        set shape "walkdown_1"
        hatch-bullets 1 [
          set shape "bullet"
          set heading 180
          fd 3]
        set fired? true]]]
end 

to shoot-left
  ask player 0 [
    if octashot = 1 [
      octashotyay
    ]
    if shotgun = true [
      shotgun-leftwards
    ]
    if octashot = 0 and shotgun = false [
      if fired? = false [
        set shape "leftwalk_1"
        hatch-bullets 1 [
          set shape "bullet"
          set heading 270
          fd 3]
        set fired? true]]]
end 

to shoot-right
  ask player 0 [
    if octashot = 1 [
      octashotyay
    ]
    if shotgun = true [
      shotgun-rightwards
    ]
    if octashot = 0 and shotgun = false [
      if fired? = false [
        set shape "rightwalk_1"
        hatch-bullets 1 [
          set shape "bullet"
          set heading 90
          fd 3]
        set fired? true]]]
end 

to shoot-upright
  ask player 0 [
    ifelse octashot = 1 [
      octashotyay
    ]
    [
      if fired? = false [
        set shape "rightwalk_1"
        hatch-bullets 1 [
          set shape "bullet"
          set heading 45
          fd 3]
        set fired? true]]]
end 

to shoot-downright
  ask player 0 [
    ifelse octashot = 1 [
      octashotyay
    ]
    [
      if fired? = false [
        set shape "rightwalk_1"
        hatch-bullets 1 [
          set shape "bullet"
          set heading 135
          fd 3]
        set fired? true]]]
end 

to shoot-upleft
  ask player 0 [
    ifelse octashot = 1 [
      octashotyay
    ]
    [
      if fired? = false [
        set shape "rightwalk_1"
        hatch-bullets 1 [
          set shape "bullet"
          set heading 315
          fd 3]
        set fired? true]]]
end 

to shoot-downleft
  ask player 0 [
    ifelse octashot = 1 [
      octashotyay
    ]
    [
      if fired? = false [
        set shape "rightwalk_1"
        hatch-bullets 1 [
          set shape "bullet"
          set heading 225
          fd 3]
        set fired? true]]]
end 

to octashotyay ;is called on instead of shooting in a specific direction if the octashot powerup is active - shoots in 8 directions simultaneously
  ask player 0 [
    if fired? = false [
      hatch-bullets 1 [
        set shape "bullet"
        set heading 360
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 180
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 270
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 90
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 45
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 135
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 315
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 225
        fd 3]
      set fired? true]]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Shotgun shots - replace regular shots if shotgun powerup is active

to shotgun-upwards
  ask player 0 [
    if fired? = false [
      hatch-bullets 1 [
        set shape "bullet"
        set heading 360
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 20
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 340
        fd 3]
      set fired? true]]
end 

to shotgun-leftwards
  ask player 0 [
    if fired? = false [
      hatch-bullets 1 [
        set shape "bullet"
        set heading 270
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 290
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 250
        fd 3]
      set fired? true]]
end 

to shotgun-rightwards
  ask player 0 [
    if fired? = false [
      hatch-bullets 1 [
        set shape "bullet"
        set heading 90
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 110
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 70
        fd 3]
      set fired? true]]
end 

to shotgun-downwards
ask player 0 [
    if fired? = false [
      hatch-bullets 1 [
        set shape "bullet"
        set heading 180
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 200
        fd 3]
      hatch-bullets 1 [
        set shape "bullet"
        set heading 160
        fd 3]
      set fired? true]]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;MONITORS

to-report timeuntilWIN
  report time-left
end 

to-report killcounter
  report kills
end 

to-report lives-left
  report lives
end