Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


+8
bejaflo1
lucasdobeco
llAliferll
Lief
vfbohn
Level Max
Valentine
Dooolly
12 participantes

    [GF]Consume em Currency

    Dooolly
    Dooolly
    Dooolly
    Colaborador
    Colaborador


    Medalhas : [GF]Consume em Currency Trophy12
    Mensagens : 1227
    Créditos : 153

    Ficha do personagem
    Nível: 1
    Experiência:
    [GF]Consume em Currency Left_bar_bleue0/0[GF]Consume em Currency Empty_bar_bleue  (0/0)
    Vida:
    [GF]Consume em Currency Left_bar_bleue30/30[GF]Consume em Currency Empty_bar_bleue  (30/30)
    • Mensagem nº1

    [GF]Consume em Currency Empty [GF]Consume em Currency

    Mensagem por Dooolly Dom Fev 09, 2014 4:05 pm

    [GF]Consume em Currency IqgS6x8BSTKQT

    Consume em Currency

    [GF]Consume em Currency IOk1oLZCkDDo8

    Server~Side

    Procure Por:
    Código:
    If Item(Map(mapNum).Tile(x, y).data1).Type = ITEM_TYPE_CURRENCY And Map(mapNum).Tile(x, y).data2 <= 0 Then

    Mude Para:
    Código:
    If Item(Map(mapNum).Tile(x, y).data1).Type = ITEM_TYPE_CURRENCY or Item(Map(mapNum).Tile(x, y).data1).Type = ITEM_TYPE_CONSUME And Map(mapNum).Tile(x, y).data2 <= 0 or Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(index, invNum)).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(index, invNum)).Type = ITEM_TYPE_CURRENCY or Item(GetPlayerInvItemNum(index, invNum)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY Then
            If amount < 1 Then Exit Sub
        End If

        If Item(itemNum).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY or Item(itemNum).Type = ITEM_TYPE_CONSUME Then
            If amount < 1 Then Exit Sub
        End If

        If Item(itemNum).Type = ITEM_TYPE_CURRENCY or Item(itemNum).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(TempPlayer(index).TradeOffer(i).Num).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(TempPlayer(index).TradeOffer(i).Num).Type = ITEM_TYPE_CURRENCY or Item(TempPlayer(index).TradeOffer(i).Num).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(tradeTarget, TempPlayer(tradeTarget).TradeOffer(i).Num)).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(tradeTarget, TempPlayer(tradeTarget).TradeOffer(i).Num)).Type = ITEM_TYPE_CURRENCY or Item(GetPlayerInvItemNum(tradeTarget, TempPlayer(tradeTarget).TradeOffer(i).Num)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY or Item(itemNum).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY or Item(itemNum).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY or Item(itemNum).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY or Item(itemNum).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(index, n)).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(index, n)).Type = ITEM_TYPE_CURRENCY or Item(GetPlayerInvItemNum(index, n)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(index, invNum)).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(index, invNum)).Type = ITEM_TYPE_CURRENCY or Item(GetPlayerInvItemNum(index, invNum)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CURRENCY Then
            If amount < 1 Then Exit Sub
        End If
        
        BankSlot = FindOpenBankSlot(index, GetPlayerInvItemNum(index, invSlot))
            
        If BankSlot > 0 Then
            If Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CURRENCY or Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CONSUME Then
            If amount < 1 Then Exit Sub
        End If
        
        BankSlot = FindOpenBankSlot(index, GetPlayerInvItemNum(index, invSlot))
            
        If BankSlot > 0 Then
            If Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CURRENCY or Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CONSUME Then


    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CURRENCY Then
            If amount < 1 Then Exit Sub
        End If
        
        BankSlot = FindOpenBankSlot(index, GetPlayerInvItemNum(index, invSlot))
            
        If BankSlot > 0 Then
            If Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CURRENCY Then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CURRENCY or Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CONSUME Then
            If amount < 1 Then Exit Sub
        End If
        
        BankSlot = FindOpenBankSlot(index, GetPlayerInvItemNum(index, invSlot))
            
        If BankSlot > 0 Then
            If Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CURRENCY or Item(GetPlayerInvItemNum(index, invSlot)).Type = ITEM_TYPE_CONSUME Then

    Na Public Sub UseItem procure Case ITEM_TYPE_CONSUME e no final procure o Code abaixo:
    Código:
    Call TakeInvItem(index, Player(index).Inv(invNum).Num, 0)

    e Substitua:
    Código:
    Call TakeInvItem(index, Player(index).Inv(invNum).Num, 1)

    Servidor Pronto!

    Client~Side

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY Or Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetBankItemNum(bankNum)).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(GetBankItemNum(bankNum)).Type = ITEM_TYPE_CURRENCY Or Item(GetBankItemNum(bankNum)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY Or Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY Or Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(Index, TradeYourOffer(i).Num)).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(Index, TradeYourOffer(i).Num)).Type = ITEM_TYPE_CURRENCY Or Item(GetPlayerInvItemNum(Index, TradeYourOffer(i).Num)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY Or Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(scrlMapItem.Value).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(scrlMapItem.Value).Type = ITEM_TYPE_CURRENCY Or Item(scrlMapItem.Value).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(TradeYourOffer(x).Num).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(TradeYourOffer(x).Num).Type = ITEM_TYPE_CURRENCY Or Item(TradeYourOffer(x).Num).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(TradeYourOffer(i).Num).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(TradeYourOffer(i).Num).Type = ITEM_TYPE_CURRENCY Or Item(TradeYourOffer(i).Num).Type = ITEM_TYPE_CONSUME Then

    Procure Por:
    Código:
    If Item(TradeTheirOffer(i).Num).Type = ITEM_TYPE_CURRENCY then

    Mude Para:
    Código:
    If Item(TradeTheirOffer(i).Num).Type = ITEM_TYPE_CURRENCY Or Item(TradeTheirOffer(i).Num).Type = ITEM_TYPE_CONSUME Then

    Cliente Pronto!

    Qualquer Problema comenta ai.. Tirei o sistema da Crystal Shire então pode dar erro na engine de vocês.. qualquer coisa avisa.


    Última edição por Dooolly em Seg Jul 06, 2015 8:33 pm, editado 2 vez(es)
    • Ir para o topo
    Valentine
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : [GF]Consume em Currency ZgLkiRU
    Mensagens : 5345
    Créditos : 1164
    • Mensagem nº2

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por Valentine Dom Fev 09, 2014 4:38 pm

    Boa Dooolly, muita gente precisa disso, fiz na minha engine, mas não tinha paciência de criar um tutorial kk

    + 1 crédito
    • Ir para o topo
    Level Max
    Level Max
    Level Max
    Iniciante
    Iniciante


    Mensagens : 42
    Créditos : 3
    • Mensagem nº3

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por Level Max Dom Fev 09, 2014 9:54 pm

    Explique o sistema melhor (não entendi mt bem..)


    _________________
    Mundo Poderoso (MP) by: Level Max Games Wink

    Ajude a divulgar meu projeto Wink



    [GF]Consume em Currency 18262f





    www.tabernarpg.forumeiros.com
    [GF]Consume em Currency Dqwkx
    • Ir para o topo
    Dooolly
    Dooolly
    Dooolly
    Colaborador
    Colaborador


    Medalhas : [GF]Consume em Currency Trophy12
    Mensagens : 1227
    Créditos : 153

    Ficha do personagem
    Nível: 1
    Experiência:
    [GF]Consume em Currency Left_bar_bleue0/0[GF]Consume em Currency Empty_bar_bleue  (0/0)
    Vida:
    [GF]Consume em Currency Left_bar_bleue30/30[GF]Consume em Currency Empty_bar_bleue  (30/30)
    • Mensagem nº4

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por Dooolly Dom Fev 09, 2014 10:19 pm

    Level Max escreveu:Explique o sistema melhor (não entendi mt bem..)

    Esse sistema eh para que os itens do tipo consume acumule em 1 só.. para q o inventario ñ fique cheio de poções e etc... para q ocupe só 1 slot..
    • Ir para o topo
    Level Max
    Level Max
    Level Max
    Iniciante
    Iniciante


    Mensagens : 42
    Créditos : 3
    • Mensagem nº5

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por Level Max Dom Fev 09, 2014 10:50 pm

    A sim era o q imaginei mais por questões das duvidas perguntei.
    Vlw obg irei testa.


    _________________
    Mundo Poderoso (MP) by: Level Max Games Wink

    Ajude a divulgar meu projeto Wink



    [GF]Consume em Currency 18262f





    www.tabernarpg.forumeiros.com
    [GF]Consume em Currency Dqwkx
    • Ir para o topo
    vfbohn
    avatar
    vfbohn
    Novato
    Novato


    Mensagens : 13
    Créditos : 0
    • Mensagem nº6

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por vfbohn Seg Fev 10, 2014 4:06 pm

    +1
    tava precisando disso pakas
    • Ir para o topo
    Lief
    Lief
    Lief
    Desenvolvedor
    Desenvolvedor


    Mensagens : 834
    Créditos : 50
    • Mensagem nº7

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por Lief Seg Fev 10, 2014 7:57 pm

    O que é esse "[GF]"? Enfim, não sei em que mas o código tá bugado, eu tô usando ele na Crystalshire e  as poções ficam realmente tipo currency, porém quando eu uso eu recupero o hp/mp mas a poção não gasta '-'
    • Ir para o topo
    Dooolly
    Dooolly
    Dooolly
    Colaborador
    Colaborador


    Medalhas : [GF]Consume em Currency Trophy12
    Mensagens : 1227
    Créditos : 153

    Ficha do personagem
    Nível: 1
    Experiência:
    [GF]Consume em Currency Left_bar_bleue0/0[GF]Consume em Currency Empty_bar_bleue  (0/0)
    Vida:
    [GF]Consume em Currency Left_bar_bleue30/30[GF]Consume em Currency Empty_bar_bleue  (30/30)
    • Mensagem nº8

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por Dooolly Seg Fev 10, 2014 8:46 pm

    Lief escreveu:O que é esse "[GF]"? Enfim, não sei em que mas o código tá bugado, eu tô usando ele na Crystalshire e  as poções ficam realmente tipo currency, porém quando eu uso eu recupero o hp/mp mas a poção não gasta '-'

    [GF] é minha marca '-' significa Games Fenix '-' coisa besta kkk

    Sobre isso

    Procura:
    Código:
    Function TakeInvItem(ByVal Index As Long, ByVal itemNum As Long, ByVal ItemVal As Long) As Boolean

    e Onde Tem:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY then

    muda para:
    Código:
    If Item(itemNum).Type = ITEM_TYPE_CURRENCY Or Item(itemNum).Type = ITEM_TYPE_CONSUME Then

    vc dever ter faltado uma parte do tuto '-'..
    • Ir para o topo
    llAliferll
    llAliferll
    llAliferll
    Novato
    Novato


    Mensagens : 18
    Créditos : 7
    • Mensagem nº9

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por llAliferll Dom Mar 09, 2014 2:30 am

    Não sei se estou revivendo o tópico me desculpem por isso, bom pelo menos tenho um bom motivo é que o item não queria gastar após o uso por que faltou uma coisa que o Dolly esqueceu de mencionar para editar uma linha no final do case Item_Type_Consume.

    Na Public Sub UseItem procure Case ITEM_TYPE_CONSUME e no final procure o Code abaixo:
    Código:
    Call TakeInvItem(index, Player(index).Inv(invNum).Num, 0)
    e Substitua:
    Código:
    Call TakeInvItem(index, Player(index).Inv(invNum).Num, 1)

    Não é muita coisa mas tem seu efeitos xD, Obrigado por postar o tutorial Dolly porém eu achei meio difícil colocar ele em pratica pois tem muito procura isso e coloca aquilo sem nenhum tipo de Public ou Private onde os code estavam mas eu consegui depois de um esforço +1 Créd.
    Me desculpando novamente caso tenha revivido o Tópico.
    • Ir para o topo
    Dooolly
    Dooolly
    Dooolly
    Colaborador
    Colaborador


    Medalhas : [GF]Consume em Currency Trophy12
    Mensagens : 1227
    Créditos : 153

    Ficha do personagem
    Nível: 1
    Experiência:
    [GF]Consume em Currency Left_bar_bleue0/0[GF]Consume em Currency Empty_bar_bleue  (0/0)
    Vida:
    [GF]Consume em Currency Left_bar_bleue30/30[GF]Consume em Currency Empty_bar_bleue  (30/30)
    • Mensagem nº10

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por Dooolly Qui Mar 13, 2014 12:18 pm

    Obrigado, eu esqueci dessa parte ai, tou sem net no momento, quando eu voltar atualizo o topico.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº11

    [GF]Consume em Currency Empty Re: [GF]Consume em Currency

    Mensagem por Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Qui Nov 21, 2024 11:34 am