Simple RPG

[elgin3]

I searched a lot of forums, but I can't really find the answer to my problem. Simply put, my problem is that my character won't move. Here's my code:

Private Sub frmMain_Load()

Randomize 'sets the randomizer

r = Fix(Rnd * 100) Mod 10 'sets how many moves it will take to enter the battle subroutine

lblLevel.Caption = Fix(Experience / 50) + 1 'displays the level

End Sub

Private Sub frmMain_KeyDown()

If KeyCode = vbKeyEscape Then 'the game ends if the escape key is pressed

Me.Hide

Else

Do Until r < 0 'loops the movement keys

If KeyCode = vbKeyW Or KeyCode = vbKeyUp Then 'checks if W was pressed

If imgElf.Top - 480 = img8.Top And imgElf.Left = img8.Left Then

Boss = 1

Me.Hide

frmBattleSub.Show

ElseIf imgElf.Top - 480 = img1.Top Or imgElf.Left = img1.Left Or imgElf.Top - 480 = img196.Top Or imgElf.Left = img196.Left Or imgElf.Top - 480 = Image6.Top And imgElf.Left = Image6.Left Or imgElf.Top - 480 = Image18.Top And imgElf.Left = Image18.Left Or imgElf.Top - 480 = Image25.Top And imgElf.Left = Image25.Left Or imgElf.Top - 480 = Image29.Top And imgElf.Left = Image29.Left Or imgElf.Top - 480 = Image39.Top And imgElf.Left = Image39.Left Or imgElf.Top - 480 = Image41.Top And imgElf.Left = Image41.Left Or imgElf.Top - 480 = Image51.Top And imgElf.Left = Image51.Left Or imgElf.Top - 480 = Image59.Top And imgElf.Left = Image59.Left Or imgElf.Top - 480 = Image65.Top And imgElf.Left = Image65.Left Or imgElf.Top - 480 = Image72.Top And imgElf.Left = Image72.Left Or imgElf.Top - 480 = Image74.Top And imgElf.Left = Image74.Left Or imgElf.Top - 480 = Image77.Top And imgElf.Left = Image77.Left Or imgElf.Top - 480 = Image83.Top And imgElf.Left = Image83.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

ElseIf imgElf.Top - 480 = Image85.Top And imgElf.Left = Image85.Left Or imgElf.Top - 480 = Image86.Top And imgElf.Left = Image86.Left Or imgElf.Top - 480 = Image96.Top And imgElf.Left = Image96.Left Or imgElf.Top - 480 = Image97.Top And imgElf.Left = Image97.Left Or imgElf.Top - 480 = Image99.Top And imgElf.Left = Image99.Left Or imgElf.Top - 480 = Image101.Top And imgElf.Left = Image101.Left Or imgElf.Top - 480 = Image104.Top And imgElf.Left = Image104.Left Or imgElf.Top - 480 = Image111.Top And imgElf.Left = Image111.Left Or imgElf.Top - 480 = Image114.Top And imgElf.Left = Image114.Left Or imgElf.Top - 480 = Image119.Top And imgElf.Left = Image119.Left Or imgElf.Top - 480 = Image126.Top And imgElf.Left = Image126.Left Or imgElf.Top - 480 = Image132.Top And imgElf.Left = Image132.Left Or imgElf.Top - 480 = Image133.Top And imgElf.Left = Image133.Left Or imgElf.Top - 480 = Image141.Top And imgElf.Left = Image141.Left Or imgElf.Top - 480 = Image145.Top And imgElf.Left = Image145.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

ElseIf imgElf.Top - 480 = Image153.Top And imgElf.Left = Image153.Left Or imgElf.Top - 480 = Image160.Top And imgElf.Left = Image160.Left Or imgElf.Top - 480 = Image171.Top And imgElf.Left = Image171.Left Or imgElf.Top - 480 = Image176.Top And imgElf.Left = Image176.Left Or imgElf.Top - 480 = Image186.Top And imgElf.Left = Image186.Left Or imgElf.Top - 480 = Image193.Top And imgElf.Left = Image193.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

Else

imgElf.Top = imgElf.Top - 480

r = r - 1 'counter for entering the battle subroutine

End If

ElseIf KeyCode = vbKeyS Or KeyCode = vbKeyDown Then

