Re-add Purple Smoke cloud type (sorear).

This is visually identical to translocational energy, but will have uses
in portal vaults (specifically, wizlabs).

1 files changed, 6 insertions, 0 deletions

diff --git a/crawl-ref/source/beam.cc b/crawl-ref/source/beam.cc
index 4309d8f4b9..5ca97ddc8c 100644
--- a/crawl-ref/source/beam.cc
+++ b/crawl-ref/source/beam.cc
@@ -2996,6 +2996,9 @@ static int _potion_beam_flavour_to_colour(beam_type flavour)
     case BEAM_POTION_BLUE_SMOKE:
         return (LIGHTBLUE);
 
+    case BEAM_POTION_PURPLE_SMOKE:
+        return (MAGENTA);
+
     case BEAM_POTION_RANDOM:
     default:
         // Leave it the colour of the potion, the clouds will colour
@@ -3333,6 +3336,7 @@ void bolt::affect_place_explosion_clouds()
         case BEAM_POTION_BLACK_SMOKE:
         case BEAM_POTION_GREY_SMOKE:
         case BEAM_POTION_BLUE_SMOKE:
+        case BEAM_POTION_PURPLE_SMOKE:
         case BEAM_POTION_RAIN:
         case BEAM_POTION_MUTAGENIC:
             cl_type = beam2cloud(flavour);
@@ -3348,6 +3352,7 @@ void bolt::affect_place_explosion_clouds()
             case 4:  cl_type = CLOUD_BLACK_SMOKE;    break;
             case 5:  cl_type = CLOUD_GREY_SMOKE;     break;
             case 6:  cl_type = CLOUD_BLUE_SMOKE;     break;
+            case 7:  cl_type = CLOUD_PURPLE_SMOKE;   break;
             default: cl_type = CLOUD_STEAM;          break;
             }
             break;
@@ -6260,6 +6265,7 @@ std::string beam_type_name(beam_type type)
     case BEAM_POTION_BLACK_SMOKE:   return ("black smoke");
     case BEAM_POTION_GREY_SMOKE:    return ("grey smoke");
     case BEAM_POTION_BLUE_SMOKE:    return ("blue smoke");
+    case BEAM_POTION_PURPLE_SMOKE:  return ("purple smoke");
     case BEAM_POTION_RAIN:          return ("rain");
     case BEAM_POTION_RANDOM:        return ("random potion");
     case BEAM_POTION_MUTAGENIC:     return ("mutagenic fog");