procgen: Check-in [bc0dcc5de1]

Overview

Comment:	update sex
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA3-256:	bc0dcc5de1d2ecb0abfbb0a2526c543da729a96e62925cf52aa6d05f8d48a88f
User & Date:	lexi on 2019-01-06 07:47:34
Other Links:	manifest \| tags

Context

2019-03-25
22:58		port to chicken check-in: 6d97ea8ce6 user: lexi tags: trunk
2019-01-06
07:47		update sex check-in: bc0dcc5de1 user: lexi tags: trunk
07:26		moar opinions check-in: 5f4c94626f user: lexi tags: trunk

Changes

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sextbot.ml from [96e435dd0f] to [c638601e9b].

   518    518   	ppvb (svte "punctur") "with";
   519    519   	ppvb (svte "penetrat") "with";
   520    520   	svb (svt "enter");
   521    521   	phrvb (svt "dial") "up";
   522    522   	phrvb (svt "tweet") "up";
   523    523   	svb ("tweet at","tweets at","tweeting at","tweeted at");
   524    524   	svb (svte "placat");
          525  +	svb (svte "destaliniz");
          526  +	svb ("denazify","denazifies","denazifying","denazified");
   525    527   |]
   526    528   
   527    529   let trverbs = Array.append simple_verbs complex_verbs;;
   528    530   
   529    531   actions' := simple_verbs
   530    532   
   531    533   let trvp (f : form) : string = if Random.int 15 != 0 then ((pick trverbs) f (Some (strn ())))

procgen Check-in [bc0dcc5de1]