preCUST.qsrc 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765
  1. # preCUST
  2. !2020/10/14/Gwen
  3. cls
  4. gs 'themes', 'indoors'
  5. !!Body Customization and Initializations
  6. if $ARGS[0] = 'BeforeCust':
  7. !! This is a placeholder at the moment
  8. end
  9. !!******************** TG Start Body Customization Menu ******************************
  10. if $ARGS[0] = 'TGStart':
  11. $start_type = 'tg'
  12. !! This is to bypass the next part if the avatar system was used
  13. !! It will be changed to bypass the head options, once more body options are added
  14. if player_avatar = 1: gt 'preCUST', 'Done', 'TGS'
  15. !! Just hair and eye color here for now; the dialog will be update as more options are added
  16. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  17. '<center><img <<$set_imgh>> src="images/system/intro/shared/character_creation_pic1.jpg"></center>'
  18. '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.'
  19. 'She is fairly tall.'
  20. *nl
  21. '<center>Customize your:</center>'
  22. '<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/intro/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/intro/shared/eye icon.png"></a></center>'
  23. *nl
  24. 'Everything else about her is fuzzy...'
  25. act 'Done': gt 'preCUST', 'Done', 'TGS'
  26. end
  27. !!******************** SG Start Body Customization Menu ******************************
  28. if $ARGS[0] = 'SGStart':
  29. $start_type = 'sgs'
  30. !! This is to bypass the next part if the avatar system was used
  31. !! It will be changed to bypass the head options, once more body options are added
  32. if player_avatar = 1: gt 'preCUST', 'Done', 'SGS'
  33. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  34. '<center><img <<$set_imgh>> src="images/system/intro/shared/character_creation_pic1.jpg"></center>'
  35. *nl
  36. '<center>Customize your:</center>'
  37. '<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/intro/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/intro/shared/eye icon.png"></a></center>'
  38. act 'Done': gt 'preCUST', 'Done', 'SGS'
  39. end
  40. !!******************** NT Start Body Customization Menu ******************************
  41. if $ARGS[0] = 'NTStart':
  42. $start_type = 'nt'
  43. !! This is to bypass the next part if the avatar system was used
  44. !! It will be changed to bypass the head options, once more body options are added
  45. !! It is using the TG done to complete and the magikDostup to split at the end
  46. NTstart = 1
  47. !!Default Names
  48. $pcs_firstname = 'Svetlana'
  49. $pcs_lastname = 'Lebedev'
  50. $pcs_nickname = 'Sveta'
  51. !!Player names are set here
  52. $temp_firstname = '<<$pcs_firstname>>'
  53. $pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
  54. if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
  55. killvar '$temp_firstname'
  56. $temp_lastname = '<<$pcs_lastname>>'
  57. $pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
  58. if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
  59. killvar '$temp_lastname'
  60. $temp_nickname = '<<$pcs_nickname>>'
  61. $pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
  62. if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
  63. killvar '$temp_nickname'
  64. if player_avatar = 1:
  65. act 'Continue': gt 'preCUST', 'Done', 'NT'
  66. else
  67. gs 'preCUST', 'NTStart2'
  68. end
  69. end
  70. if $ARGS[0] = 'NTStart2':
  71. pcs_hairlng = 100
  72. !! Just hair and eye color here for now; the dialog will be update as more options are added
  73. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  74. '<center><img <<$set_imgh>> src="images/system/intro/shared/character_creation_pic1.jpg"></center>'
  75. '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.'
  76. 'You are fairly tall.'
  77. *nl
  78. '<center>Customize your:</center>'
  79. '<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/intro/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/intro/shared/eye icon.png"></a></center>'
  80. act 'Done': gt 'preCUST', 'Done', 'NT'
  81. end
  82. !!******************** Start Body Customization options ******************************
  83. if $ARGS[0] = 'hair':
  84. if pcs_haircol = 0: 'Your hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''hair''">black</a>.'
  85. if pcs_haircol = 1: 'Your hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''hair''">brown</a>.'
  86. if pcs_haircol = 2: 'Your hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''hair''">red</a>.'
  87. if pcs_haircol = 3: 'Your hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''hair''">blonde</a>.'
  88. if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''preCUST'', ''hair''">straight</a>.'
  89. if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''preCUST'', ''hair''">curly</a>.'
  90. nathcol = pcs_haircol
  91. pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
  92. if $start_type = 'tg':
  93. act 'Done': gt 'preCUST', 'TGStart'
  94. elseif $start_type = 'nt':
  95. act 'Done': gt 'preCUST', 'NTStart2'
  96. else
  97. act 'Done': gt 'preCUST', 'SGStart'
  98. end
  99. end
  100. !!******************** Final variable setting and initializations ***********************
  101. if $ARGS[0] = 'Done':
  102. !! Top area for things that need to be done before setting the variables for either start
  103. year = 2016
  104. BDSMfilm = 0
  105. pornstudio = 0
  106. pfilmSTOP = 0
  107. thinkpreg = 0
  108. denypreg = 0
  109. pertemp = 1
  110. pillcvrt = 1
  111. pcs_naturallashes = pcs_lashes
  112. !! Initializing elasticity
  113. vshrink = 1
  114. vshrinkdays = 6
  115. ashrink = 1
  116. ashrinkdays = 3
  117. fairycurse = -1
  118. $excer_name[1] = 'Default 1'
  119. $excer_name[2] = 'Default 2'
  120. $excer_name[3] = 'Default 3'
  121. $excer_name[4] = 'Default 4'
  122. $excer_name[5] = 'Default 5'
  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. gm_purses[7] = 1
  239. $currentpursetype = 'gm'
  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. gm_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. sgm[6] = 1
  325. sdanilovich[21] = 1
  326. $shoeworntype = 'gm'
  327. shoewornnumber = 6
  328. end
  329. !! Starting clothing set
  330. if NTstart = 1:
  331. gm_outfits[50] = 1
  332. gm_outfits_h[50] = 100
  333. gm_outfits_b[50] = pcs_hips
  334. danilovich[81] = 1
  335. danilovich_h[81] = 100
  336. gm_dress[11] = 1
  337. gm_dress_h[11] = 100
  338. gm_dress_b[11] = pcs_hips
  339. swimwear[3] = 1
  340. swimwear_h[3] = 60
  341. swimwear_b[3] = pcs_hips
  342. sportsclothingnumber = 81
  343. gs 'clothing', 'wear', 'gm_dress', 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. danilovich[91] = 1
  352. danilovich_h[91] = 100
  353. sdanilovich[21] = 1
  354. sgm[9] = 1
  355. shoewornnumber = 9
  356. $shoeworntype = 'gm'
  357. bomba_outfits[16] = 1
  358. bomba_outfits_h[16] = 100
  359. bomba_outfits_b[16] = pcs_hips
  360. bomba_outfits[37] = 1
  361. bomba_outfits_h[37] = 100
  362. bomba_outfits_b[37] = pcs_hips
  363. sportsclothingnumber = 91
  364. gs 'clothing', 'wear', 'bomba_outfits', 37
  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. danilovich[78] = 1
  373. danilovich_h[78] = 100
  374. sdanilovich[21] = 1
  375. sgm[9] = 1
  376. shoewornnumber = 9
  377. $shoeworntype = 'gm'
  378. gm_outfits[7] = 1
  379. gm_outfits_h[7] = 100
  380. gm_outfits_b[7] = pcs_hips
  381. gm_dress[12] = 1
  382. gm_dress_h[12] = 100
  383. gm_dress_b[12] = pcs_hips
  384. sportsclothingnumber = 78
  385. gs 'clothing', 'wear', 'gm_dress', 12
  386. elseif pcs_inhib < 5:
  387. gm_outfits[7] = 1
  388. gm_outfits_h[7] = 100
  389. gm_outfits_b[7] = pcs_hips
  390. danilovich[86] = 1
  391. danilovich_h[86] = 100
  392. gm_dress[12] = 1
  393. gm_dress_h[12] = 100
  394. gm_dress_b[12] = pcs_hips
  395. sportsclothingnumber = 86
  396. gs 'clothing', 'wear', 'gm_dress', 12
  397. elseif pcs_inhib < 10:
  398. gm_outfits[15] = 1
  399. gm_outfits_h[15] = 100
  400. gm_outfits_b[15] = pcs_hips
  401. danilovich[76] = 1
  402. danilovich_h[76] = 100
  403. gm_dress[4] = 1
  404. gm_dress_h[4] = 100
  405. gm_dress_b[4] = pcs_hips
  406. sportsclothingnumber = 76
  407. gs 'clothing', 'wear', 'gm_dress', 4
  408. elseif pcs_inhib < 15:
  409. gm_outfits[58] = 1
  410. gm_outfits_h[58] = 100
  411. gm_outfits_b[58] = pcs_hips
  412. danilovich[106] = 1
  413. danilovich_h[106] = 100
  414. gm_dress[7] = 1
  415. gm_dress_h[7] = 100
  416. gm_dress_b[7] = pcs_hips
  417. sportsclothingnumber = 106
  418. gs 'clothing', 'wear', 'gm_dress', 7
  419. elseif pcs_inhib < 20:
  420. gm_outfits[55] = 1
  421. gm_outfits_h[55] = 100
  422. gm_outfits_b[55] = pcs_hips
  423. danilovich[43] = 1
  424. danilovich_h[43] = 100
  425. gm_dress[7] = 1
  426. gm_dress_h[7] = 100
  427. gm_dress_b[7] = pcs_hips
  428. sportsclothingnumber = 43
  429. gs 'clothing', 'wear', 'gm_dress', 7
  430. elseif pcs_inhib < 25:
  431. gm_outfits[58] = 1
  432. gm_outfits_h[58] = 100
  433. gm_outfits_b[58] = pcs_hips
  434. danilovich[1] = 1
  435. danilovich_h[1] = 100
  436. gm_dress[39] = 1
  437. gm_dress_h[39] = 100
  438. gm_dress_b[39] = pcs_hips
  439. sportsclothingnumber = 1
  440. gs 'clothing', 'wear', 'gm_dress', 39
  441. elseif pcs_inhib < 30:
  442. gm_outfits[91] = 1
  443. gm_outfits_h[91] = 100
  444. gm_outfits_b[91] = pcs_hips
  445. danilovich[48] = 1
  446. danilovich_h[48] = 100
  447. gm_dress[57] = 1
  448. gm_dress_h[57] = 100
  449. gm_dress_b[57] = pcs_hips
  450. sportsclothingnumber = 48
  451. gs 'clothing', 'wear', 'gm_dress', 57
  452. elseif pcs_inhib < 35:
  453. gm_outfits[95] = 1
  454. gm_outfits_h[95] = 100
  455. gm_outfits_b[95] = pcs_hips
  456. danilovich[40] = 1
  457. danilovich_h[40] = 100
  458. gm_dress[63] = 1
  459. gm_dress_h[63] = 100
  460. gm_dress_b[63] = pcs_hips
  461. sportsclothingnumber = 40
  462. gs 'clothing', 'wear', 'gm_dress', 63
  463. elseif pcs_inhib < 40:
  464. gm_outfits[124] = 1
  465. gm_outfits_h[124] = 100
  466. gm_outfits_b[124] = pcs_hips
  467. danilovich[45] = 1
  468. danilovich_h[45] = 100
  469. gm_dress[89] = 1
  470. gm_dress_h[89] = 100
  471. gm_dress_b[89] = pcs_hips
  472. sportsclothingnumber = 45
  473. gs 'clothing', 'wear', 'gm_dress', 89
  474. elseif pcs_inhib < 45:
  475. gm_outfits[131] = 1
  476. gm_outfits_h[131] = 100
  477. gm_outfits_b[131] = pcs_hips
  478. danilovich[38] = 1
  479. danilovich_h[38] = 100
  480. gm_dress[109] = 1
  481. gm_dress_h[109] = 100
  482. gm_dress_b[109] = pcs_hips
  483. sportsclothingnumber = 38
  484. gs 'clothing', 'wear', 'gm_dress', 109
  485. elseif pcs_inhib < 50:
  486. gm_outfits[145] = 1
  487. gm_outfits_h[145] = 100
  488. gm_outfits_b[145] = pcs_hips
  489. danilovich[143] = 1
  490. danilovich_h[143] = 100
  491. gm_dress[123] = 1
  492. gm_dress_h[123] = 100
  493. gm_dress_b[123] = pcs_hips
  494. sportsclothingnumber = 143
  495. gs 'clothing', 'wear', 'gm_dress', 123
  496. else
  497. gm_outfits[149] = 1
  498. gm_outfits_h[149] = 100
  499. gm_outfits_b[149] = pcs_hips
  500. danilovich[15] = 1
  501. danilovich_h[15] = 100
  502. gm_dress[149] = 1
  503. gm_dress_h[149] = 100
  504. gm_dress_b[149] = pcs_hips
  505. swimwear[24] = 1
  506. swimwear_h[24] = 60
  507. swimwear_b[24] = pcs_hips
  508. sportsclothingnumber = 15
  509. gs 'clothing', 'wear', 'gm_dress', 149
  510. end
  511. if swim_start = 58:
  512. swimwear[58] = 1
  513. swimwear_h[58] = 60
  514. swimwear_b[58] = pcs_hips
  515. elseif swim_start = 98:
  516. swimwear[98] = 1
  517. swimwear_h[98] = 60
  518. swimwear_b[98] = pcs_hips
  519. elseif swim_start = 69:
  520. swimwear[69] = 1
  521. swimwear_h[69] = 60
  522. swimwear_b[69] = pcs_hips
  523. end
  524. !!setting default danilovich outfit and setting coats
  525. if school_clothing = 1:
  526. killvar 'school_clothing'
  527. bomba_outfits[29] = 1
  528. bomba_outfits_h[29] = 120
  529. bomba_outfits_b[29] = pcs_hips
  530. sportspantynumber = 44
  531. sportsbranumber = 28
  532. $sportsbratype = 'kats'
  533. $sportspantytype = 'kats'
  534. bomba_coats[19] = 1
  535. bomba_coats_h[19] = 200
  536. $coatworntype = 'bomba'
  537. coatwornnumber = 19
  538. $sportscoattype = 'bomba'
  539. sportscoatnumber = 19
  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. gm_coats[12] = 1
  551. gm_coats_h[12] = 200
  552. $coatworntype = 'gm'
  553. coatwornnumber = 12
  554. $sportscoattype = 'gm'
  555. sportscoatnumber = 12
  556. if school_clothing = 2:
  557. gm_school[10] = 1
  558. gm_school_h[10] = 120
  559. gm_school_b[10] = pcs_hips
  560. elseif school_clothing = 3:
  561. gm_school[63] = 1
  562. gm_school_h[63] = 120
  563. gm_school_b[63] = pcs_hips
  564. elseif school_clothing = 4:
  565. dolls_dress[40] = 1
  566. dolls_dress_h[40] = 120
  567. dolls_dress_b[40] = pcs_hips
  568. elseif school_clothing = 5:
  569. gm_school[25] = 1
  570. gm_school_h[25] = 120
  571. gm_school_b[25] = pcs_hips
  572. elseif school_clothing = 6:
  573. gm_school[26] = 1
  574. gm_school_h[26] = 120
  575. gm_school_b[26] = pcs_hips
  576. elseif school_clothing = 7:
  577. gm_school[26] = 1
  578. gm_school_h[26] = 120
  579. gm_school_b[26] = pcs_hips
  580. danilovich[4] = 1
  581. danilovich_h[4] = 100
  582. sportsclothingnumber = 4
  583. sdanilovich[17] = 1
  584. sdanilovich[21] = 0
  585. sport_bras[1] = 1
  586. sport_brasS[1] = 0
  587. $sportsbratype = 'sport'
  588. sportsbranumber = 1
  589. sport_panties[1] = 1
  590. sport_pantiesS[1] = 0
  591. $sportspantytype = 'sport'
  592. sportspantynumber = 1
  593. end
  594. killvar 'school_clothing'
  595. end
  596. if sdanilovich[17] = 1:
  597. sportsshoenumber = 17
  598. else
  599. sportsshoenumber = 21
  600. end
  601. $sportspursetype = $currentpursetype
  602. sportspursenumber = currentpursenumber
  603. $sports_clothing_name = 'default sports outfit'
  604. killvar 'swim_start'
  605. !! **********
  606. gs 'daystart'
  607. gs 'din_pav'
  608. gs 'din_npc'
  609. gs 'dinSex2'
  610. gs 'dina'
  611. gs 'din_van'
  612. gs 'din_bad'
  613. gs 'dinSex'
  614. !! 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
  615. rikudootvet = 1415
  616. gs 'BanSexType'
  617. gs 'outdoors', 'weather'
  618. menoage = rand(40,50)
  619. temprand = rand(0,10)
  620. if temprand = 0:
  621. menoage += rand(0,5)
  622. elseif temprand < 4:
  623. menoage += rand(3,10)
  624. elseif temprand < 9:
  625. menoage += rand(5,12)
  626. else
  627. menoage += rand(7,13)
  628. end
  629. !!Setting up period start and turning on auto tracking if not on hardcore difficulty
  630. daylastperiod = daystart
  631. temprand = rand(1,3)
  632. if temprand = 1:
  633. cycle = 1
  634. EggRH = rand(1,149)
  635. FocH = EggRH + 4*24
  636. mesec = 0
  637. unfertegg = 0
  638. ferteggage = 0
  639. Ovulate = 0
  640. LutH = 0
  641. daylastperiod -= FocH/24
  642. elseif temprand = 2:
  643. lastovulation = daystart
  644. cycle = 2
  645. unfertegg = 1
  646. ferteggage = rand(0,44)
  647. Ovulate = (rand(24,44) - ferteggage)
  648. if Ovulate <= 0: Ovulate = 1
  649. mesec = 0
  650. EggRH = 0
  651. FocH = 0
  652. LutH = 0
  653. daylastperiod -= 10+(ferteggage/24)
  654. elseif temprand = 3:
  655. cycle = 3
  656. LutH = rand(0,300)
  657. ferteggage = 36 + LutH
  658. mesec = 0
  659. EggRH = 0
  660. FocH = 0
  661. unfertegg = 0
  662. Ovulate = 0
  663. daylastperiod -= 10+(ferteggage/24)
  664. end
  665. if daylastperiod + 4 > daystart:
  666. lastmens = daylastperiod - 20
  667. else
  668. lastmens = daylastperiod+4
  669. end
  670. if difficulty = 4:
  671. cyccustom = 0
  672. else
  673. cyccustom = 1
  674. end
  675. pcs_horny = 0
  676. killvar 'opPRE'
  677. killvar 'tgs_skipinto'
  678. gs 'stat'
  679. showstat 0
  680. showobjs 0
  681. if $ARGS[1] = 'NT':
  682. gt 'preNT'
  683. elseif $ARGS[1] = 'TGS':
  684. gt 'preTG', 'sleepPRE'
  685. elseif $ARGS[1] = 'CSB':
  686. gt 'preCSB', 'intro_0'
  687. else
  688. gt 'preALT', 'One'
  689. end
  690. end
  691. --- preCUST ---------------------------------