CreateLaser01 copy

task CreateLaser01Copy(lX, lY, lSpeed, lAngle, lLength, lWidth, lGraphic, lDelay) {
	let objT = Obj_Create(OBJ_SHOT);
	Obj_SetPosition(objT, lX, lY);
	ObjShot_SetGraphic(objT, lGraphic);
	ObjShot_SetDelay(objT, lDelay);
	Obj_SetAlpha(objT, 0);
	loop(lDelay) { yield; }
	let doCreate = Obj_BeDeleted(objT); Obj_Delete(objT); if(!doCreate) {
		let obj = Obj_Create(OBJ_LASER);
		Obj_SetPosition(obj, lX, lY);
		Obj_SetAngle(obj, lAngle);
		ObjShot_SetGraphic(obj, lGraphic);
		ObjLaser_SetWidth(obj, lWidth);
		ObjLaser_SetSource(obj, false);
		ObjShot_SetBombResist(obj, false);
		ObjLaser_SetLength(obj, 0);
		while(!Obj_BeDeleted(obj)) {
			if(ObjLaser_GetLength(obj)<lLength){
				ObjLaser_SetLength(obj, ObjLaser_GetLength(obj)+lSpeed);
			} else {
				Obj_SetPosition(obj, Obj_GetX(obj)+lSpeed*cos(lAngle), Obj_GetY(obj)+lSpeed*sin(lAngle));
			}
			if(ObjLaser_GetLength(obj)>lLength){ ObjLaser_SetLength(obj, lLength); }
			yield;
		}
	}
}