If imgElf.Top + 480 = img1.Top Or imgElf.Left = img1.Left Or imgElf.Top + 480 = img196.Top Or imgElf.Left = img196.Left Or imgElf.Top + 480 = Image6.Top And imgElf.Left = Image6.Left Or imgElf.Top + 480 = Image18.Top And imgElf.Left = Image18.Left Or imgElf.Top + 480 = Image25.Top And imgElf.Left = Image25.Left Or imgElf.Top + 480 = Image29.Top And imgElf.Left = Image29.Left Or imgElf.Top + 480 = Image39.Top And imgElf.Left = Image39.Left Or imgElf.Top + 480 = Image41.Top And imgElf.Left = Image41.Left Or imgElf.Top + 480 = Image51.Top And imgElf.Left = Image51.Left Or imgElf.Top + 480 = Image59.Top And imgElf.Left = Image59.Left Or imgElf.Top + 480 = Image65.Top And imgElf.Left = Image65.Left Or imgElf.Top + 480 = Image72.Top And imgElf.Left = Image72.Left Or imgElf.Top + 480 = Image74.Top And imgElf.Left = Image74.Left Or imgElf.Top + 480 = Image77.Top And imgElf.Left = Image77.Left Or imgElf.Top + 480 = Image83.Top And imgElf.Left = Image83.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

ElseIf imgElf.Top + 480 = Image85.Top And imgElf.Left = Image85.Left Or imgElf.Top + 480 = Image86.Top And imgElf.Left = Image86.Left Or imgElf.Top + 480 = Image96.Top And imgElf.Left = Image96.Left Or imgElf.Top + 480 = Image97.Top And imgElf.Left = Image97.Left Or imgElf.Top + 480 = Image99.Top And imgElf.Left = Image99.Left Or imgElf.Top + 480 = Image101.Top And imgElf.Left = Image101.Left Or imgElf.Top + 480 = Image104.Top And imgElf.Left = Image104.Left Or imgElf.Top + 480 = Image111.Top And imgElf.Left = Image111.Left Or imgElf.Top + 480 = Image114.Top And imgElf.Left = Image114.Left Or imgElf.Top + 480 = Image119.Top And imgElf.Left = Image119.Left Or imgElf.Top + 480 = Image126.Top And imgElf.Left = Image126.Left Or imgElf.Top + 480 = Image132.Top And imgElf.Left = Image132.Left Or imgElf.Top + 480 = Image133.Top And imgElf.Left = Image133.Left Or imgElf.Top + 480 = Image141.Top And imgElf.Left = Image141.Left Or imgElf.Top + 480 = Image145.Top And imgElf.Left = Image145.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

ElseIf imgElf.Top + 480 = Image153.Top And imgElf.Left = Image153.Left Or imgElf.Top + 480 = Image160.Top And imgElf.Left = Image160.Left Or imgElf.Top + 480 = Image171.Top And imgElf.Left = Image171.Left Or imgElf.Top + 480 = Image176.Top And imgElf.Left = Image176.Left Or imgElf.Top + 480 = Image186.Top And imgElf.Left = Image186.Left Or imgElf.Top + 480 = Image193.Top And imgElf.Left = Image193.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

Else

imgElf.Top = imgElf.Top + 480

r = r - 1

End If

ElseIf KeyCode = vbKeyA Or KeyCode = vbKeyLeft Then

If imgElf.Top = img1.Top Or imgElf.Left = img1.Left - 375 Or imgElf.Top = img196.Top Or imgElf.Left = img196.Left - 375 Or imgElf.Top = Image6.Top And imgElf.Left = Image6.Left - 375 Or imgElf.Top = Image18.Top And imgElf.Left = Image18.Left - 375 Or imgElf.Top = Image25.Top And imgElf.Left = Image25.Left - 375 Or imgElf.Top = Image29.Top And imgElf.Left = Image29.Left - 375 Or imgElf.Top = Image39.Top And imgElf.Left = Image39.Left - 375 Or imgElf.Top = Image41.Top And imgElf.Left = Image41.Left - 375 Or imgElf.Top = Image51.Top And imgElf.Left = Image51.Left - 375 Or imgElf.Top = Image59.Top And imgElf.Left = Image59.Left - 375 Or imgElf.Top = Image65.Top And imgElf.Left = Image65.Left - 375 Or imgElf.Top = Image72.Top And imgElf.Left = Image72.Left - 375 Or imgElf.Top = Image74.Top And imgElf.Left = Image74.Left - 375 Or imgElf.Top = Image77.Top And imgElf.Left = Image77.Left - 375 Or imgElf.Top = Image83.Top And imgElf.Left = Image83.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

ElseIf imgElf.Top = Image85.Top And imgElf.Left = Image85.Left - 375 Or imgElf.Top = Image86.Top And imgElf.Left = Image86.Left - 375 Or imgElf.Top = Image96.Top And imgElf.Left = Image96.Left - 375 Or imgElf.Top = Image97.Top And imgElf.Left = Image97.Left - 375 Or imgElf.Top = Image99.Top And imgElf.Left = Image99.Left - 375 Or imgElf.Top = Image101.Top And imgElf.Left = Image101.Left - 375 Or imgElf.Top = Image104.Top And imgElf.Left = Image104.Left - 375 Or imgElf.Top = Image111.Top And imgElf.Left = Image111.Left - 375 Or imgElf.Top = Image114.Top And imgElf.Left = Image114.Left - 375 Or imgElf.Top = Image119.Top And imgElf.Left = Image119.Left - 375 Or imgElf.Top = Image126.Top And imgElf.Left = Image126.Left - 375 Or imgElf.Top = Image132.Top And imgElf.Left = Image132.Left - 375 Or imgElf.Top = Image133.Top And imgElf.Left = Image133.Left - 375 Or imgElf.Top = Image141.Top And imgElf.Left = Image141.Left - 375 Or imgElf.Top = Image145.Top And imgElf.Left = Image145.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

