case Kind of
    0: Areas := JohtoLand;
    1: Areas := KantoLand;
    2: begin
         case C of
           True: Areas := JohtoWaterC;
           else  Areas := JohtoWaterGS;
           end;
       end;
    3: begin
         case C of
           True: Areas := KantoWaterC;
           else  Areas := KantoWaterGS;
           end;
       end;
    4: begin
         case C of
           True: Areas := SwarmsC;
           else  Areas := SwarmsGS;
           end;
       end;
    5: begin
         case C of
           False: Areas := SpecialGS;
           end;
       end;
    end;
  case Kind of
    0,1,4: Land := True;
    else   Land := False;
    end;

  if (Kind = 5) and (Game = 'Crystal') then
    begin // Hide everything
      CrystalWarning.Show;
      AreaDrop.Enabled := False;
      WildPkmn.Hide;
    end
  else
    begin
      if Land then
        begin
          Morning.TabVisible := True;
          Day.TabVisible := True;
          Night.TabVisible := True;
          WildPkmn.ActivePage := Morning;
          Water.TabVisible := False;
        end
      else
        begin
          Water.TabVisible := True;
          WildPkmn.ActivePage := Water;
          Morning.TabVisible := False;
          Day.TabVisible := False;
          Night.TabVisible := False;
        end;

      for I := 0 to (Length(Areas) - 1) do
        begin
          AreaDrop.AddItem(Areas[I], AreaDrop);
        end;
      AreaDrop.Enabled := True;
    end;