Disperse clouds under player when evoking wind blasts

[Closes #612 PR. Removed the extra message for it, as it was placed in a weird
order and doesn't seem entirely necessary. - MarvinPA]

crawl-ref/source/evoke.cc

@@ -1336,7 +1336,7 @@ void wind_blast(actor* agent, int pow, coord_def target, bool card)
 
     // Now move clouds
     vector<coord_def> cloud_list;
-    for (distance_iterator di(agent->pos(), true, true, radius + 2); di; ++di)
+    for (distance_iterator di(agent->pos(), true, false, radius + 2); di; ++di)
     {
         if (cloud_at(*di)
             && cell_see_cell(agent->pos(), *di, LOS_SOLID)
@@ -1355,6 +1355,12 @@ void wind_blast(actor* agent, int pow, coord_def target, bool card)
         int dist = cloud_list[i].distance_from(agent->pos());
         int push = (dist > 5 ? 2 : dist > 2 ? 3 : 4);
 
+        if (dist == 0 && agent->is_player())
+        {
+            delete_cloud(agent->pos());
+            break;
+        }
+
         for (unsigned int j = 0;
              j < wind_beam.path_taken.size() - 1 && push;
              ++j)