adds generate-block-age-condition function

src/wallet/rl_wallet/rl.clvm

@@ -10,6 +10,7 @@
     (defconstant AGGREGATE_MODE 2)
     (defconstant CLAWBACK_MODE 3)
     (defconstant AGGSIG 50)
+    (defconstant ASSERT_BLOCK_AGE_EXCEEDS 56)
 
      (defun sha256tree (TREE)
            (if (l TREE)
@@ -58,7 +59,14 @@
                       (create-lock)
                       (create-consolidated))))
 
-    (defun template-block-age () ())
+    (defun >= (a b)
+        (or (> a b)
+            (= a b)))
+
+    (defun generate-block-age-condition  (min_block_time outgoing_amount)
+        (assert (>= (* min_block_time rate_amount)
+                    (* outgoing_amount interval_time))
+            (list ASSERT_BLOCK_AGE_EXCEEDS min_block_time)))
 
     (defun create-change () ())
 
@@ -79,7 +87,7 @@
         (assert (or (= (sha256 parent_parent_id my_puzzlehash parent_amount)
                        my_parent_id)
                     (= origin_id my_parent_id))
-                (list (template-block-age)
+                (list (generate-block-age-condition min_block_time outgoing_amount)
                       (create-change)
                       (template-my-id)
                       (create-new-coin))))