MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[ALL]Sistema de Scripted Item

+14
SkyZero
DarkKang
St4rk
Gu1lh3rm3
Ash
guuh
MarcosVinicius158
Yamito Sensei
playsson14z
Cris~
Lucas Roberto
snool
Lendário
maykel
18 participantes

Página 1 de 2 1, 2  Seguinte

Ir para baixo

[ALL]Sistema de Scripted Item Empty [ALL]Sistema de Scripted Item

Mensagem por maykel Sáb 21 Ago 2010, 12:36

Olá amigos da MMORPG, Tudo bom?
Venho aqui lhes trazer, o famoso Sistema de Scripted Item.
vamos começar:

Client Side

Na frmItemEditor, crie uma Frame de caption:

Código:
Scripted Item



e nomeia de:

Código:
fraScript



Dentro desta frame crie uma label, de caption:
Código:

Script Number:



e do lado desta label crie outra label de caption 0, e nomeia-a de:

Código:
lblScript



e em baixo crie um Scroll bar e o nomeie de:

Código:
scrlScript



nas propriedades deste scroll, la em max coloque 255

agora de 1 clique no cmbType e la na opção list das suas propriedades adicione o seguinte tipo:

Código:
Scripted Item




Agora em modTypes, procure por:

Código:
' Item constants


e abaixo de:

Código:
Public Const ITEM_TYPE_PET = 14



Coloque:

Código:
Public Const ITEM_TYPE_SCRIPTED = 15



OBS: o numero depois do = tem de ser sequencial aos outros!

Agora em modGameLogic, na sub itemEditorInit, abaixo de:

Código:
If (frmItemEditor.cmbType.ListIndex = ITEM_TYPE_SPELL) Then
        frmItemEditor.fraSpell.Visible = True
        frmItemEditor.scrlSpell.Value = Item(EditorIndex).Data1
    Else
        frmItemEditor.fraSpell.Visible = False
    End If



Adicione:

Código:
If (frmItemEditor.cmbType.ListIndex >= ITEM_TYPE_SCRIPTED) Then
        frmItemEditor.fraScript.Visible = True
        frmItemEditor.scrlScript.Value = Item(EditorIndex).Data1
        frmItemEditor.lblScript.Caption = Item(EditorIndex).Data1

    Else
        frmItemEditor.fraScript.Visible = False
    End If



Ainda em modGameLogic, agora na sub itemEditorOk, abaixo de:

Código:
If (frmItemEditor.cmbType.ListIndex = ITEM_TYPE_PET) Then
        Item(EditorIndex).Data1 = frmItemEditor.scrlPet.Value
        Item(EditorIndex).Data2 = frmItemEditor.scrlPetLevel.Value
        Item(EditorIndex).Data3 = 0
        Item(EditorIndex).StrReq = 0
        Item(EditorIndex).DefReq = 0
        Item(EditorIndex).SpeedReq = 0
        Item(EditorIndex).MagicReq = 0
        Item(EditorIndex).ClassReq = 0
        Item(EditorIndex).AccessReq = 0

        Item(EditorIndex).AddHP = 0
        Item(EditorIndex).AddMP = 0
        Item(EditorIndex).AddSP = 0
        Item(EditorIndex).AddStr = 0
        Item(EditorIndex).AddDef = 0
        Item(EditorIndex).AddMagi = 0
        Item(EditorIndex).AddSpeed = 0
        Item(EditorIndex).AddEXP = 0
        Item(EditorIndex).AttackSpeed = 0
    End If



Adicione:

Código:
If (frmItemEditor.cmbType.ListIndex = ITEM_TYPE_SCRIPTED) Then
        Item(EditorIndex).Data1 = frmItemEditor.scrlScript.Value
        Item(EditorIndex).Data2 = 0
        Item(EditorIndex).Data3 = 0
        Item(EditorIndex).StrReq = 0
        Item(EditorIndex).DefReq = 0
        Item(EditorIndex).SpeedReq = 0
        Item(EditorIndex).ClassReq = 0
        Item(EditorIndex).AccessReq = 0

        Item(EditorIndex).AddHP = 0
        Item(EditorIndex).AddMP = 0
        Item(EditorIndex).AddSP = 0
        Item(EditorIndex).AddStr = 0
        Item(EditorIndex).AddDef = 0
        Item(EditorIndex).AddMagi = 0
        Item(EditorIndex).AddSpeed = 0
        Item(EditorIndex).AddEXP = 0
        Item(EditorIndex).AttackSpeed = 0
    End If



Agora na frmItemEditor, clique duas vezes no cmbType e no final do código, abaixo de:

Código:
If (cmbType.ListIndex = ITEM_TYPE_PET) Then
        fraSpell.Visible = False
        fraPet.Visible = True
        fraAttributes.Visible = False
        fraEquipment.Visible = False
        fraBow.Visible = False
    Else
        fraPet.Visible = False
    End If



De um enter e adicione:

Código:
If (cmbType.ListIndex = ITEM_TYPE_SCRIPTED) Then
fraScript.Visible = True
fraAttributes.Visible = False
fraEquipment.Visible = False
fraBow.Visible = False
fraSpell.Visible = False
Else
fraScript.Visible = False
End If

acabamos a parte do client

Server Side

Em modTypes, procure por:

Código:
' Constantes de itens



Abaixo de:

Código:
Public Const ITEM_TYPE_PET = 14



Coloque:

Código:
Public Const ITEM_TYPE_SCRIPTED = 15



Agora em modServerTCP, abaixo de:

Código:
' PRESSA! Desculpe-me pelo código feio!
                        Call TakeItem(Index, GetPlayerInvItemNum(Index, InvNum), 0)
                        Call PlayerMsg(Index, "Você conseguiu um pet!", White)



