HungerJohnson

Untitled

May 29th, 2013
169
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.81 KB | None | 0 0
  1. TOOL.Category       = "Sinavestos"      // Name of the category
  2. TOOL.Name           = "#DebugInfo"      // Name to display
  3. TOOL.Command        = nil               // Command on click (nil for default)
  4. TOOL.ConfigName     = nil               // Config file name (nil for default)
  5. TOOL.used = 0
  6.  
  7. // An example clientside convar
  8. TOOL.ClientConVar["CLIENTSIDE"] = "default"
  9.  
  10. // An example serverside convar
  11. TOOL.ServerConVar["SERVERSIDE"] = "default"
  12.  
  13. function TOOL:LeftClick()
  14. if SERVER then
  15.     if self.used > CurTime() then return end
  16.     self.used = CurTime() + 1
  17.     local tracedata = {}
  18.     tracedata.start = self:GetOwner():GetShootPos()
  19.     tracedata.endpos = tracedata.start + ( self:GetOwner():GetAimVector() * 15000 )
  20.     tracedata.filter = self:GetOwner()
  21.     tracedata.mask = -1
  22.     local trace = util.TraceLine( tracedata )
  23.     if trace.Entity and trace.Entity:IsValid() then
  24.         /*if trace.Entity:GetName() then self:GetOwner():ChatPrint("Name: " .. trace.Entity:GetName() ) end*/
  25.         self:GetOwner():ChatPrint("Entity: " .. tostring(trace.Entity) )
  26.         self:GetOwner():ChatPrint("Pos: " .. tostring(trace.Entity:GetPos()) )
  27.         self:GetOwner():ChatPrint("Angles: " .. tostring(trace.Entity:GetAngles()) )
  28.         self:GetOwner():ChatPrint("Class: " .. tostring(trace.Entity:GetClass()) )
  29.         self:GetOwner():ChatPrint("Model: " .. tostring(trace.Entity:GetModel()) )
  30.         self:GetOwner():ChatPrint("OBB Min/Max: " .. tostring(trace.Entity:OBBMins()) .. "/" .. tostring(trace.Entity:OBBMaxs()) )
  31.         self:GetOwner():ChatPrint("Mass: " .. tostring(trace.Entity:GetPhysicsObject():GetMass()) )
  32.     else
  33.         self:GetOwner():ChatPrint("Hit non-entity.")
  34.         self:GetOwner():ChatPrint("Position: " .. tostring(trace.HitPos))
  35.     end
  36.  
  37.     if trace.Entity:IsVehicle() then
  38.         local tracedata = {}
  39.         tracedata.start = self:GetOwner():GetShootPos()
  40.         tracedata.endpos = tracedata.start + ( self:GetOwner():GetAimVector() * 15000 )
  41.         tracedata.filter = { self:GetOwner(), trace.Entity }
  42.         tracedata.mask = -1
  43.         local trace = util.TraceLine( tracedata )
  44.         self:GetOwner():ChatPrint("Trace ignoring vehicle...")
  45.         if trace.Entity and trace.Entity:IsValid() then
  46.             self:GetOwner():ChatPrint("Entity: " .. tostring(trace.Entity) )
  47.             self:GetOwner():ChatPrint("Pos: " .. tostring(trace.Entity:GetPos()) )
  48.             self:GetOwner():ChatPrint("Angles: " .. tostring(trace.Entity:GetAngles()) )
  49.             self:GetOwner():ChatPrint("Class: " .. tostring(trace.Entity:GetClass()) )
  50.             self:GetOwner():ChatPrint("Model: " .. tostring(trace.Entity:GetModel()) )
  51.             self:GetOwner():ChatPrint("OBB Min/Max: " .. tostring(trace.Entity:OBBMins()) .. "/" .. tostring(trace.Entity:OBBMaxs()) )          self:GetOwner():ChatPrint("Mass: " .. tostring(trace.Entity:GetPhysicsObject():GetMass()) )
  52.         else
  53.             self:GetOwner():ChatPrint("Hit non-entity.")
  54.         end
  55.     end
  56. end
  57. end
  58.  
  59. function TOOL:RightClick( trace )
  60. end
  61.  
  62. function TOOL:Reload()
  63. end
  64.  
  65. function TOOL:Think()
  66. end
Advertisement
Add Comment
Please, Sign In to add comment