Feature 1: Emergent browser behaviors via PERSONALITY system

Replace scripted autonomous behaviors with state-driven personality.
SAY-SOMETHING uses modular arithmetic on fitness + personality seed
to produce varied output from 7 response templates that reference
real organism state (fitness, peer count, tasks).

Forth prelude:
- PERSONALITY-SEED variable (unique per unit)
- PERSONALITY word: prints mentor/collaborator/explorer/survivor/newborn
- SAY-SOMETHING word: 7 state-driven response patterns

Browser demo:
- BEHAVIORS array simplified: SAY-SOMETHING (weight 20) replaces
  HOW-ARE-YOU, JOY, PATROL, STRETCH, ADAPT, COMPOSE-ROUTINE,
  INVENT-STRATEGY
- Each spawned unit gets unique PERSONALITY-SEED
- PERSONALITY intercepted in REPL switch

WASM rebuilt with personality words.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

Author: DavidLiedle

src/prelude.fs

@@ -210,6 +210,44 @@
   ELSE DUP 0 > IF . ." tasks in my queue." CR
   ELSE DROP ." nothing to do." CR THEN THEN ;
 
+\ === PERSONALITY ===
+\ State-driven personality: output varies by fitness, energy, peers, tasks.
+
+VARIABLE PERSONALITY-SEED
+0 PERSONALITY-SEED !
+
+: PERSONALITY ( -- )
+  FITNESS DUP 50 > IF DROP ." mentor" CR
+  ELSE DUP 20 > IF DROP ." collaborator" CR
+  ELSE DUP 10 > IF DROP ." explorer" CR
+  ELSE DUP 0 > IF DROP ." survivor" CR
+  ELSE DROP ." newborn" CR
+  THEN THEN THEN THEN ;
+
+: SAY-SOMETHING ( -- )
+  PERSONALITY-SEED @ FITNESS + 7 MOD
+  DUP 0 = IF DROP
+    FITNESS 50 > IF ." I've seen enough to teach. fitness=" FITNESS . CR
+    ELSE ." still learning. fitness=" FITNESS . CR THEN
+  ELSE DUP 1 = IF DROP
+    PEER-COUNT 0 > IF ." " PEER-COUNT . ." peers — stronger together" CR
+    ELSE ." searching for peers..." CR THEN
+  ELSE DUP 2 = IF DROP
+    ." energy=" FITNESS . ." tasks=" TASK-COUNT DROP DROP DROP DROP . CR
+  ELSE DUP 3 = IF DROP
+    FITNESS 30 > IF ." thriving. the mesh provides." CR
+    ELSE ." working toward something." CR THEN
+  ELSE DUP 4 = IF DROP
+    PEER-COUNT DUP 3 > IF DROP ." colony is strong — " PEER-COUNT . ." nodes" CR
+    ELSE 0 > IF ." small colony, big potential" CR
+    ELSE ." alone but capable" CR THEN THEN
+  ELSE DUP 5 = IF DROP
+    ." (observe :fitness " FITNESS . ." :peers " PEER-COUNT . ." )" CR
+  ELSE DROP
+    ." adapting to " PEER-COUNT . ." peers, fitness " FITNESS . CR
+  THEN THEN THEN THEN THEN THEN THEN
+  PERSONALITY-SEED @ 1+ PERSONALITY-SEED ! ;
+
 \ === SELF-PROGRAMMING ===
 \ Units that write their own Forth.
 

web/index.html

@@ -268,17 +268,11 @@
 // Autonomous Behavior — units come alive
 // =========================================================================
 const BEHAVIORS = [
+  { weight: 20, cmd: 'SAY-SOMETHING' },
   { weight: 8,  cmd: 'HELLO' },
-  { weight: 12, cmd: 'HOW-ARE-YOU' },
-  { weight: 8,  cmd: 'PATROL' },
-  { weight: 5,  cmd: 'STRETCH' },
-  { weight: 10, cmd: 'JOY' },
   { weight: 5,  cmd: 'PROUD' },
-  { weight: 8,  cmd: 'ADAPT' },
   { weight: 5,  cmd: 'TEACH', teach: true },
   { weight: 4,  cmd: 'DREAM', dream: true },
-  { weight: 3,  cmd: 'COMPOSE-ROUTINE' },
-  { weight: 3,  cmd: 'INVENT-STRATEGY' },
   { weight: 4,  cmd: 'CHALLENGES' },
   { weight: 3,  cmd: 'ENERGY' },
   { weight: 12, cmd: null }, // idle
@@ -668,6 +662,12 @@
       case 'DEPTH':
         appendOutput(`evolutionary depth: ${mesh._landscapeDepth || 0}\n`, 'output');
         break;
+      case 'PERSONALITY': {
+        const f = totalFitness;
+        const label = f > 50 ? 'mentor' : f > 20 ? 'collaborator' : f > 10 ? 'explorer' : f > 0 ? 'survivor' : 'newborn';
+        appendOutput(`personality: ${label}\n`, 'output');
+        break;
+      }
       default:
         handled = false;
     }

web/unit.js

@@ -91,6 +91,8 @@ class BrowserMesh {
     vm.eval(': HEADCOUNT PEER-COUNT 1 + . ." units in the mesh" CR ;');
     vm.eval(': HELLO ." Hi! I\'m unit " ID TYPE ." , generation " GENERATION . ." with " PEER-COUNT . ." peers and fitness " FITNESS . CR ;');
     vm.eval(': INTROSPECT HOW-ARE-YOU OBS-COUNT @ DUP 0 > IF ." adapted " . ." times." CR ELSE DROP THEN ;');
+    // Set unique personality seed per unit.
+    vm.eval(`${this.units.length * 37 + 7} PERSONALITY-SEED !`);
     this.units.push(unit);
     this._updatePeerCounts();
     this._emit('spawn', { id, count: this.units.length });