Para voces que estao comecando agora, depois que voce baixou o Elysium Brasil Engine,vamos comecar Os primeiros passos.Recomendo que deixe as pastas no seu Desktop, assim facilitara o processo.Abra a pasta do seu Client, e procure por Diamond.exeApos abrir Diamond.exe,voce vera uma tela assim:Clique em Ip Config e Digite seu ip,para saber o seu ip acesse: MeuIpmeu ip esta como 127.0.0.1 por que isso possibilita editar o servidor sem internet. Feito isso confirme e Feche.Agora vamos para o servidorprocure por Data.ini na pasta do servidor[CONFIG]GameName= Elysium Diamond (nome do jogo)WebSite=http://www.animesrelease.blogspot.com (site do jogo)Port=4000 (porta padrao,Recomendo que mude)HPRegen=1 (isso daqui e para recuperar hp)MPRegen=1 (isso daqui e para recuperar mp)SPRegen=1 (isso daqui e para recuperar sp)Scrolling=0 (Nao sei ao certo)SCRIPTING=1 (permite scripts no seu jogo,veremos isso mais tarde)[MAX]MAX_PLAYERS=50 (maximo de players)MAX_ITEMS=50 (maximo de itens)MAX_NPCS=50 (maximo de npcs[Non-player Character (Personagem nao jogavel/manipulavel])MAX_SHOPS=50 (maximo de shops[onde poderemos vender nossos itens])MAX_SPELLS=50 (maximo de magias)MAX_MAPS=50 (maximo de mapas[acho legal muitos mapas, assim o jogo fica sempre dificil])MAX_MAP_ITEMS=50 (maximo de itens por mapa)MAX_GUILDS=50 (maximo de guilds)MAX_GUILD_MEMBERS=50 (maximo de membros numa guild)MAX_EMOTICONS=50 (maximo de emoticons)MAX_LEVEL=50 (level maximo)MAX_PARTIES=50 (quantas partys o servidor suporta)MAX_PARTY_MEMBERS=50 (quantos membros por party pode ter)MAX_SPEECH=50 (maximo de falas para npcs)Agora iremos entender os desenhos do editor de mapas Client~SideVa na frmMirage, picStat, deixa invisivel a lblPoints e as labels que contem o sinal de +.Agora, procure por:Codigo: [Selecionar] ' xxx Distribuicao de Pontos por Comando xxxE apague todo o codigo ate:Codigo: [Selecionar] ' xxx Fim da Distribuicao de Pontos por Comando xxxServer~SideMude a sub toda do Private Sub Command34_Click() por:Codigo: [Selecionar]Private Sub Command34_Click()Dim Index As LongDim i As Long Call GlobalMsg("O servidor deu um level gratis para todos!", BrightGreen) For Index = 1 To MAX_PLAYERS If IsPlaying(Index) = True Then If GetPlayerLevel(Index) >= MAX_LEVEL Then Call SetPlayerExp(Index, Experience(MAX_LEVEL)) Call SendStats(Index) Else Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) i = Int(GetPlayerSPEED(Index) / 10) If i < 1 Then i = 1 If i > 3 Then i = 3 'Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + i) If GetPlayerLevel(Index) <= 20 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1) ElseIf GetPlayerLevel(Index) > 20 And GetPlayerLevel(Index) <= 60 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 2) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 2) ElseIf GetPlayerLevel(Index) > 60 And GetPlayerLevel(Index) <= 100 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 10) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 10) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 6) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 6) End If Call BattleMsg(Index, "Seus pontos foram adicionados automaticamente.", 9, 0) If GetPlayerLevel(Index) >= MAX_LEVEL Then Call SetPlayerExp(Index, Experience(MAX_LEVEL)) Call SendStats(Index) End If Call SendStats(Index) End If End If NextEnd SubDepois mude a sub toda de Sub CheckPlayerLevelUp(ByVal Index As Long) por:Codigo: [Selecionar]Sub CheckPlayerLevelUp(ByVal Index As Long) Dim i As Long Dim d As Long Dim C As Long C = 0 If GetPlayerExp(Index) >= GetPlayerNextLevel(Index) Then If GetPlayerLevel(Index) < MAX_LEVEL Then If SCRIPTING = 1 Then MyScript.ExecuteStatement "Scripts\Principal.txt", "PlayerLevelUp " & Index Else Do Until GetPlayerExp(Index) < GetPlayerNextLevel(Index) DoEvents If GetPlayerLevel(Index) < MAX_LEVEL Then If GetPlayerExp(Index) >= GetPlayerNextLevel(Index) Then d