Advertisement
Guest User

h

a guest
Dec 5th, 2012
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.08 KB | None | 0 0
  1. script_stage_main {
  2.  
  3. let CSD = GetCurrentScriptDirectory();
  4. let bgm= CSD ~ ".\bgm.mp3";
  5. let count_push= 0;
  6.  
  7. let MusicPlay= false;
  8.  
  9. function wait(n) { loop(n) { yield; } }
  10.  
  11. task StageTask {
  12. LoadMusic(bgm);
  13. wait(180);
  14. PlayMusic(bgm);
  15. MusicPlay= true;
  16. }
  17.  
  18. function StopMusicWhereItIs(bgm) { }
  19.  
  20. function PlayMusicWhereItWasBefore(bgm) { }
  21.  
  22. @Initialize {
  23.  
  24. StageTask;
  25. }
  26.  
  27. @MainLoop {
  28.  
  29. if(count_push==0) {
  30. if(Get_Key_State(VK_ESCAPE)==PUSH || Get_Key_State(VK_ESCAPE)==HOLD) {
  31. MusicPlay= false;
  32. StopMusicWhereItIs(bgm);
  33. count_push++;
  34. }
  35. /// redundant ?
  36. else if(Get_Key_State(VK_ESCAPE)==FREE) {
  37. MusicPlay= true;
  38. }
  39. }
  40. else if(count_push==1) {
  41. if(Get_Key_State(VK_ESCAPE)==PUSH || Get_Key_State(VK_ESCAPE)==HOLD) {
  42. PlayMusicWhereItWasBefore(bgm);
  43. MusicPlay= true;
  44. count_push++;
  45. }
  46. /// redundant ?
  47. else if(Get_Key_State(VK_ESCAPE)==FREE) {
  48. MusicPlay= false;
  49. }
  50. }
  51. else if(count_push==2) { count_push= 0; }
  52. yield;
  53. }
  54.  
  55. @Finalize {
  56.  
  57. FadeOut(bgm);
  58. DeleteMusic(bgm);
  59. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement