13 lines
650 B
Plaintext
13 lines
650 B
Plaintext
PPchk=(:BTCP>=-17)*(:BTCP<=3)*(:LTCP>=-15)*(:RTCP>=-15)
|
|
Rchk=(:LTCR<=40)*(:LTCR>=0)*(:RTCR<=0)*(:RTCR>=-40)
|
|
:Pchk=(PPchk*Rchk) b="\n"
|
|
if:Mine then:turtle=10end goto1
|
|
//Ang=b+"B:"+:BTCR+" "+:BTCP+b
|
|
//:Ang=Ang+"L:"+:LTCR+" "+:LTCP+b+"R:"+:RTCR+" "+:RTCP+b+"Pchk:"+:Pchk
|
|
|
|
// Uncomment the two lines above if you want to see angles on your
|
|
// turrets on a screen named :Ang. Movce the line 4 below them.
|
|
// :BTCP is bottom turret current pitch, :LTCP and :RTCP are for
|
|
// top turrets. :Mine is mine button, :turtle is turtle button
|
|
// :PChk is store on memory chip (or other device)
|
|
// This, positioning and Control mining chips replace the original. |