S S S

 Rayfield = (:())()


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


 PlaceId = .PlaceId
 scannedServers, joinedHistory = {}, {}
 lastServer, AutoScanRunning = , 
 delayPerScan, serverLimit = , 
 lastError = 


 totalScanned, totalScanTime, bestPingEver, serversJoined = , , .huge, 


 Window = Rayfield:({
   Name = ,
   LoadingTitle = ,
   ConfigurationSaving = {
      Enabled = ,
      FolderName = ,
      FileName = 
   }
})

 MainTab = Window:(, )
 SettingsTab = Window:(, )


 analyticsSection = MainTab:({
   Title = ,
   Content = 
})


 statusParagraph = MainTab:({
   Title = ,
   Content = 
})


  (scanCount, scanTime, bestPing)
   totalScanned += scanCount
   totalScanTime += scanTime
    bestPing < bestPingEver  bestPingEver = bestPing 
   analyticsSection:({
       Title = ,
      Content = .(
         ,
         totalScanned,
         totalScanTime / .(, serversJoined + ),
         bestPingEver == .huge    bestPingEver,
         serversJoined
      )
   })



  (cursor)
    url = ():(PlaceId)
    cursor  url ..=  .. cursor 
    success, response = (()
       :(url)
   )
     success   response 
      lastError =  .. (response)
       {data={}, nextPageCursor=}
   
    successDecode, data = (()
       HttpService:(response)
   )
     successDecode 
      lastError = 
   
    (successDecode  data)  {data={}, nextPageCursor=}



  ()
    cursor, bestServer, bestPing, scanned = , , .huge, 
    start = .()
   statusParagraph:({Title = , Content = })

    success, err = (()
      
          page = (cursor)
          _, server  (page.data  {}) 
             (server) ==   server.id  server.playing  server.maxPlayers 
                server.playing < server.maxPlayers   scannedServers[server.id]   .(joinedHistory, server.id) 
                  scannedServers[server.id] = 
                  scanned += 
                   ping = .(server.ping  )
                   ping < bestPing 
                     bestServer = server
                     bestPing = ping
                  
               
            
            .(delayPerScan)
         
         cursor = page.nextPageCursor
        cursor  scanned >= serverLimit
   )

     success 
      lastError =  .. (err)
   

    duration = .() - start
   statusParagraph:({Title = , Content = })
   (scanned, duration, bestPing)
    bestServer



  (server)
     server   server.id  server.id == lastServer   
   lastServer = server.id
   .(joinedHistory, server.id)
   serversJoined += 
   (, , .(server.ping  ))
   statusParagraph:({Title = , Content =  .. (server.id)})
   TeleportService:(PlaceId, server.id, LocalPlayer)



MainTab:({
   Name = ,
   CurrentValue = ,
   Callback = (Value)
      AutoScanRunning = Value
       Value 
         .(()
             AutoScanRunning 
                best = ()
                best 
                  (best)
               
               .()
            
         )
      
   ,
})


MainTab:({
   Name = ,
   Callback = ()
       best = ()
       best 
         (best)
      
         Rayfield:({ Title = , Content =  })
      
   
})

MainTab:({
   Title = ,
   Content = 
})

MainTab:({
   Name = ,
   Callback = ()
      (lastError)
      Rayfield:({
         Title = ,
         Content = 
      })
   
})


SettingsTab:({
   Name = ,
   Range = {, },
   Increment = ,
   CurrentValue = serverLimit,
   Callback = (Value)
      serverLimit = Value
   
})


SettingsTab:({
   Name = ,
   Range = {, },
   Increment = ,
   CurrentValue = delayPerScan,
   Callback = (Value)
      delayPerScan = Value
   
})

SettingsTab:({
   Title = ,
   Content = 
})