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

XIAObo595219317

ENTITY/CYL(1000)
( X1 `; u1 ?6 vNUMBER/VAL(42),MIDU
- B7 ^0 F8 P8 n% i0 iSTRING/stt(200),wjwz(200)
MIDU=7.85 $$ 密度
. y- H9 o: L2 }1 P, k: z. @string/part_name(132),ERP(132)
9 Y3 L# }$ S& u/ wstring/date1(132),date2(132),date3(132),date4(132)
& g! |7 S, \/ a) w; E2 l" @ioi=0

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

7 P; d0 n) ~0 d0 ~. l# Y    date1=substr(date,1,2)
    date2=substr(date,5,2)
9 Y7 e- N& c: U0 b+ a    date3=substr(date,9,2)
    date4=date3+date1+date2
- \1 o9 o' r5 Y. ]" U0 Z        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
    $$messg/date4
    if/valf(date4)>20140416,jump/messg:

5 n8 _- U- i& E& Tstart:
& C$ @+ _& Z1 i  K
L10:
    param/'肖波提示:请输入密度...',$
          '密度(g/mm")',MIDU,resp
; ^4 V& I( A9 l  X8 Y$ m4 f1 s( Q' Q          JUMP/L10:,END:,,resp

L20:
MASK/70     
IDENT/'肖波提示:请选择实体...',CYL,cnt,nm,RESP
7 y! N& I% V6 X: e9 ]JUMP/L20:,END:,,resp
( i" l, `+ J+ q( m9 ]6 U3 A, z$$注意UG单位是（毫米/英寸）   GCM  表示厘米/克   
- g% s6 T' a9 MANLSIS/SOLID,CYL(1..nm),GCM,VAL
, a8 }& [' B' g4 P3 _+ S$$ 质量=密度*体积  
ZL_g=MIDU*VAL(2)   $$ 质量(克)
ZL_kg=ZL_g/1000    $$ 质量(千克)
ZL_t=ZL_g/1000000  $$ 质量(吨)
) m9 |  |' s4 y' E: b4 jioi=ioi+1

( e- _6 e" M$ v( `$ a9 j5 c( N2 |
l30:
           jump/start:

messg:
8 S; b( E) T# s: z& H4 V& A            messg/'程序使用中有任何问题',$
                  '你的使用时间已过期,请联系肖波 QQ:595219317'
, |6 V. T3 I) t1 y' C2 A0 k
& d& r* b% t! g4 ^$ Z. otrm:
+ P5 g9 K1 Z5 k* n8 o! I
HALT

望··

DDDDDDDDDDDDDD

cbgjx5

有这么神奇的外挂！