Advertisement
qaisjp

s_core : awesomeufo 2.4

Sep 24th, 2011
202
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 3.13 KB | None | 0 0
  1. local realufo = createObject ( 13607, -1326, -67, 55, 0, 0, 0 )
  2. local ufo = createVehicle(487, -1326, -67, 55,0,0,0) -- D:
  3. setVehicleDamageProof(ufo, true) -- uncomment this to make it vehicel styled..buggy :'(
  4. setElementFrozen(ufo, true)
  5. setElementAlpha(ufo, 0)
  6. setElementCollisionsEnabled(ufo, false)
  7. attachElements(realufo, ufo, 0,0,8)
  8. createBlipAttachedTo (realufo, 37 )
  9. setElementData(realufo, "vglueable", true, true)
  10. setElementDoubleSided(realufo, true)
  11. setElementID(ufo, "ufo")
  12. setElementID(realufo, "realufo")
  13.  
  14. addCommandHandler("ufoheight",
  15.     function(thePlayer, cmd, height)
  16.         ufoSetHeight(height)
  17.     end
  18. )
  19. -- Zap thingy
  20. function zapMeUp()
  21.     local x,y,z = getElementPosition(ufo)
  22.     triggerClientEvent ( "ufo:ClientFireN", getRootElement(), x, y, z - 50 )
  23. end
  24. addEvent("zapUFO", true)
  25. addEventHandler("zapUFO", getRootElement(), zapMeUp)
  26.  
  27. addEvent("ufo:warp_player_to_ufo", true)
  28. function ufoWarpPlayer(pl)
  29.     local x,y,z = getElementPosition(ufo)
  30.     setElementPosition(pl, x, y, z + 0.5)
  31. end
  32. addCommandHandler("gotoufo", ufoWarpPlayer)
  33. addEventHandler("ufo:warp_player_to_ufo", getRootElement(), ufoWarpPlayer)
  34.  
  35. function ufoSetHeight(height)
  36.     if tonumber(height) then
  37.         local x,y,z = getElementPosition(ufo)
  38.         setElementPosition(ufo, x, y, tonumber(height))
  39.     end
  40. end
  41. addEvent("ufo:dirHeight", true)
  42. addEventHandler("ufo:dirHeight", getRootElement(), ufoSetHeight)
  43.  
  44. function stopMove()
  45.     stopObject(ufo)
  46. end
  47. addEvent("ufoStop", true)
  48. addEventHandler("ufoStop", getRootElement(), stopMove)
  49.  
  50.  
  51. -- ufo raise/lower/reset
  52. function ufoHeight(theValue)
  53.     local x, y, z = getElementPosition(ufo)
  54.     if (theValue == 5.5) then
  55.         moveObject(ufo, 0, x, y, 5.5)
  56.     else
  57.         moveObject(ufo, 5000, x, y, z + theValue)
  58.     end
  59. end
  60. addEvent("ufoHeight", true)
  61. addEventHandler("ufoHeight", getRootElement(), ufoHeight)
  62.  
  63. -- ufo warper
  64. function ufoWarper(x, y, z)
  65.     moveObject(ufo, 0, x, y, z)
  66. end
  67. addEvent("ufo:move2Loc", true)
  68. addEventHandler("ufo:move2Loc", getRootElement(), ufoWarper)
  69.  
  70. -- Directional movement controls
  71. function ufoMove(xD, yD, zD, direct,speed)
  72.     local x,y,z = getElementPosition(ufo)
  73.     if not direct then
  74.         moveObject(ufo, 20000, x + xD, y + yD, z + zD)
  75.     elseif direct then
  76.         moveObject(ufo, speed, xD,yD,z)
  77.     end
  78. end
  79. addEvent("ufo:moveEvent", true)
  80. addEventHandler("ufo:moveEvent", getRootElement(), ufoMove)
  81.  
  82. -- Rotational movement controls
  83. function rotateUfoFunc(rX, rY, rZ)
  84.     local x,y,z = getElementPosition(ufo)
  85.     moveObject(ufo, 5000, x, y, z, rX, rY, rZ)
  86. end
  87. addEvent("ufo:rotateUfo", true)
  88. addEventHandler("ufo:rotateUfo", getRootElement(), rotateUfoFunc)
  89.  
  90. -- ****************************************
  91. -- * Super weapons - Ion Nuke - By Ransom *
  92. -- ****************************************
  93. function NukeFinished ()
  94.     N_Active = false   
  95. end
  96. addEvent("ufo:serverNukeFinished", true)
  97. addEventHandler("ufo:serverNukeFinished", root, NukeFinished)
  98.  
  99. function KillNukedPlayer ()
  100.     killPed( source )
  101.     outputChatBox ( "#ff0000*UFO: #ffff00You got attacked by the UFO!", source, 105, 252, 55, true )   
  102. end
  103. addEvent("ufo:serverKillNukedPlayer", true)
  104. addEventHandler("ufo:serverKillNukedPlayer", root, KillNukedPlayer)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement