Advertisement
SirBaconBitz

Plus's Sexy Radar

Mar 2nd, 2014
209
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.91 KB | None | 0 0
  1.  --Constants--
  2. gSide = "top"
  3. sSide = "right"
  4. rX=2
  5. rY=2
  6. rW=85
  7. rH=85
  8. rB=0x000000
  9. rA=.7
  10. friends={"PlusnPlay","friendname"}
  11. chR=1
  12. chC=0xCCCCCC
  13. oC=0x009999
  14. pC=0xFFFF00
  15. hC=0xFF0000
  16. fC=0x00FF00
  17. sT=4
  18. firstrun=true
  19. --End Constants--
  20.  
  21. --Gets the owner name
  22. herp = fs.exists("ownername")
  23. ownernam = read()
  24. if herp == false then
  25.     local handle = assert(fs.open("ownername", "w"), "Couldn't save vars")
  26.     handle.write(ownernam)
  27.     handle.close()
  28. end
  29. local handle = assert(fs.open("ownername", "r"), "Couldn't save vars")
  30. owner = handle.readAll()
  31.  
  32. function createGui()
  33. --Clear the current GUI.
  34. glasses.clear()
  35. --Add the main box.
  36. glasses.addBox(rX,rY,rW,rH,rB,rA)
  37. --Add the crosshairs.
  38. if chR%2==0 then
  39.   glasses.addBox((((rW/2)+rX)-chR),(rH/2)+rY,chR*2,1,chC,rA)
  40.   glasses.addBox((rW/2)+rX,(((rH/2)+rY)-chR),1,chR*2,chC,rA)
  41. else
  42.   glasses.addBox((((rW/2)+rX)-chR),(rH/2)+rY,chR*2+1,1,chC,rA)
  43.   glasses.addBox((rW/2)+rX,(((rH/2)+rY)-chR),1,chR*2+1,chC,rA)
  44. end
  45. end
  46. function convCoords(x,z)
  47.  
  48. local x2=((rW/2)+rX)+((rW/(sT*16))*x)
  49. local y2=((rH/2)+rY)+((rH/(sT*16))*z)
  50. return {x2,y2}
  51. end
  52.  
  53. --DONT NEED A FUNCTION FOR THE PERIPHERALS >_>
  54. prox=peripheral.wrap("right")
  55. glasses=peripheral.wrap("top")
  56. glasses.clear()
  57.  
  58.  
  59. --I'm assuming this marks a new entity
  60. function markEntityNew(coorda,diplo)
  61. x=coorda[1]
  62. y=coorda[2]
  63. if diplo=="owner" then
  64.   ent = glasses.addBox(x,y,1,1,oC,1)
  65.     elseif diplo=="friend" then
  66.   ent = glasses.addBox(x,y,1,1,fC,1)
  67.     elseif diplo=="player" then
  68.   ent = glasses.addBox(x,y,1,1,pC,1)
  69.     elseif diplo=="foe" then
  70.   ent = glasses.addBox(x,y,1,1,hC,1)
  71.     else
  72.   print("The programmer made an error.")
  73.     end
  74.     return ent
  75. end
  76.  
  77. --Displays that dynamic data.
  78. function continuouslyUpdateGui()
  79. local firsttrun = true
  80. glasses.clear()
  81. targes = {}
  82. targes = prox.getPlayerNames()
  83.  
  84. --Something is causing this to break. Break as in exit the loop, WHICH IS FUNNY BECAUSE IT FUCKING BREAKS IT >:
  85.     while true do
  86.     glasses.clear()
  87.     newtarges = prox.getPlayerNames()
  88.         for num, name in pairs(newtarges) do
  89.             exists = false
  90.             for numtwo, nametwo in pairs(targes) do
  91.                 if name == nametwo then
  92.                     exists = true
  93.                     print(name.." Already exists as "..nametwo)
  94.                 end
  95.             end
  96.             if exists == false then
  97.                 table.insert(targes, name)
  98.                 print("Inserted: "..name)
  99.             end
  100.         end
  101. -- Why the hell are there two of these?
  102.         for k, v in pairs(targes) do
  103.             friend = false
  104.             herp = "NOPE"
  105.             targets={}
  106.             for targetNum,targetname in pairs(targes) do
  107.             targetInfo = prox.getPlayerData(targetname)
  108.             coords=convCoords(targetInfo.position.x,targetInfo.position.z)
  109.                 if targetname==owner then
  110.                     table.insert(targets,markEntityNew(coords,"owner"))
  111.                 elseif targetname~=owner then
  112.                     table.insert(targets,markEntityNew(coords,"player"))
  113.                 end
  114.             end
  115.         end
  116. -- SUCH CONFUSION
  117. --WHAT THE HELL IS T SUPPOSED TO BE
  118.     sleep(0.05)
  119.     firstrun = false
  120.     end
  121. end
  122.  
  123. continuouslyUpdateGui()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement