The "global horror level" is defined as follows:

1. Default is 1.
2. If AC is active, that is boosted to 10
3. If the cataclysm has hit, it is 20
4. If it is the turn before the cataclysm hit, it is 10
5. If it is 2 turns before the cataclysm hits AND AC is not up, it is 5

Spawning a horror:

1. Calculate an upgrade value.
   1. By default this is 15
   2. If a province is involved, set this to (DRAIN scale in the province + 3) * 5
   3. Add the haunted unit's horror marks * 20 to this
   4. If the upgrade value is less than 500, the upgrade value is set to 500 + floor((upgrade value -500) / 5) - Get the global horror level. If it is 1, consider it as if it were 3. Otherwise, set upgrade value to (upgrade value + floor(horror level / 2)) * floor(horror level / 2)
2. If asking for a lesser horror:
   1. Get a random number 0-999
   2. If upgrade value ⇐ this random number, you get a lesser horror of some description, otherwise, continue as if you asked for a greater horror
3. If looking for a greater horror:
   1. Greater horror upgrade value = max(global horror level, floor(upgrade level/10))
   2. If greater horror upgrade value ⇐ random number 0-999, make a greater horror, else continue as if asking for a doom horror
4. If looking for a doom horror:
   1. complicated things