Improved export/import variable function (#58)

Author: ComradeFlan

common/scripted_effects/th_scripted_effects_for_generic.txt

@@ -719,46 +719,38 @@ th_enable_transfer_mp_to_sailors_decision = {
 th_export_root_variable_into_foreign = {
 	#This function counts your own variable, which is made for counting, down while increasing the counter variable of $who$
 	#Useful if you need to convert variables from a province scope into a country's variable
-	while = {
-		limit = {
-			check_variable = {
-				which = $root_variable$
-				value = 1
-			}
+	set_variable = {
+		which = $foreign_variable$_transfer
+		which = $root_variable$
+	}
+	$who$ = {
+		set_variable = {
+			which = $foreign_variable$_transfer
+			which = PREV
 		}
-		$who$ = {
-			change_variable = {
-				which = $foreign_variable$
-				value = 1
-			}
-		}
-		subtract_variable = {
-			which = $root_variable$
-			value = 1
+		set_variable = {
+			which = $foreign_variable$
+			which = $foreign_variable$_transfer
 		}
 	}
 }
 
 th_import_foreign_variable_into_root = {
-	while = {
-		limit = {
-			$who$ = {
-				check_variable = {
-					which = $foreign_variable$
-					value = 1
-				}
-			}
+	$who$ = {
+		set_variable = {
+			which = $root_variable$_transfer
+			which = $foreign_variable$
 		}
-		$who$ = {
-			subtract_variable = {
-				which = $foreign_variable$
-				value = 1
+		PREV = {
+			set_variable = {
+				which = $root_variable$_transfer
+				which = PREV
 			}
 		}
-		change_variable = {
-			which = $root_variable$
-			value = 1
-		}
+	}
+	set_variable = {
+		which = $root_variable$
+		which = $root_variable$_transfer
 	}
 }