哪们兄台指点一下这段代码

awnusspgy

怎么写才能隐藏它们相同体积的实体，谢谢！！
- T. m# Z  Q% R

awnusspgy

   ENTITY /body,obj(1000)
1 f3 ^8 [. }6 M$ R1 }! P    NUMBER /n(42),r(42),density,d,dd
& a7 n7 x, f+ z$ T! ]' G! s. s, E
0 ^; i- D  g( P. @! N3 ?density=1

) P1 t- Z5 k( B) S' E$ j* ml10:
   mask/70
   ident/'选择实体',body,resp
   jump /l10:,end:,,,resp
   &sdens(body)=density
   anlsis/solid,body,gcm,n
# x* f! f# w  i/ }   d=n(3)*1000
; m. d# {' r/ o   $$messg/'该物体的重量为'+fstr(d)+'克'

$ k9 E. `7 d! Y# b0 T   $$--------------
. S; d6 y$ A) e6 |% u# L- ~' L$ Kl20:
   mask/70
/ C9 B! [; t9 m( v& |5 B   ident/'选择实体',obj,cnt,u,resp
   jump /l10:,end:,,,resp
. O# p1 G6 h8 }; J  Q
l30:
   do/l40:,i,1,u
   &sdens(obj(i))=density
   anlsis/solid,obj(i),gcm,r
( _3 D0 B7 {4 [5 c* G$ _   dd=r(3)*1000
$ S% F: X- F3 Z# s' u  V   print/'该物体的重量为'+fstr(dd)+'克'
l40:
l50:
  P) E* N& R0 r3 X   do/l60:,v,1,u
   ifthen/dd==d
( e$ U* l+ M. b1 N4 F7 ]7 K0 d: j   blank/obj(v)
     else
   jump /l50:
; H' }$ e/ c! p+ ^" C     endif
l60:




end:  $$ 跳到此处结束
     HALT