Como Abrir os Arquivos do Servidor

por lraniel Seg 21 Jun 2010, 16:41

Tipo os arquivos frm nao ta abrindo preciza de algum programa?Eu estou pertubando mt o forum perguntando direto mais iniciante pergunta msm =/

por lraniel Seg 21 Jun 2010, 16:44

A Galera Tem que ter o visual basic 6 lembrei,Closed Aqui,Desculpa galera pelo Double post T_T

por Infinit Online Seg 21 Jun 2010, 16:46

tem que usar o Visual Basic 6 ( programa ), para abrir a source Very Happy

tem um topico aqui no forum sobre isso

por lraniel Seg 21 Jun 2010, 17:27

Closed Aqui por favor

por ari486 Seg 21 Jun 2010, 17:37

Pow tb nao tenho o leitor de .frm e quero muito
PARA O GRAND CHASE...

por **Lendário** Seg 21 Jun 2010, 18:26

Esse "leitor de .frm" que vc fala é o Visual basic você pode encontrá-lo para download aki.

http://www.mmorpgbr.com/visual-basic-f61/downloadvisual-basic-t1360.htm

por lraniel Seg 21 Jun 2010, 18:40

=) ae,alguem manda o link ou ja o tutorial quando der 1000 de atribuitos,tipo quando ta em 1000 alcançou o maximo queria saber como coloca mais,eu sei que tem pq ja vi mais nao to axando agr.=X

+ Uma coisinha...Como Coloco essas coisas /str /def /agi etc.

e + uma coisa como invito alguem para guilda XD

"Santa Nubisse"

por RafaelS.~ Seg 21 Jun 2010, 18:55

Se você usa a EEB 2.6, ela ja vem com /str e etc.. ( se não me engano )

Pra invitar alguem para Guilda aperte F5,

Enquanto almentar os atributos, de uma olhado em Tutoriais que você vai achar.

por lraniel Seg 21 Jun 2010, 19:04

Achei,Mais o Tuto que tem não consigui olha o comando do kra -.-'

Código:: 'ADD PONTOS DEPOIS DE FULL! 'COMANDO DE ADICIONAR EM FORÇA! If LCase(Trim(TextSay)) = "/addfor 1" Then 'coloque o comando q vc quer... If GetPlayerstr(index) < 50000 Then 'aqui coloque o maximo de força do seu jogo... Call BattleMsg(index, "Você Precisa Ser Full no PDL para usar Esse comando!", 12, 0) 'mensagen q fala se ele n ter os pontos full... Else If GetPlayerPOINTS(index) > 50 Then 'pontos q vai usar ... Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 50) 'pega os 50 e taka em força = 1... Call SetPlayerstr(index, GetPlayerstr(index) + 1) Call SendStats(Index) Call MsgBox(index, "Você adicionou 1 ponto em Força!", 15, 0) 'mensagen de quando add... Exit Sub End If End If End if

por RafaelS.~ Seg 21 Jun 2010, 20:20

Como assim não conseguiu achar o comando do cara?
o comando ai é "/addfor 1"

por lraniel Seg 21 Jun 2010, 20:25

nao é o comando é o "code" muito desorganizado e nao ta dando nenhum nem outro,Ou seja,nao ta funcionando nao aumenta mais de 1000 e nem add o comando -.-' se alguem souber puder organizar para mim eu agredeço pq cansei

por RafaelS.~ Seg 21 Jun 2010, 20:35

Bom cara, vai na pasta Binarios\Servidor\Scripts ai no principal.txt

Procura isso.

