![[One Piece] Akuma no Mi System Hitskin_logo](https://2img.net/i/fa/hitskin/hitskin_logo.png){kind=logo}
Hitskin.comIsto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
[One Piece] Akuma no Mi System
3 participantes
Página 1 de 1
![[One Piece] Akuma no Mi System Empty](https://2img.net/i/empty.gif)
[One Piece] Akuma no Mi System
por XWlash Seg Dez 29, 2014 2:26 pm
Bom, olá denovo gente, aqui estou eu postando mais um sistema para jogo de animes, nunca vi ninguém postar um sistema para jogos de one piece por isso aqui vim para postá-lo, novamente venho dizendo que os sistemas estão debaixo dos seus narizes e vocês não o vêem farei este baseado no sistema de rank e novamente venho trazer os créditos para Thales12 por nos disponibilizar o mesmo.
O tutorial já está completo, não haverá "continuações" com modificações.
No que consiste o sistema de akuma no mis?
R= O player ao entrar, o valor da akuma no mi é igual a 1, que é equivalente a nenhuma, após comer o item, o valor da akuma no mi muda para o definido no editor de itens, cada valor será nomeado (2: Gomu Gomu no mi, 3: Moku Moku no Mi... no tutorial são somente esses), será mostrado em uma label, na picCharacter, a akuma no mi do player.
Sem mais delongas aqui está o tutorial:
Pronto base feita, agora faremos a parte do item que dará akuma no mi. Vamos lá.
Obs: Os créditos do tutorial a seguir não tem nada a ver com thales.
Pronto aí está o tutorial, se quiser modificações faça você mesmo, por exemplo se quiser mandar uma mensagem que o player comeu tal akuma no mi, estude o código para saber como funciona, dá pra servir de base pra muita coisa. Até a próxima amigo
O tutorial já está completo, não haverá "continuações" com modificações.
No que consiste o sistema de akuma no mis?
R= O player ao entrar, o valor da akuma no mi é igual a 1, que é equivalente a nenhuma, após comer o item, o valor da akuma no mi muda para o definido no editor de itens, cada valor será nomeado (2: Gomu Gomu no mi, 3: Moku Moku no Mi... no tutorial são somente esses), será mostrado em uma label, na picCharacter, a akuma no mi do player.
Sem mais delongas aqui está o tutorial:
- Server-side:
Na Sub AddChar procure por:- Código:
For n = 1 To Stats.Stat_Count - 1
Player(Index).Stat(n) = Class(ClassNum).Stat(n)
Next n
- Código:
Player(index).Akuma = 1
No final do modDatabase adicione:- Código:
Function GetPlayerAkuma(ByVal index As Long) As Long
If index > MAX_PLAYERS Then Exit Function
GetPlayerAkuma = Player(index).Akuma
End Function
Sub SetPlayerAkuma(ByVal index As Long, ByVal Akuma As Long)
Player(index).Akuma = Akuma
End Sub
No modHandleData Procure por:- Código:
HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave
- Código:
HandleDataSub(CSetAkuma) = GetAddress(AddressOf HandleSetAkuma)
- Código:
Sub HandleSetAkuma(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim u As String
Dim n As Long
Dim i As Long
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
Buffer.WriteBytes Data()
' Prevent hacking
If GetPlayerAccess(index) < ADMIN_CREATOR Then
Exit Sub
End If
n = FindPlayer(Buffer.ReadString)
i = Buffer.ReadLong
Set Buffer = Nothing
If IsPlaying(n) = False Then Exit Sub
Player(n).Akuma = i
SendPlayerData n
SavePlayer n
End Sub
Na PlayerData procure por:- Código:
Buffer.WriteLong GetPlayerAccess(index)
- Código:
Buffer.WriteByte Player(index).Akuma
Na Type PlayerRec, abaixo de:- Código:
PK As Byte
- Código:
Akuma As Byte
- Código:
CPartyLeave
- Código:
CSetAkuma
- Client-side:
Na Type PlayerRec abaixo de:- Código:
PK As Byte
- Código:
Akuma As Byte
- Código:
Public Sub SendSetAkuma(ByVal Name As String, ByVal Access As Byte)
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
Buffer.WriteLong CSetAkuma
Buffer.WriteString Name
Buffer.WriteLong Access
SendData Buffer.ToArray()
Set Buffer = Nothing
End Sub
- Código:
Sub SetPlayerAkuma(ByVal Index As Long, ByVal Akuma As Long)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If Index > MAX_PLAYERS Then Exit Sub
Player(Index).Akuma = Akuma
' Error handler
Exit Sub
errorhandler:
HandleError "SetPlayerAkuma", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
Function GetPlayerAkuma(ByVal Index As Long) As Long
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If Index > MAX_PLAYERS Then Exit Function
GetPlayerAkuma = Player(Index).Akuma
' Error handler
Exit Function
errorhandler:
HandleError "GetPlayerAkuma", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Function
End Function
No modEnumerations procure por:- Código:
CPartyLeave
- Código:
CSetAkuma
Procure por:- Código:
Call SetPlayerAccess(i, Buffer.ReadLong)
- Código:
Player(i).Akuma = Buffer.ReadByte
- Código:
Name:lblAkuma
Caption: Akuma no mi: Nenhuma
Na HandlePlayerData procure por:- Código:
For x = 1 To Stats.Stat_Count - 1
frmMain.lblCharStat(x).Caption = GetPlayerStat(MyIndex, x)
Next
- Código:
Select Case Player(MyIndex).Akuma
Case 1
frmMain.lblAkuma.Caption = "Akuma no Mi:Nenhuma"
Case 2
frmMain.lblAkuma.Caption = "Akuma no Mi: Gomu Gomu no Mi"
Case 3
frmMain.lblAkuma.Caption = "Akuma no Mi: Moku Moku no Mi"
End Select
Pronto base feita, agora faremos a parte do item que dará akuma no mi. Vamos lá.
Obs: Os créditos do tutorial a seguir não tem nada a ver com thales.
- Client-Side:
Abra a frmEditor_Item e adicione 1 Frame, 1 Label e 1 scrollbox com as seguintes propriedades:- Código:
Frame:
Name:fraAkuma
Caption:Akuma
Label:
Name:lblAkuma
Caption:Akuma:
Scrollbox:
Name:scrlAkuma
Min:1
Max:3
Na cmbType adicione na propriedade List o nome:- Código:
Akuma
Dê dois clicks na cmbType e adicione:- Código:
If cmbType.ListIndex = ITEM_TYPE_AKUMA Then
fraAkuma.Visible = True
Else
fraAkuma.Visible = False
End If
Dê dois clicks na scrlAkuma e adicione:- Código:
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
Select Case scrlAkuma.Value
Case 1
lblAkuma.Caption = "Akuma: Nenhuma"
Case 2
lblAkuma.Caption = "Akuma: Gomu Gomu"
Case 3
lblAkuma.Caption = "Akuma: Moku Moku"
Case Else
lblAkuma.Caption = "Akuma: Nenhuma"
End Select
Item(EditorIndex).AkumaReward = scrlAkuma.Value
' Error handler
Exit Sub
errorhandler:
HandleError "scrlAkuma", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
Procure por:- Código:
Public Const ITEM_TYPE_SPELL As Byte = 8
- Código:
Public Const ITEM_TYPE_AKUMA As Byte = 9 'ou o próximo número
No modGameEditors procure por:- Código:
If (frmEditor_Item.cmbType.ListIndex = ITEM_TYPE_SPELL) Then
frmEditor_Item.fraSpell.Visible = True
frmEditor_Item.scrlSpell.Value = .Data1
Else
frmEditor_Item.fraSpell.Visible = False
End If
Abaixo adicione:- Código:
If (frmEditor_Item.cmbType.ListIndex = ITEM_TYPE_AKUMA) Then
frmEditor_Item.scrlAkuma.Value = .AkumaReward
Else
frmEditor_Item.fraAkuma.Visible = False
End If
Na Type ItemRec abaixo de:- Código:
Paperdoll As Long
- Código:
AkumaReward As Long
- Server-side:
Procure por:- Código:
Public Const ITEM_TYPE_SPELL As Byte = 8
- Código:
Public Const ITEM_TYPE_AKUMA As Byte = 9
no ModPlayer na UseItem procure por:- Código:
Case ITEM_TYPE_SPELL
' stat requirements
For i = 1 To Stats.Stat_Count - 1
If GetPlayerRawStat(index, i) < Item(itemnum).Stat_Req(i) Then
PlayerMsg index, "Você não tem os status requeridos para equipar esse equipamento.", BrightRed
Exit Sub
End If
Next
' level requirement
If GetPlayerLevel(index) < Item(itemnum).LevelReq Then
PlayerMsg index, "Você não tem o level requerido para usar esse item.", BrightRed
Exit Sub
End If
' class requirement
If Item(itemnum).ClassReq > 0 Then
If Not GetPlayerClass(index) = Item(itemnum).ClassReq Then
PlayerMsg index, "Você não tem a classe necessaria para usar esse item.", BrightRed
Exit Sub
End If
End If
' access requirement
If Not GetPlayerAccess(index) >= Item(itemnum).AccessReq Then
PlayerMsg index, "Você não tem o acesso requerido para usar esse item.", BrightRed
Exit Sub
End If
' Get the spell num
n = Item(itemnum).Data1
If n > 0 Then
' Make sure they are the right class
If Spell(n).ClassReq = GetPlayerClass(index) Or Spell(n).ClassReq = 0 Then
' Make sure they are the right level
i = Spell(n).LevelReq
If i <= GetPlayerLevel(index) Then
i = FindOpenSpellSlot(index)
' Make sure they have an open spell slot
If i > 0 Then
' Make sure they dont already have the spell
If Not HasSpell(index, n) Then
Call SetPlayerSpell(index, i, n)
Call SendAnimation(GetPlayerMap(index), Item(itemnum).Animation, 0, 0, TARGET_TYPE_PLAYER, index)
Call TakeInvItem(index, itemnum, 0)
Call PlayerMsg(index, "Agora você
pode usar a magia " & Trim$(Spell(n).Name) & ".", BrightGreen)
Else
Call PlayerMsg(index, "Você ja tem essa magia.", BrightRed)
End If
Else
Call PlayerMsg(index, "Você não pode aprender mais magias.", BrightRed)
End If
Else
Call PlayerMsg(index, "Você precisa estar no
nivel " & i & " para aprender essa magia.", BrightRed)
End If
Else
Call PlayerMsg(index, "Essa magia so pode ser
aprendida pela classe " &
CheckGrammar(GetClassName(Spell(n).ClassReq)) & ".", BrightRed)
End If
End If
' send the sound
SendPlayerSound index, GetPlayerX(index), GetPlayerY(index), SoundEntity.seItem, itemnum
Abaixo adicione:- Código:
Case ITEM_TYPE_AKUMA
' stat requirements
For i = 1 To Stats.Stat_Count - 1
If GetPlayerRawStat(index, i) < Item(itemnum).Stat_Req(i) Then
PlayerMsg index, "You do not meet the stat requirements to use this item.", BrightRed
Exit Sub
End If
Next
' level requirement
If GetPlayerLevel(index) < Item(itemnum).LevelReq Then
PlayerMsg index, "You do not meet the level requirement to use this item.", BrightRed
Exit Sub
End If
' class requirement
If Item(itemnum).ClassReq > 0 Then
If Not GetPlayerClass(index) = Item(itemnum).ClassReq Then
PlayerMsg index, "You do not meet the class requirement to use this item.", BrightRed
Exit Sub
End If
End If
' access requirement
If Not GetPlayerAccess(index) >= Item(itemnum).AccessReq Then
PlayerMsg index, "You do not meet the access requirement to use this item.", BrightRed
Exit Sub
End If
' Ganhar Akuma
Call SetPlayerAkuma(index, Item(itemnum).AkumaReward)
' send the sound
SendPlayerSound index, GetPlayerX(index), GetPlayerY(index), SoundEntity.seItem, itemnum
' atualizar player
Call SendPlayerData(index)
'tirar item do inventário
Call TakeInvItem(index, itemnum, 0)
Para finalizar na Type Item_Rec abaixo de:- Código:
Paperdoll As Long
- Código:
AkumaReward As Long
Pronto aí está o tutorial, se quiser modificações faça você mesmo, por exemplo se quiser mandar uma mensagem que o player comeu tal akuma no mi, estude o código para saber como funciona, dá pra servir de base pra muita coisa. Até a próxima amigo
Última edição por XWlash em Dom Jun 26, 2016 9:11 pm, editado 1 vez(es)
_________________
![[One Piece] Akuma no Mi System Source](https://media.giphy.com/media/13MhuJ5nMhpuNy/source.gif)
Tente novamente.
XWlash- Semi-Experiente
- Mensagens : 88
Créditos : 23
Re: [One Piece] Akuma no Mi System
por Spooky Seg Dez 29, 2014 2:29 pm
Aeee Até que enfim terminou e.e como sempre tutorial perfeito '-' +2 cred e.e
_________________
Sign
![[One Piece] Akuma no Mi System Hticjn](https://2img.net/h/oi57.tinypic.com/hticjn.jpg)
- Sign¹:
![[One Piece] Akuma no Mi System 14ng4yo](https://2img.net/h/oi57.tinypic.com/14ng4yo.jpg)
- Sign²:
![[One Piece] Akuma no Mi System J7waxu](https://2img.net/h/oi58.tinypic.com/j7waxu.jpg)
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Re: [One Piece] Akuma no Mi System
por XWlash Seg Dez 29, 2014 2:32 pm
Depois te passo a continuação, ou seja a parte de ganhar spells etc... talvez passe ele aqui como Ganha Spell Por Level com precaução de alguns bugs. De qualquer forma obrigado
_________________
Tente novamente.
XWlash- Semi-Experiente
- Mensagens : 88
Créditos : 23
Re: [One Piece] Akuma no Mi System
por Spooky Seg Dez 29, 2014 2:41 pm
Arigato, sensei .Kross escreveu:Depois te passo a continuação, ou seja a parte de ganhar spells etc... talvez passe ele aqui como Ganha Spell Por Level com precaução de alguns bugs. De qualquer forma obrigado
só pra n ficar sem nada o tópico vou dar +1 '-' vamos lá, eu dou idéia tu cria aaah muleke heuheuehueh
_________________
Sign
- Sign¹:
- Sign²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Re: [One Piece] Akuma no Mi System
por Pablo Kawan Seg Dez 29, 2014 5:19 pm
parabêns, primeira vez que vejo alguem fazer algo que preste com os tutoriais já existentes, só vejo novatos pedindo ajuda.
_________________
Assinatura removida pela Staff
^ Tenho nova, surprise
![[One Piece] Akuma no Mi System H2D9a9k](https://i.imgur.com/H2D9a9k.png)
Pablo Kawan- Experiente
- Mensagens : 480
Créditos : 158 -
Re: [One Piece] Akuma no Mi System
por XWlash Seg Dez 29, 2014 5:43 pm
Obg Kawanzii , com meus tutoriais que estou postando quero pegar mais isso e mostrar pros novatos que eles tem a base pra absolutamente tudo aqui no fórum só não enxergam.
, com meus tutoriais que estou postando quero pegar mais isso e mostrar pros novatos que eles tem a base pra absolutamente tudo aqui no fórum só não enxergam._________________
Tente novamente.
XWlash- Semi-Experiente
- Mensagens : 88
Créditos : 23
Re: [One Piece] Akuma no Mi System
por Spooky Seg Dez 29, 2014 7:55 pm
É, mais o problema também é os novatos que não sabem programar isso também dificulta um pouco para melhorar um sistema xdKross escreveu:Obg Kawanzii
_________________
Sign
- Sign¹:
- Sign²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Re: [One Piece] Akuma no Mi System
por Spooky Qua Jan 21, 2015 2:24 pm
Malz pelo double, mais creio que seja importante (o pessoal não ia ver o edit -.-')
Dê dois clicks na scrlAkuma e adicione:
CÓDIGO:
Só Avisando que nesta parte se deixar
vai dar erro ao compilar, então tem que coloca o seguinte:
O que mudou?
R: O " " antes do nome Akuma e depois de Nenhuma...
tem que fazer nos outros também
Então ficaria
CÓDIGO:
Dê dois clicks na scrlAkuma e adicione:
CÓDIGO:
- Código:
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
Select Case scrlAkuma.Value
Case 1
lblAkuma.Caption = Akuma: Nenhuma
Case 2
lblAkuma.Caption = Akuma: Gomu Gomu
Case 3
lblAkuma.Caption = Akuma: Moku Moku
Case Else
lblAkuma.Caption = Akuma: Nenhuma
End Select
Item(EditorIndex).AkumaReward = scrlAkuma.Value
' Error handler
Exit Sub
errorhandler:
HandleError "scrlAkuma", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
Só Avisando que nesta parte se deixar
- Código:
[size=12]Case 1[/size]
[size=12] lblAkuma.Caption = Akuma: Nenhuma[/size]
vai dar erro ao compilar, então tem que coloca o seguinte:
- Código:
[size=12]Case 1[/size]
[size=12] lblAkuma.Caption = "Akuma: Nenhuma"[/size]
O que mudou?
R: O " " antes do nome Akuma e depois de Nenhuma...
tem que fazer nos outros também
Então ficaria
CÓDIGO:
- Código:
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
Select Case scrlAkuma.Value
Case 1
lblAkuma.Caption = "Akuma: Nenhuma"
Case 2
lblAkuma.Caption = "Akuma: Gomu Gomu"
Case 3
lblAkuma.Caption = "Akuma: Moku Moku"
Case Else
lblAkuma.Caption = "Akuma: Nenhuma"
End Select
Item(EditorIndex).AkumaReward = scrlAkuma.Value
' Error handler
Exit Sub
errorhandler:
HandleError "scrlAkuma", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
_________________
Sign
- Sign¹:
- Sign²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Tópicos semelhantes» Messorem:head - Projeto em Desenvolvimento [19/12]Heart Piece system Zelda, 3 personagens novos e muito mais
» [PEDIDO] Auction system and pet system
» Recrutamento One Piece
» One Piece Pirate War
» Dreams Piece
» [PEDIDO] Auction system and pet system
» Recrutamento One Piece
» One Piece Pirate War
» Dreams Piece
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos