Overview
| Comment: | update sex |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
bc0dcc5de1d2ecb0abfbb0a2526c543d |
| 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
Modified sextbot.ml from [96e435dd0f] to [c638601e9b].
518 519 520 521 522 523 524 525 526 527 528 529 530 531 |
ppvb (svte "punctur") "with";
ppvb (svte "penetrat") "with";
svb (svt "enter");
phrvb (svt "dial") "up";
phrvb (svt "tweet") "up";
svb ("tweet at","tweets at","tweeting at","tweeted at");
svb (svte "placat");
|]
let trverbs = Array.append simple_verbs complex_verbs;;
actions' := simple_verbs
let trvp (f : form) : string = if Random.int 15 != 0 then ((pick trverbs) f (Some (strn ())))
|
> > |
518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 |
ppvb (svte "punctur") "with";
ppvb (svte "penetrat") "with";
svb (svt "enter");
phrvb (svt "dial") "up";
phrvb (svt "tweet") "up";
svb ("tweet at","tweets at","tweeting at","tweeted at");
svb (svte "placat");
svb (svte "destaliniz");
svb ("denazify","denazifies","denazifying","denazified");
|]
let trverbs = Array.append simple_verbs complex_verbs;;
actions' := simple_verbs
let trvp (f : form) : string = if Random.int 15 != 0 then ((pick trverbs) f (Some (strn ())))
|