' This is my first real game and I decided that the best thing to do would ' be frogger but There is two things that are making it hard ' I have used adobe photoshop to make my characters but the parts of the ' pictures that are supposed to be transparent ( I think it might be because ' I used a bitmap but the other is my speed of the cars, please help. ' I haven't made the collision detection yet though.
Option Explicit Dim level As Integer Public x As Integer Dim win As Boolean Dim speed(1 To 4) As Integer Dim car As Integer Dim lives As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft shpman.Left = shpman.Left - 200 Case vbKeyRight shpman.Left = shpman.Left + 200 Case vbKeyUp shpman.Top = shpman.Top - 490 Case vbKeyDown shpman.Top = shpman.Top + 490 End Select If shpman.Top < 255 Then MsgBox "You win!" shpman.Top = 2650 shpman.Left = 2040 win = True Else win = False End If If win = True Then For x = 1 To 4 speed(x) = Int((level * 2) * 15 * Rnd) Next x End If End Sub Private Sub form_load() frminfo.Show tmrcommove.Enabled = True frmgame.Hide tmrcommove.Interval = 4
For x = 1 To 4 speed(x) = Int((level * 2) * 15 * Rnd) Next x End Sub Private Sub tmrcommove_Timer() ' when this timer goes of it make the cars move tmrcommove.Interval = 4 For x = 1 To 2 shpcar(x).Left = shpcar(x).Left - speed(1) ' these are the cars going left Next x For x = 3 To 4 shpcar(x).Left = shpcar(x).Left - speed(2) ' these are other cars going left Next x ' but at different speed For x = 1 To 4 shpcar(x).Left = shpcar(x).Left + speed(3) ' cars going right as different speed Next x For x = 7 To 8 shpcar(x).Left = shpcar(x).Left + speed(2)' cars going right different speed Next x End Sub ' something isn't letting the cars move, they just stay in the same place and flash ' repeatedly so I am really stumped
|