1
0

preCUST.qsrc 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765
  1. # preCUST
  2. cls
  3. gs 'themes', 'indoors'
  4. !!Body Customization and Initializations
  5. if $ARGS[0] = 'BeforeCust':
  6. !! This is a placeholder at the moment
  7. end
  8. !!******************** TG Start Body Customization Menu ******************************
  9. if $ARGS[0] = 'TGStart':
  10. $start_type = 'tg'
  11. !! This is to bypass the next part if the avatar system was used
  12. !! It will be changed to bypass the head options, once more body options are added
  13. if player_avatar = 1: gt 'preCUST', 'Done', 'TGS'
  14. !! Just hair and eye color here for now; the dialog will be update as more options are added
  15. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  16. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation_pic1.jpg"></center>'
  17. '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.'
  18. 'She is fairly tall.'
  19. *nl
  20. '<center>Customize your:</center>'
  21. '<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/pre/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/pre/shared/eye icon.png"></a></center>'
  22. *nl
  23. 'Everything else about her is fuzzy...'
  24. act 'Done': gt 'preCUST', 'Done', 'TGS'
  25. end
  26. !!******************** SG Start Body Customization Menu ******************************
  27. if $ARGS[0] = 'SGStart':
  28. $start_type = 'sgs'
  29. !! This is to bypass the next part if the avatar system was used
  30. !! It will be changed to bypass the head options, once more body options are added
  31. if player_avatar = 1: gt 'preCUST', 'Done', 'SGS'
  32. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  33. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation_pic1.jpg"></center>'
  34. *nl
  35. '<center>Customize your:</center>'
  36. '<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/pre/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/pre/shared/eye icon.png"></a></center>'
  37. act 'Done': gt 'preCUST', 'Done', 'SGS'
  38. end
  39. !!******************** NT Start Body Customization Menu ******************************
  40. if $ARGS[0] = 'NTStart':
  41. $start_type = 'nt'
  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. !! It is using the TG done to complete and the magikDostup to split at the end
  45. NTstart = 1
  46. !!Default Names
  47. $pcs_firstname = 'Svetlana'
  48. $pcs_lastname = 'Lebedev'
  49. $pcs_nickname = 'Sveta'
  50. !!Player names are set here
  51. $temp_firstname = '<<$pcs_firstname>>'
  52. $pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
  53. if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
  54. killvar '$temp_firstname'
  55. $temp_lastname = '<<$pcs_lastname>>'
  56. $pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
  57. if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
  58. killvar '$temp_lastname'
  59. $temp_nickname = '<<$pcs_nickname>>'
  60. $pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
  61. if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
  62. killvar '$temp_nickname'
  63. if player_avatar = 1:
  64. act 'Continue': gt 'preCUST', 'Done', 'NT'
  65. else
  66. gs 'preCUST', 'NTStart2'
  67. end
  68. end
  69. if $ARGS[0] = 'NTStart2':
  70. pcs_hairlng = 100
  71. !! Just hair and eye color here for now; the dialog will be update as more options are added
  72. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  73. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation_pic1.jpg"></center>'
  74. 'As you look in the mirror, your face comes into focus. Some aspects of your appearance are already set, you can define the others now.'
  75. 'You are fairly tall.'
  76. *nl
  77. '<center>Customize your:</center>'
  78. '<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/pre/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/pre/shared/eye icon.png"></a></center>'
  79. act 'Done': gt 'preCUST', 'Done', 'NT'
  80. end
  81. !!******************** Start Body Customization options ******************************
  82. if $ARGS[0] = 'hair':
  83. if pcs_haircol = 0: 'Your hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''hair''">black</a>.'
  84. if pcs_haircol = 1: 'Your hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''hair''">brown</a>.'
  85. if pcs_haircol = 2: 'Your hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''hair''">red</a>.'
  86. if pcs_haircol = 3: 'Your hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''hair''">blonde</a>.'
  87. if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''preCUST'', ''hair''">straight</a>.'
  88. if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''preCUST'', ''hair''">curly</a>.'
  89. nathcol = pcs_haircol
  90. pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
  91. if $start_type = 'tg':
  92. act 'Done': gt 'preCUST', 'TGStart'
  93. elseif $start_type = 'nt':
  94. act 'Done': gt 'preCUST', 'NTStart2'
  95. else
  96. act 'Done': gt 'preCUST', 'SGStart'
  97. end
  98. end
  99. !!******************** Final variable setting and initializations ***********************
  100. if $ARGS[0] = 'Done':
  101. !! Top area for things that need to be done before setting the variables for either start
  102. year = 2016
  103. BDSMfilm = 0
  104. pornstudio = 0
  105. pfilmSTOP = 0
  106. thinkpreg = 0
  107. denypreg = 0
  108. pertemp = 1
  109. pillcvrt = 1
  110. pcs_naturallashes = pcs_lashes
  111. !! Initializing elasticity
  112. vshrink = 1
  113. vshrinkdays = 6
  114. ashrink = 1
  115. ashrinkdays = 3
  116. fairycurse = -1
  117. $excer_name[1] = 'Default 1'
  118. $excer_name[2] = 'Default 2'
  119. $excer_name[3] = 'Default 3'
  120. $excer_name[4] = 'Default 4'
  121. $excer_name[5] = 'Default 5'
  122. gs 'fight', 'Wrestlergen'
  123. monthsend[1] = 31
  124. if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0):
  125. Leapyear = 1 & monthsend[2] = 29
  126. else
  127. Leapyear = 0 & monthsend[2] = 28
  128. end
  129. monthsend[3] = 31
  130. monthsend[4] = 30
  131. monthsend[5] = 31
  132. monthsend[6] = 30
  133. monthsend[7] = 31
  134. monthsend[8] = 31
  135. monthsend[9] = 30
  136. monthsend[10] = 31
  137. monthsend[11] = 30
  138. monthsend[12] = 31
  139. $monthName[1] = 'January'
  140. $monthName[2] = 'February'
  141. $monthName[3] = 'March'
  142. $monthName[4] = 'April'
  143. $monthName[5] = 'May'
  144. $monthName[6] = 'June'
  145. $monthName[7] = 'July'
  146. $monthName[8] = 'August'
  147. $monthName[9] = 'September'
  148. $monthName[10] = 'October'
  149. $monthName[11] = 'November'
  150. $monthName[12] = 'December'
  151. $month = $monthName[month]
  152. gs 'telefon', 'setup'
  153. !! TG Start Specific Variable Setting
  154. if $ARGS[1] = 'TGS':
  155. age = 18
  156. month = 5
  157. $month = 'May'
  158. day = 4
  159. week = 3
  160. hour = 13
  161. if player_avatar = 0:
  162. birthyear = year - age
  163. birthmonth = 4
  164. birthday = 1
  165. school_year = 1998
  166. end
  167. !! Body
  168. pcs_hgt = 170
  169. salo = 60
  170. dick = 0
  171. !! Stats
  172. pcs_stren = 10
  173. strenbuf = 10
  174. pcs_agil = 10
  175. agilbuf = 10
  176. pcs_vital = 10
  177. vitalbuf = 10
  178. pcs_intel = 10
  179. pcs_sprt = 10
  180. pcs_react = 10
  181. pcs_chrsm = 10
  182. pcs_prcptn = 10
  183. pcs_magik = 0
  184. money = 16500
  185. pcs_pubes = 30
  186. pcs_leghair = 12
  187. pcs_makeup = 1
  188. home_owned[1] = 1
  189. !! Maruda Hair Mod
  190. pcs_hairlng = 17
  191. !! ***********
  192. cltarelka = 1
  193. fairy = 10
  194. eda = 5
  195. poroshok = 5
  196. shampoo = 5
  197. tampon = 2
  198. pcs_energy = 100
  199. pcs_hydra = 100
  200. pcs_sleep = 100
  201. willpowermax = 150
  202. !! Starting Option Adjustments
  203. !! The TG Background options would be aplied here
  204. !! ***********
  205. end
  206. !! NT Start Specific Variable Setting
  207. if $ARGS[1] = 'NT':
  208. age = 18
  209. month = 5
  210. $month = 'May'
  211. day = 4
  212. week = 3
  213. hour = 13
  214. if player_avatar = 0:
  215. birthyear = year - age
  216. birthmonth = 4
  217. birthday = 1
  218. school_year = 1998
  219. end
  220. !! Body
  221. pcs_hgt = 170
  222. salo = 60
  223. dick = 0
  224. !! Stats
  225. pcs_stren = 20
  226. strenbuf = 20
  227. pcs_agil = 15
  228. agilbuf = 15
  229. pcs_vital = 25
  230. vitalbuf = 25
  231. pcs_intel = 30
  232. pcs_sprt = 25
  233. pcs_react = 25
  234. pcs_chrsm = 15
  235. pcs_prcptn = 40
  236. money = 13000
  237. pcs_pubes = 30
  238. pcs_leghair = 12
  239. pcs_makeup = 5
  240. cheap_purses[7] = 1
  241. $currentpursetype = 'cheap'
  242. currentpursenumber = 7
  243. bag = 1
  244. home_owned[1] = 1
  245. pcs_inhib = 15
  246. pcs_heels = 20
  247. pcs_makupskl = 15
  248. pcs_artskls = 15
  249. pcs_compskl = 20
  250. pcs_comphckng = 10
  251. pcs_chess = 15
  252. pcs_danc = 30
  253. cltarelka = 1
  254. fairy = 10
  255. eda = 5
  256. poroshok = 5
  257. shampoo = 20
  258. tampon = 15
  259. pcs_energy = 100
  260. pcs_hydra = 100
  261. pcs_sleep = 100
  262. willpowermax = 100
  263. !! Starting Option Adjustments
  264. !! The TG Background options would be aplied here
  265. !! ***********
  266. end
  267. !! SG Start Specific Variable Setting
  268. if $ARGS[1] = 'CSB': money = 5000
  269. if $ARGS[1] = 'SGS' or $ARGS[1] = 'CSB':
  270. school[6] = 1
  271. sisboyday = -2
  272. home_owned[1] = 0
  273. cltarelka = 0
  274. fairy = 0
  275. eda = 0
  276. poroshok = 0
  277. shampoo = 0
  278. hcolmotherremember = pcs_haircol
  279. hcolfatherremember = pcs_haircol
  280. hcolfronce = 1
  281. !!Setting Kolkas birthday based off the PCs
  282. koldobtmp_d = rand(1,28)
  283. koldobtmp_y = birthyear
  284. koldobtmp_m = birthmonth + 11
  285. if koldobtmp_m > 12:
  286. koldobtmp_y += 1
  287. koldobtmp_m -= 12
  288. end
  289. npc_dob['A34'] = koldobtmp_y * 10000
  290. npc_dob['A34'] += koldobtmp_m * 100
  291. npc_dob['A34'] += koldobtmp_d
  292. killvar 'koldobtmp_d' & killvar 'koldobtmp_m' & killvar 'koldobtmp_y'
  293. $holyday += ', <b><<kanicont>> days left.</b>'
  294. end
  295. !!*************************
  296. !! Final Initializations
  297. VersionCheck = 5030
  298. pcs_dob = birthyear * 10000
  299. pcs_dob += (birthmonth * 100)
  300. pcs_dob += birthday
  301. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  302. if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
  303. if age < 17:
  304. vidage = age
  305. else
  306. vidage = age - 1
  307. end
  308. vidageday = 300
  309. pcs_health = pcs_vital * 10 + pcs_stren * 5
  310. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  311. pcs_mana = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
  312. pcs_mood = 100
  313. pcs_stam = 100
  314. nathcol = pcs_haircol
  315. pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
  316. oldsavepcs_haircol = 1
  317. gs 'body_shape', 'initial'
  318. !! Adding underwear and default shoes and assigning them
  319. if $ARGS[1] ! 'CSB' and goth_clothing ! 1:
  320. cheap_panties[37] = 1
  321. cheap_bras[11] = 1
  322. $pantyworntype = 'cheap'
  323. pantywornnumber = 37
  324. $braworntype = 'cheap'
  325. brawornnumber = 11
  326. sgandm[6] = 1
  327. strainers[21] = 1
  328. $shoeworntype = 'gandm'
  329. shoewornnumber = 6
  330. end
  331. !! Starting clothing set
  332. if NTstart = 1:
  333. cheap[161] = 1
  334. cheapH[161] = 100
  335. cheapB[161] = pcs_hips
  336. exercise[29] = 1
  337. exerciseH[29] = 100
  338. cheap[370] = 1
  339. cheapH[370] = 100
  340. cheapB[370] = pcs_hips
  341. swimwear[3] = 1
  342. swimwearH[3] = 60
  343. swimwearB[3] = pcs_hips
  344. sportsclothingnumber = 29
  345. gs 'clothing', 'wear', 'cheap', 370
  346. elseif goth_clothing = 1:
  347. kats_panties[44] = 1
  348. kats_bras[28] = 1
  349. $pantyworntype = 'kats'
  350. pantywornnumber = 44
  351. $braworntype = 'kats'
  352. brawornnumber = 28
  353. exercise[45] = 1
  354. exerciseH[45] = 100
  355. strainers[21] = 1
  356. sgandm[43] = 1
  357. shoewornnumber = 43
  358. $shoeworntype = 'gandm'
  359. average[70] = 1
  360. averageH[70] = 100
  361. averageB[70] = pcs_hips
  362. cheap[60] = 1
  363. cheapH[60] = 100
  364. cheapB[60] = pcs_hips
  365. sportsclothingnumber = 45
  366. gs 'clothing', 'wear', 'average', 70
  367. elseif $ARGS[1] = 'CSB':
  368. cheap_panties[5] = 1
  369. cheap_bras[12] = 1
  370. $pantyworntype = 'cheap'
  371. pantywornnumber = 5
  372. $braworntype = 'cheap'
  373. brawornnumber = 12
  374. exercise[4] = 1
  375. exerciseH[4] = 100
  376. strainers[21] = 1
  377. sgandm[43] = 1
  378. shoewornnumber = 43
  379. $shoeworntype = 'gandm'
  380. cheap[397] = 1
  381. cheapH[397] = 100
  382. cheapB[397] = pcs_hips
  383. cheap[355] = 1
  384. cheapH[355] = 100
  385. cheapB[355] = pcs_hips
  386. sportsclothingnumber = 4
  387. gs 'clothing', 'wear', 'cheap', 355
  388. elseif pcs_inhib < 5:
  389. cheap[15] = 1
  390. cheapH[15] = 100
  391. cheapB[15] = pcs_hips
  392. exercise[4] = 1
  393. exerciseH[4] = 100
  394. cheap[36] = 1
  395. cheapH[36] = 100
  396. cheapB[36] = pcs_hips
  397. sportsclothingnumber = 4
  398. gs 'clothing', 'wear', 'cheap', 15
  399. elseif pcs_inhib < 10:
  400. cheap[48] = 1
  401. cheapH[48] = 100
  402. cheapB[48] = pcs_hips
  403. exercise[4] = 1
  404. exerciseH[4] = 100
  405. cheap[83] = 1
  406. cheapH[83] = 100
  407. cheapB[83] = pcs_hips
  408. sportsclothingnumber = 4
  409. gs 'clothing', 'wear', 'cheap', 48
  410. elseif pcs_inhib < 15:
  411. cheap[20] = 1
  412. cheapH[20] = 100
  413. cheapB[20] = pcs_hips
  414. exercise[4] = 1
  415. exerciseH[4] = 100
  416. cheap[70] = 1
  417. cheapH[70] = 100
  418. cheapB[70] = pcs_hips
  419. sportsclothingnumber = 4
  420. gs 'clothing', 'wear', 'cheap', 20
  421. elseif pcs_inhib < 20:
  422. cheap[32] = 1
  423. cheapH[32] = 100
  424. cheapB[32] = pcs_hips
  425. exercise[4] = 1
  426. exerciseH[4] = 100
  427. cheap[62] = 1
  428. cheapH[62] = 100
  429. cheapB[62] = pcs_hips
  430. sportsclothingnumber = 4
  431. gs 'clothing', 'wear', 'cheap', 32
  432. elseif pcs_inhib < 25:
  433. cheap[4] = 1
  434. cheapH[4] = 100
  435. cheapB[4] = pcs_hips
  436. exercise[4] = 1
  437. exerciseH[4] = 100
  438. cheap[41] = 1
  439. cheapH[41] = 100
  440. cheapB[41] = pcs_hips
  441. sportsclothingnumber = 4
  442. gs 'clothing', 'wear', 'cheap', 41
  443. elseif pcs_inhib < 30:
  444. cheap[50] = 1
  445. cheapH[50] = 100
  446. cheapB[50] = pcs_hips
  447. exercise[4] = 1
  448. exerciseH[4] = 100
  449. cheap[81] = 1
  450. cheapH[81] = 100
  451. cheapB[81] = pcs_hips
  452. sportsclothingnumber = 4
  453. gs 'clothing', 'wear', 'cheap', 50
  454. elseif pcs_inhib < 35:
  455. cheap[82] = 1
  456. cheapH[82] = 100
  457. cheapB[82] = pcs_hips
  458. exercise[4] = 1
  459. exerciseH[4] = 100
  460. cheap[43] = 1
  461. cheapH[43] = 100
  462. cheapB[43] = pcs_hips
  463. sportsclothingnumber = 4
  464. gs 'clothing', 'wear', 'cheap', 43
  465. elseif pcs_inhib < 40:
  466. cheap[43] = 1
  467. cheapH[43] = 100
  468. cheapB[43] = pcs_hips
  469. exercise[4] = 1
  470. exerciseH[4] = 100
  471. cheap[73] = 1
  472. cheapH[73] = 100
  473. cheapB[73] = pcs_hips
  474. sportsclothingnumber = 4
  475. gs 'clothing', 'wear', 'cheap', 43
  476. elseif pcs_inhib < 45:
  477. cheap[226] = 1
  478. cheapH[226] = 100
  479. cheapB[226] = pcs_hips
  480. exercise[95] = 1
  481. exerciseH[95] = 100
  482. cheap[236] = 1
  483. cheapH[236] = 100
  484. cheapB[236] = pcs_hips
  485. sportsclothingnumber = 95
  486. gs 'clothing', 'wear', 'cheap', 226
  487. elseif pcs_inhib < 50:
  488. cheap[292] = 1
  489. cheapH[292] = 100
  490. cheapB[292] = pcs_hips
  491. exercise[94] = 1
  492. exerciseH[94] = 100
  493. cheap[148] = 1
  494. cheapH[148] = 100
  495. cheapB[148] = pcs_hips
  496. sportsclothingnumber = 94
  497. gs 'clothing', 'wear', 'cheap', 148
  498. else
  499. cheap[118] = 1
  500. cheapH[118] = 100
  501. cheapB[118] = pcs_hips
  502. exercise[58] = 1
  503. exerciseH[58] = 100
  504. cheap[136] = 1
  505. cheapH[136] = 100
  506. cheapB[136] = pcs_hips
  507. swimwear[24] = 1
  508. swimwearH[24] = 60
  509. swimwearB[24] = pcs_hips
  510. sportsclothingnumber = 58
  511. gs 'clothing', 'wear', 'cheap', 118
  512. end
  513. if swim_start = 58:
  514. swimwear[58] = 1
  515. swimwearH[58] = 60
  516. swimwearB[58] = pcs_hips
  517. elseif swim_start = 98:
  518. swimwear[98] = 1
  519. swimwearH[98] = 60
  520. swimwearB[98] = pcs_hips
  521. elseif swim_start = 69:
  522. swimwear[69] = 1
  523. swimwearH[69] = 60
  524. swimwearB[69] = pcs_hips
  525. end
  526. !!setting default exercise outfit and setting coats
  527. if school_clothing = 1:
  528. killvar 'school_clothing'
  529. alternative[55] = 1
  530. alternativeH[55] = 120
  531. alternativeB[55] = pcs_hips
  532. sportspantynumber = 44
  533. sportsbranumber = 28
  534. $sportsbratype = 'kats'
  535. $sportspantytype = 'kats'
  536. coat[14] = 1
  537. coatH[14] = 200
  538. defaultcoat = 14
  539. sportscoat = 14
  540. else
  541. if $ARGS[1] ! 'CSB':
  542. sportspantynumber = 37
  543. sportsbranumber = 11
  544. else
  545. sportspantynumber = 5
  546. sportsbranumber = 12
  547. end
  548. $sportsbratype = 'cheap'
  549. $sportspantytype = 'cheap'
  550. coat[5] = 1
  551. coatH[5] = 200
  552. defaultcoat = 5
  553. sportscoat = 5
  554. if school_clothing = 2:
  555. school[10] = 1
  556. schoolH[10] = 120
  557. schoolB[10] = pcs_hips
  558. elseif school_clothing = 3:
  559. school[63] = 1
  560. schoolH[63] = 120
  561. schoolB[63] = pcs_hips
  562. elseif school_clothing = 4:
  563. alternative[19] = 1
  564. alternativeH[19] = 120
  565. alternativeB[19] = pcs_hips
  566. elseif school_clothing = 5:
  567. school[25] = 1
  568. schoolH[25] = 120
  569. schoolB[25] = pcs_hips
  570. elseif school_clothing = 6:
  571. school[26] = 1
  572. schoolH[26] = 120
  573. schoolB[26] = pcs_hips
  574. elseif school_clothing = 7:
  575. school[26] = 1
  576. schoolH[26] = 120
  577. schoolB[26] = pcs_hips
  578. exercise[32] = 1
  579. exerciseH[32] = 100
  580. sportsclothingnumber = 32
  581. strainers[17] = 1
  582. strainers[21] = 0
  583. sport_bras[1] = 1
  584. sport_brasS[1] = 0
  585. $sportsbratype = 'sport'
  586. sportsbranumber = 1
  587. sport_panties[1] = 1
  588. sport_pantiesS[1] = 0
  589. $sportspantytype = 'sport'
  590. sportspantynumber = 1
  591. end
  592. killvar 'school_clothing'
  593. end
  594. if strainers[17] = 1:
  595. sportsshoenumber = 17
  596. else
  597. sportsshoenumber = 21
  598. end
  599. $sportspursetype = $currentpursetype
  600. sportspursenumber = currentpursenumber
  601. $sports_clothing_name = 'default sports outfit'
  602. killvar 'swim_start'
  603. !! **********
  604. gs 'daystart'
  605. gs 'din_pav'
  606. gs 'din_npc'
  607. gs 'dinSex2'
  608. gs 'dina'
  609. gs 'din_van'
  610. gs 'din_bad'
  611. gs 'dinSex'
  612. !! KEY! I merged 'dinBoroda' with 'clener' and removed the dynamics. This line was at the end of dinBoroda, so I moved it here just in case. Sicaa
  613. rikudootvet = 1415
  614. gs 'BanSexType'
  615. gs 'outdoors', 'weather'
  616. menoage = rand(40,50)
  617. temprand = rand(0,10)
  618. if temprand = 0:
  619. menoage += rand(0,5)
  620. elseif temprand < 4:
  621. menoage += rand(3,10)
  622. elseif temprand < 9:
  623. menoage += rand(5,12)
  624. else
  625. menoage += rand(7,13)
  626. end
  627. !!Setting up period start and turning on auto tracking if not on hardcore difficulty
  628. daylastperiod = daystart
  629. temprand = rand(1,3)
  630. if temprand = 1:
  631. cycle = 1
  632. EggRH = rand(1,149)
  633. FocH = EggRH + 4*24
  634. mesec = 0
  635. unfertegg = 0
  636. ferteggage = 0
  637. Ovulate = 0
  638. LutH = 0
  639. daylastperiod -= FocH/24
  640. elseif temprand = 2:
  641. lastovulation = daystart
  642. cycle = 2
  643. unfertegg = 1
  644. ferteggage = rand(0,44)
  645. Ovulate = (rand(24,44) - ferteggage)
  646. if Ovulate <= 0: Ovulate = 1
  647. mesec = 0
  648. EggRH = 0
  649. FocH = 0
  650. LutH = 0
  651. daylastperiod -= 10+(ferteggage/24)
  652. elseif temprand = 3:
  653. cycle = 3
  654. LutH = rand(0,300)
  655. ferteggage = 36 + LutH
  656. mesec = 0
  657. EggRH = 0
  658. FocH = 0
  659. unfertegg = 0
  660. Ovulate = 0
  661. daylastperiod -= 10+(ferteggage/24)
  662. end
  663. if daylastperiod + 4 > daystart:
  664. lastmens = daylastperiod - 20
  665. else
  666. lastmens = daylastperiod+4
  667. end
  668. if difficulty = 4:
  669. cyccustom = 0
  670. else
  671. cyccustom = 1
  672. end
  673. pcs_horny = 0
  674. killvar 'opPRE'
  675. killvar 'tgs_skipinto'
  676. gs 'stat'
  677. showstat 0
  678. showobjs 0
  679. if $ARGS[1] = 'NT':
  680. gt 'preNT'
  681. elseif $ARGS[1] = 'TGS':
  682. gt 'preTG', 'sleepPRE'
  683. elseif $ARGS[1] = 'CSB':
  684. gt 'preCSB', 'intro_0'
  685. else
  686. gt 'preALT', 'One'
  687. end
  688. end
  689. --- preCUST ---------------------------------