API tools faq
paste
Advertisement
iiFlamez

Untitled

iiFlamez
Dec 3rd, 2017
160
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 38.87 KB | None | 0 0
raw download clone embed print report
  1. -- params : ...
  2.  
  3. local module = {}
  4. local pl = game:GetService("Players")
  5. local r = game:GetService("ReplicatedStorage")
  6. local u = game:GetService("UserInputService")
  7. local l = game:GetService("Lighting")
  8. local tws = game:GetService("TweenService")
  9. local ts = game:GetService("TextService")
  10. local db = (game:GetService("Debris"))
  11. local p, g, obf, rem, shop = nil, nil, nil, nil, nil
  12. _G.MODULE_LOG = {}
  13. local w = workspace
  14. local m = math
  15. local i = Instance
  16. local v = Vector3
  17. local v2 = Vector2
  18. local b = BrickColor
  19. local c = Color3
  20. local ra = Ray
  21. local t = TweenInfo
  22. local c2 = CFrame
  23. local ud = UDim2
  24. local tb = table
  25. local ns = NumberSequence
  26. local nsk = NumberSequenceKeypoint
  27. module.ob = function(self)
  28. return {i.new, v.new, b.new, b.Random, m.random, m.rad, v2.new, ud.new, c.new, c2.new, c2.Angles, m.abs, m.floor, m.ceil, m.max, m.min, ra.new, t.new, tostring, tonumber, m.acos, m.deg, m.huge, true, false, tb.insert, tb.remove, tb.sort, ipairs, ns.new, nsk.new, c.fromRGB, m.sqrt, m.clamp, m.huge, m.sin, m.cos, m.atan2, m.pi}
  29. end
  30.  
  31. _G.q = module:ob()
  32. local var = {
  33. Reloading = {}
  34. ,
  35. Notifications = {}
  36. ,
  37. Bomb = {}
  38. , InTab = _G.q[24], Overlay = _G.q[24],
  39. Close = {0,
  40. {}
  41. }
  42. ,
  43. CurrentSector = {}
  44. ,
  45. Window = {WindowPart = _G.q[24], GlassPart = _G.q[24], JewelryGlassPart = _G.q[24], ArtGlassPart = _G.q[24], CarGlassPart = _G.q[24]}
  46. ,
  47. Warning = {nil, 0}
  48. ,
  49. Warning2 = {nil, 0}
  50. , PDeb = tick(),
  51. ShootDebounce = {}
  52. }
  53. module.AddComma = function(self, v)
  54. local f, k = _G.q[19](v)
  55. while 1 do
  56. if _G.q[24] then
  57. f = f:gsub("^(-?%d+)(%d%d%d)", "%1,%2")
  58. end
  59. if k == 0 then
  60. break
  61. end
  62. end
  63. return f
  64. end
  65.  
  66. local resource = script:WaitForChild("Resource")
  67. local thread = _G.q[1]("BindableEvent", resource)
  68. thread.Name = "Thread"
  69. module.Thread = function(Type, ...)
  70. thread:Fire(Type, ...)
  71. end
  72.  
  73. thread.Event:Connect(function(Type, ...)
  74. local d = {...}
  75. if Type == "Warn" and g then
  76. if not d[3] then
  77. local n = var.Warning[2] + 1
  78. do
  79. var.Warning = {d[1], n}
  80. module.new("Instruct", 2, d[1])
  81. g.InstructionsFrame2.Visible = _G.q[24]
  82. wait(d[4] or 10)
  83. if var.Warning[1] == d[1] and var.Warning[2] == n then
  84. do
  85. g.InstructionsFrame2.Visible = _G.q[25]
  86. -- DECOMPILER ERROR at PC56: LeaveBlock: unexpected jumping out IF_THEN_STMT
  87.  
  88. -- DECOMPILER ERROR at PC56: LeaveBlock: unexpected jumping out IF_STMT
  89.  
  90. end
  91. end
  92. end
  93. else
  94. local n = var.Warning2[2] + 1
  95. var.Warning2 = {d[1], n}
  96. if d[4] then
  97. module.new("Instruct", 3, d[1], d[2])
  98. g.InstructionsFrame3.Visible = _G.q[24]
  99. else
  100. g.InstructionsFrame3.Visible = _G.q[25]
  101. end
  102. end
  103. end
  104. do
  105. if Type == "FadeFilter" and g and l.DeathFilter.Saturation == -1 then
  106. g.PlayerFrame.DeathFrame.Label.TextTransparency = 1
  107. g.PlayerFrame.DeathFrame:TweenSize(_G.q[8](0, 0, 0.25, 0), "Out", "Quad", 1)
  108. for i = -1, 0, 0.1 do
  109. l.DeathFilter.Saturation = i
  110. wait()
  111. end
  112. l.DeathFilter.Saturation = 0
  113. wait(1)
  114. g.PlayerFrame.DeathFrame.Visible = _G.q[25]
  115. end
  116. if Type == "CreateSound" then
  117. local id, pos = unpack(d)
  118. local part = _G.q[1]("Part")
  119. part.Name = "SoundPart"
  120. part.Transparency = 1
  121. part.CanCollide = _G.q[25]
  122. part.Anchored = _G.q[24]
  123. part.Size = _G.q[2](0.2, 0.2, 0.2)
  124. part.TopSurface = Enum.SurfaceType.Smooth
  125. part.BottomSurface = Enum.SurfaceType.Smooth
  126. part.CFrame = _G.q[10](pos.X, pos.Y, pos.Z)
  127. part.Parent = w.Game.TargetFilter
  128. local sound = _G.q[1]("Sound", part)
  129. sound.SoundId = id
  130. wait()
  131. db:AddItem(part, sound.TimeLength)
  132. sound:Play()
  133. else
  134. do
  135. if Type == "Notification" and g then
  136. local nf = g.NotificationsFrame
  137. local notification = function(message, scale)
  138. local last = nil
  139. nf:ClearAllChildren()
  140. _G.q[26](var.Notifications, {message, scale})
  141. for i,v in _G.q[29](var.Notifications) do
  142. local nf2 = resource:FindFirstChild("NotificationFrame")
  143. if nf2 then
  144. nf2 = nf2:Clone()
  145. nf2.Parent = nf
  146. local ax = nf2.Label.AbsoluteSize.Y
  147. if v[1][2] then
  148. nf2.Size = _G.q[8](1, -10, 0.1 * v[1][2].Scale, 0)
  149. nf2.Label.Size = _G.q[8](1, -20, 1, 0)
  150. nf2.Label.Position = _G.q[8](0, 10, 0, 0)
  151. else
  152. nf2.Label.Size = _G.q[8](1, -20, 0.5, 0)
  153. nf2.Label.Position = _G.q[8](0, 10, 0.25, 0)
  154. end
  155. if last then
  156. nf2.Position = _G.q[8](0, 5, 1, -_G.q[12](last.Position.Y.Offset) - nf2.AbsoluteSize.Y - 5)
  157. else
  158. nf2.Position = _G.q[8](0, 5, 1, -nf2.AbsoluteSize.Y)
  159. end
  160. local t = v[1][1]
  161. nf2.Label.Text = t[1]
  162. if t[3] then
  163. nf2.BackgroundColor3 = t[3]
  164. end
  165. do
  166. do
  167. if t[4] then
  168. local sfx = _G.q[1]("Sound", script)
  169. sfx.Name = "SFX"
  170. sfx.SoundId = t[4]
  171. sfx:Play()
  172. db:AddItem(sfx, sfx.TimeLength)
  173. end
  174. last = nf2
  175. db:AddItem(nf2, 7)
  176. module.Thread("CleanNotification", i)
  177. -- DECOMPILER ERROR at PC165: LeaveBlock: unexpected jumping out DO_STMT
  178.  
  179. -- DECOMPILER ERROR at PC165: LeaveBlock: unexpected jumping out IF_THEN_STMT
  180.  
  181. -- DECOMPILER ERROR at PC165: LeaveBlock: unexpected jumping out IF_STMT
  182.  
  183. end
  184. end
  185. end
  186. end
  187. end
  188.  
  189. if not var.NotD then
  190. var.NotD = _G.q[24]
  191. notification(d[1], d[2])
  192. wait(0.1)
  193. var.NotD = _G.q[25]
  194. end
  195. end
  196. do
  197. if Type == "CleanNotification" then
  198. wait()
  199. _G.q[27](var.Notification, d[1])
  200. else
  201. if Type == "Reward" and g then
  202. local rl = g.GameFrame.RewardLabel
  203. rl.Text = d[1]
  204. rl.TextColor3 = d[2]
  205. rl.Label.Text = d[3]
  206. if not var.Rewarding then
  207. var.Rewarding = _G.q[24]
  208. rl:TweenPosition(_G.q[8](0, 0, 0.2, 0), "Out", "Quad", 0.1)
  209. wait(4)
  210. rl:TweenPosition(_G.q[8](1, 0, 0.2, 0), "Out", "Quad", 0.1)
  211. wait(0.1)
  212. rl.Position = _G.q[8](-1, 0, 0.2, 0)
  213. var.Rewarding = nil
  214. end
  215. end
  216. end
  217. end
  218. end
  219. end
  220. end
  221. end)
  222. module.new = function(Type, ...)
  223. local d = {...}
  224. if Type == "ConnectionEvent" or Type == "ConnectionFunction" then
  225. local r = d[2]:FindFirstChild(d[3].Name .. "_" .. d[1])
  226. if not r then
  227. local e = _G.q[1]("Bindable" .. Type:gsub("Connection", ""))
  228. e.Name = d[3].Name .. "_" .. d[1]
  229. e.Parent = d[2]
  230. _G.MODULE_LOG[e.Name] = e
  231. return e
  232. else
  233. do
  234. do
  235. _G.MODULE_LOG[r.Name] = r
  236. do return r end
  237. if Type == "Weld" then
  238. local x, y, z, pos = unpack(d)
  239. do
  240. local weld = _G.q[1]("Weld")
  241. if y.Name == "PrimaryPart" then
  242. weld.Name = x.Name .. "Weld_" .. y.Parent.Name
  243. else
  244. weld.Name = x.Name .. "Weld_" .. y.Name
  245. end
  246. weld.Part0 = x
  247. weld.Part1 = y
  248. if not pos then
  249. local w = CFrame.new(x.Position)
  250. weld.C0 = x.CFrame:inverse() * w
  251. weld.C1 = y.CFrame:inverse() * w
  252. if z and type(z) == "userdata" then
  253. weld.Parent = z
  254. else
  255. weld.Parent = y
  256. end
  257. else
  258. do
  259. do
  260. do
  261. local v, w = CFrame.new(pos[1].p), CFrame.new(pos[2].p)
  262. weld.C0 = pos[1]:inverse() * v
  263. weld.C1 = pos[2]:inverse() * w
  264. if z and type(z) == "userdata" then
  265. weld.Parent = z
  266. else
  267. weld.Parent = y
  268. end
  269. do return weld end
  270. return weld
  271. end
  272. if Type == "DoorFunction" then
  273. local doorInfo = _G.q[18](2, Enum.EasingStyle.Bounce, Enum.EasingDirection.Out, 0, _G.q[25])
  274. local door, ease, speed = unpack(d)
  275. local d1, d2 = door:FindFirstChild("Door1"), door:FindFirstChild("Door2")
  276. if d1 and d2 then
  277. local goal, goal2, sound = nil, nil, nil
  278. if ease == "Open" then
  279. goal2 = {CFrame = d2.DoorPosition.CFrame * _G.q[10](0, 0, -4.95)}
  280. goal = {CFrame = d1.DoorPosition.CFrame * _G.q[10](0, 0, 4.95)}
  281. sound = door:FindFirstChild("OpenSound")
  282. if sound then
  283. sound:Play()
  284. end
  285. local tween1, tween2 = tws:Create(d1, doorInfo, goal), tws:Create(d2, doorInfo, goal2)
  286. tween1:Play()
  287. tween2:Play()
  288. else
  289. do
  290. if ease == "Close" then
  291. goal2 = {CFrame = d2.DoorPosition.CFrame}
  292. goal = {CFrame = d1.DoorPosition.CFrame}
  293. sound = door:FindFirstChild("CloseSound")
  294. if sound then
  295. sound:Play()
  296. end
  297. local tween1, tween2 = tws:Create(d1, doorInfo, goal), tws:Create(d2, doorInfo, goal2)
  298. tween1:Play()
  299. tween2:Play()
  300. end
  301. do
  302. if d1 and not d2 then
  303. local goal, goal2, sound = nil, nil, nil
  304. if ease == "Open" then
  305. goal = {CFrame = d1.DoorPosition.CFrame * _G.q[10](0, 0, -4.95)}
  306. sound = door:FindFirstChild("OpenSound")
  307. if sound then
  308. sound:Play()
  309. end
  310. local tween1 = tws:Create(d1, doorInfo, goal)
  311. tween1:Play()
  312. else
  313. do
  314. if ease == "Close" then
  315. goal = {CFrame = d1.DoorPosition.CFrame}
  316. sound = door:FindFirstChild("CloseSound")
  317. if sound then
  318. sound:Play()
  319. end
  320. local tween1 = tws:Create(d1, doorInfo, goal)
  321. tween1:Play()
  322. end
  323. do
  324. if Type == "Fade" then
  325. local data = d[1]
  326. if data == "Out" then
  327. for i = 16, 0, -1 do
  328. l.Blur.Size = i
  329. wait()
  330. end
  331. l.Blur.Size = 0
  332. l.Blur.Enabled = _G.q[25]
  333. wait()
  334. l.Blur.Enabled = 8
  335. else
  336. for i = 0, 8 do
  337. l.Blur.Size = i
  338. wait()
  339. end
  340. l.Blur.Size = 8
  341. l.Blur.Enabled = _G.q[24]
  342. end
  343. else
  344. do
  345. if Type == "Audio" then
  346. local phase = d[1]
  347. if phase == "In" then
  348. resource.Theme:Play()
  349. for i = 0, 0.175, 0.005 do
  350. resource.Theme.Volume = i
  351. wait()
  352. end
  353. resource.Theme.Volume = 0.175
  354. else
  355. for i = 0.175, 0, -0.005 do
  356. resource.Theme.Volume = i
  357. wait()
  358. end
  359. resource.Theme.Volume = 0
  360. resource.Theme:Stop()
  361. end
  362. else
  363. do
  364. if Type == "WeaponMaster" then
  365. local phase, data, trigger = unpack(d)
  366. if phase == "Equip" then
  367. if not var.CurrentWeaponAsset then
  368. var.CurrentWeaponAsset = {}
  369. end
  370. if not var.LastGun then
  371. var.LastGun = {}
  372. end
  373. if var.CurrentWeaponAsset[2] then
  374. var.CurrentWeaponAsset[2].BorderColor3 = _G.q[9]()
  375. end
  376. var.CurrentWeaponAsset[1] = data[1]
  377. var.CurrentWeaponAsset[2] = data[2]
  378. if not var.LastGun[3] then
  379. var.LastGun[3] = {}
  380. end
  381. if not var.LastGun[4] then
  382. var.LastGun[4] = {}
  383. end
  384. if trigger then
  385. if var.LastGun[2] and var.LastGun[2] ~= data[1] then
  386. var.LastGun[3][var.LastGun[2]] = _G.q[25]
  387. end
  388. var.LastGun[2] = data[1]
  389. var.LastGun[3][data[1]] = _G.q[24]
  390. resource.DrawUI_New:Fire("SwitchLast", data[1], _G.q[24])
  391. else
  392. var.LastGun[3][data[1]] = _G.q[24]
  393. resource.DrawUI_New:Fire("CheckLastGun", data[1], _G.q[24])
  394. end
  395. if data[2] then
  396. data[2].BorderColor3 = _G.q[32](255, 170, 0)
  397. end
  398. var.GunType = data[1]
  399. _G.CLIENT_SETTINGS.BaseSpeed = var.GunData[var.GunType][5] * 16
  400. local wep = r.RemoteFunction:InvokeServer(obf.WeaponMaster, var.GunType, {"Equip", data[1]})
  401. if var.GunType and var.GunData[var.GunType][2] and var.GunData[var.GunType][3] then
  402. g.GameFrame.Ammo.Label.Text = data[1]
  403. var.Shot = _G.q[25]
  404. if not var.Reloading[var.GunType] then
  405. var.ShootDebounce[var.GunType] = _G.q[25]
  406. g.GameFrame.Ammo.Text = var.GunData[var.GunType][2] .. "/" .. var.GunData[var.GunType][3]
  407. else
  408. g.GameFrame.Ammo.Text = "Reloading..."
  409. end
  410. g.GameFrame.Ammo.Visible = _G.q[24]
  411. else
  412. g.GameFrame.Ammo.Visible = _G.q[25]
  413. do
  414. do
  415. do
  416. if wep and shop.GunStore[3][data[1]].Stats.Type == "Melee" then
  417. local hitDebounce = _G.q[25]
  418. wep.Touched:Connect(function(h)
  419. local c = p.Character
  420. if c and h.Parent and var.ShootDebounce[var.GunType] and not hitDebounce then
  421. local hum = h.Parent:FindFirstChild("Humanoid")
  422. if hum and hum ~= var.Humanoid and hum.Health > 0 then
  423. resource.Hit:Play()
  424. r.RemoteEvent:FireServer(obf.DealDamage, h, h.Parent, {})
  425. hitDebounce = _G.q[24]
  426. else
  427. if var.Window[h.Name] and h.Transparency ~= 1 then
  428. resource.Hit:Play()
  429. r.RemoteEvent:FireServer(obf.DestroyGlass, h)
  430. hitDebounce = _G.q[24]
  431. else
  432. if h.Parent.Name == "Alarm" and h.Parent.Indicator.BrickColor ~= _G.q[3]("Really black") then
  433. resource.Hit:Play()
  434. r.RemoteEvent:FireServer(obf.Interaction, h.Parent, "Bullet")
  435. hitDebounce = _G.q[24]
  436. else
  437. local stat = module:Find(h.Parent.Parent, "Statistics")
  438. if stat then
  439. local hull = stat:FindFirstChild("CurrentHull")
  440. if hull and hull.Value > 0 then
  441. resource.Hit:Play()
  442. r.RemoteEvent:FireServer(obf.Interaction, hull.Parent, "Bullet")
  443. hitDebounce = _G.q[24]
  444. end
  445. else
  446. do
  447. do
  448. local hull = h.Parent:FindFirstChild("Hull")
  449. if hull and hull.Value > 0 then
  450. resource.Hit:Play()
  451. r.RemoteEvent:FireServer(obf.Interaction, hull.Parent, "Bullet")
  452. hitDebounce = _G.q[24]
  453. end
  454. wait(var.GunData[var.GunType][1])
  455. hitDebounce = _G.q[25]
  456. end
  457. end
  458. end
  459. end
  460. end
  461. end
  462. end
  463. end)
  464. end
  465. if data[1] == "Handcuffs" then
  466. g.GameFrame.Ammo.Visible = _G.q[25]
  467. end
  468. if trigger then
  469. resource.DrawUI_New:Fire("SwitchLast", var.LastGun[2], _G.q[25)
  470. var.LastGun[2] = var.GunType
  471. else
  472. resource.DrawUI_New:Fire("CheckLastGun", nil, _G.q[25)
  473. end
  474. var.GunType = nil
  475. _G.CLIENT_SETTINGS.BaseSpeed = 16
  476. r.RemoteFunction:InvokeServer(obf.WeaponMaster, var.GunType, {"Unequip")
  477. g.GameFrame.Ammo.Visible = _G.q[25]
  478. if var.CurrentWeaponAsset[2] then
  479. var.CurrentWeaponAsset[2].BorderColor3 = _G.q[9]()
  480. end
  481. var.CurrentWeaponAsset = {}
  482. if Type == "Instruct" then
  483. local frame, text, boundsTable = unpack(d)
  484. if var.CurrentInstruction ~= text or boundsTable and var.CurrentColor ~= boundsTable[2] then
  485. var.CurrentInstruction = text
  486. if boundsTable then
  487. var.CurrentColor = boundsTable[1][2]
  488. end
  489. g["InstructionsFrame" .. frame]:ClearAllChildren()
  490. local endSize, endSize2 = 0, 0
  491. local labels = {}
  492. local lastXPos = 0
  493. for i = 1, #text do
  494. local currentChar = text:sub(i, i)
  495. local vec2Size = ts:GetTextSize(currentChar, 21, Enum.Font.SourceSans, _G.q[7](1000, 23))
  496. local label = _G.q[1]("TextLabel")
  497. label.Name = currentChar
  498. label.Font = Enum.Font.SourceSans
  499. label.TextSize = 21
  500. if boundsTable and #boundsTable > 0 then
  501. for i2 = 1, #boundsTable do
  502. local v = boundsTable[i2]
  503. if v[1] then
  504. if type(v[2]) == "number" then
  505. if v[1] < i and i < v[2] then
  506. label.TextColor3 = v[3]
  507. else
  508. label.TextColor3 = _G.q[9](1, 1, 1)
  509. end
  510. else
  511. if v[1] < i then
  512. label.TextColor3 = v[2]
  513. else
  514. label.TextColor3 = _G.q[9](1, 1, 1)
  515. end
  516. end
  517. else
  518. label.TextColor3 = _G.q[9](1, 1, 1)
  519. end
  520. end
  521. else
  522. do
  523. do
  524. label.TextColor3 = _G.q[9](1, 1, 1)
  525. label.TextStrokeTransparency = 0.75
  526. label.Size = _G.q[8](0, vec2Size.X + 2, 0, 0)
  527. endSize = endSize + vec2Size.X + 1 / #text
  528. endSize2 = vec2Size.X + 2
  529. label.BackgroundTransparency = 1
  530. label.Text = currentChar
  531. if currentChar ~= " " then
  532. lastXPos = lastXPos - 2
  533. label.Position = _G.q[8](0, lastXPos, 0, 0)
  534. else
  535. label.Position = _G.q[8](0, lastXPos, 0, 0)
  536. end
  537. label.ZIndex = 7
  538. label.Parent = g["InstructionsFrame" .. frame]
  539. lastXPos = lastXPos + vec2Size.X + 2
  540. _G.q[26](labels, label)
  541. -- DECOMPILER ERROR at PC948: LeaveBlock: unexpected jumping out DO_STMT
  542.  
  543. -- DECOMPILER ERROR at PC948: LeaveBlock: unexpected jumping out IF_ELSE_STMT
  544.  
  545. -- DECOMPILER ERROR at PC948: LeaveBlock: unexpected jumping out IF_STMT
  546.  
  547. end
  548. end
  549. end
  550. end
  551. g["InstructionsFrame" .. frame].Size = _G.q[8](0, endSize, 0, endSize2)
  552. g["InstructionsFrame" .. frame].Position = _G.q[8](0.5, -(endSize) / 2, g["InstructionsFrame" .. frame].Position.Y.Scale, 0)
  553. return labels
  554. end
  555. else
  556. do
  557. -- DECOMPILER ERROR at PC1002: Unhandled construct in 'MakeBoolean' P1
  558.  
  559. if Type == "CheckInstruction" and d[1] and var.CurrentInstruction == d[1] then
  560. g.InstructionsFrame1.Visible = _G.q[25]
  561. end
  562. if var.Humanoid and var.Humanoid.Health > 0 then
  563. g.InstructionsFrame1.Visible = _G.q[24]
  564. end
  565. if Type == "CheckSeat" and _G.Seat then
  566. local v = _G.Seat:FindFirstChild(d[1])
  567. if v then
  568. v.Value = d[2]
  569. end
  570. end
  571. end
  572. end
  573. end
  574. end
  575. end
  576. end
  577. end
  578. end
  579. end
  580. end
  581. end
  582. end
  583. end
  584. end
  585. end
  586. end
  587. end
  588. end
  589. end
  590. end
  591. end
  592. end
  593. end
  594. end
  595. end
  596. end
  597. end
  598. end
  599. end
  600. end
  601. end
  602.  
  603. module.ret = function(RetType, ...)
  604. local d = {...}
  605. if RetType == "GetMagnitude" then
  606. local obj, objType, key, wantTable = unpack(d)
  607. local wtable = {}
  608. if var.Humanoid and var.Humanoid.Health > 0 and var.Root then
  609. if objType == "Door" then
  610. local magnitude = obj.PrimaryPart.Position - var.Root.Position.magnitude
  611. if magnitude <= 10 then
  612. return _G.q[24]
  613. end
  614. else
  615. do
  616. do
  617. do
  618. if objType == "Structure" then
  619. local ray = module.ret("GetRay", var.Humanoid, obj, c)
  620. if ray and var.Root.CFrame.Y < obj.Base.Roof.CFrame.Y then
  621. if not wantTable then
  622. return _G.q[24]
  623. else
  624. _G.q[26](wtable, c)
  625. end
  626. end
  627. end
  628. if not wantTable then
  629. return _G.q[25]
  630. else
  631. if #wtable > 0 then
  632. return _G.q[24], wtable
  633. else
  634. return _G.q[25]
  635. end
  636. end
  637. if RetType == "Inverse" then
  638. if d[1] == 3 then
  639. return 1
  640. else
  641. return 3
  642. end
  643. else
  644. if RetType == "GetScore" then
  645. local score = d[1][4][2] / (d[1][3][1] / module.ret("Inverse", d[1][3][2]))
  646. if score > 0.2 then
  647. if score > 0.4 then
  648. if score > 0.6 then
  649. if score > 0.8 then
  650. if score >= 1 then
  651. if score == 3 then
  652. return {"S", _G.q[9](1, 1, 0)}
  653. else
  654. return {"A", _G.q[32](255, 200, 0)}
  655. end
  656. else
  657. return {"B", _G.q[32](255, 170, 0)}
  658. end
  659. else
  660. return {"C", _G.q[32](255, 85, 0)}
  661. end
  662. else
  663. return {"D", _G.q[32](170, 0, 0)}
  664. end
  665. else
  666. return {"E", _G.q[32](85, 0, 0)}
  667. end
  668. else
  669. return {"F", _G.q[32](80, 40, 0)}
  670. end
  671. else
  672. do
  673. if RetType == "ReturnCharacters" then
  674. local chars = {}
  675. local t = pl:GetPlayers()
  676. for i = 1, #t do
  677. local p2 = t[i]
  678. if p2.Character then
  679. _G.q[26](chars, p2.Character)
  680. end
  681. end
  682. return chars
  683. else
  684. do
  685. if RetType == "GetRay" and var.Root then
  686. local obj = unpack(d)
  687. local ray = _G.q[17](var.Root.Position, _G.q[2](0, 1000, 0))
  688. local c2 = module.ret("ReturnCharacters")
  689. local part, pos = w:FindPartOnRayWithIgnoreList(ray, {var.Character, w.Game.TargetFilter, unpack(c2)})
  690. if obj and part and module:GetParent(part, obj) then
  691. return part
  692. end
  693. do return part end
  694. return
  695. end
  696. end
  697. end
  698. end
  699. end
  700. end
  701. end
  702. end
  703. end
  704. end
  705. end
  706. end
  707. end
  708.  
  709. module.CheckSprint = function(self)
  710. if var.Humanoid then
  711. if _G.CLIENT_SETTINGS.CanMove then
  712. var.Humanoid.WalkSpeed = _G.q[34](_G.CLIENT_SETTINGS.BaseWalkSpeed, 0, 24)
  713. var.Humanoid.JumpPower = _G.q[34](_G.CLIENT_SETTINGS.BaseJumpPower, 0, 50)
  714. else
  715. var.Humanoid.WalkSpeed = 0
  716. var.Humanoid.JumpPower = 0
  717. end
  718. end
  719. end
  720.  
  721. local thread = module.new("ConnectionEvent", "New, resource, script)
  722. thread.Event:Connect(module.new)
  723. local switchDebounce, flipDebounce = nil, nil
  724. module.input = function(input, ...)
  725. local d = {...}
  726. local KeyConvert = {one = 1, two = 2, three = 3, four = 4, five = 5, six = 6, Seven = 7, eight = 8, nine = 9, zero = 0}
  727. if not _G.MODULE_LOG.Input then
  728. _G.MODULE_LOG.Input = {}
  729. end
  730. _G.MODULE_LOG.Input[input[1]] = d[1]
  731. if var.Humanoid and var.Humanoid.Health > 0 then
  732. if KeyConvert[input[1]] and d[1] and var.LastGun and p.Role.Value ~= "Prisoner" and var.LastGun[2] and not switchDebounce then
  733. switchDebounce = _G.q[24]
  734. local v = KeyConvert[input[1]]
  735. local last = var.LastGun[4][v]
  736. if last then
  737. if not var.LastGun[3][last] then
  738. var.LastGun[3][last] = _G.q[24]
  739. if var.GunType then
  740. var.LastGun[3][var.GunType] = _G.q[25]
  741. end
  742. local getWeaponAsset = function(n)
  743. local t = g.PlayerFrame.WeaponWheelFrame.WeaponsFrame:GetChildren()
  744. for i = 1, #t do
  745. local v = t[i]
  746. local l = v:FindFirstChild("NameLabel")
  747. if l and l.Text == n then
  748. return v
  749. end
  750. end
  751. return
  752. end
  753.  
  754. module.new("WeaponMaster", "Equip", {last, getWeaponAsset(last)})
  755. else
  756. do
  757. do
  758. var.LastGun[3][last] = _G.q[25]
  759. if var.GunType and var.GunType == last then
  760. module.new("WeaponMaster", "Unequip")
  761. end
  762. wait(0.1)
  763. switchDebounce = _G.q[25]
  764. if input[1] == "space" and d[1] and var.Root then
  765. resource.Vehicle_New:Fire("Kill, var.Root.CFrame)
  766. end
  767. -- DECOMPILER ERROR at PC202: Unhandled construct in 'MakeBoolean' P1
  768.  
  769. if input[1] == "m" and d[1] and #var.Bomb > 0 and var.Humanoid and var.Humanoid.Health > 0 then
  770. r.RemoteFunction:InvokeServer(obf.WeaponMaste, var.GunType, {"DetonateC4",
  771. {var.Bomb[1], var.Bomb[1].CFrame, var.Bomb[2]}
  772. })
  773. if var.Bomb[1] then
  774. var.Bomb[1]:Destroy()
  775. end
  776. var.Bomb = {}
  777. if var.ShootDebounce[var.GunType] then
  778. var.ShootDebounce[var.GunType] = _G.q[25]
  779. end
  780. end
  781. if input[1] == "e" or input[1] == "touch" then
  782. local v = _G.MODULE_LOG.DrawUI_Return:Invoke("GetAdornee, "BillboardGui")
  783. if v and v[2] and v[3]:lower() == input[1] and _G.CLIENT_SETTINGS.CanMove then
  784. local stat = module:GetStatistics(v[2])
  785. module.Interact(d[1], stat, v[2])
  786. end
  787. else
  788. do
  789. -- DECOMPILER ERROR at PC289: Unhandled construct in 'MakeBoolean' P1
  790.  
  791. if input[1] == "c" and d[1] and p.Role.Value ~= "Prisoner" then
  792. _G.MODULE_LOG.DrawUI_New:Fire("SetMainUI, "WeaponWheel")
  793. end
  794. if input[1] == "leftshift" or input[1] == "rightshift" then
  795. _G.MODULE_LOG.Render_New:Fire("Sprint, d[1])
  796. else
  797. if input[1] == "tab" and not var.TabDebounce then
  798. var.TabDebounce = _G.q[24]
  799. if not var.InTab then
  800. var.InTab = _G.q[24]
  801. g.LeaderboardFrame:TweenPosition(_G.q[8](0.85, 0, 0, 0, "Out", "Quad", 0.25, _G.q[24])
  802. else
  803. var.InTab = _G.q[25]
  804. g.LeaderboardFrame:TweenPosition(_G.q[8](1.5, 0, 0, 0, "Out", "Quad", 0.5, _G.q[24])
  805. end
  806. wait(0.5)
  807. var.TabDebounce = _G.q[25]
  808. end
  809. end
  810. if input[1] == "g" and d[1] then
  811. _G.MODULE_LOG.DrawUI_New:Fire("SetMainUI, "Group")
  812. else
  813. -- DECOMPILER ERROR at PC408: Unhandled construct in 'MakeBoolean' P1
  814.  
  815. if input[1] == "f" and d[1] and p.Role.Value ~= "Prisoner" then
  816. _G.MODULE_LOG.DrawUI_New:Fire("SetMainUI, "Inventory")
  817. end
  818. end
  819. if input[1] == "x" and d[1] then
  820. _G.MODULE_LOG.DrawUI_New:Fire("ToggleOverlay)
  821. else
  822. if input[1] == "r" and d[1] then
  823. _G.MODULE_LOG.Render_New:Fire("Reload)
  824. _G.MODULE_LOG.Design_New:Fire("SetRotation)
  825. else
  826. if input[1] == "p" and d[1] then
  827. resource.InitializeUI_New:Fire("Sector, _G.q[24])
  828. else
  829. if input[1] == "l" and d[1] then
  830. _G.MODULE_LOG.Vehicle_New:Fire("Headlight)
  831. else
  832. if input[1] == "h" then
  833. r.RemoteEvent:FireServer(obf.AttachCa, "Horn")
  834. else
  835. if input[1] == "y" and d[1] then
  836. r.RemoteEvent:FireServer(obf.AttachCa, "Siren")
  837. else
  838. if input[1] == "t" then
  839. var.T = d[1]
  840. if d[1] then
  841. g.PlayerFrame.InfBar:TweenPosition(_G.q[8](0.45, 0, 0.125, -10, "Out", "Quad", 0.1, _G.q[24])
  842. else
  843. g.PlayerFrame.InfBar:TweenPosition(_G.q[8](0.45, 0, -0.5, 0, "Out", "Quad", 1, _G.q[24])
  844. end
  845. else
  846. if input[1] == "v" and d[1] and _G.Car and not flipDebounce then
  847. flipDebounce = _G.q[24]
  848. r.RemoteEvent:FireServer(obf.AttachCa, "AttemptFlip")
  849. wait(0.25)
  850. flipDebounce = _G.q[25]
  851. end
  852. end
  853. end
  854. end
  855. end
  856. end
  857. end
  858. end
  859. if (input[1] == "w" or input[1] == "up") and _G.Car then
  860. if d[1] then
  861. if not _G.MODULE_LOG.Input.s or not not _G.MODULE_LOG.Input.down then
  862. module.new("CheckSeat", "Throttle, 1)
  863. r.RemoteEvent:FireServer("Throttle, 1)
  864. else
  865. module.new("CheckSeat", "Throttle, 0)
  866. r.RemoteEvent:FireServer("Throttle, 0)
  867. end
  868. else
  869. if not _G.MODULE_LOG.Input.s or not not _G.MODULE_LOG.Input.down then
  870. module.new("CheckSeat", "Throttle, 0)
  871. r.RemoteEvent:FireServer("Throttle, 0)
  872. end
  873. end
  874. else
  875. if (input[1] == "a" or input[1] == "left") and _G.Car then
  876. if d[1] then
  877. module.new("CheckSeat", "Steer, -1)
  878. r.RemoteEvent:FireServer("Steer, -1)
  879. else
  880. if not _G.MODULE_LOG.Input.d and not _G.MODULE_LOG.Input.right then
  881. module.new("CheckSeat", "Steer, 0)
  882. r.RemoteEvent:FireServer("Steer, 0)
  883. end
  884. end
  885. else
  886. if (input[1] == "s" or input[1] == "down") and _G.Car then
  887. if d[1] then
  888. if not _G.MODULE_LOG.Input.w and not _G.MODULE_LOG.Input.up then
  889. module.new("CheckSeat", "Throttle, -1)
  890. r.RemoteEvent:FireServer("Throttle, -1)
  891. else
  892. module.new("CheckSeat", "Throttle, 0)
  893. r.RemoteEvent:FireServer("Throttle, 0)
  894. end
  895. else
  896. if not _G.MODULE_LOG.Input.w and not _G.MODULE_LOG.Input.up then
  897. module.new("CheckSeat", "Throttle, 0)
  898. r.RemoteEvent:FireServer("Throttle, 0)
  899. end
  900. end
  901. else
  902. if (input[1] == "d" or input[1] == "right") and _G.Car then
  903. if d[1] then
  904. module.new("CheckSeat", "Steer, 1)
  905. r.RemoteEvent:FireServer("Steer, 1)
  906. else
  907. if not _G.MODULE_LOG.Input.a and not _G.MODULE_LOG.Input.left then
  908. module.new("CheckSeat", "Steer, 0)
  909. r.RemoteEvent:FireServer("Steer, 0)
  910. end
  911. end
  912. end
  913. end
  914. end
  915. end
  916. if d[1] and input[2] and input[1] ~= "q" and input[1] ~= "e" and input[1] ~= "t" then
  917. _G.MODULE_LOG.Input[input[1]] = _G.q[25]
  918. end
  919. end
  920. end
  921. end
  922. end
  923. end
  924. end
  925. end
  926. end
  927. end
  928.  
  929. module.GetParent = function(self, o, p3)
  930. local gP = function(p4)
  931. if p4 and p4 ~= w.Game then
  932. if p4.Parent == p3 then
  933. return _G.q[24]
  934. end
  935. return gP(p4.Parent)
  936. end
  937. return
  938. end
  939.  
  940. return gP(o)
  941. end
  942.  
  943. module.Find = function(self, o, l, ignore)
  944. local fH = function(p)
  945. do
  946. if p.Parent and p.Parent ~= w.Game then
  947. if not p:FindFirstChild(l) then
  948. local f = p.Parent:FindFirstChild(l)
  949. end
  950. if (ignore and not ignore[p.Parent.Name]) or not ignore then
  951. return f
  952. end
  953. return fH(p.Parent)
  954. end
  955. return
  956. end
  957. end
  958.  
  959. local fH2 = function(p)
  960. local t = p:GetChildren()
  961. for i = 1, #t do
  962. local f = t[i]
  963. if f.Name == l then
  964. return f
  965. end
  966. return fH2(f)
  967. end
  968. return
  969. end
  970.  
  971. if not fH(o) then
  972. return fH2(o)
  973. end
  974. end
  975.  
  976. module.Interact = function(...)
  977. local d = {...}
  978. local stat, i, item = nil, nil, nil
  979. if d[2] then
  980. stat = d[2]
  981. i = stat.InteractType
  982. else
  983. i = "Interact"
  984. end
  985. item = d[3]
  986. if d[1] then
  987. if i == "Take" then
  988. local i2 = r.RemoteFunction:InvokeServer(obf.Interact, item)
  989. else
  990. do
  991. if i == "Interact" then
  992. local open = item:FindFirstChild("Open")
  993. local key2 = item.Parent:FindFirstChild("ClientKey")
  994. if var.Humanoid:GetState() ~= Enum.HumanoidStateType.Seated and key2 and _G.clientStructTable[_G.q[19](key2.Value)] and _G.clientStructTable[_G.q[19](key2.Value)][2][3] then
  995. if not open.Value then
  996. r.RemoteEvent2:FireServer(obf.DoorFunction, item, "Open", 1)
  997. module.new("DoorFunction", item, "Open", 1)
  998. else
  999. r.RemoteEvent2:FireServer(obf.DoorFunction, item, "Close", 1)
  1000. module.new("DoorFunction", item, "Close", 1)
  1001. end
  1002. end
  1003. else
  1004. do
  1005. if i == "View Store" then
  1006. local gf = g.GameFrame
  1007. local s = gf:FindFirstChild(stat.Store)
  1008. if s and p.Role.Value ~= "Prisoner" and not var.Shuffling then
  1009. if s.Visible then
  1010. _G.MODULE_LOG.DrawUI_New:Fire("SetMainUI", s.Name .. "Shop")
  1011. else
  1012. module:Set("Store", s)
  1013. resource.ClientUI_New:Fire("ViewShop", s)
  1014. _G.MODULE_LOG.DrawUI_New:Fire("SetMainUI", s.Name .. "Shop")
  1015. end
  1016. end
  1017. else
  1018. do
  1019. -- DECOMPILER ERROR at PC177: Unhandled construct in 'MakeBoolean' P1
  1020.  
  1021. if (i == "Drive" or i == "Enter") and var.Humanoid:GetState() ~= Enum.HumanoidStateType.Seated and not var.SitDebounce then
  1022. var.SitDebounce = _G.q[24]
  1023. r.RemoteEvent:FireServer(obf.AttachCar, "AttemptSit", stat.Raw)
  1024. end
  1025. local i2 = stat.Raw:FindFirstChild("InteractType")
  1026. do
  1027. if i2 then
  1028. local w = i2:FindFirstChild("Work")
  1029. if w then
  1030. _G.MODULE_LOG.DrawUI_New:Fire("Work", i, w.Value, item)
  1031. end
  1032. end
  1033. if stat then
  1034. local i2 = stat.Raw:FindFirstChild("InteractType")
  1035. if i2 then
  1036. local w = i2:FindFirstChild("Work")
  1037. if w then
  1038. _G.MODULE_LOG.DrawUI_New:Fire("StopWork")
  1039. end
  1040. end
  1041. end
  1042. end
  1043. end
  1044. end
  1045. end
  1046. end
  1047. end
  1048. end
  1049. end
  1050. end
  1051.  
  1052. module.manualInput = function(input, ...)
  1053. local d = {...}
  1054. module.input({input, _G.q[24]}, d[1])
  1055. end
  1056.  
  1057. module.SetModuleLog = function(self, ...)
  1058. local d = {...}
  1059. _G.MODULE_LOG[d[1]] = d[2]
  1060. end
  1061.  
  1062. module.GetStatistics = function(self, obj)
  1063. if obj then
  1064. local stat = obj:FindFirstChild("Statistics")
  1065. if stat then
  1066. local ret = {Raw = stat}
  1067. local t = stat:GetChildren()
  1068. for v = 1, #t do
  1069. if t[v].ClassName ~= "Folder" then
  1070. ret[t[v].Name] = t[v].Value
  1071. else
  1072. ret[t[v].Name] = t[v]:GetChildren()
  1073. end
  1074. end
  1075. return ret
  1076. end
  1077. end
  1078. do
  1079. return
  1080. end
  1081. end
  1082.  
  1083. local onInput = function(i, g)
  1084. if not g and i.UserInputType == Enum.UserInputType.Keyboard then
  1085. module.input({tostring(i.KeyCode):gsub("Enum.KeyCode.", ""):lower(), _G.q[25]}, _G.q[24])
  1086. end
  1087. end
  1088.  
  1089. local onInputEnded = function(i, g)
  1090. if not g and i.UserInputType == Enum.UserInputType.Keyboard then
  1091. module.input({tostring(i.KeyCode):gsub("Enum.KeyCode.", ""):lower(), _G.q[25]}, _G.q[25])
  1092. end
  1093. end
  1094.  
  1095. u.InputBegan:Connect(onInput)
  1096. u.InputEnded:Connect(onInputEnded)
  1097. module.GetModules = function(self)
  1098. local r2 = {}
  1099. local t = script:GetChildren()
  1100. for i = 1, #t do
  1101. local v = t[i]
  1102. if v:IsA("ModuleScript") then
  1103. table.insert(r2, v)
  1104. end
  1105. end
  1106. return r2
  1107. end
  1108.  
  1109. module.GetObjects = function(self)
  1110. local r2 = {}
  1111. local t = script.Resource:GetChildren()
  1112. for i = 1, #t do
  1113. local v = t[i]
  1114. table.insert(r2, v)
  1115. end
  1116. return r2
  1117. end
  1118.  
  1119. module.Set = function(self, var2, val)
  1120. var[var2] = val
  1121. return var[var2]
  1122. end
  1123.  
  1124. module.Get = function(self, var2)
  1125. return var[var2]
  1126. end
  1127.  
  1128. module.GetObfuscate = function(self)
  1129. return obf, rem
  1130. end
  1131.  
  1132. module.GetGlobalVariables = function(self)
  1133. return var
  1134. end
  1135.  
  1136. module.GetShop = function(self, f)
  1137. if f then
  1138. return shop[tostring(f)]
  1139. end
  1140. return shop
  1141. end
  1142.  
  1143. module.GetPlayerData = function(self)
  1144. local dict = function()
  1145. local r2 = {Player = pl.LocalPlayer}
  1146. local t = r2.Player.Data:GetChildren()
  1147. for i = 1, #t do
  1148. r2[t[i].Name] = t[i]
  1149. end
  1150. return r2
  1151. end
  1152.  
  1153. return dict()
  1154. end
  1155.  
  1156. module.Initialize = function(p2, d, ...)
  1157. local d2 = {...}
  1158. p = p2
  1159. obf = d[1]
  1160. shop = d[3]
  1161. var.GunData = d[5]
  1162. var.Ranks = d[14]
  1163. g = unpack(d2)
  1164. resource.DrawUI_New:Fire("SetUIMaster", "UI_PARTS", _G.q[24], "Group", g.GameFrame.GroupFrame)
  1165. end
  1166.  
  1167. return module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!