Advertisement
Guest User

Untitled

a guest
May 30th, 2017
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.33 KB | None | 0 0
  1. #TouhouDanmakufu
  2. #Title[Shrine Maiden: Border of Yin and Yang]
  3. #Text[Whaaat]
  4. #Player[FREE]
  5. #ScriptVersion[2]
  6.  
  7. script_enemy_main{
  8.  
  9.  
  10. let imgExRumia="script\ExRumia\img\ExRumia.png";
  11. let frame = 0;
  12. let frame2 = 0;
  13. let ANG = 0;
  14. let ANGinc = 0.1;
  15. let CW=true;
  16.  
  17.  
  18. @Initialize{
  19. SetLife(4000);
  20. SetInvincibility(30);
  21. LoadGraphic(imgExRumia);
  22. SetMovePosition02(GetCenterX, GetCenterY - 120, 60);
  23. }
  24.  
  25. @MainLoop{
  26. SetCollisionA(GetX, GetY, 32);
  27. SetCollisionB(GetX, GetY, 16);
  28. frame++;
  29.  
  30. if(frame==60){
  31.  
  32. CreateShot01(GetX + 60*cos(ANG), GetY + 60*sin(ANG), 1, ANG, RED21, 23);
  33. CreateShot01(GetX + 60*cos(ANG+180), GetY + 60*sin(ANG+180), 1, ANG+180, WHITE21, 23);
  34.  
  35. frame = 59;
  36.  
  37. if(ANGinc>=180){
  38. CW=false;
  39. }
  40. if(ANGinc<=(-180)){
  41. CW=true;
  42. }
  43.  
  44. if(CW==true){
  45. ANG+=ANGinc;
  46. }else{
  47. ANG-=ANGinc;
  48. }
  49.  
  50. if(ANGinc>=0 && CW==true){
  51. ANGinc+=0.1;
  52. }
  53. if(ANGinc>0 && CW==false){
  54. ANGinc-=0.1;
  55. }
  56. if(ANGinc<=0 && CW==false){
  57. ANGinc-=0.1;
  58. }
  59. if(ANGinc<0 && CW==true){
  60. ANGinc+=0.1;
  61. }
  62.  
  63. }
  64.  
  65. }
  66.  
  67. @DrawLoop{
  68. SetColor(255,255,255);
  69. SetRenderState(ALPHA);
  70. SetTexture(imgExRumia);
  71. SetGraphicRect(64,1,127,64);
  72. DrawGraphic(GetX,GetY);
  73. }
  74.  
  75. @Finalize
  76. {
  77. DeleteGraphic(imgExRumia);
  78. }
  79. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement