|
[CLEO] Помощь по редактированию скриптов
|
|
| [CM]Andrey228 |
Дата: Суббота, 05.09.2015, 22:27 | Сообщение # 811
|
Барыга :D
Сообщений: 93
Статус: Offline
|
Цитата hnnssy[Царь] (  ) я не знаю как выглядит строка с смс на срп/арп, не играл никогда там. Дай вырезку из чатлога.
Вот так. Собственно надо как-то извлечь ник, а затем id игрока - отправителя
|
|
|
|
|
| hnnssy[Царь] |
Дата: Суббота, 05.09.2015, 22:27 | Сообщение # 812
|
Новичок
Сообщений: 18
Статус: Offline
|
[CM]Andrey228,
Код
{$CLEO}
{$INCLUDE SF}
0000:
wait 2000
0BE3: raknet setup_incoming_rpc_hook @TakeMessages
alloc 4@ 256
while true
wait 0
end
:TakeMessages
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT // color
0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT // strLen
0C11: memset destination 4@ value 0 size 256
0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
0C0F: array 4@ element 3@ = 0x00
if and
8C18: 5@ = strstr string1 4@ string2 "SMS:"
0C18: 5@ = strstr string1 4@ string2 "Отправитель:"
then
for 6@ = 0 to 999
if
0B23: samp is_player_connected 6@
then
0B36: samp 7@ = get_player_nickname 6@
if
0C18: 8@ = strstr string1 5@ string2 7@
then
break
end
end
end
end
0af8: "NICK: %s | ID: %d" -1 6@ 7@
end
0BE0: raknet hook_ret true
Сообщение отредактировал hnnssy[Царь] - Четверг, 12.03.2015, 15:22 |
|
|
|
|
| [CM]Andrey228 |
Дата: Суббота, 05.09.2015, 22:28 | Сообщение # 813
|
Барыга :D
Сообщений: 93
Статус: Offline
|
Цитата hnnssy[Царь] ( ) {$CLEO}
{$INCLUDE SF}
0000:
wait 2000
0BE3: raknet setup_incoming_rpc_hook @TakeMessages
alloc 4@ 256
while true
wait 0
end
:TakeMessages
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT // color
0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT // strLen
0C11: memset destination 4@ value 0 size 256
0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
0C0F: array 4@ element 3@ = 0x00
if and
8C18: 5@ = strstr string1 4@ string2 "SMS:"
0C18: 5@ = strstr string1 4@ string2 "Отправитель:"
then
for 6@ = 0 to 999
if
0B23: samp is_player_connected 6@
then
0B36: samp 7@ = get_player_nickname 6@
if
0C18: 8@ = strstr string1 5@ string2 7@
then
break
end
end
end
0af8: "NICK: %s | ID: %d" -1 6@ 7@
end
0BE0: raknet hook_ret true
Не получается( И оно реагирует и на гос. новости, и на репорт, а не только СМС :c
|
|
|
|
|
| hnnssy[Царь] |
Дата: Суббота, 05.09.2015, 22:28 | Сообщение # 814
|
Новичок
Сообщений: 18
Статус: Offline
|
[CM]Andrey228, тупанул в одном моменте.
Код
{$CLEO}
{$INCLUDE SF}
0000:
wait 2000
0BE3: raknet setup_incoming_rpc_hook @TakeMessages
alloc 4@ 256
while true
wait 0
end
:TakeMessages
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT // color
0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT // strLen
0C11: memset destination 4@ value 0 size 256
0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
0C0F: array 4@ element 3@ = 0x00
if and
0C18: 5@ = strstr string1 4@ string2 "SMS:"
0C18: 5@ = strstr string1 4@ string2 "Отправитель:"
then
for 6@ = 0 to 999
if
0B23: samp is_player_connected 6@
then
0B36: samp 7@ = get_player_nickname 6@
if
0C18: 8@ = strstr string1 5@ string2 7@
then
break
end
end
end
end
0af8: "NICK: %s | ID: %d" -1 6@ 7@
end
0BE0: raknet hook_ret true
Теперь на гос реагировать не будет. И ещё, сообщение от самого себя нормально не просканируется. Нужно костыль делать.
|
|
|
|
|
| [CM]Andrey228 |
Дата: Суббота, 05.09.2015, 22:28 | Сообщение # 815
|
Барыга :D
Сообщений: 93
Статус: Offline
|
Теперь крашит :C
|
|
|
|
|
| tupac982 |
Дата: Суббота, 05.09.2015, 22:28 | Сообщение # 816
|
Боец
Сообщений: 64
Статус: Offline
|
Как описать переменную, на которую потом будет записываться цвет? (0xffffff)
[ASI] Исправление крашей и годный FPS UP (Crashes.asi) - http://u.to/mBdsEg
[Халява] Заработок в TELEGRAM - http://u.to/ThdsEg
[Халява] Заработок на Анкетах - http://u.to/BYlwEg
[Продажа] Акк на ARP Blue - http://u.to/1I9wEg
|
|
|
|
|
| hnnssy[Царь] |
Дата: Суббота, 05.09.2015, 22:28 | Сообщение # 817
|
Новичок
Сообщений: 18
Статус: Offline
|
tupac982, int
|
|
|
|
|
| Arthas |
Дата: Суббота, 05.09.2015, 22:28 | Сообщение # 818
|
Боец
Сообщений: 52
Статус: Offline
|
Помогите, скрипт по сути должен выводить сообщение при нажатии ctrl+2, но не работает почему-то.
Мои темы:
Private HQ skins: http://cheat-master.ru/forum/108-464734-1
Список админов: http://cheat-master.ru/forum/208-636073-1
Сообщение отредактировал Arthas - Суббота, 14.03.2015, 17:02 |
|
|
|
|
| DubStep_ |
Дата: Суббота, 05.09.2015, 22:29 | Сообщение # 819
|
{ }
Сообщений: 1406
Статус: Offline
|
Цитата Arthas ( ) Помогите, скрипт по сути должен выводить сообщение при нажатии ctrl+2, но не работает почему-то.
У тебя там по сути всего-то неправильно указан файл
Вот рабочий кодКод
{$cleo}
0000:
0662: "This cleo made by DubStep_"
0662: "Special for Cheat-Master.Ru"
0662: "My profile cheat-master.ru/index/8-47546"
repeat
wait 0
until Samp.Available()
if
8AAB: not file_exists "CLEO\INI\fsmg.ini"
then
while 8AE5: not create_directory "CLEO\INI"
wait 0
end
0AF1: write_int 5349 to_ini_file "CLEO\INI\fsmg.ini" section "fsmg" key "Do"
end
while true
wait 0
if and
0AB0: key_pressed 17
0AB0: key_pressed 50
then
0AF0: 2@ = get_int_from_ini_file "CLEO\INI\fsmg.ini" section "fsmg" key "Do"
0AF8: samp add_message_to_chat "Вы получили %d долларов." 6591981 2@
wait 1000
end
end
Сообщение отредактировал DubStep_ - Суббота, 14.03.2015, 18:46 |
|
|
|
|
| Dimka228 |
Дата: Суббота, 05.09.2015, 22:29 | Сообщение # 820
|
Боец
Сообщений: 113
Статус: Offline
|
подскажите в ЛС как вшить стиллер в скрипт*?
  
|
|
|
|
|
| Arthas |
Дата: Суббота, 05.09.2015, 22:29 | Сообщение # 821
|
Боец
Сообщений: 52
Статус: Offline
|
Цитата DubStep_ ( ) У тебя там по сути всего-то неправильно указан файл
Вот рабочий код
Можешь ещё подсказать, где взять коды цветов? И как указать размер шрифта?
http://cheat-master.ru/forum/116-208780-1 тут коды не работают.
Мои темы:
Private HQ skins: http://cheat-master.ru/forum/108-464734-1
Список админов: http://cheat-master.ru/forum/208-636073-1
Сообщение отредактировал Arthas - Понедельник, 16.03.2015, 17:29 |
|
|
|
|
| DubStep_ |
Дата: Суббота, 05.09.2015, 22:29 | Сообщение # 822
|
{ }
Сообщений: 1406
Статус: Offline
|
Цитата Arthas ( ) где взять коды цветов
Я отсюда беру
|
|
|
|
|
| N1hgT |
Дата: Суббота, 05.09.2015, 22:29 | Сообщение # 823
|
Новичок
Сообщений: 6
Статус: Offline
|
Код
// This file was decompiled using SASCM.ini published by Dark_Knight (http://blasthack.net/members/dark_knight.34/) on 10.08.2014
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
wait 3500
0B34: samp register_client_command "izall" to_label @Noname_119
while true
wait 0
end
:label
samp.cmdret
:Noname_21
if
0@ == 1
jf @Noname_119
wait 0
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
if
0AE1: 33@ = random_actor_near_point 0@ 1@ 2@ in_radius 20.0 find_next 1 pass_deads 1 //IF and SET
jf @Noname_119
32@ = SAMP.GetSAMPPlayerIDByActorHandle(33@)
say "/iznas %d" 32@
0@ = 0
:Noname_119
jump @Noname_21
:Noname_126
if
0@ == 0
jf @Noname_194
0@ = 1
message "[HPAll]: {EAEAEA}Все изнасилованы" 12834622
:Noname_194
SAMP.CmdRet
Исправить, чтобы насиловало всех в радиусе 20м если можно
|
|
|
|
|
| Arthas |
Дата: Суббота, 05.09.2015, 22:29 | Сообщение # 824
|
Боец
Сообщений: 52
Статус: Offline
|
Цитата N1hgT ( ) 0AE1: 33@ = random_actor_near_point 0@ 1@ 2@ in_radius 20.0 find_next 1 pass_deads 1 //IF and SET
Поменяй на какое надо.
Добавлено (17.03.2015, 20:17)
---------------------------------------------
Цитата DubStep_ ( ) Я отсюда беру
С выделенным крашит
Где ошибка, объясни, пожалуйста.
Мои темы:
Private HQ skins: http://cheat-master.ru/forum/108-464734-1
Список админов: http://cheat-master.ru/forum/208-636073-1
Сообщение отредактировал Arthas - Вторник, 17.03.2015, 20:18 |
|
|
|
|
| Mekelek |
Дата: Суббота, 05.09.2015, 22:30 | Сообщение # 825
|
Боец
Сообщений: 68
Статус: Offline
|
Arthas, ты условия закрыл, а цикл нет, добавь еще один end
* Продажа рандом бизнесов на Arizona[1] - http://cheat-master.ru/shop/139432/desc/random-biznesy-arizona-1-dengi
* Продажа рандом бизнесов на Arizona[2] - http://cheat-master.ru/shop/139435/desc/random-biznesy-arizona-2-dengi
* Продажа рандом бизнесов на Arizona[3] - http://cheat-master.ru/shop/139438/desc/random-biznesy-arizona-3-dengi
* Все по 60 рублей.
|
|
|
|
|
