diff --git a/experiment_designer/experiment_designer.lpr b/experiment_designer/experiment_designer.lpr
index 4e182ee..8ce4811 100644
--- a/experiment_designer/experiment_designer.lpr
+++ b/experiment_designer/experiment_designer.lpr
@@ -1,3 +1,12 @@
+{
+  Stimulus Control
+  Copyright (C) 2014-2016 Carlos Rafael Fernandes Picanço, Universidade Federal do Pará.
+
+  The present file is distributed under the terms of the GNU General Public License (GPL v3.0).
+
+  You should have received a copy of the GNU General Public License
+  along with this program. If not, see <http://www.gnu.org/licenses/>.
+}
 program experiment_designer;
 
 {$mode objfpc}{$H+}
diff --git a/experiment_designer/form_main.lfm b/experiment_designer/form_main.lfm
index 187ddcd..c4cb81e 100644
--- a/experiment_designer/form_main.lfm
+++ b/experiment_designer/form_main.lfm
@@ -3,12 +3,12 @@ object FormDesigner: TFormDesigner
   Height = 635
   Top = 44
   Width = 656
-  HorzScrollBar.Page = 346
-  VertScrollBar.Page = 616
+  HorzScrollBar.Page = 315
+  VertScrollBar.Page = 615
   AutoScroll = True
   Caption = 'Planejar Experimento'
-  ClientHeight = 616
-  ClientWidth = 646
+  ClientHeight = 615
+  ClientWidth = 639
   Menu = MainMenu1
   OnActivate = FormActivate
   OnCreate = FormCreate
@@ -18,9 +18,9 @@ object FormDesigner: TFormDesigner
   LCLVersion = '1.6.2.0'
   object PageControl: TPageControl
     Left = 0
-    Height = 744
+    Height = 726
     Top = 0
-    Width = 646
+    Width = 639
     ActivePage = TabSheetExperiment
     Align = alClient
     TabIndex = 0
@@ -32,54 +32,54 @@ object FormDesigner: TFormDesigner
       ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 711
-      ClientWidth = 640
+      ClientHeight = 698
+      ClientWidth = 631
       object LabelResearcherName: TLabel
         Left = 0
         Height = 15
         Top = 10
-        Width = 640
+        Width = 631
         Caption = 'Nome do Pesquisador'
         ParentColor = False
       end
       object EditResearcherName: TEdit
         Left = 0
-        Height = 25
+        Height = 23
         Hint = 'Uma pasta será criada com o seu nome. Os seus experimentos serão salvos dentro dela.'
         Top = 30
-        Width = 640
+        Width = 631
         TabOrder = 0
       end
       object LabelExperimentName: TLabel
         Left = 0
         Height = 15
-        Top = 60
-        Width = 640
+        Top = 58
+        Width = 631
         Caption = 'Nome do Experimento'
         ParentColor = False
       end
       object EditExperimentName: TEdit
         Left = 0
-        Height = 25
+        Height = 23
         Hint = 'Uma pasta será criada com o nome do experimento. Os dados desse experimento serão salvos dentro dela.'
-        Top = 80
-        Width = 640
+        Top = 78
+        Width = 631
         TabOrder = 1
       end
       object GBExperimentAim: TGroupBox
         Left = 0
-        Height = 159
-        Top = 110
-        Width = 640
+        Height = 162
+        Top = 106
+        Width = 631
         Caption = 'Objetivo do Experimento'
         ClientHeight = 142
-        ClientWidth = 636
+        ClientWidth = 627
         TabOrder = 2
         object MemoExperimentAim: TMemo
           Left = 0
           Height = 142
           Top = 0
-          Width = 636
+          Width = 627
           Align = alCustom
           Anchors = [akTop, akLeft, akRight]
           TabOrder = 0
@@ -87,10 +87,10 @@ object FormDesigner: TFormDesigner
       end
       object CGGlobal: TCheckGroup
         Left = 0
-        Height = 113
+        Height = 108
         Hint = 'Aplicáveis ao longo de todo o experimento'
-        Top = 274
-        Width = 640
+        Top = 273
+        Width = 631
         AutoFill = True
         Caption = 'Configurações globais'
         ChildSizing.LeftRightSpacing = 6
