mashsparge100619

[mashprep]
"Status" VariableType = String
"Resumepoint" VariableType = String
"Resumepoint" value = "start"
new value mashpumprate
mashpumprate = 60
new value heatrate
heatrate = 100
new value mashrate
mashrate = 48
new value stuckmashlimit
stuckmashlimit = 8
new value MLTSP
new value striketemp2
"BKL PID" target = 0
"Dough in" state = false
"Pauser" state = false
"Mash timer" Type = CountDown
stop "Boil timer"
"Boil timer" Type = CountDown
reset "Sparge timer"
stop "Mash timer"
"Strike temp" value = 0
"Sparge volume" value = 0
"Preboil volume" value = 0
"Mash temp" value = 0
"Mash temp1" value = 0
"Mash temp2" value = 0
"Mash temp3" value = 0
"Mash temp4" value = 0
"Mash temp5" value = 0
"Mash time1" value = 00:00:00
"Mash time2" value = 00:00:00
"Mash time3" value = 00:00:00
"Mash time4" value = 00:00:00
"Mash time5" value = 00:00:00
"Hop time0" value = 0
"Hop time1" value = 0
"Hop time2" value = 0
"Hop time3" value = 0
"Hop time4" value = 0
"Hop time5" value = 0
"Hop time6" value = 0
"Hop time7" value = 0
"Hop time8" value = 0
"Hop time9" value = 0
"Boil time" value = 00:00:00
"Boil timer" value = 00:00:00
stop "hop timer"
"hop timer" value = 00:01:00
"Hopstand temp" value = 0
"First wort" value = false
"Status" value = "Send recipe data"
wait "Pauser" state == true
"Pauser" state = false
"Status" value = "CHecK vaLvEs"
wait "Pauser" state == true
"Pauser" state = false
"Status" value = "MasHinGPrEp"
"Boil timer" value = "Boil time" value
"RIMS PID" Enabled = true
"RIMS PID" target = "Strike temp" value + 5
"HLT vlv" value = 0
"HLT vlv return" state = on
"BKL vlv" value = 0
sleep 2000
"MLT vlv" value = heatrate
"MLT pump" value = mashpumprate
"HLT pump" value = 50
"Status" value = "HEaTing"
sleep 7000
goto heating1

[heating1]
"Resumepoint" value = "heating1"
mashpumprate = "MLT pump" value
striketemp2 = "Strike temp" value - 1
if "MLT temp" value >= striketemp2
"RIMS PID" target = "Strike temp" value
endif
if "Pauser" state == true
"Pauser" State = false
goto stopmash
endif
if "Dough in" state == true
	"RIMS PID" Enabled = false
	"Status" value = "StoPPiNg"
	stop "Mash timer"
	"MLT vlv" value = 0
	sleep 5000
	"MLT pump" value = 0
  	"Mash timer" value = "Mash time1" value
	delete striketemp2
	"Dough in" state = false
	"Status" value = "aDD gRaiN"
	wait "Pauser" state == true
	"Pauser" state = false
	"RIMS PID" Enabled = true
	"RIMS PID" target = "Mash temp" value
	"Status" value = "StaRTinG"
	print "mashing started"
	"MLT vlv" value = mashrate
	"MLT pump" value = mashpumprate
	sleep 5000
	start "Mash timer"
	"Status" value = "MaShiNg"
	goto mash1
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	goto stopmash
endif
if "MLT temp" value >= "Strike temp" value
	"Status" value = "ready for dough in"
	endif
sleep 1000
goto heating1

[mash1]
"Resumepoint" value = "mash1"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "Mash timer" value <= 00:00:00:00
  "RIMS PID" Target = "Mash temp1" value + 2
  stop "Mash timer"
  goto heating2
  endif
sleep 1000
goto mash1

[heating2]
sleep 1000
"Resumepoint" value = "heating2"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT temp" value >= "Mash temp1" value
  "RIMS PID" Target = "Mash temp1" value
  "Mash timer" value = "Mash time2" value
  start "Mash timer"
  goto mash2
  endif
sleep 1000
goto heating2

[mash2]
"Resumepoint" value = "mash2"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "Mash timer" value <= 00:00:00
  "RIMS PID" Target = "Mash temp2" value + 2
  stop "Mash timer"
  goto heating3
  endif
sleep 1000
goto mash2

[heating3]
"Resumepoint" value = "heating3"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT temp" value >= "Mash temp2" value
  "RIMS PID" Target = "Mash temp2" value
  "Mash timer" value = "Mash time3" value
  start "Mash timer"
  goto mash3
  endif
sleep 1000
goto heating3

[mash3]
"Resumepoint" value = "mash3"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "Mash timer" value <= 00:00:00
  "RIMS PID" Target = "Mash temp3" value + 2
  stop "Mash timer"
  goto heating4
  endif
sleep 1000
goto mash3

[heating4]
"Resumepoint" value = "heating4"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT temp" value >= "Mash temp3" value
  "RIMS PID" Target = "Mash temp3" value
  "Mash timer" value = "Mash time4" value
  start "Mash timer"
  goto mash4
  endif
sleep 1000
goto heating4