ElseIf imgElf.Top = Image153.Top And imgElf.Left = Image153.Left - 375 Or imgElf.Top = Image160.Top And imgElf.Left = Image160.Left - 375 Or imgElf.Top = Image171.Top And imgElf.Left = Image171.Left - 375 Or imgElf.Top = Image176.Top And imgElf.Left = Image176.Left - 375 Or imgElf.Top = Image186.Top And imgElf.Left = Image186.Left - 375 Or imgElf.Top = Image193.Top And imgElf.Left = Image193.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

Else

imgElf.Left = imgElf.Left - 375

r = r - 1

End If

ElseIf KeyCode = vbKeyD Or KeyCode = vbKeyRight Then

If imgElf.Top = img1.Top Or imgElf.Left = img1.Left + 375 Or imgElf.Top = img196.Top Or imgElf.Left = img196.Left + 375 Or imgElf.Top = Image6.Top And imgElf.Left = Image6.Left + 375 Or imgElf.Top = Image18.Top And imgElf.Left = Image18.Left + 375 Or imgElf.Top = Image25.Top And imgElf.Left = Image25.Left + 375 Or imgElf.Top = Image29.Top And imgElf.Left = Image29.Left + 375 Or imgElf.Top = Image39.Top And imgElf.Left = Image39.Left + 375 Or imgElf.Top = Image41.Top And imgElf.Left = Image41.Left + 375 Or imgElf.Top = Image51.Top And imgElf.Left = Image51.Left + 375 Or imgElf.Top = Image59.Top And imgElf.Left = Image59.Left + 375 Or imgElf.Top = Image65.Top And imgElf.Left = Image65.Left + 375 Or imgElf.Top = Image72.Top And imgElf.Left = Image72.Left + 375 Or imgElf.Top = Image74.Top And imgElf.Left = Image74.Left + 375 Or imgElf.Top = Image77.Top And imgElf.Left = Image77.Left + 375 Or imgElf.Top = Image83.Top And imgElf.Left = Image83.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

ElseIf imgElf.Top = Image85.Top And imgElf.Left = Image85.Left + 375 Or imgElf.Top = Image86.Top And imgElf.Left = Image86.Left + 375 Or imgElf.Top = Image96.Top And imgElf.Left = Image96.Left + 375 Or imgElf.Top = Image97.Top And imgElf.Left = Image97.Left + 375 Or imgElf.Top = Image99.Top And imgElf.Left = Image99.Left + 375 Or imgElf.Top = Image101.Top And imgElf.Left = Image101.Left + 375 Or imgElf.Top = Image104.Top And imgElf.Left = Image104.Left + 375 Or imgElf.Top = Image111.Top And imgElf.Left = Image111.Left + 375 Or imgElf.Top = Image114.Top And imgElf.Left = Image114.Left + 375 Or imgElf.Top = Image119.Top And imgElf.Left = Image119.Left + 375 Or imgElf.Top = Image126.Top And imgElf.Left = Image126.Left + 375 Or imgElf.Top = Image132.Top And imgElf.Left = Image132.Left + 375 Or imgElf.Top = Image133.Top And imgElf.Left = Image133.Left + 375 Or imgElf.Top = Image141.Top And imgElf.Left = Image141.Left + 375 Or imgElf.Top = Image145.Top And imgElf.Left = Image145.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

ElseIf imgElf.Top = Image153.Top And imgElf.Left = Image153.Left + 375 Or imgElf.Top = Image160.Top And imgElf.Left = Image160.Left + 375 Or imgElf.Top = Image171.Top And imgElf.Left = Image171.Left + 375 Or imgElf.Top = Image176.Top And imgElf.Left = Image176.Left + 375 Or imgElf.Top = Image186.Top And imgElf.Left = Image186.Left + 375 Or imgElf.Top = Image193.Top And imgElf.Left = Image193.Left Then

MsgBox "Can't move there!" 'tells the player if he can’t move to an area

Else

imgElf.Left = imgElf.Left + 375

r = r - 1

End If

Else

MsgBox "Inavlid Key!"

End If

Loop

End If

If r < 0 Then 'the game enters the battle subroutine

Me.Hide

frmBattleSub.Show

End If

End Sub

Private Sub img7_Click()

End Sub


If anybody can help, I would really appreciate it. Thank you.