@@ -101,8 +101,8 @@ object FormDesigner: TFormDesigner
         ChildSizing.ShrinkVertical = crsScaleChilds
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 96
-        ClientWidth = 636
+        ClientHeight = 88
+        ClientWidth = 627
         Items.Strings = (
           'Enviar histórico do bate-papo a novos participantes'
           'Gerar participantes automaticamente'
@@ -116,9 +116,9 @@ object FormDesigner: TFormDesigner
       end
       object RGPoints: TRadioGroup
         Left = 0
-        Height = 59
-        Top = 392
-        Width = 640
+        Height = 58
+        Top = 386
+        Width = 631
         AutoFill = True
         Caption = 'Tipo de pontuação'
         ChildSizing.LeftRightSpacing = 6
@@ -128,8 +128,8 @@ object FormDesigner: TFormDesigner
         ChildSizing.ShrinkVertical = crsScaleChilds
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 42
-        ClientWidth = 636
+        ClientHeight = 38
+        ClientWidth = 627
         ItemIndex = 0
         Items.Strings = (
           'A e B'
@@ -140,21 +140,21 @@ object FormDesigner: TFormDesigner
       end
       object GBMatrix: TGroupBox
         Left = 0
-        Height = 143
-        Top = 456
-        Width = 640
+        Height = 134
+        Top = 449
+        Width = 631
         Caption = 'Tipo da Matrix'
         ChildSizing.LeftRightSpacing = 5
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 126
-        ClientWidth = 636
+        ClientHeight = 114
+        ClientWidth = 627
         TabOrder = 6
         object ChkColors: TCheckBox
           Left = 5
-          Height = 21
+          Height = 19
           Top = 0
-          Width = 239
+          Width = 215
           Caption = '5 cores'
           Checked = True
           Enabled = False
@@ -163,9 +163,9 @@ object FormDesigner: TFormDesigner
         end
         object ChkRows: TCheckBox
           Left = 5
-          Height = 21
-          Top = 21
-          Width = 239
+          Height = 19
+          Top = 19
+          Width = 215
           Caption = '10 linhas'
           Checked = True
           Enabled = False
@@ -174,35 +174,35 @@ object FormDesigner: TFormDesigner
         end
         object ChkCols: TCheckBox
           Left = 5
-          Height = 21
-          Top = 42
-          Width = 239
+          Height = 19
+          Top = 38
+          Width = 215
           Caption = '10  colunas'
           TabOrder = 2
         end
         object ChkDots: TCheckBox
           Left = 5
-          Height = 21
-          Top = 63
-          Width = 239
+          Height = 19
+          Top = 57
+          Width = 215
           Caption = 'Com Círculos Preechidos'
           OnChange = ChkDotsChange
           TabOrder = 3
         end
         object ChkCleanDots: TCheckBox
           Left = 5
-          Height = 21
-          Top = 84
-          Width = 239
+          Height = 19
+          Top = 76
+          Width = 215
           Caption = 'Com Círculos Vazados'
           OnChange = ChkCleanDotsChange
           TabOrder = 4
         end
         object ChkDotsCleanDots: TCheckBox
           Left = 5
-          Height = 21
-          Top = 105
-          Width = 239
+          Height = 19
+          Top = 95
+          Width = 215
           Caption = 'Com Círculos Vazados e Preenchidos'
           OnChange = ChkDotsCleanDotsChange
           TabOrder = 5
@@ -210,23 +210,22 @@ object FormDesigner: TFormDesigner
       end
       object GBConditions: TGroupBox
         Left = 0
-        Height = 97
-        Top = 604
-        Width = 640
+        Height = 100
+        Top = 588
+        Width = 631
         Caption = 'Condições'
         ClientHeight = 80
-        ClientWidth = 636
+        ClientWidth = 627
         TabOrder = 5
         object ListBoxConditions: TListBox
           Left = 0
           Height = 80
           Top = 0
-          Width = 636
+          Width = 627
           Anchors = [akTop, akLeft, akRight]
           ItemHeight = 0
           ScrollWidth = 634
           TabOrder = 0
-          TopIndex = -1
         end
       end
     end
@@ -241,10 +240,10 @@ object FormDesigner: TFormDesigner
       ClientWidth = 640
       object ComboCurrentCondition: TComboBox
         Left = 0
-        Height = 27
+        Height = 23
         Top = 10
         Width = 640
-        ItemHeight = 0
+        ItemHeight = 15
         OnChange = ComboCurrentConditionChange
         Style = csDropDownList
         TabOrder = 0
@@ -372,7 +371,7 @@ object FormDesigner: TFormDesigner
         ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 147
+        ClientHeight = 144
         ClientWidth = 636
         TabOrder = 5
         object CheckBoxShouldAskQuestion: TCheckBox
@@ -417,7 +416,7 @@ object FormDesigner: TFormDesigner
           ChildSizing.ShrinkVertical = crsScaleChilds
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 1
-          ClientHeight = 54
+          ClientHeight = 51
           ClientWidth = 532
           Items.Strings = (
             'Reverter consequências das metacontingências e contingências'
@@ -445,7 +444,7 @@ object FormDesigner: TFormDesigner
         ChildSizing.ShrinkVertical = crsScaleChilds
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 63
+        ClientHeight = 60
         ClientWidth = 636
         ItemIndex = 2
         Items.Strings = (
@@ -467,7 +466,7 @@ object FormDesigner: TFormDesigner
         ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 92
+        ClientHeight = 89
         ClientWidth = 636
         TabOrder = 7
         object LabelEndCriteriaAbsCycles: TLabel
@@ -497,7 +496,7 @@ object FormDesigner: TFormDesigner
           ChildSizing.HorizontalSpacing = 5
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 4
-          ClientHeight = 25
+          ClientHeight = 22
           ClientWidth = 532
           TabOrder = 1
           object SpinEditEndCriteriaInterlockingPorcentage: TSpinEdit
@@ -548,7 +547,7 @@ object FormDesigner: TFormDesigner
         Top = 641
         Width = 640
         Caption = 'Contingências e Metacontingências'
-        ClientHeight = 80
+        ClientHeight = 77
         ClientWidth = 636
         TabOrder = 8
         object ListBoxContingencies: TListBox
@@ -560,7 +559,6 @@ object FormDesigner: TFormDesigner
           ItemHeight = 0
           ScrollWidth = 634
           TabOrder = 0
-          TopIndex = -1
         end
       end
     end
@@ -588,7 +586,7 @@ object FormDesigner: TFormDesigner
         ChildSizing.ShrinkVertical = crsScaleChilds
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 42
+        ClientHeight = 39
         ClientWidth = 646
         Items.Strings = (
           'Contingências Operantes'
@@ -599,10 +597,10 @@ object FormDesigner: TFormDesigner
       end
       object ComboCurrentContingency: TComboBox
         Left = 0
-        Height = 27
+        Height = 23
         Top = 74
         Width = 650
-        ItemHeight = 0
+        ItemHeight = 15
         OnChange = ComboCurrentContingencyChange
         Style = csDropDownList
         TabOrder = 0
@@ -678,7 +676,7 @@ object FormDesigner: TFormDesigner
         ChildSizing.ShrinkVertical = crsScaleChilds
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 105
+        ClientHeight = 102
         ClientWidth = 646
         ItemIndex = 0
         Items.Strings = (
@@ -757,7 +755,7 @@ object FormDesigner: TFormDesigner
         ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
         ChildSizing.Layout = cclTopToBottomThenLeftToRight
         ChildSizing.ControlsPerLine = 2
-        ClientHeight = 42
+        ClientHeight = 39
         ClientWidth = 646
         TabOrder = 6
         Visible = False
@@ -771,10 +769,10 @@ object FormDesigner: TFormDesigner
         end
         object CBPointsType: TComboBox
           Left = 0
-          Height = 27
+          Height = 23
           Top = 15
           Width = 154
-          ItemHeight = 0
+          ItemHeight = 15
           OnChange = ConsequenceStyleChange
           Style = csDropDownList
           TabOrder = 4
diff --git a/experiment_designer/form_main.pas b/experiment_designer/form_main.pas
index e040237..1ef4afd 100644
--- a/experiment_designer/form_main.pas
+++ b/experiment_designer/form_main.pas
@@ -1,3 +1,12 @@
+{
+  Stimulus Control
+  Copyright (C) 2014-2016 Carlos Rafael Fernandes Picanço, Universidade Federal do Pará.
+
+  The present file is distributed under the terms of the GNU General Public License (GPL v3.0).
+
+  You should have received a copy of the GNU General Public License
+  along with this program. If not, see <http://www.gnu.org/licenses/>.
+}
 unit form_main;
 
 {$mode objfpc}{$H+}
diff --git a/units/game_actors_helpers.pas b/units/game_actors_helpers.pas
index bfbb03e..69bec9c 100644
--- a/units/game_actors_helpers.pas
+++ b/units/game_actors_helpers.pas
@@ -1,3 +1,12 @@
+{
+  Stimulus Control
+  Copyright (C) 2014-2016 Carlos Rafael Fernandes Picanço, Universidade Federal do Pará.
+
+  The present file is distributed under the terms of the GNU General Public License (GPL v3.0).
+
+  You should have received a copy of the GNU General Public License
+  along with this program. If not, see <http://www.gnu.org/licenses/>.
+}
 unit game_actors_helpers;
 
 {$mode objfpc}{$H+}
--
libgit2 0.21.2