Brush Fire Covid Model

globals
  [
     stopFlag
     maxTicks
     burnTime
     peakCaseCount
     newSeed
     couldGet
     didGet
     pctSusGot

  ]

patches-own
  [
      burnedTicks
  ]

to setup
  ;; persist the last random seed across the clear-all command
  if newSeed = 0 [ set newSeed 33125 ]
  let saveseed newSeed
  clear-all
  set newSeed saveseed

  set stopFlag false
  set maxTicks 100
  set burnTime burnTicks
  set peakCaseCount 0

  ;; ============= allow replay of interesting saved prior cases  =============
  if ( replay = false )
    [  ifelse askforseed? = true [
       set newSeed read-from-string user-input "Enter a new random integer:"
       print ( word "User entered new random seed: " newSeed )
      ]
      [
        set newSeed  random 12345678
        print ( word "Computer picked a new random seed: " newSeed )
      ]
    ]
  ;;=========================================
  random-seed newSeed
  print ( word "Using random seed: " newSeed )

  ask patches
    [
        ;; set pcolor brown ;; <<<<<<<<<<<<<<
        ;; becomes

        ifelse (random 101 <   pctDryBrush )
            [ set pcolor brown ]
            [ set pcolor green  ]


        set burnedTicks 0
    ]

   set couldGet count patches with [pcolor = brown ]
   print ( word couldGet " patches are brown ")
  ;;========================================
  ask patch 0 0
    [
        set pcolor red
    ]
  reset-ticks
end 

to go

  let nodisp "no-display"
  let disp "display"

  if (stopFlag = true)
  [
    ;;set couldGet count patches with [pcolor = brown ] ;;done in setup above
    set  didGet  count patches with [pcolor = black ]
    set pctSusGot floor (100 * didGet / couldGet )
    print (word "Of " couldGet " brown patches, " didGet " burned, or " pctSusGot " percent.")
    stop
  ]
  ;;=========================================

  every ( 1 / speed )
  [
    ;;========================================
     if not netlogo-web? [
     run nodisp
  ]

    ;;========================================
      ask patches with [pcolor = brown]
      [
        if any? neighbors with [ pcolor = red and burnedTicks > 0 ]
          [
              ;; flip a coin
              if ( random 101 < oddsCatchIfExposed )
                [
                   set pcolor red
                   set burnedTicks 0
                ]
          ]
      ]

      ;;=========================================

      ask patches with [pcolor = red ]
      [
          set burnedTicks ( burnedTicks + 1 )
          if ( burnedTicks > burnTime )
             [
                 set pcolor black
             ]
      ]
      ;;=========================================
      if not netlogo-web? [
       run disp
      ]
      let activeCaseCount  count patches with [pcolor = red ]
    if (activeCaseCount > peakCaseCount ) [ set peakCaseCount activeCaseCount ]
      ;;=========================================

      tick
      if ( ticks >= maxTicks )
         [
            set stopFlag true
            print (word "Maximum time has run out at time " ticks)
         ]
      if (0 = count patches with [pcolor = red] )
         [
            print ( word "The fire burned out at time " ticks)
            set stopFlag true
         ]
  ]
end 

to snapthat

  ifelse netlogo-web? [
    print "snapshot only works if the model is downloaded"
  ]
  [
    let fname (word "brush-" newSeed "-" oddsCatchIfExposed "-" pctDryBrush "-" burnTicks ".png" )
    print (word "Saving file " fname )
    let savecommand "export-interface fname"
    run savecommand
  ]
end