用户登录  | 
首 页技术文章软件发布广告价格
当前位置:传奇游戏服务端下载站传奇站长论坛资源网站程序技术文章文章资讯游戏架设教程奇迹技术

需要创造宝石的转生程序

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2014-10-03 23:41:16

现在的大部分转生程序都是只要钱,这样的转生似乎太容易了,
正好创造宝石也没有什么用处,就拿来转生吧^_^ (如果你想用其他东西也可以)
转生分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

dedecms.com



'计算公式
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" -->

dedecms.com


<%
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>

dedecms.com


                </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 分) 查看完整评论
传奇资源网提供最新传奇开区一条龙版本下载,本站声明:只更新最新最好的传奇服务端分享给大家。