Add a funny popup description
A good title: Are you really sure you had a bad day with Mathematica?
Add a Yes/No/Explain/STOP prompt before and after each action. Before: Were you frustrated with *. After: Did you like */Did you see *.
Capture settings before change.

For[c = 1, c < 8, 
      SetOptions[SelectedNotebook[], WindowSize -> {100*c, 50*c}]; 
      Pause[0.5]; c++]

For[c = 1, c < 8, 
      SetOptions[SelectedNotebook[], 
        WindowMargins -> {{10*c, 10*c}, {10*c, 10*c}}]; 
      Pause[0.5]; c++]

For[c = 0, c < 101, 
      SetOptions[SelectedNotebook[], 
        WindowTitle -> 
          ToString[c] <> "%" <> " " <> "Complete"]; Pause[0.5]; 
      c = c + 5]
Pause[1]
SetOptions[SelectedNotebook[], 
      WindowTitle -> Automatic]

For[c = 1, c < 10, 
      SetOptions[SelectedNotebook[], Magnification -> 0.25*c]; 
      Pause[0.5]; c++]
Pause[2]
SetOptions[SelectedNotebook[], Magnification -> 1]

SetOptions[SelectedNotebook[], 
      Background -> GrayLevel[0]]
Pause[5]
SetOptions[SelectedNotebook[], 
      Background -> GrayLevel[1]]

SetOptions[SelectedNotebook[], 
      Selectable -> False]
Pause[5]
SetOptions[SelectedNotebook[], Selectable -> True]

SetOptions[SelectedNotebook[], 
      WindowMovable -> False]
Pause[5]
SetOptions[SelectedNotebook[], WindowMovable -> True]

SetOptions[SelectedNotebook[], 
      WindowClickSelect -> False]
Pause[5]
SetOptions[SelectedNotebook[], 
      WindowClickSelect -> True]