Mudando de vila por comando

Código:

Case "/Vila"
                 
                    If UBound(Command) < 1 Then
                        AddText "Usage: /Vila (nome) (num)", AlertColor
                        GoTo Continue
                    End If

                    If IsNumeric(Command(1)) Or Not IsNumeric(Command(2)) Then
                        AddText "Usage: /Vila (nome) (num)", AlertColor
                        GoTo Continue
                    End If
                   
                    SendSetVila Command(1), CLng(Command(2))

Código:

Public Sub DrawPlayerVila(ByVal Index As Long)
If Player(Index).Vila < 0 Then Exit Sub

Dim VilaX As Long
Dim VilaY As Long
Dim VilaColor As Long
Dim VilaName As String

Select Case Player(Index).Vila
    Case 1
        VilaName = "Konohagakure"
        VilaColor = QBColor(BrightRed)
    Case 2 'Suna
        VilaName = "Sunagakure"
        VilaColor = QBColor(Brown)
    Case 3 'Iwa
        VilaName = "Iwagakure"
        VilaColor = QBColor(Brown)
    Case 4 'Kiri
        VilaName= "Kirigakure"
        VilaColor = QBColor(Cyan)
    Case 5 'Kumo
        VilaName = "Kumogakure"
        VilaColor = QBColor(Cyan)
    Case Else
      VilaName = vbNullString
End Select
   
    ' calc pos
    VilaX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name)))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        VilaY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 18
    Else
        ' Determine location for text
        VilaY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 9
    End If

    ' Draw name
    Call DrawText(TexthDC, VilaX, VilaY, Name, color)
   
End Sub

Código:

Call DrawPlayerName(i)

Código:

DrawPlayerVila i

Código:

Public Sub SendSetVila(ByVal Name As String, ByVal Access As Byte)
Dim Buffer As clsBuffer

    Set Buffer = New clsBuffer
    Buffer.WriteLong CSetVila
    Buffer.WriteString Name
    Buffer.WriteLong Access
    SendData Buffer.ToArray()
    Set Buffer = Nothing

End Sub

Código:

CSetVila

Código:

CSetVila

Código:

Sub HandleSetVila(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim u As String
    Dim n As Long
    Dim i As Long
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()

    ' Prevent hacking
    If GetPlayerAccess(index) < ADMIN_CREATOR Then
        Exit Sub
    End If

    n = FindPlayer(Buffer.ReadString)
    i = Buffer.ReadLong
    Set Buffer = Nothing

If IsPlaying(n) = False Then Exit Sub

Player(n).Vila = i
SendPlayerData n
SavePlayer n

Select Case i
    Case 1
        u = "Konoha"
    Case 2
        u = "Suna"
    Case 3
        u = "Iwa"
    Case 4
        u = "kiri"
    Case 5
        u = "Kumo"
       
Case Else

    Exit Sub

End Select
   
GlobalMsg "Parabéns,o jogador:" & GetPlayerName(n) & "conseguiu se mudar legalmente para a vila de :" & u & "!", Yellow

End Sub


Código:

HandleDataSub(CSetRank) = GetAddress(AddressOf HandleSetRank)

Código:

HandleDataSub(CSetVila) = GetAddress(AddressOf HandleSetVila)

Código:

CPartyLeave

Código:

CSetVila

guifs escreveu:mano num é /vila é /vila dazatem 5 (aew fica tipo mudar o player dazateam para a vila5)