BeginPackage["Metryka`"]
Odleglosc::usage = "Liczy ogległość na 3 różne sposoby"
Odleglosc[p1_, p2_, opcja_] := Which[
  opcja == "eu", Sqrt[(p1[[1]] - p2[[1]])^2 + (p1[[2]] - p2[[2]])^2],
  opcja == "ko",
  Sqrt[p1[[1]]^2  + p1[[2]]^2] +
   Sqrt[p2[[1]]^2  + p2[[2]]^2],
  opcja == "rz",
  Abs[p1[[2]]] + Abs[p2[[2]]] + Abs[p1[[1]] - p2[[1]]]
  ]
Rysuj::usage = "Rysuje Droge"
Rysuj[p1_, p2_, opcja_] := Which[
  opcja == "eu",
  ListPlot[{p1, p2}, Joined -> True],
  opcja == "ko",
  ListPlot[{p1, {0, 0}, p2}, Joined -> True],
  opcja == "rz",
  ListPlot[{p1, {p1[[1]], 0}, {p2[[1]], 0}, p2}, Joined -> True]
  ]
EndPackage