function DialogueText(text, side, xpos, ypos) {
	let objText = ObjText_Create();
	ObjText_SetText (objText, text);
	ObjText_SetFontSize(objText, 14);
    ObjText_SetFontBold(objText, false);
    ObjText_SetFontColorTop(objText, 0, 0, 0);
    ObjText_SetFontColorBottom(objText, 0, 0, 0);
    ObjText_SetFontBorderType(objText, BORDER_NONE);
	if(side) {ObjText_SetHorizontalAlignment(objText, ALIGNMENT_RIGHT);}
	else {ObjText_SetHorizontalAlignment(objText, ALIGNMENT_LEFT);}
    ObjText_SetMaxWidth(objText, 300);
    ObjRender_SetX(objText, xpos);
    ObjRender_SetY(objText, ypos);
	Obj_SetRenderPriority(objText, 0.6);
	return objText;
}

function RenderBody (name, xpos, ypos) {
	let picture = ObjPrim_Create(OBJ_SPRITE_2D);
	let picturePath = GetCurrentScriptDirectory() ~ "/art/" ~ name;
	ObjRender_SetBlendType(picture, BLEND_ALPHA);
	ObjPrim_SetTexture(picture, picturePath);
	ObjSprite2D_SetSourceRect(picture, 0, 0, 512, 512);
	ObjSprite2D_SetDestRect(picture, 0, 0, 112, 112);
	ObjSprite2D_SetDestCenter(picture);
	ObjRender_SetPosition(picture, xpos, ypos, 49);
	return picture;
}


task TextObject {
	let objText = ObjText_Create();
	ObjText_SetText (objText, "testing");
	ObjText_SetFontSize(objText, 24);
    ObjText_SetFontBold(objText, true);
    ObjText_SetFontColorTop(objText, 255, 0, 255);
    ObjText_SetFontColorBottom(objText, 255, 255, 255);
    ObjText_SetFontBorderType(objText, BORDER_NONE);
	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_LEFT);
    ObjText_SetMaxWidth(objText, 300);
    ObjRender_SetX(objText, 72);
    ObjRender_SetY(objText, 336);
	Obj_SetRenderPriority(objText, 0.6);
	return objText;
}

task DrawTextbox {
	let textBox = ObjPrim_Create(OBJ_SPRITE_2D);
	let textPath = GetCurrentScriptDirectory() ~ "/art/textboxbackground.png";
    ObjPrim_SetTexture(textBox, textPath);
	ObjSprite2D_SetSourceRect(textBox, 0, 0, 100, 33);
	ObjSprite2D_SetDestCenter(textBox);
	ObjRender_SetPosition(textBox, 384/2, 448/2, 50);
	return textBox;
}