API tools faq
paste
MoMoT

TT MoMoT

MoMoT
Apr 26th, 2016
118
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 20.27 KB | None | 0 0
raw download clone embed print report
  1. uses SysUtils, classes;
  2. var Fight_flag:boolean;
  3. item: tl2item;
  4. npc: tl2npc;
  5. obj: tl2buff;
  6. var l2skill: tl2skill;
  7. procedure ResVgorod;
  8. begin
  9. delay(100);
  10. if (user.hp=0) then
  11. begin
  12. engine.gohome;
  13. engine.Facecontrol (0,False);
  14. delay (10000);
  15. proverka1;
  16. end;
  17. end;
  18. /////////////////////----------------
  19. procedure proverka1;
  20.   begin
  21.   delay (700);
  22.   print('proverka1');
  23.   pr11;
  24.   print('pr11');
  25.   pr12;
  26.   print('pr12');
  27.  // pr13;
  28.  // print('pr13');
  29. //  pr14;
  30.  // print('pr14');
  31.  // pr15;
  32.   //print('pr15');
  33.   end;
  34.   procedure pr11;
  35.   begin
  36.   delay(1000);
  37.   ResVgorod;
  38.   end;
  39.   procedure pr12;
  40.   begin
  41. if user.inrange(146272,-58176,-2976,800) then
  42. begin
  43.   print('Точка1');
  44.   Engine.MoveTo (145883,-57922,-3007);
  45.   Engine.MoveTo (145435,-57118,-3007);
  46.   Engine.MoveTo (145688,-56738,-2950);
  47.   Engine.MoveTo (146028,-56540,-2842);
  48.   Engine.MoveTo (146752,-56246,-2807);
  49.   Engine.MoveTo (147490,-55957,-2799);
  50.   Engine.MoveTo (147665,-55601,-2759);
  51.   Engine.MoveTo (147636,-55441,-2759);
  52.   Engine.MoveTo (147673,-55271,-2759);
  53.   Engine.MoveTo (147790,-55170,-2759);
  54.   Engine.MoveTo (147888,-55167,-2759);
  55.   Engine.MoveTo (147951,-55157,-2759);
  56.   Engine.MoveTo (147983,-55192,-2758);
  57.   delay (500);
  58.   TPvHS;
  59. end;
  60. if user.inrange(144960,-56224,-2976,800) then
  61. begin
  62.   print('Точка2');
  63.   Engine.MoveTo (145333,-56829,-3007);
  64.   Engine.MoveTo (145625,-56808,-2992);
  65.   Engine.MoveTo (145994,-56585,-2866);
  66.   Engine.MoveTo (146443,-56389,-2807);
  67.   Engine.MoveTo (147539,-55916,-2791);
  68.   Engine.MoveTo (147717,-55587,-2759);
  69.   Engine.MoveTo (147636,-55441,-2759);
  70.   Engine.MoveTo (147673,-55271,-2759);
  71.   Engine.MoveTo (147790,-55170,-2759);
  72.   Engine.MoveTo (147888,-55167,-2759);
  73.   Engine.MoveTo (147951,-55157,-2759);
  74.   Engine.MoveTo (147983,-55192,-2758);
  75.   delay (500);
  76.   TPvHS;
  77. end;
  78.  
  79. if user.inrange(146301, -56331, -2807,800) then
  80. begin
  81. print('Секретная точка');
  82. Engine.MoveTo(146941, -56049, -2807);
  83. Engine.MoveTo(147514, -56104, -2807);
  84. Engine.MoveTo(147684, -55865, -2783);
  85. Engine.MoveTo(147776, -55675, -2767);
  86. Engine.MoveTo(147826, -55476, -2759);
  87. Engine.MoveTo(147818, -55287, -2759);
  88. Engine.MoveTo(147930, -55215, -2759);
  89. delay (500);
  90. TPvHS;
  91. end;
  92.  
  93. if user.inrange(150704,-55744,-2976,800) then
  94. begin
  95.   print('Точка3');
  96.   Engine.MoveTo (150397,-56619,-3007);
  97.   Engine.MoveTo (150012,-56917,-3007);
  98.   Engine.MoveTo (149524,-56616,-2907);
  99.   Engine.MoveTo (149113,-56444,-2807);
  100.   Engine.MoveTo (148204,-56092,-2807);
  101.   Engine.MoveTo (147752,-55858,-2783);
  102.   Engine.MoveTo (147667,-55582,-2759);
  103.   Engine.MoveTo (147636,-55441,-2759);
  104.   Engine.MoveTo (147673,-55271,-2759);
  105.   Engine.MoveTo (147790,-55170,-2759);
  106.   Engine.MoveTo (147888,-55167,-2759);
  107.   Engine.MoveTo (147951,-55157,-2759);
  108.   Engine.MoveTo (147983,-55192,-2758);
  109.   delay (500);
  110.   TPvHS;
  111. end;
  112. if user.inrange(149872,-55424,-2976,800) then
  113. begin
  114.   print('Точка4');
  115.   Engine.MoveTo (149967,-57065,-3007);
  116.   Engine.MoveTo (149495,-56584,-2889);
  117.   Engine.MoveTo (149273,-56487,-2807);
  118.   Engine.MoveTo (148638,-56259,-2807);
  119.   Engine.MoveTo (147936,-55951,-2797);
  120.   Engine.MoveTo (147680,-55578,-2759);
  121.   Engine.MoveTo (147636,-55441,-2759);
  122.   Engine.MoveTo (147673,-55271,-2759);
  123.   Engine.MoveTo (147790,-55170,-2759);
  124.   Engine.MoveTo (147888,-55167,-2759);
  125.   Engine.MoveTo (147951,-55157,-2759);
  126.   Engine.MoveTo (147983,-55192,-2758);
  127.   delay (500);
  128.   TPvHS;
  129. end;
  130. if user.inrange(144496,-55088,-2976,800) then
  131. begin
  132.   print('Точка5');
  133.   Engine.MoveTo (144730,-55424,-3007);
  134.   Engine.MoveTo (144946,-56112,-3007);
  135.   Engine.MoveTo (145297,-56915,-3007);
  136.   Engine.MoveTo (145665,-56742,-2960);
  137.   Engine.MoveTo (145999,-56567,-2859);
  138.   Engine.MoveTo (146559,-56327,-2807);
  139.   Engine.MoveTo (147477,-55949,-2798);
  140.   Engine.MoveTo (147655,-55554,-2759);
  141.   Engine.MoveTo (147636,-55441,-2759);
  142.   Engine.MoveTo (147673,-55271,-2759);
  143.   Engine.MoveTo (147790,-55170,-2759);
  144.   Engine.MoveTo (147888,-55167,-2759);
  145.   Engine.MoveTo (147951,-55157,-2759);
  146.   Engine.MoveTo (147983,-55192,-2758);
  147.   delay (500);
  148.   TPvHS;
  149. end;
  150. if user.inrange(147680,-58208,-2976,800) then
  151. begin
  152.   print('Точка6');
  153.   Engine.MoveTo (147706,-57824,-2962);
  154.   Engine.MoveTo (147718,-57365,-2824);
  155.   Engine.MoveTo (147723,-56449,-2807);
  156.   Engine.MoveTo (147673,-55603,-2759);
  157.   Engine.MoveTo (147636,-55441,-2759);
  158.   Engine.MoveTo (147673,-55271,-2759);
  159.   Engine.MoveTo (147790,-55170,-2759);
  160.   Engine.MoveTo (147888,-55167,-2759);
  161.   Engine.MoveTo (147951,-55157,-2759);
  162.   Engine.MoveTo (147983,-55192,-2758);
  163.   delay (500);
  164.   TPvHS;
  165. end;
  166. if user.inrange(147680,-56928,-2776,800) then
  167. begin
  168.   print('Точка7');
  169.   Engine.MoveTo (147676,-56053,-2803);
  170.   Engine.MoveTo (147703,-55506,-2759);
  171.   Engine.MoveTo (147636,-55441,-2759);
  172.   Engine.MoveTo (147673,-55271,-2759);
  173.   Engine.MoveTo (147790,-55170,-2759);
  174.   Engine.MoveTo (147888,-55167,-2759);
  175.   Engine.MoveTo (147951,-55157,-2759);
  176.   Engine.MoveTo (147983,-55192,-2758);
  177.   delay (500);
  178.   TPvHS;
  179. end;
  180. if user.inrange(149088,-56256,-2776,800) then
  181. begin
  182.   print('Точка8');
  183.   Engine.MoveTo (148257,-56020,-2807);
  184.   Engine.MoveTo (147863,-55887,-2783);
  185.   Engine.MoveTo (147692,-55551,-2759);
  186.   Engine.MoveTo (147636,-55441,-2759);
  187.   Engine.MoveTo (147673,-55271,-2759);
  188.   Engine.MoveTo (147790,-55170,-2759);
  189.   Engine.MoveTo (147888,-55167,-2759);
  190.   Engine.MoveTo (147951,-55157,-2759);
  191.   Engine.MoveTo (147983,-55192,-2758);
  192.   delay (500);
  193.   TPvHS;
  194. end;
  195. if user.inrange(150400,-56752,-2976,800) then
  196. begin
  197.   print('Точка9');
  198.   Engine.MoveTo (150334,-56834,-3007);
  199.   Engine.MoveTo (149877,-56857,-3007);
  200.   Engine.MoveTo (149494,-56596,-2892);
  201.   Engine.MoveTo (149284,-56503,-2807);
  202.   Engine.MoveTo (147984,-55971,-2801);
  203.   Engine.MoveTo (147672,-55588,-2759);
  204.   Engine.MoveTo (147636,-55441,-2759);
  205.   Engine.MoveTo (147673,-55271,-2759);
  206.   Engine.MoveTo (147790,-55170,-2759);
  207.   Engine.MoveTo (147888,-55167,-2759);
  208.   Engine.MoveTo (147951,-55157,-2759);
  209.   Engine.MoveTo (147983,-55192,-2758);
  210.   delay (500);
  211.   TPvHS;
  212. end;
  213. if user.inrange(145264,-57680,-2976,800) then
  214. begin
  215.   print('Точка10');
  216.   Engine.MoveTo (145441,-57066,-3007);
  217.   Engine.MoveTo (145643,-56778,-2977);
  218.   Engine.MoveTo (146038,-56479,-2824);
  219.   Engine.MoveTo (147110,-56080,-2807);
  220.   Engine.MoveTo (147515,-55911,-2791);
  221.   Engine.MoveTo (147676,-55562,-2759);
  222.   Engine.MoveTo (147636,-55441,-2759);
  223.   Engine.MoveTo (147673,-55271,-2759);
  224.   Engine.MoveTo (147790,-55170,-2759);
  225.   Engine.MoveTo (147888,-55167,-2759);
  226.   Engine.MoveTo (147951,-55157,-2759);
  227.   Engine.MoveTo (147983,-55192,-2758);
  228.   delay (500);
  229.   TPvHS;
  230. end;
  231. if user.inrange(149088,-56256,-2776,500) then
  232. begin
  233.   print('Точка11');
  234.   Engine.MoveTo (147313,-56017,-2807);
  235.   Engine.MoveTo (147514,-55861,-2783);
  236.   Engine.MoveTo (147670,-55561,-2759);
  237.   Engine.MoveTo (147636,-55441,-2759);
  238.   Engine.MoveTo (147673,-55271,-2759);
  239.   Engine.MoveTo (147790,-55170,-2759);
  240.   Engine.MoveTo (147888,-55167,-2759);
  241.   Engine.MoveTo (147951,-55157,-2759);
  242.   Engine.MoveTo (147983,-55192,-2758);
  243.   delay (500);
  244.   TPvHS;
  245. end;
  246. if user.inrange(149120,-58064,-2976,800) then
  247. begin
  248.   print('Точка12');
  249.   Engine.MoveTo (148674,-58178,-3007);
  250.   Engine.MoveTo (147788,-58266,-3007);
  251.   Engine.MoveTo (147706,-57789,-2946);
  252.   Engine.MoveTo (147712,-57329,-2809);
  253.   Engine.MoveTo (147685,-55833,-2783);
  254.   Engine.MoveTo (147674,-55592,-2759);
  255.   Engine.MoveTo (147636,-55441,-2759);
  256.   Engine.MoveTo (147673,-55271,-2759);
  257.   Engine.MoveTo (147790,-55170,-2759);
  258.   Engine.MoveTo (147888,-55167,-2759);
  259.   Engine.MoveTo (147951,-55157,-2759);
  260.   Engine.MoveTo (147983,-55192,-2758);
  261.   delay (500);
  262.   TPvHS;
  263. end;
  264. end;
  265.  
  266. procedure TPvHS;
  267. begin
  268. //----------ТП в ХС-------//
  269. Engine.SetTarget ('Татьяна');
  270. print ('Танюху выделил');
  271. delay(1000);
  272. Engine.MoveToTarget(-20);
  273. delay(1000);
  274. print ('побазарил с ней');
  275. Engine.DlgOpen;
  276. delay(1000);
  277. Engine.DlgSel (2);
  278. delay(1000);
  279. Engine.DlgSel (11);
  280. delay (10000);
  281. print('Я в ХСе, начинаю бежать');
  282. run1;
  283. end;
  284. procedure run1;
  285. begin
  286. Engine.MoveTo (144916,-113437,-2593);
  287. Engine.MoveTo (145027,-113308,-2578) ;
  288. Engine.MoveTo (145262,-113063,-2560) ;
  289. Engine.MoveTo (145702,-112725,-2501) ;
  290. Engine.MoveTo (145702,-112725,-2501) ;
  291. Engine.MoveTo (145702,-112725,-2501) ;
  292. Engine.MoveTo (145702,-112725,-2440) ;
  293. Engine.MoveTo (146096,-112608,-2432) ;
  294. Engine.MoveTo (146499,-112517,-2378) ;
  295. Engine.MoveTo (146958,-112398,-2293) ;
  296. Engine.MoveTo (147348,-112367,-2243) ;
  297. Engine.MoveTo (147733,-112493,-2193) ;
  298. Engine.MoveTo (148135,-112586,-2199) ;
  299. Engine.MoveTo (148433,-112551,-2178) ;
  300. Engine.MoveTo (148669,-112536,-2158) ;
  301. Engine.MoveTo (148872,-112529,-2121) ;
  302. Engine.MoveTo (148872,-112529,-2064) ;
  303. Engine.MoveTo (149105,-112510,-2091) ;
  304. Engine.MoveTo (149357,-112554,-2090) ;
  305. Engine.MoveTo (149532,-112639,-2090) ;
  306. Engine.MoveTo (149550,-112687,-2090) ;
  307. Quest;
  308. end;
  309.  
  310. procedure Quest;
  311. begin
  312. print('Начинаю квест на ТТ');
  313. delay(1000);
  314. Engine.SetTarget('Джереми');
  315. delay(1000);
  316. Engine.DlgOpen;
  317. DELAY(1000);
  318. Engine.DlgSel(1);
  319. DELAY(1000) ;
  320. Engine.DlgSel(2);
  321. DELAY(1000) ;
  322. Engine.DlgSel(1);
  323. DELAY(1000) ;
  324. Engine.MoveTo(149337, -112574, -2090);
  325. Engine.MoveTo(149145, -112504, -2090);
  326. Engine.MoveTo(149003, -112614, -2091);
  327. Engine.MoveTo(148559, -112928, -2148);
  328. Engine.MoveTo(148094, -113149, -2156);
  329. Engine.MoveTo(147866, -113243, -2145);
  330. Engine.MoveTo(147678, -113279, -2139);
  331. Engine.MoveTo(147538, -113287, -2138);
  332. Engine.SetTarget('Беолин') ;
  333. delay(1000);
  334. Engine.DlgOpen;
  335. delay(1000);
  336. Engine.DlgSel(2) ;
  337. delay(1000);
  338. Engine.DlgSel(1) ;
  339. delay(1000);
  340. Engine.MoveTo(147346, -113062, -2135);
  341. Engine.MoveTo(147204, -112903, -2171);
  342. Engine.MoveTo(147071, -112816, -2184);
  343. Engine.MoveTo(146654, -112727, -2281);
  344. Engine.MoveTo(146184, -112754, -2371);
  345. Engine.MoveTo(145795, -112962, -2413);
  346. Engine.MoveTo(144952, -113526, -2577);
  347. Engine.MoveTo(144574, -113893, -2619);
  348. Engine.MoveTo(144574, -113893, -2619);
  349. Engine.MoveTo(144574, -113893, -2619);
  350. Engine.MoveTo(144170, -114293, -2576);
  351. Engine.MoveTo(143939, -114548, -2661);
  352. Engine.MoveTo(143982, -114526, -2632);
  353. Engine.MoveTo(143939, -114548, -2661);
  354. Engine.MoveTo(143729, -114442, -2655);
  355. Engine.MoveTo(143406, -114166, -2636);
  356. Engine.MoveTo(142714, -113638, -2637);
  357. Engine.MoveTo(142436, -113411, -2647);
  358. Engine.MoveTo(142139, -113184, -2649);
  359. Engine.MoveTo(141856, -112876, -2654);
  360. Engine.MoveTo(141505, -112556, -2672);
  361. Engine.MoveTo(141113, -112485, -2709);
  362. Engine.MoveTo(140978, -112414, -2696);
  363. Engine.MoveTo(140830, -112312, -2733);
  364. Engine.MoveTo(140789, -112062, -2683);
  365. Engine.MoveTo(140783, -111893, -2692);
  366. Engine.MoveTo(140892, -111529, -2983);
  367. Engine.MoveTo(141031, -111257, -3015);
  368. Engine.MoveTo(141052, -111133, -3000);
  369. Engine.MoveTo(141312, -110560, -3617);
  370. Engine.MoveTo(141306, -110410, -3625);
  371. Engine.MoveTo(141339, -110220, -3619);
  372. Engine.MoveTo(141488, -110018, -3612);
  373. Engine.MoveTo(141560, -109747, -3617);
  374. Engine.MoveTo(141627, -109468, -3617);
  375. Engine.SetTarget('Кубер')  ;
  376. delay(1000);
  377. Engine.DlgOpen;
  378. delay(1000);
  379. Engine.DlgSel(2)  ;
  380. delay(1000);
  381. Engine.DlgSel(1) ;
  382. delay(1000);
  383. Engine.MoveTo(141644, -109763, -3615);
  384. Engine.MoveTo(141484, -110008, -3612);
  385. Engine.MoveTo(141035, -110027, -3620);
  386. Engine.MoveTo(140545, -109938, -3639);
  387. Engine.MoveTo(140287, -109787, -3680);
  388. Engine.MoveTo(139762, -109682, -3640);
  389. Engine.MoveTo(139506, -109682, -3512);
  390. Engine.MoveTo(139488, -109765, -3474);
  391. Engine.MoveTo(139406, -109792, -3445);
  392. Engine.MoveTo(139117, -109807, -3359);
  393. Engine.MoveTo(139102, -109794, -3328);
  394. Engine.MoveTo(138809, -109721, -3253);
  395. Engine.MoveTo(138623, -109678, -3205);
  396. Engine.MoveTo(138052, -109465, -3249);
  397. Engine.MoveTo(137860, -109224, -3233);
  398. Engine.MoveTo(137870, -109202, -3200);
  399. Engine.MoveTo(137654, -109039, -3230);
  400. Engine.MoveTo(137408, -108962, -3171);
  401. Engine.MoveTo(137159, -108734, -3112);
  402. Engine.MoveTo(137177, -108301, -3079);
  403. Engine.MoveTo(137312, -108024, -3097);
  404. Engine.MoveTo(137750, -107376, -3250);
  405. Engine.MoveTo(137815, -107167, -3183);
  406. Engine.MoveTo(138123, -106823, -3149);
  407. Engine.MoveTo(138377, -106517, -3170);
  408. Engine.MoveTo(138856, -106000, -3231);
  409. Engine.MoveTo(139042, -106004, -3300);
  410. Engine.MoveTo(139525, -105806, -3648);
  411. Engine.MoveTo(139841, -105540, -3650);
  412. Engine.MoveTo(140008, -105387, -3650);
  413. Engine.MoveTo(140293, -105402, -3654);
  414. Engine.MoveTo(140470, -105516, -3656);
  415. Engine.MoveTo(140635, -105513, -3658);
  416. Engine.SetTarget('Крокус')  ;
  417. delay(1000);
  418. Engine.DlgOpen;
  419. delay(1000);
  420. Engine.DlgSel(2)  ;
  421. delay(1000);
  422. Engine.DlgSel(1) ;
  423. delay(1000);
  424. Engine.MoveTo(140135, -105391, -3657);
  425. Engine.MoveTo(139927, -105335, -3650);
  426. Engine.MoveTo(139927, -105335, -3650);
  427. Engine.MoveTo(139761, -105131, -3641);
  428. Engine.MoveTo(139967, -104916, -3624);
  429. Engine.MoveTo(139998, -104910, -3592);
  430. Engine.MoveTo(140135, -104753, -3573);
  431. Engine.MoveTo(140248, -104515, -3451);
  432. Engine.MoveTo(140420, -104224, -3393);
  433. Engine.MoveTo(140505, -103944, -3344);
  434. Engine.MoveTo(140647, -103517, -3326);
  435. Engine.MoveTo(140729, -103268, -3275);
  436. Engine.MoveTo(140814, -103182, -3256);
  437. Engine.MoveTo(140882, -102964, -3186);
  438. Engine.MoveTo(140945, -102665, -3077);
  439. Engine.MoveTo(140928, -102396, -3002);
  440. Engine.MoveTo(140877, -102032, -2938);
  441. Engine.MoveTo(141094, -101041, -3016);
  442. Engine.MoveTo(141844, -100469, -2947);
  443. Engine.MoveTo(141844, -100469, -2947);
  444. Engine.MoveTo(141844, -100469, -2947);
  445. Engine.MoveTo(141844, -100469, -2947);
  446. Engine.MoveTo(141844, -100469, -2947);
  447. Engine.MoveTo(141844, -100469, -2888);
  448. Engine.MoveTo(142116, -100297, -2881);
  449. Engine.MoveTo(142116, -100297, -2881);
  450. Engine.MoveTo(142116, -100297, -2832);
  451. Engine.MoveTo(142691, -100117, -2921);
  452. Engine.MoveTo(143078, -100209, -2886);
  453. Engine.MoveTo(143552, -100359, -3034);
  454. Engine.MoveTo(144524, -100532, -3267);
  455. Engine.MoveTo(145234, -100826, -3294);
  456. Engine.MoveTo(145880, -100971, -3244);
  457. Engine.MoveTo(146923, -101077, -3151);
  458. Engine.MoveTo(147970, -101048, -3040);
  459. Engine.MoveTo(147970, -101048, -3040);
  460. Engine.MoveTo(147970, -101048, -3040);
  461. Engine.MoveTo(147970, -101048, -3040);
  462. Engine.MoveTo(147970, -101048, -3040);
  463. Engine.MoveTo(147970, -101048, -3040);
  464. Engine.MoveTo(147970, -101048, -2984);
  465. Engine.MoveTo(148859, -101094, -2915);
  466. Engine.MoveTo(149390, -101179, -2894);
  467. Engine.MoveTo(150227, -101381, -2906);
  468. Engine.MoveTo(151046, -101540, -2923);
  469. Engine.MoveTo(151446, -101583, -2915);
  470. Engine.MoveTo(151964, -101571, -2910);
  471. Engine.MoveTo(152306, -101589, -2899);
  472. Engine.MoveTo(152758, -101630, -2902);
  473. Engine.MoveTo(152990, -101816, -2780);
  474. Engine.MoveTo(153196, -101965, -2764);
  475. Engine.MoveTo(153419, -102231, -2847);
  476. Engine.MoveTo(153814, -102561, -2995);
  477. Engine.MoveTo(154078, -103187, -2991);
  478. Engine.MoveTo(154374, -103649, -2930);
  479. Engine.MoveTo(154542, -103721, -2889);
  480. Engine.MoveTo(154792, -104025, -2855);
  481. Engine.MoveTo(155120, -104478, -2789);
  482. Engine.MoveTo(155319, -104754, -2771);
  483. Engine.MoveTo(155568, -105024, -2764);
  484. Engine.MoveTo(155805, -105210, -2762);
  485. Engine.MoveTo(155838, -105424, -2780);
  486. Engine.MoveTo(155726, -105549, -2780);
  487. Engine.MoveTo(155649, -105654, -2780);
  488. Engine.SetTarget('Нафф') ;
  489. delay(1000);
  490. Engine.DlgOpen;
  491. delay(1000);
  492. Engine.DlgSel(2);
  493. delay(1000);
  494. Engine.DlgSel(1);
  495. delay(1000);
  496. Engine.MoveTo(155878, -105319, -2779);
  497. Engine.MoveTo(155918, -105246, -2744);
  498. Engine.MoveTo(156064, -105107, -2759);
  499. Engine.MoveTo(156714, -104934, -2790);
  500. Engine.MoveTo(157165, -104812, -2757);
  501. Engine.MoveTo(157196, -104796, -2696);
  502. Engine.MoveTo(157527, -104723, -2618);
  503. Engine.MoveTo(157792, -104617, -2545);
  504. Engine.MoveTo(158234, -104419, -2451);
  505. Engine.MoveTo(158644, -104436, -2392);
  506. Engine.MoveTo(159222, -104739, -2339);
  507. Engine.MoveTo(159621, -105000, -2294);
  508. Engine.MoveTo(159991, -105479, -2242);
  509. Engine.MoveTo(160369, -106418, -2105);
  510. Engine.MoveTo(160515, -106698, -2081);
  511. Engine.MoveTo(161269, -107367, -2254);
  512. Engine.MoveTo(162471, -108632, -2283);
  513. Engine.MoveTo(162876, -108946, -2301);
  514. Engine.MoveTo(163111, -109324, -2227);
  515. Engine.MoveTo(163164, -109936, -2188);
  516. Engine.MoveTo(163065, -110843, -2310);
  517. Engine.MoveTo(162850, -111150, -2280);
  518. Engine.MoveTo(162786, -111323, -2315);
  519. Engine.MoveTo(162639, -112024, -2400);
  520. Engine.MoveTo(162505, -112719, -2512);
  521. Engine.MoveTo(162457, -113340, -2525);
  522. Engine.MoveTo(162265, -114029, -2522);
  523. Engine.MoveTo(162265, -114029, -2522);
  524. Engine.MoveTo(162265, -114029, -2522);
  525. Engine.MoveTo(162265, -114029, -2522);
  526. Engine.MoveTo(162265, -114029, -2522);
  527. Engine.MoveTo(162330, -114430, -2433);
  528. Engine.MoveTo(162463, -114673, -2422);
  529. Engine.MoveTo(162337, -114999, -2417);
  530. Engine.MoveTo(162085, -115554, -2448);
  531. Engine.MoveTo(161961, -115849, -2322);
  532. Engine.MoveTo(161731, -116069, -2159);
  533. Engine.MoveTo(161254, -116183, -2152);
  534. Engine.MoveTo(160803, -116074, -2058);
  535. Engine.MoveTo(160232, -115970, -1961);
  536. Engine.MoveTo(159949, -116021, -1809);
  537. Engine.MoveTo(159699, -115991, -1750);
  538. Engine.MoveTo(159621, -115800, -1790);
  539. Engine.MoveTo(159265, -115462, -2049);
  540. Engine.MoveTo(159265, -115462, -2049);
  541. Engine.MoveTo(159265, -115462, -2049);
  542. Engine.MoveTo(158932, -115086, -2019);
  543. Engine.MoveTo(158668, -115082, -1983);
  544. Engine.MoveTo(158403, -115121, -1949);
  545. Engine.MoveTo(158261, -115076, -1931);
  546. Engine.MoveTo(158190, -115010, -1896);
  547. Engine.MoveTo(158116, -114957, -1918);
  548. Engine.MoveTo(157925, -114979, -1913);
  549. Engine.MoveTo(157797, -115107, -1932);
  550. Engine.MoveTo(157674, -115314, -1930);
  551. Engine.SetTarget('Пулин');
  552. delay(1000);
  553. Engine.DlgOpen;
  554. delay(1000);
  555. Engine.DlgSel(2);
  556. delay(1000);
  557. Engine.DlgSel(1) ;
  558. delay(1000);
  559. Engine.MoveTo(157820, -115081, -1933);
  560. Engine.MoveTo(158046, -114950, -1917);
  561. Engine.MoveTo(158299, -115052, -1934);
  562. Engine.MoveTo(158758, -115080, -1995);
  563. Engine.MoveTo(159163, -115225, -2050);
  564. Engine.MoveTo(159494, -115469, -1948);
  565. Engine.MoveTo(159616, -115660, -1828);
  566. Engine.MoveTo(159687, -115918, -1763);
  567. Engine.MoveTo(159662, -116441, -1699);
  568. Engine.MoveTo(159613, -116750, -1568);
  569. Engine.MoveTo(159475, -116973, -1444);
  570. Engine.MoveTo(159264, -117253, -1345);
  571. Engine.MoveTo(159066, -117575, -1274);
  572. Engine.MoveTo(158769, -118043, -1393);
  573. Engine.MoveTo(158769, -118043, -1393);
  574. Engine.MoveTo(158769, -118043, -1393);
  575. Engine.MoveTo(158769, -118043, -1393);
  576. Engine.MoveTo(158464, -118199, -1372);
  577. Engine.MoveTo(158157, -118131, -1303);
  578. Engine.MoveTo(158077, -118294, -1235);
  579. Engine.MoveTo(157814, -118393, -1231);
  580. Engine.MoveTo(157217, -118363, -1342);
  581. Engine.MoveTo(156672, -118361, -1334);
  582. Engine.MoveTo(156203, -118484, -1345);
  583. Engine.MoveTo(155818, -118564, -1315);
  584. Engine.MoveTo(155369, -118569, -1267);
  585. Engine.MoveTo(154944, -118595, -1244);
  586. Engine.MoveTo(154624, -118585, -1199);
  587. Engine.MoveTo(154192, -118381, -1229);
  588. Engine.MoveTo(153747, -118139, -1263);
  589. Engine.MoveTo(153448, -118046, -1243);
  590. Engine.MoveTo(153072, -118053, -1217);
  591. Engine.MoveTo(152743, -118087, -1249);
  592. Engine.MoveTo(152193, -118071, -1212);
  593. Engine.MoveTo(151859, -118049, -1129);
  594. Engine.MoveTo(151399, -118120, -1111);
  595. Engine.MoveTo(150765, -117905, -1237);
  596. Engine.MoveTo(150255, -117652, -1333);
  597. Engine.MoveTo(150255, -117652, -1333);
  598. Engine.MoveTo(150255, -117652, -1333);
  599. Engine.MoveTo(150255, -117652, -1333);
  600. Engine.MoveTo(150003, -117365, -1311);
  601. Engine.MoveTo(149803, -117104, -1301);
  602. Engine.MoveTo(149581, -116837, -1301);
  603. Engine.MoveTo(149222, -116570, -1325);
  604. Engine.MoveTo(148848, -116139, -1447);
  605. Engine.MoveTo(148669, -115948, -1569);
  606. Engine.MoveTo(148300, -115461, -2076);
  607. Engine.MoveTo(148186, -115299, -2093);
  608. Engine.MoveTo(148201, -115024, -2059);
  609. Engine.MoveTo(148464, -114614, -2030);
  610. Engine.MoveTo(148655, -114271, -2013);
  611. Engine.MoveTo(148923, -113839, -2047);
  612. Engine.MoveTo(149202, -113383, -2083);
  613. Engine.MoveTo(149370, -113184, -2090);
  614. Engine.MoveTo(149547, -113111, -2090);
  615. Engine.MoveTo(149616, -112990, -2090);
  616. Engine.MoveTo(149618, -112850, -2064);
  617. Engine.MoveTo(149592, -112787, -2090);
  618. Engine.MoveTo(149565, -112653, -2090);
  619. Engine.SetTarget('Джереми');
  620. delay(1000);
  621. Engine.DlgOpen;
  622. delay(1000);
  623. Engine.DlgSel(1);
  624. delay(1000);
  625. Engine.DlgSel(2);
  626. delay(1000);
  627. Engine.DlgSel(1) ;
  628. delay(1000);
  629. kach1;
  630. end;
  631.  
  632. procedure kach1;
  633. begin
  634. delay(500);
  635. print ('Качь пошел!!!');
  636. ResVgorod;
  637. Fight_flag:=false;
  638. Engine.facecontrol(0,True);
  639. end;
  640. begin
  641. repeat
  642. proverka1;
  643. ResVgorod;
  644. Quest;
  645. until engine.status = lsoffline;
  646. delay(5000);
  647. end.
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!