*label apples
*gosub yield_harvest
*set app 108000
*set app * yield
*set app / 100
*if yr1 = true
  *set app_yr1 app
*if yr2 = true
  *set app_yr2 app
*if yr3 = true
  *set app_yr3 app
*if yr4 = true
  *set app_yr4 app
*if yr5 = true
  *set app_yr5 app
*set app_tot + app
*set yield / 500
*set hp + yield

*label asparagus

*label beans
*gosub yield_harvest
*set bea 1620
*set bea * yield
*set bea / 100
*if yr1 = true
  *set bea_yr1 bea
*if yr2 = true
  *set bea_yr2 bea
*if yr3 = true
  *set bea_yr3 bea
*if yr4 = true
  *set bea_yr4 bea
*if yr5 = true
  *set bea_yr5 bea
*set bea_tot + bea
*set yield / 500
*set hp + yield

*label beets
*gosub yield_harvest
*set bee 10200
*set bee * yield
*set bee / 100
*if yr1 = true
  *set bee_yr1 bee
*if yr2 = true
  *set bee_yr2 bee
*if yr3 = true
  *set bee_yr3 bee
*if yr4 = true
  *set bee_yr4 bee
*if yr5 = true
  *set bee_yr5 bee
*set bee_tot + bee
*set yield / 500
*set hp + yield

*label broccoli
*gosub yield_harvest
*set bro 750
*set bro * yield
*set bro / 100
*if yr1 = true
  *set bro_yr1 bro
*if yr2 = true
  *set bro_yr2 bro
*if yr3 = true
  *set bro_yr3 bro
*if yr4 = true
  *set bro_yr4 bro
*if yr5 = true
  *set bro_yr5 bro
*set bro_tot + bro
*set yield / 500
*set hp + yield

*label brussels
*gosub yield_harvest
*set bru 750
*set bru * yield
*set bru / 100
*if yr1 = true
  *set bru_yr1 bru
*if yr2 = true
  *set bru_yr2 bru
*if yr3 = true
  *set bru_yr3 bru
*if yr4 = true
  *set bru_yr4 bru
*if yr5 = true
  *set bru_yr5 bru
*set bru_tot + bru
*set yield / 500
*set hp + yield

*label cabbage
*gosub yield_harvest
*set cab 2325
*set cab * yield 
*set cab / 100
*if yr1 = true
  *set cab_yr1 cab
*if yr2 = true
  *set cab_yr2 cab
*if yr3 = true
  *set cab_yr3 cab
*if yr4 = true
  *set cab_yr4 cab
*if yr5 = true
  *set cab_yr5 cab
*set cab_tot + cab
*set yield / 500
*set hp + yield

*label carrots
*gosub yield_harvest
*set car 6990
*set car * yield
*set car / 100
*if yr1 = true
  *set car_yr1 car
*if yr2 = true
  *set car_yr2 car
*if yr3 = true
  *set car_yr3 car
*if yr4 = true
  *set car_yr4 car
*if yr5 = true
  *set car_yr5 car
*set car_tot + car
*set yield / 500
*set hp + yield

*label cauliflower
*gosub yield_harvest
*set cau 900
*set cau * yield
*set cau / 100
*if yr1 = true
  *set cau_yr1 cau
*if yr2 = true
  *set cau_yr2 cau
*if yr3 = true
  *set cau_yr3 cau
*if yr4 = true
  *set cau_yr4 cau
*if yr5 = true
  *set cau_yr5 cau
*set cau_tot + cau
*set yield / 500
*set hp + yield

*label corn
*gosub yield_harvest
*set cor 7500
*set cor * yield
*set cor / 100
*if yr1 = true
  *set cor_yr1 cor
*if yr2 = true
  *set cor_yr2 cor
*if yr3 = true
  *set cor_yr3 cor
*if yr4 = true
  *set cor_yr4 cor
*if yr5 = true
  *set cor_yr5 cor
*set cor_tot cor
*set yield / 500
*set hp + yield

*label cucumbers
*gosub yield_harvest
*set cuc 2269
*set cuc * yield
*set cuc / 100
*if yr1 = true
  *set cuc_yr1 cuc
*if yr2 = true
  *set cuc_yr2 cuc
*if yr3 = true
  *set cuc_yr3 cuc
*if yr4 = true
  *set cuc_yr4 cuc
*if yr5 = true
  *set cuc_yr5 cuc
*set cuc_tot + cuc
*set yield / 500
*set hp + yield

*label onions
*gosub yield_harvest
*set oni 6750
*set oni * yield 
*set oni / 100
*if yr1 = true
  *set oni_yr1 oni
*if yr2 = true
  *set oni_yr2 oni
*if yr3 = true
  *set oni_yr3 oni
*if yr4 = true
  *set oni_yr4 oni
*if yr5 = true
  *set oni_yr5 oni
*set oni_tot + oni
*set yield / 500
*set hp + yield

*label parsnips
*gosub yield_harvest
*set par 3495
*set par * yield
*set par / 100
*if yr1 = true
  *set par_yr1 par
*if yr2 = true
  *set par_yr2 par
*if yr3 = true
  *set par_yr3 par
*if yr4 = true
  *set par_yr4 par
*if yr5 = true
  *set par_yr5 par
*set par_tot +par
*set yield / 500
*set hp + yield

