Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 01.12.2010, 13:24   #1
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию Как найти число?)

Нужно найти число в дальнейшем вывести его в Edit
сам пакет:
PHP код:
0F A5 65 10 48 3C 00 68 00 74 00 6D 00 6C 00 3E 00 3C 00 62 00 6F 00 64 00 79 00 3E 00 3C 00 62 00 72 00 3E 00 54 00 68 00 65 00 72 00 65 00 20 00 61 00 72 00 65 00 20 00 31 00 38 00 20 00 47 00 72 00 61 00 6E 00 64 00 20 00 4F 00 6C 00 79 00 6D 00 70 00 69 00 61 00 64 00 20 00 70 00 6F 00 69 00 6E 00 74 00 73 00 20 00 67 00 72 00 61 00 6E 00 74 00 65 00 64 00 20 00 66 00 6F 00 72 00 20 00 74 00 68 00 69 00 73 00 20 00 65 00 76 00 65 00 6E 00 74 00 2E 00 3C 00 62 00 72 00 3E 00 3C 00 61 00 20 00 61 00 63 00 74 00 69 00 6F 00 6E 00 3D 00 22 00 62 00 79 00 70 00 61 00 73 00 73 00 20 00 2D 00 68 00 20 00 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 35 00 31 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 30 00 22 00 3E 00 52 00 65 00 74 00 75 00 72 00 6E 00 3C 00 2F 00 61 00 3E 00 3C 00 2F 00 62 00 6F 00 64 00 79 00 3E 00 3C 00 2F 00 68 00 74 00 6D 00 6C 00 3E 00 0D 00 0A 00 00 00 00 00 00 00 
расшифровка:
PHP код:
Tèï: 0x0F (NpcHtmlMessage)
Pàçìåð: 319+2
Âðåìÿ ïðèõîäà: 12:12:27:125
0002 d  MessageID1209034149 (0x481065A5)
0006 s  HTML: <html><body><br>There are 18 Grand Olympiad points granted for this event.<br><a action="bypass -h menu_select?ask=-51&reply=0">Return</a></body></html>

013C d  d(0x00000000
Нужно найти число 18 после There are.
Я пробывал переводить 18 в стринг получилось 31 38, но в пакете я такого не вижу)

Добавлено через 3 минуты
А, во, я его нашел) 31 00 38, тока как теперь из 31 00 38 сделать 18 скриптом?) и вывести результат?) Есть функция?
__________________

Последний раз редактировалось dyh9l, 01.12.2010 в 13:24. Причина: Добавлено сообщение
dyh9l вне форума   Ответить с цитированием
Старый 01.12.2010, 14:35   #2
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Edit1.text:=IntToStr(ReadD(*));
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 01.12.2010, 14:40   #3
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

хм.., это мысль, но та стока ненужного текста, я бы хотел оставить только кол-во очков.
__________________
dyh9l вне форума   Ответить с цитированием
Старый 01.12.2010, 14:49   #4
Пользователь
 
Аватар для kolr
 
Регистрация: 24.11.2009
Сообщений: 75
Сказал Спасибо: 5
Имеет 6 спасибок в 6 сообщенях
kolr пока неопределено
По умолчанию

может сделать масив и выпивать от конца There are до начала Grand Olympiad
kolr вне форума   Ответить с цитированием
Старый 01.12.2010, 14:59   #5
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

var
s:string;
//................
s:=ReadS(*);
Edit1.text:=copy(s,*,*);
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 01.12.2010, 15:29   #6
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Цитата:
Сообщение от J-Fobos Посмотреть сообщение
var
s:string;
//................
s:=ReadS(*);
Edit1.text:=copy(s,*,*);
хм ну первую звездочку я понимаю что s:=ReadS(6); а другие две?

Добавлено через 24 минуты
up)
__________________

Последний раз редактировалось dyh9l, 01.12.2010 в 15:29. Причина: Добавлено сообщение
dyh9l вне форума   Ответить с цитированием
Старый 01.12.2010, 16:03   #7
Новичок
 
Регистрация: 15.11.2010
Адрес: Тольятти
Сообщений: 5
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
RangerX пока неопределено
По умолчанию

Цитата:
Сообщение от dyh9l Посмотреть сообщение
хм ну первую звездочку я понимаю что s:=ReadS(6); а другие две?
Вероятно
Код:
s := copy(s,11,5);
т.е. получить текст, начиная с 11 позиции в строке s (после There are) длиной 5 символов (а сколько максимум очков могут дать? если больше 99999, то надо поставить 6 или более).
Код:
s := Copy(s, 1, Pos(' ', s) - 1);
а тут получаем из строки типа 18 Grand только число 18 (т.е. подстроку до первого пробела)
Ну и в итоге:
Код:
Edit1.Text := s;
RangerX вне форума   Ответить с цитированием
Старый 01.12.2010, 16:06   #8
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Цитата:
Сообщение от RangerX Посмотреть сообщение
Вероятно
Код:
s := copy(s,11,5);
т.е. получить текст, начиная с 11 позиции в строке s (после There are) длиной 5 символов (а сколько максимум очков могут дать? если больше 99999, то надо поставить 6 или более).
Код:
s := Copy(s, 1, Pos(' ', s) - 1);
а тут получаем из строки типа 18 Grand только число 18 (т.е. подстроку до первого пробела)
Ну и в итоге:
Код:
Edit1.Text := s;
звучит убеждающий) надо раз 15-20 перечитать чтоб понять тока )
__________________
dyh9l вне форума   Ответить с цитированием
Старый 01.12.2010, 16:11   #9
Новичок
 
Регистрация: 15.11.2010
Адрес: Тольятти
Сообщений: 5
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
RangerX пока неопределено
По умолчанию

ну в итоге код принимает вид:
Код:
var
s:string;
//................
s := ReadS(6);
s := copy(s,11,5);
s := Copy(s, 1, Pos(' ', s) - 1);
Edit1.Text := s;
RangerX вне форума   Ответить с цитированием
Старый 01.12.2010, 18:11   #10
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Цитата:
Сообщение от RangerX Посмотреть сообщение
ну в итоге код принимает вид:
Код:
var
s:string;
//................
s := ReadS(6);
s := copy(s,11,5);
s := Copy(s, 1, Pos(' ', s) - 1);
Edit1.Text := s;
у тебя есть аська?)

Добавлено через 1 час 56 минут
оп-оп, немного пошоманил заработало
__________________

Последний раз редактировалось dyh9l, 01.12.2010 в 18:11. Причина: Добавлено сообщение
dyh9l вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 19:49.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!