
	SetRateScoreSystemEnable(false);
	SetDefaultStatusVisible(false);
	let csd=GetCurrentScriptDirectory;

	AddArchiveFile(csd ~ "img/secret/Achievement.dat");

	let InitialLife=3;
	let InitialBomb=3;
	let InitialContinue=0;
	let InitialLifeMax=3;
	let InitialBombMax=3;

	let PreLoad=0;

	let StageStartSignal=false;
	let StageInterval=false;

	let imgTitle=csd ~ "img/title.png";
	let imgTitleSquareLine=csd ~ "img/TitleSquare.png";
	let imgWhite=csd ~ "img/White.png";
	let imgBlack=csd ~ "img/Black.png";

	let imgBG=csd ~ "img/MenuBG.png";

	let imgMenuEffect=csd ~ "img/effect_tiny.png";

	let imgMenuLetter=csd ~ "img/menuletter.png";
	let imgNumber=csd ~ "img/Number.png";
	let imgStatusLetter=csd ~ "img/StatusLetter.png";
	let imgStatusStar=csd ~ "img/StatusStar.png";
	let imgBer=csd ~ "img/ber.png";
	let imgBer2=csd ~ "img/ber2.png";
	let imgCircleEffect=csd ~ "player/img/Marisa_shots.png";

	let imgBreakCircleEffect=csd ~ "img/circle.png";
	let imgMagicEffect=csd ~ "img/Magic.png";

	let imgCircleCrossLine=csd ~ "img/CircleCrossLine.png";
	let imgCircleLine=csd ~ "img/CircleLine.png";
	let imgDeltaLine=csd ~ "img/DeltaLine.png";
	let imgSquareLine=csd ~ "img/SquareLine.png";
	let imgMinusLine=csd ~ "img/MinusLine.png";
	let imgCrossLine=csd ~ "img/CrossLine.png";
	let imgDoubleCircleLine=csd ~ "img/DoubleCircleLine.png";
	let imgStarLine=csd ~ "img/StarLine.png";

	let imgIneDeltaLine=csd ~ "img/IneDeltaLine.png";
	let imgItem=csd ~ "img/Item.png";

	let imgLight=csd ~ "img/Light.png";
	let imgCircleBorder=csd ~ "img/CircleBorder.png";

	let imgAchievement=csd ~ "img/secret/Achievement.png";
	let imgSpell=csd ~ "img/spell.png";

	let imgEffects=csd ~ "img/effects.png";

	let imgDoll=csd ~ "lib/dot_alice.png";

	let MenuSE=[csd ~ "se/clock03.wav",csd ~ "se/cursor01.wav"];
	let BGM=[csd ~ "bgm/title.wav",csd ~ "bgm/stage1.wav",csd ~ "bgm/stage1boss.wav",csd ~ "bgm/stage2.wav",csd ~ "bgm/stage2boss.wav",csd ~ "bgm/stage3.wav",csd ~ "bgm/stage3boss.wav",
		csd ~ "bgm/stage4.wav",csd ~ "bgm/stage4boss.wav",csd ~ "bgm/stage5.wav",csd ~ "bgm/stage5boss.wav",csd ~ "bgm/trueboss.wav"];

	let Hiscore=[];
	let Hiscore2=[];
	let Hiscore3=[];
	let Hiscore4=[];
	let Hiscore5=[];

	let ScriptNameArray=[];

	let Stagescore=0;
	let Stagescore2=0;
	let Stagescore3=0;

	let SubtotalStagescore=0;
	let SubtotalStagescore2=0;

	ascent(let k in 0..10)
	{
		Hiscore = Hiscore ~ [k];
		Hiscore2 = Hiscore2 ~ [k];
		Hiscore3 = Hiscore3 ~ [k];
		Hiscore4 = Hiscore4 ~ [k];
		Hiscore5 = Hiscore5 ~ [k];

		ScriptNameArray = ScriptNameArray ~ ["k"];
	}

	let SelectedDifficult="Difficult";
	let StageProgress=1;
	let StagePractice=false;
	let StagePhaseProgress=0;

	let ScreenShakeX=0;
	let ScreenShakeY=0;

	let bgX=0;
	let bgX2=300;
	let bgX3=300;
	let bgX4=0;
	let bgY=0;
	let bgY2=300;
	let bgY3=300;
	let bgrt=0;
	let ViewFromX=300;
	let ViewFromY=90;
	let ViewFromZ=-75;
	let ViewToX=0;
	let ViewToY=-60;
	let ViewToZ=50;
	let DrawAngleX=0;
	let DrawAngleY=0;
	let DrawAngleZ=0;
	let DrawX=0;
	let DrawY=0;
	let DrawZ=0;
	let stage1alpha1=0;
	let stage1alpha2=0;
	let stage1alpha3=0;
	let stage1alpha4=0;
	let stage1alpha5=0;
	let stage1alpha6=0;
	let stage1scale3=0;
	let stage1BGCount=0;
	let WaterWaving=0;
	let WaterWave=0;
	let SkyRect=0;
	let Stage1BossAdjust=0;

	let Stage2BGCount=0;
	let MountainX=[];
	let MountainAngle=[];
	let MountainHeight=[];

	let MountainX2=[];
	let MountainAngle2=[];
	let MountainHeight2=[];

	let MoonX=-200;
	let MoonY=0;
	let MoonScale=0.7;
	let MoonColor=[255,255,255];

	let stage4bgfromy=0;
	let Adjuststage4bgfromy=0;
	let stage4bgfromz=0;
	let stage4bg1yangle=0;
	let stage4bg2zangle=0;
	let stage4bg2scale=0;
	let stage4fogRGB=[255,255,255];
	let stage4bgLeftLayerX=0;

	let StageChange=false;
	let stage2alpha1=0;
	let stage2alpha2=0;
	let stage3alpha1=0;
	let stage3alpha2=0;
	let stage3alpha3=0;
	let stage3alpha4=0;
	let stage4alpha1=0;
	let stage4alpha2=0;
	let stage4alpha3=0;
	let stage5alpha1=0;
	let stage5alpha2=0;
	let stage5alpha3=0;
	let stage5alpha4=0;
	let stage5alpha5=0;
	let stage5alpha6=0;
	let stage5alphacloud=0;
	let stage6alpha1=0;
	let stage6alpha2=0;

	let stage5phase=0;
	let ScoreNumber1=0;
	let ScoreNumber2=0;
	let ScoreNumber3=0;
	let ScoreNumber4=0;
	let ScoreNumber5=0;
	let ScoreNumberXpx=12;

	let UpTime;
	let PlayTime;

	let BGDrawing=1;
	let PracticeStartBurstCounter=0;
	let PracticeStartMagicCounter=0;
	let PracticeStartBurstRank=0;
	let PracticeStartRushGauge=0;
	let StartDifficult=0;
	let StartStage=0;

	let LightMode=0;
	let LightMode_HiscoreDraw=0;
	let LightMode_PlayerIntervalEffect=0;
	let LightMode_ShotEffect=0;
	let LightMode_BombEffect=0;
	let LightMode_PlayerBlur=0;
	let LightMode_BossBlur=0;
	let LightMode_ElementalBlur=0;
	let LightMode_SpecialEffect=0;
	let LightMode_BreakEffect=0;

	let UseAutoBombCount;
	let UseStageBombCount;
	let StageMissCount;
	let BurstModeErazeBulletNum;

	let JudgTimeInitialMAM=false;

	let StageWeaknessCount=0;
	let StageRushGauge=0;
	let StageMagicCounter=0;
	let StageMagicFragment=0;
	let StageMagicFragment2=0;
	let StageSectionMagicFragment=0;
	let StageBurstRank=0;
	let ExistItemCounter=0;
	let StageMultiply=1;
	let StageMultiply2=0;
	let StageMultiply3=0;
	let ItemCountCheck2X=0;
	let ItemCountCheck2Y=0;
	let ComboCounter=0;
	let FragmentMultiply=1;
	let StageBasePoint=1;
	let StageBasePoint2=0;
	let GetBasePoindCount=1;
	let GetFragmentPointCount=1;
	let GetMultiplyPointCount=1;
	let denomination=0;

	let MSDScoreItemCount=0;
	let MSDSectionScoreItemCount=0;

	let BoostMode=false;
	let MissedBombCount=0;

	let WaitSystem=false;
	let WaitBullet=34;

	let OnLifeExtend=false;
	let OnBombExtend=false;

	let SpiritCounter=0;
	let SpiritRank=0;

	let SlowMoveFlag=false;
	let EliminateBurstReturnShotNum=0;
	let ExtendNum=0;

	let MSDClear=false;

let SE=["se\seSuperNaturalBorder1.wav",
	"se\seSuperNaturalBorder2.wav",
	"se\sePlayerShot01.wav",
	csd~"..\se\coin01.wav",
	csd~"se\cursor26.wav",
	csd~"..\se\cursor36.wav",
	csd~"..\se\shoot16_b.wav",
	"se\seScore.wav"];

	let SlowModeJudgRShot1;
	let SlowModeJudgRShot2;
	let SlowModeJudgRShot3;

	let bgAngle=90;
	let BossAdjust=0;