Transformação por F1, F2, F3 ou outro F q tu queira
5 participantes
Página 1 de 1
Transformação por F1, F2, F3 ou outro F q tu queira
Começando ..
Cliente~Side
Procure por:
Abaixo Adicione:
Server~Side:
Procure por:
Cliente~Side
Procure por:
- Código:
If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 0 Then
frmadmin.Visible = False
frmadmin.Visible = True
End If
End If
Abaixo Adicione:
- Código:
If KeyCode = vbKeyF1 Then
Call SendData("tnormal" & END_CHAR)
End If
If KeyCode = vbKeyF2 Then
Call SendData("tssj" & END_CHAR)
End If
If KeyCode = vbKeyF3 Then
Call SendData("tssj2" & END_CHAR)
End If
If KeyCode = vbKeyF4 Then
Call SendData("tssj3" & END_CHAR)
End If
If KeyCode = vbKeyF5 Then
Call SendData("tssj4" & END_CHAR)
End If
Server~Side:
Procure por:
- Código:
Case "dtrade"
N = Player(Index).TradePlayer
' Check if anyone trade with player
If N < 1 Then
Call PlayerMsg(Index, "Ninguém pediu para negociar com você.", Pink)
Exit Sub
End If
Call PlayerMsg(Index, "O pedido de negociação foi rejeitado.", Pink)
Call PlayerMsg(N, GetPlayerName(Index) & " rejeitou seu pedido de negociação.", Pink)
Player(Index).TradePlayer = 0
Player(Index).InTrade = 0
Player(N).TradePlayer = 0
Player(N).InTrade = 0
Exit Sub
- Código:
Case "tnormal"
If GetPlayerClass(Index) = 1 Then
If GetPlayerSprite(Index) = 0 Then
Exit Sub
ElseIf GetPlayerSprite(Index) = 10 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 25)
ElseIf GetPlayerSprite(Index) = 20 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 50)
ElseIf GetPlayerSprite(Index) = 30 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 300)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 200)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 100)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 100)
ElseIf GetPlayerSprite(Index) = 40 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 30)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 200)
End If
Call SetPlayerSprite(Index, 0)
Call PlayerMsg(Index, "Você voltou ao normal!", BrightBlue)
Call BattleMsg(Index, "Normal!", Yellow, 0)
Call SendPlayerData(Index)
ElseIf GetPlayerClass(Index) = 2 Then
If GetPlayerSprite(Index) = 11 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 25)
ElseIf GetPlayerSprite(Index) = 21 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 50)
ElseIf GetPlayerSprite(Index) = 31 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 200)
End If
Call SetPlayerSprite(Index, 1)
Call PlayerMsg(Index, "Você voltou ao normal!", BrightBlue)
Call BattleMsg(Index, "Normal!", Yellow, 0)
Call SendPlayerData(Index)
Else 'Aqui é a classe 3, que no caso do tuto, não tem transformação
Exit Sub
End If
Call SavePlayer(Index)
Exit Sub
Case "tssj"
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 50 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 10)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 25)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 25)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin!", Yellow, 0)
Call SendPlayerData(Index)
End If
Else
Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue)
End If
ElseIf GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 50 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 11)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 25)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 25)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else 'Aqui é a classe 3, que no caso do tuto, não tem transformação
Exit Sub
End If
Call SavePlayer(Index)
Exit Sub
Case "tssj2"
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 100 Then
If GetPlayerSprite(Index) = 10 Then
Call SetPlayerSprite(Index, 20)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 50)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 50)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
End If
Else
Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue)
End If
ElseIf GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 100 Then
If GetPlayerSprite(Index) = 11 Then
Call SetPlayerSprite(Index, 21)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 105)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 105)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 105)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else 'Aqui é a classe 3, que no caso do tuto, não tem transformação
Exit Sub
End If
Call SavePlayer(Index)
Exit Sub
Case "tssj3"
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 200 Then
If GetPlayerSprite(Index) = 20 Then
Call SetPlayerSprite(Index, 30)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 300)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 200)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 100)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 100)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 100)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 3!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else 'Aqui é a classe 3, que no caso do tuto, não tem transformação (também não tem para vegeta D:)
Exit Sub
End If
Call SavePlayer(Index)
Exit Sub
Case "tssj4"
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 300 Then
If GetPlayerSprite(Index) = 30 Then
Call SetPlayerSprite(Index, 40)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 200)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 200)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
ElseIf GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 300 Then
If GetPlayerSprite(Index) = 21 Then
Call SetPlayerSprite(Index, 31)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 200)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 200)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else 'Aqui é a classe 3, que no caso do tuto, não tem transformação
Exit Sub
End If
Call SavePlayer(Index)
Exit Sub
Re: Transformação por F1, F2, F3 ou outro F q tu queira
lol muito bom!!
UP!
UP!
spectrus- Administrador
- Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 30
Localização : V.da conquista bahia
Re: Transformação por F1, F2, F3 ou outro F q tu queira
eu fiz um desse so com animação ;D
+1 Cred
+1 Cred
Uchiha- Estagiário
- Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba
Re: Transformação por F1, F2, F3 ou outro F q tu queira
Creditos:Teteu & MMORPGBR
hardsfree- Modelador
- Mensagens : 9
Estrelas Makers : 9
Creditos : 0
Data de inscrição : 17/07/2011
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