Looks like you're ready to party, twobob. For those still uncertain as to this concept of
social life:
global myGender, myBankAccount
on meetPerson (gender, wealth)
if gender not myGender then
if checkWealth(wealth) > myBankAccount then
drinkBeers (myBankAccount - checkWealth(wealth))
haveBeersAnyway
end
(In case you're wondering, it's Lingo, the old Macromedia Director scripting language. Wonderful for writing code to direct your life.)