hedgewars/uTeams.pas
changeset 8349 a1dbe148f10f
parent 8346 3443e0de2c9d
child 8351 f895be37b607
equal deleted inserted replaced
8348:c039ac6f33e0 8349:a1dbe148f10f
   323     end;
   323     end;
   324 
   324 
   325 {$IFDEF SDL13}
   325 {$IFDEF SDL13}
   326 uTouch.NewTurnBeginning();
   326 uTouch.NewTurnBeginning();
   327 {$ENDIF}
   327 {$ENDIF}
   328 ScriptCall('onNewTurn');
       
   329 end;
   328 end;
   330 
   329 
   331 function AddTeam(TeamColor: Longword): PTeam;
   330 function AddTeam(TeamColor: Longword): PTeam;
   332 var team: PTeam;
   331 var team: PTeam;
   333     c, t: LongInt;
   332     c, t: LongInt;