〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
解决杀红名变红名
打开注册系统目录下的clearpk.asp,查找rs1("pklevel")=3,在它的下面加入两行:rs1("pktime")=0和rs1("pkcount")=0,让你的玩家再刷一次红名即可
还有三种方法.
一种是数据库更改pklevel默认值
二种是修改在线洗红名的关于rs的设置.已经有方法了,但是这不是真正引起杀红变红的原因!也不是解决之道.
真正引起杀红变红的原因是,第三种方法。问题就出在这.
一般杀红变红的人都经过了转生,才会这样.分析脚本userzs.asp
会看到rs1("Pklevel")=0 <-代表转生后pklevel比默认少了三点
改成rs1("Pklevel")=3 就应该不会有问题了
还有就是转生后.剩余点数乱跳的问题.正在检查
修改数据库的pklevel默认值。无法保证服务器端不会报错。或者以后出现异常.
请大家小心使用转生系统.现在无错无错.不代表他没错。转生这种事情出点小错,就严重影响游戏平衡
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
转生脚本代码
<%
zsmust=300 '转生需要多少级
zslevel=1 '转生后多少级
zsexp=0 '转生后经验多少
zhuanshengqian=500000000 '转生需要的资金
zhuanshengxianzhi=3 '限制只能转多少次生
g=request.form("userchr")
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from character where name = '"&g&"'"
rs4.open sql4,conn,1,3
if rs4.eof or rs4.bof then
zscsh=0
else
zscsh=rs4("zsnum")
end if
fujia=100+zscsh*60
if request("action")="reg" then
stats="提交注册"
call reg_1()
else
stats="注册协议"
call reg_2()
end if
Private Function check()
n=request.form("username")
p=request.form("userchr")
s=request.form("password")
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from MEMB_INFO where memb___id = '"&n&"' and memb__pwd='"&s&"'"
set rs=conn.execute(sql)
'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='"&n&"' and Name='"&p&"' and cLevel>="&zsmust
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
' if rs1("Inventory")<>null then
' response.write ""
' response.end
' end if
if rs1("zsnum")>=zhuanshengxianzhi then
response.write ""
response.end
end if
set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from AccountCharacter where id = '"&n&"'"
rs3.open sql3,conn,1,3
if rs3("gameidc")=rs1("name") then
response.write ""
response.end
end if
end if
session("zslv")=rs1("cLevel")
end Function
sub reg_1()
p=request.form("userchr")
n=request.form("username")
s=request.form("password")
if instr(n,"'")<>0 or instr(n,"=")<>0 or instr(n,"%")<>0 or n="" or p="" or s="" then
response.write ""
response.end
else
call check()
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from Character where AccountID='"&n&"' and Name='"&p&"' and cLevel>="&zsmust
rs2.open sql2,conn,1,3
rs2("money")=rs2("money")-zhuanshengqian
rs2("zsnum")=rs2("zsnum")+1
rs2("LevelUpPoint")=rs2("cLevel")*rs2("zsnum")
rs2("cLevel")=zslevel
rs2("Experience")=zsexp
if rs2("class")=0 then
rs2("Strength")=18
rs2("Dexterity")=18
rs2("Vitality")=15
rs2("Energy")=30
rs2("Inventory")=null
rs2("MagicList")=null
rs2("Life")=60
rs2("MaxLife")=60
rs2("Mana")=60
rs2("MaxMana")=60
rs2("MapNumber")=0
rs2("MapPosX")=119
rs2("MapPosY")=113
rs2("Pklevel")=3
rs2("PKcount")=0
rs2("PKtime")=0
rs2.update
%>
【<%=rs2("name")%>】 恭喜你的〖法师〗已经<%=rs2("zsnum")%>转成功,你现已经有
<%=rs2("LevelUpPoint")%>自由分配点了,转生费:<%=zhuanshengqian%>MU币!
<%
response.end
end if
if rs2("class")=16 then
rs2("Strength")=28
rs2("Dexterity")=20
rs2("Vitality")=25
rs2("Energy")=10
rs2("Inventory")=null
rs2("MagicList")=null
rs2("Life")=110
rs2("MaxLife")=110
rs2("Mana")=20
rs2("MaxMana")=20
rs2("MapNumber")=0
rs2("MapPosX")=119
rs2("MapPosY")=113
rs2("Pklevel")=3
rs2("PKcount")=0
rs2("PKtime")=0
rs2.update
%>
【<%=rs2("name")%>】 恭喜你的〖剑士〗已经<%=rs2("zsnum")%>转成功,你现在已经有
<%=rs2("LevelUpPoint")%>自由分配点了,转生费:<%=zhuanshengqian%>MU币!
<%
response.end
end if
if rs2("class")=32 then
rs2("Strength")=22
rs2("Dexterity")=25
rs2("Vitality")=20
rs2("Energy")=15
rs2("Inventory")=null
rs2("MagicList")=null
rs2("Life")=80
rs2("MaxLife")=80
rs2("Mana")=30
rs2("MaxMana")=30
rs2("MapNumber")=3
rs2("MapPosX")=174
rs2("MapPosY")=106
rs2("Pklevel")=3
rs2("PKcount")=0
rs2("PKtime")=0
rs2.update
%>
【<%=rs2("name")%>】 恭喜你的〖精灵〗已经<%=rs2("zsnum")%>转成功,你现在已经有
<%=rs2("LevelUpPoint")%>自由分配点了,转生费:<%=zhuanshengqian%>MU币!
<%
response.end
end if
if rs2("class")=48 then
rs2("Strength")=26
rs2("Dexterity")=26
rs2("Vitality")=26
rs2("Energy")=26
rs2("Inventory")=null
rs2("MagicList")=null
rs2("Life")=110
rs2("MaxLife")=110
rs2("Mana")=60
rs2("MaxMana")=60
rs2("MapNumber")=0
rs2("MapPosX")=119
rs2("MapPosY")=113
rs2("Pklevel")=3
rs2("PKcount")=0
rs2("PKtime")=0
rs2.update
%>
【<%=rs2("name")%>】 恭喜你的〖魔剑士〗已经<%=rs2("zsnum")%>转成功,你现在已经有
<%=rs2("LevelUpPoint")%>自由分配点了,转生费:<%=zhuanshengqian%>MU币!
<%
response.end
end if
if rs2("class")=1 then
rs2("class")=rs2("class")-1
rs2("Quest")=null
rs2("Strength")=18
rs2("Dexterity")=18
rs2("Vitality")=15
rs2("Energy")=50
rs2("Inventory")=null
rs2("MagicList")=null
rs2("Life")=60
rs2("MaxLife")=60
rs2("Mana")=60
rs2("MaxMana")=60
rs2("MapNumber")=0
rs2("MapPosX")=119
rs2("MapPosY")=113
rs2("Pklevel")=3
rs2("PKcount")=0
rs2("PKtime")=0
rs2.update
%>
【<%=rs2("name")%>】 恭喜你的〖魔导士〗已经<%=rs2("zsnum")%>转成功,你现在已经有
<%=rs2("LevelUpPoint")%>自由分配点了,转生费:<%=zhuanshengqian%>MU币!
<%
response.end
end if
if rs2("class")=17 then
rs2("class")=rs2("class")-1
rs2("Quest")=null
rs2("Strength")=48
rs2("Dexterity")=20
rs2("Vitality")=25
rs2("Energy")=10
rs2("Inventory")=null
rs2("MagicList")=null
rs2("Life")=110
rs2("MaxLife")=110
rs2("Mana")=20
rs2("MaxMana")=20
rs2("MapNumber")=0
rs2("MapPosX")=119
rs2("MapPosY")=113
rs2("Pklevel")=3
rs2("PKcount")=0
rs2("PKtime")=0
rs2.update
%>
【<%=rs2("name")%>】 恭喜你的〖骑士〗已经<%=rs2("zsnum")%>转成功,你现在已经有
<%=rs2("LevelUpPoint")%>自由分配点了,转生费:<%=zhuanshengqian%>MU币!
<%
response.end
end if
if rs2("class")=33 then
rs2("class")=rs2("class")-1
rs2("Quest")=null
rs2("Strength")=22
rs2("Dexterity")=45
rs2("Vitality")=20
rs2("Energy")=15
rs2("Inventory")=null
rs2("MagicList")=null
rs2("Life")=80
rs2("MaxLife")=80
rs2("Mana")=30
rs2("MaxMana")=30
rs2("MapNumber")=3
rs2("MapPosX")=174
rs2("MapPosY")=106
rs2("Pklevel")=3
rs2("PKcount")=0
rs2("PKtime")=0
rs2.update
%>
【<%=rs2("name")%>】 恭喜你的〖圣射手〗已经<%=rs2("zsnum")%>转成功,你现在已经有
<%=rs2("LevelUpPoint")%>自由分配点了,转生费:<%=zhuanshengqian%>MU币!
<%
response.end
end if
end if
end sub
sub reg_2()
%>
<%=sitename%>-人物转生
<%end sub%>
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
累死我了 以上就是本人收集整理的一小部分文章了 希望对各位架sf的新手来说有一定的帮助,希望你们新手以后自己去找以前帖子看,这里我就不多说了。希望斑竹加精
还有什么不懂的话 自己去 ftp://ftp.8f9.com/找资料 上面有不少有用的东西等着你们去挖掘,去探索,祝各位新手,好运~