Sample script

#TouhouDanmakufu
#ScriptVersion[3]
#Title["Shotsheet Test"]
#Text[""]

let CSD = GetCurrentScriptDirectory;

let objBoss;

let bossX;
let bossY;
let CenterX = GetStgFrameWidth/2;
let CenterY = GetStgFrameHeight/2;

@Initialize{
	objBoss = ObjEnemy_Create(OBJ_ENEMY_BOSS);
	ObjEnemy_Regist(objBoss);

	ObjMove_SetPosition(objBoss,CenterX,CenterY);

	LoadEnemyShotData(CSD ~ "ShotDefine.txt");

	TMain;
}

@Event{
	alternative(GetEventType)
	case(EV_REQUEST_LIFE){ SetScriptResult(1000);}
}

@MainLoop{
	bossX = ObjMove_GetX(objBoss);
	bossY = ObjMove_GetY(objBoss);

	ObjEnemy_SetIntersectionCircleToShot(objBoss,bossX,bossY,24);
	ObjEnemy_SetIntersectionCircleToPlayer(objBoss,bossX,bossY,24);

	if(ObjEnemy_GetInfo(objBoss,INFO_LIFE)<=0){
		Obj_Delete(objBoss);
		CloseScript(GetOwnScriptID);
		return;
	}

	yield;
}

@Finalize{

}

task TMain{
	wait(60);
	TFire;
}

task TFire{
	loop{
		CreateShotA1(bossX,bossY,1,90,1,30);
		wait(120);
	}
}

function wait(w){ loop(w){ yield;}}