motivate random events

;TABNation 4/8/2021  v1
;every 2-4 hours a random event will happen as long as you have not
;already complete 3 events. Once 3 events are completed script will
;sleep for 8 hours and script only displays random events between
;the times of 10am - 5pm

;=============================
;set timers up/settings
;=============================
#NoEnv
SetWorkingDir, %A_ScriptDir%
#SingleInstance force
ThingsHappend=0
totaltodaycount=0
random, rantime, 10000, 12000   ;go off every 2-4 hours
settimer, randomthing , %rantime%    ;starts random time for something to happen
return

;=============================
;Check is user active and day
;=============================
randomthing:
hour := A_Hour
if (hour >= 10 and hour < 24) ; check if working hours 8-24
	{
	If A_TimeIdle < 50000       ;if user gone for more then x seconds do nothing
		{
		goto userthere
		}
	}
Return

;=============================
;Pick something to do
;=============================
userthere:
ThingsHappend++

If ThingsHappend = 3
	{
	ThingsHappend=0
	msgbox, Congrats on maxing out today!!!
	sleep 28800000    ;reached max for today wait till tommorrow
	return
	}

random, ranthing, 1, 9  ;pick thing to do

;-----------------------
;say hi to person
;-----------------------
If ranthing = 1
	{
	MsgBox, 4,, Say Hi to someone on teams and tell them a fact about yourself `n(Did you do this?)
	IfMsgBox Yes
		totaltodaycount++
		random, rantime, 7200000, 14400000
		Return
	IfMsgBox No
		random, rantime, 7200000, 14400000
		Return
	}
;-----------------------
;Stare away from screen
;-----------------------
If ranthing = 2
	{
	MsgBox, 4,, Stare for 30 seconds 30 feet away `nThis is to rest your eyes`n(Did you do this?)
	IfMsgBox Yes
		totaltodaycount++
		random, rantime, 7200000, 14400000
		Return
	IfMsgBox No
		random, rantime, 7200000, 14400000
		Return
	}

;-----------------------
;Dad Jokes
;-----------------------
If ranthing = 3
	{
	FileRead, list, dadjokes.txt    ; Load the list from a text file
	obj := []                         ; Create original obj to clone from
	Loop, Parse, list, `n`r
		(Mod(A_Index,2) = 0) ? (obj.Push(Line1 . "`n" . A_LoopField)) : (Line1 := A_LoopField)
		    if (!o.length())
				o := obj.Clone()          ; Clone orignal obj when o is empty or not created yet.
				random, r, 1, % o.length()    ; generates a random number between 1 and the current length of the array of words
				msgbox, % o.removeAt(r)     ; remove the word from the given random position in the array returning it
				totaltodaycount++
				random, rantime, 7200000, 14400000
	Return
	}
;-----------------------
;Jumping Jacks
;-----------------------
If ranthing = 4
	{
	MsgBox, 4,, Time for some movement 5 jumping jacks and go`n(Did you do this?)
	IfMsgBox Yes
		totaltodaycount++
		random, rantime, 7200000, 14400000
		Return
	IfMsgBox No
		random, rantime, 7200000, 14400000
		Return
	}
;-----------------------
;Water chug
;-----------------------
If ranthing = 5
	{
	MsgBox, 4,, Take a longgggg sip of some Water`n(Did you do this?)
	IfMsgBox Yes
		totaltodaycount++
		random, rantime, 7200000, 14400000
		Return
	IfMsgBox No
		random, rantime, 7200000, 14400000
		Return
	}
;-----------------------
;Quick Walk
;-----------------------
If ranthing = 6
	{
	MsgBox, 4,, Go For a short walk in the hall`n(Did you do this?)
	IfMsgBox Yes
		totaltodaycount++
		random, rantime, 7200000, 14400000
		Return
	IfMsgBox No
		random, rantime, 7200000, 14400000
		Return
	}
;-----------------------
;Clean Your area
;-----------------------
If ranthing = 7
	{
	MsgBox, 4,, Clean up your area for a nice clean environment`n(Did you do this?)
	IfMsgBox Yes
		totaltodaycount++
		random, rantime, 7200000, 14400000
		Return
	IfMsgBox No
		random, rantime, 7200000, 14400000
		Return
	}
;-----------------------
;Learn something new
;-----------------------
If ranthing = 8
	{
	MsgBox, 4,, Go to wiki and find something new to learn`n(Did you do this?)
	IfMsgBox Yes
		totaltodaycount++
		random, rantime, 7200000, 14400000
		Return
	IfMsgBox No
		random, rantime, 7200000, 14400000
		Return
	}
;-----------------------
;PC Clean
;-----------------------
If ranthing = 9
	{
	MsgBox, 4,, Take a few minutes to Clean up your outlook and desktop`n(Did you do this?)
	IfMsgBox Yes
		totaltodaycount++
		random, rantime, 7200000, 14400000
		Return
	IfMsgBox No
		random, rantime, 7200000, 14400000
		Return
	}
Return

f2::
msgbox, Total Ponts today %totaltodaycount%