ゲームキッズ
更新
東方弾幕風 スクリプト01 〜緋蜂発狂もどき〜
更新日：2010-05-29 00:25:00
#東方弾幕風
#Title [テスト01]
#Text [初作品]
#ScriptVersion[2]
script_enemy_main {
let imgBoss = "script\img\ExRumia.png";
let a = 0;
let b = 0;
let c = 180;
let d = -90;
let frame1 = 0;
let e = 0;
let f = 0;
let g = -45;
let h = 0;
let i = 0;
@Initialize {
SetX(GetCenterX);
SetY(GetClipMinY + 120);
SetLife(2000);
LoadGraphic(imgBoss);
SetTexture(imgBoss);
SetGraphicRect(0, 0, 63, 63);
}
@MainLoop {
SetCollisionA(GetX, GetY, 24);
SetCollisionB(GetX, GetY, 24);
frame1++;
if(frame1 == 2){
let a = b ;
b += 5.1;
loop(4) {
CreateShot01(GetX, GetY, 4, a, RED01, 0);
a += 90;
}
let e = f ;
f -= 10.3;
loop(4) {
CreateShot01(GetX, GetY, 4, e, RED01, 0);
e += 90;
}
}
if(frame1 == 2){
g = h;
loop(8){
CreateShotA(01,GetX,GetY,0);
g +=45;
SetShotDataA(01,0,1,g,+0.8,0.09,50,BLUE01);
FireShot(01);
}
h += 10.5222;
frame1 = 0;
}
}
@DrawLoop {
DrawGraphic(GetX, GetY);
}
@Finalize {
DeleteGraphic(imgBoss);
}
}