and there you half it folks

rule/chat.ss

@@ -0,0 +1,108 @@
+; focus on the main sequence of actual rules going off
+
+(define-rules chaturanji
+
+    (init-board:
+	((🜃♗ 🜃♙ _ _ 🜁♚ 🜁♜ 🜁♞ 🜁♝)
+	(🜃♘ 🜃♙ _ _ 🜁♟ 🜁♟ 🜁♟ 🜁♟)
+	(🜃♖ 🜃♙ _ _ _ _ _ _)
+	(🜃♔ 🜃♙ _ _ _ _ _ _)
+	(_ _ _ _ _ _ 🜂♟ 🜂♚)
+	(_ _ _ _ _ _ 🜂♟ 🜂♜)
+	(🜄♙ 🜄♙ 🜄♙ 🜄♙ _ _ 🜂♟ 🜂♞)
+	(🜄♗ 🜄♘ 🜄♖ 🜄♔ _ _ 🜂♟ 🜂♝)))
+	;; ← ↑ → ↓ ↖ ↗ ↘ ↙
+	;; ■ □
+    (turns
+	(pass)
+	  (define (die-roll)
+	    (let ((die (+ 1 (random 6)))
+		(die2 (+ 1 (random 6))))	    #;(second-die)
+		(list die die2)))
+	;	(clockwise-turnshift)
+	(moves
+	  (🜃
+	    (♔
+		; 地王's asana is D1 (earth quadrant)
+		(((♔ ■/_))
+		((_ ♔ ))
+		(((? ■/_)
+		((? ♔)
+		 
+		)
+	; or
+	    (♙ ; PEON
+		(((♙ _))
+		 ((_ ♙)))
+		(((? ♙ _ _ ? ? ? ?))
+		 ((? _ ♙ _ ? ? ? ?)))
+		;; capture logic ↗ ↘ 
+		) ; /padati
+	; ... or or
+	;; make this logic clearer: (king or pawn) or (rest of pieces)
+	    (♖ #;hasti
+		(((♖ _ → ■/_))
+		 ((_ _ → ♖))
+		  (movement: all-directions))) #;/hasti
+	    (♘ #;ashva
+		(((♘ ? ? )
+		  (? ? ■/_))
+		((_ ? ?)
+		 (? ? ♘))
+		(movement:
+		all-directions (all-directions flip-horizontally)))) #;/ashva
+	    (♗ #;ship
+		(((? ? … ■/_)
+		  (⁝ ⁝ ↗  ⁝ )
+		  (? _ … ? )
+		  (♗ ? … ? ))
+		;; todo... add jump as well, ship moves 2 spaces
+;this		 ((? ? … ♗ )
+;may		   (⁝ ⁝ ↗  ⁝)
+;be		  (? _ … ?)
+;unnecessary		  (_ ? … ?))
+		(movement: all-directions))) #;/ship
+	    ); bhumi(player(1))
+	    (🜁 (transform 🜃
+		(♙ ♟) (♔ ♚) (♖ ♜) (♘ ♞) (♗ ♝)
+		(transformations:
+		flip-clockwise))) ; vayu raj
+	    (🜂 (transform 🜁
+		(♙ ♟) (♔ ♚) (♖ ♜) (♘ ♞) (♗ ♝)
+		(transformations:
+		flip-clockwise))) ; tejas raj
+	    (🜄 (transform 🜂
+		(♙ ♟) (♔ ♚) (♖ ♜) (♘ ♞) (♗ ♝)
+		(transformations:
+		flip-clockwise))) ; apas raj
+	) ; moves
+	(order-of-play: 🜃 🜁 🜂 🜄)
+
+    ) ; turns
+
+    (shatpada
+	(let ((player ; end of rank
+	)))	; and has captured, (check bank)
+	);/promo
+    (sinhasana
+	(let ((enemy-raj asana (if (equal?
+	))))); lands on the raj asana
+	;capture
+	;; remove enemy piece and add to 'bank'
+	;freeze
+	(let ((ally-raj asana (if (equal?
+	))))); lands on the ally's raj asana
+	;capture
+	;control pieces {or freeze}
+	)
+    (vrihannauka
+	(let ((enemy-ship enemy-ship ally-ship asana (if (equal?
+	))))) ; 'ship triumph' when a square occurs
+    (chaturanga #; occurs
+	(let ((enemy-raj asana #; blah
+	)))
+	); chaturanji occurs
+	
+
+);define-rules chaturanji
+