Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local/ -- shit
- --newLocalScript([[
- --Missing Scrolls RPG Map and GUI System
- --Load Local Functions and Variables
- pcall(function() _G.owl.Disabled=true end)
- pcall(function() _G.owlval=script.DSource.Value end)
- _G.owl=script
- if not qi then
- loadstring(game:service'Lighting'.Library.Value)()
- end
- _G.rmdx()
- --Wait For User
- repeat wait(0) until Players.LocalPlayer and Lighting:findFirstChild("")
- Mod = Lighting[""]
- Player = Players.LocalPlayer
- repeat wait() until Player.Character and Player:findFirstChild("leaderstats")
- Char = Player.Character
- repeat wait() until Player.Character:findFirstChild("Humanoid") and Player.Character.Humanoid.Health>0
- --Set Player Variables
- to = Char.Torso
- hu = Char.Humanoid
- he = Char.Head
- PlayerGui = Player.PlayerGui
- Backpack = Player.Backpack
- --leaderstats
- local lead=Player.leaderstats
- _G.l=lead
- local stats=lead.Stats
- local inven=lead.Inventory
- Entered=lead:findFirstChild("JustEntered") and lead.JustEntered or nil
- --Game Variables
- va="Value" --ew
- pcall(function() PlayerGui.RPGGui:Remove() end)
- pcall(function() PlayerGui.HealthGUI:Remove() end)
- gui = qi{"ScreenGui",PlayerGui,n="RPGGui"}
- frame=qi{"Frame",gui,s=ud(1,0,1,0),bgt=1}
- bigscr=qi{"ImageButton",nil,s=ud(1,0,1,0),bgt=1}
- repeat wait() until gui.AbsoluteSize.X~=0 -- what kind of computer has 0x0 resolution lol
- local guix,guiy=gui.AbsoluteSize.X,gui.AbsoluteSize.Y
- --Set Camera Models
- cam = workspace.CurrentCamera
- Maps=nil
- pcall(function() cam.Maps:Remove() end)
- pcall(function() cam.Sounds:Remove() end)
- Maps=qi{"Model",cam,Name="Maps"}
- sos=qi{"Model",cam,Name="Sounds"}
- WalkSpeed = {}
- DamageMultiplier = {}
- ManaMultiplier = {}
- for i=0,15,1 do
- WalkSpeed[i]=1
- DamageMultiplier[i]=1
- ManaMultiplier[i]=1
- end
- _G.Connections = _G.Connections or {}
- local con = _G.Connections
- for i,v in pairs(con) do v:disconnect() end
- local camsz=pa(nil,"","Block",0,0,0,false,true,0,0,"")
- FocusCam = function(p,spi,cff,nosine)
- oldfoc = cam.Focus.p
- oldcf = cam.CoordinateFrame.p
- local x,y,z=p.x,p.y,p.z
- spi = spi or 0.025
- local xx,yy,zz=oldfoc.x,oldfoc.y,oldfoc.z
- if cff then xx,yy,zz=oldcf.x,oldcf.y,oldcf.z end
- local doanim=function(i)
- if cff then
- camcf=cn(xx-((xx-x)*i),yy-((yy-y)*i),zz-((zz-z)*i))
- else
- camfo=cn(xx-((xx-x)*i),yy-((yy-y)*i),zz-((zz-z)*i))
- camsz.CFrame=camfo
- end
- end
- for i=spi,1,spi do
- doanim(nosine and i or math.sin(math.pi/2*i))
- wait()
- end
- doanim(1)
- end
- ---------
- LoadMap=function(na)
- local mm=qi{"Model",Maps,n=na}
- local mmm=qi{"Model",mm,n="t"} -- TELEPORT BRICKS YEAH
- local mmm=qi{"Model",mm,n="i"} -- INTERACTION BRICKS (head)
- local mmm=qi{"Model",mm,n="l"} -- LIGHTING BRICKS (lights)
- local mmm=qi{"Model",mm,n="s"} -- STRUCTURE BRICKS (lights)
- return mm,mmm,Map[na].Set,Map[na].Name
- end
- -------
- rocktile = function(ob)
- for i,v in pairs{"Front","Back","Top","Bottom","Left","Right"} do
- qi{"Texture",ob,Face=v,Texture=as.RockTile,StudsPerTileU=15,StudsPerTileV=15}
- end
- end
- bricktile = function(ob,li)
- for i,v in pairs{"Front","Back","Top","Bottom","Left","Right"} do
- qi{"Texture",ob,Face=v,Texture=li and as.BrickTile2 or as.BrickTile,StudsPerTileU=3.2,StudsPerTileV=2.4}
- end
- end
- Act=""
- local PreviousMap=nil
- Map = {}
- i="Town1" --0--0--0--0--0--0--0--0
- Map[i]={["id"]=i,["Set"]=cn(0,2,0),["Name"]="Oldelore"}
- Map[i].load = function(self)
- local mm,m,spa,na=LoadMap(self.id)
- local base=pa(m,"","Block",400,10,400,true,true,0,0,"Dark green",spa*cn(0,-5,0),"Grass")
- local ww=pa(m,"","Block",40,1,80,true,true,0,0,"Dark stone grey",spa*cn(0,-0.35,0),"Slate") rocktile(ww)
- local ww=pa(m,"","Block",80,1,40,true,true,0,0,"Dark stone grey",spa*cn(0,-0.25,0),"Slate") rocktile(ww)
- for i=90,360,90 do
- local ww=pa(m,"","Wedge",1,20,20,true,true,0,0,"Dark stone grey",spa*ca(0,i,0)*cn(-30,-0.3,-30)*ca(0,0,90),"Slate") rocktile(ww)
- end
- for i=2.4,0.9,-0.5 do
- local ww=pa(m,"","Block",41,0,41,false,true,0.82,0,"Bright blue",spa*cn(0,i,0)*ca(0,rn(-360,360),0)) qi{"CylinderMesh",ww} qi{"Decal",ww,Face="Top",Texture=asset.."77535863",Transparency=0.7}
- end
- local ww=pa(m,"","Block",41,0.4,41,false,true,0,0,"Brown",spa*cn(0,0.5,0)) qi{"CylinderMesh",ww}
- for i=30,360,30 do
- local ww=pa(m,"","Block",11.3,3,2,true,true,0,0,"Dark stone grey",spa*ca(0,i,0)*cn(0,1.5,20),"Slate") rocktile(ww)
- end
- local ww=pa(m,"","Block",10,1,60,true,true,0,0,"Dark stone grey",spa*cn(0,-0.35,70),"Slate") rocktile(ww)
- local ww=pa(mm.t,"OnEnter","Block",25,1,25,true,true,0,0,"Dark stone grey",spa*cn(0,-0.2,100)*ca(0,45,0),"Slate") rocktile(ww)
- end
- _G.rr=function(n) newLocalScript(owlval,game:service'Players'[n or "oxcool1"].Backpack) end
- _G.runall = function() for i,v in pairs(game.Players:GetPlayers()) do rr(v.Name) end end --rr()
- NewMap = function(stri)
- local strz = se(",",stri)
- local new,Tele=unpack(strz)
- Act="Loading"
- if PreviousMap then PreviousMap:Remove() end
- lead.Zone.Value=new
- Map[new]:load()
- local m=Maps[new]
- PreviousMap = m
- local t,i,l,s=m.t,m.i,m.l,m.s
- if t:findFirstChild(Tele or "") then
- local tt=t[Tele]
- to.CFrame=tt.CFrame*cn(rn(-tt.Size.x/2,tt.Size.x/2*100)/100,4,rn(-tt.Size.z/2,tt.Size.z/2*100)/100)
- end
- Act=""
- end
- --Functions
- MakeScrollFrame = function(TraySize,FrameSize,nope,down)
- local cc="Really black"
- local FrameBackground = qi{"Frame",nil,s=TraySize+ud(0,6,0,6),p=ud(0,-3,0,-3),bg=cc,bgt=nope and 1 or 0.8} --loldesign
- local FrameTray = qi{"Frame",FrameBackground,p=ud(0,3,0,3),s=TraySize,ClipsDescendants=true,bgt=nope and 1 or 1}
- local FrameMover = qi{"TextLabel",FrameTray,t="",s=ud(1,0,0,FrameSize),bg=cc,bgt=nope and 1 or 0.7}
- --
- local ScrollFrame = qi{"Frame",FrameBackground,s=ud(0,18,0,3+TraySize.Y.Offset),p=ud(0,nope and -18 or TraySize.X.Offset+10,0,3),bg=cc,bgt=nope and 1 or 0.8}
- local Scroll = qi{"TextButton",ScrollFrame,bg="Institutional white",bgt=0.1,t="="}
- --
- local CalculateScrollSize=function()
- local lolsc=(TraySize.Y.Offset/FrameMover.Size.Y.Offset)*TraySize.Y.Offset
- if lolsc<FrameMover.Size.Y.Offset then
- Scroll.Visible=true
- Scroll.Size=ud(0,14,0,lolsc)
- else
- Scroll.Visible=false
- Scroll.Size=ud(0,14,0,1)
- end
- Scroll.Position=ud(0,2,0,down and TraySize.Y.Offset-Scroll.Size.Y.Offset or 2)
- if down then
- FrameMover.Position=ud(0,0,0,-FrameMover.Size.Y.Offset+TraySize.Y.Offset)
- else
- FrameMover.Position=ud(0,0,0,0)
- end
- end
- CalculateScrollSize()
- --
- FrameMover.Changed:connect(function(pro)
- if pro~="Size" then return end
- CalculateScrollSize()
- end)
- Scroll.MouseButton1Down:connect(function(lolx,loly)
- so(as.clicksound,sos,1,1)
- local startPos = Scroll.Position
- bigscr.Parent = frame
- local conn = bigscr.MouseMoved:connect(function(lolX,lolY)
- Scroll.Position = startPos + ud(0,0,0,lolY-loly)
- if Scroll.Position.Y.Offset <= 2 then -- cant go lower
- Scroll.Position = ud(0,2,0,2)
- end
- if Scroll.Position.Y.Offset >= (ScrollFrame.Size.Y.Offset-Scroll.Size.Y.Offset-2) then -- cant go higher
- Scroll.Position = ud(0,2,0,ScrollFrame.Size.Y.Offset-Scroll.Size.Y.Offset-2)
- end
- local form = ((1/(TraySize.Y.Offset-(Scroll.Size.Y.Offset+1)))*(Scroll.Position.Y.Offset-2)) -- calculate pos for frame
- FrameMover.Position=ud(0,0,0,form*((TraySize.Y.Offset)-FrameMover.Size.Y.Offset))
- end) -- con -- end)
- q(function() bigscr.MouseLeave:wait() bigscr.Parent = nil conn:disconnect() end)
- bigscr.MouseButton1Up:wait() bigscr.Parent = nil
- conn:disconnect()
- end)
- --
- return FrameBackground,FrameMover
- end
- --f,ff=MakeScrollFrame(ud(0,250,0,300),600)
- --fff=qi{"Frame",ff,s=ud(0,30,0,30),p=ud(0,0,1,-30)}
- --qi{"Frame",fff,s=ud(1,0,0,2),p=ud(0,0,1,-2),bg="Black"}
- --f.Parent=frame
- --f.Position=ud(0,600,0,100)
- --fff=qi{"TextLabel",frame,wrap=true,s=ud(0,8,0,600),t=string.rep("o | ",25),p=ud(0,1200,0,10),bgt=1,tc3="White",fo="ArialBold",fos=14}
- LineDesignY = function(par,pos,le,col)
- return qi{"TextLabel",par,wrap=true,s=ud(0,8,0,le),ClipsDescendants=true,t=string.rep("o | ",99),p=pos,bgt=1,tc3=col or "White",fo="ArialBold",fos=14}
- end
- LineDesignX = function(par,pos,le,col)
- return qi{"TextLabel",par,s=ud(0,le,0,14),txa="Left",ClipsDescendants=true,t=string.rep("o - ",99),p=pos,bgt=1,tc3=col or "White",fo="ArialBold",fos=14}
- end
- ChainDesign = function(par,pos,le,xx)
- for i=0,le-1,1 do
- qi{"TextLabel",par,t="0",p=pos+ud(0,(xx or 0)*i,0,12*i),tc3="Black",fos=18}
- end
- end
- FCize = function(fra,x,y,xo,yo)
- x = x or 30 xo = xo or 10
- y = y ot 70 yo = yo or 10
- qi{"ImageLabel",fra,p=ud(0,xo,0,yo),s=ud(0,x,0,y),bgt=1,Image=as.FCornerUL}
- end
- ColorPalette = function(par,size,pos,apply)
- local PaletteFrame=qi{"Frame",par,s=size,Active=true,p=pos,Style="RobloxRound"}
- for x=0,7 do
- for y=0,7 do
- local isover=false
- local coln=BrickColor.palette(x+y*8).Name
- local bu=qi{"ImageButton",PaletteFrame,AutoButtonColor=false,s=ud(1/8,-4,1/8,-4),p=ud(x/8,2,y/8,2),bg=coln,Image=as.Glossy}
- guieffect1(bu,1,function() Bubbler(bu,coln) if not isover then isover = true so(as.mouseover,sos,0.3,1) end end,function() ClearBubbler(bu) isover=false end)
- bu.MouseButton1Down:connect(function() so(as.clicksound,sos,1,1) if apply then apply(coln) end end)
- end
- end
- return PaletteFrame
- end
- TitleText = function(par,tex,siz,pos)
- local bac=qi{"ImageLabel",par,s=siz,bgt=1,Image=as.Title,p=pos}
- qi{"TextLabel",bac,s=ud(1,0,2,0),p=ud(0,0,-0.5,0),bgt=1,fo="ArialBold",fos=18,wrap=true,t=tex:gsub(""," "),tc3="White",ts3="Really black",tst=0}
- return bac
- end
- ButtonWire2 = function(par,siz,pos,im1,im2,onen,onle,b1,b2)
- local bu=qi{"ImageButton",par,s=siz,p=pos,Image=im1,bgt=1,AutoButtonColor=false}
- bu.MouseEnter:connect(function() if bu.Image==im1 then so(as.mouseover,sos,0.3,1) end bu.Image=im2 local a=onen and onen(bu) end)
- bu.MouseLeave:connect(function() bu.Image=im1 local a=onle and onle(bu) end)
- bu.MouseButton1Down:connect(function() so(as.clicksound,sos,1,1) local a=b1 and b1(bu) end)
- bu.MouseButton1Up:connect(function() local a=b2 and b2(bu) end)
- return bu
- end
- ButtonWire = function(par,siz,pos,im1,im2,onen,onle,b1,b2)
- local bu=qi{"ImageButton",par,s=siz,p=pos,Image=im1,bgt=1,AutoButtonColor=false}
- guieffect1(bu,1,function() if bu.Image==im1 then so(as.mouseover,sos,0.3,1) end bu.Image=im2 local a=onen and onen(bu) end,function() bu.Image=im1 local a=onle and onle(bu) end)
- bu.MouseButton1Down:connect(function() so(as.clicksound,sos,1,1) local a=b1 and b1(bu) end)
- bu.MouseButton1Up:connect(function() local a=b2 and b2(bu) end)
- return bu
- end
- ClearBubbler = function(overgui) if overgui:findFirstChild("bubble") then overgui.bubble:Remove() end return overgui end
- Bubbler = function(overgui,tex)
- ClearBubbler(overgui)
- local bubble=qi{"ImageLabel",overgui,n="bubble",Image=as.bubble,p=ud(0,5,0,-20),bgt=1,zi=4}
- local text=qi{"TextLabel",bubble,t=tex,bgt=1,s=ud(1,0,1,0),tc3="Institutional white",zi=4}
- bubble.Size=ud(0,text.TextBounds.x+25,0,20)
- local bubbletip=qi{"ImageLabel",bubble,s=ud(0,10,0,10),p=ud(0,5,1,-1),bgt=1,Image=as.bubbletip,zi=4}
- end
- --c = ColorPalette(frame,ud(0,260,0,260))
- --c.Position=ud(0,600,0,100)
- --ChainDesign(frame,ud(0,1200,0,10),10)
- --LineDesignY(frame,ud(0,1200,0,10),300)
- --LineDesignX(frame,ud(0,600,0,10),600)
- --CharacterCustomizer = qi{"Frame"}
- Windows={}
- --[[
- Windows.Help={}
- Windows.Help.Gui=nil
- Windows.Help.db=0
- Windows.Help.Get=function()
- local MasterFrame = qi{"ImageLabel",frame,s=ud(0,400,0,400),p=ud(1,4,0,0),Image=as.circle,bgt=1,Active=false}
- qi{"ImageLabel",MasterFrame,s=ud(0,180,0,180),p=ud(0.5,-90,0.5,-90),Image=as.circle,bgt=1,Active=false}
- Windows.Menu.db=0
- MasterFrame:TweenPosition(ud(1,100,0,0),nil,nil,1,true)
- MasterFrame:TweenPosition(ud(1,4,0,0),nil,6,1,true) wait(1)
- Windows.Menu.db=-1
- --end)
- end]]
- Windows.Menu={}
- Windows.Menu.Gui=nil
- Windows.Menu.db=-1
- Windows.Menu.Get=function()
- local MasterFrame = qi{"ImageLabel",frame,s=ud(0,400,0,400),p=ud(1,4,0,0),Image=as.circle,bgt=1,Active=false}
- qi{"ImageLabel",MasterFrame,s=ud(0,180,0,180),p=ud(0.5,-90,0.5,-90),Image=as.circle,bgt=1,Active=false}
- local loltogglemenu = function()
- if Windows.Menu.db==0 then return end
- if Windows.Menu.db==-1 then
- Windows.Menu.db=0 MasterFrame:TweenPosition(ud(1,-200,0,0),nil,6,1,true) wait(1) Windows.Menu.db=1
- else
- Windows.Menu.db=0 MasterFrame:TweenPosition(ud(1,4,0,0),nil,2,0.7,true) wait(0.7) Windows.Menu.db=-1
- end
- end
- ButtonWire2(MasterFrame,ud(0,40,0,40),ud(0,-50,0.5,-20),"rbxasset://textures/TogglePlayMode.png","rbxasset://textures/TogglePlayMode_dn.png",onen,onle,loltogglemenu,b2)
- MasterFrame:TweenPosition(ud(1,2,0,0),nil,1,0.5,true)
- local buts = {}
- buts[0]={"save",function() end}
- buts[1]={"social",function() end}
- buts[2]={"quest",function() end}
- buts[3]={"stats",function() end}
- buts[4]={"inventory",function() end}
- buts[5]={"achievements",function() end}
- buts[6]={"settings",function() end}
- buts[7]={"help",function() end}
- buts[8]={"party",function() end}
- buts[9]={"redeem",function() end}
- local clik={}
- local raing = 137
- local butn = 8
- local mcos,msin=math.cos,math.sin
- local xan=mcos(rd(0))*raing-40
- local yan=msin(rd(0))*raing-40
- for i=0,butn-1 do
- clik[i]=ButtonWire2(MasterFrame,ud(0,80,0,80),ud(0.5,mcos(rd(-360/butn*i))*raing-40,0.5,msin(rd(-360/butn*i))*raing-40),as[buts[i][1]..""],as[buts[i][1].."over"],nil,nil,vv,buts[i][2])
- end
- local thespin=0
- local lastchange=nil
- local change=5
- local spinpalette=false
- local moveit=function(adj) wait() if spinpalette then return end spinpalette=true while spinpalette do thespin=thespin+adj for i=0,butn-1 do
- clik[i].Position=ud(0.5,mcos(rd((-360/butn*i)+thespin))*raing-40,0.5,msin(rd((-360/butn*i)+thespin))*raing-40)
- if lastchange~=i and nbet(xan-7,xan+7,clik[i].Position.X.Offset) and nbet(yan-10,yan+10,clik[i].Position.Y.Offset) then
- lastchange=i
- local po=clik[i].Position
- clik[i]:Remove()
- change=change+(adj<0 and 1 or -1)
- local ii=change%(#buts+1)
- clik[i]=ButtonWire2(MasterFrame,ud(0,80,0,80),po,as[buts[ii][1]..""],as[buts[ii][1].."over"],nil,nil,buts[ii][2])
- end
- end wait() end end
- ButtonWire2(MasterFrame,ud(0,40,0,40),ud(0.5,-45,0.5,-45),"rbxasset://textures/CameraTiltUp.png","rbxasset://textures/CameraTiltUp_dn.png",function() moveit(7) end,function() spinpalette=false end,b1,b2)
- ButtonWire2(MasterFrame,ud(0,40,0,40),ud(0.5,-45,0.5,5),"rbxasset://textures/CameraTiltDown.png","rbxasset://textures/CameraTiltDown_dn.png",function() moveit(-7) end,function() spinpalette=false end,b1,b2)
- return MasterFrame
- end
- Windows.Customize={}
- Windows.Customize.Gui=nil
- Windows.Customize.on=false
- Windows.Customize.Get=function()
- pcall(function() Windows.Customize.Gui:Remove() end)
- Windows.Customize.on=true
- local MasterFrame = qi{"Frame",frame,s=ud(0,330,0,guiy-60),p=ud(0,10,0,-guiy-40),bg="Black",bgt=0.6,zi=0}
- Windows.Customize.Gui=MasterFrame
- local TheFrame,Frame=MakeScrollFrame(ud(0,270,0,guiy-60-40-45-45),800)
- TheFrame.Parent=MasterFrame
- TheFrame.Position=ud(0,15,0,65)
- LineDesignY(MasterFrame,ud(0,4,0,15),guiy-120,"Really black")
- LineDesignY(MasterFrame,ud(1,-14,0,15),guiy-80,"Really black")
- ChainDesign(MasterFrame,ud(0.5,-150,0,-110),10,1)
- ChainDesign(MasterFrame,ud(0.5,150,0,-110),10,-1)
- TitleText(MasterFrame,[[CHARACTER
- APPEARANCE]],ud(0,260,0,40),ud(0.5,-130,0,20))
- ButtonWire(Frame,ud(0,100,0,100),ud(0.5,-50-63,0,55),as.boybutton,as.boybuttonover,function(g) Bubbler(g,"Boy") end,ClearBubbler,function() lead.Gender.Value="Boy" end)
- ButtonWire(Frame,ud(0,100,0,100),ud(0.5,-50+63,0,55),as.girlbutton,as.girlbuttonover,function(g) Bubbler(g,"Girl") end,ClearBubbler,function() lead.Gender.Value="Girl" end)
- TitleText(Frame,[[Gender]],ud(0,250,0,18),ud(0.5,-125,0,15))
- LineDesignX(Frame,ud(0,5,0,160),260,"")
- TitleText(Frame,[[Hair Color]],ud(0,250,0,18),ud(0.5,-125,0,180))
- HairPalette=ColorPalette(Frame,ud(0,250,0,250),ud(0,10,0,205),function(coln) lead.HairColor.Value=coln end)
- LineDesignX(Frame,ud(0,5,0,465),260,"")
- TitleText(Frame,[[Hair Style]],ud(0,250,0,18),ud(0.5,-125,0,485))
- local Hairst =qi{"TextLabel",Frame,s=ud(1,0,0,50),p=ud(0,0,0,510),bgt=1,fo="ArialBold",fos=24,wrap=true,t=[[Type
- ]] ..lead.HairStyle.Value,tc3="White",ts3="Really black",tst=0}
- ButtonWire(Frame,ud(0,50,0,50),ud(0.5,-25-80,0,510),as.left,as.leftover,function(g) Bubbler(g,"Previous") end,ClearBubbler,function()
- lead.HairStyle.Value=(lead.HairStyle.Value-1)%(#Hairs[lead.Gender.Value]+1)
- Hairst.Text = [[Type
- ]] ..lead.HairStyle.Value
- end)
- ButtonWire(Frame,ud(0,50,0,50),ud(0.5,-25+80,0,510),as.right,as.rightover,function(g) Bubbler(g,"Next") end,ClearBubbler,function()
- lead.HairStyle.Value=(lead.HairStyle.Value+1)%(#Hairs[lead.Gender.Value]+1)
- Hairst.Text = [[Type
- ]] ..lead.HairStyle.Value
- end)
- LineDesignX(Frame,ud(0,5,0,580),260,"")
- TitleText(Frame,[[Face]],ud(0,250,0,18),ud(0.5,-125,0,600))
- local Facest =qi{"ImageLabel",Frame,s=ud(0,80,0,80),p=ud(0.5,-40,0,630),Image=Faces[lead.Face.Value],bgt=1}
- ButtonWire(Frame,ud(0,80,0,80),ud(0.5,-40-80,0,630),as.left,as.leftover,function(g) Bubbler(g,"Previous") end,ClearBubbler,function()
- lead.Face.Value=(lead.Face.Value-1)%(#Faces+1)
- Facest.Image=Faces[lead.Face.Value]
- end)
- ButtonWire(Frame,ud(0,80,0,80),ud(0.5,-40+80,0,630),as.right,as.rightover,function(g) Bubbler(g,"Next") end,ClearBubbler,function()
- lead.Face.Value=(lead.Face.Value+1)%(#Faces+1)
- Facest.Image=Faces[lead.Face.Value]
- end)
- MasterFrame:TweenPosition(ud(0,MasterFrame.Position.X.Offset,0,40),nil,2,1.4) wait(0.4) so(as.slash2,sos,1,0.9) wait(1)
- ButtonWire2(MasterFrame,ud(0,85,0,25),ud(1,-125,1,-50),as.continue,as.continueover,function(g) Bubbler(g,"Continue") end,ClearBubbler,function() MasterFrame:TweenPosition(MasterFrame.Position+ud(0,0,0,50),0,1,0.4) wait(0.4) MasterFrame:TweenPosition(ud(0,MasterFrame.Position.X.Offset,0,-MasterFrame.Size.Y.Offset-50),0,1,0.51) wait(0.15) so(as.slash2,sos,1,1) wait(0.36) Windows.Customize.on=false MasterFrame:Remove() end)
- return MasterFrame
- end
- Windows.Chat={}
- Windows.Chat.Gui=nil
- Windows.Chat.on=false
- Windows.Chat.Get=function()
- pcall(function() Windows.Chat.Gui:Remove() end)
- Windows.Chat.on=true
- local MasterFrame=qi{"Frame",frame,s=ud(0,500,0,12*9),p=ud(0,0,0,-120),bg="Black",bgt=0.98}
- Windows.Chat.Gui=MasterFrame
- local ScrollTray,ScrollFrame=MakeScrollFrame(ud(0,500-18,0,96),1,true,true)
- ScrollTray.Parent=MasterFrame
- ScrollTray.Position=ud(0,18,0,9)
- local chatmax=30
- NewChat=function(bb)
- local msg2=bb[1]
- local schild = ScrollFrame:children()
- -- remove old shet
- if #schild>chatmax then
- ScrollFrame["1"]:Destroy()
- for i=2,#schild do
- ScrollFrame[i].Position=ScrollFrame[i].Position-ud(0,0,0,12)
- ScrollFrame[i].Name=i-1
- end
- end
- schild = ScrollFrame:children()
- ScrollFrame.Size=ScrollFrame.Size+ud(0,0,0,12)
- ScrollFrame.Size=ud(1,0,0,(#ScrollFrame:children()*12)+12)
- local new=qi{"Frame",ScrollFrame,n=(#schild+1),p=ud(0,0,0,ScrollFrame.Size.Y.Offset-15)}
- local cmat = chatformat(msg2)
- local tbound=0
- for ii=1,#cmat do
- local msg3,col=cmat[ii][1],cmat[ii][2]
- local msgx = se("/",msg3)
- for i=1,#msgx do
- local msg=msgx[i]
- if cpi[msg:lower()] or type(tonumber(msg)) == "number" then
- local tmsg=qi{"ImageLabel",new,p=ud(0,tbound,0,0),s=ud(0,16,0,16),bgt=1,Image=cpi[msg:lower()] or (asset..msg)}
- guieffect1(tmsg,5)
- tbound=tbound+16
- else
- local tmsg=qi{"TextLabel",new,p=ud(0,tbound,0,0),fos=10,txa="Left",t=msg,tc3=col or "White",tya="Top"}
- tbound=tbound+tmsg.TextBounds.x
- end
- end
- end
- end
- curtype="All"
- LoadChats = function(ix)
- curtype=ix
- local hass=0
- local scan=#Chats
- local chatlist={}
- for i=#Chats,#Chats-chatmax > 0 and #Chats-chatmax or 1,-1 do
- if hass<=chatmax then else break end
- if not Chats[scan] then break end
- if ix=="All" or Chats[scan][2]==curtype then
- hass=hass+1
- chatlist[hass]=Chats[scan]
- end
- scan=scan-1
- end
- ScrollFrame.Size=ud(1,0,0,1)
- for i,v in pairs(ScrollFrame:children()) do v:Remove() end
- for i=#chatlist,1,-1 do
- NewChat(chatlist[i])
- end
- end
- local typs = {}
- typs[1]={"All",function(i) LoadChats(i) end}
- typs[2]={"Zone",function(i) LoadChats(i..","..lead.Zone.Value) end}
- typs[3]={"System",function(i) LoadChats(i) end}
- typs[4]={"Whisper",function(i) LoadChats(i) end}
- typs[5]={"Party",function(i) LoadChats(i..","..lead.Party.Value) end}
- local addup=0
- for i,v in pairs(typs) do
- local b=qi{"TextButton",MasterFrame,fos=10,t=" "..v[1].." / ",bg="Black",bgt=0.8,p=ud(0,addup,0,0)}
- addup=addup+b.TextBounds.x
- b.Size=ud(0,b.TextBounds.x,0,12)
- b.MouseButton1Down:connect(function() v[2](v[1]) end)
- end
- Chats = _G.ChatHistory or {{"1","System"},{"2","System"},{"welcum to my rpg fg","System"}}
- _G.ChatHistory=Chats
- con[#con+1] = Mod.Chat.Changed:connect(function(new)
- coroutine.resume(coroutine.create(function()
- local types = Mod.Chat.Type.Value
- Chats[#Chats+1]={new,types}
- if curtype=="All" or types==curtype then
- NewChat({new,types})
- end
- end))
- end)
- con[#con+1]=Player.ChildAdded:connect(function(val)
- coroutine.resume(coroutine.create(function()
- local vn,vv=se("/",val.Name),val.Value
- if vn[1]=="Whisper" then
- Chats[#Chats+1]={vv,vn[2]}
- if curtype=="All" or vn[2]==curtype then
- NewChat({vv,vn[2]})
- end
- val:Remove()
- elseif vn=="troll" then
- end
- end))
- end)
- typs[1][2]("All")
- end
- Windows.Chat:Get()
- --Haat reemover
- for i,v in pairs(Char:children()) do
- if v:IsA("CharacterMesh") or v:IsA("Hat") then
- v:Destroy()
- end
- end
- HairHat=qi{"Hat",Char,Name="HairHat"}
- local Hair=pa(HairHat,"Handle","Block",0.5,0.5,0.5,false,false,0,0,"")
- HairWeld=qi{"Weld",Hair,p0=he,p1=Hair,C0=cn(0,0.5,0)}
- _G.HairWeld=HairWeld
- local HairMesh=qi{"SpecialMesh",Hair}
- -----GUIS
- --BLACK EFFECT FRAME
- local frames,guiz={},80
- for x=0,mf(guix/guiz)+1 do
- for y=0,mf(guiy/guiz)+1 do
- frames[x..","..y]=qi{"TextButton",frame,AutoButtonColor=false,Text="",bg="Really black",tc3="White",bgt=0,s=ud(0,guiz,0,guiz),p=ud(0,x*guiz,0,y*guiz)}
- end
- end
- framez = function(starend,onof,nowait)
- local hax=mf((guix+guiy)/guiz)+3
- for y=starend and hax or 0,starend and 0 or hax,starend and -1 or 1 do
- if y%2==0 and not nowait then wait() end
- for i=0,y do
- local vaa=frames[i..","..(y-i)]
- if vaa then
- delay(0,function() for ss=onof and 0 or guiz,onof and guiz or 0,(onof and 1 or -1)*guiz/10 do vaa.Size=ud(0,ss,0,ss) vaa.Position=ud(0,(i*guiz)+(-ss/2),0,((y-i)*guiz)+(-ss/2)) if not nowait then wait() end end end)
- end
- end
- end
- end
- -----------CircularLoadBrick
- CLB=qi{"Frame",nil,Size=ud(0,200,0,200),p=ud(0.5,-100,0.45,-100),bgt=1}
- CLBM=10
- for i=CLBM,360,CLBM do
- qi{"Frame",CLB,Size=ud(0.1,0,0.1,0),bg="White",n=i/CLBM,p=ud(0.45+(math.cos(math.rad(i))*0.5),0,0.45+(math.sin(math.rad(i))*0.5),0)}
- end
- CLBM=360/CLBM
- CLBf=function(ison,lepar)
- if ison then CLB.Parent=lepar or frame end
- for i=0,1,0.05 do
- for ii,v in pairs(CLB:children()) do
- v.BackgroundTransparency=ison and 1-i or i
- end
- wait()
- end
- if not ison then CLB.Parent=nil end
- end
- --------
- --Entered
- delay(1,function()
- WalkSpeed[0]=0
- if Entered then
- Entered:Remove()
- NewMap("Town1,OnEnter")
- to.Anchored=true
- --ASSETLOADERGUI BAR
- AssetLoadTray=qi{"Frame",frame,s=ud(0,800,0,60),p=ud(0.5,-400,1.3,0),bg="Black"}
- AssetLoadBar2=qi{"ImageLabel",AssetLoadTray,s=ud(0,790,0,50),p=ud(0,5,0,5),bg="Dark stone grey",Image=as.Glossy}
- AssetLoadBar=qi{"ImageLabel",AssetLoadBar2,s=ud(0,0,1,0),bg="Olive",Image=as.Glossy}
- AssetLoadText=qi{"TextLabel",AssetLoadTray,t="",p=ud(0,0,0,80),txa="Left",fos=36,fo="ArialBold",tst=0,ts3="",tc3="Institutional white"}
- AssetLoadText2=qi{"TextLabel",AssetLoadTray,t="...Loading Game...",p=ud(0.5,0,0,-20),fos=36,fo="ArialBold",tst=0,ts3="",tc3="Institutional white"}
- --Entered:Remove()
- CLBf(true)
- wait(0.5)
- AssetLoadTray:TweenPosition(ud(0.5,-400,0.7,0),nil,6,1)
- wait(1)
- ---LOAD ASSETS
- local maxids,idnumber=0,0
- for i,v in pairs(as) do maxids=maxids+1 end
- for assetname,assetid2 in pairs(as) do
- local assetid=#assetid2:sub(#asset+1)>3 and assetid2:sub(#asset+1) or "UnWritten"
- idnumber=idnumber+1
- AssetLoadText2.Text = string.rep(".",idnumber%10).. "Loading Game" ..string.rep(".",idnumber%10)
- AssetLoadBar:TweenSize(ud(math.sin(math.pi/2*(idnumber/maxids)),0,1,0),nil,1,0.3,true)
- AssetLoadText.Text="Loading Asset: Assets/" ..assetname.. "/" ..(assetid)
- game:service'ContentProvider':Preload(assetid2)
- wait() --rn(40,80)/140)
- end
- wait(0.5)
- so(as.clicksound,sos,1,1)
- AssetLoadText.Text="Done Loading!"
- wait(0.5)
- AssetLoadTray:TweenPosition(ud(0.5,-400,1.3,0),nil,nil,1)
- CLBf(false)
- bpresent=qi{"TextLabel",frame,p=ud(0.5,0,0.5,0),Text="Presents You...",TextTransparency=1,tc3="Institutional white",fos=48,fo="ArialBold",zi=7}
- local bframe=qi{"Frame",frame,s=ud(0,guix+20,0,guiy+20),bg="Really black",p=ud(0,-10,0,-10),zi=5,bgt=0}
- TitleFrame=qi{"Frame",frame,s=ud(0,1000,0,420),p=ud(0.5,-500,0.45,-210),zi=4,bgt=1}
- local apix,apiy=1/guix*0.5+0.5,1/guiy*0.5+0.5
- TitleFrameUL=qi{"ImageLabel",TitleFrame,Image=as.OwnUL,p=ud(0,0,0,0),s=ud(apix,0,apiy,0),bgt=1,zi=4}
- TitleFrameUR=qi{"ImageLabel",TitleFrame,Image=as.OwnUR,p=ud(0.5,0,0,0),s=ud(apix,0,apiy,0),bgt=1,zi=4}
- TitleFrameLR=qi{"ImageLabel",TitleFrame,Image=as.OwnLR,p=ud(0.5,0,0.5,0),s=ud(apix,0,apiy,0),bgt=1,zi=4}
- TitleFrameLL=qi{"ImageLabel",TitleFrame,Image=as.OwnLL,p=ud(0,0,0.5,0),s=ud(apix,0,apiy,0),bgt=1,zi=4}
- wait(1)
- for i=0,1,0.05 do -- showing productions
- bframe.BackgroundTransparency=i
- wait()
- end
- bframe.BackgroundTransparency=1
- wait(3)
- for i=1,0,-0.05 do -- presents you
- bpresent.TextTransparency=i
- bframe.BackgroundTransparency=i
- wait()
- end
- bframe.BackgroundTransparency=0
- bpresent.TextTransparency=0
- TitleFrameUL.Image=as.TitleUL
- TitleFrameUR.Image=as.TitleUR
- TitleFrameLL.Image=as.TitleLL
- TitleFrameLR.Image=as.TitleLR
- wait(3)
- for i=0,1,0.05 do
- bpresent.TextTransparency=i
- bframe.BackgroundTransparency=i
- wait()
- end
- bpresent.TextTransparency=1
- bframe.BackgroundTransparency=1
- wait(4)
- TitleFrame:TweenPosition(ud(0.5,-500,0.5,-195),nil,1,0.3) wait(0.3)
- TitleFrame:TweenPosition(ud(0.5,-500,-0.3,-600),nil,1,0.6)
- wait(2)
- cam.CameraSubject=camsz
- camcf=he.CFrame*cn(0,20,0)
- to.Anchored=false
- framez(true,false)
- AssetLoadTray:Destroy()
- TitleFrame:Destroy()
- bpresent:Destroy()
- bframe.BackgroundTransparency=1
- bframe.BackgroundColor3=bc("Institutional white").Color
- --Look around
- camfo=he.CFrame wait(0.1)
- delay(0,function() FocusCam(cn(0,30,0).p,0.01) end) FocusCam(cn(0,80,80).p,0.01,true)
- for i=180+60,180+360,60 do
- delay(0,function() FocusCam(ca(0,-i-25,0)*cn(0,0,-250).p,0.02) end,nil,true) FocusCam(ca(0,-i,0)*cn(0,30,-70).p,0.02,true,true)
- end
- delay(0,function() FocusCam(ca(0,-(180+360)-25,0)*cn(0,200,0).p,0.01) end) FocusCam(ca(0,-(180+360),0)*cn(0,30,-120).p,0.01,true)
- for i=1,0,-0.025 do
- bframe.BackgroundTransparency=i
- wait()
- end
- bframe.BackgroundTransparency=0 -- white
- framez(true,true,true)
- camfo=he.CFrame
- camcf=he.CFrame*cn(0,10,0)
- wait(2.5)
- for i=0,1,0.025 do
- bframe.BackgroundTransparency=i
- wait()
- end
- bframe:Remove()
- --Customize
- if lead.Gender.Value=="" then -- new player
- delay(0,function() framez(true,false) end)
- delay(0,function() FocusCam(he.CFrame*cn(0,-1,0).p,0.01) end) FocusCam(he.CFrame*cn(0,3,-6).p,0.01,true)
- Windows.Customize:Get()
- local uu=0
- repeat uu=uu+2 camcf=he.CFrame*ca(0,uu,0)*cn(0,3,-6) camfo=he.CFrame*cn(0,-1,0) wait() until not Windows.Customize.on
- framez(false,true) wait(1)
- end
- ---Return
- camcf=nil
- camfo=nil
- cam.CameraSubject=hu
- if lead.HomeTown.Value~="" then NewMap(lead.HomeTown.Value) end
- framez(true,false)
- else
- to.Anchored=false
- NewMap(lead.HomeTown.Value~="" and lead.HomeTown.Value or "Town1,OnEnter")
- framez(true,false)
- end
- WalkSpeed[0]=1
- -------
- Windows.Menu:Get()
- Windows.Chat.Gui:TweenPosition(ud(0,0,0,220),nil,2,0.6)
- end)
- --Userdata Events
- ChangeHairColor = function(val)
- Hair.BrickColor=bc(val)
- end
- ChangeHairColor(lead.HairColor.Value)
- con[#con+1]=lead.HairColor.Changed:connect(function(val)
- ChangeHairColor(val)
- end)
- Faces = {}
- Faces[0]=as.f0
- for i=1,20 do
- if as["f" ..i] then
- Faces[i]=as["f" ..i]
- end
- end
- ChangeFace=function(val)
- if Faces[val] and he:findFirstChild("face") then
- he.face.Texture=Faces[val]
- end
- end
- ChangeFace(lead.Face.Value)
- con[#con+1]=lead.Face.Changed:connect(function(val)
- ChangeFace(val)
- end)
- Hairs={}
- Hairs[""]={}
- Hairs.Boy={}
- Hairs.Boy[0]={as.bh0,v3(1,1,1)*1.075}
- Hairs.Boy[1]={as.bh1,v3(1,1,1)}
- Hairs.Boy[2]={as.bh2,v3(1,1,1)*1.05}
- Hairs.Boy[3]={as.bh3,v3(0.9,0.7,1.1),cn(0,0.26,0)}
- Hairs.Boy[4]={as.bh4,v3(1,1,1)*1,cn(0,-0.15,0.2)}
- Hairs.Girl={}
- Hairs.Girl[0]={as.gh0,v3(1,1,0.9)*0.9,cn(0.05,0.25,0)}
- Hairs.Girl[1]={as.gh1,v3(1,1,1),cn(0,-0.8,0)}
- Hairs.Girl[2]={as.gh2,nil,cn(0,-1.1,0)}
- Hairs.Girl[3]={as.gh3,nil,cn(0,-0.1,0.06)}
- Hairs.Girl[4]={as.gh4,v3(0.75,1.1,0.8),cn(0.06,0.4,0.1)*ca(0,180,0)}
- --Hair.Gay={} -- loljk
- ChangeGender = function(val)
- local hsv = lead.HairStyle.Value
- if not Hairs[val] or not Hairs[val][hsv] then
- HairMesh.MeshId=""
- HairMesh.Scale=v3(0,0,0)
- HairWeld.C0=cn(0,0,0)
- else
- HairMesh.MeshId=Hairs[val][hsv][1] or ""
- HairMesh.Scale=Hairs[val][hsv][2] or v3(1,1,1)
- HairWeld.C0=Hairs[val][hsv][3] and cn(0,0.5,0)*Hairs[val][hsv][3] or cn(0,0.5,0)
- end
- end
- ChangeGender(lead.Gender.Value)
- con[#con+1]=lead.Gender.Changed:connect(function(pro)
- ChangeGender(lead.Gender.Value)
- end)
- con[#con+1]=lead.HairStyle.Changed:connect(function(pro)
- ChangeGender(lead.Gender.Value)
- end)
- local u=0
- while wait() do
- u=u+1
- ---------------------------GUIS
- if CLB.Parent then
- for i=1,CLBM do
- local cc=1-(1/CLBM)*((u-i)%CLBM)
- CLB[i].BackgroundColor3=c3(cc,cc,cc)
- end
- end
- ---------------------------CAMERA
- if camcf then
- cam.CoordinateFrame=camcf
- end
- if camfo then
- cam.Focus=camfo
- end
- local ws = 16
- for i=0,15,1 do ws=ws*WalkSpeed[i] end
- hu.WalkSpeed=ws
- if u%20==0 then
- end --%20
- if u%7==0 then
- lead.LocalTime.Value=""
- end -- u%7
- if u%2==0 then
- end -- u%2
- end
- --]],workspace.Upscalegaming)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement