Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Sistema item que não pode ser negociado nem dropado
3 participantes
Página 1 de 1
Sistema item que não pode ser negociado nem dropado
Fala galera hoje trago a vocês uma pequena modificação que você vai poder colocar se o item pode ou não pode ser negociado nem jogado no chão, isso serve para algum tipo de item evento, ou algum item cash usem como quiserem rsrsrs
Começando pelo servidor
va em Private Type ItemRec no final antes do End Type add
agora em modHandleData procure por a Sub HandleMapDropItem, abaixo de
ainda em modHandleData procure por Sub HandleTradeItem e abaixo de
feito isso vai fazer que o item não possa ser negociado
Pronto servidor pronto, agora vamos ao Client
Client ~
na frmEditorItem
em algum lugar dela crie um chkBox com name chkNoTrade deve ficar assim
de 2 cliques no chkNoTrade e add
agora na modGameEditors procure por
abaixo disso add
agora em Private Type ItemRec no final antes do End Type add
Pronto feito isso o sistema está pronto, sempre que você trocar ou derrubar um item, vai ser verificado se o item tem ou não tem o Valor da variavel NoTrade
é isso até mais
Começando pelo servidor
va em Private Type ItemRec no final antes do End Type add
- Código:
NoTrade As Byte
agora em modHandleData procure por a Sub HandleMapDropItem, abaixo de
- Código:
If TempPlayer(Index).InBank Or TempPlayer(Index).InShop Then Exit Sub
- Código:
If Item(GetPlayerInvItemNum(Index, InvNum)).NoTrade > 0 Then
PlayerMsg Index, "Você não pode derrubar este item. ", BrightRed
Exit Sub
End If
ainda em modHandleData procure por Sub HandleTradeItem e abaixo de
- Código:
' make sure they have the amount they offer
If Amount < 0 Or Amount > GetPlayerInvItemValue(Index, InvSlot) Then
Exit Sub
End If
- Código:
If Item(ItemNum).NoTrade > 0 Then
PlayerMsg Index, "Você não pode negociar este item. ", BrightRed
Exit Sub
End If
feito isso vai fazer que o item não possa ser negociado
Pronto servidor pronto, agora vamos ao Client
Client ~
na frmEditorItem
em algum lugar dela crie um chkBox com name chkNoTrade deve ficar assim
de 2 cliques no chkNoTrade e add
- Código:
Item(EditorIndex).NoTrade = chkNoTrade.value
agora na modGameEditors procure por
- Código:
frmEditor_Item.txtDesc.Text = Trim$(.Desc)
abaixo disso add
- Código:
frmEditor_Item.chkNoTrade.value = .NoTrade
agora em Private Type ItemRec no final antes do End Type add
- Código:
NoTrade As Byte
Pronto feito isso o sistema está pronto, sempre que você trocar ou derrubar um item, vai ser verificado se o item tem ou não tem o Valor da variavel NoTrade
é isso até mais
_________________
Apoia nosso projeto? use nossa assinatura
Hashirama- Membro de Honra
- Mensagens : 413
Créditos : 133
Re: Sistema item que não pode ser negociado nem dropado
vlw valentine, estou com meu projeto a ser lançado, quando tiver mais tempo vou movimentar mais a area de tutoriais aqui da EO, abraços
_________________
Apoia nosso projeto? use nossa assinatura
Hashirama- Membro de Honra
- Mensagens : 413
Créditos : 133
Re: Sistema item que não pode ser negociado nem dropado
Hashirama escreveu:vlw valentine, estou com meu projeto a ser lançado, quando tiver mais tempo vou movimentar mais a area de tutoriais aqui da EO, abraços
traz um de atravessar jogadores em zonas no pvp
Kies- Diva
- Mensagens : 1154
Créditos : 124
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Re: Sistema item que não pode ser negociado nem dropado
tenta ai acho que deve funcionar não testei
no Client procure por
e mude para
deve funcionar, verifica se você estiver em zona segura você não atravessa jogadores, caso tiver em outra zona você atravessa que no caso seria a zona de pvp, mais creio que ficaria melhor ao contrario
no Client procure por
- Código:
' Check to see if a player is already on that tile
For i = 1 To Player_HighIndex
if IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
If GetPlayerX(i) = x Then
If GetPlayerY(i) = y Then
CheckDirection = True
Exit Function
End If
End If
End If
Next i
e mude para
- Código:
' Check to see if a player is already on that tile
For i = 1 To Player_HighIndex
If Map.Moral = MAP_MORAL_SAFE Then
If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
If GetPlayerX(i) = x Then
If GetPlayerY(i) = Y Then
CheckDirection = True
Exit Function
End If
End If
End If
End If
Next i
deve funcionar, verifica se você estiver em zona segura você não atravessa jogadores, caso tiver em outra zona você atravessa que no caso seria a zona de pvp, mais creio que ficaria melhor ao contrario
_________________
Apoia nosso projeto? use nossa assinatura
Hashirama- Membro de Honra
- Mensagens : 413
Créditos : 133
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|