[ALL]Transformação [ Pedido Resolvido ]

por Rio Absolut Qua 03 Nov 2010, 20:39

Bom Lost me pediu mais saiu muito cedo e resolvi postar aqui .

Começando Vá na FrmMirage e Cria 1 Label com os requerimento abaixo :

Código:: Name : trans1 Capition : Super sayajin Visible : False

Dentro do Botão Adicione o Código :

Código:: Call SendData("Trans" & END_CHAR)

Procure Por :

Código:: Sub BltPlayerName(ByVal Index As Long)

Coloque dentro dela esse Código :

Código:: If Player(MyIndex).Level = YY Then ' Level Requerido ' frmMirage.trans1.visible = True Else frmMirage.trans1.visible = False End If If Player(MyIndex).Map = XX Then ' X = Numero do Mapa ' Call SendData("Trans" & END_CHAR) end if end if

Agora No Servidor Abra o ModServerTCP e procure por :

Código:: Case "refresh"

Depois de Exit Sub Adicione :

Código:: Case "Trans" If GetPlayerClass(index) = x Then ' Classe Requerida ' 'If GetPlayerSprite(index) = x Then 'Sprite requerida ' 'If GetPlayerAccess(index) => x Then ' Acesso requerido ' Call SetPlayerSprite(index, x) ' Sprite que trocara ' Call SetPlayerSTR(Index, GetPlayerSTR(Index) * x) 'força que receberá ' Call SetPlayerDEF(Index, GetPlayerDEF(Index) * x)' defesa " " ' Call SetPlayerMAGI(Index, GetPlayerDEF(Index) * x)'Magia " " ' Call SetPlayerSPEED(Index, GetPlayerDEF(Index) * x)'Velocidade Call PlaySound(Index, "Som Reproduzido ") Call PlayerMsg(index, "MSG pro Player só!", 4) Call GlobalMsg(GetPlayerName(index) & " MSG para todos", 6) Exit Sub End If End If End If End If End If

Creditos : Adam Blade Pelo Post Original
Dragonick Por me ajudar
Rio Absolut Por Muda o Codigo e Postar .

por V-Force Qua 03 Nov 2010, 21:26

+1 de Cred pela a contribuição

Obs: Não fique ofendido Rio Absolut mas procure usar as tag [ALL][EEB][ED], pois hoje custou um trabalho enorme para os outros Moderadores para renomear, organizar,apagar tópicos com assuntos repetidos entre outros

Titulo do Tópico arrumado

por Rio Absolut Qua 03 Nov 2010, 21:36

Ok , Desculpe não sabia que no EEB tbm tinha as Regras . E Obrigado pelo Creditos

por Lucas Roberto Qui 04 Nov 2010, 12:53

Obs: nao foi exatamente um pedido e que estou fazendo um sistema de graduaçao avançada e pedi para ele me dar uns exemplo que como podia fazer o sistema ae ele fez um exemplo e disponibilizou para todos aki da comunidade!!!

Vlw Geração