人物变身程序和在线加点系统 [复制链接]

下面是大家想要的人物变身/变性系统

变身要求220级，变身之后10级，有少量变身点数

注意：变身之后，保留人物转身而获得的转生点数，请放心！

以下是 userbs.asp 文件


<%
lifeneedlevel=220 '需要多少级，最好不要小于220级

lifepercent=2 '变身获得点数百分比，即每次变身获得前次所有点数的2%，不想给的话就改成0

lifedonelevel=10 '变身后多少级

lifedoneexp=1000 '变身后经验多少

lifemoney=50000000 '变身需要多少钱

accountname=request.form("username")
password=request.form("password")
character=request.form("userchr")
newtype=request.form("new_type")

if instr(accountname,"'")<>0 then response.end
if instr(accountname,"=")<>0 then response.end
if instr(accountname,"%")<>0 then response.end

if accountname<>"" and password<>"" then

set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from MEMB_INFO where memb___id = '"&accountname&"' and memb__pwd='"&password&"'"

rs.open sql,conn,1,1

if rs.eof or rs.bof then

response.write ""

response.end

else

set rs1 = Server.CreateObject("ADODB.Recordset")

sql1="select * from Character where AccountID='"&accountname&"' and Name='"&character&"' and cLevel>="&lifeneedlevel

rs1.open sql1,conn,1,3

if rs1.eof or rs1.bof then

%>


<%
response.end

end if

if rs1("money")
response.write ""

response.end

end if

set rs3 = Server.CreateObject("ADODB.Recordset")

sql3="select * from AccountCharacter where id = '"&accountname&"'"

rs3.open sql3,conn,1,3

if rs3("gameidc")=rs1("name") then

response.write ""

response.end

end if


if newtype<>0 and newtype<>1 and newtype<>16 and newtype<>17 and newtype<>32 and newtype<>33 and newtype<>48 then
response.write ""
response.end
end if


if newtype=0 then newname="法师"
if newtype=1 then newname="魔导师"
if newtype=16 then newname="剑士"
if newtype=17 then newname="骑士"
if newtype=32 then newname="弓箭手"
if newtype=33 then newname="圣射手"
if newtype=48 then newname="魔剑士"


if rs1("class")=0 then

'判断变身是否合理
if newtype=0 then
response.write ""
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpointgetpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=18
rs1("Dexterity")=18
rs1("Vitality")=15
rs1("Energy")=30
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write ""
response.end
end if


if rs1("class")=1 then

'判断变身是否合理
if newtype=1 then
response.write ""
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpointgetpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint

rs1("Strength")=18
rs1("Dexterity")=18
rs1("Vitality")=15
rs1("Energy")=30
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write ""
response.end
end if

限制发贴长度，下面是文件的后半段

if rs1("class")=16 then

'判断变身是否合理
if newtype=16 then
response.write ""
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpointgetpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write ""
response.end
end if


if rs1("class")=17 then

'判断变身是否合理
if newtype=17 then
response.write ""
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpointgetpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write ""
response.end
end if


if rs1("class")=32 then

'判断变身是否合理
if newtype=32 then
response.write ""
response.end
end if

if newtype<>33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpointgetpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
rs1.update
response.write ""
response.end
end if


if rs1("class")=33 then

'判断变身是否合理
if newtype=33 then
response.write ""
response.end
end if

if newtype<>32 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpointgetpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
rs1.update
response.write ""
response.end
end if


if rs1("class")=48 then

'判断变身是否合理
if newtype=48 then
response.write ""
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpointgetpoint=getpoint-rs1("cLevel")*7-80+lifedonelevel*7+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=26
rs1("Dexterity")=26
rs1("Vitality")=26
rs1("Energy")=26
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write ""
response.end
end if
end if
else
%>

人物变身 color=#FF0000>请仔细阅读以下注意事项 color=#cc3300> color=#cc3300> ① 变身的人物不能最后退出游戏或在游戏中，否则会变身失败(变身之前，退到选择角色界面，选择任意一个不是变身要用的人物进入游戏，然后退出，就可以正常变身了) ② 变身人物身上和包裹中的各种装备，物品，都要存放在仓库里，否则会被没收 ③ 变身需要<%=lifeneedlevel%>级，变身后人物变成<%=lifedonelevel%>级，各项属性点数保持该职业初始状态不变。奖励变身点数留在升级点数中供玩家自行分配！ ④ 变身系统保留人物转生所获得的转生点数，并且加在升级点数中！ color=#cc3300>⑤ 变身点数计算公式：变身点数＝属性点数总和×<%=lifepercent%>％ color=#cc3300>⑥ 变身收取手续费 <%=lifemoney%> MU币，变身人物必须携带足够的MU币 ⑦ 请严格按照变身要求操作，否则不规范的操作将会视为尝试利用变身BUG而受到封停帐号的惩罚，如果有BUG请及时到论坛提出，否则利用BUG或知情不报的行为将会受到惩罚。 角色名称 用户帐号 用户密码 请选择您想变成的职业： 剑士 法师 弓箭手 骑士 魔导师 圣射手 魔剑士

