'Can you guess what language this is?
'I gave you a huge hint already...
Dim payCheck as Single, workHours as Long, projectComplete as Boolean
Dim startHours as Single, endHours as Variable
Dim sneakyMode as Boolean, stareAtScreen as Boolean, goHome as Boolean
Dim newEmotion as String startHours = 800
If projectComplete = False Then
endHours = 1900
payCheck = Null
newEmotion = "Indifference"
Else
endHours = 1855
End if
For i = startHours to EndHours
If startHours + 30 > i
stareAtScreen = True
End If
If bored or frustrated Then
If bossLooking = False Then
timeLimit = 30 + x
Call StartBlogging
Else
Application.ScreenUpdating = False
sneakyMode = True
timeLimit = 10
Call StartBlogging
End If
Dim guilt as integer
guilt = workHours/timeLimit
End If
If guilt > 9 Then
Exit Sub
End If
stareAtScreen = False
Next i
workProcess:
Call workDetails
If endHours + 60 > now
goHome = False
Goto workProcess
Else
goHome = True
newEmotion = "Joy"
End If
End Sub
