1
0

preCUST.qsrc 14 KB

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