because danmakufu

	task TMain {
		CheckCageBreak; CreateCage; wait(60);
		loop {
			ExMove;
			CreateShotBreak(GetAngleToPlayer+15);
			CreateShotBreak(GetAngleToPlayer-15);
			wait(45);
			ExMove;
			loop(3) {
				CreateShotBreak(GetAngleToPlayer);
				wait(25);
			}
			wait(60);
		}
	}
	task CheckCageBreak {
		loop {
			ascent(i in 0..length(cage)) { ascent(j in 0..length(suberu)) {
				if(Collision_Obj_Obj(suberu[j], cage[i])) {
					CreateShot02(Obj_GetX(cage[i]), Obj_GetY(cage[i]), 0, atan2(Obj_GetY(cage[i])-Obj_GetY(suberu[j]), Obj_GetX(cage[i])-Obj_GetX(suberu[j])), 1/20, 2, 35, 0);
					Obj_Delete(cage[i]);
					cage = erase(cage, i);
				}
			} }
			wait(1);
		}
	}
	task CreateCage {
		loop {
			ascent(i in 0..15) { CreateShotKago(75, GetClipMinY+25*i); wait(1); }
			wait(60);
		}
	}
	let cage = [];
	let suberu = [];
	task CreateShotKago(x,y) {
		let obj = Obj_Create(OBJ_SHOT);
		cage = cage ~ [obj];
		Obj_SetPosition(obj, x, y);
		ObjShot_SetDelay(obj, 10);
		ObjShot_SetGraphic(obj, 33);
		while(!Obj_BeDeleted(obj)) { wait(1); }
		let i = 0; loop(length(cage)) { if(cage[i] == obj) { cage = erase(cage, i); break; } i++; }
	}
	task CreateShotBreak(ang) {
		let obj = Obj_Create(OBJ_SHOT);
		suberu = suberu ~ [obj];
		Obj_SetPosition(obj, GetX, GetY);
		Obj_SetAngle(obj, ang);
		Obj_SetSpeed(obj, 3);
		ObjShot_SetGraphic(obj, 232);
		ObjShot_SetDelay(obj, 30);
		while(!Obj_BeDeleted(obj)) { wait(1); }
		let i = 0; loop(length(suberu)) { if(suberu[i] == obj) { suberu = erase(suberu, i); break; } i++; }
	}