[Novo Mod Seleção de personagens] by Rai&Will Xstrond

guuh escreveu:

Código:

Option Explicit

Private Sub Form_Load()
    Dim i As Long
    Dim Ending As String

    For i = 1 To 3
        If i = 1 Then
            Ending = ".gif"
        End If

        If i = 2 Then
            Ending = ".jpg"
        End If

        If i = 3 Then
            Ending = ".png"
        End If

        If FileExists("GUI\CharacterSelect" & Ending) Then
      '      frmChars.Picture = LoadPicture(App.Path & "\GUI\CharacterSelect" & Ending)
        End If
        If frmChars.Visible = True Then
'        If lstChars.ListIndex = 0 Then
Picture1.Picture = LoadPicture(App.Path & "\GUI" & Label1 & ".jpg")
'End If
'If lstChars.ListIndex = 1 Then
Picture2.Picture = LoadPicture(App.Path & "\GUI" & Label2 & ".jpg")
'End If
'If lstChars.ListIndex = 2 Then
Picture3.Picture = LoadPicture(App.Path & "\GUI" & Label3 & ".jpg")
'End If
End If
    Next i
End Sub

Private Sub Label1_Click()
    If AutoLogin = 1 Then
        Call WriteINI("CONFIG", "Auto", 0, (App.Path & "\config.ini"))

        Me.Visible = False
        frmMainMenu.Visible = True
    End If
End Sub

Private Sub picCancel_Click()
    Call TcpDestroy

    Me.Visible = False
    frmLogin.Visible = True
End Sub

Private Sub picNewChar_Click()
    If lstChars.List(lstChars.ListIndex) <> "Free Character Slot" Then
        MsgBox "There is already a character in this slot!"
        Exit Sub
    End If

    frmNewChar.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    Call MenuState(MENU_STATE_NEWCHAR)
End Sub

Private Sub Picture1_Click()
frmChars.lstChars.ListIndex = 0
  If lstChars.List(lstChars.ListIndex) = "Free Character Slot" Then
        MsgBox "Não existe personagem nesse slot!!"
        frmNewChar.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    Call MenuState(MENU_STATE_NEWCHAR)
        Exit Sub
    End If

    frmMirage.picItems.Picture = LoadPicture(App.Path & "\GFX\Items.bmp")
    frmSpriteChange.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    Call MenuState(MENU_STATE_USECHAR)
End Sub
Private Sub picture1_Mousemove(Button As Integer, Shift As Integer, X As Single, y As Single)
    frmChars.Picture4.Visible = True
End Sub
Private Sub picture2_Mousemove(Button As Integer, Shift As Integer, X As Single, y As Single)
    frmChars.Picture4.Visible = False
End Sub
Private Sub Picture2_Click()
 frmChars.lstChars.ListIndex = 1
 If lstChars.List(lstChars.ListIndex) = "Free Character Slot" Then
        MsgBox "Não existe personagem nesse slot!!"
        frmNewChar.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    Call MenuState(MENU_STATE_NEWCHAR)
        Exit Sub
    End If

    frmMirage.picItems.Picture = LoadPicture(App.Path & "\GFX\Items.bmp")
    frmSpriteChange.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    Call MenuState(MENU_STATE_USECHAR)
End Sub
Private Sub Picture3_Click()
 frmChars.lstChars.ListIndex = 2
 If lstChars.List(lstChars.ListIndex) = "Free Character Slot" Then
        MsgBox "Não existe personagem nesse slot!!"
        frmNewChar.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    Call MenuState(MENU_STATE_NEWCHAR)
        Exit Sub
    End If

    frmMirage.picItems.Picture = LoadPicture(App.Path & "\GFX\Items.bmp")
    frmSpriteChange.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    Call MenuState(MENU_STATE_USECHAR)
End Sub

Private Sub picUseChar_Click()
    If lstChars.List(lstChars.ListIndex) = "Free Character Slot" Then
        MsgBox "Não existe personagem nesse slot!!"
        Exit Sub
    End If

    frmMirage.picItems.Picture = LoadPicture(App.Path & "\GFX\Items.bmp")
    frmSpriteChange.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    Call MenuState(MENU_STATE_USECHAR)
End Sub

Private Sub picDelChar_Click()
    Dim Value As Integer

    If lstChars.List(lstChars.ListIndex) = "Free Character Slot" Then
        MsgBox "Não existe personagem nesse slot!!"
        Exit Sub
    End If

    Value = MsgBox("Are you sure you wish to delete this character?", vbYesNo, GAME_NAME)
    If Value = vbYes Then
        Call MenuState(MENU_STATE_DELCHAR)
    End If
End Sub


ephyllus escreveu:Aqui o Link Vai Para o Portal RG3 Parece que o link nao Funfa mais , Posta o Link Novamente Por favor , Obrigado !