现在的大部分转生程序都是只要钱,这样的转生似乎太容易了,
正好创造宝石也没有什么用处,就拿来转生吧^_^ (如果你想用其他东西也可以)
转生分3个等级,例如:
初级转生：3转以下(含),手续费是50000000大洋!
中级转生：4转以上，手续费是50000000＋你是第几转×10000000大洋!
高级转生：17转以上，手续费是50000000＋你是第几转×10000000大洋!外加10+(你是第几转－17)×3个创造宝石
掉创造宝石的方法:在\data\lang\kor\item(Kor).txt里的14小节出加上下面的代码.
22 1 1 1 0 1 "创造宝石" 0 78
下面虚线内的就是转生程序代码了.由于帖子限制大小,后一段代码在2楼.
好用就顶顶.
-------------------------------------------------------------------------------------------------------
<%
lifedbnames="data.mdb" '转生数据库名，为了安全请自行改名
lifeneedlevel=300 '转生需要多少级
lifedonelevel=1 '转生后多少级
lifedoneexp=0 '转生后经验多少
lifemoney=50000000 '基本转生需要多少钱
levelmoney=10000000 '中级转生以上根据级别多加的钱
totalcocunt=26 '允许转生的最多次数
zjlevel=4 '中级转生从第几次开始
gjlevel=17 '高级转生从第几次开始
lifeItems=214 '高级转生需要的物品代码，214是创造，208是生命（实际上就是十六进制的物品代码转为十进制后的数字）
Itemsname="创造宝石" '高级转生需要的物品名称
Itemsnum=10 '高级转生需要的物品基数，设为0就是没有基数
levelItems=3 '高级转生每多转1次需要多增加的物品数量
accountname=request.form("username")
password=request.form("password")
character=request.form("userchr")
if instr(accountname,"'")<>0 then response.end
if instr(accountname,"=")<>0 then response.end
if instr(accountname,"%")<>0 then response.end
if instr(accountname,"&")<>0 then response.end
if instr(password,"'")<>0 then response.end
if instr(password,"=")<>0 then response.end
if instr(password,"%")<>0 then response.end
if instr(password,"&")<>0 then response.end
if accountname<>"" and password<>"" then
connstrs = "DBQ="+server.mappath(lifedbnames)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set connlife = Server.CreateObject("ADODB.Connection")
connlife.Open connstrs
set rslife = Server.CreateObject("ADODB.Recordset")
sqllife="select * from life where character='"&character&"'"
rslife.open sqllife,connlife,1,3
if rslife.eof or rslife.bof then
else
if rslife("lifecount")>=totalcocunt then
response.write ""
response.end
end if
end if
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 rslife.eof or rslife.bof then
rslife.addnew
rslife("character")=rs1("name")
rslife("level")=rs1("cLevel")
rslife("time")=now()
rslife("lifecount")=rslife("lifecount")+1
else
rslife("lifecount")=rslife("lifecount")+1
rslife("time")=now()
rslife.update
end if
newlife=rslife("lifecount")
if newlife >= zjlevel and newlife < gjlevel then
lifemoney=lifemoney+(rslife("lifecount")*levelmoney)
if rs1("money")rslife("lifecount")=rslife("lifecount")-1
rslife.update
response.write ""
response.end
end if
end if
if newlife>=gjlevel then
lifemoney=lifemoney+(rslife("lifecount")*levelmoney)
if rs1("money")rslife("lifecount")=rslife("lifecount")-1
rslife.update
response.write ""
response.end
end if
dim bshnum
bshnum=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems then
bshnum=bshnum+1
end if
Next
if bshnum < (newlife-gjlevel)*levelItems+Itemsnum then
rslife("lifecount")=rslife("lifecount")-1
rslife.update
response.write ""
response.end
end if
end if
if rs1("class")=0 then
'计算公式
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife("getpoint")=rslife("getpoint")+getpoint
rslife.update
getpoint=rslife("getpoint")
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")=119
rs1("MapPosY")=113
rs1("Pklevel")=3
rs1.update
%>
【<%=rs1("name")%>】 恭喜你的〖法师〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
<%
response.end
end if
if rs1("class")=1 then
'计算公式
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife("getpoint")=rslife("getpoint")+getpoint
rslife.update
getpoint=rslife("getpoint")
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")=119
rs1("MapPosY")=113
rs1("Pklevel")=3
rs1.update
%>
【<%=rs1("name")%>】 恭喜你的〖魔导士〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
<%
response.end
end if
if rs1("class")=16 then
'计算公式
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife("getpoint")=rslife("getpoint")+getpoint
rslife.update
getpoint=rslife("getpoint")
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")=119
rs1("MapPosY")=113
rs1("Pklevel")=3
rs1.update
%>
【<%=rs1("name")%>】 恭喜你的〖战士〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
<%
response.end
end if
if rs1("class")=17 then
'计算公式
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife("getpoint")=rslife("getpoint")+getpoint
rslife.update
getpoint=rslife("getpoint")
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")=119
rs1("MapPosY")=113
rs1("Pklevel")=3
rs1.update
%>
【<%=rs1("name")%>】 恭喜你的〖骑士〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
<%
response.end
end if
if rs1("class")=32 then
'计算公式
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife("getpoint")=rslife("getpoint")+getpoint
rslife.update
getpoint=rslife("getpoint")
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")=174
rs1("MapPosY")=106
rs1("Pklevel")=3
rs1.update
%>
【<%=rs1("name")%>】 恭喜你的〖精灵〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
<%
response.end
end if
if rs1("class")=33 then
'计算公式
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife("getpoint")=rslife("getpoint")+getpoint
rslife.update
getpoint=rslife("getpoint")
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")=174
rs1("MapPosY")=106
rs1("Pklevel")=3
rs1.update
%>
【<%=rs1("name")%>】 恭喜你的〖圣射手〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
<%
response.end
end if
if rs1("class")=48 then
currentlevel=rs1("cLevel")*1.2
getpoint=int(currentlevel)
rslife("getpoint")=rslife("getpoint")+getpoint
rslife.update
getpoint=rslife("getpoint")
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")=119
rs1("MapPosY")=113
rs1("Pklevel")=3
rs1.update
%>
【<%=rs1("name")%>】 恭喜你的〖魔剑〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
<%
response.end
end if
end if
else
%>
