{$CLEO .cs}

thread "input"   
cmd "input" @INPUT_162   
if   
    33@ == 1   
else_jump @INPUT_169   
SAMP.ShowDialog(16, "text", "Ââåäèòå òåêñò", "Îê", "Îòìåíà", DIALOG_STYLE_INPUT)

:INPUT_85
wait 0   
alloc 2@ 128   
if   
     SAMP.DialogRespond(16, 1@, 0, 2@)
else_jump @INPUT_155   
if   
    1@ == 1   
else_jump @INPUT_150   
chatmsg "%s" -1 2@   

:INPUT_150
free 2@   

:INPUT_155
goto @INPUT_85   

:INPUT_162
33@ = 1   

:INPUT_169
SAMP.CmdRet

{$CLEO .cs}

const
     DIALOG_STYLE_INPUT = 1
end

0000: NOP

thread "input"  
cmd "input" @input_162  
if  
   33@ == 1  
else_jump @input_169  
SAMP.ShowDialog(16, "Fake text", "Ââåäèòå òåêñò", "Îê", "Îòìåíà", DIALOG_STYLE_INPUT)

:input_85
wait 0  
alloc 2@ 128  
if  
    SAMP.DialogRespond(16, 1@, 0, 2@)
else_jump @input_155  
if  
   1@ == 1  
else_jump @input_150  
chatmsg "%s" -1 2@  

:input_150
free 2@  

:input_155
goto @input_85  

:input_162
33@ = 1  

:input_169
SAMP.CmdRet

{$CLEO .cs}
0000: NOP

repeat
wait 0
until SAMP.Available()
0B34: samp register_client_command "test_odin" to_label @odin
0B34: samp register_client_command "test_dva" to_label @dva

repeat
wait 0
if 0@ == true
then
0AF9: samp say_msg "Раз, раз, два, три"
wait 1000
0AF9: samp say_msg "лаа"
wait 1000
0AF9: samp say_msg "/do дубинка в руке"
wait 1000
0AB1: call @key 2 key 119 time 1000
0@ = false
end

if 1@ == true
0AF9: samp say_msg "Три, шесть, семь"
wait 1000
0AF9: samp say_msg "/mn"
wait 1000
0AF9: samp say_msg "(( ))"
wait 1000
0AB1: call @key 2 key 119 time 1000
1@ = false
end
until false   

:odin
0@ = true
SAMP.CmdRet()

:dva
1@ = true
SAMP.CmdRet()

:key
if 0AA2: 2@ = load_library "User32.dll"
then
if 0AA4: 2@ = get_proc_address "keybd_event" library 2@
then
0AA5: call 2@ num_params 4 pop 0 0 0 0 0@
wait 1@
0AA5: call 2@ num_params 4 pop 0 0 0x02 0 0@
end
end
0AB2: ret 0

{$CLEO .cs}   
{$NOSOURCE}
Thread "Chag"
     
0B34: samp register_client_command "test_odin" to_label @odin   
0B34: samp register_client_command "test_dva" to_label @dva   

While True
      wait 0
      if 0@ == 1
      then
          0AF9: samp say_msg "???, ???, ???, ???"   
          wait 1000   
          0AF9: samp say_msg "???"   
          wait 1000   
          0AF9: samp say_msg "/do ??????? ? ????"   
          wait 1000   
          0AB1: call @key 2 key 119 time 1000   
          0@ = 0
      end
        
      if 1@ == 1
      then
          0AF9: samp say_msg "???, ?????, ????"   
          wait 1000   
          0AF9: samp say_msg "/mn"   
          wait 1000   
          0AF9: samp say_msg "(( ))"   
          wait 1000   
          0AB1: call @key 2 key 119 time 1000
          1@ = 0
      end
end           

:odin   
0@ = 1
SAMP.CmdRet()   

:dva   
1@ = 1
SAMP.CmdRet()   

:key   
if 0AA2: 2@ = load_library "User32.dll"   
then   
if 0AA4: 2@ = get_proc_address "keybd_event" library 2@   
then   
0AA5: call 2@ num_params 4 pop 0 0 0 0 0@   
wait 1@   
0AA5: call 2@ num_params 4 pop 0 0 0x02 0 0@   
end   
end   
0AB2: ret 0

{$CLEO .cs}  
{$NOSOURCE}
Thread "Chag"
   
0B34: samp register_client_command "input" to_label @input

alloc 2@ 128

While True
     wait 0
     if 0B3C:  samp is_dialog_responded id 16 button 1@ list_item 0 input_text 2@
     then
         if 1@ == 1
         then
             0af8: "%s" -1 2@
         end
     end         
end

:input
0B3B: samp show_dialog id 16 caption "Input" text "Введите текст" button_1 "Готово" button_2 "Закрыть" style 1
SAMP.CmdRet()