initial

Reference/EGOTech/stocker/yolol/mining/lasers_basic.yolol

@@ -0,0 +1 @@
+if:lasers<1then:lsr1=0 :lsr2=0 goto1end :lsr1=1 :lsr2=1-:leco goto1

Reference/EGOTech/stocker/yolol/mining/lasers_bottom_basic.yolol

@@ -0,0 +1,14 @@
+x=1.92 y=3.84 ry=3.84 r=57.296 dd=12 s=40 m=999
+if:lasers<1thengoto2end rd=:Distance d=rd+x
+ifrd<1 or rd>m thend=dd+x end lpc=y/d*r iflpc>s thenlpc=s end
+mh=:mh/2 :lp3=lpc :lp4=lpc :lr3=lpc :lr4=lpc lru=(ry+mh)/d*r
+lrd=(ry-mh)/d*r md=:md/2 lpf=y/(d+md+md)*r iflpf>s thenlpf=s end
+lpn=y/(d+md)*r iflpn>s thenlpn=s end :lcw2=1
+:lp3=lpf :lp4=lpn :lr3=lru :lr4=lrd :lcw2=3
+:lp3=lpc :lp4=lpc :lr3=lpc :lr4=lpc :lcw2=3
+:lp3=lpn :lp4=lpf :lr3=lru :lr4=lrd :lcw2=3
+:lp3=lpc :lp4=lpc :lr3=lpc :lr4=lpc :lcw2=3
+:lp3=lpn :lp4=lpf :lr3=lrd :lr4=lru :lcw2=3
+:lp3=lpc :lp4=lpc :lr3=lpc :lr4=lpc :lcw2=3
+:lp3=lpf :lp4=lpn :lr3=lrd :lr4=lru
+goto2

Reference/EGOTech/stocker/yolol/mining/lasers_safety_basic.yolol

@@ -0,0 +1 @@
+:lasers*=:fuel>2000 goto1

Reference/EGOTech/stocker/yolol/mining/lasers_top_basic.yolol

@@ -0,0 +1,14 @@
+x=1.92 y=3.84 r=57.296 dd=12 s=40 m=999
+if:lasers<1thengoto2end rd=:Distance d=rd+x
+ifrd<1 or rd>m thend=dd+x end lpc=y/d*r iflpc>s thenlpc=s end
+mh=:mh/2 :lp1=lpc :lp2=lpc :lr1=0 :lr2=0 lr=mh/d*r
+md=:md/2 lpf=y/(d+md+md)*r iflpf>s thenlpf=s end
+lpn=y/(d+md)*r iflpn>s thenlpn=s end :lcw=1
+:lp1=lpf :lp2=lpn :lr1=lr :lr2=-lr :lcw=3
+:lp1=lpc :lp2=lpc :lr1=0 :lr2=0 :lcw=3
+:lp1=lpn :lp2=lpf :lr1=lr :lr2=-lr :lcw=3
+:lp1=lpc :lp2=lpc :lr1=0 :lr2=0 :lcw=3
+:lp1=lpn :lp2=lpf :lr1=-lr :lr2=lr :lcw=3
+:lp1=lpc :lp2=lpc :lr1=0 :lr2=0 :lcw=3
+:lp1=lpf :lp2=lpn :lr1=-lr :lr2=lr
+goto2

Reference/EGOTech/stocker/yolol/mining/mine_basic.yolol

@@ -0,0 +1,4 @@
+pd=10 e=3 x=pd+e k=999
+if:mine<1thenn=0 goto2end if:Distance>k then:mine=0end l=n+3 gotol
+:Approach=1 :scr=1 n=1
+rd=:Distance d=rd+e ifd<1 or rd>x thengoto2end :lasers=1 :mine=0 goto2

Reference/EGOTech/stocker/yolol/mining/mine_depth_switch_basic.yolol

@@ -0,0 +1 @@
+:md=(:md+:mds)*(:md>=0)-:md>:mdm goto1

Reference/EGOTech/stocker/yolol/mining/mine_height_switch_basic.yolol

@@ -0,0 +1 @@
+:mh=(:mh+:mhs)*(:mh>=0)-:mh>:mhm goto1

Reference/EGOTech/stocker/yolol/mining/ore_collector_basic.yolol

@@ -0,0 +1,3 @@
+x=1.44 ry=-0.96 py=-2.4 r=57.296 if:Collect<1thengoto1end
+if:Distance<1thengoto1end d=:Distance+x :op=py/d*r
+:or1=ry/d*r :or2=-:or1 goto1