[CLEO] Помощь по редактированию скриптов - Страница 57 - Форум Cheat-Master.ru
Модератор форума: Alowir, Sanoxxx  
[CLEO] Помощь по редактированию скриптов
[Cleo]Unload Дата: Суббота, 05.09.2015, 22:32 | Сообщение # 841
Новичок
Сообщений: 27
Статус: Offline
Можете скинуть исходник скрипта создавание мишини клавишей например (5 - Infernus) (0 - Turismo) !
Зделайте пажалуста за ранее спасибо большое!
[CM]TwistedNuke Дата: Суббота, 05.09.2015, 22:32 | Сообщение # 842
Новичок
Сообщений: 7
Статус: Offline
Помогите, при входе в игру крашит, из-за выделения памяти переменной. Без выделения всё работает, но в чате не отображаются 5 символов, отображаются только 4 и последний рандомный.

Код
{$CLEO .cs}

0000: NOP
repeat
wait 400
until 0AFA: is_samp_available
0B34: samp register_client_command "fmed" to_label @Fake_1
0AF8: samp add_message_to_chat "* {FF0000}/fmed [nick]" color -1
alloc 3@s 64

:Fake_2
wait 0
if
0@ == 1
else_jump @Fake_3
0B2B: samp 4@ = get_player_id_by_actor_handle $PLAYER_ACTOR
5@ = SAMP.GetPlayerNickname(4@)
0AF8: samp add_message_to_chat "* Âû âûäàëè %s Ìåä.Êàðòó" color 0x10D7FF 3@s
0AF8: samp add_message_to_chat "* Äîêòîð %s âûäàë Ìåä.Êàðòó %s" color 0xE77DFF 5@ 3@s
0AF8: samp add_message_to_chat "* Äîêòîð %s âûäàë ìåäèöèíñêóþ êàðòó %s" color 0xB551E7 5@ 3@s
3@s = 0

:Fake_3
0@ = 0
goto @Fake_2

:Fake_1
0@ = 1
SAMP.IsCommandTyped(1@)
0AD4: 2@ = scan_string 1@ format "%s" 3@s
SAMP.CmdRet


Сообщение отредактировал [CM]TwistedNuke - Среда, 27.05.2015, 21:31
Chag Дата: Суббота, 05.09.2015, 22:33 | Сообщение # 843
Новичок
Сообщений: 15
Статус: Offline
[CM]TwistedNuke, Не alloc 3@s 64 , а alloc 3@ 64. Ибо если дописывать "s" , то если мне не изменяет память , берется сразу 3 переменные , 3@ , 4@ , 5@. Из за этого возможен chrash.
[CM]TwistedNuke Дата: Суббота, 05.09.2015, 22:33 | Сообщение # 844
Новичок
Сообщений: 7
Статус: Offline
Цитата Chag ()
[CM]TwistedNuke, Не alloc 3@s 64 , а alloc 3@ 64. Ибо если дописывать "s" , то если мне не изменяет память , берется сразу 3 переменные , 3@ , 4@ , 5@. Из за этого возможен chrash.

Я так тоже пробовал, в переменную записываются иероглифы..
hnnssy[Царь] Дата: Суббота, 05.09.2015, 22:33 | Сообщение # 845
Новичок
Сообщений: 18
Статус: Offline
[CM]TwistedNuke, нельзя с помощью 0AD4 сканировать стринг на наличие стринга.
[CM]TwistedNuke Дата: Суббота, 05.09.2015, 22:33 | Сообщение # 846
Новичок
Сообщений: 7
Статус: Offline
Цитата hnnssy[Царь] ()
[CM]TwistedNuke, нельзя с помощью 0AD4 сканировать стринг на наличие стринга.

Какой тогда опкод использовать, сударь. Указать судьба не позволяет?
[CM]Andrey228 Дата: Суббота, 05.09.2015, 22:33 | Сообщение # 847
Барыга :D
Сообщений: 93
Статус: Offline
у меня есть 2 переменные
1@ и 2@
в каждой из них число
как мне эти числа сложить и записать в переменную 3@ ?
♦Gromble♦ Дата: Суббота, 05.09.2015, 22:33 | Сообщение # 848
Бывалый
Сообщений: 488
Статус: Offline
Цитата [CM]Andrey228 ()
у меня есть 2 переменные
1@ и 2@
в каждой из них число
как мне эти числа сложить и записать в переменную 3@ ?

