API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 28th, 2015
69
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.43 KB | None | 0 0
raw download clone embed print report
  1. concommand.Add("test_seat_configurator", function()
  2. if !LocalPlayer():IsOwner() then return end
  3. local e = LocalPlayer():GetEyeTrace().Entity
  4. if(not e:IsVehicle()) then return end
  5.  
  6. local tbl = lookForVT(e)
  7. if(not tbl) then return end
  8.  
  9. local tblSeats = tbl.PassengerSeats
  10.  
  11. local Frame = vgui.Create("DFrame")
  12. Frame:SetSize(ScrW() * 0.2, ScrH() * 0.3)
  13. Frame:AlignTop(5)
  14. Frame:AlignRight(5)
  15. Frame:SetTitle("Seat position fixer.")
  16.  
  17. local PanelList = vgui.Create("DPanelList", Frame)
  18. PanelList:StretchToParent(5, 27, 6, 25)
  19. PanelList:EnableVerticalScrollbar(true)
  20.  
  21. local PrintButton = vgui.Create("DButton", Frame)
  22. PrintButton:SetText("Print Lua Code To Console")
  23. PrintButton:StretchToParent(5, Frame:GetTall() - 25, 5, 5)
  24. PrintButton.DoClick = function()
  25. local tbl = lookForVT(e)
  26. if(not tbl) then print("FAILED TO DUMP DATA!") return end
  27.  
  28. local tblSeats = tbl.PassengerSeats
  29.  
  30. for i=1, 5 do
  31. print("")
  32. end
  33.  
  34. local s = "VEHICLE.PassengerSeats = {"
  35.  
  36. for k, v in pairs(tblSeats) do
  37. s = s .. "\n " .. Format("{Vector(%s, %s, %s), Angle(%s, %s, %s)},", v[1].x, v[1].y, v[1].z, v[2].p, v[2].y, v[2].r)
  38. end
  39.  
  40. s = s .. "\n" .. "};"
  41.  
  42. print(s)
  43.  
  44. for i=1, 5 do
  45. print("")
  46. end
  47. end
  48.  
  49. xSlider = vgui.Create("DNumSlider")
  50. xSlider:SetText("Seat Pos X")
  51. xSlider:SetMin(-500)
  52. xSlider:SetMax(500)
  53. xSlider:SetDecimals(0)
  54. xSlider:SetValue(e.vehicleTable.PassengerSeats[1][1].x)
  55. xSlider.ValueChanged = function(self, iValue)
  56. local v = e.vehicleTable.PassengerSeats[1][1]
  57. v.x = iValue
  58.  
  59. e.vehicleTable.PassengerSeats[1][1] = v
  60.  
  61. RunConsoleCommand("test_seat_xyz", iValue, ySlider:GetValue(), zSlider:GetValue())
  62. end
  63. PanelList:AddItem(xSlider)
  64.  
  65. ySlider = vgui.Create("DNumSlider")
  66. ySlider:SetText("Seat Pos Y")
  67. ySlider:SetMin(-500)
  68. ySlider:SetMax(500)
  69. ySlider:SetDecimals(0)
  70. ySlider:SetValue(e.vehicleTable.PassengerSeats[1][1].y)
  71. ySlider.ValueChanged = function(self, iValue)
  72. local v = e.vehicleTable.PassengerSeats[1][1]
  73. v.y = iValue
  74.  
  75. e.vehicleTable.PassengerSeats[1][1] = v
  76.  
  77. RunConsoleCommand("test_seat_xyz", xSlider:GetValue(), iValue, zSlider:GetValue())
  78. end
  79. PanelList:AddItem(ySlider)
  80.  
  81. zSlider = vgui.Create("DNumSlider")
  82. zSlider:SetText("Seat Pos Z")
  83. zSlider:SetMin(-500)
  84. zSlider:SetMax(500)
  85. zSlider:SetDecimals(0)
  86. zSlider:SetValue(e.vehicleTable.PassengerSeats[1][1].z)
  87. zSlider.ValueChanged = function(self, iValue)
  88. local v = e.vehicleTable.PassengerSeats[1][1]
  89. v.z = iValue
  90.  
  91. e.vehicleTable.PassengerSeats[1][1] = v
  92.  
  93. RunConsoleCommand("test_seat_xyz", xSlider:GetValue(), ySlider:GetValue(), iValue)
  94. end
  95.  
  96. PanelList:AddItem(zSlider)
  97.  
  98. local panel = vgui.Create("DPanel")
  99. panel.paint = function() end
  100. panel:SetTall(10)
  101. PanelList:AddItem(panel)
  102.  
  103. Frame:MakePopup()
  104. end)
  105.  
  106. concommand.Add("test_headlight_configurator", function()
  107. if !LocalPlayer():IsOwner() then return end
  108. local e = LocalPlayer():GetEyeTrace().Entity
  109. if(not e:IsVehicle()) then return end
  110.  
  111. local tbl = lookForVT(e)
  112. if(not tbl) then return end
  113.  
  114. local tblHeadlights = tbl.HeadlightPositions
  115.  
  116. local Frame = vgui.Create("DFrame")
  117. Frame:SetSize(ScrW() * 0.4, ScrH() * 0.7)
  118. Frame:AlignTop(5)
  119. Frame:AlignRight(5)
  120. Frame:SetTitle("Vehicle headlights fixer.")
  121.  
  122. local PanelList = vgui.Create("DPanelList", Frame)
  123. PanelList:StretchToParent(5, 27, 6, 25)
  124. PanelList:EnableVerticalScrollbar(true)
  125.  
  126. local PrintButton = vgui.Create("DButton", Frame)
  127. PrintButton:SetText("Print Lua Code To Console")
  128. PrintButton:StretchToParent(5, Frame:GetTall() - 25, 5, 5)
  129. PrintButton.DoClick = function()
  130. local tbl = lookForVT(e)
  131. if(not tbl) then print("FAILED TO DUMP DATA!") return end
  132.  
  133. local tblHeadlights = tbl.HeadlightPositions
  134.  
  135. for i=1, 5 do
  136. print("")
  137. end
  138.  
  139. local s = "VEHICLE.HeadlightPositions = {"
  140.  
  141. for k, v in pairs(tblHeadlights) do
  142. s = s .. "\n " .. Format("{Vector(%s, %s, %s), Angle(%s, %s, %s)},", v[1].x, v[1].y, v[1].z, v[2].p, v[2].y, v[2].r)
  143. end
  144.  
  145. s = s .. "\n" .. "};"
  146.  
  147. print(s)
  148.  
  149. for i=1, 5 do
  150. print("")
  151. end
  152. end
  153.  
  154. for k, v in pairs(tblHeadlights) do
  155. local NumSlider = vgui.Create("DNumSlider")
  156. NumSlider:SetText("Headlight #" .. k .. " Pos X: " .. k)
  157. NumSlider:SetMin(-500)
  158. NumSlider:SetMax(500)
  159. NumSlider:SetDecimals(0)
  160. NumSlider:SetValue(e.vehicleTable.HeadlightPositions[k][1].x)
  161. NumSlider.ValueChanged = function(self, iValue)
  162. local v = e.vehicleTable.HeadlightPositions[k][1]
  163. v.x = iValue
  164.  
  165. e.vehicleTable.HeadlightPositions[k][1] = v
  166. end
  167. PanelList:AddItem(NumSlider)
  168.  
  169. local NumSlider = vgui.Create("DNumSlider")
  170. NumSlider:SetText("Headlight #" .. k .. " Pos Y: " .. k)
  171. NumSlider:SetMin(-500)
  172. NumSlider:SetMax(500)
  173. NumSlider:SetDecimals(0)
  174. NumSlider:SetValue(e.vehicleTable.HeadlightPositions[k][1].y)
  175. NumSlider.ValueChanged = function(self, iValue)
  176. local v = e.vehicleTable.HeadlightPositions[k][1]
  177. v.y = iValue
  178.  
  179. e.vehicleTable.HeadlightPositions[k][1] = v
  180. end
  181. PanelList:AddItem(NumSlider)
  182.  
  183. local NumSlider = vgui.Create("DNumSlider")
  184. NumSlider:SetText("Headlight #" .. k .. " Pos Z: " .. k)
  185. NumSlider:SetMin(-500)
  186. NumSlider:SetMax(500)
  187. NumSlider:SetDecimals(0)
  188. NumSlider:SetValue(e.vehicleTable.HeadlightPositions[k][1].z)
  189. NumSlider.ValueChanged = function(self, iValue)
  190. local v = e.vehicleTable.HeadlightPositions[k][1]
  191. v.z = iValue
  192.  
  193. e.vehicleTable.HeadlightPositions[k][1] = v
  194. end
  195. PanelList:AddItem(NumSlider)
  196.  
  197. local NumSlider = vgui.Create("DNumSlider")
  198. NumSlider:SetText("Headlight #" .. k .. " Angle P: " .. k)
  199. NumSlider:SetMin(-180)
  200. NumSlider:SetMax(180)
  201. NumSlider:SetDecimals(0)
  202. NumSlider:SetValue(e.vehicleTable.HeadlightPositions[k][2].p)
  203. NumSlider.ValueChanged = function(self, iValue)
  204. local v = e.vehicleTable.HeadlightPositions[k][2]
  205. v.p = iValue
  206.  
  207. e.vehicleTable.HeadlightPositions[k][2] = v
  208. end
  209. PanelList:AddItem(NumSlider)
  210.  
  211. local NumSlider = vgui.Create("DNumSlider")
  212. NumSlider:SetText("Headlight #" .. k .. " Angle Y: " .. k)
  213. NumSlider:SetMin(-180)
  214. NumSlider:SetMax(180)
  215. NumSlider:SetDecimals(0)
  216. NumSlider:SetValue(e.vehicleTable.HeadlightPositions[k][2].y)
  217. NumSlider.ValueChanged = function(self, iValue)
  218. local v = e.vehicleTable.HeadlightPositions[k][2]
  219. v.y = iValue
  220.  
  221. e.vehicleTable.HeadlightPositions[k][2] = v
  222. end
  223. PanelList:AddItem(NumSlider)
  224.  
  225. local NumSlider = vgui.Create("DNumSlider")
  226. NumSlider:SetText("Headlight #" .. k .. " Angle R: " .. k)
  227. NumSlider:SetMin(-180)
  228. NumSlider:SetMax(180)
  229. NumSlider:SetDecimals(0)
  230. NumSlider:SetValue(e.vehicleTable.HeadlightPositions[k][2].r)
  231. NumSlider.ValueChanged = function(self, iValue)
  232. local v = e.vehicleTable.HeadlightPositions[k][2]
  233. v.r = iValue
  234.  
  235. e.vehicleTable.HeadlightPositions[k][2] = v
  236. end
  237. PanelList:AddItem(NumSlider)
  238.  
  239. local panel = vgui.Create("DPanel")
  240. panel.paint = function() end
  241. panel:SetTall(10)
  242. PanelList:AddItem(panel)
  243. end
  244.  
  245. Frame:MakePopup()
  246. end)
  247.  
  248. concommand.Add("test_taillight_configurator", function()
  249. if !LocalPlayer():IsOwner() then return end
  250. local e = LocalPlayer():GetEyeTrace().Entity
  251. if(not e:IsVehicle()) then return end
  252.  
  253. local tbl = lookForVT(e)
  254. if(not tbl) then return end
  255.  
  256. local tblTaillights = tbl.TaillightPositions
  257.  
  258.  
  259. local Frame = vgui.Create("DFrame")
  260. Frame:SetSize(ScrW() * 0.4, ScrH() * 0.7)
  261. Frame:AlignTop(5)
  262. Frame:AlignRight(5)
  263. Frame:SetTitle("Vehicle Taillights fixer.")
  264.  
  265. local PanelList = vgui.Create("DPanelList", Frame)
  266. PanelList:StretchToParent(5, 27, 6, 25)
  267. PanelList:EnableVerticalScrollbar(true)
  268.  
  269. local PrintButton = vgui.Create("DButton", Frame)
  270. PrintButton:SetText("Print Lua Code To Console")
  271. PrintButton:StretchToParent(5, Frame:GetTall() - 25, 5, 5)
  272. PrintButton.DoClick = function()
  273. local tbl = lookForVT(e)
  274. if(not tbl) then print("FAILED TO DUMP DATA!") return end
  275.  
  276. local tblTaillights = tbl.TaillightPositions
  277.  
  278.  
  279. for i=1, 5 do
  280. print("")
  281. end
  282.  
  283. local s = "VEHICLE.TaillightPositions = {"
  284.  
  285. for k, v in pairs(tblTaillights) do
  286. s = s .. "\n " .. Format("{Vector(%s, %s, %s), Angle(%s, %s, %s)},", v[1].x, v[1].y, v[1].z, v[2].p, v[2].y, v[2].r)
  287. end
  288.  
  289. s = s .. "\n" .. "};"
  290.  
  291. print(s)
  292.  
  293. for i=1, 5 do
  294. print("")
  295. end
  296. end
  297.  
  298. for k, v in pairs(tblTaillights) do
  299. local NumSlider = vgui.Create("DNumSlider")
  300. NumSlider:SetText("Taillight #" .. k .. " Pos X: " .. k)
  301. NumSlider:SetMin(-500)
  302. NumSlider:SetMax(500)
  303. NumSlider:SetDecimals(0)
  304. NumSlider:SetValue(e.vehicleTable.TaillightPositions[k][1].x)
  305. NumSlider.ValueChanged = function(self, iValue)
  306. local v = e.vehicleTable.TaillightPositions[k][1]
  307. v.x = iValue
  308.  
  309. e.vehicleTable.TaillightPositions[k][1] = v
  310. end
  311. PanelList:AddItem(NumSlider)
  312.  
  313. local NumSlider = vgui.Create("DNumSlider")
  314. NumSlider:SetText("Taillight #" .. k .. " Pos Y: " .. k)
  315. NumSlider:SetMin(-500)
  316. NumSlider:SetMax(500)
  317. NumSlider:SetDecimals(0)
  318. NumSlider:SetValue(e.vehicleTable.TaillightPositions[k][1].y)
  319. NumSlider.ValueChanged = function(self, iValue)
  320. local v = e.vehicleTable.TaillightPositions[k][1]
  321. v.y = iValue
  322.  
  323. e.vehicleTable.TaillightPositions[k][1] = v
  324. end
  325. PanelList:AddItem(NumSlider)
  326.  
  327. local NumSlider = vgui.Create("DNumSlider")
  328. NumSlider:SetText("Taillight #" .. k .. " Pos Z: " .. k)
  329. NumSlider:SetMin(-500)
  330. NumSlider:SetMax(500)
  331. NumSlider:SetDecimals(0)
  332. NumSlider:SetValue(e.vehicleTable.TaillightPositions[k][1].z)
  333. NumSlider.ValueChanged = function(self, iValue)
  334. local v = e.vehicleTable.TaillightPositions[k][1]
  335. v.z = iValue
  336.  
  337. e.vehicleTable.TaillightPositions[k][1] = v
  338. end
  339. PanelList:AddItem(NumSlider)
  340.  
  341. local NumSlider = vgui.Create("DNumSlider")
  342. NumSlider:SetText("Taillight #" .. k .. " Angle P: " .. k)
  343. NumSlider:SetMin(-180)
  344. NumSlider:SetMax(180)
  345. NumSlider:SetDecimals(0)
  346. NumSlider:SetValue(e.vehicleTable.TaillightPositions[k][2].p)
  347. NumSlider.ValueChanged = function(self, iValue)
  348. local v = e.vehicleTable.TaillightPositions[k][2]
  349. v.p = iValue
  350.  
  351. e.vehicleTable.TaillightPositions[k][2] = v
  352. end
  353. PanelList:AddItem(NumSlider)
  354.  
  355. local NumSlider = vgui.Create("DNumSlider")
  356. NumSlider:SetText("Taillight #" .. k .. " Angle Y: " .. k)
  357. NumSlider:SetMin(-180)
  358. NumSlider:SetMax(180)
  359. NumSlider:SetDecimals(0)
  360. NumSlider:SetValue(e.vehicleTable.TaillightPositions[k][2].y)
  361. NumSlider.ValueChanged = function(self, iValue)
  362. local v = e.vehicleTable.TaillightPositions[k][2]
  363. v.y = iValue
  364.  
  365. e.vehicleTable.TaillightPositions[k][2] = v
  366. end
  367. PanelList:AddItem(NumSlider)
  368.  
  369. local NumSlider = vgui.Create("DNumSlider")
  370. NumSlider:SetText("Taillight #" .. k .. " Angle R: " .. k)
  371. NumSlider:SetMin(-180)
  372. NumSlider:SetMax(180)
  373. NumSlider:SetDecimals(0)
  374. NumSlider:SetValue(e.vehicleTable.TaillightPositions[k][2].r)
  375. NumSlider.ValueChanged = function(self, iValue)
  376. local v = e.vehicleTable.TaillightPositions[k][2]
  377. v.r = iValue
  378.  
  379. e.vehicleTable.TaillightPositions[k][2] = v
  380. end
  381. PanelList:AddItem(NumSlider)
  382.  
  383. local panel = vgui.Create("DPanel")
  384. panel.paint = function() end
  385. panel:SetTall(10)
  386. PanelList:AddItem(panel)
  387. end
  388.  
  389. Frame:MakePopup()
  390. end)
  391.  
  392. do
  393. local iModel = 1
  394. local Frame
  395. local objPrev
  396. local function DisplayTick()
  397. if(not objPrev) then
  398. objPrev = ClientsideModel("models/error.mdl")
  399. end
  400. iModel = math.Clamp(iModel, 1, 2500)
  401.  
  402. objPrev:SetPos(LocalPlayer():GetEyeTraceNoCursor().HitPos + Vector(0, 0, 100))
  403. objPrev:SetModel("*" .. tostring(iModel))
  404. objPrev:SetAngles(Angle(0, CurTime() * 45, 0))
  405. end
  406.  
  407. concommand.Add("map_models", function(_, _, t)
  408. if(t[1] != "1") then iModel = 0 timer.Remove("DisplayTick") if(Frame) then Frame:Remove() end if(objPrev) then objPrev:Remove() objPrev = nil end return end
  409.  
  410. timer.Create("DisplayTick", 0.01, 0, DisplayTick)
  411.  
  412. Frame = vgui.Create("DFrame")
  413. Frame:SetSize(400, 100)
  414. Frame:AlignTop(5)
  415. Frame:AlignRight(5)
  416. Frame:SetTitle("Map Brush Models")
  417. Frame:SetVisible(true)
  418. Frame:MakePopup()
  419.  
  420. local NumSlider = vgui.Create("DNumSlider", Frame)
  421. NumSlider:SetText("Integer:")
  422. NumSlider:SetMin(0)
  423. NumSlider:SetMax(247)
  424. NumSlider:StretchToParent(5, 27, 5, 5)
  425. NumSlider:SetDecimals(0)
  426. NumSlider.ValueChanged = function(self, iValue)
  427. iModel = tonumber(iValue)
  428. end
  429. end)
  430. end
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!