Welcome!

Join our community of MMO enthusiasts and game developers! By registering, you'll gain access to discussions on the latest developments in MMO server files and collaborate with like-minded individuals. Join us today and unlock the potential of MMO server development!

Join Today!

[server files] [jPT] Guide to Clan System (Files Included)

O

Operz

Experienced Elementalist
Joined
Jul 13, 2006
Messages
244
Reaction score
2

Attachments

You must be registered for see attachments list
Last edited by a moderator:
The Best DDoS Protected Servers
S

scazi

Guest
yay !!! tnx alot

fainlly we gonna have clan system

was waiting for it for so long
 
Xephon

Xephon

Newbie Spellweaver
Joined
Jun 30, 2004
Messages
16
Reaction score
1
thanks Operz...

do you also help server beginners with item creation :p?
 
O

Operz

Experienced Elementalist
Joined
Jul 13, 2006
Messages
244
Reaction score
2
People have been explaining that a lot. ;)
Try looking in other forums also. :)
 
Xephon

Xephon

Newbie Spellweaver
Joined
Jun 30, 2004
Messages
16
Reaction score
1
don't mean to be spoonfed, but a link to this forum would help me alot.
I don't mind reading up just as long as I know where the library is ;).
 
O

Operz

Experienced Elementalist
Joined
Jul 13, 2006
Messages
244
Reaction score
2
Look in the credits link in the guide. ;)
 
[lexx]

[lexx]

Custom Title Activated
Loyal Member
Joined
Nov 28, 2004
Messages
2,236
Reaction score
0
ppl, please report how it worked
:alienmental:
 
Last edited:
O

Operz

Experienced Elementalist
Joined
Jul 13, 2006
Messages
244
Reaction score
2
I modified clanRemove.asp after seeing the TODO in the comments, and fixed a quick bug in isCheckClanJang.asp.

clanRemove.asp
Code: 
<!-- #include file ="common.inc" -->
<%
'---------------------------------------
'ModulenName: clanRemove.asp
'Coded by X
'
'Thanx to VitalizePT & Strawberry PT 
'for the support & return data values.
'
'Modified by OperZ
'--------------------------------------
'
' This file is to dismiss a clan
'

dim eSql
dim eUID
dim eChName
dim eServerName
dim eName
dim eTicket
dim eServer

on error resume next
'userid=%s&
'gserver=%s
'&chname=%s
'&clName=%s
'&ticket=%d

eUID = GetParameter ("userid","String")
eChName= GetParameter("chname","String")
eServerName = GetParameter ("gserver","String")
eName = GetParameter("clName","String")
eTicket = GetParameter("ticket","Numeric")


OpenDBConnection

eServer = GetServerID(eServerName)

eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket) 
eRs.Open eSql, eDb
AbortOnError
AbortOnEmptyCursor

if eRs(0) < 1 then 'Wrong ticket
	Response.Write "Code=100"
	Response.End	
end if
eRs.close

' check the clan existance
eSql ="Select count(IDX), min(IDX), min(ClanZang) from " & eServer & "ClanMain where ClanName = '" & eName & "'"
eRs.Open eSql, eDb
AbortOnError
AbortOnEmptyCursor

if eRs(0) < 1 then 'Clan not existent
	Response.Write "Code=0"
	Response.End	
end if

'check that userid = leader
if eChName<>eRs(2).value then
	Response.Write "Code=0"
	Response.End	
end if
eRs.close


' -------- Copy data to ClanMainDeleted -------- '
eSql = "INSERT INTO ClanMainDeleted "
eSql = eSql & "("
eSql = eSql & "IDX,		MIDX,		ClanName, "
eSql = eSql & "Userid,	ClanZang,	Flag, "
eSql = eSql & "MemCnt,	MIconCnt,	RegiDate, "
eSql = eSql & "LimitDate,	DelDate,		DelActive, "
eSql = eSql & "PFlag,	KFlag,		DelState, "
eSql = eSql & "DelCase,	Server"
eSql = eSql & ") "

eSql = eSql & "SELECT "
eSql = eSql & "A.IDX,		B.MIDX, "
eSql = eSql & "A.ClanName,		A.Userid, "
eSql = eSql & "A.ClanZang,		A.Flag, "
eSql = eSql & "A.MemCnt,		A.MIconCnt, "
eSql = eSql & "A.RegiDate,		A.LimitDate, "
eSql = eSql & "GETDATE(),		A.DelActive, "
eSql = eSql & "A.PFlag,		A.KFlag, "
eSql = eSql & "'1',			'1', "
eSql = eSql & "'1'"

eSql = eSql & "FROM "& eServer &"ClanMain A, "& eServer &"ClanSub B "
eSql = eSql & "WHERE A.ClanName='" & eName & "' "
eSql = eSql & "AND B.userid='" & eUID & "'"

eRs.Open eSql, eDb
eRs.close


' -------- Delete data from ClanMain -------- '
eSql = "DELETE "& eServer & "ClanMain WHERE ClanName = '" & eName & "'"
eRs.Open eSql, eDb
eRs.close


' -------- Copy data to ClanSubDeleted -------- '
eSql = "INSERT INTO ClanSubDeleted "
eSql = eSql & "("
eSql = eSql & "IDX,		MIDX, "
eSql = eSql & "userid,	ChName, "
eSql = eSql & "ChType,	ChLv, "
eSql = eSql & "ClanName,	Permi, "
eSql = eSql & "JoinDate,	DelActive, "
eSql = eSql & "PFlag,	KFlag, "
eSql = eSql & "DelDate,	DelState, "
eSql = eSql & "DelCase,	Server"
eSql = eSql & ") "

