Site Logo


  1. #TouhouDanmakufu[Single]
  2. #ScriptVersion[3] //This is required for ph3 scripts
  3. #Title["SampleA01"]
  4. #Text["SampleA01：Shooting Bullets Straight Down"] 
  6. //Load the default shotsheet
  7. #include "script/default_system/Default_ShotConst.txt"
  8. //----------------------------------------------------
  9. //Declaring Global Variables
  10. //The variables declared here can be used throughout the entire script.
  11. //However, the variables declared here are static. 
  12. //(They can be changed, but not by themselves as they are not in the main loop)
  13. //(As execution order cannot be guaranteed, random numbers cannot be used(?))
  14. //----------------------------------------------------
  15. let objEnemy; //Enemy object
  16. let frame = 0; //Counter for timing enemy movements.(Will keep increasing by one in @MainLoop)
  18. //----------------------------------------------------
  19. //Enemy movement
  20. //----------------------------------------------------
  21. @Event
  22. {
  23. 	alternative(GetEventType())
  24. 	case(EV_REQUEST_LIFE)
  25. 	{
  26. 		//The script asks for the enemy's life
  27. 		SetScriptResult(500); //Setting the enemy's life to 500
  28. 	}
  29. }
  31. @Initialize
  32. {
  33. 	//Creating and registering enemy objects
  34. 	objEnemy = ObjEnemy_Create(OBJ_ENEMY_BOSS);
  35. 	ObjEnemy_Regist(objEnemy);
  37. 	//Setting the enemy's image
  38. 	let imgExRumia = GetCurrentScriptDirectory() ~ "ExRumia.png"; //file path to enemy image
  39. 	ObjPrim_SetTexture(objEnemy, imgExRumia); 
  40.         //Setting the above image file as a texture to the enemy object(objEnemy)
  41. 	ObjSprite2D_SetSourceRect(objEnemy, 64, 1, 127, 64); 
  42.         //Setting the rectangle coordinates in the enemy image to use(Left, Top, Right, Bottom).
  43. 	ObjSprite2D_SetDestCenter(objEnemy); 
  44.         //Positioning the center of the rectangle(w/texture) at (0, 0) on the stage(top left corner).
  46. 	//Moving to the coordinate (cx, 60) in 60 frames
  47. 	let cx = GetStgFrameWidth() / 2;
  48.         //defines the variable cx as the horizontal middle of the stage. (Stage width / 2)
  50. 	ObjMove_SetDestAtFrame(objEnemy, cx, 60, 60);
  51. }
  53. @MainLoop
  54. {
  55. 	//retrieving enemy coordinates
  56. 	let ex = ObjMove_GetX(objEnemy);
  57. 	let ey = ObjMove_GetY(objEnemy);
  59. 	if(frame == 60)
  60. 	{
  61. 		//executed when frame is equal to 60
  62. 		//・shoots a bullet straight down from the enemy's position
  63. 		//・speed: 3 pixels per frame
  64. 		//・angle: 90 (down)    (0 = right, 180 = left, 270 = up)
  65. 		//・delay: 30 frames 
  66. 		CreateShotA1(ex, ey, 3, 90, DS_BALL_S_RED, 30);
  68. 		frame = 0;
  69.         	//after the bullet is shot, frame is returned to 0 to build up to 60 again and fire another bullet.
  71. 	}
  73. 	//Setting the enemy hit box
  74. 	ObjEnemy_SetIntersectionCircleToShot(objEnemy, ex, ey, 32); //hitbox against player bullets. 32 is the radius.
  75. 	ObjEnemy_SetIntersectionCircleToPlayer(objEnemy, ex, ey, 24); //hitbox against the player. 24 is the radius.
  77. 	//adding +1 to frame. "frame++" is equivalent to "frame = frame + 1;" or "frame += 1;"
  78. 	frame++;
  80. 	//If the enemy's life is 0
  81. 	if(ObjEnemy_GetInfo(objEnemy, INFO_LIFE) <= 0)
  82. 	{
  83. 		//the enemy is killed immediately when life is 0
  84. 		//As this is a beginner sample script, 
  85. 		//the script is ended immediately without waiting for an explosion effect
  86. 		Obj_Delete(objEnemy);
  87. 		CloseScript(GetOwnScriptID());
  88. 		return;
  89. 	}
  90. }