plz help me :(

Discussion in 'Offline Priston Tale' started by tr1pl3x1, Mar 26, 2007.

  1. tr1pl3x1

    tr1pl3x1 New Member

    Hello Guys,

    i tried allways to put in my clan SOD crown but it's never work :(
    can someone upload the files where SOD crown work plz :(:( i tried so often and never work :(:( im so stupid for this

    thanks all
     
  2. shagpub

    shagpub Moderator Staff Member

    CNFLAG=1 = enable crown CNFLAG =0 dissable crown
    edit your clan in database
     
  3. tr1pl3x1

    tr1pl3x1 New Member

    thanks but i use quantiumfusion clan files (mini sever clan system)
     
  4. tr1pl3x1

    tr1pl3x1 New Member

    i try it but dont work :S

    look plz and help
    hể my isclanMember




    <!-- #include file ="common.inc" -->
    <!--#include file="fso.asp"-->
    <%
    'Modded by quantumfusion
    'dynamicfusion@gmail.com
    'admin@quantumfusion.no-ip.org (msn)

    function CheckIfFileExists(byVal FolderPath, byVal FileName)
    CheckIfFileExists = False
    Dim objFSO
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(FolderPath)
    For Each file In objFolder.files
    if Lcase(file.name) = Trim(LCase(Filename)) Then
    CheckIfFileExists = True
    End if
    Next
    Set objFSO = nothing
    End function
    '---------------------------------------
    'ModulenName: isClanMember.asp
    'Coded by X
    '
    'Thanx to VitalizePT & Strawberry PT
    'for the support & return data values.
    '--------------------------------------
    '
    'This file is to know if char is on a clan
    '
    dim eSql
    dim eServer
    dim eUID
    dim eServerName
    dim eChName
    dim eTicket
    dim eName
    dim eSubChief

    'On Error Resume Next

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

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

    eServer = GetServerID(eServerName)

    'eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket) & "and UserID=' " & eUID & "'"
    'response.write eSQL & "<BR>"
    'eRs.Open eSql, eDb
    'AbortOnError
    'AbortOnEmptyCursor
    '
    'if eRs(0) < 1 then 'Wrong ticket
    ' Response.Write "Code=100"
    ' Response.End
    'end if

    ' check if user in clan
    eSql ="Select count(IDX), min(ClanName) from " & eServer & "ClanSub where ChName = '" & eChName & "'"
    eRs.Open eSql, eDb
    AbortOnError
    AbortOnEmptyCursor

    if eRs(0) < 1 then 'Clan not existent
    Response.Write "Code=0" & vbCrLf
    Response.Write "CMoney=500000" & vbCrLf
    Response.Write "CNFlag=1" & vbCrLf
    Response.End
    end if
    eName=eRs(1)
    eRs.close

    eSql = "Select count(*), min(ChName) from " & eServer & "ClanSub b"
    eSql = eSql & " where b.ClanName = '" & eName & "'"
    eSql = eSql & " and b.Permi=2"
    'response.write eSQL & "<BR>"
    eRs.Open eSql, eDb

    if eRs(0)>0 then
    eSubChief=eRs(1)
    else
    eSubChief=""
    end if
    eRs.close

    ' 0 1 2 3 4 5 6 7 8 9 10 11
    eSql ="Select b.Permi,A.Note,A.ClanZang, a.MIconCnt,A.RegiDate,A.DelActive,A.PFlag,A.KFlag,A.MemCnt, a.LimitDate, a.ClanMoney, A.CnFlag"
    eSql = eSql & " from " & eServer & "ClanMain A, " & eServer & "ClanSub B"
    eSql = eSql & " where a.idx=b.idx"
    eSql = eSql & " and b.ClanName = '" & eName & "'"
    eSql = eSql & " and b.ChName = '" & eChName & "'"
    'response.write eSQL & "<BR>"
    eRs.Open eSql, eDb
    AbortOnError
    AbortOnEmptyCursor

    dim i
    for i=0 to 11
    select case i
    case 0
    if eRs(i) = 0 then
    Response.Write "Code=1" & vbCrLF
    Response.Write "CName= " & eName & vbcrlf
    else
    Response.Write "Code=2" & vbCrLF
    Response.Write "CName= " & ename & vbcrlf
    end if
    case 1
    Response.Write "CNote= "
    case 2
    Response.Write "CZang= "
    case 3
    if(eSubChief<>"") then
    Response.Write "CSubChip= " & eSubChief & vbcrlf
    end if
    Response.Write "CStats=1" & vbcrlf
    'response.write server.mappath("..\ClanContent\" & eRs(i).value & ".bmp"
    if CheckIfFileExists(server.mappath("..\ClanContent\"),cstr(cdbl(eRs(i).value+1000000)) & ".bmp")=false then
    CopyFile server.mappath("..\ClanContent\9999.bmp"),server.mappath("..\ClanContent\" & cstr(cdbl(eRs(i).value+1000000)) & ".bmp")
    end if
    Response.Write "CIMG= " & cstr(cdbl(eRs(i).value+1000000)) & vbcrlf
    'Response.Write "CIMG= 9999" & vbcrlf
    'Response.Write "CIMG= " & eRs(i).value & vbcrlf
    Response.Write "CSec= 60" & vbcrlf
    case 4
    Response.Write "CRegiD= "
    case 5
    Response.Write "CDelActive= "
    case 6
    Response.Write "CPFlag= "
    case 7
    Response.Write "CKFlag= "
    case 8
    Response.Write "CMCnt= "
    case 9
    Response.Write "CLimitD= "
    case 10
    response.Write "CMoney= "
    case 11
    Response.Write "CNFlag= "
    end select
    if i>0 and (i <> 3 ) then
    response.Write eRs(i).value & vbcrlf
    end if
    next

    CloseDBConnection
    %>


    (i have it only at Clan not existent) how i can fix it look and help plz :(
     
  5. Admin

    Admin Tổng tư lệnh Staff Member

    shagpub said : Edit your clan in database mean you must edit CNFLAG=1 for whatever clan you want . If you edit claninsert with CNFLAG=1 mean all clean which new will have crown . So ..... How can many clan have crown at the same time ? :D .
     
  6. tr1pl3x1

    tr1pl3x1 New Member

    yaeh :S i tried and saw my friend without clan, that he had SOD crown :S :p
     

Share This Page