API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 17th, 2019
156
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 8.77 KB | None | 0 0
raw download clone embed print report
  1. marryinprogress = false
  2.  
  3. local kircheraus = createMarker( 1277.099, 1301.599, 452.2, "cylinder", 1.2, 255, 0, 0, 255 )
  4. setElementInterior(kircheraus, 66)
  5. local markerin = createMarker( -1989.04, 1117.92, 53.5, "cylinder", 1.2, 255, 0, 0, 255 )
  6. local info = createPickup ( -1987.975, 1120.550, 54.12, 3, 1239, 1, 0 )
  7.  
  8. local xa, ya, za = 1271.948, 1297.240, 453 -- Altar
  9.  
  10. function inDieKirche(player)
  11.     if marryinprogress == true then
  12.         outputChatBox("Man kommt nicht zu Spät zu einer Hochzeit!", player, 255, 0, 0)
  13.     else
  14.         setElementPosition(player, 1275.361, 1301.411, 453.084)
  15.         setElementInterior(player, 66)
  16.     end
  17. end
  18. addEventHandler("onMarkerHit", markerin, inDieKirche)
  19.  
  20. function ausDieKirche(player)
  21.     setElementInterior(player, 0)
  22.     setElementPosition(player, -1986.466, 1117.362, 53.857)
  23.     if marryinprogress == true then
  24.         outputChatBox("Pff.. Die Hochzeit ist ja noch garnicht zu ende, eine Frechheit!", player, 255, 0, 0)
  25.     end
  26. end
  27. addEventHandler("onMarkerHit", kircheraus, ausDieKirche)
  28.  
  29. function KirchePickup(player)
  30.     outputChatBox("Um in der Kirche einen anderen Spieler zu Heiraten wende dich per /support an einen Admin.", player, 255, 155, 0)
  31.     outputChatBox("Kosten einer Heirat: 100.000$", player, 255, 155, 0)
  32.     outputChatBox("Vorteile: Spawn Haus des Partners, Sozialer Status, Steuern niedriger, Ring unter Name", player, 255, 155, 0)
  33. end
  34. addEventHandler("onPickupHit", info, KirchePickup)
  35.  
  36. function marry_func ( player, cmd, pl1, pl2, nachname )
  37.  
  38.     if vioGetElementData(player, "adminlvl") >= 3 then
  39.        
  40.         local pl1 = getPlayerFromName ( pl1 )
  41.         local pl2 = getPlayerFromName ( pl2 )
  42.         if pl1 and pl2 and nachname then
  43.        
  44.             local x, y, z = getElementPosition ( player )
  45.             local x1, y1, z1 = getElementPosition ( pl1 )
  46.             local x2, y2, z2 = getElementPosition ( pl2 )
  47.            
  48.             if getDistanceBetweenPoints3D ( xa, ya, za, x, y, z ) <= 10 and getDistanceBetweenPoints3D ( xa, ya, za, x1, y1, z1 ) <= 10 and getDistanceBetweenPoints3D ( xa, ya, za, x2, y2, z2 ) <= 10 then
  49.            
  50.                 if vioGetElementData ( pl1, "playingtime" ) >= 960 and vioGetElementData ( pl2, "playingtime" ) >= 960 then
  51.                    
  52.                     if vioGetElementData ( pl1, "married" ) == 0 and vioGetElementData ( pl2, "married" ) == 0 then
  53.                        
  54.                         if pl1 == pl2 or pl1 == player or pl2 == player then
  55.                             outputChatBox("Der Braeutigam / die Braut und du muessen 3 verschiedene Spieler sein!.", player, 255, 150, 0)
  56.                         else
  57.                             mysql_vio_query ( "INSERT INTO marry (pl1, pl2, nachname) VALUES ('"..getPlayerName(pl1).."', '"..getPlayerName(pl2).."', '"..nachname.."')" )
  58.                             outputChatBox(""..getPlayerName(pl1).." und "..getPlayerName(pl2).." wurden erfolgreich Verheiratet!", player, 255, 150, 0)
  59.                             vioSetElementData(pl1, "married", 1)
  60.                             vioSetElementData(pl1, "marwith", getPlayerName(pl2))
  61.                             vioSetElementData(pl2, "married", 1)
  62.                             vioSetElementData(pl2, "marwith", getPlayerName(pl1))
  63.                         end
  64.                        
  65.                     else
  66.                         outputChatBox("Der Braeutigam / die Braut sind bereits verheiratet! Tzz... Solche Heiratsschwindler...", player, 255, 150, 0)
  67.                     end
  68.                    
  69.                 else
  70.                     outputChatBox("Der Braeutigam / die Braut muessen min. 16 Spielstunden haben.", player, 255, 150, 0)
  71.                 end
  72.            
  73.             else
  74.                 outputChatBox("Ihr seit nicht bei der Kirche.", player, 255, 150, 0)
  75.             end
  76.            
  77.         else
  78.             outputChatBox("Verwende /marry Spieler1 Spieler2 Nachname | Der Nachname darf keine Leerzeichen enthalten!", player, 255, 150, 0)
  79.         end
  80.    
  81.     else
  82.         outputChatBox("Du bist nicht befugt.", player, 200, 0, 0)
  83.     end
  84.  
  85. end
  86. addCommandHandler ( "marry", marry_func )
  87.  
  88. function lockkirche(player)
  89.     if vioGetElementData(player, "adminlvl") >= 3 then
  90.         if marryinprogress == true then
  91.             marryinprogress = false
  92.             outputChatBox("Kirche unlocked", player)
  93.         else
  94.             marryinprogress = true
  95.             outputChatBox("Kirche locked", player)
  96.         end
  97.     end
  98. end
  99. addCommandHandler("lockkirche", lockkirche)
  100.  
  101. function unmarry_func ( player, cmd, pl )
  102.  
  103.     if vioGetElementData(player, "adminlvl") >= 3 then
  104.    
  105.         local pl = getPlayerFromName ( pl )
  106.        
  107.         if pl then
  108.            
  109.             if vioGetElementData(pl, "married") == 1 then
  110.                 local partner = vioGetElementData(pl, "marwith")
  111.                 outputChatBox("Moechtest du dich von "..partner.." Scheiden? Wenn ja Tippe /acceptunmarry", pl, 255, 150, 0)
  112.                 setElementData(pl, "unmarry", 1)
  113.                 outputChatBox("Der Spieler muss die Scheidung nun bestaetigen.", player, 255, 150, 0)
  114.             else
  115.                 outputChatBox("Der Spieler ist nicht verheiratet!", player, 255, 150, 0)
  116.             end
  117.            
  118.         else
  119.             outputChatBox("Verwende /unmarry Spieler", player, 255, 150, 0)
  120.         end
  121.        
  122.     else
  123.         outputChatBox("Du bist nicht befugt.", player, 200, 0, 0)
  124.     end
  125.    
  126. end
  127. addCommandHandler ( "unmarry", unmarry_func )
  128.  
  129. function acceptunmarry_func ( player )
  130.     if getElementData(player, "unmarry") == 1 then
  131.         local pname = getPlayerName(player)
  132.         local partner = vioGetElementData(player, "marwith")
  133.        
  134.         local query1 = MySQL_GetString("marry", "pl1", "pl1 LIKE '"..pname.."'")
  135.         local query2 = MySQL_GetString("marry", "pl2", "pl2 LIKE '"..pname.."'")
  136.        
  137.             if query1 == pname then
  138.                 outputChatBox("Du hast dich erfolgreich von "..partner.." getrennt!", player, 255, 150, 0)
  139.                 mysql_vio_query ( "DELETE FROM marry WHERE pl1='"..pname.."'" )
  140.                 setElementData(player, "unmarry", 0)
  141.                 vioSetElementData(player, "married", 0)
  142.                 vioSetElementData(player, "marwith", "none")
  143.                
  144.                 if getPlayerFromName(partner) then
  145.                     outputChatBox(""..getPlayerName(player).." hat sich von dir Scheiden Lassen.", getPlayerFromName(partner), 255, 150, 0)
  146.                     vioSetElementData(getPlayerFromName(partner), "married", 0)
  147.                     vioSetElementData(getPlayerFromName(partner), "marwith", "none")
  148.                 else
  149.                     offlinemsg ( ""..getPlayerName(player).." hat sich von dir Scheiden Lassen.", "Standesamt", partner )
  150.                 end
  151.                
  152.             elseif query2 == pname then
  153.                 outputChatBox("Du hast dich erfolgreich von "..partner.." getrennt!", player, 255, 150, 0)
  154.                 mysql_vio_query ( "DELETE FROM marry WHERE pl2='"..pname.."'" )
  155.                 setElementData(player, "unmarry", 0)
  156.                 vioSetElementData(player, "married", 0)
  157.                 vioSetElementData(player, "marwith", "none")
  158.                
  159.                 if getPlayerFromName(partner) then
  160.                     outputChatBox(""..getPlayerName(player).." hat sich von dir Scheiden Lassen.", getPlayerFromName(partner), 255, 150, 0)
  161.                     vioSetElementData(getPlayerFromName(partner), "married", 0)
  162.                     vioSetElementData(getPlayerFromName(partner), "marwith", "none")
  163.                 else
  164.                     offlinemsg ( ""..getPlayerName(player).." hat sich von dir Scheiden Lassen.", "Standesamt", partner )
  165.                 end
  166.                
  167.             end
  168.            
  169.     else
  170.         outputChatBox("Du hast keinen Scheidungsantrag.", player, 255, 155, 0)
  171.     end
  172. end
  173. addCommandHandler ( "acceptunmarry", acceptunmarry_func )
  174.  
  175. function getMarryCar(partner)
  176.     local player = source
  177.     if vioGetElementData(player, "married") == 1 then
  178.        
  179.         if partner then
  180.        
  181.         local partnerquery1 = MySQL_GetString("marry", "car1", "pl1 LIKE '"..partner.."'")
  182.         local partnerquery2 = MySQL_GetString("marry", "car2", "pl2 LIKE '"..partner.."'")
  183.        
  184.             if partnerquery1 == 1 or partnerquery1 == 0 then
  185.                
  186.                 return MySQL_GetString("marry", "car1", "pl1 LIKE '"..partner.."'")
  187.                
  188.             elseif partnerquery2 == 1 or partnerquery2 == 0 then
  189.        
  190.                 return MySQL_GetString("marry", "car2", "pl2 LIKE '"..partner.."'")
  191.        
  192.             else
  193.                
  194.                 return false
  195.                
  196.             end
  197.        
  198.         else
  199.             return false
  200.         end
  201.        
  202.     else
  203.         return false
  204.     end
  205. end
  206.  
  207.  
  208. -------------------------------------------------------------------------
  209.  
  210. function live_func ( player, cmd, target )
  211.    
  212.     if vioGetElementData(player, "adminlvl") >= 1 then
  213.         local target = findPlayerByName( target )
  214.         if target then
  215.             vioSetElementData ( target, "isLive", true )
  216.             vioSetElementData ( player, "isLive", true )
  217.             vioSetElementData ( target, "isLiveWith", getPlayerName(player) )
  218.             vioSetElementData ( player, "isLiveWith", getPlayerName(target) )
  219.             outputChatBox ( "Du bist nun in einem Interview mit "..getPlayerName(player)..", tippe /endlive zum beenden.", target, 200, 200, 0 )
  220.             outputChatBox ( "Du bist nun in einem Interview mit "..getPlayerName(target)..", tippe /endlive zum beenden.", player, 200, 200, 0 )
  221.         end
  222.     end
  223. end
  224. addCommandHandler ( "live", live_func )
  225.  
  226. function endlive_func ( player )
  227.    
  228.     if vioGetElementData ( player, "isLive" ) then
  229.         vioSetElementData ( player, "isLive", false )
  230.         outputChatBox ( "Das Interview wurde beendet!", player, 0, 200, 0 )
  231.         local target = vioGetElementData ( player, "isLiveWith" )
  232.         local target = getPlayerFromName ( target )
  233.         if target then
  234.             outputChatBox ( "Das Interview wurde beendet!", target, 0, 200, 0 )
  235.             vioSetElementData ( target, "isLive", false )
  236.         end
  237.     else
  238.         outputChatBox ( "Du bist in keiner Live-Unterhaltung!", player, 125, 0, 0 )
  239.     end
  240. end
  241. addCommandHandler ( "endlive", endlive_func )
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!