screen = workspace.screen.screenpart
event = screen.event
sg = screen.sg
sf = sg.sf
tb = sf.tb
b1 = screen.b1
cd = b1.cd

cd.MouseClick:Connect(function()
  event:FireServer(tb.Text)
end)
while wait() do
  event:FireServer(tb.Text)
end