TutoRPG


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

TutoRPG
TutoRPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Últimos assuntos
» Evil Fantasy BETA
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Set 10, 2013 12:30 pm por lauk

» Sistema de Guild (do Eduardo)
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer maio 14, 2013 8:54 pm por Khaws

» Sistema de Guild
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer maio 14, 2013 6:48 pm por Khaws

» Teco Fabrica
[EEB] Comando para Salvar Seu Game I_icon_minitimeSáb Mar 23, 2013 8:18 am por ~FullzDied

» Apresentaçao
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Mar 01, 2013 6:58 pm por Sweeps

» Editando nick
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Mar 01, 2013 6:35 pm por Sweeps

» Sistema De Vila
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Fev 01, 2013 4:59 pm por ~FullzDied

» alguns tilesets
[EEB] Comando para Salvar Seu Game I_icon_minitimeSáb Dez 22, 2012 8:42 pm por Diegoslstuto

» Tilesets de natureza
[EEB] Comando para Salvar Seu Game I_icon_minitimeSáb Dez 22, 2012 8:40 pm por Diegoslstuto

» Olá, vim para trazer sistemas e muitas outras coisas
[EEB] Comando para Salvar Seu Game I_icon_minitimeQui Dez 13, 2012 3:09 pm por ~FullzDied

» [Recrutando] Bleach Online Dark Saga
[EEB] Comando para Salvar Seu Game I_icon_minitimeSáb Nov 10, 2012 8:23 pm por Hunter™

» Dragon Ball Fox
[EEB] Comando para Salvar Seu Game I_icon_minitimeDom Out 28, 2012 7:55 am por NeeTo

» Tutorial Mapper - Como avaliar um mapa
[EEB] Comando para Salvar Seu Game I_icon_minitimeSáb Out 13, 2012 12:45 pm por NeeTo

» Life RPG Maker 2.0
[EEB] Comando para Salvar Seu Game I_icon_minitimeQui Out 11, 2012 4:02 pm por SynysterGates

» Fórum decaido
[EEB] Comando para Salvar Seu Game I_icon_minitimeQui Out 11, 2012 2:16 pm por SynysterGates

» Dragon Ball Elite
[EEB] Comando para Salvar Seu Game I_icon_minitimeQua Out 10, 2012 3:07 pm por KingSora

» Auto Ataque por checkbox
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Out 09, 2012 7:35 pm por Warrior_Maker

» Pokémon Online - Xstrond Games BETA
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Out 02, 2012 10:29 pm por thales12

» Auto Correr Por CheckBox
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Out 02, 2012 10:03 pm por thales12

» Auto Loot para Eclipse Origins
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Out 02, 2012 10:02 pm por thales12

»  Ganhar Item em Certo Nivel
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Out 02, 2012 9:58 pm por thales12

» SK - Lógica de Programação - Aula 3
[EEB] Comando para Salvar Seu Game I_icon_minitimeQua Set 26, 2012 7:05 pm por SameKage

» Distrito Rpg Maker 2.0 no Ar !!
[EEB] Comando para Salvar Seu Game I_icon_minitimeDom Set 23, 2012 7:59 pm por SameKage

» Sistemas que preciso
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Set 21, 2012 7:28 pm por KingSora

» [ALL] Títulos nos NPC's 1.0
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Set 21, 2012 5:38 pm por lucas100vzs

» Vídeo Tutorial Mapper Caverna - MMORPG 2D
[EEB] Comando para Salvar Seu Game I_icon_minitimeQui Set 20, 2012 8:16 pm por KingSora

» Sistema de plantar e colher
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Set 18, 2012 10:00 pm por SameKage

» Perfect engine
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Set 18, 2012 9:59 pm por SameKage

» O Seu pirata chegou !
[EEB] Comando para Salvar Seu Game I_icon_minitimeDom Set 16, 2012 7:58 pm por SameKage

» Novidades para tutorpg o que acha?
[EEB] Comando para Salvar Seu Game I_icon_minitimeSáb Set 15, 2012 7:03 pm por Guilherme Azevedo

» [ZIG ZAG GAMES] Age of Dragons
[EEB] Comando para Salvar Seu Game I_icon_minitimeSáb Set 15, 2012 1:56 pm por Guilherme Azevedo

