ADVERTISEMENTREMOVE ADS
Stupiddest TAS maker | Is back
46,815 views
Script Preview
Description
This is a TAS maker made poorly and no intent to actually be useful.
----------------------------------------------------------------------------------------------------------------------------------
HOW 2 USE:
2: Toggle recording. Freezes on default
3: Plays your recorded TAS
E: Unfreezes you and saves your player data
V: Steps 1 physics frame into the FUTURE!
F: Steps backwards 1 frame in your TAS (Doesn't create new frames)
G: Steps forwards 1 frame in your TAS (Same as last one)
R: Steps backwards until you stop
T: Steps forwards until you stop
C: Steps 5 physics? frames into the FUTURE! (For ladder flicks or somethin.)
K: Gives a prompt for certain things
Input: speed <-- (For the prompt): It gives you a another prompt and you can set your speed their, 1 is normal
Input: cam: toggles a variable that when you load your player data from stepping forward/backwards or while playing your TAS it sets your camera stuff. Recommand setting this off for making TASes
----------------------------------------------------------------------------------------------------------------------------------
FEATURES:
Playback speed is normal on different FPS-es
Uhhh... I think that's it?
Can never turn off the script. You either live with it or leave and join back the game.
THIS IS NOT MOBILE FRIENDLY, you can clearly see by the only keyboard inputs. :(
Features:
- tas
- tas maker
- tasmaker
ADVERTISEMENTREMOVE ADS
387 Lines • 7.95 KiB
-- Scripted by @IlIl_ILovAltAccsHAHA / Unofficial Jay
-- Configs
local playbackSpeed = 1
local useCam = false
local filePath = "TAS_SavedActions.json" -- Exec- exclusive only. Sorry.
-- Services
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local RunService = game:GetService("RunService")
local UserGameSettings = UserSettings():GetService("UserGameSettings")
local HttpService = game:GetService("HttpService")
-- Variables
local player = Players.LocalPlayer
local plrGui = player:WaitForChild("PlayerGui")
local gui = Instance.new("ScreenGui", plrGui)
gui.Name = "ASDASDASD"
local cam = workspace.CurrentCamera
local char = player.Character or player.CharacterAdded:Wait()
local root = char:WaitForChild("HumanoidRootPart")
local humanoid = char:WaitForChild("Humanoid")
local SavedActions = {}
local recordingTAS = false
local recording = false
local playing = false
local playbackConnection -- store Heartbeat connection for disconnect
local playbackStartTime
local playbackBaseTime
local recordStartTime = 0
local RecordIndex = 0
local PlaybackIndex = 0
local fbState = {
f = false,
b = false
}
-- The main lane? THE MAIN LANE IS REEEEAAAAL!
-- Init player
local function InitPlr()
char = player.Character or player.CharacterAdded:Wait()
root = char:WaitForChild("HumanoidRootPart")
humanoid = char:WaitForChild("Humanoid")
end
player.CharacterAdded:Connect(InitPlr)
-- The prompter prompt
local function Prompt(state)
-- Create prompt
local ui = Instance.new("TextBox", gui)
ui.Size = UDim2.new(0.5, 0, 0.5, 0)
ui.Position = UDim2.new(0.25, 0, 0.25, 0)
ui.TextScaled = true
ui:CaptureFocus()
ui.FocusLost:Connect(function(ep)
local text = ui.Text
if ep then
if not state then
if text == "speed" then
Prompt("speed")
elseif text == "cam" then
useCam = not useCam
elseif text == "save" then
pcall(function()
local json = HttpService:JSONEncode(SavedActions)
writefile("TAS_SavedActions.json", json)
end)
elseif text == "load" then
pcall(function()
local data = readfile("TAS_SavedActions.json")
SavedActions = HttpService:JSONDecode(data)
end)
end
elseif state == "speed" then
if tonumber(text) then
playbackSpeed = tonumber(text)
print("Playback speed changed to " .. playbackSpeed)
end
end
end
ui:Destroy()
end)
end
-- Save/load playuh actions
local function SaveActions()
local lastTime = 0
if #SavedActions > 0 then
lastTime = SavedActions[#SavedActions].t
end
table.insert(SavedActions, {
t = lastTime + RunService.Heartbeat:Wait(), -- approximate delta time
cf = root.CFrame,
vel = root.AssemblyLinearVelocity,
angvel = root.AssemblyAngularVelocity,
humsat = humanoid:GetState(),
jump = humanoid.Jump,
plat = humanoid.PlatformStand,
sit = humanoid.Sit,
camData = {
ccf = cam.CFrame, -- actual camera rotation + position
camType = cam.CameraType,
focus = cam.Focus, -- target CFrame the camera is looking at
offset = cam.CFrame.Position - cam.Focus.Position, -- approximate offset
subject = cam.CameraSubject,
}
})
end
local function LoadAction(i)
local action = SavedActions[i]
if action then
root.CFrame = action.cf
root.AssemblyLinearVelocity = action.vel
root.AssemblyAngularVelocity = action.angvel
humanoid:ChangeState(action.humsat)
humanoid.Jump = action.jump
humanoid.PlatformStand = action.plat
humanoid.Sit = action.sit
--UserGameSettings.RotationType = action.lock and Enum.RotationType.CameraRelative or Enum.RotationType.MovementRelative
if action.camData and useCam then
local cd = action.camData
cam.CFrame = cd.ccf
cam.CameraType = cd.camType
cam.Focus = cd.focus
end
end
end
-- Freeze/unfreeze player
local function Freeze()
root.Anchored = true
humanoid.AutoRotate = false
end
local function Unfreeze()
root.Anchored = false
humanoid.AutoRotate = true
end
-- Step forward/backward 1 frame
local function StepForward()
RecordIndex += 1
if RecordIndex > #SavedActions then
RecordIndex -= 1
return true
end
LoadAction(RecordIndex)
print(RecordIndex)
return false
end
local function StepBackward()
RecordIndex -= 1
if RecordIndex < 0 then
RecordIndex += 1
return true
end
LoadAction(RecordIndex)
print(RecordIndex)
return false
end
-- Trim actions
local function TrimActions(ind)
RecordIndex = ind
if ind < #SavedActions then
for i = #SavedActions, ind + 1, -1 do
table.remove(SavedActions, i)
end
end
-- Rebase timestamps so first frame starts at 0
if #SavedActions > 0 then
local baseTime = SavedActions[1].t
for i, action in ipairs(SavedActions) do
action.t = action.t - baseTime
end
recordStartTime = os.clock() -- reset so new saves start from 0
end
end
-- Step 1 frame
local function Step()
TrimActions(RecordIndex)
task.spawn(function()
Unfreeze()
task.wait()
Freeze()
RecordIndex += 1
SaveActions()
print(RecordIndex)
end)
end
-- Unusual step?
local function UsusalStep()
for _ = 1, 5 do
Step()
task.wait()
end
end
-- Play/stop playback
local function StopPlayback()
if playbackConnection then
playbackConnection:Disconnect()
playbackConnection = nil
end
playing = false
print("Playback stopped.")
end
local function StartPlayback()
if #SavedActions == 0 then
warn("No TAS to play!")
return
end
if playing then return end
print("Playback started.")
playing = true
PlaybackIndex = 1
playbackStartTime = os.clock()
playbackConnection = RunService.Heartbeat:Connect(function()
if not playing then return end
local elapsed = (os.clock() - playbackStartTime) * playbackSpeed
while PlaybackIndex <= #SavedActions and SavedActions[PlaybackIndex].t <= elapsed do
LoadAction(PlaybackIndex)
PlaybackIndex += 1
end
if PlaybackIndex > #SavedActions then
print("Playback finished.")
StopPlayback()
end
end)
end
-- Input handler
UserInputService.InputBegan:Connect(function(inp, gp)
if gp then return end
inp = inp.KeyCode.Name:lower()
if inp == "two" then
recordingTAS = not recordingTAS
if recordingTAS then
print("Recording.")
Freeze()
if SavedActions then
RecordIndex = #SavedActions
LoadAction(#SavedActions)
end
else
recording = false
Unfreeze()
end
end
if inp == "three" then
if playing then
StopPlayback()
else
recording = false
Unfreeze()
StartPlayback()
end
end
if inp == "k" then
Prompt()
end
if inp == "backspace" then
RecordIndex = 0
PlaybackIndex = 0
SavedActions = {}
end
if not recordingTAS then return end
if inp == "e" then
recording = not recording
if recording then
TrimActions(RecordIndex)
-- Reset recording clock
recordStartTime = os.clock()
for i, action in ipairs(SavedActions) do
action.t = action.t - SavedActions[1].t
end
Unfreeze()
else
Freeze()
end
end
if inp == "f" then
StepBackward()
end
if inp == "g" then
StepForward()
end
if inp == "r" then
fbState["b"] = true
end
if inp == "t" then
fbState["f"] = true
end
if inp == "v" then
--TrimActions(RecordIndex)
Step()
end
if inp == "c" then
UsusalStep()
end
end)
UserInputService.InputEnded:Connect(function(inp, gp)
if gp then return end
inp = inp.KeyCode.Name:lower()
if inp == "r" then
fbState["b"] = false
end
if inp == "t" then
fbState["f"] = false
end
end)
-- Loop
RunService.Heartbeat:Connect(function(dt)
if recordingTAS then
if recording then
SaveActions()
RecordIndex += 1
print(RecordIndex)
end
if fbState["f"] then
StepForward()
elseif fbState["b"] then
StepBackward()
end
end
--print("Index:", Index)
end)
ADVERTISEMENTREMOVE ADS
ADVERTISEMENTREMOVE ADS
Comments