Como botar para vender itens nas lojas?

por igorfla10 Seg 20 Set 2010, 16:30

No DBZ Fusion por exemplo,vc ia em qualquer loja e tinha como vender seus itens na loja,ou seja...como por para vender itens em lojas?
Agradeço vlw

por Ramonxxd Seg 20 Set 2010, 23:25

eu uso o others da loja ponho o item que quero vender por outra coisa ou dinheiro mais tem 1 tutorial aki no forum de ponahr sell itens so procurar

por Cris~ Ter 21 Set 2010, 12:13

Mais Akele Tutorial Não Pega affraid

Esta imcompleto

por igorfla10 Sáb 25 Set 2010, 17:05

Pois é supremo,por isso to pedindo o tutorial de vender itens aqui nesse topico..quem poder ajuda plz Wink

por Linkin ~ Dom 26 Set 2010, 21:54

Alguem Me AJuda Preciso Tabem =] Do + 2 De Cred Very Happy

por igorfla10 Dom 26 Set 2010, 22:37

UP go go alguem posta um tutorial q funcione Very Happy

por Ks_dark Qua 13 Out 2010, 20:18

gogogogo né ?

vamos lá sega de papo
1°,aperte f1,dentro do game,e depos clique em editar shop
2°,vai abrir tipo um painel agora clica no ,primeiro e ai vai ter
nome:Ex,test
fala ao entrar:Ex,Oi
Fala ao sair:Ex.tchau
...............adiante vai ter
iten dado:(aki cola o iten q vai ter q ter no inventario para comprar)
Quantidade:(aki a qntidade )

iten obtido:(aki o iten q vai ganhar qndo clicar em Compra)
ai depos de selecionar tudo ,clica em atualizar,e aparecerá o iten lá,mas vc tem q ver:?: Question

tipo:o iten q vc coloco é arma.vc tem q selecionar arma no editor de iten .ta ai ,dps de tudo clica em comfirmar e pronto ta ai meu tutorial e xau Question

por Ks_dark Qua 13 Out 2010, 20:19

aaaa esqueci de como por o shop,pra pessoa poder usar o shop ,aperte f1
clique em mapa editor,clica na qla 2 aba ali do lado ::>>>>>
e clica em shop ai vc clica na tela e desculpa por esquecer disso xau Very Happy

por igorfla10 Qua 13 Out 2010, 22:22

mano...isso ai é um improviso,eu pego meu item e troco por grana na sessao"OTHERS" da loja,eu quero fazer é isso olha
https://2img.net/r/ihimizer/f/dbzforces.png/
screenshot tirada do DBZ Forces
por favor eu to louco atras dessa funçao de sell iten nas lojas
imploro eu do +5 de cred quem trouxe um tutorial dele Sad

por Gu1lh3rm3 Qua 13 Out 2010, 23:30

aguarde! ... estou trabalho em 1 ... se alguem postar 1º que eu :S ... ai nem posto ^^

por igorfla10 Qui 14 Out 2010, 17:42

ok guilherme..vou aguardar..

por Lucas Roberto Sex 15 Out 2010, 14:59

Ks_dark Olha double Post!!
Mad

por Gu1lh3rm3 Sáb 16 Out 2010, 00:23

pronto pessoal fiz o sistema ... soh testar agora ^^ ... mais vou postar sem estar testado qualquer coisa vocês me avisem que arrumarei o codigo oks! bom vamos la!

_______________________________________________________________________

bom vamos começar pelo Client~Side vamos la... e tambem baixe o .rar que dentro tem a frm^^
Download aqui!

Client~Side
abra o frmTrade
e crie um Command Button com um nome qualquer ^^

dentro desse botao você coloca isso

Código:: frmSellItem.lstSellItem.Clear frmSellItem.lstSellItem.Clear For I = 1 To MAX_INV If GetPlayerInvItemNum(MyIndex, I) > 0 Then If Item(GetPlayerInvItemNum(MyIndex, I)).Type = ITEM_TYPE_CURRENCY Or Item(GetPlayerInvItemNum(MyIndex, I)).Stackable = 1 Then frmSellItem.lstSellItem.AddItem I & "> " & Trim(Item(GetPlayerInvItemNum(MyIndex, I)).Name) & " (" & GetPlayerInvItemValue(MyIndex, I) & ")" Else If GetPlayerWeaponSlot(MyIndex) = I Or GetPlayerArmorSlot(MyIndex) = I Or GetPlayerHelmetSlot(MyIndex) = I Or GetPlayerShieldSlot(MyIndex) = I Then frmSellItem.lstSellItem.AddItem I & "> " & Trim(Item(GetPlayerInvItemNum(MyIndex, I)).Name) & " (worn)" Else frmSellItem.lstSellItem.AddItem I & "> " & Trim(Item(GetPlayerInvItemNum(MyIndex, I)).Name) End If End If Else frmSellItem.lstSellItem.AddItem I & "> None" End If Next I frmSellItem.lstSellItem.ListIndex = 0 frmSellItem.Show vbModal

