Archives
Trending
Support
Login
clear text
XML
Django
JavaScript
MATLAB
C
C++
C#
Python
SQL
Shell
Bash
Markdown
YAML
JSON
HTML
CSS
PHP
Java
Ruby
Go
Rust
Swift
Kotlin
Arduino
TypeScript
Perl
Autohotkey
Lua
SQF
R
Scala
Haskell
Groovy
Dart
Clojure
VB.NET
Objective-C
PowerShell
Bash
CoffeeScript
Verilog
local BusTable = {} local BusPlayers = game.ReplicatedStorage.PlayersInBus local Dehoune = false local Teleport = script.Parent local Seats = Teleport.Bus.Seats local BusGui = script.Parent.BusPart.BusGui local BillboardGui = script.Parent.billboardPart.billboardGui local Teleporting = false local StartTime = 41 local TeleportID = script.TeleportID.Value local MinBusPlayers = 1 local MaxBusPlayers = 12 local TeleportService = game:GetService("TeleportService") local LeaveBus = game.ReplicatedStorage.LeaveBus local TransitionEvent = game.ReplicatedStorage.TransitionEvent local EnterBus = game.ReplicatedStorage.EnterBus local PlayersNumber = game.ReplicatedStorage.PlayersNumber EnterBus.OnServerEvent:Connect(function(Player) print('Humanoid') local humanoid = Player.Character.Humanoid if not table.find(BusTable, Player) and Teleporting == false then print('Not found') for _, seat in pairs(Seats:GetChildren()) do if seat.Occupant == nil then game.ServerStorage.ExitGui:Clone().Parent = Player.PlayerGui seat:Sit(humanoid) humanoid.JumpPower = 0 humanoid.WalkSpeed = 0 table.insert(BusTable, Player) PlayersNumber.Value -= 1 break end end end end) LeaveBus.OnServerEvent:Connect(function(Player) local ReturnValue = table.find(BusTable, Player) table.remove(BusTable, ReturnValue) BusPlayers.Value = #BusTable Player:LoadCharacter() PlayersNumber.Value += 1 end) PlayersNumber:GetPropertyChangedSignal("Value"):Connect(function() BusGui.Frame.Players.Text = "Spaces Left: "..PlayersNumber.Value BillboardGui.Frame.Players.Text = "Spaces Left: "..PlayersNumber.Value end) game.Players.PlayerRemoving:Connect(function(Player) if table.find(BusTable, Player) ~= nil then local ReturnValue = table.find(BusTable, Player) table.remove(BusTable, ReturnValue) BusPlayers.Value = #BusTable PlayersNumber.Value = #BusTable end end) for i = StartTime, 0, -1 do BusGui.Frame.Time.Text = "Time: "..i BusGui.Frame.Players.Text = "Spaces Left: "..PlayersNumber.Value BillboardGui.Frame.Time.Text = "Time: "..i BillboardGui.Frame.Players.Text = "Spaces Left: "..PlayersNumber.Value wait(1) local Players = #BusTable --see here if i == 1 and Players >= MinBusPlayers then --Teleport the Players! game.ReplicatedStorage.Status.Value = "TELEPORTING" BusGui.Frame.Status.Text = "TELEPORTING" BusGui.Frame.Status.TextColor3 = Color3.fromRGB(255, 0, 0) Teleporting = true TransitionEvent:FireAllClients() wait() local Code = TeleportService:ReserveServer(TeleportID) TeleportService:TeleportToPrivateServer(TeleportID, Code, BusTable) wait(6) Teleporting = false BusGui.Frame.Status.Text = "READY" BusGui.Frame.Status.TextColor3 = Color3.fromRGB(85, 255, 0) elseif i == 1 and Players < MinBusPlayers then elseif Players == MaxBusPlayers then --Also teleport the players! end end
Mark as private (unlisted)
for 30 minutes
for 6 hours
for 1 day
for 1 week
for 1 month
for 1 year
everlasting (like CCCP)