procgen  Diff

Differences From Artifact [96e435dd0f]:

• File sextbot.ml — part of check-in [1521429541] at 2018-09-24 23:18:14 on branch trunk — initial commit (user: lexi, size: 30834) [annotate] [blame] [check-ins using]

To Artifact [c638601e9b]:

• File sextbot.ml — part of check-in [bc0dcc5de1] at 2019-01-06 07:47:34 on branch trunk — update sex (user: lexi, size: 30919) [annotate] [blame] [check-ins using]

   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 ())))