Arena RPG Maker
Olá, visitante!
Seja bem-vindo ao fórum Arena RPG Maker, caso queira aprender sobre criação de jogos, está no fórum certo. Esperamos que possa aprender tanto quanto possa nos ensinar aqui.

Atenciosamente,
Equipe Arena RPG Maker.
Arena RPG Maker

Estamos de volta o/ ... Ou não.Eu amo a -Dark
Doações para o fórum abertas, clique aqui e saiba mais.
Últimos assuntos
» Tileset Converter to MV
Sex 12 Maio 2017, 13:07 por Douggi

» [Dúvida] Como tirar a porcentagem de esquiva
Ter 09 Maio 2017, 22:15 por Neil Flame Runner

» Pack Resources, Sprites e etc
Qua 23 Dez 2015, 09:30 por raydengv

» Download RPG Maker 2003 + RTP em português
Ter 22 Dez 2015, 08:14 por ::KimMax::

» Fantasy Art Online
Dom 18 Out 2015, 16:42 por daviih123

» Você vai ter medo do Nerve gear?
Sab 25 Jul 2015, 16:02 por Kirito-kun

» O Barato é louco
Sab 27 Jun 2015, 15:26 por Halt

» Download RPG Maker 2000 + RTP em português
Qui 21 Maio 2015, 19:28 por Wismael

» Divulgando meu grupo e página do Facebook
Ter 19 Maio 2015, 13:06 por Halt

» Craftage Engine (Eclipse Origins totalmente modificado e sem bugs)
Seg 27 Abr 2015, 18:24 por pigot98


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Script de Reset Automatico em Sab 17 Nov 2012, 07:36

~Razor

avatar
Membro de Honra
Membro de Honra
Abra o Principal Ou Main e procure por:

Código:
Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

E adicione abaixo o seguinte codigo:

Código:
If GetPlayerLevel(index) => 1000 Then ' level requerido para resetar
Call PlayerMsg(index, "Você Foi resetado com Sucesso!", 4) ' menssagem ao resetar
Call SetPlayerExp(index, 1) ' a exp volta a 1 quando reseta
Call SetPlayerLevel(index, 1) ' o char volta a level 1 quando reseta
Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 1000) ' a quantidade de pontos q ganha ao resetar
Call SetPlayerResets(index, GetPlayerResets(index) + 1) ' a quantidade de resets q ganha ao resetar.
Call SavePlayer(index)
Call SendPOINTS(Index)
Call SendStats(Index)
End If
End Sub

OBS: caso queira q todos saibam quem resetou basta add o codigo em baixo de :

Código:
Call PlayerMsg(index, "Você Foi resetado com Sucesso!", 4)

add:

Código:
Call globalmsg("" & getplayername(index) & " Resetou !",4)


Créditos:Desconhecido
Créditos: a mim por postar.


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

Principal Engine :Game Maker
Especialidade : Roteirista
Jogos: The old mine (Game Maker)
Site(Fórum): Lost Makers
Ver perfil do usuário http://lostmakers.web-rpg.com/

2 Re: Script de Reset Automatico em Dom 20 Abr 2014, 18:31

Juan Kael

avatar
Membro - Novato
Membro - Novato
tem como add o maximo de resets?

Ver perfil do usuário

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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