Case Without Select case oque fazer?

Convidado

Linha: Case "tssj2"

Convidado

VocÊ nao declarou a case

Convidado

é da trans por foto
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
olha o ultimo cod do sv side

Convidado

Sky não abre esta spoiler

Spoiler:

Bom meu caro voltando ao assunto esta dando erro porque você deve ter aumentado as Transformações mais esqueçeu de aumentar o End If

Administrador Mensagens : 711

Calma GameOver não vamos perder a cultura...

como GameOver disse você teve ter aumentado as transf e esqueçido do End If

Convidado

GameOver se e um Filho da Put, Disgraçado, aqui o Vai toma no seu ku, ja to no estresse

Convidado

kkk que cara feio alem de burro não saber programar ainda tem um portugues errado tenso....

[Lucas Roberto não bani este cara deixa ele ai fazendo este grande favor deixa eu tirar um onda com a cara dele]

ai Sky me ensina a declara uma case

Olha ve se ta certo

Código:: Dim Case as Long ?

saiuhuahsuahsuahsuashua

Convidado

Código:: Case "tnormal"
If GetPlayerClass(Index) = 1 Then
If GetPlayerSprite(Index) = 0 Then
Exit Sub
ElseIf GetPlayerSprite(Index) = 35 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) * 1)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 1)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) * 1)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) * 1)
ElseIf GetPlayerSprite(Index) = 36 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) * 1)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 1)
ElseIf GetPlayerSprite(Index) = 161 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) * 1)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 1)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) * 1)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) * 1)
ElseIf GetPlayerSprite(Index) = 160 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) * 1)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 1)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) * 1)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) * 1)
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) * 1)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 1)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) * 1)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) * 1)
ElseIf GetPlayerSprite(Index) = 21 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) * 1)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 1)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) * 1)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) * 1)
ElseIf GetPlayerSprite(Index) = 31 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) * 1)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 1)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) * 1)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) * 1)
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) >= 1 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 10)
Call SetPlayerstr(Index, GetPlayerstr(Index) * 2)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2)
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
Else
If GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 1 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 11)
Call SetPlayerstr(Index, GetPlayerstr(Index) * 2)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2)
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) >= 1 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 20)
Call SetPlayerstr(Index, GetPlayerstr(Index) * 3)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3)
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) >= 1 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 21)
Call SetPlayerstr(Index, GetPlayerstr(Index) * 3)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3)
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 GetPlayerAccess(MyIndex) = 1 Then
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 1 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 30)
Call SetPlayerstr(Index, GetPlayerstr(Index) * 4)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4)
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
If GetPlayerAccess(MyIndex) = 1 Then
If GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 1 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 31)
Call SetPlayerstr(Index, GetPlayerstr(Index) * 4)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você precisa ser VIP Light!", 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 GetPlayerAccess(MyIndex) = 2 Then
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 1 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 40)
Call SetPlayerstr(Index, GetPlayerstr(Index) * 5)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você precisa ser VIP Full!", BrightBlue)
End If
End If
Else
If GetPlayerAccess(MyIndex) = 2 Then
If GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 1 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 31)
Call SetPlayerstr(Index, GetPlayerstr(Index) * 5)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Voce precisa ser VIP Full!", 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

Vejao ae

Convidado

ai amigo desculpe pelo transtorno aqui em seu post mais que aquele RicardoxD torro minha paciencias bom...

simples onde esta

Código:: Exit Sub
End If

coloque mais um End If bom em todos vai aumentado

a e outra não aconselho a usar duplicação não bug

a você esta duplicando muito *4 tipo se voce tinha 1milhão vai chegar a 4 Oo
muita coisa...

Convidado

game over agr da end if without block end if

Administrador Mensagens : 711

vai colocando end if em todas case

Convidado

Gente vamos ter calma e tranquilidade,rlxa e curte a vida [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem].
Aproposito o icone estava errado Wink

.
Arrumado.

kkkkkkk Pode ser GameOver testa ai [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Spoiler:

Att.Teteu

Convidado

alguem pode posta o cod arrumado?

Convidado

'-' cara ja demos o erro arrumado
'-'

me passa quantas trans quer e quantas classes são '-'

Convidado

quero 4 e 5, 4 pra classe que só tem 4 trans no anime e 5 para as que tem 5 no anime.
sao 11 classes:
Goku classe1: 5 trans
Vegeta classe2: 5 trans
kuririn classe3: 4 trans
Freeza classe4: 5 trans
Cell classe5: 4 trans
Raditz Classe6: 5 trans
Majin Boo Classe7: 5 Trans
Gogeta classe8: 4 trans
Brolly classe 9: 5 trans
Gotenks classe10: 5 trans
Trunks classe11: 4 trans
todas com o 1 trans normal.
obs:o goku eu tive que pular o ssj1 pra ssj3 pra dar 5 certo

Administrador Mensagens : 711

Nossa e muita coisa.... duvido que o GameOver vai pegar para fazer do geito que ele e preguisozo

Convidado

ja resolvi pode da close

Administrador Mensagens : 711

Topico Trancado e Resolvido

» O que o PHP pode fazer?
» Não da pra fazer o download
» como fazer arquivos necessarios
» Nicholas, Encinando fazer Café Cremoso! kkkkkkk
» Como fazer seu habbo privado com wired, futebol, pets e tudo 100%