Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

Bohemian-Rhapsody

Non-functional code to only follow the lyrics of the song Bohemian Rhapsody.

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

Bohemian Rhapsody

Non-functional code to follow the lyrics of the song Bohemian Rhapsody.

NOTE: This project compiles, and all code accesses real (fake) types defined in the unit. It just quite literally does nothing, other than create a Delphi code version of the song's lyrics.

NOTE: Please contribute. This is only the intro. I'd love to see people submit their ideas for the rest of the song.

pascal
procedure TForm1.Play;
begin
  try
    Assert(Life.Real);
    Assert(Life.Fantasy);
  except
    on ex: ELandSlideException do begin
      {$REGION Reality}
      while True do begin
        Character.Eyes.Open(TDirection.edSky).See;
pascal
Self.Wealth := nil;
Self.Sex := TSex.sxMale;
pascal
Self.Sympathy.Clear;
pascal
if ((Self.ComeDifficulty = TDifficulty.diEasy) and
    (Self.GoDifficulty = TDifficulty.diEasy) and
    (Self.High < 0.1) and
    (Self.Low < 0.1)) then
begin
  case Wind.Direction of
    wdNorth: ;
    wdSouth: ;
    wdEast: ;
    wdWest: ;
    else begin
      Self.Matter:= False;
      Piano.Play;
      Break;
    end;
  end;
end;
pascal
end;
{$ENDREGION}
pascal
end;
pascal
end;
pascal
end;

Stylized image from carbon.now.sh Stylized image of the code