Artes-s

Snow_wall_by_Artes

Dec 30th, 2015
773
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.88 KB | None | 0 0
  1. @name Snow_wall_by_Artes
  2. @persist [O E Base Set SnowWall]:entity Just N Table:table
  3. interval(100)
  4. if(first()){
  5. noDuplications()
  6. setName("Снежная стена от Artes'a")
  7. E=entity()
  8. O=owner()
  9. Just = 1
  10. Base = holoCreate(0,E:toWorld(vec(0,0,0)),vec(0.001),E:toWorld(ang(0,0,0)),vec(255),"cube") holoParent(0,E)
  11. Set = holoCreate(100,E:toWorld(vec(0,0,20)),vec(1),E:toWorld(ang(90,0,0)),vec(255),"models/hunter/blocks/cube1x2x05.mdl")
  12. holoAlpha(100,1)
  13. #1
  14. Table:pushArray(array(Base:toWorld(vec(0,0,5)),vec(1,2,1),Base:toWorld(ang(0,0,0)),vec(255),"hq_rcube"))
  15. Table:pushArray(array(Base:toWorld(vec(2,25,5)),vec(1,2,1),Base:toWorld(ang(0,-10,0)),vec(255),"hq_rcube"))
  16. Table:pushArray(array(Base:toWorld(vec(2,-25,5)),vec(1,2,1),Base:toWorld(ang(0,10,0)),vec(255),"hq_rcube"))
  17. Table:pushArray(array(Base:toWorld(vec(9,50,5)),vec(1,2,1),Base:toWorld(ang(0,-20,0)),vec(255),"hq_rcube"))
  18. Table:pushArray(array(Base:toWorld(vec(9,-50,5)),vec(1,2,1),Base:toWorld(ang(0,20,0)),vec(255),"hq_rcube"))
  19. #2
  20. Table:pushArray(array(Base:toWorld(vec(1,13,17)),vec(1,2,1),Base:toWorld(ang(0,-5,0)),vec(255),"hq_rcube"))
  21. Table:pushArray(array(Base:toWorld(vec(1,-13,17)),vec(1,2,1),Base:toWorld(ang(0,5,0)),vec(255),"hq_rcube"))
  22. Table:pushArray(array(Base:toWorld(vec(5,38,17)),vec(1,2,1),Base:toWorld(ang(0,-10,0)),vec(255),"hq_rcube"))
  23. Table:pushArray(array(Base:toWorld(vec(5,-38,17)),vec(1,2,1),Base:toWorld(ang(0,10,0)),vec(255),"hq_rcube"))
  24. #3
  25. Table:pushArray(array(Base:toWorld(vec(1,0,29)),vec(1,2,1),Base:toWorld(ang(0,0,0)),vec(255),"hq_rcube"))
  26. Table:pushArray(array(Base:toWorld(vec(2,25,29)),vec(1,2,1),Base:toWorld(ang(0,-10,0)),vec(255),"hq_rcube"))
  27. Table:pushArray(array(Base:toWorld(vec(2,-25,29)),vec(1,2,1),Base:toWorld(ang(0,10,0)),vec(255),"hq_rcube"))
  28. #4
  29. Table:pushArray(array(Base:toWorld(vec(1,13,41)),vec(1,2,1),Base:toWorld(ang(0,-5,0)),vec(255),"hq_rcube"))
  30. Table:pushArray(array(Base:toWorld(vec(1,-13,41)),vec(1,2,1),Base:toWorld(ang(0,5,0)),vec(255),"hq_rcube"))
  31. #Table:pushArray(array(Base:toWorld(vec(0,0,2)),vec(0.5),Base:toWorld(ang(0,0,0)),vec(255),"models/hunter/blocks/cube1x2x05.mdl"))
  32. }
  33. if(Table:count() > N) {
  34. while(holoCanCreate() & perf()) {
  35. N++
  36. local Holo = Table[N, array]
  37. holoCreate(N, Holo:vector(1), Holo:vector(2), Holo:angle(3), Holo:vector(4), Holo:string(5)):setModel(Holo:string(5))
  38. holoMaterial(N, Holo:string(6))
  39. holoAlpha(N,255)
  40. if(inrange(N,0,14)){ holoParent(N, Base)
  41. holoColor(N,vec(randint(150,255)))
  42. holoAlpha(N,randint(100,150))
  43. holoMaterial(N,"sprops/trans/lights/light_plastic")
  44. }
  45. }
  46. } else {
  47. if(O:weapon():type() == "weapon_crowbar") { setName("Снежная стена от Artes'a") Just = 1 O:weapon():setAlpha(0) } else { Just = 0 }
  48. if(Just){
  49. if(!SnowWall){
  50. holoPos(100,O:aimPos()+vec(0,0,20))
  51. holoAng(100,O:angles()+ang(0,0,0))
  52. if(changed(O:keyAttack2())&O:keyAttack2()){
  53. SnowWall = propSpawn(holoEntity(100):model(),holoEntity(100):pos(),holoEntity(100):angles()+ang(90,0,0),1)
  54. SnowWall:setAlpha(1)
  55. SnowWall:propFreeze(1)
  56. holoPos(0,SnowWall:pos()+vec(0,0,-15))
  57. holoAng(0,SnowWall:angles()+ang(-90,180,0))
  58. holoParent(0,SnowWall)
  59. noCollideAll(SnowWall,0)
  60. O:soundPlay(1,1,"ambient/materials/footsteps_glass1.wav")
  61. timer("holo",5000)
  62. timer("remove",4500)
  63. }
  64. }
  65. }
  66. if(clk("holo")){
  67. holoUnparent(0)
  68. holoPos(0,E:pos())
  69. holoAng(0,E:angles())
  70. holoParent(0,E)
  71. stoptimer("holo")
  72. }
  73. if(clk("remove")){
  74. SnowWall:remove(1)
  75. stoptimer("removed")
  76. }
  77. }
Add Comment
Please, Sign In to add comment