Download as
Browse Code »

Commit b74fe8d0656ded0a755b29d4f1c6d91d31d97489

Authored by Carlos Picanco
1 parent bc12e601
Exists in master

separate issues, actor helpers from resources

Showing 4 changed files with 166 additions and 147 deletions   Show diff stats
units/game_actors_helpers.pas 0 → 100644
  Diff comments   View file @b74fe8d
... ... @@ -0,0 +1,159 @@
  1 +unit game_actors_helpers;
  2 +
  3 +{$mode objfpc}{$H+}
  4 +
  5 +interface
  6 +
  7 +uses
  8 + Classes, SysUtils, Graphics, game_actors;
  9 +
  10 +function GetColorFromCode(ACode : TGameColor) : TColor;
  11 +
  12 +const
  13 +
  14 + C_PLAYER_TEMPLATE : TPlayer = (
  15 + ID : '';
  16 + Nicname : '';
  17 + Login :'';
  18 + Password : '';
  19 + Status : gpsWaiting;
  20 + Data : nil;
  21 + Choice : (Row:grNone; Color:gcNone;);
  22 + Points : (A:0; B:0);
  23 + Turn : -1;
  24 + );
  25 +
  26 + //C_OPERANT_1 : TContingency =
  27 + // (
  28 + // Consequence : (
  29 + // Style : [gscShowMessage,gscPoints, gscB];
  30 + // Message : '<$JOGADOR> produziu 1 ponto do tipo B.';
  31 + // Value: 1;
  32 + // Variation:1;
  33 + //
  34 + // Criteria : (
  35 + // Style : goNONE;
  36 + // Rows : [grEven];
  37 + // Colors : [gcNone];
  38 + // );
  39 + //
  40 + // Meta : False;
  41 + // );
  42 +
  43 + //C_OPERANT_2 : TContingency =
  44 + // (
  45 + // Consequence : (
  46 + // Style : [gscShowMessage,gscPoints, gscA];
  47 + // Message : '<$JOGADOR> produziu 3 pontos do tipo A.';
  48 + //
  49 + // Criteria : (
  50 + // Operator_ : goNONE;
  51 + // Rows : [grEven];
  52 + // Colors : [gcNone];
  53 + // );
  54 + //
  55 + // Meta : False;
  56 + // );
  57 +
  58 + //C_METACONTINGENCY_A1 : TContingency =
  59 + // (
  60 + // Consequence : (
  61 + // Style : [gscShowMessage,gscPoints,gscBroadcastMessage];
  62 + // Points :( A : 0; B : 0; G : 1;);
  63 + // Message : 'Vocês produziram 1 item escolar.'; // show first in case of last participant
  64 + // Cycles : 0; // absolute,
  65 + // VariationMin: 0; // porcentage,
  66 + // VariationMax : 0; // porcentage
  67 + // Prompt : (
  68 + // Message : '';
  69 + // Style : [];
  70 + // );
  71 + // );
  72 + //
  73 + // Response : (
  74 + // Operator_ : goAND;
  75 + // Rows : [grEven];
  76 + // Colors : [gcDiff];
  77 + // );
  78 + //
  79 + // Meta : True;
  80 + // );
  81 +
  82 +
  83 + //C_METACONTINGENCY_B2: TContingency =
  84 + // (
  85 + // Consequence : (
  86 + // Style : [gscShowMessage,gscPoints,gscBroadcastMessage,gscPromptQuestion];
  87 + // Points :(A :0; B : 0; G : -1;);
  88 + // Message : 'Vocês produziram a perda de 1 item escolar.';
  89 + // Cycles : 0; // absolute,
  90 + // VariationMin: 0; // porcentage,
  91 + // VariationMax : 0; // porcentage
  92 + // Prompt : (
  93 + // Message : 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?';
  94 + // Style : [gsAll,gsYes,gsMetacontingency,gsRecoverLostPoints, gsContingency, gsBasA];
  95 + // );
  96 + // );
  97 + //
  98 + // Response : (
  99 + // Operator_ : goNONE;
  100 + // Rows : [grOdd, grSome];
  101 + // Colors : [gcNone];
  102 + // );
  103 + //
  104 + // Meta : True;
  105 + // );
  106 +
  107 + C_CONDITION_TEMPLATE : TCondition =
  108 + (
  109 + ConditionName : '';
  110 + Contingencies : nil;
  111 + //Interlocks : (
  112 + // Count : 0;
  113 + // History : nil;
  114 + //);
  115 +
  116 + Points : (
  117 + Count : ( A:0; B:0; G:0; );
  118 + OnStart : ( A:0; B:0; G:0; );
  119 + );
  120 +
  121 + Turn : (
  122 + Count: 0;
  123 + Value : 0;
  124 + Random: False;
  125 + );
  126 +
  127 + Cycles : (
  128 + Count : 0;
  129 + Value : 0;
  130 + Generation : 0;
  131 + );
  132 +
  133 + Prompt : nil;
  134 + EndCriterium : (
  135 + Style : gecWhichComeFirst;
  136 + InterlockingPorcentage : 50;
  137 + LastCycles : 4;
  138 + AbsoluteCycles: 6;
  139 + );
  140 + );
  141 +
  142 +implementation
  143 +
  144 +uses game_resources;
  145 +
  146 +function GetColorFromCode(ACode: TGameColor): TColor;
  147 +begin
  148 + case ACode of
  149 + gcNone :Result := clInactiveCaption;
  150 + gcYellow :Result := ccYellow;
  151 + gcRed :Result := ccRed;
  152 + gcMagenta :Result := ccMagenta;
  153 + gcBlue :Result := ccBlue;
  154 + gcGreen :Result := ccGreen;
  155 + end;
  156 +end;
  157 +
  158 +end.
  159 +
