Hello,
I'm still working on a pacman game. I need to get the ai and point system working. However, I first need to get collision detection working. I have got somewhat of a collision detection working. The catch is that it seems that everytime the pacman (picturebox) collides with something (also a picturebox) 50% of the time, everything would work, the other 50%, for some reason my controls would get inverted. ie. up key will move pacman down and right key will move pacman left.
Any help is appreciated
This is the entire code
That is the code jsut for the movement/collision detection
Another thing I need help with is the points and the ai. Regarding the dots. I really dont want to draw 100+ pictureboxes then coding each individual one. I still don't entirely understand how lists/arrays work so any explanation would do.
As for coding the AI, I am basically in the dark for coding ai in visual basic.
I am a begginer at VB so I apologize if I have tackled a task that may have been too difficult.
Again any help is appreciated.
Attached is my project.Attachment 95923
Thanks!
I'm still working on a pacman game. I need to get the ai and point system working. However, I first need to get collision detection working. I have got somewhat of a collision detection working. The catch is that it seems that everytime the pacman (picturebox) collides with something (also a picturebox) 50% of the time, everything would work, the other 50%, for some reason my controls would get inverted. ie. up key will move pacman down and right key will move pacman left.
Any help is appreciated
This is the entire code
Code:
Public Class Form1
Dim DirectionPac = New Label
Dim timer As Stopwatch
Dim backBuffer As Image
Dim graphics As Graphics
Dim clientWidth As Integer
Dim clientHeight As Integer
Dim interval As Long
Dim startTick As Long
Dim Collision As Boolean
Dim Ghost As Rectangle
Dim direction As Point
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
Me.DoubleBuffered = True
Me.MaximizeBox = False
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
timer = New Stopwatch()
clientWidth = 618
clientHeight = 529
interval = 16
Me.ClientSize = New Size(clientWidth, clientHeight)
backBuffer = New Bitmap(clientWidth, clientHeight)
graphics = graphics.FromImage(backBuffer)
direction = New Point(0, 0)
Ghost = New Rectangle(305, 245, 20, 20)
End Sub
Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
GameLoop()
End Sub
Private Sub GameLoop()
timer.Start()
Do While (Me.Created)
startTick = timer.ElapsedMilliseconds
RenderScene()
'this declares the sub that draws the scene
Application.DoEvents()
Do While timer.ElapsedMilliseconds - startTick < interval
Loop
Loop
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Right Then
DirectionPac.Text = "Right"
End If
If e.KeyCode = Keys.Left Then
DirectionPac.Text = "Left"
End If
If e.KeyCode = Keys.Down Then
DirectionPac.Text = "Down"
End If
If e.KeyCode = Keys.Up Then
DirectionPac.Text = "Up"
End If
End Sub
Private Sub RenderScene()
backBuffer = New Bitmap(clientWidth, clientHeight)
graphics = graphics.FromImage(backBuffer)
PictureBox1.Image = Nothing
PictureBox1.Image = backBuffer
graphics.FillRectangle(Brushes.Blue(), Ghost)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If PACMAN.Bounds.IntersectsWith(PictureBox2.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox3.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox4.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox5.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox6.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox7.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox8.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox9.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox10.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox11.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox12.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox13.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox14.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox15.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox16.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox17.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox18.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox19.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox20.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox21.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox22.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox23.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox24.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox25.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox26.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox27.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox28.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox29.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox30.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox31.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox32.Bounds) Then
Collision = True
End If
If DirectionPac.Text = "Right" And (PACMAN.Location.X + PACMAN.Width < Me.Width - 30) Then
If Collision = True And (PACMAN.Location.X <> 0) Then
PACMAN.Location = New Point(PACMAN.Location.X - 1, PACMAN.Location.Y)
Else
PACMAN.Location = New Point(PACMAN.Location.X + 1, PACMAN.Location.Y)
End If
End If
If DirectionPac.Text = "Left" And PACMAN.Location.X <> 0 Then
If Collision = True And (PACMAN.Location.X + PACMAN.Width < Me.Width - 30) Then
PACMAN.Location = New Point(PACMAN.Location.X + 1, PACMAN.Location.Y)
Collision = False
Else
PACMAN.Location = New Point(PACMAN.Location.X - 1, PACMAN.Location.Y)
End If
End If
If DirectionPac.Text = "Up" And PACMAN.Location.Y <> 0 Then
If Collision = True And (PACMAN.Location.Y <> 0) Then
PACMAN.Location = New Point(PACMAN.Location.X, PACMAN.Location.Y + 1)
Collision = False
Else
PACMAN.Location = New Point(PACMAN.Location.X, PACMAN.Location.Y - 1)
End If
End If
If DirectionPac.Text = "Down" And (PACMAN.Location.Y + PACMAN.Height < Me.Height - 30) Then
If Collision = True And (PACMAN.Location.Y <> 0) Then
Collision = True
PACMAN.Location = New Point(PACMAN.Location.X, PACMAN.Location.Y - 1)
Collision = False
Else
PACMAN.Location = New Point(PACMAN.Location.X, PACMAN.Location.Y + 1)
End If
End If
End Sub
End ClassCode:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If PACMAN.Bounds.IntersectsWith(PictureBox2.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox3.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox4.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox5.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox6.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox7.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox8.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox9.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox10.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox11.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox12.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox13.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox14.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox15.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox16.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox17.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox18.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox19.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox20.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox21.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox22.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox23.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox24.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox25.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox26.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox27.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox28.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox29.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox30.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox31.Bounds) Or PACMAN.Bounds.IntersectsWith(PictureBox32.Bounds) Then
Collision = True
End If
If DirectionPac.Text = "Right" And (PACMAN.Location.X + PACMAN.Width < Me.Width - 30) Then
If Collision = True And (PACMAN.Location.X <> 0) Then
PACMAN.Location = New Point(PACMAN.Location.X - 1, PACMAN.Location.Y)
Else
PACMAN.Location = New Point(PACMAN.Location.X + 1, PACMAN.Location.Y)
End If
End If
If DirectionPac.Text = "Left" And PACMAN.Location.X <> 0 Then
If Collision = True And (PACMAN.Location.X + PACMAN.Width < Me.Width - 30) Then
PACMAN.Location = New Point(PACMAN.Location.X + 1, PACMAN.Location.Y)
Collision = False
Else
PACMAN.Location = New Point(PACMAN.Location.X - 1, PACMAN.Location.Y)
End If
End If
If DirectionPac.Text = "Up" And PACMAN.Location.Y <> 0 Then
If Collision = True And (PACMAN.Location.Y <> 0) Then
PACMAN.Location = New Point(PACMAN.Location.X, PACMAN.Location.Y + 1)
Collision = False
Else
PACMAN.Location = New Point(PACMAN.Location.X, PACMAN.Location.Y - 1)
End If
End If
If DirectionPac.Text = "Down" And (PACMAN.Location.Y + PACMAN.Height < Me.Height - 30) Then
If Collision = True And (PACMAN.Location.Y <> 0) Then
Collision = True
PACMAN.Location = New Point(PACMAN.Location.X, PACMAN.Location.Y - 1)
Collision = False
Else
PACMAN.Location = New Point(PACMAN.Location.X, PACMAN.Location.Y + 1)
End If
End If
End SubAnother thing I need help with is the points and the ai. Regarding the dots. I really dont want to draw 100+ pictureboxes then coding each individual one. I still don't entirely understand how lists/arrays work so any explanation would do.
As for coding the AI, I am basically in the dark for coding ai in visual basic.
I am a begginer at VB so I apologize if I have tackled a task that may have been too difficult.
Again any help is appreciated.
Attached is my project.Attachment 95923
Thanks!