Серый форум — SAMP: Взять данные с паспорта и вывести в чат

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T14:33:00Z

Разве что избавиться от присвоения переменных функциям. Например: sendchat("" . getplayeridbyname(name2) . " " . getplayerscorebyid(getplayeridbyname(name2)) . " " . name2 . "").

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T13:57:45Z

Все, теперь код рабочий, переменные можно вставлять в любые команды. А можно как-то уменьшить задержку? А то между нажатием кнопки и выводом в чат проходит секунды 4, если не больше


#include SAMP.ahk

global path_log := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

Numpad1::
SendMessage, 0x50,, 0x4190419,, A
myid := getId()
SendChat("Здраствуйте, я адвокат. Покажите мне свой паспорт (( /showpass " myid " )) " )
return

Numpad2::
SendMessage, 0x50,, 0x4190419,, A
log := {str:"",find:0,num:0}    ,    log.str := []

        Loop, read, %path_log%
        log.str.Insert(A_LoopReadLine)    ,log.num := A_Index

		loop 30	
	    if RegExMatch(     log.str[log.num + 1 - A_Index]
            ,"\[(.*)\]  Имя: (.*)"
            , name) and (log.find:=log.num + 1 - A_Index)
                break
		if (name2 != "") {
			idplayer := getPlayerIdByName(name2)
                        lvlplayer := getPlayerScoreById(idplayer)
                        SendChat(name2 . idplayer . lvlplayer)
		} else {
			msgbox, Error
		}
return

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T13:43:01Z

У тебя ахк юникодовский, судя по sendmessage. Установи AHK ANSI 32 bit.

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T13:24:56Z

Теперь проблема с определением ID, бинд говорит и выводит то что нужно(хоть и с небольшой задержкой), только теперь вместо ID пишет "-1". Поискав в SAMP.udf я изменил строки при ошибках, чтобы выдавало не только "-1", но и "-2", "-3", и "-4".
Вот код из SAMP.udf


getPlayerIdByName(wName) {
    wName := "" wName
    if(StrLen(wName) < 1 || StrLen(wName) > 24)
        return -1
    
    if(iRefreshScoreboard+iUpdateTick > A_TickCount)
    {
        For i, o in oScoreboardData
        {
            if(InStr(o.NAME,wName)==1)
                return i
        }
        return -2
    }
    
    if(!updateOScoreboardData())
        return -3
    
    For i, o in oScoreboardData
    {
        if(InStr(o.NAME,wName)==1)
            return i
    }
    return -4
}

Когда я представляюсь с этим кодом:


SendChat("Здраствуйте, я адвокат. Покажите мне свой паспорт (( /showpass " myid " )) " )

Вместо ID выводит "-1".
А когда я показываю себе паспорт и пытаюсь вывести свое имя и ID. Вывод имени правильный, но вместо ID показывает "-4".

 Numpad2::
SendMessage, 0x50,, 0x4190419,, A
log := {str:"",find:0,num:0}    ,    log.str := []

        Loop, read, %path_log%
        log.str.Insert(A_LoopReadLine)    ,log.num := A_Index

		loop 30	
	    if RegExMatch(     log.str[log.num + 1 - A_Index]
            ,"\[(.*)\]  Имя: (.*)"
            , name) and (log.find:=log.num + 1 - A_Index)
                break
		if (name2 != "") {
			idplayer := getPlayerIdByName(name2)
                        lvlplayer := getPlayerScoreById(idplayer)
                        SendChat(name2 . idplayer . lvlplayer)
		} else {
			msgbox, Error
		}
return

Я не знаю в чем ошибка, так как даже заменив значение "-x", я не понимаю. Возможно вы поймете?

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T12:35:01Z

