★★称重量的外挂★★（已上传原代码）

XIAObo595219317

ENTITY/CYL(1000)
" ]! W  b, i) v: V8 B2 [4 SNUMBER/VAL(42),MIDU
STRING/stt(200),wjwz(200)
% q6 g' O, N  }5 {# f1 w4 OMIDU=7.85 $$ 密度
2 z# [) {/ [+ |string/part_name(132),ERP(132)
string/date1(132),date2(132),date3(132),date4(132)
ioi=0

1 ]' }" f9 W* N         $$程序加密，用时间限制使用权限$$
$ l+ A! G% g3 [+ u4 q& f( w( C
    date1=substr(date,1,2)
    date2=substr(date,5,2)
    date3=substr(date,9,2)
    date4=date3+date1+date2
% I) n  t. _) z+ U, a4 K        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
; q5 x9 X+ ?" R3 P4 O    $$messg/date4
( ?7 R. V: z) J9 \( m  l! H- u3 E    if/valf(date4)>20140416,jump/messg:
2 Y- O- n& y/ ]3 N7 n! b
) B& o8 P0 v  W# q2 H: n1 J0 wstart:
  l8 R* m1 l5 C  k$ V! m0 ?) i
/ `2 k$ U  o$ x0 ZL10:
  t, m6 S3 ]7 [3 O& r    param/'肖波提示:请输入密度...',$
          '密度(g/mm")',MIDU,resp
          JUMP/L10:,END:,,resp
2 G/ j1 s7 t) M  S) w
6 o1 ^$ t0 _, dL20:
6 \$ s( O2 O$ C6 M% e/ i' i$ j0 ~MASK/70     
IDENT/'肖波提示:请选择实体...',CYL,cnt,nm,RESP
JUMP/L20:,END:,,resp
$$注意UG单位是（毫米/英寸）   GCM  表示厘米/克   
ANLSIS/SOLID,CYL(1..nm),GCM,VAL
( p) p+ ]9 I1 b2 N9 ~# ]) Y! n$$ 质量=密度*体积  
ZL_g=MIDU*VAL(2)   $$ 质量(克)
ZL_kg=ZL_g/1000    $$ 质量(千克)
ZL_t=ZL_g/1000000  $$ 质量(吨)
  k+ k9 ]( _0 E, |  }/ [ioi=ioi+1
" W% ^" o7 E: D& q4 z
7 o3 I! X) [/ R: t
; a* R! S1 T3 }" Q6 il30:
           jump/start:
* `& B! Y, G2 r1 r( O
. E! i" ?1 X/ J% w: C1 U: bmessg:
- X& |9 J9 a0 R4 T            messg/'程序使用中有任何问题',$
                  '你的使用时间已过期,请联系肖波 QQ:595219317'
# O) D1 n8 z- }7 t6 i' P
trm:

& O, h- t& }: X0 L( D+ A1 ^HALT
5 j5 s1 G( `+ p8 z/ y3 |5 g

望··

DDDDDDDDDDDDDD

cbgjx5

有这么神奇的外挂！