Pasted

diff --git a/docs/exult_intrinsics.txt b/docs/exult_intrinsics.txt
index 5c75d1ad..b78cbf96 100644
--- a/docs/exult_intrinsics.txt
+++ b/docs/exult_intrinsics.txt
@@ -2637,6 +2637,10 @@ int UI_part_of_day()
         MIDNIGHT    = 0    EARLY        = 1    DAWN       = 2    MORNING    = 3
         NOON        = 4    AFTERNOON    = 5    EVENING    = 6    NIGHT      = 7
 
+UI_get_day()                                                        [Exult]
+
+    returns numeber of gameplay days.
+
 UI_nap_time(object obj)
 obj->nap_time()
 
diff --git a/usecode/bgintrinsics.h b/usecode/bgintrinsics.h
index ac807cd5..7390f0a4 100644
--- a/usecode/bgintrinsics.h
+++ b/usecode/bgintrinsics.h
@@ -239,7 +239,7 @@
    USECODE_INTRINSIC_PTR(fade_palette_sleep),            // 0xd7
    USECODE_INTRINSIC_PTR(close_gumps2),                  // 0xd8
    USECODE_INTRINSIC_PTR(close_gump2),                   // 0xd9
-   USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xda
+   USECODE_INTRINSIC_PTR(get_day),                       // 0xda (Exult)
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdb
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdc
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdd
diff --git a/usecode/intrinsics.cc b/usecode/intrinsics.cc
index 066baeb2..eeec127b 100644
--- a/usecode/intrinsics.cc
+++ b/usecode/intrinsics.cc
@@ -1014,6 +1014,12 @@ USECODE_INTRINSIC(part_of_day) {
    return u;
 }
 
+USECODE_INTRINSIC(get_day) {
+   ignore_unused_variable_warning(num_parms, parms);
+   Usecode_value u(gclock->get_day());
+   return u;
+}
+
 USECODE_INTRINSIC(get_alignment) {
    ignore_unused_variable_warning(num_parms);
    // Get npc's alignment.
diff --git a/usecode/sibetaintrinsics.h b/usecode/sibetaintrinsics.h
index e07bfe81..204dbfbd 100644
--- a/usecode/sibetaintrinsics.h
+++ b/usecode/sibetaintrinsics.h
@@ -241,7 +241,7 @@
    USECODE_INTRINSIC_PTR(start_blocking_speech),         // 0xd7
    USECODE_INTRINSIC_PTR(close_gumps2),                  // 0xd8
    USECODE_INTRINSIC_PTR(close_gump2),                   // 0xd9
-   USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xda
+   USECODE_INTRINSIC_PTR(get_day),                       // 0xda (Exult)
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdb
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdc
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdd
diff --git a/usecode/siintrinsics.h b/usecode/siintrinsics.h
index f9241db1..8755cd8f 100644
--- a/usecode/siintrinsics.h
+++ b/usecode/siintrinsics.h
@@ -243,7 +243,7 @@
    USECODE_INTRINSIC_PTR(start_blocking_speech),         // 0xd8
    USECODE_INTRINSIC_PTR(close_gumps2),                  // 0xd9
    USECODE_INTRINSIC_PTR(close_gump2),                   // 0xda
-   USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdb
+   USECODE_INTRINSIC_PTR(get_day),                       // 0xdb (Exult)
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdc
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xdd
    USECODE_INTRINSIC_PTR(UNKNOWN),                       // 0xde
diff --git a/usecode/ucinternal.h b/usecode/ucinternal.h
index c020ab20..bb4979b0 100644
--- a/usecode/ucinternal.h
+++ b/usecode/ucinternal.h
@@ -246,6 +246,7 @@ class Usecode_internal : public Usecode_machine {
    USECODE_INTRINSIC_DECL(game_minute);
    USECODE_INTRINSIC_DECL(get_npc_number);
    USECODE_INTRINSIC_DECL(part_of_day);
+   USECODE_INTRINSIC_DECL(get_day);
    USECODE_INTRINSIC_DECL(get_alignment);
    USECODE_INTRINSIC_DECL(set_alignment);
    USECODE_INTRINSIC_DECL(move_object);