test6.txt

Main =
{
	$call = { id = 0 }
	# thread num set?
	# total thread num set?
} 

Test = { x = { y = { z = { 1 3 }  5 4 3 } w = 1 a = { 7 3  } } k = 1 }
Test = { x = { y = 1 x = 5 w = 0 } k = 0 } # "test test	test  !!" }
Test2 = { { no = BBB } }
x = 0 #

Event =
{
	id = 0

	$local = { x y }

	#$remove = { /Test/x }
	#check /./x -> EQ
	$insert2 = { dir = { /Test/x } value = { { n = { 1 } } { m = 2 } } condition = { EQ = { w / /./x ~ 0 } } }

	$assign_local = { dir = { $local.y } value = { y } }

	$assign = { $local.x value ={ $concat = { Test2/$ut $concat = { 0 /no } } } }
	$assign_global = { dir = { $concat ={ / $local.x } } value = { CCC } condition = { TRUE } }
	$assign_global = { dir = { $concat ={ / $local.x } } value = { CCCA } condition = { TRUE } }
	$print = { value = { /Test2/$ut0/no } } # chk! $ut0 - todo/done list? cf) @ + dir
	$print = { value = { \n } }

	# $module = { value = { "test5.txt" } value = { input = 5 } }
	$register_module = { name = { "test5.txt" } }
	
	
	$call_registered_module = { name = { "test5.txt" } value=  { input=/./x  } }
	$print = { value = { $return_value = { } } }
	$print = { value = { \n } }

	$call_registered_module = { name = { "test5.txt" } value=  { input = 6 } }

	$print = { value = { $return_value = { } } }
	$print = { value = { \n } }
	
	$print = { value = { $size2 = { $concat = { / $concat = { Test/ x/y } } } } }
	$print = { value = { \n } }

	#$print2 = { value = { /Test } }
	#$print = { value = { \n } }

	$sort = { value = { /Test/x } }

	#$print2 = { value = { /Test } }
	#$print = { value = { \n } }

	$print = { value = { "-----------------" } }
	$print = { value = { \n } }
	$print = { str = {  "TEST " } }
	$print = { value = { $get = { $concat_all = { @/$/$. "x" /y } } } } # $‹š¹®¿¡  @¸¦ Ãß°¡?, $ : any, all.  
											# $."[0-9]" - regular expression?
	$print = { value = { \n } }
	
	$print2 = { value = { / } }
	$print = { value = { \n } }

	$make = { /eu4Game }
									# input.eu4
	#$fast_load_only_data = 
	$load_only_data = { fileName = { "input.eu4" } dir = { eu4Game } } # input.txt or input2.txt
	$print = { value= { "load_only_data end" } }
	$print = { value = { \n } }
	

	$_getch = { }
	#$_getch = { }
	#$replace_item = { 
	#	var = { date }
	#	val = { 1821.1.1 }
	#	condition = { 
	#		COMP> = { date / 1821.1.1 ~ 0 }
	#	}
	#	start_dir = { /eu3Game }
	#}
	#$print = { value= { "replace_item end" } }
	#$print = { value = { \n } }

	#$remove_usertype_total = {
	#	ut_name = { history }
	#	condition = {
	#		TRUE
	#	}
	#	start_dir = { /eu3Game }
	#}
	#$print = { value= { "remove_usertype_total end" } }
	#$print = { value = { \n } }

	#$call = { id = replaceA option = USE_THREAD }
	#$call = { id = replaceB option = USE_THREAD }
	#$wait = { }
	
	$replace_datatype1_2 = {
		#rgx = { "^[0-9]+\.[0-9]+\.[0-9]+$" }
		#val = { @$eval = { " $concat = { /~~/university test! } " } }  # using @/~~
		#rgx = { "[0-9]+\.[0-9]+" }
		rgx = { "\bbase_tax\b" } # "[a-zA-Z0-9_]+" }
		# ToDo - condition == TRUE, then chk val! # /./name? 
		# ToDo - cf) empty -> "/ /" ? and ///test ??  ~~/test / ? chk name that is empty.
		# ToDo - condition - no first ToBool4!
		
		#val = { @$eval = { " $concat = { /~~/university test! } " } } # using @/~~
		
		
													### now.var? if var is empty!! - then err -> use { $getItemValue = { /// } 
		val = { $event_result = { id = { test } x = { $get_item_value2 = { /// } } y = 2.0 } } #{ $get = { now.~~ } } y = 2.0 } }
		#val = { @$eval = { "$concat_all = { $add = { 2.700 /./~~ } chk_base_tax  /./~~ } " } } # test??
		
		#val = { $concat_all = { $add = { 2.700 /./~~ } chk_base_tax  /./~~ } }
		condition = { # 
			#REGEX = { ~~ ~ "^1821\.1\.1$" ~ 0 } # option : 0, 1, 2 ?? - chk!!
			AND = {
				EQ = { ~~ ~ base_tax ~ 1 } # any
				COMP> = { ~~ /$/// 5.000 ~ 0 } # 1 vs 1?? chk!! # /$it/// ?
					#    /// $it ??
			}
		}
		
		val = { $event_result = { id = { test } x = { $get_item_value2 = { /// } } y = 1.0 } } # $get = { now.~~ } } y = 1.0 } }
		#val = { @$eval = { " $concat_all = { $add = { 1.000 /./~~ } chk_base_tax  /./~~ } " } }
		#val = { $concat_all = { $add = { 2.700 /./~~ } chk_base_tax  /./~~ } }
		condition = {
			#REGEX = { ~~ ~ "^1821\.1\.1$" ~ 0 } # option : 0, 1, 2 ?? - chk!!
			AND = { 
				EQ = { ~~ ~ base_tax ~ 1 }
				COMP< = { ~~ /$/// 5.000 ~ 0 } 
			}
		}
		start_dir = { /eu4Game/provinces/$/history/ }
		recursive = { FALSE }
	 }
	$print = { val = { "change end" } }
	$print = { val = { \n } }
	$call = { id = save } #option = USE_THREAD }
	$call = { id = save2 } #option = USE_THREAD }
	#$wait = { }
	
	$_getch = { }
}

Event = 
{
	id = replaceA
	
	$replace_datetype = {
		val = { 1821.1.1 }
		condition = { 
			COMP> = { ~~ ~ 1821.1.1 
			~ 0 }
		}
		start_dir = { /eu4Game }
	}
	$print = { value= { "replace_datetypeA end" } }
	$print = { value = { \n } }

	$replace_datetype = { 
		val = { 1821.1.1 }
		condition = {
			COMP> = { ~~ / 1821.1.1 ~ 0 } 
		}
		start_dir = { /eu4Game }
	}
	$print = { value = { "replace_datetypeB end" } }
	$print = { value = { \n } }
}

Event = 
{
	id = replaceB

	$replace_datetype2 = { 
		val = { 1821.1.1 }
		condition = {
			COMP> = { ~~ ~ 1821.1.1 ~ 0 } 
		}
		start_dir = { /eu4Game }
	}
	$print = { value = { "replace_datetypeC end" } }
	$print = { value = { \n } }
}

Event =
{
	id = save
	# option 3 ?
	$save_data_only2 = { dirName = { eu4Game } fileName = { "save1.eu4" } option = { 1 } } # 1 - eu4 style? 2 - general style? 3 - json style
	
	$print = { value = { "save_data_end" } }
	$print = { value = { \n } }
}
Event = 
{
	id = save2
	#$save
	$save_data_only2 = { dirName= { eu4Game } fileName = { "save2.txt" } option = { 3 } } 
	# 1 - eu4 style? 2 - general style? 3 =- json
	$print = { value = { "save_end" } }
	$print = { value = { \n } }
}

Event = {
	id = test
	
	$parameter = { x y }
	
	$return = { $concat_all = { $add = { $parameter.y $parameter.x }  chk_base_tax $parameter.x } }  
}