task Toption1
{
LoadGraphic(GCP~ ".\option01.png");
let op1=Obj_Create(OBJ_EFFECT);
ObjEffect_SetTexture(op1,GCP~ ".\option01.png");
ObjEffect_SetPrimitiveType(op1,PRIMITIVE_TRIANGLESTRIP);
ObjEffect_CreateVertex(op1,4);
ObjEffect_SetVertexXY(op1,0,-8,-8);
ObjEffect_SetVertexXY(op1,1,8,-8);
ObjEffect_SetVertexXY(op1,2,-8,8);
ObjEffect_SetVertexXY(op1,3,8,8);
ObjEffect_SetVertexUV(op1,0,0,0);
ObjEffect_SetVertexUV(op1,1,16,0);
ObjEffect_SetVertexUV(op1,2,0,16);
ObjEffect_SetVertexUV(op1,3,16,16);
ObjEffect_SetLayer(op1,2);
Topattack1;
loop
	{
	alternative(level)
		case(0){EPX1=0;EPY1=-1000;}
		case(1){EPX1=0;EPY1=25;}
		others{EPX1=-10;EPY1=15;}
	Obj_SetPosition(op1,GetPlayerX+OPX1+(EPX1-OPX1)/5,GetPlayerY+OPY1+(EPY1-OPY1)/5);
	OPX1=Obj_GetX(op1)-GetPlayerX;
	OPY1=Obj_GetY(op1)-GetPlayerY;
	yield;
	}
}


task Toption2
{
LoadGraphic(GCP~ ".\option01.png");
let op1=Obj_Create(OBJ_EFFECT);
ObjEffect_SetTexture(op1,GCP~ ".\option01.png");
ObjEffect_SetPrimitiveType(op1,PRIMITIVE_TRIANGLESTRIP);
ObjEffect_CreateVertex(op1,4);
ObjEffect_SetVertexXY(op1,0,-8,-8);
ObjEffect_SetVertexXY(op1,1,8,-8);
ObjEffect_SetVertexXY(op1,2,-8,8);
ObjEffect_SetVertexXY(op1,3,8,8);
ObjEffect_SetVertexUV(op1,0,0,0);
ObjEffect_SetVertexUV(op1,1,16,0);
ObjEffect_SetVertexUV(op1,2,0,16);
ObjEffect_SetVertexUV(op1,3,16,16);
ObjEffect_SetLayer(op1,2);
Topattack2;
loop
	{
	alternative(level)
		case(0){EPX2=1000;EPY2=0;}
		case(1){EPX2=1000;EPY2=0;}
		others{EPX2=10;EPY2=15;}
	Obj_SetPosition(op1,GetPlayerX+OPX2+(EPX2-OPX2)/5,GetPlayerY+OPY2+(EPY2-OPY2)/5);
	OPX2=Obj_GetX(op1)-GetPlayerX;
	OPY2=Obj_GetY(op1)-GetPlayerY;
	yield;
	}
}

task Toption3
{
LoadGraphic(GCP~ ".\option01.png");
let op1=Obj_Create(OBJ_EFFECT);
ObjEffect_SetTexture(op1,GCP~ ".\option01.png");
ObjEffect_SetPrimitiveType(op1,PRIMITIVE_TRIANGLESTRIP);
ObjEffect_CreateVertex(op1,4);
ObjEffect_SetVertexXY(op1,0,-8,-8);
ObjEffect_SetVertexXY(op1,1,8,-8);
ObjEffect_SetVertexXY(op1,2,-8,8);
ObjEffect_SetVertexXY(op1,3,8,8);
ObjEffect_SetVertexUV(op1,0,0,0);
ObjEffect_SetVertexUV(op1,1,16,0);
ObjEffect_SetVertexUV(op1,2,0,16);
ObjEffect_SetVertexUV(op1,3,16,16);
ObjEffect_SetLayer(op1,2);
Topattack3;
loop
	{
	alternative(level)
		case(0){EPX3=0;EPY3=-1000;}
		case(1){EPX3=0;EPY3=-1000;}
		case(2){EPX3=0;EPY3=-1000;}
		case(3){EPX3=0;EPY3=25;}
		others{EPX3=-20;EPY3=0;}
	Obj_SetPosition(op1,GetPlayerX+OPX3+(EPX3-OPX3)/5,GetPlayerY+OPY3+(EPY3-OPY3)/5);
	OPX3=Obj_GetX(op1)-GetPlayerX;
	OPY3=Obj_GetY(op1)-GetPlayerY;
	yield;
	}
}


task Toption4
{
LoadGraphic(GCP~ ".\option01.png");
let op1=Obj_Create(OBJ_EFFECT);
ObjEffect_SetTexture(op1,GCP~ ".\option01.png");
ObjEffect_SetPrimitiveType(op1,PRIMITIVE_TRIANGLESTRIP);
ObjEffect_CreateVertex(op1,4);
ObjEffect_SetVertexXY(op1,0,-8,-8);
ObjEffect_SetVertexXY(op1,1,8,-8);
ObjEffect_SetVertexXY(op1,2,-8,8);
ObjEffect_SetVertexXY(op1,3,8,8);
ObjEffect_SetVertexUV(op1,0,0,0);
ObjEffect_SetVertexUV(op1,1,16,0);
ObjEffect_SetVertexUV(op1,2,0,16);
ObjEffect_SetVertexUV(op1,3,16,16);
ObjEffect_SetLayer(op1,2);
Topattack4;
loop
	{
	alternative(level)
		case(0){EPX4=-1000;EPY4=0;}
		case(1){EPX4=-1000;EPY4=0;}
		case(2){EPX4=-1000;EPY4=0;}
		case(3){EPX4=-1000;EPY4=0;}
		others{EPX4=20;EPY4=0;}
	Obj_SetPosition(op1,GetPlayerX+OPX4+(EPX4-OPX4)/5,GetPlayerY+OPY4+(EPY4-OPY4)/5);
	OPX4=Obj_GetX(op1)-GetPlayerX;
	OPY4=Obj_GetY(op1)-GetPlayerY;
	yield;
	}
}
