Guest User

f

a guest
Dec 10th, 2012
132
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.70 KB | None | 0 0
  1. #TouhouDanmakufu[Single]
  2. #ScriptVersion[3]
  3. #Title["Rumia Spell 7"]
  4. #Text["."]
  5. #include"./Functions/Index.txt"
  6. #include"script/Rumia Boss/ZUNShot_Const.txt"
  7. #include"script/Default_system/Default_Effect.Txt"
  8.  
  9. let objBoss;
  10. let fam1;
  11. let fam2;
  12. let frame=0;
  13. let GCSD=GetCurrentScriptDirectory~"";
  14. let stgx=GetStgFrameWidth()/2;
  15. let stgy=GetStgFrameHeight()/2;
  16. let waitframe;
  17.  
  18. @Initialize{
  19. mainTask;
  20. let objScene = GetEnemyBossSceneObjectID();
  21. ObjEnemyBossScene_StartSpell(objScene);
  22. }
  23.  
  24. @Event{
  25. alternative(GetEventType)
  26. case(EV_REQUEST_LIFE){
  27. SetScriptResult(3500)
  28. }
  29. case(EV_REQUEST_TIMER){
  30. SetScriptResult(30)
  31. }
  32. }
  33.  
  34. @MainLoop{
  35. frame++;
  36. ObjEnemy_SetIntersectionCircleToPlayer(objBoss,ObjMove_GetX(objBoss),ObjMove_GetY(objBoss),25);
  37. ObjEnemy_SetIntersectionCircleToShot(objBoss,ObjMove_GetX(objBoss),ObjMove_GetY(objBoss),27);
  38.  
  39. if(IsPlayerSpellActive){
  40. ObjEnemy_SetDamageRate(objBoss,0,0);
  41. }else{
  42. ObjEnemy_SetDamageRate(objBoss,100,100);
  43. }
  44.  
  45. yield;
  46.  
  47. if(ObjEnemy_GetInfo(objBoss,INFO_LIFE)<=0){
  48. TExplosionA(GetEnemyX,GetEnemyY,10,10);
  49. Obj_Delete(objBoss);
  50. DeleteShotAll(TYPE_ALL,TYPE_ITEM);
  51. wait(128);
  52. DeleteShotAll(TYPE_ALL,TYPE_ITEM);
  53. CloseScript(GetOwnScriptID());
  54. return;
  55. }
  56. }
  57.  
  58. task mainTask{
  59. TDrawBoss;
  60. TEnemyHitboxStart;
  61. Cutin("Fluttering Illusions\"Semi-Invisible Shadows -Night-\"",14);
  62. TShoot01;
  63. yield;
  64. }
  65.  
  66. task TShoot01{
  67. TMove03(objBoss,stgx,GetStgFrameHeight()/4,10,5);
  68. wait(70);
  69. fam1=FDrawFamiliar(GetEnemyX,GetEnemyY,0,0,0,2.5,255,255,255,255);
  70. fam2=FDrawFamiliar(GetEnemyX,GetEnemyY,0,0,0,-2.5,255,255,255,255);
  71. TMove03(fam1,stgx/6,stgy/3,15,3);
  72.  
  73. while(ObjEnemy_GetInfo(objBoss,INFO_LIFE)>=0){
  74.  
  75. yield;
  76. }
  77. }
Advertisement
Add Comment
Please, Sign In to add comment