1
0

preCUST 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461
  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 Options ******************************
  17. if $ARGS[0] = 'TGStart':
  18. !! This is to bypass the next part if the avatar system was used
  19. !! It will be changed to bypass the head options, once more body options are added
  20. if player_avatar = 1: gt 'preCUST', 'Done', 'TGS'
  21. !! Just hair and eye color here for now; the dialog will be update as more options are added
  22. '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.'
  23. 'She is fairly tall.'
  24. ''
  25. if pcs_eyecol = 0: 'She has <a href="exec:pcs_eyecol = 1 & gt ''preCUST'', ''TGStart''">brown</a> eyes.'
  26. if pcs_eyecol = 1: 'She has <a href="exec:pcs_eyecol = 2 & gt ''preCUST'', ''TGStart''">gray</a> eyes.'
  27. if pcs_eyecol = 2: 'She has <a href="exec:pcs_eyecol = 3 & gt ''preCUST'', ''TGStart''">green</a> eyes.'
  28. if pcs_eyecol = 3: 'She has <a href="exec:pcs_eyecol = 0 & gt ''preCUST'', ''TGStart''">blue</a> eyes.'
  29. ''
  30. if pcs_haircol = 0: 'Her hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''TGStart''">black</a>.'
  31. if pcs_haircol = 1: 'Her hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''TGStart''">brown</a>.'
  32. if pcs_haircol = 2: 'Her hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''TGStart''">red</a>.'
  33. if pcs_haircol = 3: 'Her hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''TGStart''">blonde</a>.'
  34. if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''preCUST'', ''TGStart''">straight</a>.'
  35. if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''preCUST'', ''TGStart''">curly</a>.'
  36. ''
  37. 'Everything else about her is fuzzy...'
  38. ''
  39. act 'Done': gt 'preCUST', 'Done', 'TGS'
  40. end
  41. !!******************** SG Start Body Customization Options ******************************
  42. if $ARGS[0] = 'SGStart':
  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. if player_avatar = 1: gt 'preCUST', 'Done', 'SGS'
  46. '<center>Current face image (based on hairstyle)</center>'
  47. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  48. if pcs_eyecol = 0: 'You have <a href="exec:pcs_eyecol = 1 & gt ''preCUST'', ''SGStart''">brown</a> eyes.'
  49. if pcs_eyecol = 1: 'You have <a href="exec:pcs_eyecol = 2 & gt ''preCUST'', ''SGStart''">gray</a> eyes.'
  50. if pcs_eyecol = 2: 'You have <a href="exec:pcs_eyecol = 3 & gt ''preCUST'', ''SGStart''">green</a> eyes.'
  51. if pcs_eyecol = 3: 'You have <a href="exec:pcs_eyecol = 0 & gt ''preCUST'', ''SGStart''">blue</a> eyes.'
  52. ''
  53. if pcs_haircol = 0: 'Your hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''SGStart''">black</a>.'
  54. if pcs_haircol = 1: 'Your hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''SGStart''">brown</a>.'
  55. if pcs_haircol = 2: 'Your hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''SGStart''">red</a>.'
  56. if pcs_haircol = 3: 'Your hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''SGStart''">blonde</a>.'
  57. if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''preCUST'', ''SGStart''">straight</a>.'
  58. if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''preCUST'', ''SGStart''">curly</a>.'
  59. ''
  60. 'Personalize attributes related to your <a href="exec:gs ''begin'', ''eyes''">eyes</a></center>.'
  61. act 'Done': gt 'preCUST', 'Done', 'SGS'
  62. end
  63. !!******************** Final variable setting and initializations ***********************
  64. if $ARGS[0] = 'Done':
  65. !! Top area for things that need to be done before setting the variables for either start
  66. year = 2016
  67. tanga = 1
  68. BDSMfilm = 0
  69. pornstudio = 0
  70. pfilmSTOP = 0
  71. thinkpreg = 0
  72. denypreg = 0
  73. pertemp = 1
  74. pillcvrt = 1
  75. pcs_naturallashes = pcs_lashes
  76. !! Initializing elasticity
  77. vshrink = 1
  78. vshrinkdays = 6
  79. ashrink = 1
  80. ashrinkdays = 3
  81. fairycurse = -1
  82. $excer_name[1] = 'Default 1'
  83. $excer_name[2] = 'Default 2'
  84. $excer_name[3] = 'Default 3'
  85. $excer_name[4] = 'Default 4'
  86. gs 'fight', 'Wrestlergen'
  87. monthsend[1] = 31
  88. if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0):
  89. Leapyear = 1 & monthsend[2] = 29
  90. else
  91. Leapyear = 0 & monthsend[2] = 28
  92. end
  93. monthsend[3] = 31
  94. monthsend[4] = 30
  95. monthsend[5] = 31
  96. monthsend[6] = 30
  97. monthsend[7] = 31
  98. monthsend[8] = 31
  99. monthsend[9] = 30
  100. monthsend[10] = 31
  101. monthsend[11] = 30
  102. monthsend[12] = 31
  103. $monthName[1] = 'January'
  104. $monthName[2] = 'February'
  105. $monthName[3] = 'March'
  106. $monthName[4] = 'April'
  107. $monthName[5] = 'May'
  108. $monthName[6] = 'June'
  109. $monthName[7] = 'July'
  110. $monthName[8] = 'August'
  111. $monthName[9] = 'September'
  112. $monthName[10] = 'October'
  113. $monthName[11] = 'November'
  114. $monthName[12] = 'December'
  115. $month = $monthName[month]
  116. !! TG Start Specific Variable Setting
  117. if $ARGS[1] = 'TGS':
  118. age = 18
  119. month = 5
  120. $month = 'May'
  121. day = 4
  122. week = 3
  123. hour = 13
  124. if player_avatar = 0:
  125. birthyear = year - age
  126. birthmonth = 4
  127. birthday = 1
  128. schoool_year = 1998
  129. end
  130. !! Body
  131. pcs_hgt = 170
  132. salo = 60
  133. dick = 0
  134. !! Stats
  135. pcs_stren = 10
  136. strenbuf = 10
  137. pcs_agil = 10
  138. agilbuf = 10
  139. pcs_vital = 10
  140. vitalbuf = 10
  141. pcs_intel = 10
  142. pcs_sprt = 10
  143. pcs_react = 10
  144. pcs_chrsm = 10
  145. pcs_prcptn = 10
  146. pcs_magik = 0
  147. money = 16500
  148. housrA = 1
  149. pcs_pubes = 30
  150. pcs_leghair = 12
  151. pcs_makeup = 1
  152. housr = 1
  153. !! Maruda Hair Mod
  154. pcs_hairlng = 17
  155. !! ***********
  156. cltarelka = 1
  157. fairy = 10
  158. eda = 5
  159. clrbelo = 2
  160. poroshok = 5
  161. shampoo = 5
  162. tampon = 2
  163. pcs_energy = 100
  164. water = 100
  165. pcs_sleep = 100
  166. !! Starting Option Adjustments
  167. !! The TG Background options would be aplied here
  168. !! ***********
  169. end
  170. !! SG Start Specific Variable Setting
  171. if $ARGS[1] = 'SGS':
  172. school[6] = 1
  173. umbrella = 1
  174. sisboyday = -2
  175. housr = 0
  176. cltarelka = 0
  177. fairy = 0
  178. eda = 0
  179. clrbelo = 10
  180. poroshok = 0
  181. shampoo = 0
  182. sanpad = 20
  183. hcolmotherremember = pcs_haircol
  184. hcolfatherremember = pcs_haircol
  185. hcolfronce = 1
  186. !!Setting Kolkas birthday based off the PCs
  187. koldobtmp_d = rand(1,28)
  188. koldobtmp_y = birthyear
  189. koldobtmp_m = birthmonth + 11
  190. if koldobtmp_m > 12:
  191. koldobtmp_y += 1
  192. koldobtmp_m -= 12
  193. end
  194. npc_dob['A34'] = koldobtmp_y * 10000
  195. npc_dob['A34'] += koldobtmp_m * 100
  196. npc_dob['A34'] += koldobtmp_d
  197. killvar 'koldobtmp_d' & killvar 'koldobtmp_m' & killvar 'koldobtmp_y'
  198. $holyday += ', <b><<kanicont>> days left.</b>'
  199. end
  200. !!*************************
  201. !! Final Initializations
  202. VersionCheck = 5030
  203. pcs_dob = birthyear * 10000
  204. pcs_dob += (birthmonth * 100)
  205. pcs_dob += birthday
  206. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  207. if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
  208. if age < 17:
  209. vidage = age
  210. else
  211. vidage = age - 1
  212. end
  213. vidageday = 300
  214. pcs_health = pcs_vital * 10 + pcs_stren * 5
  215. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  216. pcs_manna = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
  217. pcs_mood = 100
  218. pcs_stam = 100
  219. nathcol = pcs_haircol
  220. oldsavepcs_haircol = 1
  221. gs 'body_shape', 'initial'
  222. !!adding default shoes and assigning them
  223. sgandm[6] = 1
  224. strainers[21] = 1
  225. $cheapshoetype = 'gandm' & cheapshoenumber = 6
  226. $averageshoetype = 'gandm' & averageshoenumber = 6
  227. $expensiveshoetype = 'gandm' & expensiveshoenumber = 6
  228. $formalshoetype = 'gandm' & formalshoenumber = 6
  229. $officeshoetype = 'gandm' & officeshoenumber = 6
  230. $schoolshoetype = 'gandm' & schoolshoenumber = 6
  231. $exerciseshoetype = 'trainers' & exerciseshoenumber = 21
  232. $fetishshoetype = 'gandm' & fetishshoenumber = 6
  233. $exhibitshoetype = 'gandm' & exhibitshoenumber = 6
  234. $uniformshoetype = 'gandm' & uniformshoenumber = 6
  235. $burlesqueshoetype = 'gandm' & burlesqueshoenumber = 6
  236. $alternativeshoetype = 'gandm' & alternativeshoenumber = 6
  237. !! Starting clothing set
  238. if pcs_exhibition = 0:
  239. cheap[15] = 1
  240. cheapH[15] = 100
  241. cheapB[15] = pcs_hips
  242. exercise[4] = 1
  243. exerciseH[4] = 100
  244. cheap[36] = 1
  245. cheapH[36] = 100
  246. cheapB[36] = pcs_hips
  247. gs 'clothing', 'wear', 'cheap', 15
  248. elseif pcs_exhibition = 5:
  249. cheap[48] = 1
  250. cheapH[48] = 100
  251. cheapB[48] = pcs_hips
  252. exercise[4] = 1
  253. exerciseH[4] = 100
  254. cheap[83] = 1
  255. cheapH[83] = 100
  256. cheapB[83] = pcs_hips
  257. gs 'clothing', 'wear', 'cheap', 48
  258. elseif pcs_exhibition = 10:
  259. cheap[49] = 1
  260. cheapH[49] = 100
  261. cheapB[49] = pcs_hips
  262. exercise[4] = 1
  263. exerciseH[4] = 100
  264. cheap[70] = 1
  265. cheapH[70] = 100
  266. cheapB[70] = pcs_hips
  267. gs 'clothing', 'wear', 'cheap', 49
  268. elseif pcs_exhibition = 15:
  269. cheap[32] = 1
  270. cheapH[32] = 100
  271. cheapB[32] = pcs_hips
  272. exercise[4] = 1
  273. exerciseH[4] = 100
  274. cheap[62] = 1
  275. cheapH[62] = 100
  276. cheapB[62] = pcs_hips
  277. gs 'clothing', 'wear', 'cheap', 32
  278. elseif pcs_exhibition = 20:
  279. cheap[4] = 1
  280. cheapH[4] = 100
  281. cheapB[4] = pcs_hips
  282. exercise[4] = 1
  283. exerciseH[4] = 100
  284. cheap[41] = 1
  285. cheapH[41] = 100
  286. cheapB[41] = pcs_hips
  287. gs 'clothing', 'wear', 'cheap', 41
  288. elseif pcs_exhibition = 25:
  289. cheap[50] = 1
  290. cheapH[50] = 100
  291. cheapB[50] = pcs_hips
  292. exercise[4] = 1
  293. exerciseH[4] = 100
  294. cheap[81] = 1
  295. cheapH[81] = 100
  296. cheapB[81] = pcs_hips
  297. gs 'clothing', 'wear', 'cheap', 50
  298. elseif pcs_exhibition = 30:
  299. cheap[82] = 1
  300. cheapH[82] = 100
  301. cheapB[82] = pcs_hips
  302. exercise[4] = 1
  303. exerciseH[4] = 100
  304. cheap[43] = 1
  305. cheapH[43] = 100
  306. cheapB[43] = pcs_hips
  307. gs 'clothing', 'wear', 'cheap', 43
  308. elseif pcs_exhibition = 35:
  309. cheap[43] = 1
  310. cheapH[43] = 100
  311. cheapB[43] = pcs_hips
  312. exercise[4] = 1
  313. exerciseH[4] = 100
  314. cheap[73] = 1
  315. cheapH[73] = 100
  316. cheapB[73] = pcs_hips
  317. gs 'clothing', 'wear', 'cheap', 43
  318. end
  319. coat[5] = 1
  320. coatH[5] = 200
  321. defaultcoat = 5
  322. if swim_start = 98:
  323. swimwear[98] = 1
  324. swimwearH[98] = 60
  325. swimwearB[98] = pcs_hips
  326. elseif swim_start = 69:
  327. swimwear[69] = 1
  328. swimwearH[69] = 60
  329. swimwearB[69] = pcs_hips
  330. end
  331. killvar 'swim_start'
  332. !! **********
  333. gs 'daystart'
  334. gs 'din_pav'
  335. gs 'din_npc'
  336. gs 'dinSex2'
  337. gs 'dina'
  338. gs 'din_van'
  339. gs 'din_bad'
  340. gs 'dinSex'
  341. gs 'dinBoroda'
  342. gs 'BanSexType'
  343. gs 'outdoors', 'weather'
  344. menoage = rand(40,50)
  345. temprand = rand(0,10)
  346. if temprand = 0:
  347. menoage += rand(0,5)
  348. elseif temprand < 4:
  349. menoage += rand(3,10)
  350. elseif temprand < 9:
  351. menoage += rand(5,12)
  352. else
  353. menoage += rand(7,13)
  354. end
  355. daylastperiod = daystart
  356. temprand = rand(1,3)
  357. if temprand = 1:
  358. cycle = 1
  359. EggRH = rand(1,149)
  360. FocH = EggRH
  361. mesec = 0
  362. unfertegg = 0
  363. ferteggage = 0
  364. Ovulate = 0
  365. LutH = 0
  366. daylastperiod -= 4+(FocH/24)
  367. elseif temprand = 2:
  368. cycle = 2
  369. unfertegg = 1
  370. ferteggage = rand(0,44)
  371. Ovulate = (rand(24,44) - ferteggage)
  372. if Ovulate <= 0: Ovulate = 1
  373. mesec = 0
  374. EggRH = 0
  375. FocH = 0
  376. LutH = 0
  377. daylastperiod -= 10+(ferteggage/24)
  378. elseif temprand = 3:
  379. cycle = 3
  380. LutH = rand(0,300)
  381. ferteggage = 36 + LutH
  382. mesec = 0
  383. EggRH = 0
  384. FocH = 0
  385. unfertegg = 0
  386. Ovulate = 0
  387. daylastperiod -= 10+(ferteggage/24)
  388. end
  389. if daylastperiod + 4 > daystart:
  390. lastmens = daylastperiod - 20
  391. else
  392. lastmens = daylastperiod+4
  393. end
  394. pcs_horny = 0
  395. killvar 'opPRE'
  396. killvar 'tgs_skipinto'
  397. gs 'stat'
  398. showstat 0
  399. showobjs 0
  400. if $ARGS[1] = 'TGS':
  401. gt 'preTG', 'sleepPRE'
  402. else
  403. gt 'preALT', 'One'
  404. end
  405. end
  406. --- preCUST ---------------------------------