Finished the hunter and added the map generation in the Input

Input.oz

 functor
+import 
+    OS
+    System
 export
     isTurnByTurn:IsTurnByTurn
     nRow:NRow
@@ -41,6 +44,45 @@ define
     MinDistanceMissile
     MaxDistanceMissile
     GUIDelay
+
+    fun {SumTwoList L1 L2 Acc}
+        case L1#L2 
+        of nil#nil then {List.reverse Acc}
+        [] (H1|T1)#(H2|T2) then 
+            {SumTwoList T1 T2 H1+H2|Acc}
+        end
+    end
+
+    fun{ValidateTwoConsecutiveRows Row1 Row2}
+        Sum={SumTwoList Row1 Row2 nil}
+    in
+        {List.foldL Sum fun{$A I} ({Min ~1*I 0}+1)+A end 0} >= NbPlayers
+    end
+
+    fun{GenerateRow Length Acc}
+        if Length==0 then 
+            Acc 
+        elseif ({OS.rand} mod 3) \= 0 then 
+            {GenerateRow Length-1 0|Acc}
+        else 
+            {GenerateRow Length-1 1|Acc}
+        end
+    end
+
+    fun{GenerateMap NbRow NbColumn Acc}
+        if NbRow==0 then 
+            Acc
+        else NewRow={GenerateRow NbColumn nil} in 
+            case Acc 
+            of nil then 
+                {GenerateMap NbRow-1 NbColumn NewRow|Acc}
+            [] LastRow|T andthen {ValidateTwoConsecutiveRows NewRow LastRow} then 
+                {GenerateMap NbRow-1 NbColumn NewRow|Acc}
+            else
+                {GenerateMap NbRow NbColumn Acc}
+            end 
+        end
+    end
 in 
 
 
@@ -48,43 +90,19 @@ in
    
    IsTurnByTurn = true
 
-%%%% Description of the map %%%%
-   
-    NRow = 10
-    NColumn = 20
-    Map =  [[0 1 0 0 0 0 0 0 0 1 1 0 1 0 0 0 1 0 0 0]
-            [0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
-            [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0]
-            [0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0]
-            [0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0]
-            [0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0]
-            [0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0]
-            [0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0]
-            [0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0]
-            [0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0]]
-
-    /*
-    NRow = 5   
-    NColumn = 5
-    Map =  [[0 0 0 0 1]
-            [0 1 1 0 0]
-            [0 0 0 1 0]
-            [0 0 1 0 0]
-            [0 0 0 0 0]]
-     */
 %%%% Players description %%%%
 
-    NbPlayers = 2
-    Players   = [player020random player020hunter]
-    Colors    = [c(245 88 203) c(255 102 0)]
+    NbPlayers = 6
+    Players   = [player020random player020random player020hunter player020hunter player020hunter player020hunter]
+    Colors    = [c(245 88 203) c(255 102 0) black green blue red]
   
 %%%% Surface time/turns %%%%
 
-    TurnSurface = 5
+    TurnSurface = 3
 
 %%%% Life %%%%
 
-    MaxDamage = 8
+    MaxDamage = 16
 
 %%%% Number of load for each item %%%%
 
@@ -103,4 +121,10 @@ in
 %%%% Waiting time for the GUI between each effect %%%%
     GUIDelay = 100 % ms
 
+%%%% Description of the map %%%%
+   
+NRow = ({OS.rand} mod 5) + (NbPlayers+(NbPlayers div 2))
+NColumn = ({OS.rand} mod 10) + (NbPlayers *2)
+Map =  {GenerateMap NRow NColumn nil}
+
 end
\ No newline at end of file

Main.oz

@@ -212,7 +212,6 @@ define
     end
 
     proc {TurnByTurn Players CurrentIndex}
-        % {System.show 'Turnof'#CurrentIndex}
         %% 1.
         {TurnByTurn1 Players CurrentIndex}
     end

Player020Hunter.oz

@@ -144,7 +144,6 @@ define
             State
         [] (missile(Position)|T1)#(Target|T2) then Position=Target in 
             ID=State.id KindFire=missile(Position)
-            {System.show '-----------------Firing a missile at enemy postion'#Position}
             {NewRec {NewRec State chargedItems {List.subtract State.chargedItems T1}} targets T2} 
         end
     end
@@ -331,9 +330,7 @@ define
             {AliveTreatStream T State}
         [] sayMove(ID Direction)|T then NewState in  %% Ignored
             {System.show 'Player'#State.id.id#'received'#sayMove(ID Direction)}
-            {System.show 'Player'#State.id.id#'before enemies:'#State.enemies}
             NewState={HandleSayMove State State.enemies sayMove(ID Direction) nil}
-            {System.show 'Player'#State.id.id#'after enemies:'#State.enemies}
             {AliveTreatStream T NewState}
         [] isDead(Answer)|T then 
             Answer=false
@@ -396,9 +393,11 @@ define
         [] sayDamageTaken(ID Damage LifeLeft)|T then %% Ignore
             {System.show 'Player'#State.id.id#'received'#sayDamageTaken(ID Damage LifeLeft)}
             {AliveTreatStream T State}
-        [] sayDeath(ID)|T then NewState DeadEnemy in %% Ignore
+        [] sayDeath(ID)|T then NewState RemovedDeadEnemy in %% Ignore
+            RemovedDeadEnemy={List.filter State.enemies fun{$ Enemy} Enemy.idNum \= ID.id end}
+            NewState={NewRec State enemies RemovedDeadEnemy}
             {System.show 'Player'#State.id.id#'received'#sayDeath(ID)}
-            {AliveTreatStream T State}
+            {AliveTreatStream T NewState}
         end
     end
 
@@ -407,7 +406,7 @@ define
         elseif Count==MyIDNum then 
             {InitEnemies MyIDNum Count-1 Acc} 
         else NewEnemy in 
-            NewEnemy=enemy(idNum:Count history:nil alive:true)
+            NewEnemy=enemy(idNum:Count history:nil)
             {InitEnemies MyIDNum Count-1 NewEnemy|Acc} 
         end
     end

Player020Random.oz

@@ -161,7 +161,7 @@ define
         of nil then 
             ID=State.id Mine=null
             State
-        elseif {OS.rand} mod 5 \= 0 then MineToExplode={GetRandomElement State.placedMines} in 
+        elseif {OS.rand} mod 3 \= 0 then MineToExplode={GetRandomElement State.placedMines} in 
             ID=State.id Mine=MineToExplode
             {NewRec State placedMines {List.subtract State.placedMines MineToExplode}}
         else