1
0

preCUST.qsrc 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640
  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. if $start_type = 'tg':
  91. act 'Done': gt 'preCUST', 'TGStart'
  92. elseif $start_type = 'nt':
  93. act 'Done': gt 'preCUST', 'NTStart2'
  94. else
  95. act 'Done': gt 'preCUST', 'SGStart'
  96. end
  97. end
  98. !!******************** Final variable setting and initializations ***********************
  99. if $ARGS[0] = 'Done':
  100. !! Top area for things that need to be done before setting the variables for either start
  101. year = 2016
  102. BDSMfilm = 0
  103. pornstudio = 0
  104. pfilmSTOP = 0
  105. thinkpreg = 0
  106. denypreg = 0
  107. pertemp = 1
  108. pillcvrt = 1
  109. pcs_naturallashes = pcs_lashes
  110. !! Initializing elasticity
  111. vshrink = 1
  112. vshrinkdays = 6
  113. ashrink = 1
  114. ashrinkdays = 3
  115. fairycurse = -1
  116. $excer_name[1] = 'Default 1'
  117. $excer_name[2] = 'Default 2'
  118. $excer_name[3] = 'Default 3'
  119. $excer_name[4] = 'Default 4'
  120. $excer_name[5] = 'Default 5'
  121. gs 'fight', 'Wrestlergen'
  122. monthsend[1] = 31
  123. if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0):
  124. Leapyear = 1 & monthsend[2] = 29
  125. else
  126. Leapyear = 0 & monthsend[2] = 28
  127. end
  128. monthsend[3] = 31
  129. monthsend[4] = 30
  130. monthsend[5] = 31
  131. monthsend[6] = 30
  132. monthsend[7] = 31
  133. monthsend[8] = 31
  134. monthsend[9] = 30
  135. monthsend[10] = 31
  136. monthsend[11] = 30
  137. monthsend[12] = 31
  138. $monthName[1] = 'January'
  139. $monthName[2] = 'February'
  140. $monthName[3] = 'March'
  141. $monthName[4] = 'April'
  142. $monthName[5] = 'May'
  143. $monthName[6] = 'June'
  144. $monthName[7] = 'July'
  145. $monthName[8] = 'August'
  146. $monthName[9] = 'September'
  147. $monthName[10] = 'October'
  148. $monthName[11] = 'November'
  149. $monthName[12] = 'December'
  150. $month = $monthName[month]
  151. gs 'telefon', 'setup'
  152. !! TG Start Specific Variable Setting
  153. if $ARGS[1] = 'TGS':
  154. age = 18
  155. month = 5
  156. $month = 'May'
  157. day = 4
  158. week = 3
  159. hour = 13
  160. if player_avatar = 0:
  161. birthyear = year - age
  162. birthmonth = 4
  163. birthday = 1
  164. school_year = 1998
  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. school_year = 1998
  218. end
  219. !! Body
  220. pcs_hgt = 170
  221. salo = 60
  222. dick = 0
  223. !! Stats
  224. pcs_stren = 20
  225. strenbuf = 20
  226. pcs_agil = 15
  227. agilbuf = 15
  228. pcs_vital = 25
  229. vitalbuf = 25
  230. pcs_intel = 30
  231. pcs_sprt = 25
  232. pcs_react = 25
  233. pcs_chrsm = 15
  234. pcs_prcptn = 40
  235. money = 13000
  236. pcs_pubes = 30
  237. pcs_leghair = 12
  238. pcs_makeup = 5
  239. cheap_purses[7] = 1
  240. $currentpursetype = 'cheap'
  241. currentpursenumber = 7
  242. bag = 1
  243. home_owned[1] = 1
  244. pcs_inhib = 15
  245. pcs_heels = 20
  246. pcs_makupskl = 15
  247. pcs_artskls = 15
  248. pcs_compskl = 20
  249. pcs_comphckng = 10
  250. pcs_chess = 15
  251. pcs_danc = 30
  252. cltarelka = 1
  253. fairy = 10
  254. eda = 5
  255. poroshok = 5
  256. shampoo = 20
  257. tampon = 15
  258. pcs_energy = 100
  259. pcs_hydra = 100
  260. pcs_sleep = 100
  261. willpowermax = 100
  262. !! Starting Option Adjustments
  263. !! The TG Background options would be aplied here
  264. !! ***********
  265. end
  266. !! SG Start Specific Variable Setting
  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. oldsavepcs_haircol = 1
  314. gs 'body_shape', 'initial'
  315. !! Adding underwear and default shoes and assigning them
  316. if $ARGS[1] ! 'CSB':
  317. cheap_panties[37] = 1
  318. cheap_bras[11] = 1
  319. $pantyworntype = 'cheap'
  320. pantywornnumber = 37
  321. $braworntype = 'cheap'
  322. brawornnumber = 11
  323. sgandm[6] = 1
  324. strainers[21] = 1
  325. $shoeworntype = 'gandm'
  326. shoewornnumber = 6
  327. end
  328. !! Starting clothing set
  329. if NTstart = 1:
  330. cheap[161] = 1
  331. cheapH[161] = 100
  332. cheapB[161] = pcs_hips
  333. exercise[29] = 1
  334. exerciseH[29] = 100
  335. cheap[370] = 1
  336. cheapH[370] = 100
  337. cheapB[370] = pcs_hips
  338. swimwear[3] = 1
  339. swimwearH[3] = 60
  340. swimwearB[3] = pcs_hips
  341. sportsclothingnumber = 29
  342. gs 'clothing', 'wear', 'cheap', 370
  343. elseif $ARGS[1] = 'CSB':
  344. cheap_panties[5] = 1
  345. cheap_bras[12] = 1
  346. $pantyworntype = 'cheap'
  347. pantywornnumber = 5
  348. $braworntype = 'cheap'
  349. brawornnumber = 12
  350. exercise[4] = 1
  351. exerciseH[4] = 100
  352. strainers[21] = 1
  353. sgandm[43] = 1
  354. shoewornnumber = 43
  355. $shoeworntype = 'gandm'
  356. cheap[397] = 1
  357. cheapH[397] = 100
  358. cheapB[397] = pcs_hips
  359. cheap[355] = 1
  360. cheapH[355] = 100
  361. cheapB[355] = pcs_hips
  362. sportsclothingnumber = 4
  363. gs 'clothing', 'wear', 'cheap', 355
  364. elseif pcs_inhib = 0:
  365. cheap[15] = 1
  366. cheapH[15] = 100
  367. cheapB[15] = pcs_hips
  368. exercise[4] = 1
  369. exerciseH[4] = 100
  370. cheap[36] = 1
  371. cheapH[36] = 100
  372. cheapB[36] = pcs_hips
  373. sportsclothingnumber = 4
  374. gs 'clothing', 'wear', 'cheap', 15
  375. elseif pcs_inhib = 5:
  376. cheap[48] = 1
  377. cheapH[48] = 100
  378. cheapB[48] = pcs_hips
  379. exercise[4] = 1
  380. exerciseH[4] = 100
  381. cheap[83] = 1
  382. cheapH[83] = 100
  383. cheapB[83] = pcs_hips
  384. sportsclothingnumber = 4
  385. gs 'clothing', 'wear', 'cheap', 48
  386. elseif pcs_inhib = 10:
  387. cheap[20] = 1
  388. cheapH[20] = 100
  389. cheapB[20] = pcs_hips
  390. exercise[4] = 1
  391. exerciseH[4] = 100
  392. cheap[70] = 1
  393. cheapH[70] = 100
  394. cheapB[70] = pcs_hips
  395. sportsclothingnumber = 4
  396. gs 'clothing', 'wear', 'cheap', 20
  397. elseif pcs_inhib = 15:
  398. cheap[32] = 1
  399. cheapH[32] = 100
  400. cheapB[32] = pcs_hips
  401. exercise[4] = 1
  402. exerciseH[4] = 100
  403. cheap[62] = 1
  404. cheapH[62] = 100
  405. cheapB[62] = pcs_hips
  406. sportsclothingnumber = 4
  407. gs 'clothing', 'wear', 'cheap', 32
  408. elseif pcs_inhib = 20:
  409. cheap[4] = 1
  410. cheapH[4] = 100
  411. cheapB[4] = pcs_hips
  412. exercise[4] = 1
  413. exerciseH[4] = 100
  414. cheap[41] = 1
  415. cheapH[41] = 100
  416. cheapB[41] = pcs_hips
  417. sportsclothingnumber = 4
  418. gs 'clothing', 'wear', 'cheap', 41
  419. elseif pcs_inhib = 25:
  420. cheap[50] = 1
  421. cheapH[50] = 100
  422. cheapB[50] = pcs_hips
  423. exercise[4] = 1
  424. exerciseH[4] = 100
  425. cheap[81] = 1
  426. cheapH[81] = 100
  427. cheapB[81] = pcs_hips
  428. sportsclothingnumber = 4
  429. gs 'clothing', 'wear', 'cheap', 50
  430. elseif pcs_inhib = 30:
  431. cheap[82] = 1
  432. cheapH[82] = 100
  433. cheapB[82] = pcs_hips
  434. exercise[4] = 1
  435. exerciseH[4] = 100
  436. cheap[43] = 1
  437. cheapH[43] = 100
  438. cheapB[43] = pcs_hips
  439. sportsclothingnumber = 4
  440. gs 'clothing', 'wear', 'cheap', 43
  441. elseif pcs_inhib = 35:
  442. cheap[43] = 1
  443. cheapH[43] = 100
  444. cheapB[43] = pcs_hips
  445. exercise[4] = 1
  446. exerciseH[4] = 100
  447. cheap[73] = 1
  448. cheapH[73] = 100
  449. cheapB[73] = pcs_hips
  450. sportsclothingnumber = 4
  451. gs 'clothing', 'wear', 'cheap', 43
  452. end
  453. coat[5] = 1
  454. coatH[5] = 200
  455. defaultcoat = 5
  456. if swim_start = 58:
  457. swimwear[58] = 1
  458. swimwearH[58] = 60
  459. swimwearB[58] = pcs_hips
  460. elseif swim_start = 98:
  461. swimwear[98] = 1
  462. swimwearH[98] = 60
  463. swimwearB[98] = pcs_hips
  464. elseif swim_start = 69:
  465. swimwear[69] = 1
  466. swimwearH[69] = 60
  467. swimwearB[69] = pcs_hips
  468. end
  469. !!setting default exercise outfit
  470. if $ARGS[1] ! 'CSB':
  471. sportspantynumber = 37
  472. sportsbranumber = 11
  473. else
  474. sportspantynumber = 5
  475. sportsbranumber = 12
  476. end
  477. $sportsbratype = 'cheap'
  478. $sportspantytype = 'cheap'
  479. sportsshoenumber = 21
  480. sportscoat = 5
  481. $sportspursetype = $currentpursetype
  482. sportspursenumber = currentpursenumber
  483. $sports_clothing_name = 'default sports outfit'
  484. killvar 'swim_start'
  485. !! **********
  486. gs 'daystart'
  487. gs 'din_pav'
  488. gs 'din_npc'
  489. gs 'dinSex2'
  490. gs 'dina'
  491. gs 'din_van'
  492. gs 'din_bad'
  493. gs 'dinSex'
  494. !! 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
  495. rikudootvet = 1415
  496. gs 'BanSexType'
  497. gs 'outdoors', 'weather'
  498. menoage = rand(40,50)
  499. temprand = rand(0,10)
  500. if temprand = 0:
  501. menoage += rand(0,5)
  502. elseif temprand < 4:
  503. menoage += rand(3,10)
  504. elseif temprand < 9:
  505. menoage += rand(5,12)
  506. else
  507. menoage += rand(7,13)
  508. end
  509. daylastperiod = daystart
  510. temprand = rand(1,3)
  511. if temprand = 1:
  512. cycle = 1
  513. EggRH = rand(1,149)
  514. FocH = EggRH + 4*24
  515. mesec = 0
  516. unfertegg = 0
  517. ferteggage = 0
  518. Ovulate = 0
  519. LutH = 0
  520. daylastperiod -= FocH/24
  521. elseif temprand = 2:
  522. lastovulation = daystart
  523. cycle = 2
  524. unfertegg = 1
  525. ferteggage = rand(0,44)
  526. Ovulate = (rand(24,44) - ferteggage)
  527. if Ovulate <= 0: Ovulate = 1
  528. mesec = 0
  529. EggRH = 0
  530. FocH = 0
  531. LutH = 0
  532. daylastperiod -= 10+(ferteggage/24)
  533. elseif temprand = 3:
  534. cycle = 3
  535. LutH = rand(0,300)
  536. ferteggage = 36 + LutH
  537. mesec = 0
  538. EggRH = 0
  539. FocH = 0
  540. unfertegg = 0
  541. Ovulate = 0
  542. daylastperiod -= 10+(ferteggage/24)
  543. end
  544. if daylastperiod + 4 > daystart:
  545. lastmens = daylastperiod - 20
  546. else
  547. lastmens = daylastperiod+4
  548. end
  549. pcs_horny = 0
  550. killvar 'opPRE'
  551. killvar 'tgs_skipinto'
  552. gs 'stat'
  553. showstat 0
  554. showobjs 0
  555. if $ARGS[1] = 'NT':
  556. gt 'preNT'
  557. elseif $ARGS[1] = 'TGS':
  558. gt 'preTG', 'sleepPRE'
  559. elseif $ARGS[1] = 'CSB':
  560. gt 'preCSB', 'intro_0'
  561. else
  562. gt 'preALT', 'One'
  563. end
  564. end
  565. --- preCUST ---------------------------------