1
0

pornschedule.qsrc 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  1. # pornschedule
  2. if $ARGS[0] = 'pornmiss':
  3. pornmiss = 1
  4. missedshoot = 0
  5. pf = pfilmday[0]
  6. film_idx = film
  7. dynamic $pornfilmdesc, pornfilmType[film]
  8. porndebt += prodcost
  9. if pornstack > 0:pornstack -= 1
  10. end
  11. if $ARGS[0] = 'schedule':
  12. killvar 'pfilmday', 0
  13. days = 0
  14. :fillschedule
  15. porns = 0
  16. :moveschedule
  17. if porntaken['<<days+1>>,<<porns>>'] = 0 and days >= 14:
  18. if rand(1,100) = 1: pornplan['<<days+1>>,<<porns>>'] = 0
  19. !Change of plans if there is no contract on the movie, shooting some other kind of porn instead
  20. end
  21. if days = 49 or pornplan['<<days+1>>,<<porns>>'] = 0:
  22. !If there is a missing slot in the schedule, it fills in. It also regenerates the last selection on the end, so no endless repetition
  23. pornvariable = rand(0,90)
  24. if pornvariable <= 1:
  25. !50 person
  26. pornplan['<<days+1>>,<<porns>>'] = 14
  27. elseif pornvariable <= 10:
  28. !4 person
  29. !some way to randomize the scene
  30. pornplan['<<days+1>>,<<porns>>'] = rand(10,13)
  31. elseif pornvariable <= 30:
  32. !2 person
  33. !some way to randomize the scene
  34. pornplan['<<days+1>>,<<porns>>'] = rand(8,9)
  35. elseif pornvariable <= 60:
  36. !single person
  37. !some way to randomize the scene
  38. pornplan['<<days+1>>,<<porns>>'] = rand(1,7)
  39. elseif pornvariable <= 80:
  40. !single person
  41. !some way to randomize the scene
  42. pornplan['<<days+1>>,<<porns>>'] = rand(15,20)
  43. else
  44. !masturbation scene
  45. !some way to randomize the scene - if there will be more than one(???)
  46. pornplan['<<days+1>>,<<porns>>'] = 15
  47. end
  48. end
  49. pornplan['<<days>>,<<porns>>'] = pornplan['<<days+1>>,<<porns>>']
  50. porntaken['<<days>>,<<porns>>'] = porntaken['<<days+1>>,<<porns>>']
  51. !moving the shooting schedule and the contracts ahead by one day. "days = 0" is the current day
  52. if porntaken['<<days>>,<<porns>>'] = 0:
  53. if rand(1,days*3/2) = 1: porntaken['<<days>>,<<porns>>'] = 1
  54. !some other porn actress contracted the movie. The more closer the shooting day is, the more likely, that all of them is taken
  55. end
  56. if porntaken['<<days>>,<<porns>>'] = 1:
  57. if rand(1,100) = 1: porntaken['<<days>>,<<porns>>'] = 0
  58. !some other porn actress contracted to the movie has canceled her contract. Not likely, but it happens.
  59. end
  60. if porns < 3:porns += 1 & jump 'moveschedule'
  61. if days < 49:days += 1 & jump 'fillschedule'
  62. ! Finally deleting the unnecessary (and the next day overwritten) schedule day to reduce array size
  63. killvar 'pornplan', 203
  64. killvar 'pornplan', 202
  65. killvar 'pornplan', 201
  66. killvar 'pornplan', 200
  67. end
  68. --- pornschedule ---------------------------------