1
0

music_onlinemusic.qsrc 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198
  1. # music_onlinemusic
  2. if $ARGS[0] = 'setupAccount':
  3. ml_online['account'] = 1
  4. 'You log into Youtube to set up a channel for your music. You can upload videos or live stream, but you will need to open a bank account if you want to receive any tips from viewers of your stream.'
  5. !! TODO: Ask for a screen name?
  6. act 'Leave': gt $loc, 'start'
  7. end
  8. if $ARGS[0] = 'liveStream':
  9. internet -= 1
  10. if komp = 0 or webcamera = 0:
  11. !! TODO: Much, much better scene.
  12. minut += 60
  13. ml_maxsuperchats = ( pav_music/2 + city_music + oldtown_music/2 + village_music/2 + global_performer + pcs_apprnc )
  14. ml_superchats = rand( 0, ml_maxsuperchats)
  15. if ml_guitar = 1:
  16. ml_famebase = ( pcs_instrmusic + pcs_vokal + pcs_perform + ( (hotcat-5) * 20 ) ) / 100
  17. instrmusic_exp += rand(0,2)
  18. else
  19. ml_famebase = ( (pcs_vokal * 2) + pcs_perform + ( (hotcat-5) * 20 ) ) / 100
  20. end
  21. pav_music += rand(0, ml_famebase)
  22. city_music += rand(0, ml_famebase)
  23. vokal_exp += rand(0,2)
  24. perform_exp += rand(0,3)
  25. karta += superchats
  26. ml_online['livestreamcount'] += 1
  27. ml_performed_minutes += 60
  28. '<center><img <<$set_imgh>> src="images/pc/activities/music/gomixer_hero.jpg"/></center>'
  29. 'You set up your phone on a little tri-pod and log into your account. After settling down comfortably, you start to stream.'
  30. 'Your fans tipped you <<superchats>> rubels for your performance.'
  31. if bankAccount = 0:
  32. 'You need to open a bank account before you can receive the money.'
  33. end
  34. end
  35. act 'Stop the stream': gt $loc, 'start'
  36. end
  37. if $ARGS[0] = 'recordSong':
  38. !! TODO: Write a scene. It should describe that a song is recorded and then edited properly before uploading it to the net.
  39. '<center><img <<$set_imgh>> src="images/pc/activities/music/phonerecording.jpg"/></center>'
  40. 'You set up your phone and settle down comfortably to record a song. After several tries you finally end up with a version you are content with and upload it to your account.'
  41. 'As you don''t have a computer you can''t really do much with the songs quality. But then you have seen quite a few people work with only with their phones. Like Ling Ling.'
  42. minut += 30
  43. vokal_exp += rand(1,4)
  44. perform_exp += rand(1,3)
  45. ml_performed_minutes += 15
  46. ml_onlinesong_hotcat[ml_onlinesongcount] = hotcat
  47. if ml_guitar = 1:
  48. ml_onlinesong_skilllevel[ml_onlinesongcount] = pcs_instrmusic + pcs_vokal + pcs_perform
  49. ml_onlinesong_freshness[ml_onlinesongcount] = pcs_instrmusic + pcs_vokal + pcs_perform + ((hotcat-4)*10)
  50. instrmusic_exp += rand(1,4)
  51. else
  52. ml_onlinesong_skilllevel[ml_onlinesongcount] = (pcs_vokal * 2) + pcs_perform
  53. ml_onlinesong_freshness[ml_onlinesongcount] = (pcs_vokal * 2) + pcs_perform + ((hotcat-4)*10)
  54. end
  55. ml_onlinesong_lastcalcday[ml_onlinesongcount] = daystart
  56. ml_onlinesong_uploaded[ml_onlinesongcount] = 0
  57. ml_uploadablemusic += 1
  58. ml_onlinesongcount += 1
  59. if ml_online['account'] = 1 and internet > 0:
  60. if pcs_inhib < 30:
  61. if pcs_inhib < 10:
  62. $diff = 'hard'
  63. elseif pcs_inhib < 20:
  64. $diff = 'medium'
  65. else
  66. $diff = 'easy'
  67. end
  68. gs 'willpower', 'skill', 'self', $diff
  69. will_cost = (will_cost * 2) - (pcs_perform)
  70. if will_cost <= pcs_willpwr:
  71. act 'Upload music (<<will_cost>> Willpower)': gt 'music_onlinemusic', 'uploadmusic'
  72. else
  73. act 'Upload music (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  74. end
  75. else
  76. act 'Upload music': gt 'music_onlinemusic', 'uploadmusic'
  77. end
  78. else
  79. act 'Leave': gt $loc, 'start'
  80. end
  81. end
  82. if $ARGS[0] = 'recordAndEditSong':
  83. !! TODO: Write a scene. It should describe that a song is recorded and then edited properly before uploading it to the net.
  84. !! '<center><img <<$set_imgh>> src="images/pc/activities/music/editmusic.jpg"/></center>'
  85. '<center><video autoplay loop src="images/pc/activities/music/editmusic.mp4"></video></center>'
  86. 'You open plug in your home studio kit and start up the recording software. After several tries you finally end up with a version you are content with.'
  87. 'The next hour just flies by as you edit the video and the audio, trying to increate the quality of the recording as much as you can'
  88. minut += 90
  89. instrmusic_exp += rand(1,4)
  90. vokal_exp += rand(1,4)
  91. perform_exp += rand(1,3)
  92. musicprod_exp += rand(1,3)
  93. ml_performed_minutes += 15
  94. ml_onlinesong_hotcat[ml_onlinesongcount] = hotcat
  95. if ml_guitar = 1:
  96. ml_onlinesong_skilllevel[ml_onlinesongcount] = pcs_instrmusic + pcs_vokal + pcs_perform
  97. ml_onlinesong_freshness[ml_onlinesongcount] = pcs_instrmusic + pcs_vokal + pcs_perform + ((hotcat-4)*10)
  98. instrmusic_exp += rand(1,4)
  99. else
  100. ml_onlinesong_skilllevel[ml_onlinesongcount] = (pcs_vokal * 2) + pcs_perform
  101. ml_onlinesong_freshness[ml_onlinesongcount] = (pcs_vokal * 2) + pcs_perform + ((hotcat-4)*10)
  102. end
  103. ml_onlinesong_lastcalcday[ml_onlinesongcount] = daystart
  104. ml_onlinesong_uploaded[ml_onlinesongcount] = 0
  105. ml_uploadablemusic += 1
  106. ml_onlinesongcount += 1
  107. if ml_online['account'] = 1 and internet > 0:
  108. if pcs_inhib < 30:
  109. if pcs_inhib < 10:
  110. $diff = 'hard'
  111. elseif pcs_inhib < 20:
  112. $diff = 'medium'
  113. else
  114. $diff = 'easy'
  115. end
  116. gs 'willpower', 'skill', 'self', $diff
  117. will_cost = (will_cost * 2) - (pcs_perform)
  118. if will_cost <= pcs_willpwr:
  119. act 'Upload music (<<will_cost>> Willpower)': gt 'music_onlinemusic', 'uploadmusic'
  120. else
  121. act 'Upload music (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  122. end
  123. else
  124. act 'Upload music': gt 'music_onlinemusic', 'uploadmusic'
  125. end
  126. else
  127. if $loc = 'sitr':
  128. act 'Leave': gt $loc
  129. else
  130. act 'Leave': gt $loc, 'start'
  131. end
  132. end
  133. end
  134. if $ARGS[0] = 'uploadmusic':
  135. if will_cost > 0:
  136. 'You hesitate for a long moment, but finally take a deep breath and click on the "Upload" button and your newly recorded song moves over to the internet for all to see.'
  137. 'You bite in your lip, then close the screen before you change your mind and delete it.'
  138. else
  139. 'You smile brightly and click on the "Upload" button. Now the whole world can see you play. And if they don''t like it, well... "Haters gonna hate" you shrug mentally and close the screen. They will like it."'
  140. end
  141. ml_uploadablemusic -= 1
  142. ml_onlinesong_uploaded[ml_onlinesongcount-1] = 1
  143. killvar 'will_cost'
  144. if $loc = 'sitr':
  145. act 'Leave': gt $loc
  146. else
  147. act 'Leave': gt $loc, 'start'
  148. end
  149. end
  150. if $ARGS[0] = 'uploadallmusic':
  151. '<center><img src="images/pc/activities/music/uploadmusic.jpg"/></center>'
  152. if will_cost > 0:
  153. 'You hesitate for a long moment, but finally take a deep breath and click on the "Upload" button and all your recorded songs, one by one move over to the internet for all to see.'
  154. 'You bite in your lip, then close the screen before you change your mind and delete them.'
  155. else
  156. 'You smile brightly and click on the "Upload" button. Now the whole world can see you play. And if they don''t like it, well... "Haters gonna hate" you shrug mentally and close the screen, this is how art grows."'
  157. end
  158. i = 0
  159. :uploadallmusic
  160. if ml_onlinesong_uploaded[i] = 0:
  161. ml_onlinesong_uploaded[i] = 1
  162. end
  163. i += 1
  164. if i < ml_onlinesongcount:jump 'uploadallmusic'
  165. ml_uploadablemusic -= 0
  166. killvar 'will_cost'
  167. if $loc = 'sitr':
  168. act 'Leave': gt $loc
  169. else
  170. act 'Leave': gt $loc, 'start'
  171. end
  172. end
  173. --- music_onlinemusic ---------------------------------