Sistema de Guild (do Eduardo)

Código:

SendCriaGuild  txtNome.text, txtGuildNome.text
SendRequestPlayerData

Código:

Public Sub DrawPlayerGuild(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Dim Guild As String

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    ' Check access level
    If GetPlayerPK(Index) = NO Then
        Select Case GetPlayerAccess(Index)
            Case 0
                color = QBColor(Black)
            Case 1
                color = QBColor(Green)
            Case 2
                color = QBColor(Cyan)
            Case 3
                color = QBColor(Green)
            Case 4
                color = QBColor(White)
        End Select
    Else
        color = QBColor(BrightRed)
    End If

    Guild = Trim$(Player(Index).Guild)
    ' calc pos
    TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Guild)))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
    Else
        ' Determine location for text
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 3
    End If

    ' Draw name
    Call DrawText(TexthDC, TextX, TextY, Guild, color)
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "DrawPlayerGuild", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Código:

PK As Byte

Código:

Guild As String

Código:

Sub SendCriaGuild(ByVal Nome As String, ByVal Guild As String)
Dim Buffer As clsBuffer

    Set Buffer = New clsBuffer
   
    Buffer.WriteLong CGuild
    Buffer.WriteString Nome
    Buffer.WriteString Guild
    SendData Buffer.ToArray()
   
    Set Buffer = Nothing
End Sub

Código:

Function GetPlayerGuild(ByVal Index As Long) As String
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If Index > MAX_PLAYERS Then Exit Function
    GetPlayerGuild = Trim$(Player(Index).Guild)
   
    ' Error handler
    Exit Function
errorhandler:
    HandleError "GetPlayerGuild", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Function
End Function

Sub SetPlayerGuild(ByVal Index As Long, ByVal Guild As String) ' lol 4 hora nem vi kk
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If Index > MAX_PLAYERS Then Exit Sub
    Player(Index).Guild = Guild
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SetPlayerGuild", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Código:

    ' draw player names
    For i = 1 To Player_HighIndex
        If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
            Call DrawPlayerName(i)
        End If
    Next

Código:

    ' draw player names
    For i = 1 To Player_HighIndex
        If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
            Call DrawPlayerName(i)
            Call DrawPlayerGuild(i)
        End If
    Next

Código:

' Make sure CMSG_COUNT is below everything else

Código:

CGuild

Código:

Call SetPlayerPK(i, Buffer.ReadLong)

Código:

Call SetPlayerGuild(i, Buffer.ReadString)

Código:

Buffer.WriteString GetPlayerAccess(index)

Código:

Buffer.WriteString GetPlayerGuild(index)

Código:

PK as Byte

Código:

Guild As String

Código:

' Make sure CMSG_COUNT is below everything else

Código:

CGuild

Código:

Function GetPlayerGuild(ByVal index As Long) As String

    If index > MAX_PLAYERS Then Exit Function
    GetPlayerGuild = Trim$(Player(index).Guild)
End Function

Sub SetPlayerGuild(ByVal index As Long, ByVal Guild As String)
    Player(index).Guild = Guild
End Sub

Código:

Player(index).Class = ClassNum

Código:

Player(index).Guild = vbNullString

Código:

HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave)

Código:

HandleDataSub(CGuild) = GetAddress(AddressOf HandleGuild)

Código:

Public Sub HandleGuild(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As New clsBuffer
Dim Guild As String
Dim Nome As String
   
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
   
    Nome = FindPlayer(Buffer.ReadString)
    Guild = Buffer.ReadString
   
    If Nome = 0 Then
        PlayerMsg index, "O Jogador Selecionado não está online", Red
        Exit Sub
    End If
   
    If GetPlayerGuild(Nome) <> vbNullString Then
        PlayerMsg index, "O Jogador já Esta Em Uma guild!", Red
        Exit Sub
    End If

    SetPlayerGuild Nome, Guild
    PlayerMsg index, "Sua guild: " & Guild, Red
    Set Buffer = Nothing
End Sub

SoulWind escreveu:Aqui em casa deu esse error na hora de compilar o cliente:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]