9 lines
442 B
Plaintext
9 lines
442 B
Plaintext
lx=0 ly=0 lz=0 k=100 b="\n"
|
|
x=:x y=:y z=:z dx=x-lx lx=x dy=y-ly ly=y dz=z-lz lz=z
|
|
ifdx==0+dy==0+dz==0then:Deltas="\nNot Moving" goto2end
|
|
wx=x-:wx wy=y-:wy wz=z-:wz adx="Opening" ady="Opening" adz="Opening"
|
|
if(wx>0)*(dx<0)+(wx<0)*(dx>0)thenadx="Closing"end
|
|
if(wy>0)*(dy<0)+(wy<0)*(dy>0)thenady="Closing"end
|
|
if(wz>0)*(dz<0)+(wz<0)*(dz>0)thenadz="Closing"end
|
|
s=b+"dx:"+dx+b+"dy:"+dy+b+"dz:"+dz+b+"X: "+adx+b+"Y: "+ady+b+"Z: "+adz
|
|
:Deltas=s goto2 |