» Me ajudem Pliss
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Set 14, 2012 9:48 am por KingSora

» SK - HTML - Aula 1
[EEB] Comando para Salvar Seu Game I_icon_minitimeQui Set 13, 2012 12:35 pm por SameKage

» Forum Decaindo
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Set 11, 2012 1:52 pm por Tayllor

» Meus 3 mapas
[EEB] Comando para Salvar Seu Game I_icon_minitimeTer Set 11, 2012 11:26 am por KingSora

» [Apresentação] Okumura-Rin~
[EEB] Comando para Salvar Seu Game I_icon_minitimeSeg Set 10, 2012 5:43 pm por Warrior_Maker

» 3 primeiras sprites
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Set 07, 2012 6:19 pm por KingSora

» [EEB] Comando para Salvar Seu Game
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Set 07, 2012 5:06 pm por SynysterGates

» [Off] Olha Suas PM Tayllor
[EEB] Comando para Salvar Seu Game I_icon_minitimeSex Set 07, 2012 4:49 pm por Tayllor

» Fabrica da JCG Corp: Technology in designer [Fechada
[EEB] Comando para Salvar Seu Game I_icon_minitimeQui Set 06, 2012 6:15 pm por KingSora

Quem está conectado?
1 usuário online :: 0 registrados, 0 invisíveis e 1 visitante

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 13 em Sex Mar 04, 2022 3:18 am
Parceiros
Templo RPG Maker - Onde a magia maker permanece viva! [EEB] Comando para Salvar Seu Game 4vAJr

[EEB] Comando para Salvar Seu Game

4 participantes

Ir para baixo

[EEB] Comando para Salvar Seu Game Empty [EEB] Comando para Salvar Seu Game

Mensagem por SynysterGates Qua Ago 29, 2012 11:17 pm

Ae Galera eu De novo agora para postar um tutorial muit basico de como criar um comando para salvar seus dados guild name itens pontos e etc...Caso dee algum erro no Server!!!

Primeiro va Na Pasta Server Scrips e Depois Principal!!

La Procure por:

Código:
Sub LeftGame(index)
Dim GameName
Dim n 

Abaixo Adicione:

Código:
Call Save(index)

Agora procure por:


Código:
If LCase(Trim(TextSay)) = "/admin" Then
        If GetPlayerAccess(index) > 0 Then
            Call PlayerMsg(index, "Comandos Sociais:", 15)
            Call PlayerMsg(index, ";mensagem = Mensagem Global", 15)
            Call PlayerMsg(index, "@mensagem = Mensagem Administrativa", 15)
            Call PlayerMsg(index, "Para mais comandos digite: /admincmd", 15)
        End If
    Exit Sub
    End If

Abaixo Adicione:


Código:
If LCase(Mid(TextSay, 1, 5)) = "/save" Then
        Call Save(index)
    Exit Sub
    End If

Agora No Final do Principal Adicione:

Código:
Sub Save(index) 
Call PlayerMsg(INDEX, "Você salvou seus dados", 1)
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "NecklaceSlot" , "0")
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "RingSlot" , "0")
Call PutVar("Banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "NecklaceSlot" , "0")
Call PutVar("Banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "RingSlot" , "0")
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Guild" , GetPlayerGuild(index))
Call PutVar("Banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Guild" , GetPlayerGuild(index))

Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "EXP" , GetPlayerExp(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Class" , GetPlayerClass(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Sprite" , GetPlayerSprite(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "ArmorSlot" , GetPlayerArmorSlot(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "WeaponSlot" , GetPlayerWeaponSlot(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "HelmetSlot" , GetPlayerHelmetSlot(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "ShieldSlot" , GetPlayerShieldSlot(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Level" , GetPlayerLevel(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "HP" , GetPlayerHP(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "MP" , GetPlayerMP(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "SP" , GetPlayerSP(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "STR" , GetPlayerSTR(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "DEF" , GetPlayerDEF(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "SPEED" , GetPlayerSPEED(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "MAGI" , GetPlayerMAGI(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "POINTS" , GetPlayerPOINTS(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Map" , GetPlayerMap(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "X" , GetPlayerX(Index))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Y" , GetPlayerY(Index))
n = 1
Do While n < 25
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & n, GetPlayerInvItemNum(Index, n))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & n, GetPlayerInvItemValue(Index, n))
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & n, GetPlayerInvItemDur(Index, n))
n = n + 1
Loop
n = 1
Do While n < 21
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & n, GetPlayerSpell(Index, n))
n = n + 1
Loop
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "NecklaceSlot" , "0")
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "RingSlot" , "0")
Call PutVar("Banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "NecklaceSlot" , "0")
Call PutVar("Banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "RingSlot" , "0")
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "EXP" , GetPlayerExp(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Class" , GetPlayerClass(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Sprite" , GetPlayerSprite(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "ArmorSlot" , GetPlayerArmorSlot(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "WeaponSlot" , GetPlayerWeaponSlot(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "HelmetSlot" , GetPlayerHelmetSlot(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "ShieldSlot" , GetPlayerShieldSlot(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Level" , GetPlayerLevel(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "HP" , GetPlayerHP(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "MP" , GetPlayerMP(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "SP" , GetPlayerSP(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "STR" , GetPlayerSTR(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "DEF" , GetPlayerDEF(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "SPEED" , GetPlayerSPEED(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "MAGI" , GetPlayerMAGI(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "POINTS" , GetPlayerPOINTS(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Map" , GetPlayerMap(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "X" , GetPlayerX(Index))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Y" , GetPlayerY(Index))
n = 1
Do While n < 25
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & n, GetPlayerInvItemNum(Index, n))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & n, GetPlayerInvItemValue(Index, n))
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & n, GetPlayerInvItemDur(Index, n))
n = n + 1
Loop
n = 1
Do While n < 21
Call PutVar("banks\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & n, GetPlayerSpell(Index, n))
n = n + 1
Loop
End Sub

é isso Creditos a min por arrumar um Bug e postar e alguem por Criar Very Happy

SynysterGates
Iniciante
Iniciante

Mensagens : 20
Cash : 4
Créditos : 4
Data de inscrição : 29/08/2012
Idade : 27
Localização : Porto Alegre

Ir para o topo Ir para baixo

[EEB] Comando para Salvar Seu Game Empty Re: [EEB] Comando para Salvar Seu Game

Mensagem por Tayllor Qui Ago 30, 2012 5:48 pm

É isso ai, caso não saiba quem criou o tutorial diga aondeo o achou. +1 credito.
Tayllor
Tayllor
Admin
Admin

Mensagens : 114
Cash : 5024
Créditos : 9
Data de inscrição : 24/08/2012

https://tutorpg.forumeiro.com

Ir para o topo Ir para baixo

[EEB] Comando para Salvar Seu Game Empty Re: [EEB] Comando para Salvar Seu Game

Mensagem por Ayan13 Sáb Set 01, 2012 5:40 pm

Pronto valeu pelo tutorial. Não sei quem foi que criou o tópico mais valeu por ter postado +1 Cred.
Siga em frente ajudando mais gente.Pra aqueles iniciates que não saiba fazer.

Ayan13
Iniciante
Iniciante

Mensagens : 1
Cash : 0
Créditos : 0
Data de inscrição : 01/09/2012

Ir para o topo Ir para baixo

[EEB] Comando para Salvar Seu Game Empty Re: [EEB] Comando para Salvar Seu Game

Mensagem por Okumura-Rin~ Sex Set 07, 2012 4:57 pm

Q final do principal?
Okumura-Rin~
Okumura-Rin~
Iniciante
Iniciante

Mensagens : 2
Cash : 0
Créditos : 0
Data de inscrição : 07/09/2012

Ir para o topo Ir para baixo

[EEB] Comando para Salvar Seu Game Empty Re: [EEB] Comando para Salvar Seu Game

Mensagem por SynysterGates Sex Set 07, 2012 5:06 pm

no final depois da ultima palavra voce adiciona

SynysterGates
Iniciante
Iniciante

Mensagens : 20
Cash : 4
Créditos : 4
Data de inscrição : 29/08/2012
Idade : 27
Localização : Porto Alegre

Ir para o topo Ir para baixo

[EEB] Comando para Salvar Seu Game Empty Re: [EEB] Comando para Salvar Seu Game

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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