Advertisement
Guest User

h

a guest
Jul 24th, 2011
324
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.46 KB | None | 0 0
  1. #ScriptVersion[3]
  2. #Title[stuff]
  3. #Text[stuff]
  4.  
  5.  
  6. #include"script/default_system/Default_ShotConst.txt"
  7. let objEnemy;
  8. let objPlayer;
  9. let frame = 0;
  10. //----------------------------------------------------
  11. //Enemy movement
  12. //----------------------------------------------------
  13. @Event
  14. {
  15. alternative(GetEventType())
  16. case(EV_REQUEST_LIFE)
  17. {
  18. SetScriptResult(1000)
  19. }
  20. }
  21.  
  22. @Initialize
  23. {
  24. objPlayer = GetPlayerObjectID();
  25. objEnemy = ObjEnemy_Create(OBJ_ENEMY_BOSS);
  26. ObjEnemy_Regist(objEnemy);
  27. let imgExRumia = GetCurrentScriptDirectory ~ "ExRumia.png";
  28. ObjPrim_SetTexture(objEnemy, imgExRumia);
  29. ObjSprite2D_SetSourceRect(objEnemy, 64, 1, 127, 64);
  30. ObjSprite2D_SetDestCenter(objEnemy);
  31. let cx = GetStgFrameWidth() / 2;
  32. ObjMove_SetDestAtFrame(objEnemy, cx, 120, 60);
  33. }
  34.  
  35. @MainLoop
  36. {
  37. let ex = ObjMove_GetX(objEnemy);
  38. let ey = ObjMove_GetY(objEnemy);
  39. let px = GetPlayerX();
  40. let py = GetPlayerY();
  41. let angleToPlayer = atan2(py - ey, px - ex);
  42. let angle = 0;
  43. let angle2 = 0;
  44. let angularvelocity = 0.5;
  45. frame++;
  46. angle += 15;
  47. if(frame==120)
  48. {
  49. let angle3 = 100;
  50. angle3++;
  51. ascent(i in 1..359)
  52. {
  53. let obj2 = CreateShotA2 (GetStgFrameWidth() / 2, GetStgFrameWidth() / 2, 0.1, angle3, i, 3, DS_BILL_SKY, 0);
  54. ObjMove_AddPatternA2(obj2, 10, 4, angle3 + i, 10, i*3, 500000);
  55. ObjShot_SetAutoDelete(obj2, false);
  56. frame = 0;
  57. }
  58. }
  59. if(frame==100)
  60. {
  61. let angle3 = 100;
  62. angle3++;
  63. ascent(i in 1..359)
  64. {
  65. let obj2 = CreateShotA2 (GetStgFrameWidth() / 2, GetStgFrameWidth() / 2, 0.1, angle3, i, 3, DS_BILL_SKY, 0);
  66. ObjMove_AddPatternA2(obj2, 10, 4, angle3 + i, 10, i*3, 500000);
  67. ObjShot_SetAutoDelete(obj2, false);
  68. }
  69. }
  70. ObjEnemy_SetIntersectionCircleToShot(objEnemy, ex, ey, 32);
  71. ObjEnemy_SetIntersectionCircleToPlayer(objEnemy, ex, ey, 16);
  72. if(ObjEnemy_GetInfo(objEnemy, INFO_LIFE) <=0)
  73. {
  74. Obj_Delete(objEnemy);
  75. CloseScript(GetOwnScriptID());
  76. return;
  77. }
  78. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement