Помогите найти скрипт.

Статус
В этой теме нельзя размещать новые ответы.

_RosE_

Новичок
Автор темы
26
0
Всем привет, давно скидывали скрипт для администрации, чтобы в момент когда выдаёшь наказание (kick/ban/warn/jail) игроку выводился текст "Для подачи жалобы...", но скрипт был потерян, может есть у кого?
 

hnnssy

Известный
Друг
2,684
2,744
игроку выводился текст
Текст должен выводиться админу или игроку перед баном?
128.png
 
  • Нравится
Реакции: Noormik789, XeuTep и ishi

_RosE_

Новичок
Автор темы
26
0
а причем тут ahk? не pawno ли тебе нужно?
либо объясняй подробно
Я вот не уверен что это AHK был, возможно это было CLEO. Смотри... У админов есть команда /ans (ответить на репорт) и команда /ban (ну что бы забанить) и когда админ прописывает /ban id дни причина, срабатывает команда /ans на id который был указан чтобы забанить и идёт ответ типа сделайте скрин-шот. Это не на уровне мода, а именно файл для админов.
 

asdzxcjqwe

¯\_(ツ)_/¯
Друг
621
704
Вот теперь понятно. Это может быть на чем угодно: cleo/ahk/C++
И у админов антифлуд есть? Если да, то я могу поставить скрипт, который словит его сообщение в игре и сразу пропишет /q, потом только тратить время на оффбан(если лвл позволяет)

Код:
#NoEnv
#include %A_ScriptDir%\inc\samp-udf.ahk

$~Enter::
    if(isInChat() && !isDialogOpen())
    {
        blockChatInput()
        sleep 150
        unBlockChatInput()
        chat := readString(hGTA, dwSAMP + 0x12D8F8, 256)
        cmd := StrSplit(chat, " ")
        if(cmd[1] == "/ban" && cmd[2])
        {
            reason := ""
            for k, v in cmd
            {
                if(k > 3)
                    reason := reason "" v " "
            }
            reason := SubStr(reason, 1, -1)
            SendChat("/ans " cmd[2] " делай скрин овощ")
            Sleep 1200 ; на срп такой таймаут
            SendChat("/ban " cmd[2] " " cmd[3] " " reason)
        }
    }
return
 

Вложения

  • samp-udf.txt
    194.2 KB · Просмотры: 8

_RosE_

Новичок
Автор темы
26
0
Вот теперь понятно. Это может быть на чем угодно: cleo/ahk/C++
И у админов антифлуд есть? Если да, то я могу поставить скрипт, который словит его сообщение в игре и сразу пропишет /q, потом только тратить время на оффбан(если лвл позволяет)

Код:
#NoEnv
#include %A_ScriptDir%\inc\samp-udf.ahk

$~Enter::
    if(isInChat() && !isDialogOpen())
    {
        blockChatInput()
        sleep 150
        unBlockChatInput()
        chat := readString(hGTA, dwSAMP + 0x12D8F8, 256)
        cmd := StrSplit(chat, " ")
        if(cmd[1] == "/ban" && cmd[2])
        {
            reason := ""
            for k, v in cmd
            {
                if(k > 3)
                    reason := reason "" v " "
            }
            reason := SubStr(reason, 1, -1)
            SendChat("/ans " cmd[2] " делай скрин овощ")
            Sleep 1200 ; на срп такой таймаут
            SendChat("/ban " cmd[2] " " cmd[3] " " reason)
        }
    }
return
Не, на офф делать не нужно, спасибо. Вот только трабл, запустил это через AHK команды перестали работать вообще :D
 

asdzxcjqwe

¯\_(ツ)_/¯
Друг
621
704
Не, на офф делать не нужно, спасибо
??? прочитай еще раз
я говорил, что каждый второй бомж будет ловить сообщение и оффаться раньше, чем его забанит админ

запустил это через AHK команды перестали работать вообще
ой, я без проверки
подключи sampfuncs, напиши клео скрипт, там проще будет

CLEO:
{$CLEO}
{$NOSOURCE}

wait 0
while not SAMP.Available()
    wait 10
end

0B34: samp register_client_command "ban" to_label @ban
while true
    wait 0
end
:ban
0B35: samp 0@ = get_last_command_params
0AD4: 1@ = scan_string 0@ format "%d %d %s" 2@ 3@ 4@
if 1@ > 2
then
    say "/ans %d делай скрин овощ" 2@
    wait 1200
    say "/ban %d %d %s" 2@ 3@ 4@
    wait 1200
end
0B43: samp cmd_ret

Это тебе для примера, код может не работать
напиши клео скрипт
 
Последнее редактирование:

_RosE_

Новичок
Автор темы
26
0
??? прочитай еще раз
я говорил, что каждый второй бомж будет ловить сообщение и оффаться раньше, чем его забанит админ


ой, я без проверки
подключи sampfuncs, напиши клео скрипт, там проще будет

CLEO:
{$CLEO}
{$NOSOURCE}

wait 0
while not SAMP.Available()
    wait 10
end

0B34: samp register_client_command "ban" to_label @ban
while true
    wait 0
end
:ban
0B35: samp 0@ = get_last_command_params
0AD4: 1@ = scan_string 0@ format "%d %d %s" 2@ 3@ 4@
if 1@ > 2
then
    say "/ans %d делай скрин овощ" 2@
    wait 1200
    say "/ban %d %d %s" 2@ 3@ 4@
    wait 1200
end
0B43: samp cmd_ret

Это тебе для примера, код может не работать
Я конечно понимаю, что за*бал уже, но смотри... Написал в причине "test" (на англ.) в причине появилось "«u", когда написал "тест" (на русском) вообще крашнуло.
 
Статус
В этой теме нельзя размещать новые ответы.