Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #TouhouDanmakufu
- #Title[Proiettile Ciel "Heat of the Falling Ice"]
- #Text[The main shot of the Eight Gods.]
- #BGM[.\bgm\Rumia's theme - Apparations Stalk The Night.mp3]
- #Background[.\img\IceMountain.png, 1, 1]
- #ScriptVersion[2]
- script_enemy_main {
- let imgBoss = "script\img\ExRumia.png";
- let frame = 0;
- let angle = 0;
- @Initialize {
- SetLife(1000);
- SetMovePosition01 (GetCenterX,GetCenterY,5);
- SetTimer(65);
- LoadGraphic(imgBoss);
- }
- @MainLoop {
- SetCollisionA(GetX, GetY, 24);
- SetCollisionB(GetX, GetY, 24);
- if (frame == 60)
- {
- CreateShot01(GetX, GetY, 3, GetAngleToPlayer, RED01, 10);
- frame=0;
- CreateShot01(GetX, GetY, 4, GetAngleToPlayer, RED02, 11);
- frame=0;
- CreateShot01(GetX, GetY, 5, GetAngleToPlayer, RED03, 12);
- frame=0;
- CreateShot01(GetX, GetY, 6, GetAngleToPlayer, RED02, 13);
- frame=0;
- CreateShot01(GetX, GetY, 7, GetAngleToPlayer, RED01, 14);
- frame=61
- }
- if (frame == 180)
- {
- CreateLaser01(GetX, GetY, 5, GetAngleToPlayer, 200, 5, RED22, 60);
- frame=120;
- CreateLaser01(GetX, GetY, 5, GetAngleToPlayer, 200, 10, RED22, 120);
- frame=120;
- CreateLaser01(GetX, GetY, 5, GetAngleToPlayer, 200, 15, RED32, 150);
- frame=120;
- CreateLaser01(GetX, GetY, 5, GetAngleToPlayer, 200, 20, RED22, 165);
- frame=120;
- CreateLaser01(GetX, GetY, 5, GetAngleToPlayer, 200, 25, RED22, 170);
- frame=181;
- }
- if (frame == 260)
- {
- loop(36){
- CreateShot01(GetX, GetY, 0, angle, BLUE12, 170);
- angle += 360/36;
- frame == 182
- loop(36){
- CreateShot01(GetX, GetY, 180, angle, BLUE12, 170);
- angle += 360/36;
- frame == 182
- loop(36){
- CreateShot01(GetX, GetY, 360, angle, BLUE12, 170);
- angle += 360/36;
- frame=0
- }
- frame++;
- }
- @DrawLoop {
- SetTexture(imgBoss);
- SetRenderState(ALPHA);
- SetAlpha(255);
- SetGraphicRect(0,0,50,50);
- SetGraphicScale(1,1);
- SetGraphicAngle(0,0,0);
- DrawGraphic(GetX, GetY);
- }
- @Finalize {
- DeleteGraphic(imgBoss);
- }
- }
Add Comment
Please, Sign In to add comment