1
0

pornschedule.qsrc 2.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768
  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 <= 11:
  28. !4 person
  29. !some way to randomize the scene
  30. pornplan['<<days+1>>,<<porns>>'] = rand(10,13)
  31. elseif pornvariable <= 33:
  32. !2 person
  33. !some way to randomize the scene
  34. pornplan['<<days+1>>,<<porns>>'] = rand(8,9)
  35. elseif pornvariable <= 90:
  36. !single person
  37. !some way to randomize the scene
  38. pornplan['<<days+1>>,<<porns>>'] = rand(1,7)
  39. else
  40. !masturbation scene
  41. !some way to randomize the scene - if there will be more than one(???)
  42. pornplan['<<days+1>>,<<porns>>'] = 15
  43. end
  44. end
  45. pornplan['<<days>>,<<porns>>'] = pornplan['<<days+1>>,<<porns>>']
  46. porntaken['<<days>>,<<porns>>'] = porntaken['<<days+1>>,<<porns>>']
  47. !moving the shooting schedule and the contracts ahead by one day. "days = 0" is the current day
  48. if porntaken['<<days>>,<<porns>>'] = 0:
  49. if rand(1,days*3/2) = 1: porntaken['<<days>>,<<porns>>'] = 1
  50. !some other porn actress contracted the movie. The more closer the shooting day is, the more likely, that all of them is taken
  51. end
  52. if porntaken['<<days>>,<<porns>>'] = 1:
  53. if rand(1,100) = 1: porntaken['<<days>>,<<porns>>'] = 0
  54. !some other porn actress contracted to the movie has canceled her contract. Not likely, but it happens.
  55. end
  56. if porns < 3:porns += 1 & jump 'moveschedule'
  57. if days < 49:days += 1 & jump 'fillschedule'
  58. ! Finally deleting the unnecessary (and the next day overwritten) schedule day to reduce array size
  59. killvar 'pornplan', 203
  60. killvar 'pornplan', 202
  61. killvar 'pornplan', 201
  62. killvar 'pornplan', 200
  63. end
  64. --- pornschedule ---------------------------------