FSM 2.01

--[[

    *********************
    * FireySparklySmoke *
    *********************
         Version 2.01
      Made by Relative :D

    Commands:
      fireAll - unfireAll { Fires/unfires everything in the workspace. }
      smokeAll - unsmokeAll { Smoke/unsmokes everything in the workspace. }
      spAll - unspAll     { Sparkles/unsparkles everything in the workspace. }
      ffAll - unffAll       { Forcefields/unforcefields everything(every player) in the workspace. }

    Changes:
      * Version 2.00
        + Second major release
          ( built off of V1)

      * Version 2.01
        + Adds ffAll / unffAll
          { Forcefields/unforcefields everything(every player) in the workspace. }
        - Disable chat integration; broken.
]]--
local function getWorkspace()
 local tbl = {}
 local wspc = game["Workspace"]
 for i,v in pairs(wspc:GetChildren()) do
  tbl[i] = v
 end
 return tbl
end
local function getIt(tab)
  local tbl = {}
  for i,v in pairs(tab:GetChildren()) do
    tbl[i] = v
  end
  return tbl
end
local function fireAll()
  local wsp = getWorkspace()
  crashprotect(function()
    for i = 1, #wsp do
      local child = wsp[i]
      local fire = Instance.new("Fire", child)
      fire.Size = 400000000000
    end
  end)
end
local function unfireAll()
  local wsp = getWorkspace()
  crashprotect(function()
    for i = 1, #wsp do
      local child = wsp[i]
      local children = getIt(child)
      for i = 1, #children do
        local ch = children[i]
        if ch:IsA("Fire") then
          ch:remove()
        end
      end
    end
  end)
end

local function spAll()
  local wsp = getWorkspace()
  crashprotect(function()
    for i = 1, #wsp do
      local child = wsp[i]
      local sparkles = Instance.new("Sparkles", child)
    end
  end)
end
local function unspAll()
  local wsp = getWorkspace()
  crashprotect(function()
    for i = 1, #wsp do
      local child = wsp[i]
      local children = getIt(child)
      for i = 1, #children do
        local ch = children[i]
        if ch:IsA("Sparkles") then
          ch:remove()
        end
      end
    end
  end)
end

local function smokeAll()
  local wsp = getWorkspace()
  crashprotect(function()
    for i = 1, #wsp do
      local child = wsp[i]
      local smoke = Instance.new("Smoke", child)
      smoke.Size = 400000000000
      smoke.RiseVelocity = 400000000000
    end
  end)
end
local function unsmokeAll()
  local wsp = getWorkspace()
  crashprotect(function()
    for i = 1, #wsp do
      local child = wsp[i]
      local children = getIt(child)
      for i = 1, #children do
        local ch = children[i]
        if ch:IsA("Smoke") then
          ch:remove()
        end
      end
    end
  end)
end

local function ffAll()
  local wsp = getWorkspace()
  crashprotect(function()
    for i = 1, #wsp do
      local child = wsp[i]
      local ff = Instance.new("ForceField", child)
    end
  end)
end
local function unffAll()
  local wsp = getWorkspace()
  crashprotect(function()
    for i = 1, #wsp do
      local child = wsp[i]
      local children = getIt(child)
      for i = 1, #children do
        local ch = children[i]
        if ch:IsA("ForceField") then
          ch:remove()
        end
      end
    end
  end)
end


--[[

    **********
    * Parser *
    **********

]]--
local function parse(msg)
  if msg == "smokeAll" then
    smokeAll()
  elseif msg == "unsmokeAll" then
    unsmokeAll()
  elseif msg == "spAll" then
    spAll()
  elseif msg == "unspAll" then
    unspAll()
  elseif msg == "fireAll" then
    fireAll()
  elseif msg == "unfireAll" then
    unfireAll()
  elseif msg == "ffAll" then
    ffAll()
  elseif msg == "unffAll" then
    unffAll()
  end
end

--[[
 (BROKEN INTEGRATION)
game.Players.LocalPlayer.Chatted:connect(function(cmd)
  if cmd:sub(1,1)==";" then
    local msg = cmd:sub(2)
    parse(msg)
  end
end)
]]--
SetCommandCallback(function(msg)
  parse(msg)
end)