Advertisement
Trickysticks

Untitled

Jul 22nd, 2016
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.16 KB | None | 0 0
  1. #TouhouDanmakufu[Single]
  2. #ScriptVersion[3]
  3. #Title["NS1"]
  4.  
  5. #include"./shot/AllStarShot_Const.txt"
  6. #include"./functions/functions.txt"
  7.  
  8. let objBoss;
  9.  
  10. @Event{
  11. alternative(GetEventType())
  12. case(EV_REQUEST_LIFE){
  13. SetScriptResult(2000);
  14. }
  15. case(EV_REQUEST_TIMER){
  16. SetScriptResult(51);
  17. }
  18. }
  19.  
  20. @Initialize{
  21. objBoss = ObjEnemy_Create(OBJ_ENEMY_BOSS);
  22. ObjEnemy_Regist(objBoss);
  23. let imgExRumia = GetCurrentScriptDirectory() ~ "ExRumia.png";
  24. ObjPrim_SetTexture(objBoss, imgExRumia);
  25. ObjSprite2D_SetSourceRect(objBoss, 64, 1, 127, 64);
  26. ObjSprite2D_SetDestCenter(objBoss);
  27. ObjMove_SetDestAtFrame(objBoss, GetCenterX(), 60, 60);
  28. genericshots;
  29. }
  30.  
  31. task genericshots{
  32. let angleT = GetAngleToPlayer(objBoss);
  33. while(ObjEnemy_GetInfo(objBoss,INFO_LIFE) > 0){
  34. loop(20){
  35. CreateShotA1(ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 2, angleT, T_NOTE_BLUE, 20);
  36. angleT+=360/20;
  37. }
  38. wait(30);
  39. }
  40. }
  41.  
  42. @MainLoop{
  43. ObjEnemy_SetIntersectionCircleToShot(objBoss, ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 32);
  44. ObjEnemy_SetIntersectionCircleToPlayer(objBoss, ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 24);
  45. yield;
  46. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement