Sistema De Pdl
2 participantes
Página 1 de 1
Sistema De Pdl
Boa tarde pessoal
vim trazer um sistema de pdl igual ao do dbz forces ja que vi mt gente tentando mais com alguns erros então resolvi postar ^^
Primeiro abra o client~side
na frmmirage > na picstat modifique as seguintes opções abaixo
Agora procure por :
Mude Para
agora va em seu servidor > Script > Principal (Main)
e procure por :
Mude para :
vim trazer um sistema de pdl igual ao do dbz forces ja que vi mt gente tentando mais com alguns erros então resolvi postar ^^
Primeiro abra o client~side
na frmmirage > na picstat modifique as seguintes opções abaixo
- Código:
lblSTR:
Visible=True
lblDEF:
Visible=False
lblSPEED
Visible=False
lblMagi
Visible=False
addFOR
Visible=True
addDEF
Visible=False
addSPEED
Visible=False
addMAGI
Visible=False
Agora procure por :
- Código:
If SubStr > 0 Then
frmMirage.lblSTR.Caption = "Força - " & Val(Parse(1)) - SubStr & " (+" & SubStr & ")"
Else
frmMirage.lblSTR.Caption = "Força - " & Val(Parse(1))
End If
Mude Para
- Código:
If SubStr > 0 Then
frmMirage.lblSTR.Caption = "Poder De Luta - " & Val(Parse(1)) - SubStr & " (+" & SubStr & ")"
Else
frmMirage.lblSTR.Caption = "Poder De Luta - " & Val(Parse(1))
End If
agora va em seu servidor > Script > Principal (Main)
e procure por :
- 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 para :
- Código:
Sub UsingStatPoints(index, PointType, PointQuant)
Select Case PointType
Case 0
'Gives you a set max
If GetPlayerSTR(index) + PointQuant > 100000000 Then
If GetPlayerDEF(index) + PointQuant > 100000000 Then
If GetPlayerSPEED(index) + PointQuant > 100000000 Then
If GetPlayerMAGI(index) + PointQuant > 100000000 Then
Call BattleMsg(index, "Você chegou ao máximo de Poder de luta!", 12, 0)
Exit Sub
End If
End If
End If
End If
Call SetPlayerSTR(index, GetPlayerSTR(index) + PointQuant)
Call SetPlayerDEF(index, GetPlayerDEF(index) + PointQuant)
Call SetPlayerSPEED(index, GetPlayerSPEED(index) + PointQuant)
Call SetPlayerMAGI(index, GetPlayerMAGI(index) + PointQuant)
Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Poder De Luta!", 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
Uchiha- Estagiário
- Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba
Re: Sistema De Pdl
Créditos: Pablo
RenanR- Modelador
- Mensagens : 26
Estrelas Makers : 61
Creditos : 3
Data de inscrição : 19/07/2011
Tópicos semelhantes
» Sistema de Quest
» Sistema de Amigos
» Ajuda msg no sistema de vip!
» Sistema De Mario RM XP
» Sistema de supermercado
» Sistema de Amigos
» Ajuda msg no sistema de vip!
» Sistema De Mario RM XP
» Sistema de supermercado
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Sex Dez 05, 2014 10:00 am por Fabio-3dgames
» Lost In Dreams chapter 01
Seg Nov 24, 2014 7:22 pm por slipknot
» A Makers Brasil ressuscitara em breve!!
Sáb Nov 01, 2014 2:26 pm por Francisco Souza
» Elysium Diamond 3.3.2
Sáb Nov 01, 2014 2:17 pm por Francisco Souza
» personagens e objetos 3d game builder
Seg Jul 28, 2014 2:33 pm por Reginaldo Aparecido Zanus
» fala galera \o obs auhsaush digita galera asygasyga
Dom Jul 06, 2014 1:40 am por anastiel
» tutorial headshot fps creator
Seg Jun 09, 2014 6:08 pm por EspinhosoGamer
» SnakeMod fps creator
Seg Jun 09, 2014 5:55 pm por EspinhosoGamer
» serial fps creator
Seg maio 26, 2014 7:35 pm por slipknot