Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

[ALL]Save (Automático)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial [ALL]Save (Automático)

Mensagem por breno em Sab 28 Ago 2010, 21:42

Insira no fim do seu Principal.txt

Código:
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



Procure por:

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



Insira esse código na linha abaixo:

Código:
Código:
 Call Save(index)



Feito, quando vc sair do jogo ou desconectar vc pode ficar tranquilo que seus itens e status estão salvos Very Happy ( tutorial testado e aprovado )

Creditos: Slash (Adriano) bounce
avatar
breno

Mensagens : 14

Voltar ao Topo Ir em baixo

Tutorial Legal

Mensagem por xDirceu em Dom 29 Ago 2010, 10:37

Boa ja usei este por mim ta aprovado.
avatar
xDirceu

Mensagens : 19

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por Lucas Roberto em Dom 29 Ago 2010, 15:57

Otimo!!!

1+ CRED
Laughing
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por D'Black em Dom 29 Ago 2010, 16:45

+ 1 pela Contribuição cheers
avatar
D'Black

Mensagens : 30

http://www.uniononline.tk/

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por Takezo Kenzei em Dom 29 Ago 2010, 18:31

Pouco Provavel que funcione na 2.6 , prefiro a da parte do VB

mais simples e facil
avatar
Takezo Kenzei

Mensagens : 22

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por willame em Seg 13 Dez 2010, 10:51

Opa BOm Tuto

[Você precisa estar registrado e conectado para ver esta imagem.]

willame

Mensagens : 23

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por takato em Seg 13 Dez 2010, 11:15

funfa com eclipse stable?
avatar
takato

Mensagens : 11

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por Lucas Roberto em Seg 13 Dez 2010, 11:43

Não

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por takato em Seg 13 Dez 2010, 13:00

hm... T-T
avatar
takato

Mensagens : 11

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por NuKeNiN em Dom 03 Jul 2011, 21:29

funfa perfeitamente obrg hein +1 cred
avatar
NuKeNiN

Mensagens : 67

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Save (Automático)

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum