CitadelGroupSelect

$${

// Default group
@&ctdefault = ""

@&ctgrouparray[0] = %@&ctdefault%

join(",","@&ctgrouparray",&ctlist);
replace(&ctlist," ",",");

// Prompt list
PROMPT(@&fortifygroup,"$$[[%&ctlist%]]","Select a Citadel group",true,"%@&ctdefault%")

log("&c Selected &2%@&fortifygroup%");

// Check array for selected group
indexof(@&ctgrouparray,&arraycontainsindex,"%@&fortifygroup%");

// If new group selected, add to array
if(%&arraycontainsindex% = "-1");
	put(@&ctgrouparray,%@&fortifygroup%);
	logto(ctarraylog.txt,"%@&fortifygroup%");
	log("&c put %@&fortifygroup% in group list");
endif;

stop();
}$$