- 中查找“需要创造宝石的转生程序”更多相关内容
- 中查找“需要创造宝石的转生程序”更多相关内容
- ·上一篇文章:人数限制修改详细说明
- ·下一篇文章:0.96服务端
需要创造宝石的转生程序
现在的大部分转生程序都是只要钱,这样的转生似乎太容易了,
正好创造宝石也没有什么用处,就拿来转生吧^_^ (如果你想用其他东西也可以)
转生分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楼.
好用就顶顶.
-------------------------------------------------------------------------------------------------------
<!--#include file="conn.asp" -->
<!--#include file="top.asp" -->
<%
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 "<script language=javascript>alert('\n\n对不起,目前只提供转生"&totalcocunt&"次!');history.back()</script>"
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 "<script language=javascript>alert('\n\n帐号信息错误,请重新填写!');history.back()</script>"
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
%>
<script language=javascript>alert('\n\n<%=lifeneedlevel%>级才可以转生,下去好好修炼修炼吧!');history.back()</script>
<%
response.end
end if
if rs1("money")<lifemoney then
response.write "<script language=javascript>alert('\n\n身上没钱就不要来这里,你以为我白忙活啊!');history.back()</script>"
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 "<script language=javascript>alert('\n\n转生的人物不能最后退出游戏或在中!');history.back()</script>"
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")<lifemoney then
rslife("lifecount")=rslife("lifecount")-1
rslife.update
response.write "<script language=javascript>alert('\n\n你现在是"&newlife&"转,需要"&lifemoney&",钱不够呀!');history.back()</script>"
response.end
end if
end if
if newlife>=gjlevel then
lifemoney=lifemoney+(rslife("lifecount")*levelmoney)
if rs1("money")<lifemoney then
rslife("lifecount")=rslife("lifecount")-1
rslife.update
response.write "<script language=javascript>alert('\n\n你现在是"&newlife&"转,需要"&lifemoney&",钱不够呀!');history.back()</script>"
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 "<script language=javascript>alert('\n\n你现在是"&newlife&"转,需要"&(newlife-gjlevel)*levelItems+Itemsnum&"个"&Itemsname&",你现在只有"&bshnum&"个,数清楚了没有!');history.back()</script>"
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
%>
<center>
<font color=white>【<%=rs1("name")%>】 恭喜你的〖法师〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
</font></center>
<!--#include file="copyright.asp" -->
<%
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
%>
<center>
<font color=white>【<%=rs1("name")%>】 恭喜你的〖魔导士〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
</font></center>
<!--#include file="copyright.asp" -->
<%
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
%>
<center>
<font color=white>【<%=rs1("name")%>】 恭喜你的〖战士〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
</font></center>
<!--#include file="copyright.asp" -->
<%
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
%>
<center>
<font color=white>【<%=rs1("name")%>】 恭喜你的〖骑士〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
</font></center>
<!--#include file="copyright.asp" -->
<%
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
%>
<center>
<font color=white>【<%=rs1("name")%>】 恭喜你的〖精灵〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
</font></center>
<!--#include file="copyright.asp" -->
<%
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
%>
<center>
<font color=white>【<%=rs1("name")%>】 恭喜你的〖圣射手〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
</font></center>
<!--#include file="copyright.asp" -->
<%
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
%>
<center>
<font color=white>【<%=rs1("name")%>】 恭喜你的〖魔剑〗已经<%=newlife%>转成功,你现在已经有<%=getpoint%>自由分配点了,转生费:<%=lifemoney%>MU币!<% if bshnum>0 then %>和<%=bshnum%>个<%=Itemsname%><% end if %>
</font></center>
<!--#include file="copyright.asp" -->
<%
response.end
end if
end if
else
%>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" background="images/top_bg5.gif">
<tr>
<td width="100"> </td>
<td width="578"><FORM method=post name=chgform action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2">
<h3 align="center">
<font color="#FF0000">请仔细阅读以下注意事项</font></h3>
<div align="left">
<p>目前提供转生<strong><font color="#FF0000" size="+2" face="Arial, Helvetica, sans-serif"><%=totalcocunt%></font></strong>次,以后再开放<%=totalcocunt%>转以上.</p>
<p>
一,<font color="#FF0000">转生的人物不能最后退出游戏或在游戏中</font>,否则会转生失败(转生之前,退到选择角色界面,选择任意一个不是转生要用的人物进入,然后退出,就可以正常转生了)
<font color=blue>二,转生人物身上和包裹中的各种装备,物品,都要存放在仓库里,否则会被没收</font>
三,转生需要<%=lifeneedlevel%>级,转生后人物变成<%=lifedonelevel%>级,各项属性点数保持该职业初始状态不变.并获得与转生前人物级别相同的自由分配点数(魔剑多20%).(这里好绕~比如您330级转生,转生后就获得330点(魔剑396点)自由分配点数.340级转就获得340点(魔剑408点)自由分配点数.)
四,转生费用,<font color="#FF0000">转生所需的MU币和宝石要带在转生人物的身上.</font>
<font color="#FF0000">初级转生</font>:<%=zjlevel%>转以下,手续费是<font color=black><b><%=lifemoney%></b></font>大洋!
<font color="#FF0000">中级转生</font>:<%=zjlevel%>转以上(含),手续费是<font color=black><b><%=lifemoney%>+你是第几转×<%=levelmoney%></b></font>大洋!
<font color="#FF0000">高级转生</font>:<%=gjlevel%>转以上(含),手续费是<font color=black><b><%=lifemoney%>+你是第几转×<%=levelmoney%></b></font>大洋!<font color="#FF0000">外加</font><%=Itemsnum%>+(<font color=black>你是第几转</font>-<%=gjlevel%>)×<%=levelItems%>个<strong><%=Itemsname%></strong>
(例如你是<strong>2</strong>转、<strong>3</strong>转,都是基本转生费<font color=black><b><%=lifemoney%></b></font>。如果你是<strong>5</strong>转,那么就是<font color=black><b><%=lifemoney%>+<%=levelmoney%>×5</b></font>)。 如果你是19转,那么转生费是<font color=black><b><%=lifemoney%>+<%=levelmoney%>×5</b></font>MU币和<%=Itemsnum%>+(19-<%=gjlevel%>)×<%=levelItems%>=16个<strong><%=Itemsname%></strong>
五,请严格按照转生要求操作,否则不规范的操作将会视为尝试寻找并利用转生BUG而受到封停帐号的惩罚,如果有BUG请及时到<a href=<%=bbs%>><font color="#FF0000"></font></a>提出,否则利用BUG或知情不报的行为将会受到惩罚。
</p>
</div>
</td>
</tr>
<tr>
<td width="200">
<div align="right"><img src="http://www.5uwl.net/wyjs/2005/Images/m2.jpg" width="134" height="205"></div>
</td>
<td width="378">
<table align=center border=0 cellpadding=5 cellspacing=1 width="100%">
<tbody>
<tr>
<td align=right class=txt_gray width="30%">
<div align="right">角色名称: </div>
</td>
<td class=txt_gray>
<input maxlength=12 name=userchr size=17>
</td>
</tr>
<tr>
<td align=right class=txt_gray>
<div align="right">用户帐号: </div>
</td>
<td class=txt_gray>
<input maxlength=12 name=username size=17>
</td>
</tr>
<tr>
<td align=right class=txt_gray>
<div align="right">用户密码: </div>
</td>
<td class=txt_gray>
<input maxlength=12 name=password size=17 type="password">
</td>
</tr>
<tr>
<td height=1 colspan=2>
<p align="center"> <a href="javascript:document.chgform.submit()"><img border=0 src="http://www.5uwl.net/wyjs/2005/images/bt_confirm.gif"></a>
<img src="http://www.5uwl.net/wyjs/2005/images/bt_back.gif" style="cursor:hand" >
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</FORM>
</td>
<td width="100"></td>
</tr>
</table>
<!--#include file="copyright.asp" -->
<%end if%>
Tags:
作者:佚名评论内容只代表网友观点,与本站立场无关!
评论摘要(共 0 条,得分 0 分,平均 0 分)
查看完整评论