Como Colocar LojaVirtual no Game

marakgarin escreveu:holly e o seguinte vc tem que ver um site que crie e hospede loja virtual quando vc compra vai para o carrinho de compra a ir escolhe a opção de compra com cartão, boleto etc http://www.uolhost.com.br/#rmcl esse site vc cria e hospeda loja virtual tem um opção agora tem que pagar 25 reais parece no mês mais tem muitos site grátis que faz isso como esse http://lojagratuita.com.br/ esse e no site
se for o que eu to pensando no jogo a ir n sei pq mecho com eclipse origins
me add no msn já mandei o convite

Código:

Call SendData("item1" & END_CHAR)

Código:

Public Sub UpdateVisInv()

Código:

Call BitBlt(frmMercado.picture1.hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, (Item(1).Pic - Int(Item(1).Pic / 6) * 6) * PIC_X, Int(Item(1).Pic / 6) * PIC_Y, SRCCOPY) ' Frmmercado = Nome da Form, Picture1 = Nome da picture, caso o item seja outro lembre-se de mudar tudo certinho!.

Código:

If frmmercado.visible=true then
frmmercado.visible=false
else
frmmercado.visible=true
end if

Código:

Case "refresh"
            Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
            Call PlayerMsg(index, "Mapa atualizado.", White)
            Exit Sub

Código:

            Case "item1"
            If HasItem(index, 1) >= 50 Then '
        Call GiveItem(index, 2, 1) ' o primeiro número é o número do item, o segundo é a quantidade.
        Call PlayerMsg(index, "Você Comprou ^^", Yellow) ' Mensagem que irá aparecer ao comprar o item.
        Call TakeItem(index, 1, 50) ' 1 = Número do Item, 50 = Quantidade
        Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
        Call SavePlayer(index)
    Else
        Call PlayerMsg(index, "Você não tem moedas suficiente!.", BrightRed)
    End If
    Exit Sub

Código:

if picpresente.visible=true then
picpresente.visible=false
else
picpresente.visible=true
endif

Código:

If scrlpresente.Value >=1 Then
        lblpres.Caption = "Itens: " & Trim(Item(scrlpresente.Value).Name)
    End If

Código:

Dim Index As Long
Dim i As Long
On Error Resume Next
    If lvUsers.ListItems.Count = 0 Then Exit Sub
    Index = lvUsers.ListItems(lvUsers.SelectedItem.Index).text

        If IsPlaying(Index) = True Then
                Call GiveItem(Index, scrlpresente.Value, 1)
                Call PlayerMsg(Index, "Você foi presenteado com: " & Trim(Item(scrlpresente.Value).Name), 4)
        End If

Código:

 picpresente.visible=false

Spoiler:

HollywoorD10 escreveu:

O erro ai!

Pablo escreveu:Bom estou fazendo de cabeça, qualquer problema peço que reporte.
Abaixo Adicione:

Código:

            Case "item1"
            If HasItem(index, 1) >= 50 Then '
        Call GiveItem(index, 2, 1) ' o primeiro número é o número do item, o segundo é a quantidade.
        Call PlayerMsg(index, "Você Comprou ^^", Yellow) ' Mensagem que irá aparecer ao comprar o item.
        Call TakeItem(index, 1, 50) ' 1 = Número do Item, 50 = Quantidade
        Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
        Call SavePlayer(index)
    Else
        Call PlayerMsg(index, "Você não tem moedas suficiente!.", BrightRed)
    End If
    Exit Sub