<%
end if
rs1.close
set rs1=nothing
connlife.close
set connlife=nothing
%>

在网页中添加变身系统的方法
复制下面 inc_hy.asp 文件内容，然后覆盖到web目录下的inc_hy.asp文件即可

以下是 inc_hy.asp 文件的内容

注册帐号

修改密码

取回密码

修改资料

清洗红名

角色转生

人物变身

在线加点

仓库密码

以下是修改bug之后的在线加点程序
这个是修改过bug之后的加点程序，修正了无限加点的漏洞
以前使用的人请及时更新！

--------- userjd.asp 的文件内容


<%
jdmust=10 '剩余点数大于此数才能加点
money=1000000 '在线加点服务收费
kou=10 '对贪心的惩罚，扣去的点数
if request("action")="dl" then
stats="提交"
call jd_1()

elseif request("action")="jd" then
stats="分配点数"
call jd_2()
else
stats="协议"
call jd_3()

end if
'-------------------------------------开始分配点数------------------------------------------
sub jd_2()
id=session("usern")
pass=session("userp")
char=session("userc")
llt=request("llt")
tlt=request("tlt")
mjt=request("mjt")
zlt=request("zlt")

if llt<0 or tlt<0 or mjt<0 or zlt<0 then
response.write ""
response.end
end if

jds=int(llt)+int(tlt)+int(mjt)+int(zlt)
if id="" or pass="" or char="" then
response.write ""
response.end
else
call check()
lva=session("lvp")
if lva call koudian()
response.write ""
response.end
else
call jiadian(llt,tlt,mjt,zlt,jds)
response.write ""
response.end
end if
end if
end sub
'--------------------------------扣点-----------------------------
sub koudian()
id=session("usern")
char=session("userc")
set rs8 = Server.CreateObject("ADODB.Recordset")
sql8="select * from Character where AccountID='"&id&"' and Name='"&char&"'"
rs8.open sql8,conn,1,3
rs8("LevelUpPoint")=rs8("LevelUpPoint")-kou
rs8.update
rs8.Close
end sub
'--------------------------------------加点----------------------------
FUNCTION jiadian(llt,tlt,mjt,zlt,jds)
id=session("usern")
char=session("userc")
set rs8 = Server.CreateObject("ADODB.Recordset")
sql8="select * from Character where AccountID='"&id&"' and Name='"&char&"'"
rs8.open sql8,conn,1,3
rs8("LevelUpPoint")=rs8("LevelUpPoint")-jds
rs8("Strength")=rs8("Strength")+llt
rs8("Dexterity")=rs8("Dexterity")+mjt
rs8("Vitality")=rs8("Vitality")+tlt
rs8("Energy")=rs8("Energy")+zlt
rs8("money")=rs8("money")-money
rs8.update
rs8.Close
END FUNCTION

'--------------------------------检验提交的表单的数据--------------------------------------------
sub jd_1()
char=request.form("userc")
id=request.form("usern")
pass=request.form("passw")
session("userc")=char
session("usern")=id
session("userp")=pass
if instr(usern,"'")<>0 or instr(usern,"=")<>0 or instr(usern,"%")<>0 or id="" or pass="" or char="" then
response.write ""
response.end
else
call check()
end if
call jd()
end sub

'-----------------------------检验-----------------------------------
sub check()
id=session("usern")
pass=session("userp")
char=session("userc")
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from MEMB_INFO where memb___id = '"&id&"' and memb__pwd='"&pass&"'"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
response.write ""
response.end
else
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where AccountID='"&id&"' and Name='"&char&"' and LevelUpPoint>="&jdmust
rs1.open sql1,conn,1,3
if rs1.eof or rs1.bof then
response.write ""
response.end
end if
if rs1("money") response.write ""
response.end
end if
end if
session("lvp")=rs1("LevelUpPoint")
session("ll")=rs1("Strength")
session("tl")=rs1("Vitality")
session("mj")=rs1("Dexterity")
session("zl")=rs1("Energy")
rs1.Close
rs.Close
end sub


'-----------------------------登陆---------------------------------
sub jd_3()
%>

在线加点系统 在线加点每次收费<%=money%>MU币 color=#cc3300>请输入您的登陆信息 角色名称 用户帐号 用户密码

<%end sub

'----------------------------分配点数--------------------------------
sub jd()
char=session("userc")
id=session("usern")
lvp=session("lvp")
session("lvp")=""
lls=session("ll")
tls=session("tl")
mjs=session("mj")
zls=session("zl")
%>

在线加点系统 角色名称 <%=char%> 用户帐号 <%=id%> 所加点数总和不要超过剩余点数 否则将扣去<%=kou%>点作为您贪心的惩罚!! 剩余点数 <%=lvp%> 点 力量 <%=lls%> + 敏捷 <%=mjs%> + 体力 <%=tls%> + 智力 <%=zls%> +

<%end sub%>

---------------------------------------------------------------------------------
原贴：http://bbs.china-mu.com/dispbbs.asp?BoardID=10&id=44274&replyID=193532&star=1&skin=
作者：visvoy
---------------------------------------------------------------------------------