procgen: Diff

Differences From Artifact [eea7ee34de]:

File botsoc.scm — part of check-in [93b72b5a88] at 2018-11-20 20:40:31 on branch trunk — checkmate, athiests! (user: lexi, size: 12109) [annotate] [blame] [check-ins using]

To Artifact [e3d4e11eaf]:

File botsoc.scm — part of check-in [574e682167] at 2018-11-20 21:02:50 on branch trunk — fix likelihood (user: velartrill, size: 12108) [annotate] [blame] [check-ins using]

	  (i (punct) " checkmate " (atheists) (end-punct))
	  (i (punct) " checkmate" (punct) " " (atheists) (end-punct))
	  (i (punct) " #checkmate" (atheists))
	  (i (punct) " #CheckmateAtheists")
	  (i (punct) " #CheckmateAthiests"))

(define (checkmate-athiests i)
	(if (eqv? (random-integer 20) 0)
		(checkmate-atheists i) ; else
		i))

(print (checkmate-athiests (statement (ideology))) "\n")

	  (i (punct) " checkmate " (atheists) (end-punct))
	  (i (punct) " checkmate" (punct) " " (atheists) (end-punct))
	  (i (punct) " #checkmate" (atheists))
	  (i (punct) " #CheckmateAtheists")
	  (i (punct) " #CheckmateAthiests"))

(define (checkmate-athiests i)
	(if (eqv? (random-integer 9) 0)
		(checkmate-atheists i) ; else
		i))

(print (checkmate-athiests (statement (ideology))) "\n")