1
0

preCUST 15 KB

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