Homing Problem 2

	task Home(x,y,v,dir,g,d,p){
		let obj = Obj_Create(OBJ_SHOT);
		Obj_SetPosition(obj,x,y);
		Obj_SetSpeed(obj,v);
		Obj_SetAngle(obj,dir);
		Obj_SetAlpha(obj,100);
		ObjShot_SetGraphic(obj,g);
		ObjShot_SetDamage(obj,d);
		ObjShot_SetPenetration(obj,p);

		let enemy_target=-1;
    		let target_angle=dir;
    		let test_angle=0;
    		ascent(i in EnumEnemyBegin..EnumEnemyEnd) {
      			enemy_target=EnumEnemyGetID(i);
      			test_angle=atan2(GetEnemyInfo(enemy_target,ENEMY_Y)-y, GetEnemyInfo(enemy_target,ENEMY_X)-x);
        		i=EnumEnemyEnd;
    		}
    		while(enemy_target!=-1){
			let x = Obj_GetX(obj);
			let y = Obj_GetY(obj);
			let dir = atan2(Obj_GetY(obj),Obj_GetX(obj));
			let target_angle=atan2(GetEnemyInfo(enemy_target,ENEMY_Y)-y, GetEnemyInfo(enemy_target,ENEMY_X)-x);
			yield;
			if(dir>target_angle){ dir-=10; }
			if(dir<target_angle){ dir+=10; }
			Obj_SetAngle(obj,dir);
  		}
	}