SOD Level limit

[sexypt]

I need to release my SOD for more players, for now i can release only to 2 players, because level limit.
Anyone can help me in that? my level cap is 255, and i need to release a entrance of 3 players or more
Thank's to read. Waiting for Help.

 

[bobsobol]

I think I understand... but as a moderator I feel I must publicly warn you that this new thread feels like a continuation of the closed thread

You must be registered to see links

. I notice you share the same ISP as that user too. :blink:

Note that continuing a thread that a moderator has previously closed is a rule violation (

You must be registered to see links

) creating two threads on the same topic is a violation (

You must be registered to see links

) and creating a second account is also a violation. (

You must be registered to see links

)

This thread will be watched carefully. :glare:

I believe that some of what you are looking for exists in the Web Server SoD pages. (usually the number of players who can join a single SoD is there) So we'd need to know what server side scripting you are using to achieve that. I'm not sure about the level requirements though. Making maximum level 255 is a fairly heavy modification and will probably make the answer difficult without knowing how you achieved this.

 

[jvfl]

bob, he edit the exp table, and edit level maximum in the client and server , so can he got
why maximum level 149 or less is better
no occurs this errors xD
@ bob,
I'm in doubt about SoD limit in the client,
Will also no limitation on the server and client? :blink:

 

[bobsobol]

Editing Exp table and maximum level in both client and server, of course. However, there are several variations on doing that.

For example, you may only add new levels to the end of the table, or reduce the experience of lower levels to make room for the extra ones. You may move the table to a new PE section, export the table to an external file, or import a DLL, you may even clear the space after the table by moving the values held there, and continue the table in-place. (without moving)

The problem of maximum 127 in the server can also be solved several ways. You can replace the entire "maximum level" check routines, or jump out at the point the short compare occurs and jump back after a long compare.

The critical thing I'm concerned may affect SoD is what is done with lower levels... because PT doesn't usually make compares against a players level so much as their experience. But any of those techniques may have side-effects not initially considered.

 

[sexypt]

thank you for help, but i cant reduce my table exp, I have many players in level cap 255.

 

[bobsobol]

