Spellcard

#TouhouDanmakufu
#Title["Trial by the Ten Kings"]
#BGM[.\Touhou Judgement in the Sixtieth Year ~ Fate of Sixty Years]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main{

    #include_function ".\function_cutin.txt";

    let CSD = GetCurrentScriptDirectory;

    let imgboss = CSD ~ "system\imgboss.png";
    let cut = CSD ~ "system\cut.png";
    let bg = CSD ~ "system\bgstill.png";
    let lay = CSD ~ "system\bgscroll.png";

    let f = 0;
    let f2 = 0;
    let slide = 0;

    let charge0 = CSD ~ "sfx\se_ch00.wav";

    @Initialize{
        SetLife(3000);
        SetTimer(180);
        SetMovePosition01(GetCenterX,GetCenterY-130,3);
        SetScore(1500000);
        cutin("NAZRIN",""\""Trial by the Ten Kings"\",cut,10,10,256,256);
        MagicCircle(false);
        SetInvincibility(300);
        SetDamageRate(20,0);

        LoadGraphic(cut);
        LoadGraphic(bg);
        LoadGraphic(lay);
        LoadGraphic(imgboss);

        LoadSE(charge0);

        LoadUserShotData(CSD ~ "supershot.txt");

        mainTask;
    }

    @MainLoop{
        SetCollisionA(GetEnemyX,GetEnemyY,32);
        SetCollisionB(GetEnemyX,GetEnemyY,16);

        yield;
    }

    @DrawLoop{
        SetTexture(imgboss);
        SetRenderState(ALPHA);
        SetAlpha(255);
        SetGraphicRect(0,0,64,86);
        SetGraphicScale(0.7,0.7);
        SetGraphicAngle(0,0,0);

        //no movement
        if(int(GetSpeedX())==0){
            if(f<10){SetGraphicRect(0,0,64,86);}
            if(f>=10 && f<20){SetGraphicRect(64,0,128,86);}
            if(f>=20 && f<30){SetGraphicRect(128,0,192,86);}
            if(f>=30){SetGraphicRect(192,0,256,86);}
            f2 = 0;
        }

        //to the right
        if(GetSpeedX()>0){
            if(f2<5){SetGraphicRect(0,86,64,172);}
            if(f2>=5 && f2<10){SetGraphicRect(64,86,128,172);}
            if(f2>=10 && f2<15){SetGraphicRect(128,86,192,172);}
            if(f2>=15){SetGraphicRect(192,86,256,172);}
            f2++;
        }

        //to the left
        if(GetSpeedX()<0){
            SetGraphicAngle(180,0,0);
            if(f2<5){SetGraphicRect(0,86,64,172);}
            if(f2>=5 && f2<10){SetGraphicRect(64,86,128,172);}
            if(f2>=10 && f2<15){SetGraphicRect(128,86,192,172);}
            if(f2>=15){SetGraphicRect(192,86,256,172);}
            f2++;
        }

        DrawGraphic(GetX,GetY);
        f++;
        if(f==40){f=0;}
    }

    @BackGround{
        SetTexture(bg);
        SetRenderState(ALPHA);
        SetAlpha(255);
        SetGraphicRect(0,0,256,256);
        SetGraphicScale(2,2);
        SetGraphicAngle(0,0,0);
        DrawGraphic(GetCenterX,GetCenterY);

        SetTexture(lay);
        SetRenderState(ALPHA);
        SetAlpha(255);
        SetGraphicRect(0,0,256,8000);
        SetGraphicScale(1.5,1.5);
        SetGraphicAngle(0,0,0);
        DrawGraphic(GetCenterX,GetCenterY+slide);
        slide-=2;
        if(slide==-384){ slide = 0;}
    }

    @Finalize{
        DeleteGraphic(bg);
        DeleteGraphic(lay);
        DeleteGraphic(cut);
        DeleteGraphic(imgboss);

        DeleteSE(charge0);
    }

    task mainTask{
        yield;
        Concentration01(120);
        PlaySE(charge0);
        wait(120);
        SetMovePosition03(GetCenterX,GetCenterY-170,10,60);
        spawn;
    }

    //creates familiars
    sub spawn{
        CreateEnemyFromFile(CSD ~ "SC 5 F1.txt",GetCenterX,GetClipMinY-60,0,0,1200);
        CreateEnemyFromFile(CSD ~ "SC 5 F2.txt",GetCenterX,GetClipMinY-60,0,0,1200);
        CreateEnemyFromFile(CSD ~ "SC 5 F3.txt",GetCenterX,GetClipMinY-60,0,0,2400);
        CreateEnemyFromFile(CSD ~ "SC 5 F4.txt",GetCenterX,GetClipMinY-60,0,0,2400);
        CreateEnemyFromFile(CSD ~ "SC 5 F5.txt",GetCenterX,GetClipMinY-60,0,0,1800);
        CreateEnemyFromFile(CSD ~ "SC 5 F6.txt",GetCenterX,GetClipMinY-60,0,0,1800);
        CreateEnemyFromFile(CSD ~ "SC 5 F7.txt",GetCenterX,GetClipMinY-60,0,0,2400);
        CreateEnemyFromFile(CSD ~ "SC 5 F8.txt",GetCenterX,GetClipMinY-60,0,0,2400);
        CreateEnemyFromFile(CSD ~ "SC 5 F9.txt",GetCenterX,GetClipMinY-60,0,0,1800);
    }

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

}