... ...
units/game_control.pas
  Diff comments   View file @b74fe8d
... ... @@ -126,6 +126,7 @@ uses ButtonPanel,Controls,ExtCtrls,StdCtrls,LazUTF8, Forms, strutils
126 126 , presentation_classes
127 127 , form_chooseactor
128 128 , game_resources
  129 + , game_actors_helpers
129 130 , string_methods
130 131 ;
131 132  
... ...
units/game_file_methods.pas
  Diff comments   View file @b74fe8d
... ... @@ -32,14 +32,14 @@ type
32 32 procedure SaveExperimentToFile(AExperiment: TExperiment; AFilename : string);
33 33  
34 34 resourcestring
35   - ERROR_SECTION_NOT_FOUND = 'O arquivo não pode ser aberto, pois não foi encontrada a secção: ';
  35 + ERROR_SECTION_NOT_FOUND = 'O arquivo não pode ser aberto, pois a secção não foi encontrada: ';
36 36 ERROR_FILE_NOT_FOUND = 'O arquivo não pode ser aberto, pois ele não existe.';
37 37 WARN_CONDITION_WITH_NO_END = 'Condição sem critério de encerramento: ';
38 38 WARN_END = ' será usado.';
39 39  
40 40 implementation
41 41  
42   -uses LCLIntf, game_resources, string_methods, regdata, zhelpers, strutils;
  42 +uses LCLIntf, game_resources, game_actors_helpers, string_methods, regdata, zhelpers, strutils;
43 43  
44 44 function LoadExperimentFromResource(var AExperiment: TExperiment): Boolean;
45 45 var
... ... @@ -72,12 +72,12 @@ begin
72 72 Result := False;
73 73 with AExperiment do
74 74 begin
  75 + ExperimentName:='test_experiment';
  76 + ExperimentAim:='This is a test experiment.';
75 77 Researcher := VAL_RESEARCHER;
76 78 ResearcherCanPlay:=False;
77 79 ResearcherCanChat:=True;
78 80 SendChatHistoryForNewPlayers:=True;
79   - ExperimentName:='test_experiment';
80   - ExperimentAim:='This is a test experiment.';
81 81 GenPlayersAsNeeded:=True;
82 82 CurrentCondition := 0;
83 83 MatrixType:=[gmRows];
... ...
units/game_resources.pas
  Diff comments   View file @b74fe8d
... ... @@ -14,12 +14,9 @@ unit game_resources;
14 14 interface
15 15  
16 16 uses
17   - Classes, SysUtils, Graphics
18   - , game_actors
19   - ;
  17 + Classes, SysUtils, Graphics;
