{$CLEO}
0000: NOP

repeat
0001: 0
until 0AFA:  is_samp_available
0B34: samp register_client_command "nomer" to_label @number
0AF8: samp add_message_to_chat "Fast-RP{00ff00} loaded" 0xF8F8FF

while true
0001: 0
    if and
        0ADC:   test_cheat "J"
        0AD2: 0@ = player $PLAYER_CHAR targeted_actor
            then
                0B2B: samp 1@ = get_player_id_by_actor_handle 0@
                alloc 2@ 512    
                format 2@ "Паспорт%cЛицензии%cМед.Карта%cСкиллы%cТрудовая книга%cИстория имен%cПередать бабло%cОбоссать%cFacepalm%cОтправить термин%c" 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA  0xA 0x0
                0B3B: samp show_dialog id 34 caption "{ffffff} Fast-RP{ff00ff} By Clopster{ffffff}" text 2@ button_1 "Тык" button_2 "Не тык" style 2
                free 2@
            end
    if 0B3C: samp is_dialog_responded id 34 button 3@ list_item 4@ input_text 0
            then
    if 3@ == 1
            then
                018C: play_sound 1058 at 0.0 0.0 0.0
    if 4@ == 0
            then
                say "/do Папка с документами в руке."
                wait 300
                say "/me достал паспорт из папки"
                wait 300
                say "/pass %d" 1@
            end
    if 4@ == 2
            then
                say "/do Папка с документами в руке."
                wait 300
                say "/me достал из папки медицинскую карту"
                wait 300
                say "/me показал медицинскую карту человеку напротив"
            end
    if 4@ ==  1
            then
                say "/do Папка с документами в руке."
                wait 300
                say "/me достал из папки лицензии"
                wait 300
                say "/lic %d" 1@
            end
    if 4@ == 3
            then
                say "/do Папка с документами в руке."
                wait 300
                say "/me достал из папки выписку из тира"  
                wait 300
                say "/skill %d" 1@
            end  
    if 4@ == 6
            then
                0B3B: samp show_dialog id 40 caption "Передать бабло" text "Введите сумму" button_1 "Тык" button_2 "Не тык" style 1
                alloc 7@ 64
            end                    
    if 4@ == 7
            then
                say "/me расстегнул ширинку и достал писюн"
                wait 300
                say "/anim 62"
            end
    if 4@ == 8
            then
                say "/anim 30"
            end
    if 4@ == 5
            then
                alloc 8@ 128
                0B36: samp 8@ = get_player_nickname 1@
                say "/history %s" 8@
                free 8@
            end
    if 4@ == 4
            then
                say "/do Папка с документами в руке."
                wait 300
                say "/me достал трудовую книгу из папки"
                wait 300
                say "/wbook %d" 1@
            end
    if 4@ == 9
            then
                chatmsg "[Fast-RP]{ff0000} Внимание!" 0x87CEEB
                chatmsg "[Fast-RP]{f8f8ff} Введите {87CEEB}/nomer 'номер' {f8f8ff}чтобы задать телефон получателя" 0x87CEEB
                alloc 12@ 500
                format 12@ "РП%cДМ%cМГ%cДБ%cТК%cСК%cПГ" 0xA 0xA 0xA 0xA 0xA  0xA
                0B3B: samp show_dialog id 37 caption "Выберете нужный термин для отправки" text 12@ button_1 "Тык" button_2 "Не тык" style 2
                free 12@
            end
        end
    end
    if 0B3C: samp is_dialog_responded id 37 button 13@ list_item 16@ input_text 0
            then
    if 13@ == 1
            then
    if 16@ == 0
            then
                say "/sms %d РП реальная игра, реальное поведение, как в жизни, игра по ролям" 11@
            end
    if 16@ == 1
            then
                say "/sms %d ДМ убийство или попытка убийства всех подряд без IC причины"  11@
            end
    if 16@ == 2
            then
                say "/sms %d МГ использование OOC информации в IC" 11@
            end
    if 16@ == 3
            then
                say "/sms %d ДБ убийство или попытка убийства машиной" 11@
            end
    if 16@ == 4
            then
                say "/sms %d ТК убийство члена своей команды, фракции" 11@
            end
    if 16@ == 5
            then
                say "/sms %d СК убийство на респауне (на месте появления)" 11@
            end
    if 16@ == 6
            then
                say "/sms %d ПГ Воображение из себя супергероя" 11@
            end
        end
    end
    if 0B3C: samp is_dialog_responded id 40 button 27@ list_item 0 input_text 7@
    then
        018C: play_sound 1058 at 0.0 0.0 0.0
        if 27@ == 1
        then
            say "/pay %d %s" 1@ 7@
            0AC9: free_allocated_memory 7@
        end
    end        
end    
:number
wait 0
alloc 25@ 64
0B35: samp 20@ = get_last_command_params
0AD4: 25@ = scan_string 20@ format "%d" 11@
0AF8:  "{87CEEB} [Fast-RP] {f8f8ff}Задан номер получателя:{00ff00} %d" 0xffffff 11@
0B43: samp cmd_ret