Quellcode / Source code (Reloaded) Mystery Cache

Program cachefinder;

//* SUCHEN! Nicht graben! *//
//* SEARCH! Don't dig!    *//

Const north : minutes = 28,279;
      east  : minutes = 00,862;

Var   new_north        : number;
      new_east         : number;
      drilling_depth   : number; //* Bohrtiefe          *//
      construction_year: number; //* Baujahr der Anlage *//
      temperature      : number; //* Temperatur         *//
      number_of_columns: number; //* Anzahl der Säulen  *//
      a, b             : number;

begin

  goto (E11° + east, N49° + north);

  find (source_of_information at source);

  if found then
  begin
    identify (number_of_columns);

    find (tablet_attached_to_sourcebuilding)

    if found 
    then
      begin
        identify (drilling_depth);
        identify (construction_year);
        identify (temperature);

        new_north :=   north * 1000
                     - sum_of_digits(temperature) * 10
                     - number_of_columns
                     + 4;

        a :=   first_digit_of(construction_year) * 10  //* Erste Ziffer  *//
             + second_digit_of(construction_year)      //* Zweite Ziffer *//
             + construction_year - 1910;

        b :=   first_digit_of(drilling_depth)          //* Erste Ziffer  *//
             * second_digit_of(drilling_depth)         //* Zweite Ziffer *//
             * third_digit_of(drilling_depth);         //* Dritte Ziffer *//

        new_east  := east * 1000
                     - a
                     - b
                     - 3 * number_of_columns
                     - 4;

        goto (E11° + new_east/1000, N49° + new_north/1000);

        if look4cache = successful
          then logvisit(today)
          else recalculate
      end
    else
      continue_searching
  end
  else
    continue_searching;

end.

//* Infos zur Location gibt es bei uggc://jjj.natrjnaqgr-trbybtvr.trby.hav-reynatra.qr/rfcna01.ugz *//