equal
deleted
inserted
replaced
403 end; |
403 end; |
404 |
404 |
405 function WaterMachine: boolean; |
405 function WaterMachine: boolean; |
406 const |
406 const |
407 decStep: Longword = 0; |
407 decStep: Longword = 0; |
408 LastTurn: LongWord = 0; |
408 LastTurn: LongInt = 0; |
409 var i: LongWord; |
409 var i: LongWord; |
410 begin |
410 begin |
411 if (decStep = 0) and (LastTurn < FinishedTurnsTotal) then |
411 if (decStep = 0) and (LastTurn < FinishedTurnsTotal) then |
412 begin |
412 begin |
413 LastTurn:= FinishedTurnsTotal; |
413 LastTurn:= FinishedTurnsTotal; |