1
0

loadg 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181
  1. # loadg
  2. ! WD: Set variable to store Image needed HTML code
  3. if $ImageNeededPlacholder = '':
  4. set $ImageNeededPlacholder = '<center><img src="images/system/image_needed.png"></center>'
  5. end
  6. gs 'din_pav'
  7. gs 'dinSex2'
  8. gs 'dina'
  9. gs 'din_van'
  10. gs 'din_bad'
  11. gs 'dinSex'
  12. gs 'dinBoroda'
  13. gs 'BanSexType'
  14. gs 'saveupdater'
  15. gs 'gschool_lessons', 'npc_data'
  16. if StoryLine = 0 and daystart_start = 0:daystart_start = 145
  17. if vshrink = 0 and vshrinkdays = 0 and ashrink = 0 and ashrinkdays = 0:vshrink = 1 & vshrinkdays = 6 & ashrink = 1 & ashrinkdays = 3
  18. if bankAccount = 0 and karta > 0:
  19. bankAccount = 1
  20. if bankDebtLimit = 0: bankDebtLimit = 5000
  21. end
  22. if $cycreport_txt = '':
  23. temp[1] = daystart-daylastperiod
  24. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  25. end
  26. if menoage = 0:
  27. menoage = rand(40,50)
  28. temprand = rand(0,10)
  29. if temprand = 0:
  30. menoage += rand(0,5)
  31. elseif temprand < 4:
  32. menoage += rand(3,10)
  33. elseif temprand < 9:
  34. menoage += rand(5,12)
  35. else
  36. menoage += rand(7,13)
  37. end
  38. end
  39. monthsend[1] = 31
  40. if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0):
  41. Leapyear = 1 & monthsend[2] = 29
  42. else
  43. Leapyear = 0 & monthsend[2] = 28
  44. end
  45. monthsend[3] = 31
  46. monthsend[4] = 30
  47. monthsend[5] = 31
  48. monthsend[6] = 30
  49. monthsend[7] = 31
  50. monthsend[8] = 31
  51. monthsend[9] = 30
  52. monthsend[10] = 31
  53. monthsend[11] = 30
  54. monthsend[12] = 31
  55. $monthName[1] = 'January'
  56. $monthName[2] = 'February'
  57. $monthName[3] = 'March'
  58. $monthName[4] = 'April'
  59. $monthName[5] = 'May'
  60. $monthName[6] = 'June'
  61. $monthName[7] = 'July'
  62. $monthName[8] = 'August'
  63. $monthName[9] = 'September'
  64. $monthName[10] = 'October'
  65. $monthName[11] = 'November'
  66. $monthName[12] = 'December'
  67. $month = $monthName[month]
  68. !!if oldsavehcol = 0:
  69. !!commented out as its activating on new games and people should have the used it by now but not deleted in case of queries
  70. !!DELETE in 0.6.1 or later
  71. !! cla
  72. !! cls
  73. !! *clr
  74. !! :hcolloop
  75. !! 'There have been changes made to the hair colour system, please indicate your character''s natural hair colour.'
  76. !! 'Enter 0 (zero) for black, 1 (one) for brown, 2 (two) for red, or 3 (three) for blonde.'
  77. !! 'Note: Cancelling or entering no value will default to 0, black hair.'
  78. !! nathcol = input("Enter the number that corresponds to your character''s natural hair colour:")
  79. !! if nathcol >= 0 or nathcol <= 3:
  80. !! if pcs_haircol ! nathcol: dyefade = rand(21,35)
  81. !! oldsavehcol = 1
  82. !! act 'Return to game': gs 'stat' & gt $CURLOC
  83. !! else
  84. !! 'That is not a valid entry.'
  85. !! jump 'hcolloop'
  86. !! end
  87. !!end
  88. if dounspell = 0 and newbdsp = 0:
  89. dounspell = 1
  90. dounsplkil = 2
  91. nbsize = pcs_cupsize - silicone
  92. gs 'body_shape', 'hardreset'
  93. newbdsp = 1
  94. end
  95. if succubusflag = 1 and sucpcinfo = 4 and sucinfoday = 0: sucinfoday = daystart + 5 + rand(0,5)
  96. if skin > 0: pcs_skin += 20 * skin & killvar 'skin'
  97. if pcs_apprncbase = 0: gs 'body_shape', 'basebeautycalc', 1
  98. if normbuffpick = 2: bodset = 2 & killvar 'normbuffpick'
  99. :cumidloop
  100. if arrsize('$cumarrnam') > arrsize('cumarrcnt'):
  101. cumarrcnt[arrsize('cumarrcnt')] = -2
  102. jump 'cumidloop'
  103. end
  104. :spidloop
  105. if arrsize('$sparrnam') > arrsize('sparrcnt'):
  106. sparrcnt[arrsize('sparrcnt')] = -1
  107. jump 'spidloop'
  108. end
  109. !!For old save Succubae
  110. if mutagenP > 0: stren_muta = mutagenP & killvar 'mutagenP'
  111. if mutagenA > 0: agil_muta = mutagenA & killvar 'mutagenA'
  112. if mutagenV > 0: vital_muta = mutagenV & killvar 'mutagenV'
  113. if mutagenI > 0: intel_muta = mutagenI & killvar 'mutagenI'
  114. if mutagenR > 0: react_muta = mutagenR & killvar 'mutagenR'
  115. if mutagenW > 0: sprt_muta = mutagenW & killvar 'mutagenW'
  116. !!This sets new attributes to default on saves that did not have these attributes
  117. if pcs_chrsm <= 0: pcs_chrsm = 10
  118. if pcs_prcptn <= 0: pcs_prcptn = 10
  119. if pillcvrt = 0:
  120. pillcvrt = 1
  121. if tabletki > 0:
  122. stepa = ((tabletki*100)/28) mod 10
  123. stepb = ((tabletki*100)/28) - stepa
  124. tabletki = stepb/100
  125. pillsleft[0] = (stepa*28)/100
  126. end
  127. end
  128. if karinsex ! 0: TatianaSex = karinsex & killvar 'karinsex'
  129. if karinsucsex > 0: tatisucsex += karinsucsex & killvar 'karinsucsex'
  130. if tatianasucsex > 0: tatisucsex += tatianasucsex & killvar 'tatianasucsex'
  131. if $excer_name[1] = '':$excer_name[1] = 'Default 1'
  132. if $excer_name[2] = '':$excer_name[2] = 'Default 2'
  133. if $excer_name[3] = '':$excer_name[3] = 'Default 3'
  134. if $excer_name[4] = '':$excer_name[4] = 'Default 4'
  135. --- loadg ---------------------------------