Advertisement
Guest User

Untitled

a guest
Jun 25th, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.06 KB | None | 0 0
  1. /*** ---------------------------------------------------------------------- ***
  2. Документацию по всем доступным методам можно посмотреть в файле documentation.txt
  3. Там написано много интересных и полезных методов, не ленитесь открыть
  4.  
  5. Если демонстрационных итемов для настройки автодоната недостаточно
  6. - свяжитесь с нами и мы вам оперативно поможем: https://vk.com/im?sel=-143836547
  7.  
  8. Не забудьте раскомментировать блок кода, чтобы настройки заработали
  9. Для этого нужно убрать "--" перед нужными строками.
  10. Если не знаете, как это сделать - напишите нам
  11.  
  12. ДЛЯ ОПЫТНЫХ ПОЛЬЗОВАТЕЛЕЙ пример конфигурации автодоната на TRIGON.IM:
  13. https://gist.github.com/284608002faf5ff10525874b0225801e
  14. *** ------------------------------------------------------------------------- ***/
  15.  
  16. -- TODO Продажа различных пушек за разную стоимость на разный период. Например покупка пистолета на 1 час/1 день/1 неделю/1 месяц.
  17.  
  18.  
  19. --[[-------------------------------------------------------------------------
  20. Группы прав (Донат пакеты)
  21. ---------------------------------------------------------------------------]]
  22. local PACKAGES = "Донат пакеты"
  23.  
  24. IGS("Блатной", "group_blat", 300)
  25. :SetULXGroup("donate_blat")
  26. :SetCategory(PACKAGES)
  27. :SetTerm(30)
  28. :SetDescription("Доступ к блатным профам, царский резервный слот и особый префикс в чате")
  29.  
  30. local BLAT_PLUS = IGS("Блатной+", "group_blat_plus", 400)
  31. BLAT_PLUS:SetULXGroup("donate_blat")
  32. BLAT_PLUS:SetCategory(PACKAGES)
  33. BLAT_PLUS:SetTerm(30)
  34. BLAT_PLUS:SetDescription("То же, что и 'Блатной', но в придачу получаете 500к валюты")
  35. BLAT_PLUS.money_bonus = 500000 -- 500k
  36.  
  37. IGS("Модерка", "group_moder", 550)
  38. :SetULXGroup("moderator")
  39. :SetCategory(PACKAGES)
  40. :SetTerm(30)
  41. :SetDescription("Полет (ноуклип), бан, кик, джаил, невидимость, выдача ХП, бессмертие, мут козлов, телепортация и еще кучка приятных мелочей")
  42.  
  43. IGS("Админка", "group_admin", 800)
  44. :SetULXGroup("admin_blat")
  45. :SetCategory(PACKAGES)
  46. :SetTerm(30)
  47. :SetDescription("Включает плюшки модера и блатного. Самое жирное, для самых мажиков")
  48.  
  49. -- IGS("Строитель", "group_builder", 1234567890)
  50. -- :SetULXGroup("builder")
  51. -- :SetCategory(PACKAGES)
  52. -- :SetTerm(30)
  53. -- :SetDescription("Повышенный лимит пропов, доступ к дополнительным тулам")
  54.  
  55.  
  56.  
  57. --[[-------------------------------------------------------------------------
  58. Игровая валюта
  59. ---------------------------------------------------------------------------]]
  60. local MONEY = "Игровая валюта"
  61.  
  62. IGS("500к", "money_500k", 100)
  63. :SetCategory(MONEY)
  64. :SetDarkRPMoney(500000)
  65.  
  66. IGS("1кк", "money_1kk", 200)
  67. :SetCategory(MONEY)
  68. :SetDarkRPMoney(1000000)
  69.  
  70. IGS("2кк (Экон. 100р)", "money_2kk", 300)
  71. :SetCategory(MONEY)
  72. :SetDarkRPMoney(2000000)
  73.  
  74. IGS("3кк (Экон. 200р)", "money_3kk", 500)
  75. :SetCategory(MONEY)
  76. :SetDarkRPMoney(3000000)
  77.  
  78. IGS("10кк (Экон. 500р)", "money_10kk", 1000)
  79. :SetCategory(MONEY)
  80. :SetDarkRPMoney(10000000)
  81.  
  82. IGS("20кк (Экон. 1000р)", "money_20kk", 2000)
  83. :SetCategory(MONEY)
  84. :SetDarkRPMoney(10000000)
  85.  
  86.  
  87. --[[-------------------------------------------------------------------------
  88. Эксклюзивные машины
  89. ---------------------------------------------------------------------------]]
  90. -- local CARS = "Эксклюзивные машины"
  91.  
  92. -- IGS("Машина A", "car_a", 1234567890)
  93. -- :SetCategory(CARS)
  94. -- :SetTerm() -- навсегда
  95. -- :SetDescription("Дает возможность прокатиться на Машина А")
  96.  
  97. -- IGS("Машина Б", "car_b", 1234567890)
  98. -- :SetCategory(CARS)
  99. -- :SetTerm() -- навсегда
  100. -- :SetDescription("Дает возможность прокатиться на Машина Б")
  101.  
  102.  
  103. --[[-------------------------------------------------------------------------
  104. Игровая валюта при покупке блатной+
  105. ---------------------------------------------------------------------------]]
  106. hook.Add("IGS.OnSuccessPurchase","MoneyBonusOnPurchase",function(pl, ITEM)
  107. if !ITEM.money_bonus then return end -- нет бонуса
  108.  
  109. pl:addMoney(ITEM.money_bonus)
  110. DarkRP.notify(pl,3,60, "Вы получили " .. DarkRP.formatMoney(ITEM.money_bonus) .. " за покупку " .. ITEM:Name())
  111. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement