loadg 1.6 KB

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