[mash4]
"Resumepoint" value = "mash4"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "Mash timer" value <= 00:00:00
  "RIMS PID" Target = "Mash temp4" value + 2
  stop "Mash timer"
  goto heating5
  endif
sleep 1000
goto mash4

[heating5]
"Resumepoint" value = "heating5"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT temp" value >= "Mash temp4" value
  "RIMS PID" Target = "Mash temp4" value
  "Mash timer" value = "Mash time5" value
  start "Mash timer"
  goto mash5
  endif
sleep 1000
goto heating5

[mash5]
"Resumepoint" value = "mash5"
mashpumprate = "MLT pump" value
if "Pauser" state == true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "MLT volume" value < stuckmashlimit
	"Stuck mash" Active = true
	mashrate = "MLT vlv" value
	goto stopmash
endif
if "Mash timer" value <= 00:00:00
  stop "Mash timer"
	"Resumepoint" value = "spargeprep"
  goto spargeprep
  endif
sleep 1000
goto mash5

[stopmash]
"Status" value = "StoPPiNg"
stop "Mash timer"
"RIMS PID" Enabled = false
"MLT vlv" value = 0
sleep 5000
"MLT pump" value = 0
"Stuck mash" Active = false
"Pauser" state = false
"Status" value = "PaUsED"
wait "Pauser" state == true
"Status" value = "StaRTinG"
"Pauser" state = false
"MLT vlv" value = heatrate
"MLT pump" value = mashpumprate
sleep 5000
"RIMS PID" Enabled = true
if "Resumepoint" value == "heating1"
		"Status" value = "HEaTing"
		goto heating1
endif
if "Resumepoint" value == "mash1"
		"Status" value = "MaShiNg"
	   start "Mash timer"
	   goto mash1
endif
if "Resumepoint" value == "heating2"
		"Status" value = "HEaTing"
		goto heating2
endif
if "Resumepoint" value == "mash2"
		"Status" value = "MaShiNg"
	   start "Mash timer"
	   goto mash2
endif
if "Resumepoint" value == "heating3"
		"Status" value = "HEaTing"
		goto heating3
endif
if "Resumepoint" value == "mash3"
		"Status" value = "MaShiNg"
	   start "Mash timer"
	   goto mash3
endif
if "Resumepoint" value == "heating4"
		"Status" value = "HEaTing"
		goto heating4
endif
if "Resumepoint" value == "mash4"
		"Status" value = "MaShiNg"
	   start "Mash timer"
	   goto mash4
endif
if "Resumepoint" value == "heating5"
		"Status" value = "HEaTing"
		goto heating5
endif
if "Resumepoint" value == "mash5"
		"Status" value = "MaShiNg"
	   start "Mash timer"
	   goto mash5
endif


[spargeprep]
delete mashpumprate
delete mashrate
delete mashpumprate
delete heatrate
delete stuckmashlimit
new bool boilstart
new bool finished
new value MLTintegrator
new value MLTtoplevel
new value MLTlowlevel
new value lastMLTlevel
new value MLTleveldiff
new value averageMLTlevel
new value averagecounter
new value lasthltvlv
new value lastbklvlv
new value spargeloopcounter
new value flowcounter
flowcounter = -20
new value flowmin
flowmin = 0.9
new value flowmax
flowmax = 1.1
new bool spargedone
spargedone = false
"RIMS PID" enabled = false
"HLT flow" enabled = false
"Pauser" state = false
"HLT pump" value = 0
"MLT pump" value = 0
"HLT vlv" value = 0
"BKL vlv" value = 0
"MLT vlv" value = 0
"HLT vlv return" state = off
"Status" value = "SpArgEPrEp"
sleep 30000
"HLT pump" value = 50
"MLT pump" value = 50
"HLT vlv" value = 40
"BKL vlv" value = 39
"HLT flow" enabled = true
sleep 15000
MLTSP = "MLT volume" value
lastMLTlevel = "MLT volume" value
MLTtoplevel = MLTSP + 0.1
MLTlowlevel = MLTSP - 0.1
reset "Sparge timer"
start "Sparge timer"
"Status" value = "SpArgE"
stop "hop timer"
"hop timer" value = 00:03:00
goto sparge

[sparge]
MLTtoplevel = MLTSP + 0.1
MLTlowlevel = MLTSP - 0.1
if "Pauser" state == true
	lasthltvlv = "HLT vlv" value
	lastbklvlv = "BKL vlv" value
	"Pauser" state = false
	goto stopsparge
endif
if "BKL volume" value >= 11
	if boilstart == false
	"BKL PID" enabled = true
	"BKL PID" Target = 98.8
	print "BKL heating started"
	boilstart = true
	endif
endif
if "BKL volume" value >= "Preboil volume" value
	if "Preboil volume" value >= 10
	lasthltvlv = "HLT vlv" value
	lastbklvlv = "BKL vlv" value
	finished = true
	goto stopsparge
	endif
