Estou a desenvolver um projeto em vb.net que se trata da minha tentativa de criar o pacman com movimentação de pictureboxes.
Estou próximo de terminar, mas tenho uma grande dificuldade que é definir o movimento dos fantasmas.
Pelo que percebo, ele divide-se em três fases: 1. Movimento aleatório simples, em que se deteta colisões com paredes e define uma nova direção aleatória para se mover; 2. Perseguição ao pacman quando está próximo; 3. Fuga do pacman (quando o pacman consome um "energizer")
Ainda só tenho uma tentativa de código para o movimento 1., com base no que encontrei em pesquisas:
Dim movement As ghostmovement
Dim currentLocation As Point
Dim ghostCurrentLocation As Point
Dim random As New Random
Enum ghostmovement
up = 1
down = 2
left = 3
right = 4
End Enum
Private Sub ghosttimer_Tick(sender As Object, e As EventArgs) Handles ghosttimer.Tick
Select Case movement
Case ghostmovement.up
ghost.Top = ghost.Top - 2
Case ghostmovement.down
ghost.Top = ghost.Top + 2
Case ghostmovement.left
ghost.Left = ghost.Left - 2
Case ghostmovement.right
ghost.Left = ghost.Left + 2
End Select
DetectCollection(ghost)
End Sub
Public Function DetectCollection(ByVal ghost As PictureBox) As Boolean
For Each wall As PictureBox In WallList
If ghost.Bounds.IntersectsWith(wall.Bounds) Then
movement = ghostmovement.right
End If
Next
End Function
Mas até esta não funciona, e passo a citar o erro: "Function 'DetectCollision' doesn't return a value on all code paths. Are you missing a 'Return' Statement?"
Se alguém me conseguisse ajudar quanto a este erro e/ou dar alguma sugestão ou explicação dos outros dois tipos de movimento eu agradecia imenso.