{$CLEO .cs}
thread "Teleport_by_RaffCor"
0000: NOP
while not SAMP.Available()
wait 400
end
0af8: samp add_message_to_chat "Teleport by RaffCor загружен" color 0xFF0000
0af8: samp add_message_to_chat "[===========================================]" color 0xFFFFFF
0af8: samp add_message_to_chat "Вызвать меню: Команда {80FF00}/raffcor" color 0xFFFFFF
0af8: samp add_message_to_chat "[===========================================]" color 0xFFFFFF
0B34: samp register_client_command "raffcor" to_label @raffcor
while true
wait 0
if 30@ == 1
then
0B80: dialog 3@ = create "Teleport for ARP (by RaffCor)"
0AB1: call_scm_func @set_dialog_pos 3 3@ 300 350
0B82: dialog 3@ add_button id 0 text "Работы" pos_XY 5 5 size 95 25
0B82: dialog 3@ add_button id 1 text "МО" pos_XY 5 30 size 95 25
0B82: dialog 3@ add_button id 2 text "Банды" pos_XY 5 55 size 95 25
0B82: dialog 3@ add_button id 3 text "Правит." pos_XY 100 5 size 95 25
0B82: dialog 3@ add_button id 4 text "МЗ" pos_XY 100 30 size 95 25
0B82: dialog 3@ add_button id 5 text "Мафии" pos_XY 100 55 size 95 25
0B82: dialog 3@ add_button id 6 text "МВД" pos_XY 195 5 size 95 25
0B82: dialog 3@ add_button id 7 text "СМИ" pos_XY 195 30 size 95 25
0B82: dialog 3@ add_button id 8 text "Общ.места" pos_XY 195 55 size 95 25
0B82: dialog 3@ add_button id 9 text "Выход" pos_XY 5 80 size 95 25
0B8D: samp set_cursor_mode 2
while 0B87: dialog 3@ is_visible
wait 0
{=====Перенос=====}
if 0AB0: key_pressed 1
then
0B5E: get_cursor_pos 28@ 27@
0B85: samp dialog 19@ get_position_to 26@ 25@ size_to 0@ 0@
if and
001D: 28@ > 26@
001D: 27@ > 25@
then
26@ += 340
25@ += 20
if and
001D: 26@ > 28@
001D: 25@ > 27@
then
26@ -= 340
25@ -= 20
0062: 28@ -= 26@
0062: 27@ -= 25@
while 0AB0: key_pressed 1
wait 0
0B5E: get_cursor_pos 26@ 25@
0062: 26@ -= 28@
0062: 25@ -= 27@
0B84: samp dialog 3@ set_pos_XY 26@ 25@ size 300 350
end
end
end
end
{=================}
if 0B81: dialog 3@ pop_event_to 4@ {id события} control_id_to 2@ {id компонента}
then
if 2@ == 0
then
0ac8: alloc 21@ size 128
0ad3: format_stirng 21@ = "Шахта%cЗавод%cГрузчики%cРазвозчик топлива%cАэропорт ЛС%cАэропорт СФ%cПожарки ЛС%cМехи ЛС" 0xA 0xA 0xA 0xA 0xA 0xA 0xA
0B3B: samp show_dialog id 5000 caption "{FFFF00}Телепорт-меню {FFFFFF}| Работы" text 21@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 21@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 1
then
0ac8: alloc 21@ size 64
0ad3: format_stirng 21@ = "Военкомат%cАвианосец%cСВ%cВВС%cВМФ" 0xA 0xA 0xA 0xA
0B3B: samp show_dialog id 5002 caption "{FFFF00}Телепорт-меню {FFFFFF}| {AE5700}МО" text 21@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 21@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 2
then
0ac8: alloc 33@ size 256
0ad3: format_stirng 33@ = "Grove Street%cThe Ballas%cThe Rifa%cLos Santos Vagos%cVarios Los Aztecos" 0xA 0xA 0xA 0xA
0B3B: samp show_dialog id 5003 caption "{FFFF00}Телепорт-меню {FFFFFF}| {008000}Б{FF00FF}а{8080FF}н{F0DA0F}д{00FFFF}ы" text 33@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 33@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 3
then
0ac8: alloc 33@ size 64
0ad3: format_stirng 33@ = "Мэрия ЛС%cМэрия СФ%cМэрия ЛВ%cАП" 0xA 0xA 0xA
0B3B: samp show_dialog id 5004 caption "{FFFF00}Телепорт-меню {FFFFFF}| {FFFF00}Правительство" text 33@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 33@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 4
then
0ac8: alloc 33@ size 64
0ad3: format_stirng 33@ = "Болька ЛС%cБолька СФ%cБолька ЛВ%cМин.Здравоохранения" 0xA 0xA 0xA
0B3B: samp show_dialog id 5005 caption "{FFFF00}Телепорт-меню {FFFFFF}| {FF80C0}МЗ" text 33@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 33@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 5
then
0ac8: alloc 33@ size 64
0ad3: format_stirng 33@ = "RM%cYakuza%cLCN" 0xA 0xA
0B3B: samp show_dialog id 5006 caption "{FFFF00}Телепорт-меню {FFFFFF}| {408080}Ма{FF0000}ф{800080}ии" text 33@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 33@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 6
then
0ac8: alloc 33@ size 64
0ad3: format_stirng 33@ = "ЛСПД%cСФПД%cЛВПД%cФБР" 0xA 0xA 0xA
0B3B: samp show_dialog id 5001 caption "{FFFF00}Телепорт-меню {FFFFFF}| {0000FF}МВД" text 33@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 33@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 7
then
0ac8: alloc 33@ size 64
0ad3: format_stirng 33@ = "ТВ-Центр%cЛСФМ%cСФФМ%cЛВФМ" 0xA 0xA 0xA
0B3B: samp show_dialog id 5007 caption "{FFFF00}Телепорт-меню {FFFFFF}| {FF8000}СМИ" text 33@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 33@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 8
then
0ac8: alloc 33@ size 128
0ad3: format_stirng 33@ = "Казино ЛС%cБиблиотека%cАвтосалон ЛС%cЖДЛС%c4 Дракона%cКалигула%cАвтосалон ЛВ%cЖДСФ%cЦерковь%cАренда лодок" 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA
0B3B: samp show_dialog id 5008 caption "{FFFF00}Телепорт-меню {FFFFFF}| Общественные места" text 33@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 33@
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
if 2@ == 9
then
0B86: dialog 3@ set_visible false
0B8D: samp set_cursor_mode 0
30@ = 0
end
end
end
end
if 0B3C: samp is_dialog_responded id 5000 button 1@ list_item 8@ input_text 0
then
if 1@ == 1
then
if 8@ == 0
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -1923.8101,-1665.2217,23.0156)
0af8: chat "Вы телепортировались на {D7DF01}шахту" -1
end
if 8@ == 1
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -156.6919,-263.8412,6.1887)
0af8: chat "Вы телепортировались на {D7DF01}завод" -1
end
if 8@ == 2
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 2148.4185,-2243.5813,13.3061)
0af8: chat "Вы телепортировались на {D7DF01}склад" -1
end
if 8@ == 3
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -77.9907,-1136.5094,1.0781)
0af8: chat "Вы телепортировались к {D7DF01}развозчикам топлива" -1
end
if 8@ == 4
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 1944.9192,-2230.7231,13.5469)
0af8: chat "Вы телепортировались к {D7DF01}Аэропорту ЛС" -1
end
if 8@ == 5
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -1338.4299,-304.0722,14.1484)
0af8: chat "Вы телепортировались к {D7DF01}Аэропорту СФ" -1
end
if 8@ == 6
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 1743.0621,-1477.2352,13.4305)
0af8: chat "Вы телепортировались к {D7DF01}пожарной станции ЛС" -1
end
if 8@ == 7
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 1619.9443,-1141.0698,23.9063)
0af8: chat "Вы телепортировались к {D7DF01}стоянке механников ЛС" -1
end
else
end
end
if 0B3C: samp is_dialog_responded id 5001 button 1@ list_item 4@ input_text 0
then
if 1@ == 1
then
if 4@ == 0
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 1555.4277,-1601.5084,13.5469)
0af8: chat "Вы телепортировались к {D7DF01}ЛСПД" -1
end
if 4@ == 1
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -1663.7822,713.1495,24.8976)
0af8: chat "Вы телепортировались к {D7DF01}СФПД" -1
end
if 4@ == 2
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 2303.3257,2458.9712,10.8203)
0af8: chat "Вы телепортировались к {D7DF01}ЛВПД" -1
end
if 4@ == 3
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -2481.2085,475.0024,29.0768)
0af8: chat "Вы телепортировались к {D7DF01}ФБР" -1
end
end
else
end
if 0B3C: samp is_dialog_responded id 5002 button 1@ list_item 5@ input_text 0
then
if 1@ == 1
then
if 5@ == 0
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 1058.1549,1252.8363,10.8203)
0af8: chat "Вы телепортировались к {D7DF01}Военкомату" -1
end
if 5@ == 1
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -1594.0752,528.0627,18.2805)
0af8: chat "Вы телепортировались к {D7DF01}Авианосцу" -1
end
if 5@ == 2
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 265.1586,1959.6470,17.6406)
0af8: chat "Вы телепортировались на {D7DF01}СВ" -1
end
if 5@ == 3
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 393.9231,2592.6438,16.4844)
0af8: chat "Вы телепортировались на {D7DF01}ВВС" -1
end
if 5@ == 4
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -2216.2390,2327.1565,4.9844)
0af8: chat "Вы телепортировались на {D7DF01}ВМФ" -1
end
end
end
if 0B3C: samp is_dialog_responded id 5003 button 1@ list_item 5@ input_text 0
then
if 1@ == 1
then
if 5@ == 0
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 2536.0801,-1632.9800,13.7870)
0af8: chat "Вы телепортировались на {D7DF01}респу грув" -1
end
if 5@ == 1
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 2021.5326,-1108.5294,26.1951)
0af8: chat "Вы телепортировались на {D7DF01}респу баллас" -1
end
if 5@ == 2
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 2805.5366,-1950.8948,13.5469)
0af8: chat "Вы телепортировались на {D7DF01}респу рифы" -1
end
if 5@ == 3
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 2766.7087,-1191.7327,69.4083)
0af8: chat "Вы телепортировались на {D7DF01}респу вагос" -1
end
if 5@ == 4
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 2175.3616,-1828.4277,16.1406)
0af8: chat "Вы телепортировались на {D7DF01}респу ацтек" -1
end
end
end
if 0B3C: samp is_dialog_responded id 5004 button 1@ list_item 4@ input_text 0
then
if 1@ == 1
then
if 4@ == 0
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 1505.8228,-1753.7292,13.5469)
0af8: chat "Вы телепортировались к {D7DF01}Мэрии ЛС" -1
end
if 4@ == 1
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -2768.4768,388.0539,4.4490)
0af8: chat "Вы телепортировались к {D7DF01}Мэрии СФ" -1
end
if 4@ == 2
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 2391.8748,2502.3423,10.8203)
0af8: chat "Вы телепортировались к {D7DF01}Мэрии ЛВ" -1
end
if 4@ == 3
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 981.5885,-917.1369,41.7259)
0af8: chat "Вы телепортировались к {D7DF01}АП" -1
end
end
end
if 0B3C: samp is_dialog_responded id 5005 button 1@ list_item 4@ input_text 0
then
if 1@ == 1
then
if 4@ == 0
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, 1171.9998,-1289.7349,13.5469)
0af8: chat "Вы телепортировались к {D7DF01}Больке ЛС" -1
end
if 4@ == 1
then
0B28: samp disconnect_with_reason 0
wait 15000
0B27: samp set_gamestate 1
repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 1950
Actor.PutAt($PLAYER_ACTOR, -2614.5190,634.2567,15.8888)
0af8: chat "Вы телепортировались к {D7DF01}Больке СФ" -1
У Администрации уже, видимо, в привычку въелось не отвечать людям.
Сообщение отредактировал Снежик - Четверг, 22.10.2015, 12:05
