Вопросы по CLEO-скриптингу

OnlyDeff

Новичок
10
0
Код:
{$CLEO .cs}
 
0000: NOP
// SAMPFUNCS
if 8AF7: get_samp_base_to 33@
then 0A93: end_custom_thread
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
// ---------------------
 
while true
wait 0 
    alloc 4@ 128
    alloc 5@ 128
    alloc 6@ 128
    alloc 8@ 128
    0B65: samp 23@ = player $PLAYER_ACTOR score
    0B2B: samp 20@ = get_player_id_by_actor_handle $PLAYER_ACTOR
    0B36: samp 21@ = get_player_nickname 20@
    0B2A: samp 22@ = get_player_ping 20@
    0@ = Actor.Health($PLAYER_ACTOR)
    04DD: 1@ = actor $PLAYER_ACTOR armour
    format 6@ "Player id: %d" 20@
    format 8@ "Player ping: %d" 22@
    format 5@ "Player health: %d" 0@
    format 4@ "Player armour: %d" 1@
    Dialog.Create(29@, 21@)
    0B84: samp dialog 29@ set_pos_XY 46 330 size 140 130
    0B91: dialog 29@ add_static id 2 text 6@ pos_XY 6 13 size 150 15
    0B91: dialog 29@ add_static id 3 text 8@ pos_XY 6 38 size 150 15
    0B91: dialog 29@ add_static id 4 text 5@ pos_XY 6 63 size 150 15
    0B91: dialog 29@ add_static id 5 text 4@ pos_XY 6 88 size 150 15
    0B86: samp dialog 29@ set_visible true
    wait 3000
end

В этом коде иногда падает фпс, сначала ставил задержку 1000 все равно фпс на 10 падал, а теперь с задержкой 3000, минут через 15 падает до 20-30.
 

Dark_Knight

Me, me and me.
Друг
4,067
2,080
Код:
{$CLEO .cs}
 
0000: NOP
if 8AF7: get_samp_base_to 33@
then 0A93: end_custom_thread
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
 
alloc 4@ 128
alloc 5@ 128
alloc 6@ 128
alloc 8@ 128
0B65: samp 23@ = player $PLAYER_ACTOR score
0B2B: samp 20@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B36: samp 21@ = get_player_nickname 20@
0B2A: samp 22@ = get_player_ping 20@
0@ = Actor.Health($PLAYER_ACTOR)
04DD: 1@ = actor $PLAYER_ACTOR armour
format 6@ "Player id: %d" 20@
format 8@ "Player ping: %d" 22@
format 5@ "Player health: %d" 0@
format 4@ "Player armour: %d" 1@
Dialog.Create(29@, 21@)
0B84: samp dialog 29@ set_pos_XY 46 330 size 140 130
0B91: dialog 29@ add_static id 2 text 6@ pos_XY 6 13 size 150 15
0B91: dialog 29@ add_static id 3 text 8@ pos_XY 6 38 size 150 15
0B91: dialog 29@ add_static id 4 text 5@ pos_XY 6 63 size 150 15
0B91: dialog 29@ add_static id 5 text 4@ pos_XY 6 88 size 150 15
0B86: samp dialog 29@ set_visible true
 
while true
wait 0
0B65: samp 23@ = player $PLAYER_ACTOR score
0B2B: samp 20@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B36: samp 21@ = get_player_nickname 20@
0B2A: samp 22@ = get_player_ping 20@
0@ = Actor.Health($PLAYER_ACTOR)
04DD: 1@ = actor $PLAYER_ACTOR armour
format 6@ "Player id: %d" 20@
format 8@ "Player ping: %d" 22@
format 5@ "Player health: %d" 0@
format 4@ "Player armour: %d" 1@
0B94: dialog 29@ set_control 2 text 6@
0B94: dialog 29@ set_control 3 text 7@
0B94: dialog 29@ set_control 4 text 5@
0B94: dialog 29@ set_control 5 text 4@
end
 

fonarik

