Заказываем lua скрипты | Халява

[AnWu]

Давно не поднимали такую тему. В теме пишем простые скрипты для новичков или тем кому нужна какая-то мелочь. Кому не лень помогайте :) Погнали

 

[Pakulichev]

Огромная просьба, заказывайте скрипты адекватных масштабов. Очень сомневаюсь, что ваши огромные проекты будет кто-то делать бесплатно, а тем более без адекватного технического задания. Если у вас есть желание заказать объемный скрипт или целый проект, то вам стоит обратиться в специальный раздел, где стоит подробно описать свой заказ, установив адекватную цену и задание для скриптера.

 

[AnWu]

@FGun на днях попросил сделать простую повторяшку для какого-то сервера.
ТЗ:

Привет. Можешь сделать скрипт? Я думаю, что там ничего сложного не будет. Щас озвучу, потом, если захочешь помочь скажешь сумму. В общем, я думаю, что ты знаешь про клео "Повторяшка", т.е копирует точь в точь, то, что пишет игрок. Так вот, для РП серверов, а конкретно в ФБР очень сильно нужна такая штука. Так вот, тут просто немного его переделать и всё. Чтобы было так: прописываешь /repeat ID главного переговорщика от мафии -- он что-нибудь говорит -- и в рацию выводится это всё вот так: /r [Мини-передатчик] "Его слова" (обязательно кавычки). Тут просто переделать, если возьмешь - убери там повторения в /b, /me, /do, /try и т.д. То есть только РП чат.

Мессага в чате:

Да я понял. Сорян. Вот с РП чатом сообщения рандомное.
[13:11:22] - Matteo_Leppard: ДАЙ ОПЛАЧУ

Код:

local SE = require 'samp.events'

local nick = ""
local active = false

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
   while not isSampAvailable() do wait(0) end
   sampRegisterChatCommand("popka", function (param)
      if #param == 0 then
         sampAddChatMessage("[popka] Укажите ид игрока", -1)
         return
      end
      active = not active
      if active then
         nick = sampGetPlayerNickname(tonumber(param))
      end
   end)
   wait(-1)
end

function SE.onServerMessage(color, text)
   if active then
      local ptext = text:match("%- " .. nick ..": (%s)")
      if ptext then
         lua_thread.create(function()
            wait(0)
            sampSendChat(("/r [Мини-передатчик] \"%s\""):format(ptext))
         end)
      end
   end
end

Зависимости: SAMP.Lua

 

[infinityx]

Сделайте нормальный чекер онайлна банд для дрп блеат.

Все что есть на бх не работает уже

 

[AnWu]

Сделайте нормальный чекер онайлна банд для дрп блеат.

Все что есть на бх не работает уже

Мне бы циферки клистов банд

 

[AnWu]

Работяги с Samp-RP просили сделать чекер мемберса на /clist 0 и проверку на стрим (чекать казик)
Код:

local SE = require 'samp.events'
local cl = false
local cs = false
-- 16777215 -- цвет ника с клист 0
function main()
   if not isSampfuncsLoaded() or not isSampLoaded() then return end
   while not isSampAvailable() do wait(0) end
   sampRegisterChatCommand("cl", function ()
      cl = true
      sampSendChat("/members 1")
   end)
   sampRegisterChatCommand("cs", function ()
      cs = true
      sampSendChat("/members 1")
   end)
   wait(-1)
end
function SE.onShowDialog(dialogid, style, title, btn1, btn2, text)
   if (cl or cs) and title == "Состав онлайн" then
      local tstr = split(text, "\n")
      table.remove(tstr, 1)
      local i = 0
      for k, v in ipairs(tstr) do
         local id, nick, rank = v:match("%[%d+%] %[(%d+)%] (%a+_%a+) (.*) %[%d+%]")
         if id then
            if cl then
               if sampGetPlayerColor(id) == 16777215 then
                  i = i + 1
                  sampAddChatMessage(("%s {c7c7c7}%s[%d] {FFFFFF}выключил клист"):format(rank, nick, id), 0xFFFFFF)
               end
            elseif cs then
               if sampGetCharHandleBySampPlayerId(id) then
                  i = i + 1
                  sampAddChatMessage(("%s {c7c7c7}%s[%d] {FFFFFF}находится рядом"):format(rank, nick, id), 0xFFFFFF)
               end
            end
         end
      end
      if i == 0 then
         sampAddChatMessage("Список пуст", -1)
      end
      cl = false
      cs = false
      return false
   end
end
function split(str, delim, plain) -- bh FYP
   local tokens, pos, plain = {}, 1, not (plain == false) --[[ delimiter is plain text by default ]]
   repeat
       local npos, epos = string.find(str, delim, pos, plain)
       table.insert(tokens, string.sub(str, pos, npos and npos - 1))
       pos = epos and epos + 1
   until not pos
   return tokens
end

Зависимости: SAMP.Lua

 

[wargamer9911]

я не знаю, можно заказывать переделывание или нет)
этот скрипт взял с этого форума, можешь сделать в него активацию, чтобы он работал не всегда

 

[infinityx]

Мне бы циферки клистов банд

Если бы ты мне объяснил как достать "циферки", то я би скинул.

 

[AnWu]

@wargamer9911

script_name("anti-gastritis")
script_authors("Howl1337")
script_description("Анти-гастрит для дрп")
script_version("1.0")

local sampev = require 'lib.samp.events'

local active = false

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
   while not isSampAvailable() do wait(0) end
   sampRegisterChatCommand("ag", function ()
        active = not active
   end)
   wait(-1)
end
function sampev.onApplyPlayerAnimation(playerId, animLib, animName)
    if active then
        local _, myId = sampGetPlayerIdByCharHandle(PLAYER_PED)
        if playerId == myId then
            if sampFindAnimationIdByNameAndFile(animName, animLib) == 539 then  return false end
        end
    end
end

 

[godofsamp]

Давно не поднимали такую тему. В теме пишем простые скрипты для новичков или тем кому нужна какая-то мелочь. Кому не лень помогайте :) Погнали

Могёшь увеличенный урон с кулака сделать? Чтоб вместо 2 хп снимало 7. Что-то вроде имитации топтания лежачего.

 

[AnWu]

Если бы ты мне объяснил как достать "циферки", то я би скинул.

/getcolor id
запиши в список все цвета и названия банд

 

[AnWu]

Могёшь увеличенный урон с кулака сделать? Чтоб вместо 2 хп снимало 7. Что-то вроде имитации топтания лежачего.

Не шарю за синхру, прости. Но покопаюсь в ближайшее время.

Было бы прикольно логгер/копирку синхры другого человека

платно заказывай

 

[sdfaw]

сделай скрипт который закрепит объект на автомобиле

 

[infinityx]

/getcolor id
запиши в список все цвета и названия банд

[ML] (system) tamp2 (1).lua: Script terminated. (0FBDBF3C)

 

[AnWu]

[ML] (system) tamp2 (1).lua: Script terminated. (0FBDBF3C)

Ща бы wiat забыть