Guest User

Gap single

a guest
Jan 9th, 2018
207
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.99 KB | None | 0 0
  1. #TouhouDanmakufu[Single]
  2. #ScriptVersion[3]
  3. #Title["Test sign \"???\""]
  4. #Text["..."]
  5. #BGM["./bgm/bgm - Bhava-Agra As Seen Through a Child's Mind.mp3"]
  6. #System["./system/Default_System.txt"]
  7. #Background["./system/Background_Sky.txt"]
  8.  
  9. #include "./Index.txt"
  10.  
  11.  
  12.  
  13.  
  14. let fog;
  15.  
  16. let timer = 30;
  17.  
  18. @Event
  19. {
  20. alternative(GetEventType())
  21. case(EV_REQUEST_LIFE)
  22. {
  23. SetScriptResult(2000);
  24. }
  25. case(EV_REQUEST_SPELL_SCORE){
  26. SetScriptResult(5000000);
  27. }
  28. //case(EV_REQUEST_IS_DURABLE_SPELL) {
  29. // SetScriptResult(true);
  30. //}
  31. case(EV_REQUEST_TIMER) { SetScriptResult(timer*60); } //4500
  32. }
  33. @Initialize
  34. {
  35. SetCommonData("CurrentSC","Test sign\"???\"");
  36. SetCommonData("Difficulty","Normal");
  37.  
  38. boss = spawnBoss();
  39.  
  40. ObjEnemy_SetDamageRate(boss,0,0);
  41. SetShotAutoDeleteClip(32,32,32,32);
  42.  
  43. MainTask;
  44.  
  45.  
  46. }
  47. @MainLoop
  48. {
  49.  
  50. if(ObjEnemy_GetInfo(boss, INFO_LIFE) <= 0 && !finishing)
  51. {
  52. finishing = true;
  53. TBreakSpell([]);
  54. }
  55. else {
  56. SetBossHitbox(boss,ex,ey);
  57. }
  58. frame++;
  59. yield;
  60. }
  61.  
  62.  
  63. task MainTask {
  64.  
  65. ObjEnemy_SetDamageRate(boss,0,0);
  66. ObjMove_SetDestAtFrame(boss, cx, cy-120, 60);
  67.  
  68.  
  69. SetSpellCard;
  70. MCircNextAlpha = 80;
  71. Obj_SetValue(objSpellCircle,"MaxAlpha",64);
  72.  
  73. ObjEnemyBossScene_StartSpell(objScene);
  74. ObjEnemyBossScene_SetSpellTimer(objScene,timer*60); //5760
  75.  
  76. wait(90);
  77.  
  78. ObjEnemy_SetDamageRate(boss,24,8);
  79.  
  80.  
  81. TGaps;
  82.  
  83.  
  84.  
  85. }
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96. task TGaps {
  97. let outgap;
  98. let ingap;
  99. let x; let y;
  100.  
  101. while(!Obj_IsDeleted(boss)) {
  102.  
  103. outgap = CreateGapA1(rand(0,sx),rand(0,cy),300,40, rand(0,180), 240, GAP_OUT,0);
  104.  
  105. wait(60); if(Obj_IsDeleted(boss)){break;}
  106. x=ex; y=ey;
  107. ObjMove_SetDestAtWarp(boss, rand(0,sx), rand(0,cy-120), 0);
  108. wait(20); if(Obj_IsDeleted(boss)){break;}
  109. ingap = CreateGapA1(x,y,300,100, angleBetween(x,y,ex,ey), 240, GAP_IN,outgap);
  110. wait(30); if(Obj_IsDeleted(boss)){break;}
  111. FireWedgeA1(ex,ey,angleBetween(ex,ey,x,y),2,620,5, 10,6,5, 20,10);
  112. wait(150);
  113. }
  114.  
  115. }
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123. }
Advertisement
Add Comment
Please, Sign In to add comment