Control weather

struct weather_data {
   int        pressure;        /* How is the pressure ( Mb ) */
   int        change;        /* How fast and what way does it change. */
   int        sky;        /* How is the sky. */
   int        sunlight;        /* And how much sun. */
};

struct weather_data weather_info;          /* The infomation about the weather. */

void weather_change(void)
{
  int diff;
  int change;

  if ((time_info.month >= 9) && (time_info.month <= 16))
    diff = (weather_info.pressure > 985 ? -2 : 2);
  else
    diff = (weather_info.pressure > 1015 ? -2 : 2);

  weather_info.change += (dice(1, 4) * diff + dice(2, 6) - dice(2, 6));

  weather_info.change = MIN(weather_info.change, 12);
  weather_info.change = MAX(weather_info.change, -12);

  weather_info.pressure += weather_info.change;

  weather_info.pressure = MIN(weather_info.pressure, 1040);
  weather_info.pressure = MAX(weather_info.pressure, 960);

  change = 0;

  switch (weather_info.sky) {
  case SKY_CLOUDLESS:
    if (weather_info.pressure < 990)
      change = 1;
    else if (weather_info.pressure < 1010)
      if (dice(1, 4) == 1)
        change = 1;
    break;
  case SKY_CLOUDY:
    if (weather_info.pressure < 970)
      change = 2;
    else if (weather_info.pressure < 990) {
      if (dice(1, 4) == 1)
        change = 2;
      else
        change = 0;
    } else if (weather_info.pressure > 1030)
      if (dice(1, 4) == 1)
        change = 3;

    break;
  case SKY_RAINING:
    if (weather_info.pressure < 970) {
      if (dice(1, 4) == 1)
        change = 4;
      else
        change = 0;
    } else if (weather_info.pressure > 1030)
      change = 5;
    else if (weather_info.pressure > 1010)
      if (dice(1, 4) == 1)
        change = 5;

    break;
  case SKY_LIGHTNING:
    if (weather_info.pressure > 1010)
      change = 6;
    else if (weather_info.pressure > 990)
      if (dice(1, 4) == 1)
        change = 6;

    break;
  default:
    change = 0;
    weather_info.sky = SKY_CLOUDLESS;
    break;
  }

  switch (change) {
  case 0:
    break;
  case 1:
    send_to_outdoor("The sky starts to get cloudy.\r\n");
    weather_info.sky = SKY_CLOUDY;
    break;
  case 2:
    send_to_outdoor("It starts to rain.\r\n");
    weather_info.sky = SKY_RAINING;
    break;
  case 3:
    send_to_outdoor("The clouds disappear.\r\n");
    weather_info.sky = SKY_CLOUDLESS;
    break;
  case 4:
    send_to_outdoor("Lightning starts to show in the sky.\r\n");
    weather_info.sky = SKY_LIGHTNING;
    break;
  case 5:
    send_to_outdoor("The rain stops.\r\n");
    weather_info.sky = SKY_CLOUDY;
    break;
  case 6:
    send_to_outdoor("The lightning stops.\r\n");
    weather_info.sky = SKY_RAINING;
    break;
  default:
    break;
  }
}

int call_magic(struct char_data *caster, struct char_data *cvict, struct obj_data *ovict, int spellnum, int level, int casttype, char *argument)

#define MANUAL_SPELL(spellname, argument)	spellname(level, caster, cvict, ovict, argument);

ASPELL(spell_control_weather) {
  char arg[MAX_INPUT_LENGTH] = {'\0'};

  if (IS_NPC(ch) || !ch->desc)
    return;

  one_argument(cast_arg2, arg); /* THIS WILL WORK */

  if (is_abbrev(arg, "worsen")) {

  } else if (is_abbrev(arg, "improve")) {

  } else {
    send_to_char(ch, "You need to cast this spell with an argument of either, "
            "'worsen' or 'improve' in order for it to be a success!\r\n");
    return;
  }
}

ASPELL(spell_control_weather)
{
   int change = -1; 
   char arg[MAX_INPUT_LENGTH] = {'\0'};

  if (IS_NPC(ch) || !ch->desc)
    return;
  
   /* Control Weather fails if you aren't outside */
   if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_INDOORS))
   {
        send_to_char(ch, "Try as you might, you cannot maintain your control of the weather while indoors.\r\n");
        act("A crackle of blue energy appears around $n for a brief moment before it fizzes out.", TRUE, ch, 0, 0, TO_ROOM);
        return;
    }

  one_argument(cast_arg2, arg); /* Thanks Zusuk! */

  if (is_abbrev(arg, "worse"))
  {
    change = 1; /* this will increase weather_info.sky by one, making it worse */
    weather_info.change -= dice(1, 6); /* weather_info.change being lower will slightly bias future natural weather shifts towards worse weather */

  } else if (is_abbrev(arg, "better"))
  {
    change = -1; /* this will decrease weather_info.sky by one, making it better */
    weather_info.change += dice(1, 6); /* weather_info.change being higher will slightly bias future natural weather shifts towards better weather */
  }
  else 
  {
    send_to_char(ch, "You need to cast this spell with an argument of either, "
            "'worse' or 'better' in order for it to be a success!\r\n");
    return;
  }
  
    send_to_char(ch, "You unleash a crackle of blue energy into the atmosphere!\r\n");
    act("$n unleashes a crackle of blue energy which dissolves into the air around $m!", TRUE, ch, 0, 0, TO_ROOM);

    /* Send to Outdoors each cast may be too spammy? */
    if (change == -1)
        send_to_outdoor("The weather seems to be improving.\r\n");
    else
        send_to_outdoor("The weather darkens.\r\n");
    
    /* applies the changes to weather */
    weather_info.sky += change;
    weather_info.sky = MIN(MAX(weather_info.sky, SKY_CLOUDLESS), SKY_LIGHTNING);

}

case SPELL_CALL_LIGHTNING:
  dam = dice(7, 8) + 7;
  break;