1
0

preCUST 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603
  1. # preCUST
  2. cls
  3. if night_mode = 1:
  4. fcolor = rgb(255, 255, 255)
  5. bcolor = rgb(0, 0, 0)
  6. lcolor = rgb(106, 90, 205)
  7. else
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. end
  12. !!Body Customization and Initializations
  13. if $ARGS[0] = 'BeforeCust':
  14. !! This is a placeholder at the moment
  15. end
  16. !!******************** TG Start Body Customization Options ******************************
  17. if $ARGS[0] = 'TGStart':
  18. !! This is to bypass the next part if the avatar system was used
  19. !! It will be changed to bypass the head options, once more body options are added
  20. if player_avatar = 1: gt 'preCUST', 'Done', 'TGS'
  21. !! Just hair and eye color here for now; the dialog will be update as more options are added
  22. 'As you drift in unconsciousness, an impression of a woman forms in your mind. Many aspects of her appearance are indistinct, but there are some things you can make out.'
  23. 'She is fairly tall.'
  24. *nl
  25. if pcs_eyecol = 0: 'She has <a href="exec:pcs_eyecol = 1 & gt ''preCUST'', ''TGStart''">brown</a> eyes.'
  26. if pcs_eyecol = 1: 'She has <a href="exec:pcs_eyecol = 2 & gt ''preCUST'', ''TGStart''">gray</a> eyes.'
  27. if pcs_eyecol = 2: 'She has <a href="exec:pcs_eyecol = 3 & gt ''preCUST'', ''TGStart''">green</a> eyes.'
  28. if pcs_eyecol = 3: 'She has <a href="exec:pcs_eyecol = 0 & gt ''preCUST'', ''TGStart''">blue</a> eyes.'
  29. *nl
  30. if pcs_haircol = 0: 'Her hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''TGStart''">black</a>.'
  31. if pcs_haircol = 1: 'Her hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''TGStart''">brown</a>.'
  32. if pcs_haircol = 2: 'Her hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''TGStart''">red</a>.'
  33. if pcs_haircol = 3: 'Her hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''TGStart''">blonde</a>.'
  34. if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''preCUST'', ''TGStart''">straight</a>.'
  35. if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''preCUST'', ''TGStart''">curly</a>.'
  36. *nl
  37. 'Everything else about her is fuzzy...'
  38. act 'Done': gt 'preCUST', 'Done', 'TGS'
  39. end
  40. !!******************** SG Start Body Customization Options ******************************
  41. if $ARGS[0] = 'SGStart':
  42. !! This is to bypass the next part if the avatar system was used
  43. !! It will be changed to bypass the head options, once more body options are added
  44. if player_avatar = 1: gt 'preCUST', 'Done', 'SGS'
  45. '<center>Current face image (based on hairstyle)</center>'
  46. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  47. if pcs_eyecol = 0: 'You have <a href="exec:pcs_eyecol = 1 & gt ''preCUST'', ''SGStart''">brown</a> eyes.'
  48. if pcs_eyecol = 1: 'You have <a href="exec:pcs_eyecol = 2 & gt ''preCUST'', ''SGStart''">gray</a> eyes.'
  49. if pcs_eyecol = 2: 'You have <a href="exec:pcs_eyecol = 3 & gt ''preCUST'', ''SGStart''">green</a> eyes.'
  50. if pcs_eyecol = 3: 'You have <a href="exec:pcs_eyecol = 0 & gt ''preCUST'', ''SGStart''">blue</a> eyes.'
  51. *nl
  52. if pcs_haircol = 0: 'Your hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''SGStart''">black</a>.'
  53. if pcs_haircol = 1: 'Your hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''SGStart''">brown</a>.'
  54. if pcs_haircol = 2: 'Your hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''SGStart''">red</a>.'
  55. if pcs_haircol = 3: 'Your hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''SGStart''">blonde</a>.'
  56. if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''preCUST'', ''SGStart''">straight</a>.'
  57. if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''preCUST'', ''SGStart''">curly</a>.'
  58. *nl
  59. if pcs_hairlng > 975:
  60. pl'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 100 & gt ''preCUST'', ''SGStart''">-100</a> <a href="exec:pcs_hairlng -= 25 & gt ''preCUST'', ''SGStart''">-25</a> <a href="exec:pcs_hairlng -= 5 & gt ''preCUST'', ''SGStart''">-5</a> <a href="exec:pcs_hairlng += 5 & gt ''preCUST'', ''SGStart''">+5</a>'
  61. elseif pcs_hairlng > 900:
  62. pl'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 100 & gt ''preCUST'', ''SGStart''">-100</a> <a href="exec:pcs_hairlng -= 25 & gt ''preCUST'', ''SGStart''">-25</a> <a href="exec:pcs_hairlng -= 5 & gt ''preCUST'', ''SGStart''">-5</a> <a href="exec:pcs_hairlng += 5 & gt ''preCUST'', ''SGStart''">+5</a> <a href="exec:pcs_hairlng += 25 & gt ''preCUST'', ''SGStart''">+25</a>'
  63. elseif pcs_hairlng >= 100:
  64. pl'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 100 & gt ''preCUST'', ''SGStart''">-100</a> <a href="exec:pcs_hairlng -= 25 & gt ''preCUST'', ''SGStart''">-25</a> <a href="exec:pcs_hairlng -= 5 & gt ''preCUST'', ''SGStart''">-5</a> <a href="exec:pcs_hairlng += 5 & gt ''preCUST'', ''SGStart''">+5</a> <a href="exec:pcs_hairlng += 25 & gt ''preCUST'', ''SGStart''">+25</a> <a href="exec:pcs_hairlng += 100 & gt ''preCUST'', ''SGStart''">+100</a>'
  65. elseif pcs_hairlng >= 25:
  66. pl'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 25 & gt ''preCUST'', ''SGStart''">-25</a> <a href="exec:pcs_hairlng -= 5 & gt ''preCUST'', ''SGStart''">-5</a> <a href="exec:pcs_hairlng += 5 & gt ''preCUST'', ''SGStart''">+5</a> <a href="exec:pcs_hairlng += 25 & gt ''preCUST'', ''SGStart''">+25</a> <a href="exec:pcs_hairlng += 100 & gt ''preCUST'', ''SGStart''">+100</a>'
  67. elseif pcs_hairlng >= 5:
  68. pl'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 5 & gt ''preCUST'', ''SGStart''">-5</a> <a href="exec:pcs_hairlng += 5 & gt ''preCUST'', ''SGStart''">+5</a> <a href="exec:pcs_hairlng += 25 & gt ''preCUST'', ''SGStart''">+25</a> <a href="exec:pcs_hairlng += 100 & gt ''preCUST'', ''SGStart''">+100</a>'
  69. else
  70. pl'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng += 5 & gt ''preCUST'', ''SGStart''">+5</a> <a href="exec:pcs_hairlng += 25 & gt ''preCUST'', ''SGStart''">+25</a> <a href="exec:pcs_hairlng += 100 & gt ''preCUST'', ''SGStart''">+100</a>'
  71. end
  72. *nl
  73. 'Personalize attributes related to your <a href="exec:gs ''begin'', ''eyes''">eyes</a></center>.'
  74. act 'Done': gt 'preCUST', 'Done', 'SGS'
  75. end
  76. !!******************** NT Start Body Customization Options ******************************
  77. if $ARGS[0] = 'NTStart':
  78. !! This is to bypass the next part if the avatar system was used
  79. !! It will be changed to bypass the head options, once more body options are added
  80. !! It is using the TG done to complete and the magikDostup to split at the end
  81. NTstart = 1
  82. if $pcs_firstname = '':
  83. $pcs_firstname = input("What is your first name? (Leave blank for default)")
  84. if $pcs_firstname = '':$pcs_firstname = 'Svetlana'
  85. $pcs_lastname = input("What is your last name? (Leave blank for default)")
  86. if $pcs_lastname = '':$pcs_lastname = 'Lebedev'
  87. $pcs_nickname = input("What is your nick name? (Note: If you chose a custom name, you have to enter something here!)")
  88. if $pcs_nickname = '':$pcs_nickname = 'Sveta'
  89. end
  90. if player_avatar = 1:
  91. act 'Continue': gt 'preCUST', 'Done', 'NT'
  92. exit
  93. end
  94. pcs_hairlng = 100
  95. !! Just hair and eye color here for now; the dialog will be update as more options are added
  96. 'Set your basic appearance details here before you start your story'
  97. *nl
  98. 'You are fairly tall.'
  99. *nl
  100. '<center>Current face image (based on hairstyle)</center>'
  101. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  102. if pcs_eyecol = 0: 'You have <a href="exec:pcs_eyecol = 1 & gt ''preCUST'', ''NTStart''">brown</a> eyes.'
  103. if pcs_eyecol = 1: 'You have <a href="exec:pcs_eyecol = 2 & gt ''preCUST'', ''NTStart''">gray</a> eyes.'
  104. if pcs_eyecol = 2: 'You have <a href="exec:pcs_eyecol = 3 & gt ''preCUST'', ''NTStart''">green</a> eyes.'
  105. if pcs_eyecol = 3: 'You have <a href="exec:pcs_eyecol = 0 & gt ''preCUST'', ''NTStart''">blue</a> eyes.'
  106. *nl
  107. if pcs_haircol = 0: 'Your hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''NTStart''">black</a>.'
  108. if pcs_haircol = 1: 'Your hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''NTStart''">brown</a>.'
  109. if pcs_haircol = 2: 'Your hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''NTStart''">red</a>.'
  110. if pcs_haircol = 3: 'Your hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''NTStart''">blonde</a>.'
  111. if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''preCUST'', ''NTStart''">straight</a>.'
  112. if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''preCUST'', ''NTStart''">curly</a>.'
  113. *nl
  114. 'Personalize attributes related to your <a href="exec:gs ''begin'', ''eyes''">eyes</a></center>.'
  115. act 'Done': gt 'preCUST', 'Done', 'NT'
  116. end
  117. !!******************** Final variable setting and initializations ***********************
  118. if $ARGS[0] = 'Done':
  119. !! Top area for things that need to be done before setting the variables for either start
  120. year = 2016
  121. BDSMfilm = 0
  122. pornstudio = 0
  123. pfilmSTOP = 0
  124. thinkpreg = 0
  125. denypreg = 0
  126. pertemp = 1
  127. pillcvrt = 1
  128. pcs_naturallashes = pcs_lashes
  129. !! Initializing elasticity
  130. vshrink = 1
  131. vshrinkdays = 6
  132. ashrink = 1
  133. ashrinkdays = 3
  134. fairycurse = -1
  135. $excer_name[1] = 'Default 1'
  136. $excer_name[2] = 'Default 2'
  137. $excer_name[3] = 'Default 3'
  138. $excer_name[4] = 'Default 4'
  139. gs 'fight', 'Wrestlergen'
  140. monthsend[1] = 31
  141. if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0):
  142. Leapyear = 1 & monthsend[2] = 29
  143. else
  144. Leapyear = 0 & monthsend[2] = 28
  145. end
  146. monthsend[3] = 31
  147. monthsend[4] = 30
  148. monthsend[5] = 31
  149. monthsend[6] = 30
  150. monthsend[7] = 31
  151. monthsend[8] = 31
  152. monthsend[9] = 30
  153. monthsend[10] = 31
  154. monthsend[11] = 30
  155. monthsend[12] = 31
  156. $monthName[1] = 'January'
  157. $monthName[2] = 'February'
  158. $monthName[3] = 'March'
  159. $monthName[4] = 'April'
  160. $monthName[5] = 'May'
  161. $monthName[6] = 'June'
  162. $monthName[7] = 'July'
  163. $monthName[8] = 'August'
  164. $monthName[9] = 'September'
  165. $monthName[10] = 'October'
  166. $monthName[11] = 'November'
  167. $monthName[12] = 'December'
  168. $month = $monthName[month]
  169. gs 'telefon', 'setup'
  170. !! TG Start Specific Variable Setting
  171. if $ARGS[1] = 'TGS':
  172. age = 18
  173. month = 5
  174. $month = 'May'
  175. day = 4
  176. week = 3
  177. hour = 13
  178. if player_avatar = 0:
  179. birthyear = year - age
  180. birthmonth = 4
  181. birthday = 1
  182. schoool_year = 1998
  183. end
  184. !! Body
  185. pcs_hgt = 170
  186. salo = 60
  187. dick = 0
  188. !! Stats
  189. pcs_stren = 10
  190. strenbuf = 10
  191. pcs_agil = 10
  192. agilbuf = 10
  193. pcs_vital = 10
  194. vitalbuf = 10
  195. pcs_intel = 10
  196. pcs_sprt = 10
  197. pcs_react = 10
  198. pcs_chrsm = 10
  199. pcs_prcptn = 10
  200. pcs_magik = 0
  201. money = 16500
  202. housrA = 1
  203. pcs_pubes = 30
  204. pcs_leghair = 12
  205. pcs_makeup = 1
  206. housr = 1
  207. !! Maruda Hair Mod
  208. pcs_hairlng = 17
  209. !! ***********
  210. cltarelka = 1
  211. fairy = 10
  212. eda = 5
  213. poroshok = 5
  214. shampoo = 5
  215. tampon = 2
  216. pcs_energy = 100
  217. water = 100
  218. pcs_sleep = 100
  219. !! Starting Option Adjustments
  220. !! The TG Background options would be aplied here
  221. !! ***********
  222. end
  223. !! NT Start Specific Variable Setting
  224. if $ARGS[1] = 'NT':
  225. age = 18
  226. month = 5
  227. $month = 'May'
  228. day = 4
  229. week = 3
  230. hour = 13
  231. if player_avatar = 0:
  232. birthyear = year - age
  233. birthmonth = 4
  234. birthday = 1
  235. schoool_year = 1998
  236. end
  237. !! Body
  238. pcs_hgt = 170
  239. salo = 60
  240. dick = 0
  241. !! Stats
  242. pcs_stren = 20
  243. strenbuf = 20
  244. pcs_agil = 15
  245. agilbuf = 15
  246. pcs_vital = 25
  247. vitalbuf = 25
  248. pcs_intel = 30
  249. pcs_sprt = 25
  250. pcs_react = 25
  251. pcs_chrsm = 15
  252. pcs_prcptn = 40
  253. money = 13000
  254. housrA = 1
  255. pcs_pubes = 30
  256. pcs_leghair = 12
  257. pcs_makeup = 5
  258. cheap_purses[7] = 1
  259. $currentpursetype = 'cheap'
  260. currentpursenumber = 7
  261. bag = 1
  262. housr = 1
  263. pcs_exhibition = 15
  264. pcs_heels = 20
  265. pcs_makupskl = 15
  266. pcs_artskls = 15
  267. pcs_compskl = 20
  268. pcs_comphckng = 10
  269. pcs_chess = 15
  270. pcs_danc = 30
  271. cltarelka = 1
  272. fairy = 10
  273. eda = 5
  274. poroshok = 5
  275. shampoo = 20
  276. tampon = 15
  277. pcs_energy = 100
  278. water = 100
  279. pcs_sleep = 100
  280. !! Starting Option Adjustments
  281. !! The TG Background options would be aplied here
  282. !! ***********
  283. end
  284. !! SG Start Specific Variable Setting
  285. if $ARGS[1] = 'SGS':
  286. school[6] = 1
  287. umbrella = 1
  288. sisboyday = -2
  289. housr = 0
  290. cltarelka = 0
  291. fairy = 0
  292. eda = 0
  293. poroshok = 0
  294. shampoo = 0
  295. sanpad = 20
  296. hcolmotherremember = pcs_haircol
  297. hcolfatherremember = pcs_haircol
  298. hcolfronce = 1
  299. !!Setting Kolkas birthday based off the PCs
  300. koldobtmp_d = rand(1,28)
  301. koldobtmp_y = birthyear
  302. koldobtmp_m = birthmonth + 11
  303. if koldobtmp_m > 12:
  304. koldobtmp_y += 1
  305. koldobtmp_m -= 12
  306. end
  307. npc_dob['A34'] = koldobtmp_y * 10000
  308. npc_dob['A34'] += koldobtmp_m * 100
  309. npc_dob['A34'] += koldobtmp_d
  310. killvar 'koldobtmp_d' & killvar 'koldobtmp_m' & killvar 'koldobtmp_y'
  311. $holyday += ', <b><<kanicont>> days left.</b>'
  312. end
  313. !!*************************
  314. !! Final Initializations
  315. VersionCheck = 5030
  316. pcs_dob = birthyear * 10000
  317. pcs_dob += (birthmonth * 100)
  318. pcs_dob += birthday
  319. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  320. if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
  321. if age < 17:
  322. vidage = age
  323. else
  324. vidage = age - 1
  325. end
  326. vidageday = 300
  327. pcs_health = pcs_vital * 10 + pcs_stren * 5
  328. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  329. pcs_manna = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
  330. pcs_mood = 100
  331. pcs_stam = 100
  332. nathcol = pcs_haircol
  333. oldsavepcs_haircol = 1
  334. gs 'body_shape', 'initial'
  335. !! Adding underwear
  336. cheap_panties[37] = 1
  337. cheap_bras[11] = 1
  338. $pantyworntype = 'cheap'
  339. pantywornnumber = 37
  340. $braworntype = 'cheap'
  341. brawornnumber = 11
  342. !!adding default shoes and assigning them
  343. sgandm[6] = 1
  344. strainers[21] = 1
  345. $shoeworntype = 'gandm'
  346. shoewornnumber = 6
  347. !! Starting clothing set
  348. if NTstart = 1:
  349. cheap[161] = 1
  350. cheapH[161] = 100
  351. cheapB[161] = pcs_hips
  352. exercise[29] = 1
  353. exerciseH[29] = 100
  354. cheap[370] = 1
  355. cheapH[370] = 100
  356. cheapB[370] = pcs_hips
  357. swimwear[3] = 1
  358. swimwearH[3] = 60
  359. swimwearB[3] = pcs_hips
  360. gs 'clothing', 'wear', 'cheap', 370
  361. elseif pcs_exhibition = 0:
  362. cheap[15] = 1
  363. cheapH[15] = 100
  364. cheapB[15] = pcs_hips
  365. exercise[4] = 1
  366. exerciseH[4] = 100
  367. cheap[36] = 1
  368. cheapH[36] = 100
  369. cheapB[36] = pcs_hips
  370. gs 'clothing', 'wear', 'cheap', 15
  371. elseif pcs_exhibition = 5:
  372. cheap[48] = 1
  373. cheapH[48] = 100
  374. cheapB[48] = pcs_hips
  375. exercise[4] = 1
  376. exerciseH[4] = 100
  377. cheap[83] = 1
  378. cheapH[83] = 100
  379. cheapB[83] = pcs_hips
  380. gs 'clothing', 'wear', 'cheap', 48
  381. elseif pcs_exhibition = 10:
  382. cheap[49] = 1
  383. cheapH[49] = 100
  384. cheapB[49] = pcs_hips
  385. exercise[4] = 1
  386. exerciseH[4] = 100
  387. cheap[70] = 1
  388. cheapH[70] = 100
  389. cheapB[70] = pcs_hips
  390. gs 'clothing', 'wear', 'cheap', 49
  391. elseif pcs_exhibition = 15:
  392. cheap[32] = 1
  393. cheapH[32] = 100
  394. cheapB[32] = pcs_hips
  395. exercise[4] = 1
  396. exerciseH[4] = 100
  397. cheap[62] = 1
  398. cheapH[62] = 100
  399. cheapB[62] = pcs_hips
  400. gs 'clothing', 'wear', 'cheap', 32
  401. elseif pcs_exhibition = 20:
  402. cheap[4] = 1
  403. cheapH[4] = 100
  404. cheapB[4] = pcs_hips
  405. exercise[4] = 1
  406. exerciseH[4] = 100
  407. cheap[41] = 1
  408. cheapH[41] = 100
  409. cheapB[41] = pcs_hips
  410. gs 'clothing', 'wear', 'cheap', 41
  411. elseif pcs_exhibition = 25:
  412. cheap[50] = 1
  413. cheapH[50] = 100
  414. cheapB[50] = pcs_hips
  415. exercise[4] = 1
  416. exerciseH[4] = 100
  417. cheap[81] = 1
  418. cheapH[81] = 100
  419. cheapB[81] = pcs_hips
  420. gs 'clothing', 'wear', 'cheap', 50
  421. elseif pcs_exhibition = 30:
  422. cheap[82] = 1
  423. cheapH[82] = 100
  424. cheapB[82] = pcs_hips
  425. exercise[4] = 1
  426. exerciseH[4] = 100
  427. cheap[43] = 1
  428. cheapH[43] = 100
  429. cheapB[43] = pcs_hips
  430. gs 'clothing', 'wear', 'cheap', 43
  431. elseif pcs_exhibition = 35:
  432. cheap[43] = 1
  433. cheapH[43] = 100
  434. cheapB[43] = pcs_hips
  435. exercise[4] = 1
  436. exerciseH[4] = 100
  437. cheap[73] = 1
  438. cheapH[73] = 100
  439. cheapB[73] = pcs_hips
  440. gs 'clothing', 'wear', 'cheap', 43
  441. end
  442. coat[5] = 1
  443. coatH[5] = 200
  444. defaultcoat = 5
  445. if swim_start = 98:
  446. swimwear[98] = 1
  447. swimwearH[98] = 60
  448. swimwearB[98] = pcs_hips
  449. elseif swim_start = 69:
  450. swimwear[69] = 1
  451. swimwearH[69] = 60
  452. swimwearB[69] = pcs_hips
  453. end
  454. killvar 'swim_start'
  455. !! **********
  456. gs 'daystart'
  457. gs 'din_pav'
  458. gs 'din_npc'
  459. gs 'dinSex2'
  460. gs 'dina'
  461. gs 'din_van'
  462. gs 'din_bad'
  463. gs 'dinSex'
  464. gs 'dinBoroda'
  465. gs 'BanSexType'
  466. gs 'outdoors', 'weather'
  467. menoage = rand(40,50)
  468. temprand = rand(0,10)
  469. if temprand = 0:
  470. menoage += rand(0,5)
  471. elseif temprand < 4:
  472. menoage += rand(3,10)
  473. elseif temprand < 9:
  474. menoage += rand(5,12)
  475. else
  476. menoage += rand(7,13)
  477. end
  478. daylastperiod = daystart
  479. temprand = rand(1,3)
  480. if temprand = 1:
  481. cycle = 1
  482. EggRH = rand(1,149)
  483. FocH = EggRH + 4*24
  484. mesec = 0
  485. unfertegg = 0
  486. ferteggage = 0
  487. Ovulate = 0
  488. LutH = 0
  489. daylastperiod -= FocH/24
  490. elseif temprand = 2:
  491. cycle = 2
  492. unfertegg = 1
  493. ferteggage = rand(0,44)
  494. Ovulate = (rand(24,44) - ferteggage)
  495. if Ovulate <= 0: Ovulate = 1
  496. mesec = 0
  497. EggRH = 0
  498. FocH = 0
  499. LutH = 0
  500. daylastperiod -= 10+(ferteggage/24)
  501. elseif temprand = 3:
  502. cycle = 3
  503. LutH = rand(0,300)
  504. ferteggage = 36 + LutH
  505. mesec = 0
  506. EggRH = 0
  507. FocH = 0
  508. unfertegg = 0
  509. Ovulate = 0
  510. daylastperiod -= 10+(ferteggage/24)
  511. end
  512. if daylastperiod + 4 > daystart:
  513. lastmens = daylastperiod - 20
  514. else
  515. lastmens = daylastperiod+4
  516. end
  517. pcs_horny = 0
  518. killvar 'opPRE'
  519. killvar 'tgs_skipinto'
  520. gs 'stat'
  521. showstat 0
  522. showobjs 0
  523. if $ARGS[1] = 'NT':
  524. gt 'preNT'
  525. elseif $ARGS[1] = 'TGS':
  526. gt 'preTG', 'sleepPRE'
  527. else
  528. gt 'preALT', 'One'
  529. end
  530. end
  531. --- preCUST ---------------------------------