DiscoPistol
Active Member
- Joined
- Jun 6, 2006
- Messages
- 262
Okay I admit it. I need to get out more.
However please feel free to add your own efforts if you wish......
However please feel free to add your own efforts if you wish......
Code:
Sub DieHard()
Dim BruceWillis As Legend
Dim RandomCop As Assistant
Dim Badguys As MsoCharacterSet
Dim ChiefBadguy As MsoControlType
Dim Hotel As Scenario
Dim Wife As Date
Dim Demands As Currency
Set Badguys = 50
Set ChiefBadguy.Language = "German"
If Badguys Then GoTo Hotel
BruceWillis = "In Trouble"
If RandomCop.AssistWithHelp Then
BruceWillis.Position = Top
End If
For Each Badguys In Hotel
If BruceWillis > Badguys Then
Badguys = Badguys - 1
Next Badguys
If Wife.Hidden Then
ChiefBadguy.Demands = BruceWillis.Clear.Hotel
End If
BruceWillis.Visible = True
BruceWillis.Delete.ChiefBadguy
MsgBox "yippee kay eh . . . . . ."
End Sub