De um enter e adicione:

Código:
Case ITEM_TYPE_SCRIPTED
                            MyScript.ExecuteStatement "Scripts\Principal.txt", "ScriptedItem " & Index & "," & Item(Player(Index).Char(CharNum).Inv(InvNum).num).Data1



não se esqueça de deixar o End Select em baixo disso ein, não o exclua!

Acabamos a parte do Server, vamos agora para a parte do Principal.txt

Principal.txt

Va no final do seu principal.txt e adicione esta sub:

Código:
Sub ScriptedItem(index, Script)
Select Case Script
Case 0
End Select
End Sub


Prontinho!, agora para colocar um código no seu item é só colocar aqui na case 0 o código e criar o item scripted no jogo, com o número da case em que está o código!

Espero que tenham gostado..

Créditos: MKL
Agradecimentos: Cezar, que me ajudou na ultima parte do sistema!
maykel
maykel
Membro
Membro

Mensagens : 133

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Lendário Sáb 21 Ago 2010, 13:08

Muito interessante +1 de CRED pra vc Laughing
Lendário
Lendário
Administrador Lendário
Administrador Lendário

Mensagens : 1958

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por snool Sáb 21 Ago 2010, 13:15

Pra que serve isso ?
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por maykel Sáb 21 Ago 2010, 13:42

serve para você poder colocar um "código em algum item" para que ele fassa alguma coisa:
por exemplo, um item que ao ser clicado, o player se transforma em outra sprite...
para isto é usado o comando:
Call SetPlayerSprite(index, 1)

o 1 é o numero da sprite que o player ira se transformar ao clicar no item, este código teria de ser posto dentro da Case 0 e na hora de criar o item, escolher o script numero 0...
maykel
maykel
Membro
Membro

Mensagens : 133

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Lucas Roberto Sáb 21 Ago 2010, 15:18

Teresante!! +1 de CRED
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por snool Sáb 21 Ago 2010, 20:02

Huum que massa intão vo dar um cred !
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Cris~ Sáb 21 Ago 2010, 20:15

Otimo Very Happy
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por playsson14z Sáb 04 Set 2010, 17:23

vlw um cred
playsson14z
playsson14z
Membro Junior
Membro Junior

Mensagens : 91

http://naruto-darkblink.blogspot.com

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Dom 05 Set 2010, 18:40

Oq é caption?
Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por MarcosVinicius158 Dom 05 Set 2010, 18:42

Titulo Em Português!
MarcosVinicius158
MarcosVinicius158
Membro
Membro

Mensagens : 132

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Seg 06 Set 2010, 13:18

Hum...e como cria uma frame?
Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Lendário Seg 06 Set 2010, 16:25

Na barra de ferramentas ao lado <<<
Lendário
Lendário
Administrador Lendário
Administrador Lendário

Mensagens : 1958

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Seg 06 Set 2010, 16:51

Oi desculpa encher saco...mas eu n consigo entender esses negocios do VB...sera que tem algum lugar q ensina com prints?Pq eu precisaria saber onde clicar e como fazer e etc...tipo o negocio do frame...ta eu clico la mas n sei da nome de caption(alias tbm n entendi oq e isso).

Então...tem alguma video aula ou um tuto com prints de como usar VB por ai?



Última edição por Yamito Sensei em Seg 06 Set 2010, 16:57, editado 2 vez(es)
Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por snool Seg 06 Set 2010, 16:55

Entre no link a seguir que saberá oque é caption !

[ALL]Sistema de Scripted Item Como-mudar-o-nome-da-janela-do-elysium-t2407
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Seg 06 Set 2010, 16:57

O link n ta aparecendo cara =(
Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por snool Seg 06 Set 2010, 16:58

A desculpa :
Spoiler:
Clique nesse Spoiler e aparecera o link !
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Seg 06 Set 2010, 17:10

Vc sabe fazer esse negocio de scripted item?
Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por snool Seg 06 Set 2010, 17:10

Sim , é só seguir a tutorial !
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Seg 06 Set 2010, 17:14

É mas eu nunca na minha vida usei o VB por isso to muitoooooo confuso...com esse negocio de caption..doq e frame e tals
Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por snool Seg 06 Set 2010, 17:15

Huum lá no menu tem uma parada chamada portal entra lá e vai ter uma foto , com anuncio de aulas de vb , entra lá !
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Seg 06 Set 2010, 17:42

Eu to abrindo certo o VB?

Eu clico no elysium engine brasil(on de ta meu jogo)vou em codigo fonte...dai clico em cliente

Dai tem um negocio chamado

Elysium engine brasil (cliente)dai abre o VB...olha a imagem ai

Cara o image shack ta demorando de mais ja edito ja e coloco a imagem...
Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por snool Seg 06 Set 2010, 17:56

Bom , pelo oque você me disse , está certinho .
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Seg 06 Set 2010, 18:18

Cara como q eu faço pra criar uma label dentro da frame q eu criei?
Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por snool Seg 06 Set 2010, 18:21

Na parte esquerda do VB tem um negocio chamado General ali em baixo clique na ferramenta com o icone A .
Deu .
Da um cred ai
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Yamito Sensei Seg 06 Set 2010, 18:26

Dei cred hehe

[ALL]Sistema de Scripted Item 83577998

Yamito Sensei
Yamito Sensei
Membro
Membro

Mensagens : 149

Ir para o topo Ir para baixo

[ALL]Sistema de Scripted Item Empty Re: [ALL]Sistema de Scripted Item

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Página 1 de 2 1, 2  Seguinte

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos