Mewkyuu

PH3code_SHINREIBYOU

Aug 21st, 2011
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.80 KB | None | 0 0
  1. task ShinreibyouMusic {
  2. let objA = ObjSound_Create;
  3. let objB = ObjSound_Create;
  4. ObjSound_Load(objA, GetCurrentScriptDirectory~"bgmA01.wav");
  5. ObjSound_Load(objB, GetCurrentScriptDirectory~"bgmB01.wav");
  6. ObjSound_SetVolumeRate(objA, 0);
  7. ObjSound_SetVolumeRate(objB, 0);
  8. ObjSound_SetLoopEnable(objA, true);
  9. ObjSound_SetLoopTime(objA, 101.059940, 0);
  10. ObjSound_SetSoundDivision(objA, SOUND_BGM);
  11. ObjSound_SetLoopEnable(objB, true);
  12. ObjSound_SetLoopTime(objB, 101.059940, 0);
  13. ObjSound_SetSoundDivision(objB, SOUND_BGM);
  14. ObjSound_Play(objA);
  15. ObjSound_Play(objB);
  16. let key = 0;
  17. while(!Obj_IsDeleted(objEnemy)) {
  18. if(GetVirtualKeyState(VK_SLOWMOVE)==KEY_PUSH) { key++; key%=2; }
  19. ObjSound_SetVolumeRate(objA, [0,100][key==0]);
  20. ObjSound_SetVolumeRate(objB, [100,0][key==0]);
  21. yield;
  22. }
  23. }
Advertisement
Add Comment
Please, Sign In to add comment