preCUST.qsrc 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763
  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. end
  166. !! Body
  167. pcs_hgt = 170
  168. salo = 60
  169. dick = 0
  170. !! Stats
  171. pcs_stren = 10
  172. strenbuf = 10
  173. pcs_agil = 10
  174. agilbuf = 10
  175. pcs_vital = 10
  176. vitalbuf = 10
  177. pcs_intel = 10
  178. pcs_sprt = 10
  179. pcs_react = 10
  180. pcs_chrsm = 10
  181. pcs_prcptn = 10
  182. pcs_magik = 0
  183. money = 16500
  184. pcs_pubes = 30
  185. pcs_leghair = 12
  186. pcs_makeup = 1
  187. home_owned[1] = 1
  188. !! Maruda Hair Mod
  189. pcs_hairlng = 17
  190. !! ***********
  191. cltarelka = 1
  192. fairy = 10
  193. eda = 5
  194. poroshok = 5
  195. shampoo = 5
  196. tampon = 2
  197. pcs_energy = 100
  198. pcs_hydra = 100
  199. pcs_sleep = 100
  200. willpowermax = 150
  201. !! Starting Option Adjustments
  202. !! The TG Background options would be aplied here
  203. !! ***********
  204. end
  205. !! NT Start Specific Variable Setting
  206. if $ARGS[1] = 'NT':
  207. age = 18
  208. month = 5
  209. $month = 'May'
  210. day = 4
  211. week = 3
  212. hour = 13
  213. if player_avatar = 0:
  214. birthyear = year - age
  215. birthmonth = 4
  216. birthday = 1
  217. end
  218. !! Body
  219. pcs_hgt = 170
  220. salo = 60
  221. dick = 0
  222. !! Stats
  223. pcs_stren = 20
  224. strenbuf = 20
  225. pcs_agil = 15
  226. agilbuf = 15
  227. pcs_vital = 25
  228. vitalbuf = 25
  229. pcs_intel = 30
  230. pcs_sprt = 25
  231. pcs_react = 25
  232. pcs_chrsm = 15
  233. pcs_prcptn = 40
  234. money = 13000
  235. pcs_pubes = 30
  236. pcs_leghair = 12
  237. pcs_makeup = 5
  238. cheap_purses[7] = 1
  239. $currentpursetype = 'cheap'
  240. currentpursenumber = 7
  241. bag = 1
  242. home_owned[1] = 1
  243. pcs_inhib = 15
  244. pcs_heels = 20
  245. pcs_makupskl = 15
  246. pcs_artskls = 15
  247. pcs_compskl = 20
  248. pcs_comphckng = 10
  249. pcs_chess = 15
  250. pcs_danc = 30
  251. cltarelka = 1
  252. fairy = 10
  253. eda = 5
  254. poroshok = 5
  255. shampoo = 20
  256. tampon = 15
  257. pcs_energy = 100
  258. pcs_hydra = 100
  259. pcs_sleep = 100
  260. willpowermax = 100
  261. !! Starting Option Adjustments
  262. !! The TG Background options would be aplied here
  263. !! ***********
  264. end
  265. !! SG Start Specific Variable Setting
  266. if $ARGS[1] = 'CSB': money = 5000
  267. if $ARGS[1] = 'SGS' or $ARGS[1] = 'CSB':
  268. school[6] = 1
  269. sisboyday = -2
  270. home_owned[1] = 0
  271. cltarelka = 0
  272. fairy = 0
  273. eda = 0
  274. poroshok = 0
  275. shampoo = 0
  276. hcolmotherremember = pcs_haircol
  277. hcolfatherremember = pcs_haircol
  278. hcolfronce = 1
  279. !!Setting Kolkas birthday based off the PCs
  280. koldobtmp_d = rand(1,28)
  281. koldobtmp_y = birthyear
  282. koldobtmp_m = birthmonth + 11
  283. if koldobtmp_m > 12:
  284. koldobtmp_y += 1
  285. koldobtmp_m -= 12
  286. end
  287. npc_dob['A34'] = koldobtmp_y * 10000
  288. npc_dob['A34'] += koldobtmp_m * 100
  289. npc_dob['A34'] += koldobtmp_d
  290. killvar 'koldobtmp_d' & killvar 'koldobtmp_m' & killvar 'koldobtmp_y'
  291. $holyday += ', <b><<kanicont>> days left.</b>'
  292. end
  293. !!*************************
  294. !! Final Initializations
  295. VersionCheck = 5030
  296. pcs_dob = birthyear * 10000
  297. pcs_dob += (birthmonth * 100)
  298. pcs_dob += birthday
  299. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  300. if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
  301. if age < 17:
  302. vidage = age
  303. else
  304. vidage = age - 1
  305. end
  306. vidageday = 300
  307. pcs_health = pcs_vital * 10 + pcs_stren * 5
  308. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  309. pcs_mana = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
  310. pcs_mood = 100
  311. pcs_stam = 100
  312. nathcol = pcs_haircol
  313. pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
  314. oldsavepcs_haircol = 1
  315. gs 'body_shape', 'initial'
  316. !! Adding underwear and default shoes and assigning them
  317. if $ARGS[1] ! 'CSB' and goth_clothing ! 1:
  318. cheap_panties[37] = 1
  319. cheap_bras[11] = 1
  320. $pantyworntype = 'cheap'
  321. pantywornnumber = 37
  322. $braworntype = 'cheap'
  323. brawornnumber = 11
  324. sgandm[6] = 1
  325. strainers[21] = 1
  326. $shoeworntype = 'gandm'
  327. shoewornnumber = 6
  328. end
  329. !! Starting clothing set
  330. if NTstart = 1:
  331. cheap[161] = 1
  332. cheapH[161] = 100
  333. cheapB[161] = pcs_hips
  334. exercise[29] = 1
  335. exerciseH[29] = 100
  336. cheap[370] = 1
  337. cheapH[370] = 100
  338. cheapB[370] = pcs_hips
  339. swimwear[3] = 1
  340. swimwearH[3] = 60
  341. swimwearB[3] = pcs_hips
  342. sportsclothingnumber = 29
  343. gs 'clothing', 'wear', 'cheap', 370
  344. elseif goth_clothing = 1:
  345. kats_panties[44] = 1
  346. kats_bras[28] = 1
  347. $pantyworntype = 'kats'
  348. pantywornnumber = 44
  349. $braworntype = 'kats'
  350. brawornnumber = 28
  351. exercise[45] = 1
  352. exerciseH[45] = 100
  353. strainers[21] = 1
  354. sgandm[43] = 1
  355. shoewornnumber = 43
  356. $shoeworntype = 'gandm'
  357. average[70] = 1
  358. averageH[70] = 100
  359. averageB[70] = pcs_hips
  360. cheap[60] = 1
  361. cheapH[60] = 100
  362. cheapB[60] = pcs_hips
  363. sportsclothingnumber = 45
  364. gs 'clothing', 'wear', 'average', 70
  365. elseif $ARGS[1] = 'CSB':
  366. cheap_panties[5] = 1
  367. cheap_bras[12] = 1
  368. $pantyworntype = 'cheap'
  369. pantywornnumber = 5
  370. $braworntype = 'cheap'
  371. brawornnumber = 12
  372. exercise[4] = 1
  373. exerciseH[4] = 100
  374. strainers[21] = 1
  375. sgandm[43] = 1
  376. shoewornnumber = 43
  377. $shoeworntype = 'gandm'
  378. cheap[397] = 1
  379. cheapH[397] = 100
  380. cheapB[397] = pcs_hips
  381. cheap[355] = 1
  382. cheapH[355] = 100
  383. cheapB[355] = pcs_hips
  384. sportsclothingnumber = 4
  385. gs 'clothing', 'wear', 'cheap', 355
  386. elseif pcs_inhib < 5:
  387. cheap[15] = 1
  388. cheapH[15] = 100
  389. cheapB[15] = pcs_hips
  390. exercise[4] = 1
  391. exerciseH[4] = 100
  392. cheap[36] = 1
  393. cheapH[36] = 100
  394. cheapB[36] = pcs_hips
  395. sportsclothingnumber = 4
  396. gs 'clothing', 'wear', 'cheap', 15
  397. elseif pcs_inhib < 10:
  398. cheap[48] = 1
  399. cheapH[48] = 100
  400. cheapB[48] = pcs_hips
  401. exercise[4] = 1
  402. exerciseH[4] = 100
  403. cheap[83] = 1
  404. cheapH[83] = 100
  405. cheapB[83] = pcs_hips
  406. sportsclothingnumber = 4
  407. gs 'clothing', 'wear', 'cheap', 48
  408. elseif pcs_inhib < 15:
  409. cheap[20] = 1
  410. cheapH[20] = 100
  411. cheapB[20] = pcs_hips
  412. exercise[4] = 1
  413. exerciseH[4] = 100
  414. cheap[70] = 1
  415. cheapH[70] = 100
  416. cheapB[70] = pcs_hips
  417. sportsclothingnumber = 4
  418. gs 'clothing', 'wear', 'cheap', 20
  419. elseif pcs_inhib < 20:
  420. cheap[32] = 1
  421. cheapH[32] = 100
  422. cheapB[32] = pcs_hips
  423. exercise[4] = 1
  424. exerciseH[4] = 100
  425. cheap[62] = 1
  426. cheapH[62] = 100
  427. cheapB[62] = pcs_hips
  428. sportsclothingnumber = 4
  429. gs 'clothing', 'wear', 'cheap', 32
  430. elseif pcs_inhib < 25:
  431. cheap[4] = 1
  432. cheapH[4] = 100
  433. cheapB[4] = pcs_hips
  434. exercise[4] = 1
  435. exerciseH[4] = 100
  436. cheap[41] = 1
  437. cheapH[41] = 100
  438. cheapB[41] = pcs_hips
  439. sportsclothingnumber = 4
  440. gs 'clothing', 'wear', 'cheap', 41
  441. elseif pcs_inhib < 30:
  442. cheap[50] = 1
  443. cheapH[50] = 100
  444. cheapB[50] = pcs_hips
  445. exercise[4] = 1
  446. exerciseH[4] = 100
  447. cheap[81] = 1
  448. cheapH[81] = 100
  449. cheapB[81] = pcs_hips
  450. sportsclothingnumber = 4
  451. gs 'clothing', 'wear', 'cheap', 50
  452. elseif pcs_inhib < 35:
  453. cheap[82] = 1
  454. cheapH[82] = 100
  455. cheapB[82] = pcs_hips
  456. exercise[4] = 1
  457. exerciseH[4] = 100
  458. cheap[43] = 1
  459. cheapH[43] = 100
  460. cheapB[43] = pcs_hips
  461. sportsclothingnumber = 4
  462. gs 'clothing', 'wear', 'cheap', 43
  463. elseif pcs_inhib < 40:
  464. cheap[43] = 1
  465. cheapH[43] = 100
  466. cheapB[43] = pcs_hips
  467. exercise[4] = 1
  468. exerciseH[4] = 100
  469. cheap[73] = 1
  470. cheapH[73] = 100
  471. cheapB[73] = pcs_hips
  472. sportsclothingnumber = 4
  473. gs 'clothing', 'wear', 'cheap', 43
  474. elseif pcs_inhib < 45:
  475. cheap[226] = 1
  476. cheapH[226] = 100
  477. cheapB[226] = pcs_hips
  478. exercise[95] = 1
  479. exerciseH[95] = 100
  480. cheap[236] = 1
  481. cheapH[236] = 100
  482. cheapB[236] = pcs_hips
  483. sportsclothingnumber = 95
  484. gs 'clothing', 'wear', 'cheap', 226
  485. elseif pcs_inhib < 50:
  486. cheap[292] = 1
  487. cheapH[292] = 100
  488. cheapB[292] = pcs_hips
  489. exercise[94] = 1
  490. exerciseH[94] = 100
  491. cheap[148] = 1
  492. cheapH[148] = 100
  493. cheapB[148] = pcs_hips
  494. sportsclothingnumber = 94
  495. gs 'clothing', 'wear', 'cheap', 148
  496. else
  497. cheap[118] = 1
  498. cheapH[118] = 100
  499. cheapB[118] = pcs_hips
  500. exercise[58] = 1
  501. exerciseH[58] = 100
  502. cheap[136] = 1
  503. cheapH[136] = 100
  504. cheapB[136] = pcs_hips
  505. swimwear[24] = 1
  506. swimwearH[24] = 60
  507. swimwearB[24] = pcs_hips
  508. sportsclothingnumber = 58
  509. gs 'clothing', 'wear', 'cheap', 118
  510. end
  511. if swim_start = 58:
  512. swimwear[58] = 1
  513. swimwearH[58] = 60
  514. swimwearB[58] = pcs_hips
  515. elseif swim_start = 98:
  516. swimwear[98] = 1
  517. swimwearH[98] = 60
  518. swimwearB[98] = pcs_hips
  519. elseif swim_start = 69:
  520. swimwear[69] = 1
  521. swimwearH[69] = 60
  522. swimwearB[69] = pcs_hips
  523. end
  524. !!setting default exercise outfit and setting coats
  525. if school_clothing = 1:
  526. killvar 'school_clothing'
  527. alternative[55] = 1
  528. alternativeH[55] = 120
  529. alternativeB[55] = pcs_hips
  530. sportspantynumber = 44
  531. sportsbranumber = 28
  532. $sportsbratype = 'kats'
  533. $sportspantytype = 'kats'
  534. coat[14] = 1
  535. coatH[14] = 200
  536. defaultcoat = 14
  537. sportscoat = 14
  538. else
  539. if $ARGS[1] ! 'CSB':
  540. sportspantynumber = 37
  541. sportsbranumber = 11
  542. else
  543. sportspantynumber = 5
  544. sportsbranumber = 12
  545. end
  546. $sportsbratype = 'cheap'
  547. $sportspantytype = 'cheap'
  548. coat[5] = 1
  549. coatH[5] = 200
  550. defaultcoat = 5
  551. sportscoat = 5
  552. if school_clothing = 2:
  553. school[10] = 1
  554. schoolH[10] = 120
  555. schoolB[10] = pcs_hips
  556. elseif school_clothing = 3:
  557. school[63] = 1
  558. schoolH[63] = 120
  559. schoolB[63] = pcs_hips
  560. elseif school_clothing = 4:
  561. alternative[19] = 1
  562. alternativeH[19] = 120
  563. alternativeB[19] = pcs_hips
  564. elseif school_clothing = 5:
  565. school[25] = 1
  566. schoolH[25] = 120
  567. schoolB[25] = pcs_hips
  568. elseif school_clothing = 6:
  569. school[26] = 1
  570. schoolH[26] = 120
  571. schoolB[26] = pcs_hips
  572. elseif school_clothing = 7:
  573. school[26] = 1
  574. schoolH[26] = 120
  575. schoolB[26] = pcs_hips
  576. exercise[32] = 1
  577. exerciseH[32] = 100
  578. sportsclothingnumber = 32
  579. strainers[17] = 1
  580. strainers[21] = 0
  581. sport_bras[1] = 1
  582. sport_brasS[1] = 0
  583. $sportsbratype = 'sport'
  584. sportsbranumber = 1
  585. sport_panties[1] = 1
  586. sport_pantiesS[1] = 0
  587. $sportspantytype = 'sport'
  588. sportspantynumber = 1
  589. end
  590. killvar 'school_clothing'
  591. end
  592. if strainers[17] = 1:
  593. sportsshoenumber = 17
  594. else
  595. sportsshoenumber = 21
  596. end
  597. $sportspursetype = $currentpursetype
  598. sportspursenumber = currentpursenumber
  599. $sports_clothing_name = 'default sports outfit'
  600. killvar 'swim_start'
  601. !! **********
  602. gs 'daystart'
  603. gs 'din_pav'
  604. gs 'din_npc'
  605. gs 'dinSex2'
  606. gs 'dina'
  607. gs 'din_van'
  608. gs 'din_bad'
  609. gs 'dinSex'
  610. !! 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
  611. rikudootvet = 1415
  612. gs 'BanSexType'
  613. gs 'outdoors', 'weather'
  614. menoage = rand(40,50)
  615. temprand = rand(0,10)
  616. if temprand = 0:
  617. menoage += rand(0,5)
  618. elseif temprand < 4:
  619. menoage += rand(3,10)
  620. elseif temprand < 9:
  621. menoage += rand(5,12)
  622. else
  623. menoage += rand(7,13)
  624. end
  625. !!Setting up period start and turning on auto tracking if not on hardcore difficulty
  626. daylastperiod = daystart
  627. temprand = rand(1,3)
  628. if temprand = 1:
  629. cycle = 1
  630. EggRH = rand(1,149)
  631. FocH = EggRH + 4*24
  632. mesec = 0
  633. unfertegg = 0
  634. ferteggage = 0
  635. Ovulate = 0
  636. LutH = 0
  637. daylastperiod -= FocH/24
  638. elseif temprand = 2:
  639. lastovulation = daystart
  640. cycle = 2
  641. unfertegg = 1
  642. ferteggage = rand(0,44)
  643. Ovulate = (rand(24,44) - ferteggage)
  644. if Ovulate <= 0: Ovulate = 1
  645. mesec = 0
  646. EggRH = 0
  647. FocH = 0
  648. LutH = 0
  649. daylastperiod -= 10+(ferteggage/24)
  650. elseif temprand = 3:
  651. cycle = 3
  652. LutH = rand(0,300)
  653. ferteggage = 36 + LutH
  654. mesec = 0
  655. EggRH = 0
  656. FocH = 0
  657. unfertegg = 0
  658. Ovulate = 0
  659. daylastperiod -= 10+(ferteggage/24)
  660. end
  661. if daylastperiod + 4 > daystart:
  662. lastmens = daylastperiod - 20
  663. else
  664. lastmens = daylastperiod+4
  665. end
  666. if difficulty = 4:
  667. cyccustom = 0
  668. else
  669. cyccustom = 1
  670. end
  671. pcs_horny = 0
  672. killvar 'opPRE'
  673. killvar 'tgs_skipinto'
  674. gs 'stat'
  675. showstat 0
  676. showobjs 0
  677. if $ARGS[1] = 'NT':
  678. gt 'preNT'
  679. elseif $ARGS[1] = 'TGS':
  680. gt 'preTG', 'sleepPRE'
  681. elseif $ARGS[1] = 'CSB':
  682. gt 'preCSB', 'intro_0'
  683. else
  684. gt 'preALT', 'One'
  685. end
  686. end
  687. --- preCUST ---------------------------------