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

XIAObo595219317

ENTITY/CYL(1000)
* c& l( ?' A7 t. M7 e- }4 [* ENUMBER/VAL(42),MIDU
8 |& y8 y+ \4 YSTRING/stt(200),wjwz(200)
MIDU=7.85 $$ 密度
5 q5 v6 w; I6 _string/part_name(132),ERP(132)
* _1 L+ h9 ]1 {1 Cstring/date1(132),date2(132),date3(132),date4(132)
- N( h7 j5 z4 m- q4 {+ gioi=0

         $$程序加密，用时间限制使用权限$$

    date1=substr(date,1,2)
    date2=substr(date,5,2)
    date3=substr(date,9,2)
    date4=date3+date1+date2
5 i! Y+ j$ R1 O# W        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
) b7 s1 }2 _2 G0 k- y# H7 `6 H    $$messg/date4
3 {+ r) o( W! ]( z$ c) _    if/valf(date4)>20140416,jump/messg:

, Y) _; e1 c) X2 L/ a" [7 ustart:
& j- e' D4 c/ d9 R4 ^/ m% M
L10:
4 X) H/ o% {% R0 ~/ D) w1 M    param/'肖波提示:请输入密度...',$
          '密度(g/mm")',MIDU,resp
          JUMP/L10:,END:,,resp

L20:
MASK/70     
- i& ?. l8 z3 w+ hIDENT/'肖波提示:请选择实体...',CYL,cnt,nm,RESP
JUMP/L20:,END:,,resp
$$注意UG单位是（毫米/英寸）   GCM  表示厘米/克   
ANLSIS/SOLID,CYL(1..nm),GCM,VAL
& M) g, M8 h1 S  ]  U7 w$$ 质量=密度*体积  
1 G* z. d4 M; _8 L( ~6 }ZL_g=MIDU*VAL(2)   $$ 质量(克)
( M8 }/ @$ c8 r& C, wZL_kg=ZL_g/1000    $$ 质量(千克)
; A# Q9 d/ F7 U; z, B. @- mZL_t=ZL_g/1000000  $$ 质量(吨)
ioi=ioi+1
% ^5 J1 k' j. l( n" o
& P+ u; u5 {' E
6 I' i  }- R: ^  rl30:
           jump/start:

! i# P/ E) U% s* C3 `messg:
            messg/'程序使用中有任何问题',$
6 n: ~  L+ v. Q( P% b                  '你的使用时间已过期,请联系肖波 QQ:595219317'

trm:
5 }5 V. Q, R7 n& O7 u5 |2 S& b
HALT
3 {* w: v: Z, k

望··

DDDDDDDDDDDDDD

cbgjx5

有这么神奇的外挂！