東方弾幕風の「ウー」を再現したいのですが詰まってしまいました

[ゆよ]

初めまして。
現在東方弾幕風でいろいろな動画およびサイトを見ながら試行錯誤しているのですが「ウー」を再現しようとして詰まってしまいました。
_______________________________________________________
#東方弾幕風
#Title[「ウー」再現]
#Text[]
#BackGround[User]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main{
let frame = 0;
let Bossimg=("script\img\boss.png");
let s=0;

@Initialize{
LoadUserShotData("UserShot\Shot_All.txt");
SetTimer(72);
SetLife(750);
SetDamageRate(15,0);
LoadGraphic(Bossimg);
SetTexture(Bossimg);
SetGraphicRect(0,0,128,128);
MagicCircle(false);
A;
SetMovePosition02(GetCenterX,GetCenterY-20,30);
}

@MainLoop{
SetCollisionA(GetX,GetY,12);
SetCollisionB(GetX,GetY,12);
frame++;
s+=5;

if(frame%120==0＆＆GetLife<150){
let ang=0;
loop(24){
CreateShot01(GetX,GetY,1,ang,45,0);
ang+=360/24;
}
}
yield;
}
@DrawLoop{
SetAlpha(255);
DrawGraphic(GetX,GetY+4*sin(s));
}

@Finalize{
DeleteGraphic(Bossimg);
}

task A{
loop(120){yield;}
loop{
let angle=0;
let angle1=GetAngleToPlayer;
let angle2=GetAngleToPlayer;


let a=30;
let a1=0;
let a2=0;

loop(30){

loop(3){
shotA(GetX-a2*sin(-angle2-90),GetY-a2*cos(-angle2-90),4,angle,41,10);//★★
}

a1+=1.1;
a+=a1;
angle1+=a1;
a2+=a1;
loop(3){yield;}
}

loop(200){yield;}
}

}

function shotA(shotX,shotY,speed,angle,gra,d){
CreateShotA(1,shotX,shotY,d);
SetShotDataA(1,0,0,angle,0,0,0,gra);
SetShotDataA(1,1,0,rand(0,360),0,0,0,gra);
SetShotDataA(1,210,0.1,rand(0,360),0,0.005,2,gra);
FireShot(1);
}
}
__________________________________________________________

このプログラムの★がついているところで質問です。これだけだと一本分の「ウー」しかでません。なので両隣にも同じように少し距離を離してshotAをおいたのですが自機が上部に行ったときに弾が出る場所の間隔と弾の配置される挙動がうまくいかず詰まってしまいました。もしよろしければアドバイスをお願いします。

[あたっしゅ]

東上☆海美☆「
ph3 版じゃない方ですか ?

＞ A は未定義の識別子です(22行目)

って出ましたけど。
」

[ゆよ]

あたっしゅさん返信ありがとうございます<m(__)m>
ph3じゃない方です！説明不足ですいません。