Известный
206
3
почему крашит?
{$CLEO .cs}
0000:
if not 0@ = SAMP.Base()
then 0a93:
end

repeat
wait 228
until SAMP.Available()

while true
wait 0
if
0ab0: 53
then
0ACD: show_text_highpriority "~g~On" time 1000
0B2E: 0@ = read_samp_memory offset 0x41E0 size 2
0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 2
repeat
wait 0
until 0ab0: 104
0B2D: write_samp_memory offset 0x41E0 value 0@ size 2
end

end
AugAPtj.png
 

DubStep_

Известный
292
52
почему крашит?
{$CLEO .cs}
0000:
if not 0@ = SAMP.Base()
then 0a93:
end

repeat
wait 228
until SAMP.Available()

while true
wait 0
if
0ab0: 53
then
0ACD: show_text_highpriority "~g~On" time 1000
0B2E: 0@ = read_samp_memory offset 0x41E0 size 2
0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 2
repeat
wait 0
until 0ab0: 104
0B2D: write_samp_memory offset 0x41E0 value 0@ size 2
end
end
AugAPtj.png


PHP:
{$CLEO .cs}
0000:
if not 0@ = SAMP.Base()
then 0a93:
end
 
repeat
wait 228
until SAMP.Available()
 
while true
wait 0
if
0ab0: 53
then
0ACD: show_text_highpriority "~g~On" time 1000
SAMP.ReadSAMPMemory(6@, 0x41E0, 2)
SAMP.WriteSAMPMemory(0x41E0, 50064, 2)
repeat
wait 0
until 0ab0: 104
0ACD: show_text_highpriority "~r~Off" time 1000
SAMP.WriteSAMPMemory(0x41E0, 6@, 2)
end
end
 

SR_team

like pancake
BH Team
4,720
6,374
PHP:
{$CLEO .cs}
0000:
if not 0@ = SAMP.Base()
then 0a93:
end
 
repeat
wait 228
until SAMP.Available()
 
while true
wait 0
if
0ab0: 53
then
0ACD: show_text_highpriority "~g~On" time 1000
SAMP.ReadSAMPMemory(6@, 0x41E0, 2)
SAMP.WriteSAMPMemory(0x41E0, 50064, 2)
repeat
wait 0
until 0ab0: 104
0ACD: show_text_highpriority "~r~Off" time 1000
SAMP.WriteSAMPMemory(0x41E0, 6@, 2)
end
end

Какие нахуй 2 байта у онфутдаты??? Ты что творишь?
P.S. И чем блин твоя "исправленная" версия кода отличается?
P.S.S. Рабочий код:
PHP:
{$CLEO .cs}
While 8afa
wait 400
end
 
while true
wait 0
if 0ab0: 53
    then
    0ACD: show_text_highpriority "~g~On" time 1000
    0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1
    repeat
    wait 0
    until 0ab0: 104
    0ACD: show_text_highpriority "~r~Off" time 1000
    0B2D: write_samp_memory offset 0x41E0 value 0x6A size 1
    end
end
 
  • Нравится
Реакции: fonarik

fonarik

Известный
206
3
Какие нахуй 2 байта у онфутдаты??? Ты что творишь?
P.S. И чем блин твоя "исправленная" версия кода отличается?
P.S.S. Рабочий код:
PHP:
{$CLEO .cs}
While 8afa
wait 400
end
 
while true
wait 0
if 0ab0: 53
    then
    0ACD: show_text_highpriority "~g~On" time 1000
    0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1
    repeat
    wait 0
    until 0ab0: 104
    0ACD: show_text_highpriority "~r~Off" time 1000
    0B2D: write_samp_memory offset 0x41E0 value 0x6A size 1
    end
end

Спасибо большое,но почему разные?
value 0xC3 size 1
value 0x6A size 1
 

fonarik

Известный
206
3
Все,понял,потому что ты не читал его изначально,а на прямую записал
 

Milleron

Новичок
14
0
Как сделать , например: мне нанесли урон , и вокруг мини-карты будет обводка?