Guest User

Untitled

a guest
Jul 29th, 2010
110
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   case Kind of
  2.     0: Areas := JohtoLand;
  3.     1: Areas := KantoLand;
  4.     2: begin
  5.          case C of
  6.            True: Areas := JohtoWaterC;
  7.            else  Areas := JohtoWaterGS;
  8.            end;
  9.        end;
  10.     3: begin
  11.          case C of
  12.            True: Areas := KantoWaterC;
  13.            else  Areas := KantoWaterGS;
  14.            end;
  15.        end;
  16.     4: begin
  17.          case C of
  18.            True: Areas := SwarmsC;
  19.            else  Areas := SwarmsGS;
  20.            end;
  21.        end;
  22.     5: begin
  23.          case C of
  24.            False: Areas := SpecialGS;
  25.            end;
  26.        end;
  27.     end;
  28.   case Kind of
  29.     0,1,4: Land := True;
  30.     else   Land := False;
  31.     end;
  32.  
  33.   if (Kind = 5) and (Game = 'Crystal') then
  34.     begin // Hide everything
  35.       CrystalWarning.Show;
  36.       AreaDrop.Enabled := False;
  37.       WildPkmn.Hide;
  38.     end
  39.   else
  40.     begin
  41.       if Land then
  42.         begin
  43.           Morning.TabVisible := True;
  44.           Day.TabVisible := True;
  45.           Night.TabVisible := True;
  46.           WildPkmn.ActivePage := Morning;
  47.           Water.TabVisible := False;
  48.         end
  49.       else
  50.         begin
  51.           Water.TabVisible := True;
  52.           WildPkmn.ActivePage := Water;
  53.           Morning.TabVisible := False;
  54.           Day.TabVisible := False;
  55.           Night.TabVisible := False;
  56.         end;
  57.  
  58.       for I := 0 to (Length(Areas) - 1) do
  59.         begin
  60.           AreaDrop.AddItem(Areas[I], AreaDrop);
  61.         end;
  62.       AreaDrop.Enabled := True;
  63.     end;
RAW Paste Data