Moving Object, Filtering Enabled help?

Asked by

7 years ago

So I'm trying to make a boat seat move and I'm not 100% clear on Filtering Enabled yet but if you can help and explain this to me a bit, I would really appreciate it.

I don't know if I did this right?

so Both the MoveEvent and StopEvent are in the VehicleSeat, as well as the localscript and script, are in the vehicleseat as well.

01--Client
02 
03local Players = game:GetService("Players")
04local UserInputService = game:GetService("UserInputService")
05local MoveEvent = script:WaitForChild("MoveEvent")
06local StopEvent = script:WaitForChild("StopEvent")
07 
08local KeysDown = {}
09 
10UserInputService.InputBegan:connect(function(Input)
11    local KeyCodeName = Input.KeyCode.Name
12 
13    if KeyCodeName == "W" then
14        MoveEvent:FireServer("Forwards")
15    elseif KeyCodeName == "S" then
16        MoveEvent:FireServer("Backwards")
17    elseif KeyCodeName == "A" then
18        MoveEvent:FireServer("Left")
19    elseif KeyCodeName == "D" then
20        MoveEvent:FireServer("Right")
21    end
22 
23    if KeyCodeName ~= "Unknown" then
24        KeysDown[KeyCodeName] = true
25    end
26end)
27 
28UserInputService.InputEnded:connect(function(Input)
29    local KeyCodeName = Input.KeyCode.Name  
30 
31    if KeyCodeName == "W" then
32        if KeysDown["S"] then
33            MoveEvent:FireServer("Backwards")
34        else
35            StopEvent:FireServer("Forwards")
36        end
37    elseif KeyCodeName == "S" then
38        if KeysDown["W"] then
39            MoveEvent:FireServer("Forwards")
40        else
41            StopEvent:FireServer("Backwards")
42        end
43    elseif KeyCodeName == "A" then
44        if KeysDown["D"] then
45            MoveEvent:FireServer("Right")
46        else
47            StopEvent:FireServer("Left")
48        end
49    elseif KeyCodeName == "D" then
50        if KeysDown["A"] then
51            MoveEvent:FireServer("Left")
52        else
53            StopEvent:FireServer("Right")
54        end
55    end
56 
57    if KeyCodeName ~= "Unknown" then
58        KeysDown[KeyCodeName] = nil
59    end
60end)
 View all 60 lines...

01--Server
02 
03local Boat = script.Parent
04local Players = game:GetService("Players")
05 
06local MoveEvent = script:WaitForChild("MoveEvent")
07local StopEvent = script:WaitForChild("StopEvent")
08 
09Boat.MaxSpeed = 18
10maxspeed = Boat.MaxSpeed
11Boat.BodyPosition.position = Boat.Position
12Boat.BodyGyro.cframe = Boat.CFrame
13speed = 0
14 
15Boat.ChildAdded:connect(function(Weld)
16    if Weld:IsA("Weld") then
17        local Torso = Weld.Part1   
18        if Torso then
19        end
20    end
21end)
22 
23Boat.ChildRemoved:connect(function(Child)
24end)
25 
26MoveEvent.OnServerEvent:connect(function(Player, Type)
27    if Type == "Forwards" then
28        Forwards = 1
29        if speed < maxspeed then speed = speed + 0.1 end
30        Boat.BodyVelocity.velocity = Boat.CFrame.lookVector*speed
31    elseif Type == "Backwards" then
32        Forwards = -1
33        if speed < 18 then speed = speed + 0.1 end
34        Boat.BodyVelocity.velocity = Boat.CFrame.lookVector*-speed
35    elseif Type == "Left" then
36        Turn = -1
37        Boat.BodyGyro.cframe = Boat.BodyGyro.cframe * CFrame.fromEulerAnglesXYZ(0,0.01,0)
38    elseif Type == "Right" then
39        Turn = 1
40        Boat.BodyGyro.cframe = Boat.BodyGyro.cframe * CFrame.fromEulerAnglesXYZ(0,-0.01,0)
41    end
42end)
43 
44StopEvent.OnServerEvent:connect(function(Player, Type)
45    if Type == "Forwards" or Type == "Backwards" then
46        Forwards = nil
47    elseif Type == "Left" or Type == "Right" then
48        Turn = nil
49    end
50end)
 View all 50 lines...

Moving Object, Filtering Enabled help?

Answer this question