ASP SCRIPT RESET
Código PHP:
<!--#include file="conn.asp" -->
<%
lifedbnames="reset.mdb"
lifeneedlevel=400 'nivel minimo para hacer el reset
lifedonelevel=1 'nuevo nivel despues del reset
lifedoneexp=0 'experiencia de partida despues del reset
lifemoney=50000000 'zen necesario para el reset (inventario)
totalcocunt=100 'Numero de resets permitidos
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 accountname<>"" and password<>"" then
set rslife = Server.CreateObject("ADODB.Recordset")
sqllife="select * from Life where character='"&character&"'"
rslife.open sqllife,conn,1,3
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\nLogin incorrecto');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\nYou must be at least level <%=lifeneedlevel%>');history.back()</script>
<%
response.end
end if
zscs=rslife("lifecount")+1
if rs1("money")<lifemoney then
response.write "<script language=javascript>alert('\n\nNo tienes suficiente zen en tu inventario. Necesitas "&lifemoney&" zen.');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 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("level")=rs1("clevel")
rslife("lifecount")=rslife("lifecount")+1
rslife("time")=now()
rslife.update
end if
if rs1("class")=0 then
'????
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife.update
getpoint=rslife("getpoint")
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=("LevelUpPoint")
rs1("Strength")=("Strength")
rs1("Dexterity")=("Dexterity")
rs1("Vitality")=("Vitality")
rs1("Energy")=("Energy")
rs1("Inventory")=("Inventory")
rs1("MagicList")=("MagicList")
rs1("Life")=("Life")
rs1("MaxLife")=("MaxLife")
rs1("Mana")=("Mana")
rs1("MaxMana")=("MaxMana")
rs1("MapNumber")=("MapNumber")
rs1("MapPosX")=("MapPosX")
rs1("MapPosY")=("MapPosY")
rs1("Pklevel")=3
rs1("Mapdir")=("Mapdir")
rs1("Inventory")=null
rs1("MagicList")=null
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&", you have done "&rslife("lifecount")&" resets. You have won "&getpoint&" points. Reduced "&lifemoney&" zen!');location.href='home.asp';</script>"
response.end
end if
if rs1("class")=1 then
'????
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife.update
getpoint=rslife("getpoint")
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=("LevelUpPoint")
rs1("Strength")=("Strength")
rs1("Dexterity")=("Dexterity")
rs1("Vitality")=("Vitality")
rs1("Energy")=("Energy")
rs1("Inventory")=("Inventory")
rs1("MagicList")=("MagicList")
rs1("Life")=("Life")
rs1("MaxLife")=("MaxLife")
rs1("Mana")=("Mana")
rs1("MaxMana")=("MaxMana")
rs1("MapNumber")=("MapNumber")
rs1("MapPosX")=("MapPosX")
rs1("MapPosY")=("MapPosY")
rs1("Pklevel")=3
rs1("Mapdir")=("Mapdir")
rs1("Inventory")=null
rs1("MagicList")=null
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&", you have done "&rslife("lifecount")&" resets. You have won "&getpoint&" points. Reduced "&lifemoney&" zen!');location.href='home.asp';</script>"
response.end
end if
