Guest User

testymctest

a guest
Feb 16th, 2012
177
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.75 KB | None | 0 0
  1. #“Œ•û’e–‹•—[Single]
  2. #ScriptVersion[3]
  3. #Title["SampleA04"]
  4. #Text["SampleA04F•ª—ô‚·‚é’e"]
  5. #include "script/default_system/Default_ShotConst.txt"
  6. //ƒfƒtƒHƒ‹ƒg’e‰æ‘œ‚ðƒ[ƒh
  7. //----------------------------------------------------
  8. //ƒOƒ[ƒoƒ‹•ϐ”éŒ¾
  9. //‚±‚̈ʒu‚Ő錾‚µ‚½•ϐ”‚̓XƒNƒŠƒvƒg‘S‘̂ŗLŒø‚Å‚·B
  10. //‚½‚¾‚µ‚±‚Ì‰ÓŠ‚Å‚Ì•Ï”‚Ö‚Ì‘ã“ü‚́A’萔ˆÈŠO‚Ì‘ã“ü‚͍s‚¦‚Ü‚¹‚ñB
  11. //(ŽÀs‡˜‚ª•ۏႳ‚ê‚È‚¢‚½‚ß—”‚Ȃǂ̎g—p‚͂ł«‚Ü‚¹‚ñ)
  12. //----------------------------------------------------
  13. let objEnemy; //“GƒIƒuƒWƒFƒNƒg
  14. let objPlayer; //Ž©‹@ƒIƒuƒWƒFƒNƒg
  15. let frame = 0; //“G“®ì‚ÉŽg—p‚·‚éƒJƒEƒ“ƒ^(@MainLoop‚Å1‚‘‰Á‚³‚¹‚Ü‚·)
  16.  
  17. //----------------------------------------------------
  18. //“G‚Ì“®ì
  19. //----------------------------------------------------
  20. @Event
  21. {
  22. alternative(GetEventType())
  23. case(EV_REQUEST_LIFE)
  24. {
  25. //“Gƒ‰ƒCƒt‚ð—v‹‚³‚ꂽ
  26. SetScriptResult(500);//ƒ‰ƒCƒt‚ð500‚ɐݒè
  27. }
  28. }
  29.  
  30. @Initialize
  31. {
  32. //Ž©‹@ƒIƒuƒWƒFƒNƒgŽæ“¾
  33. objPlayer = GetPlayerObjectID();
  34.  
  35. //“GƒIƒuƒWƒFƒNƒg‚𐶐¬‚µ“o˜^
  36. objEnemy = ObjEnemy_Create(OBJ_ENEMY_BOSS);
  37. ObjEnemy_Regist(objEnemy);
  38.  
  39. //“G‰æ‘œ‚̐ݒè
  40. let imgExRumia = GetCurrentScriptDirectory ~ "ExRumia.png"; //“G‰æ‘œƒtƒ@ƒCƒ‹
  41. ObjPrim_SetTexture(objEnemy, imgExRumia); //‰æ‘œƒtƒ@ƒCƒ‹‚ð“ǂݍž‚Þ
  42. ObjSprite2D_SetSourceRect(objEnemy, 64, 1, 127, 64); //•`‰æŒ³‹éŒ`‚ð(64,1) - (127,64)‚ɐݒè
  43. ObjSprite2D_SetDestCenter(objEnemy); //•`‰ææ‚𒆐S(0, 0)‚ɐݒè
  44.  
  45. //À•W(cx, 120)‚Ö60ƒtƒŒ[ƒ€‚©‚¯‚Ĉړ®‚·‚é
  46. let cx = GetStgFrameWidth() / 2;//STGƒV[ƒ“‚Ì’†SxÀ•W‚ðŽæ“¾
  47. ObjMove_SetDestAtFrame(objEnemy, cx, 120, 60);
  48. }
  49.  
  50. @MainLoop
  51. {
  52. //“G‚̍À•W‚ðŽæ“¾
  53. let ex = ObjMove_GetX(objEnemy);
  54. let ey = ObjMove_GetY(objEnemy);
  55.  
  56. if(frame == 60)
  57. {
  58. //frame‚ª360‚ɂȂÁ‚½‚çŽÀs‚³‚ê‚é•”•ª
  59. //Ž©‹@‚̍À•W‚ðŽæ“¾
  60. let px = GetPlayerX();
  61. let py = GetPlayerY();
  62.  
  63. //“G‚©‚ç‚Ý‚½Ž©‹@•ûŒü‚ÌŠp“x‚ð‹‚ß‚éB
  64. let angleToPlayer = atan2(py - ey, px - ex);
  65.  
  66. //angle‚ð-30‚©‚ç15‚¸‚‘‰Á‚³‚¹5WAY‚É‚·‚é
  67. let iAngle = -20;
  68. while(iAngle <= 20)
  69. {//(iAngle=-20 ,0 ,20)‚Ì3WAY
  70. //ˆê’莞ŠÔ‚ÅŽ©‹@•ûŒü‚ÖŠp“x‚ð•Ï‚¦‚é’e
  71. //’e‚ðì¬‚·‚éB
  72. let obj1 = CreateShotA1(ex, ey, 4, iAngle + angleToPlayer, 177, 30);//shot1ì»
  73. ObjShot_SetDeleteFrame(obj1, 46);//’x‰„ŽžŠÔŒã46ƒtƒŒ[ƒ€–ڂɏÁ–Å
  74.  
  75. let jAngle = -15;
  76. while(jAngle <= 15)
  77. {//(jAngle=-15 ,0 ,15)‚Ì3WAY
  78. let obj2 = CreateShotA1(0, 0, 0, 0, 177, 10);//shot2ì»
  79. ObjMove_AddPatternA4(obj2, 0, 3, jAngle + 180, 0, 0, 3, objPlayer, NO_CHANGE);//Ž©‹@ˆË‘¶‚ÌŠp“x‚ɐݒè
  80. ObjShot_SetDeleteFrame(obj2, 61);//’x‰„ŽžŠÔŒã61ƒtƒŒ[ƒ€–ڂɏÁ–Å
  81.  
  82. let kAngle = -30;
  83. while(kAngle <= 30)
  84. {//(kAngle=-30, -15 , 0 , 15, 30)‚Ì5WAY
  85. let obj3 = CreateShotA1(0, 0, 0, 0,177, 10);//shot3ì»
  86. ObjMove_AddPatternA4(obj3, 0, 2, kAngle, 0, 0, 3, objPlayer, NO_CHANGE);//Ž©‹@ˆË‘¶‚ÌŠp“x‚ɐݒè
  87. ObjShot_AddShotA1(obj2, obj3, 60);// shot2‚Éshot3‚ð’ljÁ(60ƒtƒŒ[ƒ€‚Åshot3•úo)
  88. kAngle += 15;
  89. }
  90. ObjShot_AddShotA1(obj1, obj2, 45);// shot1‚Éshot2‚ð’ljÁ(45ƒtƒŒ[ƒ€‚Åshot2•úo)
  91. jAngle += 15;
  92. }
  93.  
  94. iAngle += 20;
  95. }
  96.  
  97. frame = 0;//’e‚ðo‚µ‚½‚çframe‚ð0‚É‚·‚é
  98. }
  99.  
  100. //“–‚½‚è”»’è“o˜^
  101. ObjEnemy_SetIntersectionCircleToShot(objEnemy, ex, ey, 32);//“–‚½‚è”»’è(Ž©‹@’e—p)“o˜^
  102. ObjEnemy_SetIntersectionCircleToPlayer(objEnemy, ex, ey, 24);//“–‚½‚è”»’è(‘Ì“–‚½‚è—p)“o˜^
  103.  
  104. //ƒJƒEƒ“ƒ^‚É1’ljÁ
  105. frame++;
  106.  
  107. //ƒ‰ƒCƒt0ˆ—
  108. if(ObjEnemy_GetInfo(objEnemy, INFO_LIFE) <= 0)
  109. {
  110. //ƒ‰ƒCƒt‚ª0‚ɂȂÁ‚½‚瑦À‚ɏI—¹
  111. //–{—ˆ‚Í”š”­ƒGƒtƒFƒNƒg‚̃^ƒXƒN‚ð“o˜^‚µA
  112. //ƒGƒtƒFƒNƒgI—¹‚ð‘Ò‚Á‚āAƒXƒNƒŠƒvƒg‚ðI—¹‚µ‚Ü‚·B
  113. Obj_Delete(objEnemy);
  114. CloseScript(GetOwnScriptID());
  115. return;
  116. }
  117. }
Advertisement
Add Comment
Please, Sign In to add comment