Someone combine these 2 cleos please? I want them to be in one cleo file, and work.
@D3.Pheonix Can you help me ?
@D3.Pheonix Can you help me ?
Someone combine these 2 cleos please
- Автор темы gearfoy51
- Дата начала
- 2,815
- 1,593
At first, check this (it's kruv.cs). I reworked it to make a clean source code. I'm not sure, that it works)
CLEO:
{$CLEO .cs}
{$USE ini}
{$USE file}
0000: NOP
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "healpos" to_label @healpos
0B34: samp register_client_command "healstyle" to_label @healstyle
0B34: samp register_client_command "healsize" to_label @healsize
0B34: samp register_client_command "clear1" to_label @clear1
0B34: samp register_client_command "stop1" to_label @stop1
alloc 1@ 64
alloc 2@ 64
alloc 3@ 64
alloc 7@ 64
alloc 8@ 64
alloc 22@ 260
alloc 23@ 260
alloc 24@ 260
alloc 23@ 260
0AF2: 1@ = get_float_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_POS_X"
0AF2: 2@ = get_float_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_POS_Y"
0AF0: 3@ = get_int_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_STYLE"
0AF2: 7@ = get_float_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_LETTER_X"
0AF2: 8@ = get_float_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_LETTER_Y"
31@ = 0
while true
wait 0
for TIMERA = 98 to 99
if and
0ADC: test_cheat "mod1"
20@ == 0
then
if 0@ == 0
then
0@ = 1
03F0: enable_text_draw 1
0C48: samp textdraw 420 create "HEALME" pos 1@ 2@
0C4B: samp textdraw 420 set_proportional 1
0C4A: samp textdraw 420 set_align 2
0C4C: samp textdraw 420 set_style 3@
0C4E: samp textdraw 420 set_outline 1 color -16777216
0C52: samp textdraw 420 set_letter_size 7@ 8@ color -16737997
018C: play_sound 1057 at 0.0 0.0 0.0
wait 100
else
0@ = 0
0C52: samp textdraw 420 set_letter_size 7@ 8@ color -6750208
end
end
if and
0@ == 1
20@ == 0
then
0AF0: 5@ = get_int_from_ini_file "cleo\auto.ini" section "Healme" key "HP"
0AF0: 6@ = get_int_from_ini_file "cleo\auto.ini" section "Healme" key "MIN"
4@ = Actor.Health($PLAYER_ACTOR)
if and
801D: not 4@ > 5@ // (int)
801D: not 6@ > 4@ // (int)
then
say "/healme"
chatmsg "{a6a6a6}Ex7 Mods: {ff9900}Healme{a6a6a6} used!" 16777215
0C52: samp textdraw 420 set_letter_size 7@ 8@ color -26368
20@ = 1
end
end
if 31@ == 0
then
SAMP.GetChatString(99, 22@, 23@, 24@, 25@)
end
if and
0C18: 10@ = strstr string1 22@ string2 "triite mi mоdа"
0C18: 10@ = strstr string1 22@ string2 "bs.Ex7"
then
chatmsg "{a6a6a6}Ex7 Mods: Нямаш право да използваш мода повечe!" 16777215
say "Slusham 6ef"
0B00: delete_file "CLEO\auto.ini" // IF and SET
0B00: delete_file "models\gta3.img" // IF and SET
31@ = 1
end
if and
0C18: 10@ = strstr string1 22@ string2 "nаpusnеtе vednagа"
0C18: 10@ = strstr string1 22@ string2 "bs.Ex7"
then
say "Ex7 mi zapovqda da izlezna"
31@ = 1
end
if and
0C18: 11@ = strstr string1 22@ string2 "mahаi se ot tukа"
0C18: 11@ = strstr string1 22@ string2 "bs.Excelds."
then
say "Excelds mi zapovqda da izlezna"
say "otivam da mu lapam"
31@ = 1
end
if 31@ == 1
then
2@ = SAMP.GetPlayerNickname(8@)
format 9@ "%s" 8@
end
if and
0@ == 1
20@ == 1
then
if 0C18: 10@ = strstr string1 22@ string2 "/healme отново"
then
20@ = 0
chatmsg "{a6a6a6}Ex7 Mods: {009933}Healme{a6a6a6} ready!" 16777215
0C52: samp textdraw 420 set_letter_size 7@ 8@ color -16737997
018C: play_sound 1057 at 0.0 0.0 0.0
end
end
end
end
:clear1
0@ = 0
20@ = 0
0C5E: samp textdraw 420 delete
SAMP.CmdRet()
:stop1
0@ = 0
20@ = 0
0C5E: samp textdraw 420 delete
chatmsg "{a6a6a6}Ex7 Mods: Auto Healme е изключено!" 16777215
chatmsg "{a6a6a6}Ex7 Mods: Отвори конзолата и напиши cs <filename> за да го активираш отново! (Пример: cs kruv.cs)" 16777215
run "STOPHEALME"
0A93: end_custom_thread
SAMP.CmdRet()
:healpos
SAMP.IsCommandTyped(26@)
if 0AD4: 21@ = scan_string 26@ format "%d %d" 1@ 2@
then
0093: 1@ = integer 1@ to_float
0093: 2@ = integer 2@ to_float
chatmsg "{a6a6a6}Ex7 Mods: Координатите на HEALME са сменени - %f, %f [Original: (578, 70) or (578, 57)]" 16753920 1@ 2@
0AF3: write_float 1@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_POS_X"
0AF3: write_float 2@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_POS_Y"
0C51: samp textdraw 420 set_pos 1@ 2@
else
chatmsg "{a6a6a6}Ex7 Mods: Изполвай /healpos [X] [Y] (HUD - [578, 70] / CLEAR - [578, 57])" 16753920
end
Samp.CmdRet()
:healstyle
SAMP.IsCommandTyped(26@)
if 0AD4: 21@ = scan_string 26@ format "%d" 3@
then
chatmsg "{a6a6a6}Ex7 Mods: Стилът е сменен [%d]" 16753920 3@
0AF1: write_int 3@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_STYLE"
0C4C: samp textdraw 420 set_style 3@
else
chatmsg "{a6a6a6}Ex7 Mods: Изполвай /healstyle [1,2,3]" 16753920
end
Samp.CmdRet()
:healsize
SAMP.IsCommandTyped(26@)
if 0AD4: 21@ = scan_string 26@ format "%f %f" 7@ 8@
then
chatmsg "{a6a6a6}Ex7 Mods: Координатите на HEALME са сменени - %f, %f [Original - (0.3, 1.0) or (0.2, 0.75)]" 16753920 7@ 8@
0AF3: write_float 7@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_LETTER_X"
0AF3: write_float 8@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_LETTER_Y"
0C5C: samp textdraw 420 get_letter_size 11@ 12@ color 9@
0C52: samp textdraw 420 set_letter_size 7@ 8@ color 9@
else
chatmsg "{a6a6a6}Ex7 Mods: Изполвай /healsize [X] [Y] (HUD - [0.3, 1.0] / CLEAR - [0.2, 0.75])" 16753920
end
Samp.CmdRet()Can you add reaction2.cs to the original kruv.cs i sent? Because I don’t know why you reworked the kruv.cs its already working. I just want reaction2.cs code in kruv.cs so i can use the 2 cleos in one file, like the “multi cheats” if you know what i mean :D
Последнее редактирование:
- 2,815
- 1,593
CLEO:
{$CLEO .cs}
{$USE ini}
{$USE file}
0000: NOP
0C6A: 15@ = create_custom_thread_at_label @reaction_script
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "healpos" to_label @healpos
0B34: samp register_client_command "healstyle" to_label @healstyle
0B34: samp register_client_command "healsize" to_label @healsize
0B34: samp register_client_command "clear1" to_label @clear1
0B34: samp register_client_command "stop1" to_label @stop1
alloc 1@ 64
alloc 2@ 64
alloc 3@ 64
alloc 7@ 64
alloc 8@ 64
alloc 22@ 260
alloc 23@ 260
alloc 24@ 260
alloc 23@ 260
0AF2: 1@ = get_float_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_POS_X"
0AF2: 2@ = get_float_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_POS_Y"
0AF0: 3@ = get_int_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_STYLE"
0AF2: 7@ = get_float_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_LETTER_X"
0AF2: 8@ = get_float_from_ini_file "cleo\auto.ini" section "Healme" key "HEALME_LETTER_Y"
31@ = 0
while true
wait 0
for TIMERA = 98 to 99
if and
0ADC: test_cheat "mod1"
20@ == 0
then
if 0@ == 0
then
0@ = 1
03F0: enable_text_draw 1
0C48: samp textdraw 420 create "HEALME" pos 1@ 2@
0C4B: samp textdraw 420 set_proportional 1
0C4A: samp textdraw 420 set_align 2
0C4C: samp textdraw 420 set_style 3@
0C4E: samp textdraw 420 set_outline 1 color -16777216
0C52: samp textdraw 420 set_letter_size 7@ 8@ color -16737997
018C: play_sound 1057 at 0.0 0.0 0.0
wait 100
else
0@ = 0
0C52: samp textdraw 420 set_letter_size 7@ 8@ color -6750208
end
end
if and
0@ == 1
20@ == 0
then
0AF0: 5@ = get_int_from_ini_file "cleo\auto.ini" section "Healme" key "HP"
0AF0: 6@ = get_int_from_ini_file "cleo\auto.ini" section "Healme" key "MIN"
4@ = Actor.Health($PLAYER_ACTOR)
if and
801D: not 4@ > 5@ // (int)
801D: not 6@ > 4@ // (int)
then
say "/healme"
chatmsg "{a6a6a6}Ex7 Mods: {ff9900}Healme{a6a6a6} used!" 16777215
0C52: samp textdraw 420 set_letter_size 7@ 8@ color -26368
20@ = 1
end
end
if 31@ == 0
then
SAMP.GetChatString(99, 22@, 23@, 24@, 25@)
end
if and
0C18: 10@ = strstr string1 22@ string2 "triite mi mоdа"
0C18: 10@ = strstr string1 22@ string2 "bs.Ex7"
then
chatmsg "{a6a6a6}Ex7 Mods: Нямаш право да използваш мода повечe!" 16777215
say "Slusham 6ef"
0B00: delete_file "CLEO\auto.ini" // IF and SET
0B00: delete_file "models\gta3.img" // IF and SET
31@ = 1
end
if and
0C18: 10@ = strstr string1 22@ string2 "nаpusnеtе vednagа"
0C18: 10@ = strstr string1 22@ string2 "bs.Ex7"
then
say "Ex7 mi zapovqda da izlezna"
31@ = 1
end
if and
0C18: 11@ = strstr string1 22@ string2 "mahаi se ot tukа"
0C18: 11@ = strstr string1 22@ string2 "bs.Excelds."
then
say "Excelds mi zapovqda da izlezna"
say "otivam da mu lapam"
31@ = 1
end
if 31@ == 1
then
2@ = SAMP.GetPlayerNickname(8@)
format 9@ "%s" 8@
end
if and
0@ == 1
20@ == 1
then
if 0C18: 10@ = strstr string1 22@ string2 "/healme отново"
then
20@ = 0
chatmsg "{a6a6a6}Ex7 Mods: {009933}Healme{a6a6a6} ready!" 16777215
0C52: samp textdraw 420 set_letter_size 7@ 8@ color -16737997
018C: play_sound 1057 at 0.0 0.0 0.0
end
end
end
end
:clear1
0@ = 0
20@ = 0
0C5E: samp textdraw 420 delete
SAMP.CmdRet()
:stop1
0@ = 0
20@ = 0
0C5E: samp textdraw 420 delete
chatmsg "{a6a6a6}Ex7 Mods: Auto Healme е изключено!" 16777215
chatmsg "{a6a6a6}Ex7 Mods: Отвори конзолата и напиши cs <filename> за да го активираш отново! (Пример: cs kruv.cs)" 16777215
run "STOPHEALME"
0A93: end_custom_thread
SAMP.CmdRet()
:healpos
SAMP.IsCommandTyped(26@)
if 0AD4: 21@ = scan_string 26@ format "%d %d" 1@ 2@
then
0093: 1@ = integer 1@ to_float
0093: 2@ = integer 2@ to_float
chatmsg "{a6a6a6}Ex7 Mods: Координатите на HEALME са сменени - %f, %f [Original: (578, 70) or (578, 57)]" 16753920 1@ 2@
0AF3: write_float 1@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_POS_X"
0AF3: write_float 2@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_POS_Y"
0C51: samp textdraw 420 set_pos 1@ 2@
else
chatmsg "{a6a6a6}Ex7 Mods: Изполвай /healpos [X] [Y] (HUD - [578, 70] / CLEAR - [578, 57])" 16753920
end
Samp.CmdRet()
:healstyle
SAMP.IsCommandTyped(26@)
if 0AD4: 21@ = scan_string 26@ format "%d" 3@
then
chatmsg "{a6a6a6}Ex7 Mods: Стилът е сменен [%d]" 16753920 3@
0AF1: write_int 3@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_STYLE"
0C4C: samp textdraw 420 set_style 3@
else
chatmsg "{a6a6a6}Ex7 Mods: Изполвай /healstyle [1,2,3]" 16753920
end
Samp.CmdRet()
:healsize
SAMP.IsCommandTyped(26@)
if 0AD4: 21@ = scan_string 26@ format "%f %f" 7@ 8@
then
chatmsg "{a6a6a6}Ex7 Mods: Координатите на HEALME са сменени - %f, %f [Original - (0.3, 1.0) or (0.2, 0.75)]" 16753920 7@ 8@
0AF3: write_float 7@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_LETTER_X"
0AF3: write_float 8@ to_ini_file "cleo\auto.ini" section "Healme" key "HEALME_LETTER_Y"
0C5C: samp textdraw 420 get_letter_size 11@ 12@ color 9@
0C52: samp textdraw 420 set_letter_size 7@ 8@ color 9@
else
chatmsg "{a6a6a6}Ex7 Mods: Изполвай /healsize [X] [Y] (HUD - [0.3, 1.0] / CLEAR - [0.2, 0.75])" 16753920
end
Samp.CmdRet()
// SECOND SCRIPT
:reaction_script
repeat
wait 0
until 0AFA: SAMP_IS_READ
0B34: samp register_client_command "parrot" to_label @cmd
while true
wait 0
if 0B61: samp is_local_player_spawned
then
if and
30@ == true // chat text checking was disabled
32@ > 4000 // 2sec passed
then
30@ = false // enable chat checking
32@ = 0 // reset timer
end
// 1@ is regular chat text
// 2@ is text from player nickname, like: Admin_Big: Hello , so it will return sender name: Admin_Big
0AC8: 0@ = allocate_memory_size 1024
0AC8: 1@ = allocate_memory_size 1024
for 0@ = 98 to 99 // 99 is last chat line and 98 is before last, >>>> this will let you read last two chat lines
0B75: samp get_chat_string 0@ text_to 1@ prefix_to 2@ color_to 3@ prefix_color_to 4@
0AC8: 5@ = allocate_memory_size 1024
0AB1: @delete_color_codes 2 text 1@ memory_to_store_characters_as_text 5@
if and
31@ == true // code is activated
30@ == false // for securety, it will be true after aswer, so it won't work not ganna check chat text
0C29: 6@ = stristr string1 5@ string2 "[REACTION]:" // find match text
then
6@ += 42 // skip first characters
if 0AD4: $NOT_USED = scan_string 6@ format "%d + %d" 7@ 8@
then
005A: 7@ += 8@
0AC8: 10@ = allocate_memory_size 1024
0AD3: 10@ = format "/rt %d" 7@
0209: 9@ = random_int_in_ranges 4000 5000 // generate random time from 2sec till 3sec
wait 9@
0C8F: samp process_chat_input 10@
30@ = true // disable chat text checking
32@ = 0 // reset timer
end
if 0AD4: $NOT_USED = scan_string 6@ format "%d - %d" 7@ 8@
then
0062: 7@ -= 8@
0AC8: 10@ = allocate_memory_size 1024
0AD3: 10@ = format "/rt %d" 7@
0209: 9@ = random_int_in_ranges 4000 5000 // generate random time from 2sec till 3sec
wait 9@
0C8F: samp process_chat_input 10@
30@ = true // disable chat text checking
32@ = 0 // reset timer
end
if 0AD4: $NOT_USED = scan_string 6@ format "%d * %d" 7@ 8@
then
006A: 7@ *= 8@
0AC8: 10@ = allocate_memory_size 1024
0AD3: 10@ = format "/rt %d" 7@
0209: 9@ = random_int_in_ranges 9000 10000 // generate random time from 2sec till 3sec
wait 9@
0C8F: samp process_chat_input 10@
30@ = true // disable chat text checking
32@ = 0 // reset timer
end
if 0AD4: $NOT_USED = scan_string 6@ format "%d / %d" 7@ 8@
then
0072: 7@ /= 8@
0AC8: 10@ = allocate_memory_size 1024
0AD3: 10@ = format "/rt %d" 7@
0209: 9@ = random_int_in_ranges 2000 3000 // generate random time from 2sec till 3sec
wait 9@
0C8F: samp process_chat_input 10@
30@ = true // disable chat text checking
32@ = 0 // reset timer
end
end
end
end
end
:delete_color_codes // from last work snippet, it is no point make same snippet when you can simply just copy paste xD
{
0AC8: 5@ = allocate_memory_size 1024
0AB1: @delete_color_codes 2 text 0@ memory_to_store_characters_as_text 5@
}
5@ = false // inbracket
0C17: 31@ = strlen 0@
for 30@ = 0 to 31@
0085: 29@ = 0@ // copy pointer
005A: 29@ += 30@ // add offset (as the loop progresses it becomes pointers to first-last character)
0A8D: 28@ = read_memory 29@ size 1 virtual_protect 1 // 28@ is the ascii number representing character
if 28@ == 123 // start inbracket
then
5@ = true // inbracket
end
if 5@ == false // inbracket
then
0A8C: write_memory 1@ size 1 value 28@ virtual_protect 1
1@ += 1 // move to next address
end
if 28@ == 125
then
5@ = false // end inbracket
end
end
0A8C: write_memory 1@ size 1 value 0 virtual_protect 1 // null-termination
0AB2: ret 0
:cmd
if 31@ == false
then
31@ = true
0AD1: "~W~#Parrot ~N~ ~Y~ ~G~ON" 1337
else
31@ = false
30@ = false
0AD1: "~W~#Parrot ~N~ ~Y~ ~R~OFF" 1337
end
0B43: samp cmd_retI just wanted you to check rework vers. For me, it's easier to read code, if it has correct source instead of decompiled
- Статус
