loadg 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677
  1. # loadg
  2. ! WD: Set variable to store Image needed HTML code
  3. if $ImageNeededPlacholder = '':
  4. set $ImageNeededPlacholder = '<center><img src="images/community/Image_needed.png"></center>'
  5. end
  6. gs 'din_pav'
  7. gs 'dinSex2'
  8. gs 'dina'
  9. gs 'din2'
  10. gs 'din_van'
  11. gs 'din_bad'
  12. gs 'Cheatmenu_din'
  13. gs 'obj_din'
  14. gs 'BanSexType'
  15. if vshrink = 0 and vshrinkdays = 0 and ashrink = 0 and ashrinkdays = 0:vshrink = 1 & vshrinkdays = 6 & ashrink = 1 & ashrinkdays = 3
  16. if bankAccount = 0 and karta > 0:
  17. bankAccount = 1
  18. if bankDebtLimit = 0: bankDebtLimit = 5000
  19. end
  20. if $cycreport_txt = '':
  21. temp[1] = daystart-daylastperiod
  22. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  23. end
  24. if menoage = 0:
  25. menoage = rand(40,50)
  26. temprand = rand(0,10)
  27. if temprand = 0:
  28. menoage += rand(0,5)
  29. elseif temprand < 4:
  30. menoage += rand(3,10)
  31. elseif temprand < 9:
  32. menoage += rand(5,12)
  33. else
  34. menoage += rand(7,13)
  35. end
  36. end
  37. monthsend[1] = 31
  38. if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0):
  39. Leapyear = 1 & monthsend[2] = 29
  40. else
  41. Leapyear = 0 & monthsend[2] = 28
  42. end
  43. monthsend[3] = 31
  44. monthsend[4] = 30
  45. monthsend[5] = 31
  46. monthsend[6] = 30
  47. monthsend[7] = 31
  48. monthsend[8] = 31
  49. monthsend[9] = 30
  50. monthsend[10] = 31
  51. monthsend[11] = 30
  52. monthsend[12] = 31
  53. $monthName[1] = 'January'
  54. $monthName[2] = 'February'
  55. $monthName[3] = 'March'
  56. $monthName[4] = 'April'
  57. $monthName[5] = 'May'
  58. $monthName[6] = 'June'
  59. $monthName[7] = 'July'
  60. $monthName[8] = 'August'
  61. $monthName[9] = 'September'
  62. $monthName[10] = 'October'
  63. $monthName[11] = 'November'
  64. $monthName[12] = 'December'
  65. $month = $monthName[month]
  66. --- loadg ---------------------------------