Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Teon-pvp фарм кариков

S

ScarletDemon

Рег
17 Янв 2016
Сообщения
1
Реакции
0
  1. var obj: TL2NPC;
  2. obj2: TL2Effect;http://spaces.ru/files/view/?Read=61251088&name=narufany
  3. item: TL2Item;
  4. Enemy: TL2Live;
  5. Begin
  6. while 1<>2 do begin // бесконечный цикл
  8. if User.Dead then// умер- вырубаем интерфейс, возврат в город и пауза 20 секунд
  9. begin
  10. Engine.FaceControl(0,false);
  11. Engine.gohome;
  12. delay(20000);
  13. end;
  14. {if Engine.Status = lsOffline then
  15. begin
  16. delay(6000);
  17. Engine.UseKey($0D);
  18. delay(660000);
  19. //press tab
  20. Engine.UseKey($09);
  21. delay(2000);
  22. //pwd
  23. Engine.UseKey($00);//
  24. delay(2000);
  25. Engine.UseKey($00);//
  26. delay(2000);
  27. Engine.UseKey($00);//
  28. delay(2000);
  29. Engine.UseKey($00);//
  30. delay(2000);
  31. Engine.UseKey($00);//
  32. delay(2000);
  33. Engine.UseKey($00);//
  34. delay(2000);
  35. Engine.UseKey($00);//
  36. delay(2000);
  37. Engine.UseKey($00);//
  38. delay(2000);
  39. Engine.UseKey($00);//
  40. delay(2000);
  41. Engine.UseKey($00);//
  42. delay(2000);
  43. //enter
  44. Engine.UseKey($00);
  45. delay(15000);
  46. Engine.UseKey($00);
  47. delay(30000);
  48. Engine.UseKey($00);
  49. delay(40000);
  50. Engine.UseItem(1538); //блес тп
  51. end;}
  53. // этот кусок - точки респа выбранной деревни их просто заменить на нужную вам
  54. if user.inrange(118104, 75576, -2672,250,150) //напротив левой лестницы+
  55. then
  56. begin
  57. Engine.FaceControl(0,false);
  58. Engine.MoveTo(117112,76872,-2688);
  59. end;
  60. if user.inrange(118056, 75848, -2672,250,150) //напротив левой лестницы2+
  61. then
  62. begin
  63. Engine.FaceControl(0,false);
  64. Engine.MoveTo(117112,76872,-2688);
  65. end;
  66. if user.inrange( 115861, 75200, -2576,250,150)//центральный выход 2+
  67. then
  68. begin
  69. Engine.FaceControl(0,false);
  70. Engine.MoveTo(117112,76872,-2688);
  71. end;
  72. if user.inrange( 115683, 77610, -2704,250,150)//оли столб к воротам+
  73. then
  74. begin
  75. Engine.FaceControl(0,false);
  76. Engine.MoveTo(117112,76872,-2688);
  77. end;
  78. if user.inrange( 119862, 76603, -2256,250,150)//левая лестница+
  79. then
  80. begin
  81. Engine.FaceControl(0,false);
  82. Engine.MoveTo(119592,76600,-2256);
  83. Engine.MoveTo(117832,76040,-2688);
  84. Engine.MoveTo(117112,76872,-2688);
  85. end;
  86. if user.inrange( 117671, 78998, -2240,250,150)//гильдия камаэль+
  87. then
  88. begin
  89. Engine.FaceControl(0,false);
  90. Engine.MoveTo(117000,78904,-2240);
  91. Engine.MoveTo(116104,77432,-2704);
  92. Engine.MoveTo(117112,76872,-2688);
  93. end;
  94. if user.inrange( 117189, 78952, -2240,250,150)//от тп свитка+
  95. then
  96. begin
  97. Engine.FaceControl(0,false);
  98. Engine.MoveTo(117000,78904,-2240);
  99. Engine.MoveTo(116104,77432,-2704);
  100. Engine.MoveTo(117112,76872,-2688);
  101. end;
  102. if user.inrange( 116737, 76738, -2720,250,150)//гк/хранилеще с права
  103. then
  104. begin
  105. Engine.FaceControl(0,false);
  106. Engine.MoveTo(117112,76872,-2688);
  107. end;
  108. if user.inrange( 116704, 75695, -2720,250,150)//гк/кузня с лева2+
  109. then
  110. begin
  111. Engine.FaceControl(0,false);
  112. Engine.MoveTo(117112,76872,-2688);
  113. end;
  114. if user.inrange( 117304, 76318, -2704,250,150)//гк/кузня с лева1+
  115. then
  116. begin
  117. Engine.FaceControl(0,false);
  118. Engine.MoveTo(117112,76872,-2688);
  119. end;
  120. if user.inrange( 117189, 78952, -2240,250,150)//правая лестница+
  121. then
  122. begin
  123. Engine.FaceControl(0,false);
  124. Engine.MoveTo(117000,78904,-2240);
  125. Engine.MoveTo(116104,77432,-2704);
  126. Engine.MoveTo(117112,76872,-2688);
  127. end;
  128. if user.inrange( 115685, 75072, -2576,250,150)//центральный выход+
  129. then
  130. begin
  131. Engine.FaceControl(0,false);
  132. Engine.MoveTo(117112,76872,-2688);
  133. end;
  134. if user.inrange( 118275, 74859, -2528,250,150)//левый выход+
  135. then
  136. begin
  137. Engine.FaceControl(0,false);
  138. Engine.MoveTo(118056,75848,-2672);
  139. Engine.MoveTo(117112,76872,-2688);
  140. end;
  141. if user.inrange( 116127, 76015, -2720,250,150)//центр право хранилеще/оруж.лавка+
  142. then
  143. begin
  144. Engine.FaceControl(0,false);
  145. Engine.MoveTo(117112,76872,-2688);
  146. end;
  147. if user.inrange( 115193, 77594, -2688,250,150)//правый выход+
  148. then
  149. begin
  150. Engine.FaceControl(0,false);
  151. Engine.MoveTo(117112,76872,-2688);
  152. end;
  153. if user.inrange( 116158, 77443, -2688,250,150)//оли столб+
  154. then
  155. begin
  156. Engine.FaceControl(0,false);
  157. Engine.MoveTo(117112,76872,-2688);
  158. end;
  159. if user.inrange( 118229, 74677, -2512,250,150)//левые ворота+
  160. then
  161. begin
  162. Engine.FaceControl(0,false);
  163. Engine.MoveTo(117112,76872,-2688);
  164. end;
  166. if User.inrange(117112,76872,-2688, 250, 150) then begin
  167. Engine.MoveTo(117096, 76888, -2688);
  168. end;
  169. if User.inrange(117096, 76888, -2688, 250, 150) then begin
  170. Engine.FaceControl(0,false);
  171. delay(1500);
  172. Engine.SetTarget('Ивентовый Хранитель Портала');//заменить на своего бафера
  173. Engine.DlgOpen;
  174. delay(2000);
  175. Engine.DlgSel(1);
  176. delay(1500);
  177. Engine.BypassToServer('02 Player ник');
  178. delay(1500);
  179. Engine.BypassToServer('02 Player ник');
  180. delay(1500);
  181. Engine.BypassToServer('02 Player ник');
  182. delay(10000);
  183. Engine.FaceControl(0,false);
  184. Engine.SetTarget('Неприкаянный Дух');//заменить на своего тп
  185. Engine.DlgOpen();
  186. delay(2000);
  187. Engine.DlgSel(6);
  188. delay(15000);
  189. Engine.FaceControl(0,false); // вход в логово антараса
  190. Engine.MoveTo(146296, 110552, -3512);
  191. Engine.MoveTo(146376, 109768, -3400);
  192. Engine.MoveTo(146456, 109224, -3440);
  193. Engine.MoveTo(146648, 108472, -3624);
  194. Engine.MoveTo(146792, 108056, -3768);
  195. Engine.MoveTo(147112, 107640, -3936);
  196. end;
  197. if user.inrange(147112, 107640, -3936,250,150)
  198. then
  199. begin
  200. Engine.LoadConfig('KissMyDickSteel');//поменять на свой
  201. Engine.LoadZone('карики путь1.zmap') ;
  202. delay(1500);
  203. Engine.FaceControl(0,true);
  204. delay(40000);
  205. Engine.FaceControl(0,false);
  206. Engine.ClearZone;
  207. Engine.MoveTo(147704, 107352, -4032);
  208. Engine.MoveTo(148152, 107576, -4112);
  209. Engine.MoveTo(148952, 108168, -4312);
  210. end;
  211. if user.inrange(148952, 108168, -4312,250,150)
  212. then
  213. begin
  214. Engine.LoadConfig('KissMyDickSteel');//поменять на свой
  215. Engine.LoadZone('карики путь2.zmap');
  216. delay(1500);
  217. Engine.FaceControl(0,true);
  218. delay(40000);
  219. Engine.FaceControl(0,false);
  220. Engine.ClearZone;
  221. Engine.MoveTo(149672, 108328, -4504);
  222. Engine.MoveTo(150200, 107752, -4640);
  223. Engine.MoveTo(150632, 107352, -4744);
  224. end;
  225. if user.inrange(150632, 107352, -4744,250,150)
  226. then
  227. begin
  228. Engine.LoadConfig('KissMyDickSteel');//поменять на свой
  229. Engine.LoadZone('карики путь3.zmap');
  230. delay(1500);
  231. Engine.FaceControl(0,true);
  232. delay(40000);
  233. Engine.FaceControl(0,false);
  234. Engine.ClearZone;
  235. Engine.MoveTo(151000, 107320, -4808);
  236. Engine.MoveTo(151496, 107448, -4896);
  237. Engine.MoveTo(152360, 107816, -5048);
  238. Engine.MoveTo(152904, 108056, -5136);
  239. Engine.MoveTo(153016, 108280, -5136);
  240. Engine.MoveTo(153112, 108296, -5136);
  241. Engine.MoveTo(153160, 108920, -5136);
  242. end;
  243. if user.inrange(153160, 108920, -5136,250,150)
  244. then
  245. begin
  246. Engine.LoadConfig('KissMyDickSteel');//поменять на свой
  247. Engine.LoadZone('карики путь4.zmap') ;
  248. delay(1500);
  249. Engine.FaceControl(0,true);
  250. delay(80000);
  251. Engine.FaceControl(0,false);
  252. Engine.ClearZone;
  253. Engine.MoveTo(153176, 109048, -5136);
  254. Engine.MoveTo(153016, 109208, -5136);
  255. Engine.MoveTo(152760, 109352, -5136);
  256. Engine.MoveTo(152472, 109304, -5136);
  257. Engine.MoveTo(151992, 109448, -5136);
  258. Engine.MoveTo(151720, 109496, -5136);
  259. Engine.MoveTo(151336, 109688, -5136);
  260. Engine.MoveTo(150808, 109736, -5136);
  261. Engine.MoveTo(150488, 109704, -5136);
  262. Engine.MoveTo(150328, 109752, -5128);
  263. Engine.MoveTo(150168, 109864, -5152);
  264. Engine.MoveTo(149832, 110296, -5320);
  265. Engine.MoveTo(149576, 110584, -5400);
  266. Engine.MoveTo(149400, 110792, -5440);
  267. Engine.MoveTo(149560, 111144, -5472);
  268. Engine.MoveTo(151528, 112264, -5504);
  269. Engine.MoveTo(151912, 113256, -5504);
  270. Engine.MoveTo(151912, 114136, -5504);
  271. Engine.MoveTo(151864, 114568, -5440);
  272. Engine.MoveTo(151752, 114792, -5456);
  273. Engine.MoveTo(151864, 114920, -5456);
  274. Engine.MoveTo(152056, 114984, -5416);
  275. Engine.MoveTo(152728, 115320, -5248);
  276. Engine.MoveTo(153080, 115464, -5240);
  277. end;
  278. if user.inrange(153080, 115464, -5240,250,150)
  279. then
  280. begin
  281. Engine.LoadConfig('KissMyDickSteel');//поменять на свой
  282. Engine.LoadZone('карики верх.zmap') ;
  283. Engine.FaceControl(0,true);
  284. end;
  285. //авто юх физ шотов
  286. if Inventory.User.ByID(22086,Item) and (Item.Count < 5000) then begin
  287. Delay(500);
  288. Engine.UseItem(22108);
  289. Delay(800);
  290. end;
  291. //авто юз маг шотов
  292. if Inventory.User.ByID(22076,Item) and (Item.Count < 5000) then begin
  293. Delay(500);
  294. Engine.UseItem(22098);
  295. Delay(800);
  296. end;
  297. //анти дизарм ид пухи думаю через адреналин узнаете
  298. if inventory.user.byid(16021, item) and not (Item.Equipped) then begin
  299. Delay(500);
  300. Engine.UseItem(16021);
  301. Delay(800);//меч архангела - 16012
  302. end; //клинок печати - 16021
  303. //трезубецц икара - 14443
  304. delay(550);
  305. delay(550);
  306. end;
  307. end;
  308. end. ​
 
под спойлер бы засунуть
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху