Homing Problem 4

  	task Bullet(dir,type){
    		let obj=Obj_Create(OBJ_SPELL);
		let v = 64;
  		ObjEffect_SetRenderState(obj,ALPHA);
		Obj_SetAlpha(obj,100);
    		ObjEffect_SetTexture(obj,spell);
    		ObjEffect_CreateVertex(obj,4);
    		ObjEffect_SetPrimitiveType(obj,PRIMITIVE_TRIANGLEFAN);

		if(type==1){
      			ObjEffect_SetVertexUV(obj,0,0,0);
      			ObjEffect_SetVertexUV(obj,1,127,0);
      			ObjEffect_SetVertexUV(obj,2,127,127);
      			ObjEffect_SetVertexUV(obj,3,0,127);
		}else if(type==2){
      			ObjEffect_SetVertexUV(obj,0,128,0);
      			ObjEffect_SetVertexUV(obj,1,255,0);
      			ObjEffect_SetVertexUV(obj,2,255,127);
      			ObjEffect_SetVertexUV(obj,3,128,127);
		}else if(type==3){
      			ObjEffect_SetVertexUV(obj,0,0,128);
      			ObjEffect_SetVertexUV(obj,1,127,128);
      			ObjEffect_SetVertexUV(obj,2,127,255);
      			ObjEffect_SetVertexUV(obj,3,0,255);
		}else{
      			ObjEffect_SetVertexUV(obj,0,128,128);
      			ObjEffect_SetVertexUV(obj,1,255,128);
      			ObjEffect_SetVertexUV(obj,2,255,255);
      			ObjEffect_SetVertexUV(obj,3,128,255);
		}

      		ObjEffect_SetVertexXY(obj,0,-v,-v);
      		ObjEffect_SetVertexXY(obj,1,v,-v);
      		ObjEffect_SetVertexXY(obj,2,v,v);
      		ObjEffect_SetVertexXY(obj,3,-v,v);
		Obj_SetPosition(obj,GetPlayerX,GetPlayerY);
		Obj_SetSpeed(obj,3);
		Obj_SetAngle(obj,dir);
		loop(20){ yield; }
		loop(30){
			Obj_SetSpeed(obj, Obj_GetSpeed(obj) - 0.1);
			yield;
		}
		loop(10){
			yield;
		}
		Obj_SetAngle(obj,atan2(GetEnemyInfo(EnumEnemyBegin,ENEMY_Y)-Obj_GetY(obj),GetEnemyInfo(EnumEnemyBegin,ENEMY_X)-Obj_GetX(obj) ) );
		loop(20){
			Obj_SetSpeed(obj,Obj_GetSpeed(obj) + 0.5);
			yield;
		}
		let v2 = 0;
		while(GetDistance(Obj_GetX(obj),Obj_GetY(obj),GetEnemyInfo(EnumEnemyBegin,ENEMY_X),GetEnemyInfo(EnumEnemyBegin,ENEMY_Y)) < 8){
			Obj_SetAngle(obj,atan2(GetEnemyInfo(EnumEnemyBegin,ENEMY_Y)-Obj_GetY(obj),GetEnemyInfo(EnumEnemyBegin,ENEMY_X)-Obj_GetX(obj)));
			ObjSpell_SetIntersecrionCircle(obj,Obj_GetX(obj),Obj_GetY(obj),128,20,true);
			yield;
		}
		while(v < 400){
			ObjEffect_SetVertexXY(obj,0,-v,-v);
			ObjEffect_SetVertexXY(obj,1,v,-v);
			ObjEffect_SetVertexXY(obj,2,v,v);
			ObjEffect_SetVertexXY(obj,3,-v,v);
			ObjSpell_SetIntersecrionCircle(obj,Obj_GetX(obj),Obj_GetY(obj),128,20,true);
			v+=10;
			yield;
		}
		descent(k in 0..100){
			ascent(i in 0..4){
				ObjEffect_SetVertexColor(obj,i,k,255,255,255);
			}
			yield;
		}
		loop(60){ yield; }
		Obj_Delete(obj);
  	}