procgen  Check-in [574e682167]

Overview
Comment:fix likelihood
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 574e68216769308bbc4e95fc9976e9b750c11654e482d641887f326849dde437
User & Date: velartrill on 2018-11-20 21:02:50
Other Links: manifest | tags
Context
2018-11-21
11:36
overhaul drugbot check-in: 7cdf7c1a3d user: lexi tags: trunk
2018-11-20
21:02
fix likelihood check-in: 574e682167 user: velartrill tags: trunk
20:52
fix sam check-in: 44f5ce5d15 user: velartrill tags: trunk
Changes

Modified botsoc.scm from [eea7ee34de] to [e3d4e11eaf].

331
332
333
334
335
336
337
338
339
340
341
342
	  (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")







|




331
332
333
334
335
336
337
338
339
340
341
342
	  (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")