Чекер

[IZDATXXX]

Идея такова: сделать чекер npc и фри слотов сервера .
Скрипт первый раз срабатывает некорректно, а второй раз крашит.
В чем здесь загвоздка?

{$CLEO}
{$NOSOURCE}
0B34: samp register_client_command "npcheck" to_label @Npcheck
0BDE: 0

:Npcheck
wait 0
0006: 0@ = -1   //Счетчик id
0006: 1@ = 0    //Счетчик пустых слотов
0006: 2@ = 0    //Счетчик npc
0006: 3@ = 0    //Счетчик игроков
:Counter
0@ += 1
if 0@ == 1001
then
    0@ = 0
    0AB1: call_scm_func @Result 3 1@ 2@ 3@
    0B43:
end
if
0B23:  samp is_player_connected 0@
then //Если игрок подключен
    if
    0B64:  samp is_player 0@ npc
    then //Если игрок бот
        2@ += 1
        goto @Counter
    else //Если игрок не бот
        3@ += 1
        goto @Counter
    end
else //Если игрок не подключен
    1@ += 1
    goto @Counter
end

:Result //0@ = free slots. 1@ = npc's count. 2@ = player's count.
0AF8: samp add_message_to_chat "Free slots: %d" color 0x008080 0@
0AF8: samp add_message_to_chat "NPC's: %d" color 0x008080 1@
0AF8: samp add_message_to_chat "Players: %d" color 0x008080 2@
0AB2: ret 0

Решено

 

[itsLegend]

Код такой потому что.
Нет основного цикла, в 0AB1 передаются параметры, но не указано сколько, да и циклы в команде тоже нежелательная вещь.

 

[serhiyrubin]

{$CLEO}
{$INCLUDE SF}
0000:

repeat
wait 0
until Samp.Available()

0B34: samp register_client_command "npcheck" to_label @Npcheck

while true
wait 0
end

:Npcheck
0006: 1@ = 0    //Счетчик пустых слотов
0006: 2@ = 0    //Счетчик npc
0006: 3@ = 0    //Счетчик игроков
for 0@ = 0 to 1001
    if 0B23:  samp is_player_connected 0@
    then
        if 0B64:  samp is_player 0@ npc
        then
        2@ += 1
        else
        3@ += 1
        end
    else
    1@ += 1
    end
end
0AF8: samp add_message_to_chat "Free slots: %d" color 0x008080 1@
0AF8: samp add_message_to_chat "NPC's: %d" color 0x008080 2@
0AF8: samp add_message_to_chat "Players: %d" color 0x008080 3@
cmdret

Так наверно

 

[kuleer]

Идея такова: сделать чекер npc и фри слотов сервера .
Скрипт первый раз срабатывает некорректно, а второй раз крашит.
В чем здесь загвоздка?

{$CLEO}
{$NOSOURCE}
0B34: samp register_client_command "npcheck" to_label @Npcheck
0BDE: 0

:Npcheck
wait 0
0006: 0@ = -1   //Счетчик id
0006: 1@ = 0    //Счетчик пустых слотов
0006: 2@ = 0    //Счетчик npc
0006: 3@ = 0    //Счетчик игроков
:Counter
0@ += 1
if 0@ == 1001
then
    0@ = 0
    0AB1: call_scm_func @Result 3 1@ 2@ 3@
    0B43:
end
if
0B23:  samp is_player_connected 0@
then //Если игрок подключен
    if
    0B64:  samp is_player 0@ npc
    then //Если игрок бот
        2@ += 1
        goto @Counter
    else //Если игрок не бот
        3@ += 1
        goto @Counter
    end
else //Если игрок не подключен
    1@ += 1
    goto @Counter
end

:Result //0@ = free slots. 1@ = npc's count. 2@ = player's count.
0AF8: samp add_message_to_chat "Free slots: %d" color 0x008080 0@
0AF8: samp add_message_to_chat "NPC's: %d" color 0x008080 1@
0AF8: samp add_message_to_chat "Players: %d" color 0x008080 2@
0AB2: ret 0

Решено

Ты или не ищешь лёгких путей, или не знаешь о существовании цикла FOR?