Well I need quantum ranking system.
Thnx =)
or any goood ranking system
:play_ball
Printable View
Well I need quantum ranking system.
Thnx =)
or any goood ranking system
:play_ball
=(?
i have quantum ranking system.
:D
um.. so, wouldnt it be nice of you to give it to him? instead of jsut telling him u got it LOL, what a teaser.... i like you already. :D
i gave you on the msn =]
ggb gave it to me a few days
I'll make work quantums sod for u ggb
=)
send me in msn sod
bah :_(
hablame en español si eres de venezuela xD =)
this is a char lvl ranking, not the sod ranking
u mean this ?
SGPT SOD Ranking
thats why i have not released anything more to the community. Full of credit-stealers
some ppl leave the credits dude
I'm one of them
I send u pm =)
my registration:
<%
Response.CacheControl = "no-cache"
Response.AddHeader "pragma","no-cache"
Response.Expires = -1
ip="xxxxx"
db="xxxxx"
logg="xxxxx"
pass="xxxxx"
Conn = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog="&db&";Data Source="&ip&";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID="&ip&";Use Encryption for Data=False;Tag with column collation when possible=False;User Id="&logg&";password="&pass
k=0
l=0
canCreate= false
isBanned = 0
clientIP = Request.ServerVariables("REMOTE_ADDR")
login = replace(REQUEST("login"),"'","''")
pass = replace(REQUEST("password"),"'","''")
email = REQUEST("email")
acccreated = Session("acccreated")
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "select banned from account_inscription where accountIP='"+clientIP+"' and banned is not null"
RS.Open sql,Conn,0,1
if not rs.eof then isBanned=rs("banned") end if
rs.close
if isBanned<1 then
dataBaseLetter = Ucase(left(login,1))
sql = "select count(*) as NBR from account_inscription where date_inscription > = DATEADD(HOUR, -12, GETDATE())"
RS.Open sql,Conn,0,1
last12hours = rs("nbr")
if last12hours <21 then canCreate = true end if
rs.close
if login<>"" and pass<>"" and email<>"" and acccreated="" then
sql = "select userid from "+dataBaseLetter+"GameUser where userid='"+login+"'"
RS.Open sql,Conn,0,1
if not rs.eof then k=k+1 end if
rs.close
if k=0 then
sql = "select count(accountName) as nbr from account_inscription where accountIP='"+clientIP+"'"
RS.Open sql,Conn,0,1
l=rs("nbr")
rs.close
if l<3 then
ladate = left(now(),10)
lemois = left(ladate,2)
lannee = right(ladate,4)
lejour = right(left(ladate,5),2)
lheure = right(now(),8)
ladate = lejour&"/"&lemois&"/"&lannee&" "&lheure
sql = "insert into account_inscription values('"+login+"','"+clientIP+"','"+email+"','"&ladate&"','','')"
RS.Open sql,Conn,0,1
sql = "insert into "+dataBaseLetter+"GameUser (userid,Passwd,RegistDay,inuse,grade,EventChk,SelectChk,BlockChk,SpecialChk,Credit,DelChk) values ('"+login+"','"+pass+"','"+ladate+"','0','0','0','0','0','0','0','0')"
RS.Open sql,Conn,0,1
acccreated = login
Session.Contents("acccreated") = login
end if
end if
end if
end if
Set RS = nothing
%>
<html>
<head><title>FroggPT - Register <%=last12hours%></title>
<SCRIPT language="javascript" src="js/register.js"></SCRIPT>
<LINK rel="stylesheet" type="text/css" href="css/froggpt.css"/></head>
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" bgcolor="#ffffff">
<table width="100%" height="100%"><tr><td valign="middle" align="center">
<%if acccreated<>"" then%><b class="txt">account <%=acccreated%> successfully created</b><%else%>
<form name="inscription" method="post" action="javascript:<%if isBanned=1 then%>alert('The IP you are using as been banned')<%else%><%if canCreate=true then%>sendForm()<%else%>alert('Too much account created thoose 12hours past, plz retry later')<%end if%><%end if%>">
<table border="0" cellspacing="0" cellpadding=0 width="350" height="150"><tr><td colspan="3" height="1" bgcolor="#16935c"><img src="images/pix.gif"></td></tr>
<tr><td bgcolor="#16935c" width="1"><img src="images/pix.gif"></td><td align="center">
<table border="0" width="300">
<tr><td class="bigtitle" colspan="2" align="left">[ FroggPT : Account Creation ]</td></tr>
<tr><td class="txt" colspan="2"><img src="images/pix.gif" height="5"></td></tr>
<tr><td class="txt" width="150">Game Login </td><td width="150"><input name="login" type="text" value="<%=login%>" maxlenght="8"></td></tr>
<tr><td class="txt">Game Password</td><td><input name="password" type="password" value="" maxlenght="8"></td></tr>
<tr><td class="txt">E-mail</td><td><input name="email" type="text" value="<%=email%>" maxlenght="200"></td></tr>
<tr><td class="txt"> </td><td align=center><input type="submit" value="OK"></td></tr>
</table>
</td><td bgcolor="#16935c" width="1"><img src="images/pix.gif"></td></tr>
<tr><td colspan="3" height="1" bgcolor="#16935c"><img src="images/pix.gif"></td></tr></form></table>
<%end if%>
<%if k>0 then%><script language=javascript>alert("this account already exist, please choose an other")</script><%end if%>
<%if l>=3 then%><script language=javascript>alert("you already got 3 accounts, you can't create more account\n Support : admin@frogg.fr")</script><%end if%>
</td></tr></table>
</body>
</html>
Quantum regsitration :
<!-- All credits to quantum fusion. Dynamicfusion@gmail.com By using this page, you agreed not to remove this tag-->
<%
if request.querystring("reg")<> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=PENTIUM4\SQLEXPRESS;UID=songjianyong;PWD=XXX;DATABASE=account_db"
name=request.form("user")
pass=request.form("pass")
Conn.open DSNtest
'First check if account is registered before ?
strsql="select * from " & lcase(left(name,1)) & "GameUser WHERE [userid]='"&lcase(name)&"'"
Set rs = Conn.execute (StrSql)
found=""
Do until rs.EOF
found=rs("userid")
rs.movenext
loop
if lcase(found)=lcase(name) then
response.write "<script>alert('That account has already been taken, please use another . Thank you')</script>"
elseif len(pass)>6 then
response.write "<script>alert('Password must be less than 6 characters !!!')</script>"
elseif instr(name,"'")=>1 or instr(pass,"'")=>1 then
response.write "<script>alert('No Sql injection allowed thank you ')</script>"
else
stringx="'username' ,'password','0','0','datereg','1/1/2030 12:00:00 AM ','30','0','0','0','0','0','0','0','0','0.0000','24/7/2006 12:00:00 AM','24/7/2007 12:00:00 AM','24/7/2006 12:00:00 AM','0','0','0','0','0','0','0','0','0','0'"
'stringx="INSERT INTO "& ucase(left(name,1)) & "GameUser"& " ([userid],[Passwd],[GameCode],[GPCode],[RegistDay],[DisuseDay],[UsePeriod],[inuse],[Grade],[EventChk],[SelectChk],[BlockChk],[SpecialChk],[ServerName],[Credit],[ECoin],[StartDay],[LastDay],[EditDay],[RNo],[DelChk],[SNo],[Channel],[BNum],[MXServer],[MXChar],[MXType],[MXLevel],[MXExp]) VALUES('username','password','0','0','1/1/1900 12:00:00 AM','1/1/2030 12:00:00 AM','30','0','0','0','0','0','0','0','0','0.00','24/7/2006 12:00:00 AM','24/7/2007 12:00:00 AM','24/7/2006 12:00:00 AM',0,'0','0','0','0','0','0',0,0,0);"
stringx="INSERT INTO "& ucase(left(name,1)) & "GameUser"& " ([userid],[Passwd],[GameCode],[GPCode],[RegistDay],[DisuseDay],[UsePeriod],[inuse],[Grade],[EventChk],[SelectChk],[BlockChk],[SpecialChk],[ServerName],[Credit],[ECoin],[StartDay],[LastDay],[EditDay],[RNo],[DelChk],[SNo],[Channel],[BNum],[MXServer],[MXChar],[MXType],[MXLevel],[MXExp]) VALUES('username','password','0','0',NULL,NULL,'30','0','0','0','0','0','0','0','0','0.00',NULL,NULL,NULL,0,'0','0','0','0','0','0',0,0,0)"
stringx=replace(stringx,"username",name)
stringx=replace(stringx,"password",pass)
conn.execute stringx
response.write "<script>alert('Done ! Welcome To the community !!')</script>"
end if
conn.close
end if
%><body bgcolor="#000000" text="#CCFFCC"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="595">
<!-- All credits to quantum fusion. Dynamicfusion@gmail.com!CCC -->
<tr>
<td width="100%" style="background-repeat: no-repeat; background-position: center 50%; ; background-image:url('top.JPG')" background="top.JPG" height="243"> </td>
</tr>
<tr>
<td width="100%" style="background-repeat: no-repeat; background-position: center 50%; " height="214" background="mid.JPG" align="center" valign="top">
<form method="POST" action="login.asp?reg=true">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber2">
<tr>
<td width="40%"> </td>
<td width="1%"><b>Username:</b><input type="text" name="user" size="20" style="background-color: #808080" value="<%=request.form("user")%>"><p>
<b>Password:</b><input type="password" name="pass" size="21" style="background-color: #808080"></p>
<p align="left">
<input type="submit" value="Register" name="B1" style="font-family: ver; font-size: 8pt; font-weight: bold; background-color: #808080"></p>
</td>
<!-- All credits to quantum fusion. Dynamicfusion@gmail.com! -->
<td width="60%"> </td>
</tr>
</table>
<p> </p>
</form>
</td>
</tr>
<tr>
<td width="100%" height="138" background="bot.JPG" style="background-image: url('bot.JPG'); background-repeat: no-repeat; background-position: center">
<p align="center"><u><b>Designed by:Dynamicfusion@gmail.com</b></u></p>
<p> </p>
<p> </p>
<p> </td>
</tr>
</table>
<!-- All credits to quantum fusion. Dynamicfusion@gmail.com -->
<!-- All credits to quantum fusion. Dynamicfusion@gmail.com -->
(deleted)
frog,, can u upload yours full or quantum pls
instead of fighting =)
lets keep alive the community
if ppl dont want to share well....that's selfish
I have a wow server, l2 server,, and I always share with the developers all the stuff...why in this community ppl dont share?
=(
i havent Quantum 's file, i just searched his registration on gameeffect and posted it to compare it, i didn't like what quantum said on me, i just wanted to show that he was wrong
i share things but, i dont upload files on this forum : i havent an account on any upload sites.
and for the clan system i am still working on it, so i will see
yah I know u done your own sod file,, and I think that's good
:)
btw u have me in msn
I have send u the guy that will help u with the hex editing,, u can trust him 100%
I do that things not because I need the file,, I have like 20 ppl that have servers in my msn,, and I help all of them,, sending clan system, helping them in how to put up a server etc..
It would be nice if u share them(in msn)
The sod ranking system is avaliable in gamerspace. you just didnt search properly
sry superskunk , because ur using login.asp the same name so i tot u only modified the skin
U r welcome, i know that s lot of people steal credits, try to hack server, take sources and claim them ....
but i am really working on pt and trying to do what i havent
u made a really great job on ur forum (it helps me to set up correctly the setup my server 1 month ago)
i tried help people on it, but each time i post on gmaeeffect post is isnt saved.
Btw Happyhardocre post helped me to set clan system.
yap , me too
Gamerspeaces saying "Board (OFFLINE)" :(