Managing IT Professionals

Sketching out a process in code… “Professionals” vs “Peons”. Check my code and tell me what I’m missing.

Dim theIT_StaffMember = "Professional"

Dim Effort
	Effort = 100
	 if Effort > 110 then
		Effort = 110
		Stress++
	end if
	if Effort < 50 then
		fire(theIT_StaffMember)
	end if
	
Dim Stress
	Stress = 0
	 if Stress < 0 then
		Stress = 0
		Happy++
	end if
	if Stress > 100 then
		randomEvent(sickLeave, stressLeave, »
                           breakDown, quit, unfortunateIncident)
	end if
	
Dim Happy
	Happy = 100
	 if Happy > 110 then
		Happy = 110
		Effort++
	end if
	if Happy < 10 then 
		randomEvent(sickLeave, stressLeave, »
                           breakDown, quit, unfortunateIncident)
	end if

while EmployeeWorking = "yes" 

	if (theIT_StaffMember = "Professional") then 
		respect(theIT_StaffMember)
			Effort++
			Stress--
			Happy++
		
		consult(theIT_StaffMember)
			Effort++
			Stress--
		
		heedWarnings(theIT_StaffMember)
			Happy++
			Stress--
		
		support(theIT_StaffMember)
			Effort++
			Stress--
		
		reward(theIT_StaffMember)
			Happy++
			Stress--
		
		recognise(theIT_StaffMember)
			Effort++
			Happy++

	elseif (theIT_StaffMember = "Peon") then 
			Effort--
			Stress++
			Happy--
	end if
	
	EmployeeWorking.MoveNext
Wend