Server Teleport

 HttpService = :()
 TeleportService = :()
 Players = :()
 Player = Players.LocalPlayer
 StarterGui = :()


  (req)
       .request 
         .(req)
      
         (req)
       .request 
         .(req)
      
         (req)
    
        ()
    



  (placeId, cursor, minPlayers)
     url = ():(placeId)
     cursor 
        url = url ..  .. cursor
    
     ok, res = (()
         ({
            Url = url,
            Method = ,
            Headers = {[] = }
        })
    )
      ok   res    
     res.StatusCode ~=     
     body = res.Body  res.body
     data = HttpService:(body)

    
     filtered = {}
     data  data.data 
         _, server  (data.data) 
             server.playing  server.playing >= minPlayers 
                .(filtered, server)
            
        
        data.data = filtered
    
     data



 screenGui = .()
screenGui.Name = 
screenGui.ResetOnSpawn = 
screenGui.Parent = Player:()

 frame = .()
frame.Size = .(, , , )
frame.Position = .(, -, , )
frame.AnchorPoint = .(, )
frame.BackgroundColor3 = .(,,)
frame.Parent = screenGui
.(, frame).CornerRadius = .(,)

 title = .(, frame)
title.Size = .(, -, , )
title.Position = .(,,,)
title.BackgroundTransparency = 
title.Text = 
title.TextColor3 = .(,,)
title.TextScaled = 
title.Font = .Font.SourceSansBold

 countryBox = .(, frame)
countryBox.PlaceholderText = 
countryBox.Size = .(, -, , )
countryBox.Position = .(,,,)
countryBox.BackgroundColor3 = .(,,)
countryBox.TextColor3 = .(,,)
countryBox.ClearTextOnFocus = 
countryBox.Font = .Font.SourceSans
countryBox.TextSize = 
.(, countryBox).CornerRadius = .(,)

 minPlayerBox = .(, frame)
minPlayerBox.PlaceholderText = 
minPlayerBox.Size = .(, -, , )
minPlayerBox.Position = .(,,,)
minPlayerBox.BackgroundColor3 = .(,,)
minPlayerBox.TextColor3 = .(,,)
minPlayerBox.ClearTextOnFocus = 
minPlayerBox.Font = .Font.SourceSans
minPlayerBox.TextSize = 
minPlayerBox.Text =  
.(, minPlayerBox).CornerRadius = .(,)

 teleportBtn = .(, frame)
teleportBtn.Text = 
teleportBtn.Size = .(, -, , )
teleportBtn.Position = .(,,,)
teleportBtn.BackgroundColor3 = .(,,)
teleportBtn.TextColor3 = .(,,)
teleportBtn.Font = .Font.SourceSansBold
teleportBtn.TextSize = 
.(, teleportBtn).CornerRadius = .(,)

 stopBtn = .(, frame)
stopBtn.Text = 
stopBtn.Size = .(, -, , )
stopBtn.Position = .(, , , )
stopBtn.BackgroundColor3 = .(,,)
stopBtn.TextColor3 = .(,,)
stopBtn.Font = .Font.SourceSansBold
stopBtn.TextSize = 
.(, stopBtn).CornerRadius = .(,)


 minBtn = .(, frame)
minBtn.Text = 
minBtn.Size = .(,,,)
minBtn.Position = .(, -, , )
minBtn.BackgroundColor3 = .(,,)
minBtn.TextColor3 = .(,,)
minBtn.Font = .Font.SourceSansBold
minBtn.TextSize = 
.(, minBtn).CornerRadius = .(,)

 miniIcon = .(, screenGui)
miniIcon.Size = .(,,,)
miniIcon.Position = .(,,,)
miniIcon.BackgroundColor3 = .(,,)
miniIcon.Visible = 
.(, miniIcon).CornerRadius = .(,)

 miniLabel = .(, miniIcon)
miniLabel.Size = .(,,,)
miniLabel.BackgroundTransparency = 
miniLabel.Text = 
miniLabel.TextColor3 = .(,,)
miniLabel.Font = .Font.SourceSansBold
miniLabel.TextScaled = 


 UserInputService = :()
  (obj)
     dragging, dragStart, startPos
    obj.InputBegan:((input)
         input.UserInputType == .UserInputType.MouseButton1 
            dragging = 
            dragStart = input.Position
            startPos = obj.Position
            input.Changed:(()
                 input.UserInputState == .UserInputState.End 
                    dragging = 
                
            )
        
    )
    obj.InputChanged:((input)
         input.UserInputType == .UserInputType.MouseMovement  dragging 
             delta = input.Position - dragStart
            obj.Position = .(startPos.X.Scale, startPos.X.Offset + delta.X,
                                     startPos.Y.Scale, startPos.Y.Offset + delta.Y)
        
    )

(frame)
(miniIcon)

minBtn.MouseButton1Click:(()
    frame.Visible = 
    miniIcon.Visible = 
)
miniIcon.MouseButton1Click:(()
    frame.Visible = 
    miniIcon.Visible = 
)


 searching = 
teleportBtn.MouseButton1Click:(()
     searching   
     targetCountry = countryBox.Text
     minPlayers = (minPlayerBox.Text)  
     targetCountry ==  
        StarterGui:(,{Title=,Text=,Duration=})
        
    
    searching = 
    StarterGui:(,{Title=,Text=..minPlayers....targetCountry,Duration=})

    (()
         placeId = .PlaceId
         data = (placeId,,minPlayers)
          data   data.data  #data.data ==  
            StarterGui:(,{Title=,Text=..minPlayers..,Duration=})
            searching = 
            
        
         sid = data.data[.(,#data.data)].id
         ok, err = (()
            TeleportService:(placeId, sid, Player)
        )
          ok 
            StarterGui:(,{Title=,Text=..(err),Duration=})
        
        searching = 
    )
)

stopBtn.MouseButton1Click:(()
    searching = 
    StarterGui:(,{Title=,Text=,Duration=})
)

StarterGui:(,{Title=,Text=,Duration=})