agora proucura por no modGameLogic

Código:: Public Sub UpdateVisInv()

no final você vai ver ou alguma coisa parecida

Código:: 'frmMirage.picInv(d).ToolTipText = Trim(Item(GetPlayerInvItemNum(MyIndex, d + 1)).Name) End If End If

abaixo disso adicione

Código:: If Item(GetPlayerInvItemNum(MyIndex, d + 1)).Type = ITEM_TYPE_CURRENCY Then If GetPlayerInvItemNum(MyIndex, d + 1) > 0 Then If GetPlayerInvItemNum(MyIndex, d + 1) = 1 Then frmSellItem.lblGold.Caption = "Gold: " & GetPlayerInvItemValue(MyIndex, d + 1) End If Else frmSellItem.lblGold.Caption = "Gold: " & 0 End If End If End If

agora no final do modGameLogic adicione

Código:: Sub UpdatePlayerSellVisInv() Dim I As Long Dim Qx As Long Dim Qx2 As Long For I = 1 To MAX_INV If GetPlayerInvItemNum(MyIndex, I) > 0 Then Qx = Player(MyIndex).Inv(I).Num If Item(GetPlayerInvItemNum(MyIndex, I)).Type = ITEM_TYPE_CURRENCY Or Item(GetPlayerInvItemNum(MyIndex, I)).Stackable = 1 Then Call BitBlt(frmSellItem.picInv(I - 1).hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, (Item(Qx).Pic - Int(Item(Qx).Pic / 6) * 6) * PIC_X, Int(Item(Qx).Pic / 6) * PIC_Y, SRCCOPY) Else If GetPlayerWeaponSlot(MyIndex) = I Or GetPlayerArmorSlot(MyIndex) = I Or GetPlayerHelmetSlot(MyIndex) = I Or GetPlayerShieldSlot(MyIndex) = I Then Call BitBlt(frmSellItem.picInv(I - 1).hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, (Item(Qx).Pic - Int(Item(Qx).Pic / 6) * 6) * PIC_X, Int(Item(Qx).Pic / 6) * PIC_Y, SRCCOPY) Else Call BitBlt(frmSellItem.picInv(I - 1).hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, (Item(Qx).Pic - Int(Item(Qx).Pic / 6) * 6) * PIC_X, Int(Item(Qx).Pic / 6) * PIC_Y, SRCCOPY) End If End If Else frmSellItem.picInv(I - 1).BackColor = Black 'frmSellItem.lstSellItem.AddItem i & "> Empty" End If DoEvents Next I Call UpdateSelectedSellInvItem(frmSellItem.lstSellItem.ListIndex) End Sub

no final do modGameLogic adicione isso

Código:: Sub UpdateSelectedSellInvItem(Index As Integer) On Error GoTo Num0 Num0: End Sub

agora proucure por

Código:: If (Parse(0) = "tempattribute") Then TempTile(Val(Parse(1)), Val(Parse(2))).Type = Val(Parse(3)) TempTile(Val(Parse(1)), Val(Parse(2))).Data1 = Val(Parse(4)) TempTile(Val(Parse(1)), Val(Parse(2))).Data2 = Val(Parse(5)) TempTile(Val(Parse(1)), Val(Parse(2))).Data3 = Val(Parse(6)) TempTile(Val(Parse(1)), Val(Parse(2))).String1 = Val(Parse(7)) TempTile(Val(Parse(1)), Val(Parse(2))).String2 = Val(Parse(8)) TempTile(Val(Parse(1)), Val(Parse(2))).String3 = Val(Parse(9)) Exit Sub End If

abaixo coloque

Código:: If LCase(Parse(0)) = "updatesell" Then frmSellItem.lstSellItem.Clear For I = 1 To MAX_INV If GetPlayerInvItemNum(MyIndex, I) > 0 Then If Item(GetPlayerInvItemNum(MyIndex, I)).Type = ITEM_TYPE_CURRENCY Or Item(GetPlayerInvItemNum(MyIndex, I)).Stackable = 1 Then frmSellItem.lstSellItem.AddItem I & "> " & Trim(Item(GetPlayerInvItemNum(MyIndex, I)).Name) & " (" & GetPlayerInvItemValue(MyIndex, I) & ")" Else If GetPlayerWeaponSlot(MyIndex) = I Or GetPlayerArmorSlot(MyIndex) = I Or GetPlayerHelmetSlot(MyIndex) = I Or GetPlayerShieldSlot(MyIndex) = I Then frmSellItem.lstSellItem.AddItem I & "> " & Trim(Item(GetPlayerInvItemNum(MyIndex, I)).Name) & " (worn)" Else frmSellItem.lstSellItem.AddItem I & "> " & Trim(Item(GetPlayerInvItemNum(MyIndex, I)).Name) End If End If Else frmSellItem.lstSellItem.AddItem I & "> None" End If Next I frmSellItem.lstSellItem.ListIndex = 0 Exit Sub End If