0A8E: 3@ = 1@ + 2@


-------------------------------------------------------------------



[New] CC Pack by Gromble
Сслылка на скачивание: *Click
[CM]Andrey228 Дата: Суббота, 05.09.2015, 22:34 | Сообщение # 849
Барыга :D
Сообщений: 93
Статус: Offline
Здравствуйте. Вот код.
Код
:Noname_135
if   
     SAMP.IsPlayerConnected(5@)
jf @Noname_297   
6@ = SAMP.GetPlayerNickname(5@)
format 7@ "Гос. новости: %s[%d]:" 6@ 5@   
if   
0C18: 32@ = strstr string1 1@ string2 7@   
jf @Noname_297
12@ += 1
chatmsg "Отправитель: %s[%d]. Строк: %d" 16732208 6@ 5@ 12@
wait 0

:Noname_297
5@ += 1   
    5@ > 1000   
jf @Noname_135

Этот код чекает гос. новости. Мне надо сделать что-бы только после того как оно нашло 3 строки, которые кинул ОДИН и тот же лидер выполнялось какое-нибудь действие. Паблик постоянно обновляется, и поэтому я не могу понять как вообще определить был ли это один и тот же лидер, и было ли это 3 строки (просто можно кинуть по 1 строке в разное время). Думаю понятно расписал. Заранее спасибо за помощь.


Сообщение отредактировал [CM]Andrey228 - Среда, 03.06.2015, 22:04
kuleer Дата: Суббота, 05.09.2015, 22:34 | Сообщение # 850
Новичок
Сообщений: 4
Статус: Offline
0B56: set_game_key 1 state -255 как поменять клавишу w на alt ???
[CM]KYRLYK Дата: Суббота, 05.09.2015, 22:34 | Сообщение # 851
Любитель
Сообщений: 33
Статус: Offline
Цитата kuleer ()
0B56: set_game_key

"0B56: set_game_key" Устанавливает статус нажатия игровой(НЕ клавиатурной) клавиши.


Сообщение отредактировал [CM]KYRLYK - Пятница, 05.06.2015, 13:48
pikolminecraft Дата: Суббота, 05.09.2015, 22:34 | Сообщение # 852
Новичок
Сообщений: 6
Статус: Offline
Здравствуйте, скиньте клео на создание пикапов, которые можно ставить хоть сколько и их нельзя подбирать. На клавишу + .

pikolminecraft
[CM]KYRLYK Дата: Суббота, 05.09.2015, 22:34 | Сообщение # 853
Любитель
Сообщений: 33
Статус: Offline
Код

               if 0ab0: key_down 51
                   then
                       0ac8: alloc 0@ size 64
                       0ad3: format_stirng 0@ = "God Mode: Выключить%cGod Mode: Включить%cTest%cH2O" 0xA 0xA
                       0B3B: samp show_dialog id 47 caption "Test" text 0@ button_1 "Выбрать" button_2 "Закрыть" style DIALOG_STYLE_LIST
                       0ac9: free 0@
                       break
                   end

             // DIALOG_STYLE_LIST
           if 0B3C: samp is_dialog_responded id 47 button 1@ list_item 3@ input_text 0       
           then
               if 1@ == 1       
               then
         if 3@ == 0
         then
        actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
         end
              
         if 3@ == 1
         then
          actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
         end       
              
              
         if 3@ == 2
         then
         0af8: chat "В разработке" -1
         end
               end
           end

Как в этот диалог добавить новый пункт, и чтобы при активации этого нового пункта показывалось сообщение в чат? Я пытался добавить пункт и сделал вот так:

(То что я пытался сделать отмечено красным цветом.)

Но ничего из этого не вышло и у меня начались лаги. Можете отредактировать этот кусочек скрипта чтобы он работал нормально?


Сообщение отредактировал [CM]KYRLYK - Суббота, 06.06.2015, 21:08
neyZ Дата: Суббота, 05.09.2015, 22:34 | Сообщение # 854
Любитель
Сообщений: 40
Статус: Offline
Помогите ничего не понял
[Cleo]Unload Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 855
Новичок
Сообщений: 27
Статус: Offline
Ребята,помогите настроить CLEO TP для нубо серверов вот исходник
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP

repeat
wait 0

5@ = 0

:TPIN_18
wait 0
if
Player.Defined($PLAYER_CHAR)
else_jump @TPIN_18
if
Player.Controllable($PLAYER_CHAR)
else_jump @TPIN_18
if
key_down 48
else_jump @TPIN_83
5@ = 1
33@ = 0

:TPIN_83
if and
5@ == 1
key_down 49
else_jump @TPIN_119
5@ = 0
jump @TPIN_170

:TPIN_119
if
5@ == 1
else_jump @TPIN_18
if
33@ > 5000
else_jump @TPIN_18
5@ = 0
jump @TPIN_18

:TPIN_170
4@ = Actor.Angle($PLAYER_ACTOR)
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
0169: set_fade_color_RGB 0 0 0
fade 0 500
wait 500
Player.CanMove($PLAYER_CHAR) = False
select_interior 0
04FA: reset_sky_colors_with_fade 0
057E: set_radar_grey 0
04E4: refresh_game_renderer_at 0@ 1@
Camera.SetAtPos(0@, 1@, 2@)
if
Player.Defined($PLAYER_CHAR)
else_jump @TPIN_294
0860: link_actor $PLAYER_ACTOR to_interior 0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, -100.0)
Actor.Angle($PLAYER_ACTOR) = 4@

:TPIN_294
wait 0
if
Player.Defined($PLAYER_CHAR)
else_jump @TPIN_294
wait 1500
fade 1 1000

:TPIN_326
if
fading
else_jump @TPIN_350
wait 0
jump @TPIN_326

:TPIN_350
wait 0
if
Player.Defined($PLAYER_CHAR)
else_jump @TPIN_350
Player.CanMove($PLAYER_CHAR) = True
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
jump @TPIN_18

Добавлено (13.06.2015, 22:42)
---------------------------------------------
Помогите пажалуста с командой активации CLEO скрипта,недавно начел заниматса CLEO,можете помочь с таким CLEO как Invisible! Мне надо что-бы он активировался и деактивировался командой,буду рад помощи за ранее спасибо вот исходник даного CLEO

[code]{$CLEO .cs}

//-------------MAIN---------------
0000: NOP

:Noname_2
wait 0
SAMP.Available
jf @Noname_2
0B34: samp register_client_command "invon" to_label @OnfootData_515
0B34: samp register_client_command "invoff" to_label @OnfootData_219

:OnfootData_515
0@ += 16864
0A8D: 28@ = read_memory 0@ size 1 virtual_protect 1
0A8C: write_memory 0@ size 1 value 195 virtual_protect 1
Actor.StorePos($PLAYER_ACTOR, 25@, 26@, 27@)
print "Invisible On." 3000
SAMP.CmdRet

:OnfootData_156
wait 0
Actor.StorePos($PLAYER_ACTOR, 21@, 22@, 23@)
0509: 20@ = distance_between_XY 21@ 22@ and_XY 25@ 26@
if
not 20@ > 40.1
:OnfootData_219
0A8C: write_memory 0@ size 1 value 28@ virtual_protect 1
print "Invisible Off." 3000
SAMP.CmdRet

:OnfootData_268
wait 0
0A8C: write_memory 0@ size 1 value 28@ virtual_protect 1
Actor.StorePos($PLAYER_ACTOR, 25@, 26@, 27@)
02CE: 24@ = ground_z_at 25@ 26@ 27@
24@ -= 25.0
0A96: 4@ = actor $PLAYER_ACTOR struct
4@ += 20
0A8D: 4@ = read_memory 4@ size 4 virtual_protect 0
4@ += 48
0A8C: write_memory 4@ size 4 value 25@ virtual_protect 0
4@ += 4
0A8C: write_memory 4@ size 4 value 26@ virtual_protect 0
4@ += 4
0A8C: write_memory 4@ size 4 value 24@ virtual_protect 0
wait 30
0A8C: write_memory 0@ size 1 value 195 virtual_protect 1
0A96: 4@ = actor $PLAYER_ACTOR struct
4@ += 20
0A8D: 4@ = read_memory 4@ size 4 virtual_protect 0
4@ += 48
0A8C: write_memory 4@ size 4 value 25@ virtual_protect 0
4@ += 4
0A8C: write_memory 4@ size 4 value 26@ virtual_protect 0
4@ += 4
0A8C: write_memory 4@ size 4 value 27@ virtual_protect 0
:OnfootData_228
0AA2: 31@ = load_library "kernel32.dll" // IF and SET
0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@ // IF and SET
0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 0@
ret 1 0@

Поиск:
Статистика Форума