• Home
 · 
• Miscellaneous
 · 
• Frogger

Frogger

Frogger

Rate Frogger

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim lives As Integer
Dim score As Integer

Private Sub deadfrogimage_Timer()

    picfrog.Picture = LoadPicture("h:\frog1.bmp")
        lblscore.Caption = score
                picfrog.Top = 5400
                picfrog.Left = 2640
                picfrog.Left = picfield.Width / 2
    deadfrogimage.Enabled = False
   
End Sub

Private Sub Form_Load()

    picfrog.Top = 5400
    picfrog.Left = 2640
        lives = 30
            lbllives.Caption = lives
        score = 0
            lblscore.Caption = score
        

End Sub



Private Sub cmdquit_Click()
    Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Label1.Caption = KeyCode
    If KeyCode = 38 Then    'up
        picfrog.Top = picfrog.Top - 600 / 2
            If picfrog.Top >= piclily.Top And picfrog.Top <= piclily.Top Then
                If picfrog.Left >= piclily.Left And picfrog.Left <= piclily.Left Then
                score = score + 5
                    lblscore.Caption = score
                lives = lives + 1
                    lbllives.Caption = lives
                picfrog.Top = 5400
                picfrog.Left = 2640
                piclily.Picture = picfroglily
                End If
            End If
            ElseIf piclily.Picture = picfroglily Then
                picfrog.Top = 5400
                picfrog.Left = 2640
                score = score - 5
                lives = lives - 1
            End If
    If KeyCode = 40 Then    'down
        picfrog.Top = picfrog.Top + 600
        If picfrog.Top >= 6000 Then picfrog.Top = 5400
    End If
    If KeyCode = 37 Then    'left
        picfrog.Left = picfrog.Left - picfrog.Width / 2
    End If
    If KeyCode = 39 Then    'right
        picfrog.Left = picfrog.Left + picfrog.Width / 2
    End If

End Sub














Private Sub Timer1_Timer()
    
    'move car
    piccop.Left = piccop.Left + piccop.Width / 2
    If piccop.Left >= picfield.Width Then
        piccop.Left = -piccop.Left
    End If
    'move log
    Call imagechange
    
    If picfrog.Top = piclog.Top Then
        If picfrog.Left >= piclog.Left And picfrog.Left + picfrog.Width <= piclog.Left + piclog.Width Then
            picfrog.Left = picfrog.Left + piclog.Width / 7
        Else
            deadfrog
        End If
    End If
    piclog.Left = piclog.Left + piclog.Width / 7
    If piclog.Left >= picfield.Width Then
        piclog.Left = -piclog.Left
    End If


  
        piclog4.Left = piclog4.Left - piclog4.Width / 7
    If piclog4.Left <= -piclog4.Width Then
        piclog4.Left = picfield.Width
    End If
    
        If picfrog.Top = piclog4.Top Then
        If picfrog.Left >= piclog4.Left And picfrog.Left + picfrog.Width <= piclog4.Left + piclog4.Width Then
            picfrog.Left = picfrog.Left - piclog4.Width / 7
        Else
            deadfrog
        End If
    End If
    
     'MOVE BIKE
        picbike.Left = picbike.Left - picbike.Width / 9
    If picbike.Left <= -picbike.Width Then
        picbike.Left = picfield.Width
    End If
    
    If piccop.Top = picfrog.Top Then
        If picfrog.Left >= piccop.Left And picfrog.Left <= piccop.Left + piccop.Width Then
            Call deadfrog
        End If
    End If
    If picbike.Top = picfrog.Top Then
        If picfrog.Left >= picbike.Left And picfrog.Left <= picbike.Left + piccop.Width Then
            Call deadfrog
        End If
    End If
End Sub

Private Sub deadfrog()
    
 
    lives = lives - 1
        lbllives.Caption = lives
    score = score - 1
   picfrog.Picture = picblood
   deadfrogimage.Enabled = True

    If lives = 0 Then
        MsgBox "GAME OVER"
        Unload Me
    End If
End Sub


Private Sub imagechange()

    If picfrog.Top < 1560 Then
        picfrog.Picture = LoadPicture("h:\froglog.bmp")
    ElseIf picfrog.Top > 600 Then
        picfrog.Picture = LoadPicture("h:\frog1.bmp")
    End If
    
    If picfrog.Top > 4800 Then
        picfrog.Picture = LoadPicture("h:\froggrass.bmp")
    End If
    If picfrog.Top < 4800 And picfrog.Top > 3600 Then
        'picfrog.Picture = ("h:\frog1road.bmp")
    End If
        
End Sub