1
0

preCUST 9.9 KB

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