Manipulate[
Graphics[{
Table[{RGBColor[1,0,0,Abs[sl[[2]]]],Line[{{0,0},a[[i]]}]},{i,Length[a]}],
Text[
Style["★",Yellow,7Abs[sl[[1]]]], 
{sl[[2]],sl[[1]]}
],
Text[
Style["★",Blue,6Abs[sl[[1]]]], 
{sl[[1]],sl[[2]]}
],
Text[
Style["★",Green,5Abs[sl[[1]]]], 
{sl[[2]],sl[[2]]}
],
Text[
Style["★",Red,4Abs[sl[[1]]]], 
{sl[[1]],sl[[1]]}
],
Text[
Style["★",Purple,3Abs[sl[[1]]]],
{sl[[1]]-2.5,sl[[1]]-3}
],
If[cb,
{Text[
Style["НВWM",RGBColor[sl[[1]],sl[[2]],1],Abs[sl[[2]]]+8], 
{-2,sl[[2]]}
],
Table[{Dashed,Line[{{0,a[[i,2]]},a[[i]]}]},{i,Length[a]}],
Table[Text[a[[i,2]],{-1,a[[i,2]]}],{i,Length[a]}],
Table[{Dashed,Line[{a[[i]],{a[[i,1]],0}}]},{i,Length[a]}],
Table[Text[a[[i,1]],{a[[i,1]], -1}],{i,Length[a]}]}
]
},
Axes-> cb,
Ticks->None,
ImageSize->250,
PlotRange->{{-7,7},{-7,7}},
Background->RGBColor[1,sl[[1]],sl[[1]],sl[[2]]]
],
{{a,{{1,1}}}, Locator, LocatorAutoCreate->True,
Appearance->Style["♡",5Abs[sl[[2]]], Bold, Red]},
{{sl, {0,-7},"Shooting stars"},{-7, -7}, {7,7}},
{{cb,True,"Show the coordinates"},{True,False}}
]