15 lines
590 B
Plaintext
15 lines
590 B
Plaintext
x=7.2 y=-6.48 r=57.296 dd=12 s=-35 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=:MineHeight/2 :lp1=lpc :lp2=lpc :lr1=0 :lr2=0 lr=mh/d*r
|
|
md=:MineDepth/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
|