| Coba_ka |
Дата: Суббота, 24.11.2012, 00:33 | Сообщение # 1
|
Новичок
Сообщений: 6
Статус: Offline
|
Code 0000: NOP thread "BIBORAN" //Указываем имя потока 03BC: 0@ = create_sphere_at 458.27 -1496.68 31.07 radius 1.2 //Создает красный маркер в заданной точке wait 0 03BC: 0@ = create_sphere_at -1698.79 952.27 24.89 radius 1.2 // Опять же создает маркер
:BIBORAN_67// Начинаем поток wait 0 //Ждем 0 сек if and //если 0AB0: key_pressed 17 //Нажата клавиша Ctrl 0AB0: key_pressed 73 //И клавиша i else_jump @BIBORAN_1842 //Если не нажаты прыгаем на поток 1842 0AF9: samp say_msg "/CLIST" //Вводим в чат команду /Clist Actor.LockInCurrentPosition($PLAYER_ACTOR) = True // Замораживаем Actor.PutAt($PLAYER_ACTOR, 244.56, 1809.67, -40.0)//Начинаем тп с интервалом 1500 (с 1500 раза 4 что-бы подгрузился мир) потом можно 600 wait 1500 Actor.PutAt($PLAYER_ACTOR, 247.45, 1759.76, -40.0) wait 1500 Actor.PutAt($PLAYER_ACTOR, 250.34, 1709.84, -40.0) wait 1500 Actor.PutAt($PLAYER_ACTOR, 253.24, 1659.92, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 256.13, 1610.01, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 259.02, 1560.09, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 261.91, 1510.18, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 264.81, 1460.26, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 267.7, 1410.34, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 270.59, 1360.43, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 273.48, 1310.51, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 276.38, 1260.59, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 279.27, 1210.68, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 282.16, 1160.76, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 285.05, 1110.85, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 287.94, 1060.93, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 290.84, 1011.01, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 293.73, 961.1, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 296.62, 911.18, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 299.51, 861.26, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 302.41, 811.35, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 305.3, 761.43, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 308.19, 711.52, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 311.08, 661.6, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 313.98, 611.68, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 316.87, 561.77, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 319.76, 511.85, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 322.65, 461.93, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 325.55, 412.02, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 328.44, 362.1, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 331.33, 312.18, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 334.22, 262.27, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 337.12, 212.35, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 340.01, 162.44, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 342.9, 112.52, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 345.79, 62.6, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 348.68, 12.69, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 351.58, -37.23, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 354.47, -87.15, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 357.36, -137.06, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 360.25, -186.98, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 363.15, -236.89, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 366.04, -286.81, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 368.93, -336.73, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 371.82, -386.64, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 374.72, -436.56, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 374.72, -436.56, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 377.61, -486.48, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 380.5, -536.39, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 383.39, -586.31, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 386.29, -636.22, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 389.18, -686.14, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 392.07, -736.06, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 394.96, -785.97, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 397.85, -835.89, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 400.75, -885.81, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 403.64, -935.72, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 406.53, -985.64, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 409.42, -1035.55, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 412.32, -1085.47, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 415.21, -1135.39, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 418.1, -1185.3, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 420.99, -1235.22, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 423.89, -1285.14, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 426.78, -1335.05, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 429.67, -1384.97, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 432.56, -1434.88, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 435.46, -1484.8, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, 461.09, -1502.38, 31.05) Actor.LockInCurrentPosition($PLAYER_ACTOR) = False //Разморозка jump @BIBORAN_67 //Прыжок на поток 67
:BIBORAN_1842//Начинаем поток wait 0 //Ждать 0 сек if and //Если 0AB0: key_pressed 17 //Нажата клавиша CTRL 0AB0: key_pressed 80 //и Р else_jump @BIBORAN_2217 //Если не нажаты прыгаем на поток 2217 0AF9: samp say_msg "/CLIST" //Снова команда Actor.LockInCurrentPosition($PLAYER_ACTOR) = True //Заморозка игрока Actor.PutAt($PLAYER_ACTOR, -1398.13, 533.13, -40.0)//И пошло ТП wait 600 Actor.PutAt($PLAYER_ACTOR, -1426.76, 574.12, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1455.39, 615.11, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1484.02, 656.1, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1512.65, 697.09, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1541.28, 738.09, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1569.91, 779.08, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1598.54, 820.07, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1627.17, 861.06, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1655.79, 902.06, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1684.42, 943.05, -40.0) wait 600 Actor.PutAt($PLAYER_ACTOR, -1696.5, 960.34, 56.06) wait 400 Actor.PutAt($PLAYER_ACTOR, -1693.92, 947.95, 24.89) Actor.LockInCurrentPosition($PLAYER_ACTOR) = False//Разморозка jump @BIBORAN_67 //Скачем на поток 67
:BIBORAN_2217//Новый поток wait 0 //Ждем 0 сек if //если 00EC: actor $PLAYER_ACTOR 0 near_point 458.27 -1496.68 radius 1.2 1.2 //Игрок находиться в заданной точке (на нашем маркере) else_jump @BIBORAN_2900 //Если не находиться то скачем на 2900 Actor.LockInCurrentPosition($PLAYER_ACTOR) = True//Заморозка Actor.PutAt($PLAYER_ACTOR, 493.01, -1445.32, -79.1)//Телепорт wait 1000 Actor.PutAt($PLAYER_ACTOR, 539.79, -1427.37, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 586.56, -1409.43, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 633.34, -1391.48, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 680.11, -1373.53, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 726.89, -1355.58, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 773.66, -1337.64, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 820.44, -1319.69, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 867.21, -1301.74, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 913.99, -1283.79, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 960.76, -1265.85, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1007.54, -1247.9, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1054.31, -1229.95, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1101.09, -1212.0, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1147.86, -1194.06, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1194.64, -1176.11, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1241.41, -1158.16, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1288.19, -1140.21, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1334.96, -1122.27, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1381.74, -1104.32, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1428.51, -1086.37, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1475.29, -1068.42, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1522.06, -1050.48, -79.1) wait 1000 Actor.PutAt($PLAYER_ACTOR, 1585.82, -1026.01, 23.91) wait 300 Actor.PutAt($PLAYER_ACTOR, 1639.92, -998.45, 24.07) Actor.LockInCurrentPosition($PLAYER_ACTOR) = False//Разморозка jump @BIBORAN_67 //Скачем на 67
:BIBORAN_2900//Новый поток, тут у нас Coordmaster, по нему уже есть отдельный разбор wait 0 if 00EC: actor $PLAYER_ACTOR 0 near_point -1698.79 952.27 radius 1.2 1.2 else_jump @BIBORAN_3274
:BIBORAN_2942 Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@) 3@ = 1640.16 4@ = -998.26 12@ = 24.07 0509: 11@ = distance_between_XY 3@ 4@ and_XY 0@ 1@ if not 11@ >= 80.0 else_jump @BIBORAN_3045 Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 12@) jump @BIBORAN_3195
:BIBORAN_3045 0063: 3@ -= 0@ // (float) 0063: 4@ -= 1@ // (float) 0604: get_Z_angle_for_point 3@ 4@ store_to 6@ Actor.Angle($PLAYER_ACTOR) = 6@ Actor.LockInCurrentPosition($PLAYER_ACTOR) = True if Actor.Driving($PLAYER_ACTOR) else_jump @BIBORAN_3126 03C0: 30@ = actor $PLAYER_ACTOR car Car.Angle(30@) = 6@ Car.LockInCurrentPosition(30@) = True
:BIBORAN_3126 04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 50.0 1000.0 10@ = -80.0 Actor.PutAt($PLAYER_ACTOR, 8@, 9@, 10@) wait 1000 0AB0: key_pressed 53 else_jump @BIBORAN_2942
:BIBORAN_3195 wait 200 Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@) 02CE: 13@ = ground_z_at 0@ 1@ 24.07 Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 13@) Actor.LockInCurrentPosition($PLAYER_ACTOR) = False if 056E: car 30@ defined else_jump @BIBORAN_3274 Car.LockInCurrentPosition(30@) = False
:BIBORAN_3274 jump @BIBORAN_67
Сообщение отредактировал Coba_ka - Суббота, 24.11.2012, 00:33 |
|
|
|
|