[EO] Mapa com Teleporte e Custo de Gold
5 participantes
Página 1 de 1
[EO] Mapa com Teleporte e Custo de Gold
por Wirosaki Sáb 27 Out 2012, 14:40
![[EO] Mapa com Teleporte e Custo de Gold Sistemaa](https://2img.net/r/ihimizer/img688/2856/sistemaa.png)
Screens do Sistema
- Spoiler:
- Sistema Implantado no meu Projeto!
Mapa:![[EO] Mapa com Teleporte e Custo de Gold Mapawl](https://2img.net/r/ihimizer/img109/7065/mapawl.png)
Label na frmMain:![[EO] Mapa com Teleporte e Custo de Gold Labeld](https://2img.net/r/ihimizer/img59/6597/labeld.png)
Mensagens no Chat, ao viajar, e não tendo dinheiro para viagem:![[EO] Mapa com Teleporte e Custo de Gold Mensagensl](https://2img.net/r/ihimizer/img854/7746/mensagensl.png)
Então ok... Vamos começar?
Primeiro baixe este ARQUIVO e coloque na pasta src do seu projeto...
Depois no Visual Basic clique em Project e em Add File...
Então carregue o arquivo frmMapa!
Pronto, primeira parte já foi...
Agora no frmMain adicione um Label:
- Spoiler:
- Name: lblMapa
Backstyle: Transparent
Agora na imagem de background do frmMain crie algo visual dizendo "Mapa" e coloque esta label transparente por cima entende?!
Código do lblMapa:
- Spoiler:
- frmMapa.Visible = True
Agora vamos arrumar o bug do lblGold...
Client~Side
Procure:
- Spoiler:
- If GetPlayerInvItemNum(MyIndex, i) = 1 Then '1 = gold
Substitua por:
- Spoiler:
- if Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then
Agora Procure por:
- Spoiler:
- ' If item is a stack - draw the amount you have
If GetPlayerInvItemValue(MyIndex, i) > 1 Then
y = rec_pos.Top + 22
X = rec_pos.Left - 4
Amount = CStr(GetPlayerInvItemValue(MyIndex, i))
' Draw currency but with k, m, b etc. using a convertion function
RenderText Font_Default, ConvertCurrency(Amount), X, y, Yellow, 0
' Check if it's gold, and update the label
If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then '1 = gold
frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g"
End If
End If
Substitua por:
- Spoiler:
- ' If item is a stack - draw the amount you have
If Item(GetPlayerInvItemNum(MyIndex, i)).Type <> ITEM_TYPE_ARMOR Or ITEM_TYPE_WEAPON Or ITEM_TYPE_CONSUME Then
If GetPlayerInvItemValue(MyIndex, i) >= 1 Then
y = rec_pos.Top + 22
X = rec_pos.Left - 4
Amount = CStr(GetPlayerInvItemValue(MyIndex, i))
' Draw currency but with k, m, b etc. using a convertion function
RenderText Font_Default, ConvertCurrency(Amount), X, y, Yellow, 0
' Check if it's gold, and update the label
If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then '1 = gold
frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g"
End If
end if
End If
E Agora, Procure por:
- Spoiler:
- ' If item is a stack - draw the amount you have
If GetPlayerInvItemValue(MyIndex, i) > 1 Then
y = rec_pos.top + 22
X = rec_pos.Left - 4
Amount = CStr(GetPlayerInvItemValue(MyIndex, i))
' Draw currency but with k, m, b etc. using a convertion function
DrawText frmMain.picInventory.hDC, X, y, ConvertCurrency(Amount), QBColor(Yellow)
' Check if it's gold, and update the label
If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then
frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g"
End If
End If
E Substitua por:
- Spoiler:
- If Item(GetPlayerInvItemNum(MyIndex, i)).Type <> ITEM_TYPE_ARMOR Or ITEM_TYPE_WEAPON OR ITEM_TYPE_CONSUMEThen
If GetPlayerInvItemValue(MyIndex, i) >= 1 Then
y = rec_pos.Top + 22
X = rec_pos.Left - 4
Amount = GetPlayerInvItemValue(MyIndex, i) - amountModifier
' Draw currency but with k, m, b etc. using a convertion function
If Amount < 1000000 Then
colour = White
ElseIf Amount > 1000000 And Amount < 10000000 Then
colour = Yellow
ElseIf Amount > 10000000 Then
colour = BrightGreen
End If
RenderText Font_Default, Format$(ConvertCurrency(str(Amount)), "#,###,###,###"), X, y, colour, 0
' Check if it's gold, and update the label
If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then '1 = gold
frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g"
' Check if it's gold, and update the label 2
If Amount = 0 Then
frmMain.lblGold.Caption = "0g"
frmMapa.lblGold.Caption = "0g"
end If
end if
Para acabar, procure por:
- Spoiler:
- ' reset gold label
frmMain.lblGold.Caption = "0g"
Substitua por:
- Spoiler:
- ' reset gold label
If Amount = 0 Then
frmMain.lblGold.Caption = "0g"
frmMapa.lblGold.Caption = "0g"
End If
Pronto, o bug está concertado... Agora vamos ao warp player!
Server-Side
Procure por:
- Spoiler:
- CWarpTo
Em baixo coloque:
- Spoiler:
- CWarpPlayer
Depois procure por:
- Spoiler:
- HandleDataSub(CWarpTo) = GetAddress(AddressOf HandleWarpTo)
Em baixo adicione:
- Spoiler:
- HandleDataSub(CWarpPlayer) = GetAddress(AddressOf HandleWarpPlayer)
No final do modHandleData adicione:
- Spoiler:
- Sub HandleWarpPlayer(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim n As Long
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
Buffer.WriteBytes Data()
' The map
n = Buffer.ReadLong 'CLng(Parse(1))
Set Buffer = Nothing
' Prevent hacking
If n < 0 Or n > MAX_MAPS Then
Exit Sub
End If
Call PlayerWarp(index, n, GetPlayerX(index), GetPlayerY(index))
Call PlayerMsg(index, "Você está no mapa:" & n, BrightBlue)
Call AddLog(GetPlayerName(index) & " Você foi para o mapa:" & n & ".", ADMIN_LOG)
End Sub
Fim do Server~Side!
Agora no Client~Side
No final da modClientTCP adicione:
- Spoiler:
- Sub HandleWarpPlayer(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim n As Long
Dim x As Byte, y As Byte
Dim i As Byte
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
Buffer.WriteBytes Data()
For i = 1 To MAX_INV
If GetPlayerInvItemNum(index, i) = 1 Then
If GetPlayerInvItemValue(index, i) < 100 Then
PlayerMsg index, "Você não tem Gold Suficiente!", Yellow
Exit Sub
Exit For
End If
End If
Next
' The map
n = Buffer.ReadLong 'CLng(Parse(1))
x = Buffer.ReadByte
y = Buffer.ReadByte
Set Buffer = Nothing
' Prevent hacking
If n < 0 Or n > MAX_MAPS Then
Exit Sub
End If
If x < 0 Or x > Map(GetPlayerMap(index)).MaxX Then Exit Sub
If y < 0 Or y > Map(GetPlayerMap(index)).MaxY Then Exit Sub
For i = 1 To MAX_INV
If GetPlayerInvItemNum(index, i) = 1 Then
TakeInvItem index, 1, 100
End If
Next
Call PlayerWarp(index, n, x, y)
Call PlayerMsg(index, "Você está no mapa:" & n, BrightBlue)
Call AddLog(GetPlayerName(index) & " Você foi para o mapa:" & n & ".", ADMIN_LOG)
SendPlayerData index
End Sub
Depois procure por:
- Spoiler:
- CWarpTo
Em baixo adicione:
- Spoiler:
- CWarpPlayer
Pronto, agora para usar quando você clicar no picture do frmMapa e tiver 100 de gold você teleportará!
Para mudar o local do teleporte no frmMapa, na picMapa, duplo clique, e mude:
Call WarpPlayer(mapa, x, y)
Se quiser criar mais teleportes só usar o Call WarpPlayer(10, 12, 9) em outras pictures, basta apenas ir copiando... xD
Espero que ajude vocês este tutorial!
Se ajudou +cred ai ^^
Créditos:
Sistema de Warp Player: Thales12
Implementações e Correções: Guardian
Criação do frmMapa e do Tutorial: Wirosaki
Correção da lblGold: Wirosaki
Última edição por Wirosaki em Sáb 27 Out 2012, 23:33, editado 2 vez(es)
Wirosaki- Membro Sênior
- Mensagens : 262
Re: [EO] Mapa com Teleporte e Custo de Gold
por LegendaryAngel Sáb 27 Out 2012, 14:58
Ae fico muinto bom ,vlws vai ajudar muinta gente no seus projetos\o +1 Credito
LegendaryAngel- Membro Veterano
- Mensagens : 810
Re: [EO] Mapa com Teleporte e Custo de Gold
por skykro-T Sáb 27 Out 2012, 16:46
SPOILER no começo do tutorial ta bugado mais vou testa XD
skykro-T- Membro
- Mensagens : 130
Re: [EO] Mapa com Teleporte e Custo de Gold
por Wirosaki Sáb 27 Out 2012, 23:10
Nas screens? relaxa, se for isso é que ainda não deu tempo de por xD
Wirosaki- Membro Sênior
- Mensagens : 262
Re: [EO] Mapa com Teleporte e Custo de Gold
por RenanR Sáb 27 Out 2012, 23:26
Bom tutorial, mas na próxima use
em vez de spoiler ok. +1 Crédito
- Código:
[code][/code]
em vez de spoiler ok. +1 Crédito
RenanR- Membro Veterano
- Mensagens : 1048
Re: [EO] Mapa com Teleporte e Custo de Gold
por Wirosaki Sáb 27 Out 2012, 23:35
Pronto, as screens foram colocadas!
Ok RenanR, da próxima coloco assim então!
Ok RenanR, da próxima coloco assim então!
Wirosaki- Membro Sênior
- Mensagens : 262
Re: [EO] Mapa com Teleporte e Custo de Gold
por Thales12 Dom 28 Out 2012, 09:24
parabens lek !
+1 ae
obrigado pelos creditos !
+1 ae
obrigado pelos creditos !
Thales12- Membro Veterano
- Mensagens : 1011
-
Re: [EO] Mapa com Teleporte e Custo de Gold
por Wirosaki Dom 28 Out 2012, 14:46
Por nada Thales12, mais do que merecido você ali nos créditos ^^
Abraço
Abraço
Wirosaki- Membro Sênior
- Mensagens : 262
Tópicos semelhantes» Suporte - Teleporte por imagem com custo de gold
» Item Teleporte
» [ALL]Arrows Com Custo De Mp
» Comando de teleporte Help!
» [Dúvida] Teleporte
» Item Teleporte
» [ALL]Arrows Com Custo De Mp
» Comando de teleporte Help!
» [Dúvida] Teleporte
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
» Ojkjeeeee
» Naruto Great Ninja Batle
» Recrutamento de um Designer para jogo de CDZ.
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Projeto Dbz
» Avaliação - Sprites Naruto
» [Sprites] DBZ (Plix)
» Super Pack - Bleach V.2
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [Pedido] Contador de resets na FrmMain
» [Recrutamento]
» Ajuda erro no Cliente e Servidor do EEB 2.6!
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
» Recursos Pokemons
» erro frm flash
» Pedido - Pack de star wars
» [Ajuda] Sobre como por o servidor on por ip fixo
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
» [NSME] Naruto Shinobi Maker Engine
» Script /base,/casa Igual DBZ Forces
» [Pedido]Colar Tsunade item sprite eclipse origin
» [Pedido] Elysium
» Naruto - Recruta
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
» Demonstração de Sprites (Á VENDA!)
» [Sistema de Reset]Para Eclipse .
» Cada Guild Nascer em Certo Mapa
» Dragon Ball z Fusion A Grande Volta
» Ajuda com Ip fixo
» Como Fazer um GUI no Eclipse Origins
» Shisui Susanoo
» Fantasy Art Online
» Ajuda !!
» como passar o usuário e senha para o MainMenu?
» Ru time ero 13 Type mismatch
» Jarvis 1.3 Download
» [Avaliação/Disponibilização]Árvore 64x64
» Mlk's Zikas Signatures
» Pedido de Sistemas
» [AjudaEEB]Gerador de EXP
» [Avaliar] Base, Humano e Goblin.
» Fabrica do Tio Cronos!
» [PixelArt] Minion - Meu malvado favorito
» [Avaliar] Goku Dragon Ball Z