{$CLEO}

const
DIALOG_STYLE_LIST = 2
end

0000:

repeat
wait 400
until 0AFA: is_samp_available // Ожидаем инициализации структур SAMP'а

while true
wait 0
if key_down 107
then
0AC8: 0@ = allocate_memory_size 64 // Выделяем память под список элементов(кол-во текста должно быть не больше 64 символов(пробелы и переходы на новую строку тоже равны 1 символу))
0ad3: format_stirng 0@ = "Ballas%cGroove%cVagos%cRifa%cAztec" 0xA 0xA 0xA 0xA // Создаем список, 0xA - означает переход на новую строку, а %c указывается в самой строке
0B3B: samp show_dialog id 2 caption "Dialog list" text 0@ button_1 "Выбрать" button_2 "Закрыть" style DIALOG_STYLE_LIST
0AC9: free_allocated_memory 0@ // Освобождаем память, больше не нужна.
end

if 0B3C: samp is_dialog_responded id 2 button 1@ list_item 3@ input_text 0
then
if 1@ == 1 // Была нажата кнопка Выбрать
then
if 3@ == 0 // Был выбран пункт Ballas
then 0AF8: samp add_message_to_chat "Пункт: Ballas" color -1
end

if 3@ == 1 // Был выбран пункт Groove
then 0AF8: samp add_message_to_chat "Пункт: Groove" color -1
end

if 3@ == 2 // Был выбран пункт Vagos
then 0AF8: samp add_message_to_chat "Пункт: Vagos" color -1
end

if 3@ == 3 // Был выбран пункт Rifa
then 0AF8: samp add_message_to_chat "Пункт: Rifa" color -1
end

if 3@ == 4 // Был выбран пункт Aztec
then 0AF8: samp add_message_to_chat "Пункт: Aztec" color -1
end
else 0AF8: samp add_message_to_chat "Диалог был закрыть" color -1 // Была нажата кнопка Закрыть
end
end
end

{$I SF}

// SAMP Dialog Styles
const
DIALOG_STYLE_MSGBOX = 0
DIALOG_STYLE_INPUT = 1
DIALOG_STYLE_LIST = 2
DIALOG_STYLE_PASSWORD = 3
end

0A96: 1@ = actor $PLAYER_ACTOR struct
1@ += 20
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0
2@ += 48
0A8D: 3@ = read_memory 2@ size 4 virtual_protect 0 //x
2@ += 4
0A8D: 4@ = read_memory 2@ size 4 virtual_protect 0 //y
2@ += 4
0A8D: 5@ = read_memory 2@ size 4 virtual_protect 0 //z
0AF8: samp add_message_to_chat "X: %0.2f" color 0xF7FF00 4@
0AF8: samp add_message_to_chat "Y: %0.2f" color 0xF7FF00 3@
0AF8: samp add_message_to_chat "Z: %0.2f" color 0xF7FF00 5@

{$CLEO }
0000:
repeat
wait 100
until samp.Available()

0B34: samp register_client_command "mycmd" to_label @cmd_mycmd

while true
wait 0
     if key_down 109        //
         then
             while key_down 109
             wait 100
             end
         // code
     end
end
      
:cmd_mycmd
// code

samp.CmdRet()

{$CLEO }
0000:
repeat
wait 100
until samp.Available()

0B34: samp register_client_command "tp" to_label @tp

0B2E: 0@ = read_samp_memory offset 16864 size 2  
0B2E: 1@ = read_samp_memory offset 81824 size 2  

while true
wait 0
if 2@ == 1  
     then    
     2@ = 0
     0B2D: write_samp_memory offset 16864 value 50064 size 2  
     0B2D: write_samp_memory offset 81824 value 50064 size 2  
     0AB6: store_target_marker_coords_to x y z // IF and SET  
     00A1: put_actor $PLAYER_ACTOR at x y z
     wait 5
     0AB6: store_target_marker_coords_to xyz // IF and SET  
     00A1: put_actor $PLAYER_ACTOR at xyz  
     wait 1000
     0B2D: write_samp_memory offset 16864 value 0@ size 2  
     0B2D: write_samp_memory offset 81824 value 1@ size 2

end

:tp
if  
0AB6: store_target_marker_coords_to xyz // IF and SET  
then
0006: 2@ = 1  
end
samp.CmdRet()