endif
if spargedone == false
	if spargeloopcounter >= 40
	averageMLTlevel = averagecounter / 40
	averagecounter = 0
	MLTleveldiff = averageMLTlevel - lastMLTlevel
	MLTintegrator = MLTleveldiff * 3
	"BKL vlv" value += MLTintegrator
		if averageMLTlevel > MLTtoplevel
			if  MLTleveldiff > 0.02
			"BKL vlv" value += 0.5
			endif
		endif
		if averageMLTlevel < MLTlowlevel
			if MLTleveldiff < -0.02
			"BKL vlv" value -= 0.5
			endif
		endif
	lastMLTlevel = averageMLTlevel
	spargeloopcounter = 0
	endif
	if flowcounter >= 20
		if "HLT flow" rate <= flowmin
		"HLT vlv" value += 0.5
		endif
		if "HLT flow" rate >= flowmax
		"HLT vlv" value -= 0.5
		endif
	flowcounter = 0
	endif
	if "HLT flow" total >= "Sparge volume" value
		flowmin = 0
		flowmax = 0
		"HLT vlv" value = 0
		spargedone = true
		print "sparge volume reached"
		sleep 3000
		"HLT vlv return" state = on
	endif
averagecounter += "MLT volume" value
spargeloopcounter += 1
flowcounter += 1
endif
if "First wort" value == true
	"Hop alarm" state = true
	"Status" value = "First wort hop"
	start "hop timer"
	"First wort" value = false
endif
if "hop timer" value <= 00:00:00
	"Status" value = "SpArgE"
	stop "hop timer"
	"hop timer" value = 00:01:00
endif
if "Hop alarm" state == true
	"Hop addition" Active = true
else
	"Hop addition" Active = false
endif
sleep 500
goto sparge

[stopsparge]
"Status" value = "StoPPiNg"
"HLT vlv" value = 0
"BKL vlv" value = 0
sleep 4000
"HLT pump" value = 0
"MLT pump" value = 0
stop "Sparge timer"
if finished == true
	"BKL PID" Target = 104
	"Status" value = "ReADy tO BoiL!"
	print "sparging done"
	"RIMS PID" Enabled = true
	"RIMS PID" Target = 0
	"HLT PID" Target = 0
	"The end" Active = true
	sleep 3000
	"The end" Active = false
	wait "BKL temp" value >= 99.4
	goto boilprep
endif
"Status" value = "PaUsED"
wait "Pauser" state == true
	"HLT pump" value = 50
	"MLT pump" value = 50
	"HLT vlv" value = lasthltvlv
	"BKL vlv" value = lastbklvlv
	"MLT vlv" value = 0
	"HLT vlv return" state = off
	"Pauser" state = false
	start "Sparge timer"
  	"Status" value = "SpArgE"
goto sparge

[boilprep]
delete bool boilstart
delete bool finished
delete value MLTintegrator
delete value MLTtoplevel
delete value MLTlowlevel
delete value lastMLTlevel
delete value MLTleveldiff
delete value averageMLTlevel
delete value averagecounter
delete value lasthltvlv
delete value lastbklvlv
delete value spargeloopcounter
delete value flowcounter
delete value flowmin
delete value flowmax
delete bool spargedone
"Status" value = "boiling"
"Boil timer" value = "Boil time" value
start "Boil timer"
"Boil mode" state = true
"Boilpower" value = 75
stop "hop timer"
"hop timer" value = 00:01:00
print "boiling start"
"Boiling" active = true
sleep 1500
"Boiling" active = false
goto boil

[boil]
if "Boil timer" value <= "Hop time0" value
	new time hoptime00
	hoptime00 = "Hop time0" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time1" value
	new time hoptime00
	hoptime00 = "Hop time1" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time2" value
	new time hoptime00
	hoptime00 = "Hop time2" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time3" value
	new time hoptime00
	hoptime00 = "Hop time3" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time4" value
	new time hoptime00
	hoptime00 = "Hop time4" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time5" value
	new time hoptime00
	hoptime00 = "Hop time5" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time6" value
	new time hoptime00
	hoptime00 = "Hop time6" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time7" value
	new time hoptime00
	hoptime00 = "Hop time7" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time8" value
	new time hoptime00
	hoptime00 = "Hop time8" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		delete hoptime00
		start "hop timer"
endif
endif
if "Boil timer" value <= "Hop time9" value
	new time hoptime00
	hoptime00 = "Hop time9" value - 00:00:04
	if "Boil timer" value >= hoptime00
		"Hop alarm" State = true
		"Status" value = "hop addition"
		"BKL PID" target = "Hopstand temp" value
		"Boil mode" state = false
		"Boilpower" value = 0
		if "Hopstand temp" value > 0
			"Status" value = "Hopstand"
			else
			"Status" value = "done"
			endif
		delete hoptime00
		start "hop timer"
endif
endif

if "Hop alarm" state == true
	"Hop addition" Active = true
else
	"Hop addition" Active = false
endif
if "hop timer" value <= 00:00:00
	"Status" value = boiling
	stop "hop timer"
	"hop timer" value = 00:01:00
	endif
if "BKL temp" value < 60
	if "Boil timer" value <= 00:00:00
	"BKL PID" enabled = false
	"Status" value = "done"
	endif
	endif

sleep 800
goto boil