eSql = eSql & "SELECT "
eSql = eSql & "IDX,			MIDX, "
eSql = eSql & "userid,		ChName, "
eSql = eSql & "ChType,		ChLv, "
eSql = eSql & "ClanName,		Permi, "
eSql = eSql & "JoinDate,		DelActive, "
eSql = eSql & "PFlag,		KFlag, "
eSql = eSql & "GETDATE(),		'1', "
eSql = eSql & "'1',			'1' "

eSql = eSql & "FROM "& eServer &"ClanSub "
eSql = eSql & "WHERE ClanName='" & eName & "' "


eRs.Open eSql, eDb
eRs.close


' -------- Delete data from ClanSub -------- '
eSql = "DELETE "& eServer & "ClanSub WHERE ClanName = '" & eName & "'"
eRs.Open eSql, eDb
eRs.close


response.Write "Code=1"

CloseDBConnection
%>


isCheckClanJang.asp
Code: 
<!-- #include file ="common.inc" -->
<%
'---------------------------------------
'ModulenName: isCheckClanJang.asp
'Coded by X
'
'Thanx to VitalizePT & Strawberry PT 
'for the support & return data values.
'
'Modified by OperZ
'--------------------------------------
'
' This file is to ...??
'
dim eSql
dim eUID
dim eServerName
dim eTicket
dim eServer

on Error Resume next

'userid=%s&
'gserver=%s&
'ticket=%d


eUID= GetParameter("userid","String")
eServerName = GetParameter ("gserver","String")
eTicket = GetParameter("ticket","Numeric")

OpenDBConnection

eServer = GetServerID(eServerName)

'eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket) & "and UserID=' " & eUID & "'"
'eRs.Open eSql, eDb
'AbortOnError
'AbortOnEmptyCursor

'if eRs(0) < 1 then 'Wrong ticket
'	Response.Write "Code=100"
'	Response.End	
'end if
'eRs.close

' check the user is on any clan
eSql ="Select count(IDX),count(midx),min(Permi) from " & eServer & "ClanSub where UserID = '" & eUID & "'"
eRs.Open eSql, eDb
AbortOnError
AbortOnEmptyCursor

if eRs(3)<>1 Then
	Response.Write "Code=0"
	Response.End
end if

eRs.close

response.Write "Code=1"

CloseDBConnection
%>
 
Last edited:
X

XxDeMoNxX

Junior Spellweaver
Joined
Apr 5, 2006
Messages
113
Reaction score
75
For advanced people, you can try to insert the value (409000000 + IDX) in the clan icon collum at the clan insertion query.
It is not necessary to create the clan icon at clan creation, but you can do that aswell.

Anyone know how to do tis? I have all the .bmp files ready :p

Omfg, it worked.. I disbanded it
and now i try to make another one i get error 9 -.-
 
Last edited by a moderator:
H

huahuahua

Newbie Spellweaver
10 Happy Years
Joined
Oct 6, 2004
Messages
9
Reaction score
0
error(58)

i post *CLAN_SERVER 127.0.0.1 80 127.0.0.1 80


pparently the Karina Secretariat this functioning but when click in the Clan Master appears error 58

some solution? that I made something wrong?
 
O

Operz

Experienced Elementalist
Joined
Jul 13, 2006
Messages
244
Reaction score
2
XxDeMoNxX said:
For advanced people, you can try to insert the value (409000000 + IDX) in the clan icon collum at the clan insertion query.
It is not necessary to create the clan icon at clan creation, but you can do that aswell.

Anyone know how to do tis? I have all the .bmp files ready :p

Omfg, it worked.. I disbanded it
and now i try to make another one i get error 9 -.-
Click to expand...

Where do you get error 9?
 
F

flesh

Newbie Spellweaver
Joined
Jul 24, 2006
Messages
34
Reaction score
0
the icon bit really confuses me to. i can create the first clan. then create another... change the icon file in the database and it fucks up. it makes it so the members arnt all in 1 clan but the clan that has the changed icon doesnt look like there in a clan at all or just get the [] but they are still in a clan. bmps are right size 32x32 etc.
 
O

Operz

Experienced Elementalist
Joined
Jul 13, 2006
Messages
244
Reaction score
2
What is the name of the clan icon in your ClanContent directory, and what is the name of the clan icon in your database?
 
vampireBR

vampireBR

Newbie Spellweaver
10 Happy Years
Joined
Apr 29, 2004
Messages
31
Reaction score
0
error 58
solution
ur need check connection DB
YOUPCNAME/EXPRESS
Check User and pass for db

Next error 3 ^^
i stop in error 3 =(

i need creat db name Example:
A = Name My server
AClanMain
AClansub
????????????
 
Last edited by a moderator:
M

Mendeleyev

Initiate Mage
Joined
Jul 23, 2006
Messages
2
Reaction score
0
vampire can u be more specific? i still cant get what u mean on fixing error 58
 
You must log in or register to reply here.

About Us

RaGEZONE® is a website dedicated to the development of massively multiplayer online role-playing games (MMORPGs).

Online statistics

Members online
235
Guests online
10,036
Total visitors
10,271
Totals may include hidden visitors.

Forum statistics

Threads
429,124
Messages
4,590,477
Members
280,805
Latest member
Baker
Most visitors online was 10613 , on 26 Apr 2024

RaGEZONE Sponsor

    HyperFilter
Back
Top