QUest do alatar

por LythZerou Ter 04 Dez 2012, 10:28

Bom no sistema de quest do alatar, a listlog não tem como apagar, se alguem poder ajudar.

Queria criar um botão "Limpar List" assim liparia a listlogquest, se não fica juntando um monte de quest já completa.

http://www.touchofdeathforums.com/community/index.php?/topic/117080-eo-alatars-quest-system-v12/page__st__120

por lucas100vzs Ter 04 Dez 2012, 14:32

Faça Melhor Amigo,

Abra seu client.vbp ,

~Client Side~

Procure por esta "SUB":

Código:: Public Sub RefreshQuestLog() Dim i As Long frmMain.lstQuestLog.Clear For i = 1 To MAX_QUESTS If QuestInProgress(i) Or QuestCompleted(i) Then frmMain.lstQuestLog.AddItem Trim$(Quest(i).Name) End If Next End Sub

Agora, nesta linha:

Código:: If QuestInProgress(i) Or QuestCompleted(i) Then

Mude para esta:

Código:: If QuestInProgress(i) Then 'Or QuestCompleted(i) Then

E pronto, agora só quests que estão em progresso ficão na lista na janela de quests.
Quest que têm tarefas a mais, também ficam lá....Quest quando completadas ou abandonadas somem de lá....E então é isto, se ajudou dê +1 por favor Very Happy

por Lord Pegason Ter 04 Dez 2012, 14:38

Não acho uma boa ideia hein.

Sabe por quê? Imagine alguém querer saber se já fez determinada quest ou não, como faz?

por lucas100vzs Ter 04 Dez 2012, 15:21

Mais simples ainda:

Acabei de fazer isto aqui quando terminei o post, siga o tutorial:

Na "FRMMAIN" , dentro da "PicQuestLog" , crie uma "ListBox" (pode copiar da "lstQuestLog" , mas não coloque como "control array", só para pegar a forma e configurações")

Nesta nova "ListBox" :
Nomeie de : lstCompleted
Visible = False

De preferência, ponha sobre a lista "lstQuestLog".

Agora ainda dentro da "PicQuestLog" , crie uma label

Agora nomeie a label de : lblQlList
Caption: Quest Completed >>
Alignement: Center

Dentro da label adicione o seguinte código:

Código:: If lstCompleted.Visible = False Then lstCompleted.Visible = True lstQuestLog.Visible = False lblQList.Caption = "<< Quests In Progress" Else lstCompleted.Visible = False lstQuestLog.Visible = True lblQList.Caption = "Quests Completed >>" End If

Agora procure pela a mesma sub que eu pedi para mudar:

Código:: Public Sub RefreshQuestLog() Dim i As Long frmMain.lstQuestLog.Clear For i = 1 To MAX_QUESTS If QuestInProgress(i) Or QuestCompleted(i) Then frmMain.lstQuestLog.AddItem Trim$(Quest(i).Name) End If Next End Sub

E mude para isto:

Código:: Public Sub RefreshQuestLog() Dim i As Long frmMain.lstQuestLog.Clear For i = 1 To MAX_QUESTS If QuestInProgress(i) Then 'Or QuestCompleted(i) Then frmMain.lstQuestLog.AddItem Trim$(Quest(i).Name) Else frmMain.lstCompleted.AddItem Trim$(Quest(i).Name) End If Next End Sub

E pronto, agora você têm duas listas de quests, uma de quests em progresso e a outra de quest completadas !! Very Happy

Mereço +1 crédito também? Razz

Imagem:

Ficará mais ou menos assim pra quem for fazer:

Spoiler:

por Eduardo Ter 04 Dez 2012, 16:03

Ignora os outro comentarios não tem nada aver com oq vc pede , vamos as explicações: Crie um label com caption deletar de dois click nele e coloque:

Código:: If QuestCompleted(lstQuestLog.Listindex) Then lstQuestLog.RemoveItem lstQuestLog.Listindex End If

* fiz sem VB qualquer erro reporta com, com esse codigo ele vai retirar o quest excolhido na lista, boa sorte

por lucas100vzs Ter 04 Dez 2012, 16:17

Eduardo ele citou bem assim:

"...senão fica juntando um monte de quest já completa...."

Ele quer que não junte quests já completadas cara...Se você fizer um procedimento desse, você irá excluir uma lista de quest que estão tanto em progresso quanto completas...Se for assim, delete a "lstQuestLog" logo e termine com isto....

Aprenda a interpretar cara, eu sei que ele quer limpar a lista de quests, mas ele quer limpar a de quests em progresso ???

Respondi a dúvida dele com uma solução mais dinâmica, e não com uma solução que desvie do assunto...afinal, você leu o que eu respondi primeiro?

"Faça melhor, Amigo" , foi uma sugestão....Agora sua sugestão no meu caso, acho que a lista vai ser preenchida toda vez que você apertar o botão para abrir a "picQuest", porque a "Public Sub RefreshQuestLog()" vai atualizar as quests....Enfim, você vai apagar e vai voltar...ciclo infinito e inútil...vai apagar e vai voltar...Acho melhor fazer as duas listas de quests, segundo o que postei...acho mais dinâmico e organizado ! u.u

por LythZerou Qua 05 Dez 2012, 07:34

os dois ajudaram muito, obrigado

por Blizzard Dom 09 Dez 2012, 16:50

Vejo que o tópico está resolvido,qualquer dúvida me contate por MP,irei trancar para evitar flood's.

Tópico Trancado.

por Conteúdo patrocinado

QUest do alatar

QUest do alatar

Re: QUest do alatar

Re: QUest do alatar

Re: QUest do alatar

Re: QUest do alatar

Re: QUest do alatar

Re: QUest do alatar

Re: QUest do alatar

Re: QUest do alatar