preCUST 11 KB

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