pronto Client Terminamos!

agora Server~Side

no modServerTPC proucure por

Código:: ' :::::::::::::::::::::::::::: ' :: Need map yes/no packet :: ' ::::::::::::::::::::::::::::

acima disso adicione

Código:: Case "sellitem" Dim SellItemNum As Long Dim SellItemSlot As Integer SellItemNum = Parse(1) SellItemSlot = Parse(2) If GetPlayerWeaponSlot(Index) = Val(Parse(1)) Or GetPlayerArmorSlot(Index) = Val(Parse(1)) Or GetPlayerShieldSlot(Index) = Val(Parse(1)) Or GetPlayerHelmetSlot(Index) = Val(Parse(1)) Then Call PlayerMsg(Index, "Você não pode vender itens em uso.", Red) Exit Sub End If Call TakeItem(Index, SellItemNum, 1) Call GiveItem(Index, 22, Item(SellItemNum).Price) Call SendDataTo(Index, "updatesell" & SEP_CHAR & END_CHAR) Exit Sub

pronto terminamos !

lenbrando que não foi testado ainda! ... e se pegar avisem ae!

faça esse tutorial para nao da error na .prince!
Aqui!

por igorfla10 Sáb 16 Out 2010, 18:13

agora continuando no modGameLogic proucure por

Sub UpdatePlayerSellVisInv()
nao consegui achar isso¬¬
https://2img.net/r/ihimizer/i/24322914.png/
seria o nome da Sub que ta errado?veja isso pra mim please vlw

por Gu1lh3rm3 Sáb 16 Out 2010, 20:07

pode cre ... essa sub tem que add ... no mod game logic ...vou edita o tuto jah posto de novo

por igorfla10 Dom 17 Out 2010, 09:41

ok,vlw ae por ta tentando me ajuda Laughing

se eu consegui te do +5..mas só pra esclarecer...
no começo de tudo,eu tenho q baixar o frmSellItem,e add ele nas minhas FORMS,feito isso eu posso começar o tutorial(q vc ainda vai editar) certo?

por Cris~ Dom 17 Out 2010, 09:57

Tambem Não Consiguir Achar Akela Sub .-.

por igorfla10 Dom 17 Out 2010, 14:04

ele disse q a sub tem q fazer no modgamelocig,e que ele ia editar o tutorial para dar certo..

por Gu1lh3rm3 Dom 17 Out 2010, 14:58

arrumei la ... testa aew de novo!

por igorfla10 Dom 17 Out 2010, 15:28

aquela sub eu achei,fiz o tuto CERTINHO,adicionei o frmSellItem no meu projeto e comecei o tutorial...tudo certo ate eu compilar e da esse erro pale

https://2img.net/r/ihimizer/img225/8020/erroy.png
ve o q tem de errado ae plz
mas tipo,fora o erro,nao tem q ter algo no ITEM EDITOR pra por o preço de venda dos itens?

por Gu1lh3rm3 Dom 17 Out 2010, 16:04

acabo de ser testado pelo supremo ~ e deu certo ^^ ... pera ver a imagen ... intao você vai ter que fazer o sistema do .stackable que esta abaixo do tuto ^^

por igorfla10 Dom 17 Out 2010, 16:50

hmm,o .prince né?ok vo tentar aqui

EDIT

agora o erro é no meu client¬¬
sempre quando eu abro ele agora aparece um erro,eu fico dando OK,e no fim ele carrega..dps eu ponho a imagem

quando eu compilei deu erro,mas nao tem nada haver com seu tuto,é no meu client mesmo,que veio dar erro só agora sempre compilo certo mas... agora aparece esse texto selecionado quando eu compilo e da erro

Private Function RT_KeyPress(ByVal Control As CodeSenseCtl.ICodeSense, ByVal KeyAscii As Long, ByVal Shift As Long) As Boolean

e a mensagem do erro
User defined type not defined

sabe como resolvo essa porcaria?
Evil or Very Mad

_________
deixe resolvi¬¬ ja posto se deu certo ou nao
________edit
no seu tuto de arrumar a stackable e .prince,da erro no server side ao compilar...
https://2img.net/r/ihimizer/img69/2103/erroro.gif
vo acaba desistindo de por esse sistema¬¬quanta dificuldade Evil or Very Mad

por RichieSambora Qui 12 Jul 2012, 18:51

desculpem reviver o tópico...mas eu fui fazer o tutorial só que falta a frmsellitem, pq o link do Guilherme é do Megaupload, alguem pode disponibilizar? seria uma alegria ter esse tutorial pegando pra a galera o/

por Conteúdo patrocinado

Como botar para vender itens nas lojas?

Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?

Re: Como botar para vender itens nas lojas?