não consigo adicionar pontos!

por mgwallace Sáb 26 maio 2012, 10:50

tipo eu clico no + pra aumentar em força,velocidade..etc... e nao acontece nada como resolve isso?

por Pablo Sáb 26 maio 2012, 11:15

va em servidor/script/principal.txt

e procure por

Código:: Sub UsingStatPoints(index, PointType, PointQuant)

mude a sub toda para

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

bom se ainda haver bugs tente verificar pelo visual basic as lblfor, def, agi, magi.

Boa sorte

Att: Pablo, Equipe Dragon Ball Kai World

por mgwallace Sáb 26 maio 2012, 11:43

Continua a mesma coisa Sad

por Conteúdo patrocinado

não consigo adicionar pontos!

não consigo adicionar pontos!

Re: não consigo adicionar pontos!

??

Re: não consigo adicionar pontos!