task Cutin(text,textwidth){
	let alpha=0;
	let scale=4;
	let yscale=1;
	let objTxt=ObjText_Create;
	ObjText_SetText(objTxt,text);
	ObjText_SetFontSize(objTxt,textwidth);
	ObjText_SetFontColorTop(objTxt,255,255,255);
	ObjText_SetFontColorBottom(objTxt,128,128,255);
	ObjText_SetFontBorderType(objTxt,BORDER_FULL);
	ObjText_SetFontBorderColor(objTxt,0,0,200);
	ObjText_SetFontBorderWidth(objTxt,1);
	ObjText_SetHorizontalAlignment(objTxt,ALIGNMENT_RIGHT);
	ObjText_SetMaxWidth(objTxt,380);
	Obj_SetRenderPriority(objTxt,0.8);
	ObjRender_SetPosition(objTxt,GetStgFrameWidth-385,GetStgFrameHeight-150,0);
	ObjText_SetAutoTransCenter(objTxt,true);
	
	let path=GetCurrentScriptDirectory~"images/cutin.png";
	let cut=ObjPrim_Create(OBJ_SPRITE_2D);
	ObjPrim_SetTexture(cut,path);
    ObjSprite2D_SetSourceRect(cut,0,0,751,1064);
	ObjRender_SetScaleXYZ(cut,0.4,0.4,1);
    ObjSprite2D_SetDestCenter(cut);
	ObjRender_SetPosition(cut,-(488/4),GetStgFrameHeight/2,0);
	Obj_SetRenderPriority(cut,0.50);
	TScale;
	TCut;
	task TScale{
	loop(20){
		alpha+=12.75;
		scale-=0.15;
		ObjRender_SetAlpha(objTxt,alpha);
		ObjRender_SetScaleXYZ(objTxt,scale,scale,1);
		yield;
	}
	wait(55);
	loop(20){
		yscale-=0.05;
		ObjRender_SetScaleXYZ(objTxt,1,yscale,1);
		yield;
	}
	wait(5);
	ObjRender_SetPosition(objTxt,GetStgFrameWidth-385,GetStgFrameHeight-425,0);
	loop(20){
		yscale+=0.05;
		ObjRender_SetScaleXYZ(objTxt,1,yscale,1);
		yield;
	}
	while(!Obj_IsDeleted(bossObj)){yield;}
		loop(20){
			alpha-=12.75;
			yscale+=0.05;
			ObjRender_SetAlpha(objTxt,alpha);
			ObjRender_SetScaleXYZ(objTxt,yscale,yscale,1);
			yield;
		}
		Obj_Delete(objTxt);
	}
	task TCut{
		let speed=15;
		loop(20){
			ObjRender_SetX(cut,ObjRender_GetX(cut)+speed);
			yield;
			}
		speed=1.5;
		loop(60){
			ObjRender_SetX(cut,ObjRender_GetX(cut)+speed);
			yield;
			}
		speed=15;
		while(ObjRender_GetX(cut)<GetStgFrameWidth+(488/2)){
			ObjRender_SetX(cut,ObjRender_GetX(cut)+speed);
			yield;
			}
		Obj_Delete(cut);
		}
}