|
发表于 2005-6-16 23:43:00
|
显示全部楼层
Re:基本伤害公式推导请教
'''''''''''''''''''法一'''''''''''''''''''''
sub pre1()
dim atk,def,dam as integer
if atk<=100 and atk>=1 and def<=100 and def>=1 then
dam=int((50+1-1)*Rnd-1)
end if
end sub
'''''''''''''''''''''''''法二''''''''''''''''''''''''''''
sub pre2()
dim atk,def,dam as integer
if atk<=100 and atk>=1 and def<=100 and def>=1 and atk<>def then
dam=int(abs(atk-def)*rnd/2)
end if
if atk<=100 and atk>=1 and def<=100 and def>=1 and atk=def then
dam=1
end if
end sub
'''''''''''''''''''''''''''''' |
|