Código:: Sub UsingStatPoints(index, PointType, PointQuant) Select Case PointType Case 0 'Gives you a set max If GetPlayerSTR(index) + PointQuant > 1000 Then Call BattleMsg(index, "Você chegou ao máximo de Força!", 12, 0) Exit Sub End If Call SetPlayerSTR(index, GetPlayerSTR(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Força!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "ForSubiu" & END_CHAR) Case 1 'Gives you a set max If GetPlayerDEF(index) + PointQuant > 1000 Then Call BattleMsg(index, "Você chegou ao máximo de Defesa!", 12, 0) Exit Sub End If Call SetPlayerDEF(index, GetPlayerDEF(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Defesa!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "DefSubiu" & END_CHAR) Case 2 'Gives you a set max If GetPlayerMAGI(index) + PointQuant > 1000 Then Call BattleMsg(index, "Você chegou ao máximo de Inteligência!", 12, 0) Exit Sub End If Call SetPlayerMAGI(index, GetPlayerMAGI(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Inteligência!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "IntSubiu" & END_CHAR) Case 3 'Gives you a set max If GetPlayerSPEED(index) + PointQuant > 1000 Then Call BattleMsg(index, "Você chegou ao máximo de sua Agilidade!", 12, 0) Exit Sub End If Call SetPlayerSPEED(index, GetPlayerSPEED(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Agilidade!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "AgiSubiu" & END_CHAR) End Select Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - PointQuant) End Sub

Mude tudo para.

Código:: Sub UsingStatPoints(index, PointType, PointQuant) Select Case PointType Case 0 'Gives you a set max If GetPlayerSTR(index) + PointQuant > 50000 Then Call BattleMsg(index, "Você chegou ao máximo de Força!", 12, 0) Exit Sub End If Call SetPlayerSTR(index, GetPlayerSTR(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Força!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "ForSubiu" & END_CHAR) Case 1 'Gives you a set max If GetPlayerDEF(index) + PointQuant > 50000 Then Call BattleMsg(index, "Você chegou ao máximo de Defesa!", 12, 0) Exit Sub End If Call SetPlayerDEF(index, GetPlayerDEF(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Defesa!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "DefSubiu" & END_CHAR) Case 2 'Gives you a set max If GetPlayerMAGI(index) + PointQuant > 50000 Then Call BattleMsg(index, "Você chegou ao máximo de Inteligência!", 12, 0) Exit Sub End If Call SetPlayerMAGI(index, GetPlayerMAGI(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Inteligência!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "IntSubiu" & END_CHAR) Case 3 'Gives you a set max If GetPlayerSPEED(index) + PointQuant > 50000 Then Call BattleMsg(index, "Você chegou ao máximo de sua Agilidade!", 12, 0) Exit Sub End If Call SetPlayerSPEED(index, GetPlayerSPEED(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Agilidade!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "AgiSubiu" & END_CHAR) End Select Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - PointQuant) End Sub

Pronto, vê se pega, não testei mais deve pegar, SE PEGAR O MAXIMO É 50000, Se pegar avisa.

por lraniel Ter 22 Jun 2010, 10:54

Funfou Você é fera Man XD

por RafaelS.~ Ter 22 Jun 2010, 10:58

Nada, da mais um cred ae xD

por lraniel Ter 22 Jun 2010, 10:59

Concerteza tinha esqueçido XD

por RafaelS.~ Ter 22 Jun 2010, 11:14

hehe, vlw.

por lraniel Ter 22 Jun 2010, 12:37

Ou para nao fungir do Topico...Tipo eu abro meu VB mais quando coloco em star dá um erro falando que nao msdn?que isso =P

por RafaelS.~ Ter 22 Jun 2010, 12:47

Não entendi nada... posta um print aqui do erro. Razz

por **Lendário** Ter 22 Jun 2010, 12:47

Tópico trancado

Dúvida/Pedido/Problema Resolvido com sucesso.
Se houver algo mais por favor pedimos que efetue a criação de um novo tópico na área de Suporte para resolução.

Topico Trancado e Movido

Atenciosamente Equipe MMORPGBR.

por Conteúdo patrocinado

Como Abrir os Arquivos do Servidor

Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor

Re: Como Abrir os Arquivos do Servidor