Portal
Galera está dando esse erro na parte do server quando tento adicionar o sistema de Transformação por spell
Agradeço desde já
- Spoiler:
Agradeço desde já
3 participantes
Erro Transformação por Spell
Benderfb- Novato
- Mensagens : 15
Créditos : 0
gui408- Ocasional
- Mensagens : 227
Créditos : 10
o nome do erro e subscript runtime error 9? qual nome do erro,so nessa linha ai eu n conscigo entender.
Dooolly- Colaborador
- Medalhas :
Mensagens : 1227
Créditos : 153
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida: (30/30)
Isso acontece oq no tutorial ele explica errado. vou arrumar!
é só mover essa parte ai da transformação:
e Por acima disso:
é só mover essa parte ai da transformação:
- Código:
' Trans
If TempPlayer(i).Trans > 0 Then
If Tick > TempPlayer(i).Trans Then
TempPlayer(i).Trans = 0
SetPlayerSprite i, TempPlayer(i).MySprite
SendPlayerData i
AcabarTrans i
End If
End If
e Por acima disso:
- Código:
End If
UpdateEventLogic
Next
frmServer.lblCps.Caption = "CPS: " & Format$(GameCPS, "#,###,###,###")
tmr25 = GetTickCount + 25
Benderfb- Novato
- Mensagens : 15
Créditos : 0
Obrigado deu certo, mais agora quando eu crio a spell da o erro:
Run Time error '9': subscript out of range
lblAnima.Caption = "Animação: " & Trim$(Animation(scrlAnima.Value).Name)
Run Time error '9': subscript out of range
lblAnima.Caption = "Animação: " & Trim$(Animation(scrlAnima.Value).Name)
Dooolly- Colaborador
- Medalhas :
Mensagens : 1227
Créditos : 153
Ficha do personagem
Nível: 1
Experiência: (0/0)
Vida: (30/30)
Benderfb escreveu:Obrigado deu certo, mais agora quando eu crio a spell da o erro:
Run Time error '9': subscript out of range
lblAnima.Caption = "Animação: " & Trim$(Animation(scrlAnima.Value).Name)
poderia me mostrar uma print para eu poder te ajudar, eu uso esse sistema e nunca vi esse erro.
Benderfb- Novato
- Mensagens : 15
Créditos : 0
- Spoiler:
Dooolly- Colaborador
- Medalhas :
Mensagens : 1227
Créditos : 153
Ficha do personagem
Nível: 1
Experiência: (0/0)
Vida: (30/30)
Benderfb escreveu:
- Spoiler:
Substitua tudo que está nessa sub por:
- Código:
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If scrlAnima.Value > 0 Then
lblAnima.Caption = " Animação: " & Trim$(Animation(scrlAnima.Value).Name)
Else
lblAnima.Caption = " Animação: Nenhuma"
End If
Spell(EditorIndex).Anima = scrlAnima.Value
' Error handler
Exit Sub
errorhandler:
HandleError "scrlAnima_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
assim fica melhor e acho que não irá dar mais erro.
Benderfb- Novato
- Mensagens : 15
Créditos : 0
Obrigado deu certo, Por fechar o Tópico 