336_boy 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123
  1. # boy
  2. !'<<$boy>> <<$boybody>> <<$boybod>> <<$boyface>>. <<$boy>> <<$boyClo>>'
  3. !Рандомные мужские имена
  4. Set boynamerand = RAND(1,38)
  5. !Русские имена
  6. if boynamerand = 1: Set $boy = 'Alexander'
  7. if boynamerand = 2: Set $boy = 'Alexey'
  8. if boynamerand = 3: Set $boy = 'Albert'
  9. if boynamerand = 4: Set $boy = 'Anatoly'
  10. if boynamerand = 5: Set $boy = 'Anton'
  11. if boynamerand = 6: Set $boy = 'Arkady'
  12. if boynamerand = 7: Set $boy = 'Andrew'
  13. if boynamerand = 8: Set $boy = 'Boris'
  14. if boynamerand = 9: Set $boy = 'Vadim'
  15. if boynamerand = 10: Set $boy = 'Valentine'
  16. if boynamerand = 11: Set $boy = 'Valery'
  17. if boynamerand = 12: Set $boy = 'Basil'
  18. if boynamerand = 13: Set $boy = 'Victor'
  19. if boynamerand = 14: Set $boy = 'Vitaly'
  20. if boynamerand = 15: Set $boy = 'Vladimir'
  21. if boynamerand = 16: Set $boy = 'Vyacheslav'
  22. if boynamerand = 17: Set $boy = 'Gennady'
  23. if boynamerand = 18: Set $boy = 'George'
  24. if boynamerand = 19: Set $boy = 'Gregory'
  25. if boynamerand = 20: Set $boy = 'Denis'
  26. if boynamerand = 21: Set $boy = 'Eugene'
  27. if boynamerand = 22: Set $boy = 'Yegor'
  28. if boynamerand = 23: Set $boy = 'Ivan'
  29. if boynamerand = 24: Set $boy = 'Igor'
  30. if boynamerand = 25: Set $boy = 'Kirill'
  31. if boynamerand = 26: Set $boy = 'Leonid'
  32. if boynamerand = 27: Set $boy = 'Maxim'
  33. if boynamerand = 28: Set $boy = 'Michael'
  34. if boynamerand = 29: Set $boy = 'Oleg'
  35. if boynamerand = 30: Set $boy = 'Paul'
  36. if boynamerand = 31: Set $boy = 'Peter'
  37. if boynamerand = 32: Set $boy = 'Semen'
  38. if boynamerand = 33: Set $boy = 'Sergey'
  39. if boynamerand = 34: Set $boy = 'Stepan'
  40. if boynamerand = 35: Set $boy = 'Fedor'
  41. if boynamerand = 36: Set $boy = 'Edward'
  42. if boynamerand = 37: Set $boy = 'Yuri'
  43. if boynamerand = 38: Set $boy = 'Jacob'
  44. $namev = $boy
  45. !Внешность
  46. Set boybodyrand = RAND(1,3)
  47. if boybodyrand = 1: Set $boybody = 'high'
  48. if boybodyrand = 2: Set $boybody = 'average growth'
  49. if boybodyrand = 3: Set $boybody = 'small'
  50. Set boybodrand = RAND(1,4)
  51. if boybodrand = 1: Set $boybod = 'thin'
  52. if boybodrand = 2: Set $boybod = 'athletic'
  53. if boybodrand = 3: Set $boybod = 'chunky'
  54. if boybodrand = 4: Set $boybod = 'full'
  55. Set boyfacerand = RAND(1,3)
  56. if boyfacerand = 1: Set $boyface = 'brunet'
  57. if boyfacerand = 2: Set $boyface = 'brown-haired person'
  58. if boyfacerand = 3: Set $boyface = 'blond'
  59. !размер елды
  60. set grdikrand = RAND(0,100)
  61. if grdikrand < 80:
  62. set dick = RAND(12,18)
  63. end
  64. if grdikrand >= 80 and grdikrand < 90:
  65. set dick = RAND(8,12)
  66. end
  67. if grdikrand >= 90:
  68. set dick = RAND(18,25)
  69. end
  70. ! половая сила
  71. set silaVag = RAND(0,2)
  72. !переменная отвечающая за guy
  73. set boyonce = 0
  74. set harakBoy = RAND(0,2)
  75. !Переменные отвечающие за то какие черты нравятся
  76. !Обеспеченность, отвечает за деньги и требования
  77. set finance = RAND(0,2)
  78. if finance = 0:
  79. !нищий гопник или работяга
  80. !проверка по внешности Первичная
  81. if harakBoy = 0: set vneshBoy = RAND(0,2)
  82. if harakBoy = 1: set vneshBoy = RAND(0,4)
  83. if harakBoy = 2: set vneshBoy = RAND(0,8)
  84. set $boyClo = 'wearing a tracksuit.'
  85. end
  86. if finance = 1:
  87. !середняк
  88. !проверка по внешности
  89. if harakBoy = 0: set vneshBoy = RAND(0,4)
  90. if harakBoy = 1: set vneshBoy = RAND(0,6)
  91. if harakBoy = 2: set vneshBoy = RAND(0,8)
  92. set $boyClo = 'wearing jeans and a sweater.'
  93. end
  94. if finance = 2:
  95. !середняк
  96. !проверка по внешности
  97. if harakBoy = 0: set vneshBoy = RAND(4,8)
  98. if harakBoy = 1: set vneshBoy = RAND(6,8)
  99. if harakBoy = 2: set vneshBoy = RAND(8,10)
  100. set $boyClo = 'wearing an expensive suit.'
  101. end
  102. !требования по фигуре, размеру груди, цвет волос.
  103. !0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
  104. set figurBoy = RAND(0,2)
  105. !0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
  106. set titBoy = RAND(0,2)
  107. !0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
  108. set haerBoy = RAND(0,3)
  109. !характер 0 - мягкий, 1 -норма 2 - агрессор
  110. set randizvrat = RAND(0,100)
  111. if randizvrat < 80: set izvrat = 0
  112. if randizvrat >= 80: set izvrat = 1
  113. --- boy ---------------------------------