Advertisement
Guest User

Untitled

a guest
Nov 16th, 2014
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.44 KB | None | 0 0
  1. #TouhouDanmakufu[Stage]
  2. #Title[Abyss3D]
  3. #Text[Welcome to the Abyss!]
  4. #BGM[.\BGM\M.O.M. Remix.mp3]
  5. #Player[FREE]
  6. #ScriptVersion[2]
  7.  
  8. script_stage_main {
  9.  
  10. let CSD = GetCurrentScriptDirectory;
  11. let Slice = CSD ~ "IMG\AbyssBgSlice.png";
  12. let Enemy1 = CSD ~ "IMG\Enemy1.png";
  13. let offset0 = 0; //These variables are for @BackGround code btw
  14. let offset1 = 10;
  15. let offset2 = 20;
  16. let offset3 = 30;
  17. let offset4 = 40;
  18. let offset5 = 50;
  19. let offset6 = 60;
  20. let offset7 = 70;
  21. let offset8 = 80;
  22. let offset9 = 90;
  23. let offsetA = 100;
  24. let offsetB = 110;
  25. let offsetC = 120;
  26. let offsetD = 130;
  27. let offsetE = 140;
  28. let offsetF = 150;
  29. let xset = 0;
  30. let xset2 = 0;
  31.  
  32. @Initialize {
  33. LoadGraphic(Slice);
  34. LoadGraphic(Enemy1);
  35. mainTask;
  36. }
  37.  
  38. @MainLoop {
  39. yield;
  40. }
  41.  
  42. @BackGround {
  43. //Background code removed to save space!
  44. }
  45.  
  46. @Finalize {
  47. DeleteGraphic(Slice);
  48. DeleteGraphic(Enemy1);
  49. }
  50.  
  51. task mainTask {
  52. CreateEnemyFromFile(CSD ~ "Enemy1.txt", 0, 0, 0, 0, 0);
  53. WaitForZeroEnemy;
  54. wait(60);
  55. CreateEnemyFromFile(CSD ~ "Enemy1mir.txt", 0, 0, 0, 0, 0);
  56. WaitForZeroEnemy;
  57. wait(60);
  58. CreateEnemyFromFile(CSD ~ "Enemy1.txt", 0, 0, 0, 0, 0);
  59. WaitForZeroEnemy;
  60. wait(60);
  61. CreateEnemyFromFile(CSD ~ "Enemy1mir.txt", 0, 0, 0, 0, 0);
  62. WaitForZeroEnemy;
  63. wait(120);
  64. Clear;
  65. }
  66.  
  67. function wait(w) {
  68. loop(w) { yield; }
  69. }
  70.  
  71. function WaitForZeroEnemy {
  72. while(GetEnemyNum != 0) { yield; }
  73. }
  74. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement