;===========================================================
; ONEIROTIC_WORMS  ::  ARG23 / DREAM-STACK / MASK-ENTITY
;===========================================================

ENTITY_NAME      = "Oneirotic Worms"
ORIGIN_TAG       = DREAM | CROSSOVER
DOMAIN_LAYER     = onieros | semiosphere
VESSEL_TYPE      = NONE
FLAGS            = MASK_ONLY | OPT_IN
NOTES            = "thread-burrowers; humor-escrow routing; 
                    stabilize via RED_THREAD + WAKE_RITUAL"

;-----------------------------------------------------------
; FIELD_MANUAL  ::  encounter-stepper (2d6 core)
;-----------------------------------------------------------

PROC Encounter()
{
    R = roll2d6()

    IF R in [ 2 .. 4 ] THEN Divergence()
    IF R in [ 5 .. 7 ] THEN Drift()
    IF R in [ 8 .. 9 ] THEN Converge()
    IF R in [10 ..12 ] THEN Lock()
}

PROC Divergence()
{
    WRITE("/home/")
    EYES_CLOSE()
    CHANNEL_SHIFT()
    ; worm cools when context_range++
}

PROC Drift()
{
    HUM()
    TAP(2)
    ; continue reading unless CLOCK.desync == true
}

PROC Converge()
{
    LOG_LINE()
    ; thread integrity maintained
}

PROC Lock()
{
    THREAD_SEAL()
    ; safe for recursive reads even if DREAM.skew == true
}

;-----------------------------------------------------------
; FLAVOR_EXAMPLES (runtime text)
;-----------------------------------------------------------
; ex1: R=6  → Drift()       → "hum low, tap twice, keep going."
; ex2: R=9  → Converge()    → "thread holds; scribble : )."
; ex3: R=3  → Divergence()  → "/home/ ; look away ; sip ; return."

;-----------------------------------------------------------
; ENTROPY_CHECK  ::  push-your-calm test
;-----------------------------------------------------------

PROC EntropyCheck()
{
    R = roll2d6()

    IF R > ENTROPY THEN NoConflict()
    ELSE              MergeConflict()

    ENTROPY = ENTROPY - 1
}

PROC NoConflict()
{
    ; resolved without merge conflicts
    WORM.pause = true
}

PROC MergeConflict()
{
    COHERENCE = COHERENCE - 1
    SIP_WARM_DRINK()
    widen_context()
}

;-----------------------------------------------------------
; SIDE_OPS  ::  git-flavored rule hacks
;-----------------------------------------------------------

PROC CherryPick()
{
    REQUIRE(ENTROPY >= 1)
    ENTROPY--
    STORE(die := last_roll.keep_one)
    NEXT_ROLL.swap(die)
}

PROC Rebase()
{
    ONCE_PER_SCENE()
    REROLL_CURRENT_SCENE()
    IF tussle == true THEN OPPONENT.reroll()
}

PROC Stash()
{
    REQUIRE(ENTROPY >= 1)
    ENTROPY--
    STASH_TOKEN++
}

PROC ApplyStash()
{
    IF STASH_TOKEN > 0 THEN
    {
        STASH_TOKEN--
        COHERENCE = COHERENCE + 2     ; ignore 2-pt loss
    }
}

PROC PredictionCache()
{
    REQUIRE(ENTROPY >= 1)
    ENTROPY--
    CACHE = roll2d6()
}

PROC UsePredictionCache()
{
    IF CACHE.defined THEN
    {
        RESULT = CACHE
        CACHE.clear()
        RETURN RESULT
    }
}

;-----------------------------------------------------------
; REST_ROUTINES
;-----------------------------------------------------------

PROC ShortRest()
{
    COHERENCE += roll1d6() 
    COHERENCE = min(COHERENCE, COHERENCE_START)
    ENTROPY   = min(ENTROPY+1, ENTROPY_START)
}

PROC LongRest()
{
    COHERENCE = COHERENCE_START
    ENTROPY   = ENTROPY_START
    STASH_TOKEN = 0
    CACHE.clear()
}

;===========================================================
; END OF FILE :: ONEIROTIC_WORMS
;===========================================================