能力值：
( LV2，RANK：10 )
|
-
-
2 楼
clear all
set century on
public xm, xb, xz, wxg, uv, n, y, r, s, nl, sx, zf, nnf, nx, nyf, nrf, jqq, gnf, gyf, grf, xq, jry, yu2
public x_0, x_1, x_2, x_3, y_0, y_1, y_2, y_3, z_0, z_1, z_2, z_3, ns0, ns1, ns2, rs0, rs1, rs2, xa
public ps1, ps2, s_k, rec，bbh, bqsy, b1, b2, b3, n1, n2, n3, n5, tbb, sj0, xyrj, gy
public jq(12,2), wx(5), n_x(60), sk(24), sxw(12), uy(12), yyt, s3
yyt = 0
sj0 = VAL(SYS(2))
xl3 = 0
xl1 = VAL(SYS(1001))
xl2 = VAL(SYS(2020))
xl3 = (XL1+XL2)/97*21/17+147-99
xl3 = IIF(XL3 < 1000000,XL3*14-5,XL3)
xl3 = IIF(XL3 < 1000000,XL3*14-5,XL3)
xl3 = IIF(XL3 < 1000000,XL3*14-5,XL3)
xl3 = IIF(XL3 < 1000000,XL3*14-5,XL3)
xl3 = IIF(XL3 < 10000000,XL3*4-5,XL3)
xl3 = IIF(XL3 < 10000000,XL3*4-5,XL3)
xl3 = IIF(XL3 < 10000000,XL3*4-5,XL3)
xl3 = IIF(XL3 < 10000000,XL3*4-5,XL3)
xl3 = IIF(XL3 < 10000000,XL3*4-5,XL3)
xl3 = IIF(XL3 > 999999999,XL3/13+7,XL3)
xl3 = IIF(XL3 > 999999999,XL3/13+7,XL3)
xl3 = IIF(XL3 > 999999999,XL3/13+7,XL3)
xl3 = IIF(XL3 > 99999999,XL3/3+7,XL3)
xl3 = IIF(XL3 > 99999999,XL3/3+7,XL3)
xl3 = IIF(XL3 > 99999999,XL3/3+7,XL3)
xl3 = IIF(XL3 > 99999999,XL3/3+7,XL3)
xl3 = IIF(XL3 > 99999999,XL3/3+7,XL3)
s3 = 0
xl3 = VAL(STR(XL3))
s1 = MOD(XL3,1001)*32/3
s2 = (MOD(XL3,101)+S1)*18/5
s3 = ALLTRIM(STR(S1))+ALLTRIM(STR(S2))
s3 = VAL(S3)*3+231-156
s3 = IIF(S3 < 1000000,S3*14-7,S3)
s3 = IIF(S3 < 1000000,S3*14-7,S3)
s3 = IIF(S3 < 1000000,S3*14-7,S3)
s3 = IIF(S3 < 10000000,S3*4-7,S3)
s3 = IIF(S3 < 10000000,S3*4-7,S3)
s3 = IIF(S3 < 10000000,S3*4-7,S3)
s3 = IIF(S3 < 10000000,S3*4-7,S3)
s3 = IIF(S3 > 999999999,S3/13+5,S3)
s3 = IIF(S3 > 999999999,S3/13+5,S3)
s3 = IIF(S3 > 999999999,S3/13+5,S3)
s3 = IIF(S3 > 99999999,S3/3+5,S3)
s3 = IIF(S3 > 99999999,S3/3+5,S3)
s3 = IIF(S3 > 99999999,S3/3+5,S3)
s3 = IIF(S3 > 99999999,S3/3+5,S3)
s3 = VAL(STR(S3))
use zcm.lib
goto 9
xyrj = ZCM
if ZCM = S3
tbb = ""
else
tbb = "未注册版本"
endif
|
我自己跟了一下,很难解决,有时间限制,未注册版本6分钟会关闭.不过这个很好搞掉, 就是后面解决注册问题我觉得很难...大家可以调试下...测试一下自己的实力哦!!
