-- Converted using Mokiros's Model to Script plugin
-- Converted string size: 856
local genv={}
local Scripts = {
function()                  Hello- user.

1. copy the texture id on the siren head mouth
2. then paste it on the texture id!
	   thats how it works! end;}local ActualScripts = {}
function s(var)
	local func = table.remove(Scripts,1)
	setfenv(func,setmetatable({script=var,require=fake_require or require,global=genv},{
		__index = getfenv(func),
	}))
	table.insert(ActualScripts,coroutine.wrap(func))
end
Decode =  function(str,t,props,classes,values,ICList,Model,CurPar,LastIns,split,RemoveAndSplit,InstanceList)
    local tonum,table_remove,inst,parnt,comma,table_foreach = tonumber,table.remove,Instance.new,"Parent",",",
	function(t,f)
		for a,b in pairs(t) do
			f(a,b)
		end
	end
	local Types = {
		Color3 = Color3.new,
		Vector3 = Vector3.new,
		Vector2 = Vector2.new,
		UDim = UDim.new,
		UDim2 = UDim2.new,
		CFrame = CFrame.new,
		Rect = Rect.new,
		NumberRange = NumberRange.new,
		BrickColor = BrickColor.new,
		PhysicalProperties = PhysicalProperties.new,
		NumberSequence = function(...)
			local a = {...}
			local t = {}
			repeat
				t[#t+1] = NumberSequenceKeypoint.new(table_remove(a,1),table_remove(a,1),table_remove(a,1))
			until #a==0
			return NumberSequence.new(t)
		end,
		ColorSequence = function(...)
			local a = {...}
			local t = {}
			repeat
				t[#t+1] = ColorSequenceKeypoint.new(table_remove(a,1),Color3.new(table_remove(a,1),table_remove(a,1),table_remove(a,1)))
			until #a==0
			return ColorSequence.new(t)
		end,
		number = tonumber,
		boolean = function(a)
			return a=="1"
		end
	}
    split = function(str,sep)
		if not str then return end
		local fields = {}
		local ConcatNext = false
		str:gsub(("([^%s]+)"):format(sep),function(c)
			if ConcatNext == true then
				fields[#fields] = fields[#fields]..sep..c
				ConcatNext = false
			else
				fields[#fields+1] = c
			end
			if c:sub(#c)=="\\" then
				c = fields[#fields]
				fields[#fields] = c:sub(1,#c-1)
				ConcatNext = true
			end
		end)
		return fields
    end
 	RemoveAndSplit = function(t)
		return split(table_remove(t,1),comma)
	end
    t = split(str,";")
    props = RemoveAndSplit(t)
    classes = RemoveAndSplit(t)
	values = split(table_remove(t,1),'|')
	ICList = RemoveAndSplit(t)
	InstanceList = {}
    Model = inst"Model"
    CurPar = Model
    table_foreach(t,function(ct,c)
        if c=="n" or c=="p" then
            CurPar = c=="n" and LastIns or CurPar[parnt]
        else
            ct = split(c,"|")
			local class = classes[tonum(table_remove(ct,1))]
			if class=="UnionOperation" then
				LastIns = {UsePartColor="1"}
			else
            	LastIns = inst(class)
				if LastIns:IsA"Script" then
					s(LastIns)
				elseif LastIns:IsA("ModuleScript") then
					ms(LastIns)
	            end
			end

			local function SetProperty(LastIns,p,str,s)
				s = Types[typeof(LastIns[p])]
				if p=="CustomPhysicalProperties" then
					s = PhysicalProperties.new
				end
				if s then
					LastIns[p] = s(unpack(split(str,comma)))
				else
					LastIns[p] = str
				end
			end

			local UnionData
            table_foreach(ct,function(s,p,a,str)
                a = p:find":"
                p,str = props[tonum(p:sub(1,a-1))],values[tonum(p:sub(a+1))]
				if p=="UnionData" then
					UnionData = split(str," ")
					return
				end
				if class=="UnionOperation" then
					LastIns[p] = str
					return
				end
				SetProperty(LastIns,p,str)
            end)

			if UnionData then
				local LI_Data = LastIns
				LastIns = DecodeUnion(UnionData)
				table_foreach(LI_Data,function(p,str)
					SetProperty(LastIns,p,str)
				end)
			end
			table.insert(InstanceList,LastIns)
            LastIns[parnt] = CurPar
        end
    end)
	table_remove(ICList,1)
	table_foreach(ICList,function(a,b)
		b = split(b,">")
		InstanceList[tonum(b[1])][props[tonum(b[2])]] = InstanceList[tonum(b[3])]
	end)

    return Model:GetChildren()
end

local Objects = Decode('Name,Anchored,Position,Size,Part0,C0,Part1,Orientation;Part,Model,MeshPart,WeldConstraint,Weld,Script;Part|Siren Head|Siren Head_Legs|1|-63.2123,12.1059,140.3376|6.8126,24.2118,5.473|-128.3199,14.1159'
..',28.0849,1,0,0,0,1,0,0,0,1|Siren Head_Torso|-63.2569,31.3272,140.3008|6.1827,16.0428,5.3429|Siren Head_Right Arm|-58.5546,19.2252,140.9011|5.1641,36.7421,3.218|Siren Head_Left Arm|-67.9696,19.2252,141'
..'.0061|5.7541,36.7421,3.288|H O N K E R \' S     H E A D|Siren Head_Head|-63.485,42.4619,140.0229|0,5.5199,0|8.5663,11.1114,4.8297|Siren Head_Mouth|-63.2366,44.3652,140.0179|8.4913,5.3064,3.8441|INSTRU'
..'CTIONS;0,3>5>2,4>7>2,6>5>5,8>5>7,10>5>9,13>5>12,15>5>14;2|1:2;n;3|1:3|2:4|3:5|4:6;n;4;5|6:7;p;3|1:8|2:4|3:9|4:10;n;4;p;3|1:11|2:4|3:12|4:13;n;4;p;3|1:14|2:4|3:15|4:16;n;4;p;2|1:17;n;3|1:18|2:4|3:19|8:'
..'20|4:21;n;4;p;3|1:22|2:4|3:23|8:20|4:24;n;4;p;6|1:25;p;p;')
for _,Object in pairs(Objects) do
	Object.Parent = script and script.Parent==workspace and script or workspace
end
for _,f in pairs(ActualScripts) do f() end