В функции переменные не обрамляются процентами: getplayeridbyname(name2). sendhchat("" . name2 . " " . idplayer . " " . lvlplayer . ").

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T11:54:50Z

Так, имя выводит целое, теперь я попробовал вывести ник, ID и уровень игрока. Запуск прошел без ошибок, но при попытке активации выходит окно ошибки с кодом направленную на строчку

lvlplayer := getPlayerScoreById(%idplayer%)

Вот целый код:

#include SAMP.ahk

global path_log := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

!2::
SendMessage, 0x50,, 0x4190419,, A
log := {str:"",find:0,num:0}    ,    log.str := []

        Loop, read, %path_log%
        log.str.Insert(A_LoopReadLine)    ,log.num := A_Index

		loop 30	
	    if RegExMatch(     log.str[log.num + 1 - A_Index]
            ,"\[(.*)\]  Имя: (.*)"
            , name) and (log.find:=log.num + 1 - A_Index)
                break
		if (name2 != "") {
			idplayer := getPlayerIdByName(%name2%)
                        lvlplayer := getPlayerScoreById(%idplayer%)
                        SendChat("%name2% , %idplayer% , %lvlplayer%")
		} else {
			msgbox, Error
		}
return

И еще, я хотел добавить бинд приветствия и просьбы показать паспорт. Как правильно написать?

!1::
SendMessage, 0x50,, 0x4190419,, A
myid := getId()
SendChat("Здраствуйте, я адвокат. Покажите мне свой паспорт (( /showpass %myid% )) ")
return

Это не правильно, и выводит он вместо ID %myid%, я пытался поставить кавычки чтобы было "%myid%", но при запуске скрипта вылезает окно с ошибкой в этой строчке


Line Text: ")
Error: Missing close-quote

Что я делаю не так?

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T11:44:35Z

Код верный, имя содержится в переменной name2, переработай тестовое сообщение под себя, а не используй это, сделанное для другого пользователя. Хотя все равно странно, что отправляется в чат вся строчка, вместо имени...

sendinput {f6}%name2%{enter}

работает?

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T11:07:05Z

Хорошо, флуд я убрал. При активации вместо обычного ника в формате "Nick_Name" он берет все целиком и получается

[16:08:28]  Имя: Nick_Name.

А вот строчка с именем из паспорта

[16:05:35]  Имя: Nick_Name

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T10:07:17Z

А, ну вот она причина , неаккуратно отрезал второй поиск. Команда loop создает цикл, теперь челендж: найди причину флуда командой . А насчёт имени: скопируй строчку из чатлога, где имя в паспорте.

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T09:51:56Z

Скопируй новый код сюда, странно что он флудит, читая вышеприведенный код, он должен один раз тестовую фразу отправлять.

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T09:40:23Z

Ясно, значит можно считывать просто имя. Теперь у меня другие проблемы, при нажатии на Alt+2 тестовую фразу он пишет очень много раз, и сервер сразу меня кикает. И еще, как оставить _? То есть Никнейм может быть формата "Nick" или "Nick_Name", сейчас код выводит мне его в виду "Nick Name". Я сменил "(.*)_(.*)" из кода на "(.*)", но не все так просто как мне показалось.
Нужно сделать какую-то задержку, чтобы я не флудил, и ник сделать одним целым

Вот код:

#include SAMP.ahk

global path_log := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

!2::
SendMessage, 0x50,, 0x4190419,, A
log := {str:"",find:0,num:0}    ,    log.str := []

        Loop, read, %path_log%
        log.str.Insert(A_LoopReadLine)    ,log.num := A_Index

		loop 30	
	    if RegExMatch(     log.str[log.num + 1 - A_Index]
            ,"\[(.*)\]  Имя: (.*)"
            , name) and (log.find:=log.num + 1 - A_Index)
                break
		loop 30	
		if (name2 != "") {
			sendinput, {F6}%lvl2% %name2% %name3%.{Enter}
		} else {
			msgbox, Error
		}
return

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-23T08:48:00Z

Тогда можно вообще избавиться от проверки уровня по паспорту. Зачем использовать команду чтения текстового файла, если в памяти хранятся id и lvl игрока? Функции getplayeridbyname() и getplayerscorebyid() в UDF тебе помогут, имя узнаешь из паспорта, я так понял он у тебя нормально имя узнает.

Чтобы указать ошибки на конкретный код, нужна строчка с телефоном и возрастом из чатлога.

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-08-22T20:42:53Z

Всем привет. Нашел данную тему и хочу переделать код по адвоката. То есть вместо звания и имени, записывался уровень игрока в определенную переменную, и его id. Проблема в том, что после того как я начал редактировать и попутно тестировать, после уровня игрока ("Возраст") у меня записывалось "Телефон: xxxxxx". То есть я не знаю как "отделить" лвл и телефон. Не требую мне полностью готовый и рабочий код, лучше укажите ошибки, и способы их исправить.
Цель: Чтобы после того как человек показывал мне паспорт, я нажимал на определенную клавишу, и шла проверка его уровня, проигрывалось РП(/me, /do и тд.) и собственно говоря сама команда /free в которой и требуется его id. Уровень мне нужен для установки цены.

 #include SAMP.ahk

global path_log := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

!2::
SendMessage, 0x50,, 0x4190419,, A
log := {str:"",find:0,num:0}    ,    log.str := []

        Loop, read, %path_log%
        log.str.Insert(A_LoopReadLine)    ,log.num := A_Index

		loop 30	
	    if RegExMatch(     log.str[log.num + 1 - A_Index]
            ,"\[(.*)\]  Имя: (.*)_(.*)"
            , name) and (log.find:=log.num + 1 - A_Index)
                break
		loop 30	
	    if RegExMatch(     log.str[log.num + 1 - A_Index]
            ,"\[(.*)\]  Возраст: (.*)"
            , lvl) and (log.find:=log.num + 1 - A_Index)
                break
		if (name2 != "") and (lvl2 != "") {
			sendinput, {F6}%lvl2% %name2% %name3%.{Enter}
		} else {
			msgbox, Error
		}
return

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-02-09T18:04:32Z

belyankin12, О да спасибо, отлично работает.

Re: SAMP: Взять данные с паспорта и вывести в чат

2017-02-09T17:53:00Z

ataks63rus, посмотри уже мой вариант >_<, у меня все работает.