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    331   	  (i (punct) " checkmate " (atheists) (end-punct))
   332    332   	  (i (punct) " checkmate" (punct) " " (atheists) (end-punct))
   333    333   	  (i (punct) " #checkmate" (atheists))
   334    334   	  (i (punct) " #CheckmateAtheists")
   335    335   	  (i (punct) " #CheckmateAthiests"))
   336    336   
   337    337   (define (checkmate-athiests i)
   338         -	(if (eqv? (random-integer 20) 0)
          338  +	(if (eqv? (random-integer 9) 0)
   339    339   		(checkmate-atheists i) ; else
   340    340   		i))
   341    341   
   342    342   (print (checkmate-athiests (statement (ideology))) "\n")