20 18  
21 19 function GenResourceName(i : integer) : string;
22   -function GetColorFromCode(ACode : TGameColor) : TColor;
23 20  
24 21 resourcestring
25 22 KV_SEP = '=';
... ... @@ -119,137 +116,10 @@ const
119 116 'Nicole','Luísa','Daniela','Núria','Bruna',
120 117 'Victória','Alícia','Rafaela','Helena','Miriam');
121 118  
122   - C_PLAYER_TEMPLATE : TPlayer = (
123   - ID : '';
124   - Nicname : '';
125   - Login :'';
126   - Password : '';
127   - Status : gpsWaiting;
128   - Data : nil;
129   - Choice : (Row:grNone; Color:gcNone;);
130   - Points : (A:0; B:0);
131   - Turn : -1;
132   - );
133   -
134   - //C_OPERANT_1 : TContingency =
135   - // (
136   - // Consequence : (
137   - // Style : [gscShowMessage,gscPoints, gscB];
138   - // Message : '<$JOGADOR> produziu 1 ponto do tipo B.';
139   - // Value: 1;
140   - // Variation:1;
141   - //
142   - // Criteria : (
143   - // Style : goNONE;
144   - // Rows : [grEven];
145   - // Colors : [gcNone];
146   - // );
147   - //
148   - // Meta : False;
149   - // );
150   -
151   - //C_OPERANT_2 : TContingency =
152   - // (
153   - // Consequence : (
154   - // Style : [gscShowMessage,gscPoints, gscA];
155   - // Message : '<$JOGADOR> produziu 3 pontos do tipo A.';
156   - //
157   - // Criteria : (
158   - // Operator_ : goNONE;
159   - // Rows : [grEven];
160   - // Colors : [gcNone];
161   - // );
162   - //
163   - // Meta : False;
164   - // );
165   -
166   - //C_METACONTINGENCY_A1 : TContingency =
167   - // (
168   - // Consequence : (
169   - // Style : [gscShowMessage,gscPoints,gscBroadcastMessage];
170   - // Points :( A : 0; B : 0; G : 1;);
171   - // Message : 'Vocês produziram 1 item escolar.'; // show first in case of last participant
172   - // Cycles : 0; // absolute,
173   - // VariationMin: 0; // porcentage,
174   - // VariationMax : 0; // porcentage
175   - // Prompt : (
176   - // Message : '';
177   - // Style : [];
178   - // );
179   - // );
180   - //
181   - // Response : (
182   - // Operator_ : goAND;
183   - // Rows : [grEven];
184   - // Colors : [gcDiff];
185   - // );
186   - //
187   - // Meta : True;
188   - // );
189   -
190   -
191   - //C_METACONTINGENCY_B2: TContingency =
192   - // (
193   - // Consequence : (
194   - // Style : [gscShowMessage,gscPoints,gscBroadcastMessage,gscPromptQuestion];
195   - // Points :(A :0; B : 0; G : -1;);
196   - // Message : 'Vocês produziram a perda de 1 item escolar.';
197   - // Cycles : 0; // absolute,
198   - // VariationMin: 0; // porcentage,
199   - // VariationMax : 0; // porcentage
200   - // Prompt : (
201   - // Message : 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?';
202   - // Style : [gsAll,gsYes,gsMetacontingency,gsRecoverLostPoints, gsContingency, gsBasA];
203   - // );
204   - // );
205   - //
206   - // Response : (
207   - // Operator_ : goNONE;
208   - // Rows : [grOdd, grSome];
209   - // Colors : [gcNone];
210   - // );
211   - //
212   - // Meta : True;
213   - // );
214   -
215   - C_CONDITION_TEMPLATE : TCondition =
216   - (
217   - ConditionName : '';
218   - Contingencies : nil;
219   - //Interlocks : (
220   - // Count : 0;
221   - // History : nil;
222   - //);
223   -
224   - Points : (
225   - Count : ( A:0; B:0; G:0; );
226   - OnStart : ( A:0; B:0; G:0; );
227   - );
228   -
229   - Turn : (
230   - Count: 0;
231   - Value : 0;
232   - Random: False;
233   - );
234   -
235   - Cycles : (
236   - Count : 0;
237   - Value : 0;
238   - Generation : 0;
239   - );
240   -
241   - Prompt : nil;
242   - EndCriterium : (
243   - Style : gecWhichComeFirst;
244   - InterlockingPorcentage : 50;
245   - LastCycles : 4;
246   - AbsoluteCycles: 6;
247   - );
248   - );
249 119  
250 120 implementation
251 121  
252   -uses zhelpers;
  122 +//uses zhelpers;
253 123  
254 124 function GenResourceName(i: integer): string;
255 125 var r :integer;
... ... @@ -265,17 +135,6 @@ begin
265 135  
266 136 end;
267 137  
268   -function GetColorFromCode(ACode: TGameColor): TColor;
269   -begin
270   - case ACode of
271   - gcNone :Result := clInactiveCaption;
272   - gcYellow :Result := ccYellow;
273   - gcRed :Result := ccRed;
274   - gcMagenta :Result := ccMagenta;
275   - gcBlue :Result := ccBlue;
276   - gcGreen :Result := ccGreen;
277   - end;
278   -end;
279 138  
280 139 initialization
281 140  
... ...