{$CLEO}

const
    DIALOG_STYLE_MSGBOX = 0
    DIALOG_STYLE_INPUT = 1
    DIALOG_STYLE_LIST = 2
    DIALOG_STYLE_PASSWORD = 3
end

0000:
0662: "1"

while not SAMP.Available()
    wait 400
end

while true
    wait 0
    if 0ab0: key_down 66
    then
        while 0ab0: key_down 66
            wait 0

            if 0ab0: key_down 51
            then
                0ac6: 1@ = @text
                0ac8: alloc 0@ size 512
                0ad3: format_stirng 0@ = 1@ 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA
                0B3B: samp show_dialog id 47 caption "Òåëåïîðò ïî èíòåðüåðàì" text 0@ button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_LIST
                0ac9: free 0@
                break
            end
    end

    :text
    hex
    "RC Battlefield\n8-track\nBloodbowl\nDirt track\nKickstart\nShamal\nJefferson Motel\n"
    "Meat Factory\nWarehouse 2\nPlanning dept\nCrack factory\nMadd Doggs mansion\nPleasure domes\n"
    "LV Police HQ\nLS Atrium\nCaligulas Casino\nCaligulas roof\nVice stadium\nSherman dam\nAndromada\nFanny batters" 00
    end
    // DIALOG_STYLE_LIST
    if 0B3C: samp is_dialog_responded id 47 button 1@ list_item 3@ input_text 0
    then
        if 1@ == 1
        then
   0af8: chat "Áûë âûáðàí ýëåìåíò: {ffff00}%d" -1 3@
  if 3@ == 0
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}RC Battlefield" -1
  actor.PutAt($player_actor -1131.20,1050.10,1345.74)
        0860: link_actor $PLAYER_ACTOR to_interior 10
        04BB: select_interior 10
  end

  if 3@ == 1
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}8-track" -1
  actor.PutAt($player_actor -1398.065307,-217.028900,1051.115844)
        0860: link_actor $PLAYER_ACTOR to_interior 7
        04BB: select_interior 7
  end

  if 3@ == 2
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Bloodbowl" -1
  actor.PutAt($player_actor -1398.103515,937.631164,1036.479125)
        0860: link_actor $PLAYER_ACTOR to_interior 15
        04BB: select_interior 15
  end

  if 3@ == 3
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Dirt track" -1
  actor.PutAt($player_actor -1444.645507,-664.526000,1053.572998)
        0860: link_actor $PLAYER_ACTOR to_interior 4
        04BB: select_interior 4
  end

  if 3@ == 4
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Kickstart" -1
  actor.PutAt($player_actor -1465.268676,1557.868286,1052.531250)
        0860: link_actor $PLAYER_ACTOR to_interior 14
        04BB: select_interior 14
  end

  if 3@ == 5
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Shamal" -1
  actor.PutAt($player_actor 1.808619,32.384357,1199.593750)
        0860: link_actor $PLAYER_ACTOR to_interior 1
        04BB: select_interior 1
  end

  if 3@ == 6
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Jefferson Motel" -1
  actor.PutAt($player_actor 2215.454833,-1147.475585,1025.796875)
        0860: link_actor $PLAYER_ACTOR to_interior 15
        04BB: select_interior 15
  end

  if 3@ == 7
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Meat Factory" -1
  actor.PutAt($player_actor 963.418762,2108.292480,1011.030273)
        0860: link_actor $PLAYER_ACTOR to_interior 1
        04BB: select_interior 1
  end

  if 3@ == 8
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Warehouse 2" -1
  actor.PutAt($player_actor 1302.519897,-1.787510,1001.028259)
        0860: link_actor $PLAYER_ACTOR to_interior 18
        04BB: select_interior 18
  end

  if 3@ == 9
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Planning dept" -1
  actor.PutAt($player_actor 384.808624,173.804992,1008.382812)
        0860: link_actor $player_actor to_interior 3
        04BB: select_interior 3
  end

  if 3@ == 10
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Crack factory" -1
  actor.PutAt($player_actor 2543.462646,-1308.379882,1026.728393)
        0860: lint_actor $player_actor to_interior 2
        04BB: select_interior 2
  end

  if 3@ == 11
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Madd Doggs mansion" -1
  actor.PutAt($player_actor 1267.663208,-781.323242,1091.906250)
        0860: link_actor $player_actor to_interior 5
        04BB: select_interior 5
  end

  if 3@ == 12
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Pleasure domes" -1
  actor.PutAt($player_actor -2640.762939,1406.682006,906.460937)
        0860: link_actor $player_actor to_interior 3
        04BB: select_interior 3
  end

  if 3@ == 13
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}LV Police HQ" -1
  actor.PutAt($player_actor 288.745971,169.350997,1007.171875)
        0860: link_actor $player_actor to_interior 3
        04BB: select_interior 3
  end

  if 3@ == 14
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}LS Atrium" -1
  actor.PutAt($player_actor 1710.433715,-1669.379272,20.225049)
        0860: link_actor $player_actor to_interior 18
        04BB: select_interior 18
  end

  if 3@ == 15
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Caligula's Casino" -1
  actor.PutAt($player_actor 2235.56, 1678.82, 1008.36)
        0860: link_actor $player_actor to_interior 1
        04BB: select_interior 1
  end

  if 3@ == 16
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Caligula's Roof" -1
  actor.PutAt($player_actor 2268.52, 1647.77, 1084.23)
        0860: link_actor $player_actor to_interior 1
        04BB: select_interior 1
  end

  if 3@ == 17
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Vice Stadium" -1
  actor.PutAt($player_actor -1401.829956,107.051300,1032.273437)
        0860: link_actor $player_actor to_interior 1
        04BB: select_interior 1
  end

  if 3@ == 18
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Sherman dam" -1
  actor.PutAt($player_actor -959.564392,1848.576782,9.000000)
        0860: link_actor $player_actor to_interior 17
        04BB: select_interior 17
  end

  if 3@ == 19
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Andromada" -1
  actor.PutAt($player_actor 315.745086,984.969299,1958.919067)
        0860: link_actor $player_actor to_interior 9
        04BB: select_interior 9
  end

  if 3@ == 20
  then
  0af8: chat "Áûë âûáðàí èíòåðüåð: {ffff00}Fanny batters" -1
  actor.PutAt($player_actor 761.412963,1440.191650,1102.703125)
        0860: link_actor $player_actor to_interior 6
        04BB: select_interior 6
  end
        else
            0af8: chat "Äèàëîã áûë çàêðûò" -1
        end
    end
end