• Home
 · 
• Games
 · 
• This is a buy/makebacon pig game (pretty simple but fun).

This is a buy/makebacon pig game (pretty simple but fun).

This is a buy/makebacon pig game (pretty simple but fun).

Rate This is a buy/makebacon pig game (pretty simple but fun).

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim cash As Double

Private Sub Command1_Click()
pigs = pigs + 1
Text2.Text = pigs
cash = cash - 25
Text1.Text = cash
If pigs = 5 Then
    MsgBox "pig riot"
    MsgBox "You lose!"
    End
End If
If cash < 0 Then
MsgBox "You are in debt"
MsgBox "You lose"
End
End If
If Int(pigs * cash) Mod 4 = 0 Then
    pigs = pigs + 3
End If
End Sub

Private Sub Command2_Click()
pigs = pigs - 1
Text2.Text = pigs
cash = cash + 30
Text1.Text = cash
If pigs = -1 Then
MsgBox "Goat invasion"
MsgBox "You have $" & cash
MsgBox "To win my game you must get $10000"
End If

If cash >= 10000 Then
    MsgBox "You win my game!"
    MsgBox "You have mad skills!"
    End
End If




End Sub

Private Sub Form_Load()
    pigs = 3
    cash = 100
End Sub