20CN网络安全小组论坛 - 编程破解 - 一个游戏的启示，求助？请问这是怎么回事，我不明白能不能解释！谢谢

论坛: 编程破解标题: 一个游戏的启示，求助？请问这是怎么回事，我不明白能不能解释！谢谢

作者: hahatwo [hahatwo]

论坛用户

k=1
i=0
j=1
randomize
l=fix(65*rnd+44)'匀速转多少2~5圈
randomize
h=22
h=fix(22*rnd+0)'减慢转多少0~1圈
toplay()
end sub

sub toplay()
k=k+1
for x=1 to 22
document.all("f"&x).bgcolor="#FFFFFF"
next
document.all("f"&j).bgcolor="red"
j=j+1
if j>22 then j=1
if k<=l-h then
settimeout "toplay()",20
else
i=i+1
if i>h then
Wins=Win(j-1)
if Win(j-1)>0 then
theform.win.value=Win(j-1)
bgs.src="../../../multimedia/3.mid"
bgs.loop="0"
else
bgs.src="../../../multimedia/2.mid"
bgs.loop="0"
end if
theform.submit()
exit sub
end if
settimeout "toplay()",20*i
end if
end sub

function show(NN)
if NN=3 or NN=6 or NN=11 or NN=14 or NN=18 or NN=21 then
NN="2"
elseif NN=2 or NN=5 or NN=10 or NN=19 then
NN="4"
elseif NN=8 or NN=13 or NN=17 then
NN="6"
elseif NN=7 or NN=16 or NN=0 then
NN="8"
elseif NN=9 or NN=20 then
NN="10"
elseif NN=4 or NN=15 then
NN="30"
elseif NN=12 then
NN="50"
elseif NN=1 then
NN="0"
end if
show=NN
end function

function Win(NN)
if NN=3 or NN=6 or NN=11 or NN=14 or NN=18 or NN=21 then
NN=2*document.theform.e1.value
elseif NN=2 or NN=5 or NN=10 or NN=19 then
NN=4*document.theform.e2.value
elseif NN=8 or NN=13 or NN=17 then
NN=6*document.theform.e3.value
elseif NN=7 or NN=16 or NN=0 then
NN=8*document.theform.e4.value
elseif NN=9 or NN=20 then
NN=10*document.theform.e5.value
elseif NN=4 or NN=15 then
NN=30*document.theform.e6.value
elseif NN=12 then
NN=50*document.theform.e7.value
elseif NN=1 then
NN=0*document.theform.e7.value
end if
Win=NN
end function

地主发表时间: 06/19 17:24

论坛: 编程破解