*label peas
*gosub yield_harvest
*set pea 2352
*set pea * yield
*set pea / 100
*if yr1 = true
  *set pea_yr1 pea
*if yr2 = true
  *set pea_yr1 pea
*if yr3 = true
  *set pea_yr1 pea
*if yr4 = true
  *set pea_yr1 pea
*if yr5 = true
  *set pea_yr1 pea
*set pea_tot + pea
*set yield / 500
*set hp + yield

*label peppers
*gosub yield_harvest
*set pep 2640
*set pep * yield
*set pep / 100
*if yr1 = true
  *set pep_yr1 pep
*if yr2 = true
  *set pep_yr2 pep
*if yr3 = true
  *set pep_yr3 pep
*if yr4 = true
  *set pep_yr4 pep
*if yr5 = true
  *set pep_yr5 pep
*set pep_tot + pep
*set yield / 500
*set hp + yield

*label potatoes
*gosub yield_harvest
*set pot 3450
*set pot * 75
*set pot / 100
*if yr1 = true
  *set pot_yr1 pot
*if yr2 = true
  *set pot_yr2 pot
*if yr3 = true
  *set pot_yr3 pot
*if yr4 = true
  *set pot_yr4 pot
*if yr5 = true
  *set pot_yr5 pot
*set pot_tot + pot
*set yield / 500
*set hp + yield

*label pumpkins
*gosub yield_harvest
*set pum 4200
*set pum * yield
*set pum / 100
*if yr1 = true
  *set pum_yr1 pum
*if yr2 = true
  *set pum_yr1 pum
*if yr3 = true
  *set pum_yr1 pum
*if yr4 = true
  *set pum_yr1 pum
*if yr5 = true
  *set pum_yr1 pum
*set pum_tot + pum
*set yield / 500
*set hp + yield

*label radishes
*gosub yield_harvest
*set rad 10500
*set rad * yield
*set rad / 100
*if yr1 = true
  *set rad_yr1 rad
*if yr2 = true
  *set rad_yr2 rad
*if yr3 = true
  *set rad_yr3 rad
*if yr4 = true
  *set rad_yr4 rad
*if yr5 = true
  *set rad_yr5 rad
*set rad_tot + rad
*set yield / 500
*set hp + yield

*label spinach
*gosub yield_harvest
*set spi 1920
*set spit * yield
*set spi / 100
*if yr1 = true
  *set spi_yr1 spi
*if yr2 = true
  *set spi_yr2 spi
*if yr3 = true
  *set spi_yr3 spi
*if yr4 = true
  *set spi_yr4 spi
*if yr5 = true
  *set spi_yr5 spi
*set spi_tot + spi
*set yield / 500
*set hp + yield

*label squash
*gosub yield_harvest
*set squ 5490
*set squ * yield
*set squ / 100
*if yr1 = true
  *set squ_yr1 squ
*if yr2 = true
  *set squ_yr2 squ
*if yr3 = true
  *set squ_yr3 squ
*if yr4 = true
  *set squ_yr4 squ
*if yr5 = true
  *set squ_yr5 squ
*set squ_tot + squ
*set yield / 500
*set hp + yield

*label strawberries
*gosub yield_harvest
*set str 1400
*set str * yield
*set str / 100
*if yr1 = true
  *set str_yr1 str
*if yr2 = true
  *set str_yr2 str
*if yr3 = true
  *set str_yr3 str
*if yr4 = true
  *set str_yr4 str
*if yr5 = true
  *set str_yr5 str
*set str_tot + str
*set yield / 500
*set hp + yield

*label tomatoes
*gosub yield_harvest
*set tom 3690
*set tom * yield
*set tom / 100
*if yr1 = true
  *set tom_yr1 tom
*if yr2 = true
  *set tom_yr2 tom
*if yr3 = true
  *set tom_yr3 tom
*if yr4 = true
  *set tom_yr4 tom
*if yr5 = true
  *set tom_yr5 tom
*set tom_tot + tom
*set yield / 500
*set hp + yield

*label turnips
*gosub yield_harvest
*set tur 4200
*set tur * yield
*set tur / 100
*if yr1 = true
  *set tur_yr1 tur
*if yr2 = true
  *set tur_yr2 tur
*if yr3 = true
  *set tur_yr3 tur
*if yr4 = true
  *set tur_yr4 tur
*if yr5 = true
  *set tur_yr5 tur
*set tur_tot + tur
*set yield / 500
*set hp + yield

*label zucchini
*gosub yield_harvest
*set zuc 2745
*set zuc * yield
*set zuc / 100
*if yr1 = true
  *set zuc_yr1 zuc
*if yr2 = true
  *set zuc_yr2 zuc
*if yr3 = true
  *set zuc_yr3 zuc
*if yr4 = true
  *set zuc_yr4 zuc
*if yr5 = true
  *set zuc_yr5 zuc
*set zuc_tot + zuc
*set yield / 500
*set hp + yield

*set hp_round round(hp)
*return

*label yield_harvest
*if (yr1 = true)
  *rand yield 50 60
*if (yr2 = true)
  *rand yield 50 70
*if (yr3 = true)
  *rand yield 50 80
*if (yr4 = true)
  *rand yield 50 90
*if (yr5 = true)
  *rand yield 50 95
*return