Step III: Building schedules
stopSchedule = [Schedule create: self];
[stopSchedule at: 12 createActionTo: self message: M(stopRunning)];
modelSchedule = [Schedule createBegin: self];
[modelSchedule setRepeatInterval: 3];
modelSchedule = [modelSchedule createEnd];
playerActions = [ActionGroup createBegin: self];
playerActions = [ActionGroup createEnd];
[playerActions createActionTo: player1 message: M(step)];
[playerActions createActionTo: player2 message: M(step)];
[modelSchedule at: 0 createActionTo: self message:M(updateMemories)];
[modelSchedule at: 1 createAction: playerActions];
[modelSchedule at: 2 createActionTo: self message: M(distrPayoffs)];