alias sensor d0

alias vwriter d3
alias hwriter d4

alias vertical r15
alias horizontal r14

define HEAVYSOLAR -1545574413
start:

l r0 sensor Vertical
bgt r0 90 night
div r2 r0 1.5
sub r2 50 r2
max r2 r2 0
min vertical r2 100

l r0 sensor Horizontal
#sub r1 360 r0
add r1 90 r0
mod horizontal r1 360

sb HEAVYSOLAR Vertical vertical
sb HEAVYSOLAR Horizontal horizontal

yield
j start


night:

sb HEAVYSOLAR Vertical 0
sb HEAVYSOLAR Horizontal 90

huntdawn:
yield
l r0 sensor SolarAngle
bgt r0 90 huntdawn

j start