That's the worst fear out of the way. So it's only a matter of finding the upper Experience limit to SoD comparison. (To be honest, I didn't know there was one)

I'm still fairly sure that the maximum SoD players limit is in the web server.

 

[Vormav]

There is no connection between max lvl and SoD2 score unless you make one on .ASP page.

Check your database, if player with lvl 250 is recorded in SQL database than its ASP/sod tool fault.
I'm not sure how Sandurr SQL tool is working but if its using .logs than check logs too.

 

[bobsobol]

This is known... if that is what sexys' using?

Spoiler

Public Class frmMain
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents txtSQL As System.Windows.Forms.TextBox
    Friend WithEvents txtDB As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents txtUSR As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents txtPW As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txtTMR As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents btnTMR As System.Windows.Forms.Button
    Friend WithEvents btnPW As System.Windows.Forms.Button
    Friend WithEvents btnUSR As System.Windows.Forms.Button
    Friend WithEvents btnDB As System.Windows.Forms.Button
    Friend WithEvents btnSQL As System.Windows.Forms.Button
    Friend WithEvents btnSandurrA As System.Windows.Forms.Button
    Friend WithEvents lblStatus As System.Windows.Forms.Label
    Friend WithEvents lblTMR As System.Windows.Forms.Label
    Friend WithEvents Timer As System.Timers.Timer
    Friend WithEvents btnTBL As System.Windows.Forms.Button
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents txtTBL As System.Windows.Forms.TextBox
    Friend WithEvents btnStop As System.Windows.Forms.Button
    Friend WithEvents lstErrorLog As System.Windows.Forms.ListBox
    Friend WithEvents lstErrorLog2 As System.Windows.Forms.ListBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents txtPNum As System.Windows.Forms.TextBox
    Friend WithEvents btnGold As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
        Me.Label1 = New System.Windows.Forms.Label
        Me.txtSQL = New System.Windows.Forms.TextBox
        Me.txtDB = New System.Windows.Forms.TextBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.txtUSR = New System.Windows.Forms.TextBox
        Me.Label3 = New System.Windows.Forms.Label
        Me.txtPW = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.txtTMR = New System.Windows.Forms.TextBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.btnTMR = New System.Windows.Forms.Button
        Me.btnPW = New System.Windows.Forms.Button
        Me.btnUSR = New System.Windows.Forms.Button
        Me.btnDB = New System.Windows.Forms.Button
        Me.btnSQL = New System.Windows.Forms.Button
        Me.btnSandurrA = New System.Windows.Forms.Button
        Me.lblStatus = New System.Windows.Forms.Label
        Me.lblTMR = New System.Windows.Forms.Label
        Me.Timer = New System.Timers.Timer
        Me.btnTBL = New System.Windows.Forms.Button
        Me.txtTBL = New System.Windows.Forms.TextBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.btnStop = New System.Windows.Forms.Button
        Me.lstErrorLog = New System.Windows.Forms.ListBox
        Me.lstErrorLog2 = New System.Windows.Forms.ListBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.txtPNum = New System.Windows.Forms.TextBox
        Me.btnGold = New System.Windows.Forms.Button
        CType(Me.Timer, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 8)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 16)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "SQL"
        '
        'txtSQL
        '
        Me.txtSQL.Location = New System.Drawing.Point(64, 8)
        Me.txtSQL.Name = "txtSQL"
        Me.txtSQL.Size = New System.Drawing.Size(128, 20)
        Me.txtSQL.TabIndex = 1
        Me.txtSQL.Text = "127.0.0.1"
        '
        'txtDB
        '
        Me.txtDB.Location = New System.Drawing.Point(64, 32)
        Me.txtDB.Name = "txtDB"
        Me.txtDB.Size = New System.Drawing.Size(128, 20)
        Me.txtDB.TabIndex = 3
        Me.txtDB.Text = "SOD2DB"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 32)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 16)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "DB"
        '
        'txtUSR
        '
        Me.txtUSR.Location = New System.Drawing.Point(64, 56)
        Me.txtUSR.Name = "txtUSR"
        Me.txtUSR.Size = New System.Drawing.Size(128, 20)
        Me.txtUSR.TabIndex = 5
        Me.txtUSR.Text = "sa"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 56)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 16)
        Me.Label3.TabIndex = 4
        Me.Label3.Text = "USR"
        '
        'txtPW
        '
        Me.txtPW.Location = New System.Drawing.Point(64, 80)
        Me.txtPW.Name = "txtPW"
        Me.txtPW.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.txtPW.Size = New System.Drawing.Size(128, 20)
        Me.txtPW.TabIndex = 7
        Me.txtPW.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 80)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "PW"
        '
        'txtTMR
        '
        Me.txtTMR.Location = New System.Drawing.Point(64, 104)
        Me.txtTMR.Name = "txtTMR"
        Me.txtTMR.Size = New System.Drawing.Size(128, 20)
        Me.txtTMR.TabIndex = 9
        Me.txtTMR.Text = "10"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 104)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 16)
        Me.Label5.TabIndex = 8
        Me.Label5.Text = "TMR"
        '
        'btnTMR
        '
        Me.btnTMR.Location = New System.Drawing.Point(200, 104)
        Me.btnTMR.Name = "btnTMR"
        Me.btnTMR.Size = New System.Drawing.Size(32, 16)
        Me.btnTMR.TabIndex = 10
        Me.btnTMR.Text = "set"
        '
        'btnPW
        '
        Me.btnPW.Location = New System.Drawing.Point(200, 80)
        Me.btnPW.Name = "btnPW"
        Me.btnPW.Size = New System.Drawing.Size(32, 16)
        Me.btnPW.TabIndex = 11
        Me.btnPW.Text = "set"
        '
        'btnUSR
        '
        Me.btnUSR.Location = New System.Drawing.Point(200, 56)
        Me.btnUSR.Name = "btnUSR"
        Me.btnUSR.Size = New System.Drawing.Size(32, 16)
        Me.btnUSR.TabIndex = 12
        Me.btnUSR.Text = "set"
        '
        'btnDB
        '
        Me.btnDB.Location = New System.Drawing.Point(200, 32)
        Me.btnDB.Name = "btnDB"
        Me.btnDB.Size = New System.Drawing.Size(32, 16)
        Me.btnDB.TabIndex = 13
        Me.btnDB.Text = "set"
        '
        'btnSQL
        '
        Me.btnSQL.Location = New System.Drawing.Point(200, 8)
        Me.btnSQL.Name = "btnSQL"
        Me.btnSQL.Size = New System.Drawing.Size(32, 16)
        Me.btnSQL.TabIndex = 14
        Me.btnSQL.Text = "set"
        '
        'btnSandurrA
        '
        Me.btnSandurrA.Enabled = False
        Me.btnSandurrA.Location = New System.Drawing.Point(240, 32)
        Me.btnSandurrA.Name = "btnSandurrA"
        Me.btnSandurrA.Size = New System.Drawing.Size(368, 80)
        Me.btnSandurrA.TabIndex = 16
        Me.btnSandurrA.Text = "Activate"
        '
        'lblStatus
        '
        Me.lblStatus.Location = New System.Drawing.Point(8, 152)
        Me.lblStatus.Name = "lblStatus"
        Me.lblStatus.Size = New System.Drawing.Size(512, 16)
        Me.lblStatus.TabIndex = 17
        Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblTMR
        '
        Me.lblTMR.Location = New System.Drawing.Point(536, 152)
        Me.lblTMR.Name = "lblTMR"
        Me.lblTMR.Size = New System.Drawing.Size(72, 16)
        Me.lblTMR.TabIndex = 18
        Me.lblTMR.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Timer
        '
        Me.Timer.Interval = 60000
        Me.Timer.SynchronizingObject = Me
        '
        'btnTBL
        '
        Me.btnTBL.Location = New System.Drawing.Point(200, 128)
        Me.btnTBL.Name = "btnTBL"
        Me.btnTBL.Size = New System.Drawing.Size(32, 16)
        Me.btnTBL.TabIndex = 21
        Me.btnTBL.Text = "set"
        '
        'txtTBL
        '
        Me.txtTBL.Location = New System.Drawing.Point(64, 128)
        Me.txtTBL.Name = "txtTBL"
        Me.txtTBL.Size = New System.Drawing.Size(128, 20)
        Me.txtTBL.TabIndex = 20
        Me.txtTBL.Text = "SOD2RecBySandurr"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(8, 128)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 16)
        Me.Label6.TabIndex = 19
        Me.Label6.Text = "TBL"
        '
        'btnStop
        '
        Me.btnStop.Enabled = False
        Me.btnStop.Location = New System.Drawing.Point(240, 120)
        Me.btnStop.Name = "btnStop"
        Me.btnStop.Size = New System.Drawing.Size(264, 24)
        Me.btnStop.TabIndex = 22
        Me.btnStop.Text = "Stop"
        '
        'lstErrorLog
        '
        Me.lstErrorLog.Location = New System.Drawing.Point(8, 168)
        Me.lstErrorLog.Name = "lstErrorLog"
        Me.lstErrorLog.Size = New System.Drawing.Size(288, 147)
        Me.lstErrorLog.TabIndex = 23
        '
        'lstErrorLog2
        '
        Me.lstErrorLog2.Location = New System.Drawing.Point(304, 168)
        Me.lstErrorLog2.Name = "lstErrorLog2"
        Me.lstErrorLog2.Size = New System.Drawing.Size(304, 147)
        Me.lstErrorLog2.TabIndex = 24
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(240, 8)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(312, 16)
        Me.Label7.TabIndex = 25
        Me.Label7.Text = "Minimum clan players needed to survive SoD to save points:"
        '
        'txtPNum
        '
        Me.txtPNum.Location = New System.Drawing.Point(560, 8)
        Me.txtPNum.Name = "txtPNum"
        Me.txtPNum.Size = New System.Drawing.Size(48, 20)
        Me.txtPNum.TabIndex = 26
        Me.txtPNum.Text = "2"
        '
        'btnGold
        '
        Me.btnGold.Location = New System.Drawing.Point(512, 120)
        Me.btnGold.Name = "btnGold"
        Me.btnGold.Size = New System.Drawing.Size(96, 24)
        Me.btnGold.TabIndex = 27
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(618, 328)
        Me.Controls.Add(Me.btnGold)
        Me.Controls.Add(Me.txtPNum)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.lstErrorLog2)
        Me.Controls.Add(Me.lstErrorLog)
        Me.Controls.Add(Me.btnStop)
        Me.Controls.Add(Me.btnTBL)
        Me.Controls.Add(Me.txtTBL)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.lblTMR)
        Me.Controls.Add(Me.lblStatus)
        Me.Controls.Add(Me.btnSandurrA)
        Me.Controls.Add(Me.btnSQL)
        Me.Controls.Add(Me.btnDB)
        Me.Controls.Add(Me.btnUSR)
        Me.Controls.Add(Me.btnPW)
        Me.Controls.Add(Me.btnTMR)
        Me.Controls.Add(Me.txtTMR)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.txtPW)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.txtUSR)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.txtDB)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.txtSQL)
        Me.Controls.Add(Me.Label1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "frmMain"
        Me.Text = "Clan SoD Score System Manager (Made by Sandurr)"
        CType(Me.Timer, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim strSQL As String
    Dim strDB As String
    Dim strUSR As String
    Dim strPW As String
    Dim strTMR As String
    Dim strTBL As String

    Dim strTXTPNUMOLD As String = "2"

    Dim strErrorLog As String = ""
    Dim strErrorLog2 As String = ""

    Dim bReady As Boolean = False
    Dim iReady As Integer = 0
    Dim aReady(6) As Integer

    Dim connectionString As String

    Dim strQuery As String
    Dim objConn, objReader, objCommand
    Dim objConn2, objReader2, objCommand2
    Dim objConn3, objReader3, objCommand3

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblStatus.Text = "Welcome... Made by Sandurr... Licensed to rPT"
        lblTMR.Text = "0"

        Dim i As Integer
        For i = 1 To 6
            aReady(i) = 0
        Next i
    End Sub

    Private Sub btnSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSQL.Click
        strSQL = txtSQL.Text

        If aReady(1) = 0 Then
            iReady += 1
            If iReady >= 6 Then
                bReady = True
                btnSandurrA.Enabled = True
            Else
                btnSandurrA.Enabled = False
            End If
            aReady(1) = 1
        End If
        lblStatus.Text = "Set SQL"
    End Sub

    Private Sub btnDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDB.Click
        strDB = txtDB.Text

        If aReady(2) = 0 Then
            iReady += 1
            If iReady >= 6 Then
                bReady = True
                btnSandurrA.Enabled = True
            Else
                btnSandurrA.Enabled = False
            End If
            aReady(2) = 1
        End If
        lblStatus.Text = "Set DB"
    End Sub

    Private Sub btnUSR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUSR.Click
        strUSR = txtUSR.Text

        If aReady(3) = 0 Then
            iReady += 1
            If iReady >= 6 Then
                bReady = True
                btnSandurrA.Enabled = True
            Else
                btnSandurrA.Enabled = False
            End If
            aReady(3) = 1
        End If
        lblStatus.Text = "Set USR"
    End Sub

    Private Sub btnPW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPW.Click
        strPW = txtPW.Text

        If aReady(4) = 0 Then
            iReady += 1
            If iReady >= 6 Then
                bReady = True
                btnSandurrA.Enabled = True
            Else
                btnSandurrA.Enabled = False
            End If
            aReady(4) = 1
        End If
        lblStatus.Text = "Set PW"
    End Sub

    Private Sub btnTMR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTMR.Click
        Dim strTMRt As String
        strTMRt = txtTMR.Text
        If IsNumeric(strTMRt) = True Then
            If strTMRt > 0 Then
                strTMR = (CInt(strTMRt) * 1000)
                Timer.Interval = strTMR
            Else
                MsgBox("Must be higher than 0")
            End If
        Else
            MsgBox("Must be a numeric")
        End If

        If aReady(5) = 0 Then
            iReady += 1
            If iReady >= 6 Then
                bReady = True
                btnSandurrA.Enabled = True
            Else
                btnSandurrA.Enabled = False
            End If
            aReady(5) = 1
        End If
        lblStatus.Text = "Set TMR"
    End Sub

    Private Sub btnTBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTBL.Click
        strTBL = txtTBL.Text

        If aReady(6) = 0 Then
            iReady += 1
            If iReady >= 6 Then
                bReady = True
                btnSandurrA.Enabled = True
            Else
                btnSandurrA.Enabled = False
            End If
            aReady(6) = 1
        End If
        lblStatus.Text = "Set TBL"
    End Sub

    Private Sub btnSandurrA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSandurrA.Click
        If iReady >= 6 And bReady = True Then
            Timer.Enabled = True
            btnSandurrA.Enabled = False
            btnSQL.Enabled = False
            btnDB.Enabled = False
            btnUSR.Enabled = False
            btnPW.Enabled = False
            btnTMR.Enabled = False
            btnTBL.Enabled = False
            btnStop.Enabled = True

            lstErrorLog.Items.Clear()
            lstErrorLog2.Items.Clear()

            connectionString = "server='" & strSQL & "'; user id='" & strUSR & "'; password='" & strPW & "'; database='" & strDB & "'"
            objConn = New System.Data.SqlClient.SqlConnection(connectionString)
            objConn3 = New System.Data.SqlClient.SqlConnection(connectionString)
            connectionString = "server='" & strSQL & "'; user id='" & strUSR & "'; password='" & strPW & "'; database='ClanDB'"
            objConn2 = New System.Data.SqlClient.SqlConnection(connectionString)
            objConn.Open()
            objConn2.Open()
            objConn3.Open()

            lblStatus.Text = "Activated"
        End If
    End Sub

    Private Sub Timer_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer.Elapsed
        If bReady = True Then
            lblTMR.Text = CInt(CInt(lblTMR.Text) + 1)
            'SoD Stuff
            strQuery = "SELECT CharName, ServerTime, TotalPoint, SuccessUser FROM " & strTBL
            objCommand = New System.Data.SqlClient.SqlCommand(strQuery, objConn)
            objReader = objCommand.ExecuteReader()

            Dim tCharName As String
            Dim tCharName2 As String
            Dim tTPoint As Integer
            Dim tTime As Integer
            Dim tSU As Integer
            Dim tClanName As String
            Dim tClanName2 As String
            Dim tCurPoint As Integer
            Dim tCPoint As Integer
            Dim tPNum As Integer

            While objReader.Read()
                tPNum = 0
                tCharName = objReader.Item(0)
                tTime = objReader.Item(1)
                tTPoint = objReader.Item(2)
                tSU = objReader.Item(3)

                If tTPoint > 0 Or tSU >= CInt(strTXTPNUMOLD) Then
                    tClanName = GetClan(tCharName)
                    If Not tClanName = "" Then
                        tPNum = 1
                        tCurPoint = GetClanPoint(tClanName)

                        strQuery = "SELECT CharName, Point FROM " & strTBL & " WHERE ServerTime='" & tTime & "' AND TotalPoint='" & tTPoint & "' AND SuccessUser='" & tSU & "'"
                        objCommand3 = New System.Data.SqlClient.SqlCommand(strQuery, objConn3)
                        objReader3 = objCommand3.ExecuteReader()

                        While objReader3.Read()
                            tCharName2 = objReader3.Item(0)
                            tCPoint = objReader3.Item(1)
                            If tCPoint > 0 Then
                                If Not tCharName2 = tCharName Then
                                    tClanName2 = GetClan(tCharName2)
                                    If tClanName2 = tClanName Then
                                        tPNum = tPNum + 1
                                    Else
                                        tTPoint = tTPoint - tCPoint
                                    End If
                                End If
                            End If
                        End While
                        objReader3.Close()

                        If tPNum >= CInt(strTXTPNUMOLD) And tTPoint > tCurPoint Then
                            lstErrorLog.Items.Add("SaveData: " & tClanName & "(tPNum:" & tPNum & " & tTPoint:" & tTPoint & ")")
                            ClanInsertClanScore(tClanName, tTPoint)
                        Else
                            lstErrorLog2.Items.Add("NoSaveData: " & tClanName & "(tPNum:" & tPNum & " & tTPoint:" & tTPoint & ")")
                        End If
                    End If
                End If
            End While

            objReader.Close()
        End If
    End Sub

    Private Sub ClanInsertClanScore(ByRef strClanName As String, ByRef iTotalPoint As Integer)
        strQuery = "UPDATE CL SET Cpoint='" & iTotalPoint & "' WHERE ClanName='" & strClanName & "'"
        objCommand2 = New System.Data.SqlClient.SqlCommand(strQuery, objConn2)
        objReader2 = objCommand2.ExecuteReader()

        objReader2.Close()
    End Sub

    Private Function GetClan(ByRef strCharName As String) As String
        strQuery = "SELECT ClanName FROM UL WHERE ChName='" & strCharName & "'"
        objCommand2 = New System.Data.SqlClient.SqlCommand(strQuery, objConn2)
        objReader2 = objCommand2.ExecuteReader()

        If objReader2.Read() Then
            GetClan = objReader2.GetString(0)
        Else
            GetClan = ""
        End If

        objReader2.Close()
    End Function

    Private Function GetClanPoint(ByRef strClanName As String) As Integer
        strQuery = "SELECT Cpoint FROM CL WHERE ClanName='" & strClanName & "'"
        objCommand2 = New System.Data.SqlClient.SqlCommand(strQuery, objConn2)
        objReader2 = objCommand2.ExecuteReader()

        If objReader2.Read() Then
            GetClanPoint = objReader2.GetInt32(0)
        Else
            GetClanPoint = ""
        End If

        objReader2.Close()
    End Function

    Private Sub frmMain_Closed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        If iReady = 6 And btnSandurrA.Enabled = False And bReady = True Then
            objConn.Close()
            objConn2.Close()
            objConn3.Close()
        End If
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        btnStop.Enabled = False
        btnSandurrA.Enabled = True
        Timer.Enabled = False

        lblStatus.Text = "Stopped service..."
        lblTMR.Text = "0"

        Dim i As Integer
        For i = 1 To 6
            aReady(i) = 0
        Next i

        btnSQL.Enabled = True
        btnDB.Enabled = True
        btnUSR.Enabled = True
        btnPW.Enabled = True
        btnTMR.Enabled = True
        btnTBL.Enabled = True

        bReady = False
        iReady = 0
    End Sub

    Private Sub txtPNum_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPNum.TextChanged
        If IsNumeric(txtPNum) = False Then
            txtPNum.Text = strTXTPNUMOLD
        Else
            strTXTPNUMOLD = txtPNum.Text
        End If
    End Sub

    Private Sub btnGold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGold.Click
        If Timer.Enabled = False Then
            Exit Sub
        End If
        Dim iCurGold As Long
        Dim strNewGold As String
        Dim iNewGold As Long

        Dim strCSoD As String = GetSoDClan()
        Dim strCurSoDGold As String = GetSoDClanMoney(strCSoD)

        If IsNumeric(strCurSoDGold) = True Then
            iCurGold = CInt(strCurSoDGold)
        Else
            iCurGold = 0
        End If

PutGold:
        strNewGold = InputBox("Currently the SoD Owning Clan (" & strCSoD & ") has " & iCurGold & " Clan Money." & vbNewLine & "How much Clan Money do you want to ADD?", "SoD Clan Money", "0")

        If IsNumeric(strNewGold) = False Then
            GoTo PutGOld
        End If

        iNewGold = CInt(strNewGold)
        iNewGold = iCurGold + iNewGold

        SetSoDClanMoney(strCSoD, iNewGold)

        MsgBox("New Clan Money for " & strCSoD & " is " & iNewGold, MsgBoxStyle.OKOnly & MsgBoxStyle.Information, "New Clan Money")
    End Sub

    Private Sub SetSoDClanMoney(ByRef strClanName As String, ByRef iTotalPoint As Integer)
        If Timer.Enabled = False Then
            Exit Sub
        End If
        strQuery = "UPDATE CL SET ClanMoney='" & iTotalPoint & "' WHERE ClanName='" & strClanName & "'"
        objCommand2 = New System.Data.SqlClient.SqlCommand(strQuery, objConn2)
        objReader2 = objCommand2.ExecuteReader()

        objReader2.Close()
    End Sub

    Private Function GetSoDClanMoney(ByRef strClanName As String) As String
        If Timer.Enabled = False Then
            Exit Function
        End If
        strQuery = "SELECT ClanMoney FROM CL WHERE ClanName='" & strClanName & "'"
        objCommand2 = New System.Data.SqlClient.SqlCommand(strQuery, objConn2)
        objReader2 = objCommand2.ExecuteReader()

        If objReader2.Read() Then
            GetSoDClanMoney = objReader2.Item(0)
        End If

        objReader2.Close()
    End Function

    Private Function GetSoDClan() As String
        If Timer.Enabled = False Then
            Exit Function
        End If
        strQuery = "SELECT ClanName FROM CL ORDER BY Cpoint DESC"
        objCommand2 = New System.Data.SqlClient.SqlCommand(strQuery, objConn2)
        objReader2 = objCommand2.ExecuteReader()

        If objReader2.Read() Then
            GetSoDClan = objReader2.Item(0)
        End If

        objReader2.Close()
    End Function
End Class

 

[microamazing]

@ topic...
level limit in server is :
the amount of lvl in the room is 600. search by this is server and replace ^^

 

[bobsobol]

So... 150 × 4 players = 600 and SoD is at capacity?

Is that how it works?

 

[sexypt]

how it works, but I tested my server with 220 level cap and got three players, total lvl 660's

 

[bobsobol]

Ahh, so maybe you could get 5 × 150s? Or at least 4 × 150 & a 149, provided the 149 wasn't the last to enter.

So the comparison is when you join, do the existing players level exceed 600? Regardless of your level.

 

[microamazing]

@BOB
you are ritgh =D
thats how it's work =D when all chars in the room pass the 600 =x the room is close... so, if the amount is 599 one more player can enter= D


@offtopic
i need ask something, offtopic... when u need to add a virtual offset, like... 3xxxxx and u don't have any space to do it, or... all places r busy... so... there a any easy away to do it ???

 

[bobsobol]

Thanks for the confirmation, but ... Very off-topic and quite well documented, microamazing. I'm fairly surprised.

You mean expanding the executable.

You can add a section with ToPo. (by MrCrimson/[WkT!99])
View attachment 106552

You can add, remove, expand or shrink sections physical or virtual size with:-

• ModifyPE
  View attachment modpe081.zip
• You must be registered to see links
• LordPE (by y0da)
  View attachment 106554
• Patch Tool from
  You must be registered to see links
  . (by comrade)

You can use an exported location in a DLL which you import with LoadLibrary() or use

You must be registered to see links

(MackT),

You must be registered to see links

(TiGer), CFF Explorer (ntcore, see above), ReimportTool from PE Tools, (comrade, see above)

You must be registered to see links

(SanMat and the ReTeam)etc.

You can use VirtualAlloc() if you only need to allocate temporary space. This is particulaly nice when you don't want to specify the size of the new memory allocation before the program is run.

Guides:-

• You must be registered to see links
  (by me)
• You must be registered to see links
  (by me)
  P.S. you can export data, as well as code from a DLL.

P.P.S. I'm hoping I misunderstood you, because a) I would have thought you knew this from some of your other work, and b) I want to make a new thread for this, as it's so off-topic. Please tell me what you want to "name" the new topic. :