Add new scenario (opening of canal seine nord) + update way to block/unblock road

models/Parameters.gaml

@@ -22,6 +22,7 @@ global {
 	 */
 	bool allowScenarioAttractiveness <- false;
 	bool allowScenarioBlockRoads <- false;
+	bool allowScenarionCanalSeineNord <- false;
 
 	/*
 	 * Some variables and functions to call some reflex

models/Perturbator.gaml

@@ -14,15 +14,15 @@ global {
 			if(blocked){
 				// Need to unblock the road
 				blocked <- false;
-				ask Vehicle[0] {
-					do unblock_road road:myself;
+				ask forwardingAgent {
+					do unblock_edge edge:myself;
 				}
 			}
 			else {
 				// Need to block the road
 				blocked <- true;
-				ask Vehicle[0] {
-					do block_road road:myself;
+				ask forwardingAgent {
+					do block_edge edge:myself;
 				}
 			}
 		}
@@ -128,8 +128,8 @@ global {
 					if(!Road[j].blocked){
 						// Need to block the road
 						Road[j].blocked <- true;
-						ask Vehicle[0] {
-							do block_road road:Road[j];
+						ask forwardingAgent {
+							do block_edge edge:myself;
 						}
 					}
 				}
@@ -149,4 +149,16 @@ global {
 			do block_some_roads(roads);
 		}
 	}
+
+	reflex scenario_canal_seine_nord when: allowScenarionCanalSeineNord {
+		if(cycle = 1000){
+			ask RiverLine {
+				if(is_new = 1){
+					ask forwardingAgent {
+						do unblock_edge edge:myself;
+					}
+				}
+			}
+		}
+	}
 }
\ No newline at end of file