morechoice/morechoice.php

   1 <?php
   2 /**
   3  * Name: More Choice
   4  * Description: Additional gender/sexual preference/marital status options
   5  * Version: 1.0
   6  * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
   7  *    - who takes no responsibility for any additional content which may appear herein
   8  *
   9  */
  10
  11
  12 function morechoice_install() {
  13
  14         register_hook('gender_selector', 'addon/morechoice/morechoice.php', 'morechoice_gender_selector');
  15         register_hook('sexpref_selector', 'addon/morechoice/morechoice.php', 'morechoice_sexpref_selector');
  16         register_hook('marital_selector', 'addon/morechoice/morechoice.php', 'morechoice_marital_selector');
  17         register_hook('poke_verbs', 'addon/morechoice/morechoice.php', 'morechoice_poke_verbs');
  18
  19 }
  20
  21
  22 function morechoice_uninstall() {
  23
  24         unregister_hook('gender_selector', 'addon/morechoice/morechoice.php', 'morechoice_gender_selector');
  25         unregister_hook('sexpref_selector', 'addon/morechoice/morechoice.php', 'morechoice_sexpref_selector');
  26         unregister_hook('marital_selector', 'addon/morechoice/morechoice.php', 'morechoice_marital_selector');
  27         unregister_hook('poke_verbs', 'addon/morechoice/morechoice.php', 'morechoice_poke_verbs');
  28
  29 }
  30
  31 // We aren't going to bother translating these to other languages.
  32
  33 function morechoice_gender_selector($a,&$b) {
  34         if($a->config['system']['language'] == 'en') {
  35                 $b[] = 'Androgyne';
  36                 $b[] = 'Bear';
  37                 $b[] = 'Bigender';
  38                 $b[] = 'Cross dresser';
  39                 $b[] = 'Drag queen';
  40                 $b[] = 'Eunuch';
  41                 $b[] = 'Faux queen';
  42                 $b[] = 'Gender fluid';
  43                 $b[] = 'Kathoey';
  44                 $b[] = 'Lady';
  45                 $b[] = 'Lipstick lesbian';
  46                 $b[] = 'Metrosexual';
  47                 $b[] = 'Monk';
  48                 $b[] = 'Nun';
  49                 $b[] = 'Soft butch';
  50                 $b[] = 'Stone femme';
  51                 $b[] = 'Tomboy';
  52                 $b[] = 'Transman';
  53                 $b[] = 'Transwoman';
  54                 $b[] = 'Transvesti';
  55                 $b[] = 'Trigender';
  56                 $b[] = 'Can\'t remember';
  57                 $b[] = 'Hard to tell these days';
  58         }
  59 }
  60
  61 function morechoice_sexpref_selector($a,&$b) {
  62         if($a->config['system']['language'] == 'en') {
  63                 $b[] = 'Girls with big tits';
  64                 $b[] = 'Millionaires';
  65                 $b[] = 'Guys with big schlongs';
  66                 $b[] = 'Easy women';
  67                 $b[] = 'People with impaired mobility';
  68                 $b[] = 'Amputees';
  69                 $b[] = 'Statues, mannequins and immobility';
  70                 $b[] = 'Pain';
  71                 $b[] = 'Trans men';
  72                 $b[] = 'Older women';
  73                 $b[] = 'Asphyxiation';
  74                 $b[] = 'In public';
  75                 $b[] = 'In danger';
  76                 $b[] = 'Pretending to be male';
  77                 $b[] = 'Pretending to be female';
  78                 $b[] = 'Breats';
  79                 $b[] = 'Scat';
  80                 $b[] = 'Crying';
  81                 $b[] = 'Nappies/Diapers';
  82                 $b[] = 'Trees';
  83                 $b[] = 'Vomit';
  84                 $b[] = 'Murder';
  85                 $b[] = 'Fat people';
  86                 $b[] = 'Feet';
  87                 $b[] = 'Covered in insects';
  88                 $b[] = 'Turning a human being into furniture';
  89                 $b[] = 'Elderly people';
  90                 $b[] = 'Transgender people';
  91                 $b[] = 'Criminals';
  92                 $b[] = 'Stealing';
  93                 $b[] = 'Breast milk';
  94                 $b[] = 'Immersing genitals in liquids';
  95                 $b[] = 'Giants';
  96                 $b[] = 'Masochism';
  97                 $b[] = 'Cars';
  98                 $b[] = 'Menstruation';
  99                 $b[] = 'Mucus';
 100                 $b[] = 'Obscene language';
 101                 $b[] = 'Noses';
 102                 $b[] = 'Navels';
 103                 $b[] = 'Corpses';
 104                 $b[] = 'Smells';
 105                 $b[] = 'Buttocks';
 106                 $b[] = 'Nonliving objects';
 107                 $b[] = 'Sleeping people';
 108                 $b[] = 'Urination';
 109                 $b[] = 'Eating people';
 110                 $b[] = 'Being eaten';
 111                 $b[] = 'Animals';
 112                 $b[] = 'I\'d rather just have some chocolate';
 113         }
 114 }
 115
 116 function morechoice_marital_selector($a,&$b) {
 117         if($a->config['system']['language'] == 'en') {
 118                 $b[] = 'Married to my job';
 119                 $b[] = 'Polygamist';
 120                 $b[] = 'Half married';
 121                 $b[] = 'Living in the past';
 122                 $b[] = 'Pretending to be over my ex';
 123                 $b[] = 'Hurt in the past';
 124                 $b[] = 'Wallowing in self-pity';
 125         }
 126 }
 127
 128 function morechoice_poke_verbs($a,&$b) {
 129         $b['bitchslap'] = array('bitchslapped', t('bitchslap'), t('bitchslapped'));
 130         $b['shag'] = array('shag', t('shag'), t('shagged'));
 131
 132
 133 }