Просмотр полной версии : ДА БУДЕТ БOT!
Теперь попробую разобраться, если получится прикреплю кусок кода, может кому и пригодится....давай, удачи=) если какие траблы - пости сюда, разберемся =)
Заранее извиняюсь если оф топ но не знаю в какую тему отписать...
Проблема с штмл месадж отправляемие к клиенту месадж отправляеться норм но при отключении плагина и включении его с нова при по питке отправки тойже штмлмесадж пкх падает с ерором и намертво виснет в чом трабл подскажите плз
Ммм. Если убрать пол записи все работает Возможно есть ограничение на длину самой записи или переменой WriteS(buf,hmlstr);?
Ммм. Все работает до попитки поговорить с нпц, при виборе какой нибудь строчки ПКХ умирает
P.s.мож ктото более подробно разбирарася с структурой штмл месадж как задать значение едит поля по умолчанию.
Госсподи, какая ужастая орфография :confused:
Name4Me, сделай при старте скрипта,тоб все переменные обнулялись, может заработает.
Не знаю, было или нет, но накатал скриптик автоматической отправки сообщений в чат по таймеру. Если было потрите..
//Авточат, по таймеру by boyan
//Автоматическая отсылка сообщений в чат, через определенные промежутки времени.
//В Name вписываем ник перса с которого будут отсылаться сообщения, в msg - само сообщение.
//Если нужно отправлять с нескольких персов, добавляем константы Name1..NameN и msg1..msgN соответственно
//и для каждого нового перса создаем в процедуре OnTimer следующий блок(например для Name1 и msg1):
// buf:=#$38;
// WriteS(msg1);
// WriteD(1);
// SendToServerEx(Name1);
//Интервал отправки сообщений задается в timer1.interval:=10000; (в миллисекундах)
//Чат в который отправлять задается в WriteD(1); 0 - общий, 1 - шаут, 8 - трейд
const
Name='';
msg='';
var
timer1: TTimer;
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=10000;
end;
procedure OnTimer(Sender: TObject);
begin
buf:=#$38;
WriteS(msg);
WriteD(1);
SendToServerEx(Name);
end;
procedure Free;
begin
timer1.Free;
end;
begin
end.
lKinderFireTanya
12.01.2009, 21:12
================================================== =============================
[1] C>(scr) 0ms. 20:08:55 .031
-------------------------------------------------------------------------------
Server type: GS3 ParseType: 2 (auto) EnCode: undefined (auto)
-------------------------------------------------------------------------------
000000 0B 01 00 D2 06 00 00 09 | 07 54 56 03 09 0B 01 07 ...O.....TV.....
000010 02 54 54 56 07 00 02 55 | 56 00 51 00 53 57 04 07 .TTV...UV.Q.SW..
000020 55 08 54 01 07 01 53 00 | 56 55 56 01 06 05 04 51 U.T...S.VUV....Q
000030 03 08 51 08 51 56 04 54 | 06 55 08 02 09 51 56 01 ..Q.QV.T.U...QV.
000040 53 06 55 04 53 00 56 56 | 53 01 09 02 09 01 51 54 S.U.S.VVS.....QT
000050 51 09 55 56 09 03 04 07 | 05 55 04 06 55 04 06 09 Q.UV.....U..U...
000060 04 51 01 08 08 06 05 52 | 06 04 01 07 54 03 06 52 .Q.....R....T..R
000070 55 06 55 55 51 01 02 04 | 54 03 55 54 01 57 51 55 U.UUQ...T.UT.WQU
000080 05 52 05 54 07 51 51 55 | 07 02 53 53 00 52 05 52 .R.T.QQU..SS.R.R
000090 07 01 54 00 03 05 05 08 | 06 05 05 06 03 00 0D 08 ..T.............
0000A0 01 07 09 03 51 03 07 53 | 09 51 06 07 54 0A 50 56 ....Q..S.Q..T.PV
0000B0 02 52 04 05 55 51 02 53 | 00 08 54 04 52 56 06 02 .R..UQ.S..T.RV..
0000C0 09 00 08 03 53 56 01 05 | 00 55 06 08 56 04 0D 06 ....SV...U..V...
0000D0 07 52 06 07 04 0A 06 01 | 04 54 04 00 05 02 04 54 .R.......T.....T
0000E0 00 09 52 53 05 04 01 04 | 05 05 01 52 51 52 0D 06 ..RS.......RQR..
0000F0 51 08 09 54 53 00 0D 01 | 02 03 54 53 01 05 03 08 Q..TS.....TS....
000100 56 54 07 02 54 0B 06 00 | 00 00 00 VT..T......
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[1] (scr)>S 0ms. 20:08:55 .031
-------------------------------------------------------------------------------
----------------------------------------------------- --------------------------
000000 0B 01 00 D2 06 00 00 09 | 07 54 56 03 09 0B 01 07 ...O.....TV.....
000010 02 54 54 56 07 00 02 55 | 56 00 51 00 53 57 04 07 .TTV...UV.Q.SW..
000020 55 08 54 01 07 01 53 00 | 56 55 56 01 06 05 04 51 U.T...S.VUV....Q
000030 03 08 51 08 51 56 04 54 | 06 55 08 02 09 51 56 01 ..Q.QV.T.U...QV.
000040 53 06 55 04 53 00 56 56 | 53 01 09 02 09 01 51 54 S.U.S.VVS.....QT
000050 51 09 55 56 09 03 04 07 | 05 55 04 06 55 04 06 09 Q.UV.....U..U...
000060 04 51 01 08 08 06 05 52 | 06 04 01 07 54 03 06 52 .Q.....R....T..R
000070 55 06 55 55 51 01 02 04 | 54 03 55 54 01 57 51 55 U.UUQ...T.UT.WQU
000080 05 52 05 54 07 51 51 55 | 07 02 53 53 00 52 05 52 .R.T.QQU..SS.R.R
000090 07 01 54 00 03 05 05 08 | 06 05 05 06 03 00 0D 08 ..T.............
0000A0 01 07 09 03 51 03 07 53 | 09 51 06 07 54 0A 50 56 ....Q..S.Q..T.PV
0000B0 02 52 04 05 55 51 02 53 | 00 08 54 04 52 56 06 02 .R..UQ.S..T.RV..
0000C0 09 00 08 03 53 56 01 05 | 00 55 06 08 56 04 0D 06 ....SV...U..V...
0000D0 07 52 06 07 04 0A 06 01 | 04 54 04 00 05 02 04 54 .R.......T.....T
0000E0 00 09 52 53 05 04 01 04 | 05 05 01 52 51 52 0D 06 ..RS.......RQR..
0000F0 51 08 09 54 53 00 0D 01 | 02 03 54 53 01 05 03 08 Q..TS.....TS....
000100 56 54 07 02 54 0B 06 DC | 4F 61 4F VT..T..UOaO
================================================== =============================
[2] S>c 0ms. 20:08:55 .203
-------------------------------------------------------------------------------
000000 03 04 00 08 0D 8D 57 54 | 4A FD 49 48 93 51 72 FE .....?WTJyIH“Qr?
000010 B7 C9 E7 1F C2 D8 BF 6E | 28 86 64 06 19 A5 3B 1E ·Ec.AO?n(†d..?;.
000020 E2 42 C1 02 24 B6 AD 64 | C0 79 80 B2 4F 37 E0 4E aBA.$¶*dAy??O7aN
000030 31 7B 96 63 FF A3 C7 31 | C9 1B E5 B4 55 34 55 91 1{–cy?C1E.a?U4U‘
000040 66 6F CA A9 49 21 5F C9 | 82 E8 C7 59 01 05 A9 6E foE©I!_E‚eCY..©n
000050 0E 71 F0 89 E2 FB CA D4 | D1 9B 94 9A 2F 6F F0 4A .q?‰auEON›”s/o?J
000060 AE 12 6D 29 BA 7A F1 35 | 48 15 2A 87 0E A8 8F 60 ®.m)?zn5H.*‡.??`
000070 F8 95 AD 25 AF 40 AE 2B | 07 8B F6 7A D5 9F AA F5 o•*%?@®+.‹ozOY?o
000080 FA BD 04 1D B3 F4 34 0D | 3B 8E 6F C9 1B 6A 14 6A u?..?o4.;ZoE.j.j
000090 0C BB 10 95 68 46 94 DF | 23 D8 5A 7A 50 6D 5A 90 .».•hF”?#OZzPmZ?
0000A0 05 64 47 67 0E 3C BF C5 | FA 68 40 F1 7C 23 B4 51 .dGg.<?Auh@n|#?Q
0000B0 F4 3D 1C 59 34 A0 16 0C | 7D 5F 32 4B E8 72 24 25 o=.Y4*..}_2Ker$%
0000C0 51 67 1C 9C 4E 73 19 71 | 58 1C 0F 4C 08 C8 85 20 Qg.?Ns.qX..L.E….
0000D0 CB 29 8F 2C 00 E9 78 9B | 7F B7 A2 8C 3F 33 EE DF E)?,.ex›·???3i?
0000E0 3F 08 91 5B 78 66 61 81 | 81 5E C8 A8 B7 8D 86 18 ?.‘[xfa??^E?·?†.
0000F0 D7 0B 08 F9 7C 21 70 B2 | B4 17 39 E9 13 A8 2F F1 ?..u|!p??.9e.?/n
000100 74 29 37 ED 8A C2 F3 28 | CF D7 0C AB CA 33 64 94 t)7iSAo(I?.«E3d”
000110 94 31 A1 DC 63 9B 90 9C | 13 6B 72 AA 8F 25 27 DD ”1?Uc›??.kr??%'Y
000120 39 D2 B1 6F 60 F4 4F 86 | 6C 2D 69 CC E8 6B A9 54 9O±o`oO†l-iIek©T
000130 79 F7 D2 61 AB 2B 67 B6 | 55 ED CE 05 52 4D 3E CF y?Oa«+g¶UiI.RM>I
000140 A9 84 12 37 CB 52 8F 93 | BF 27 D8 10 62 6C 87 B5 ©„.7ER?“?'O.bl‡µ
000150 E3 70 78 19 4E 33 7F 12 | 41 D3 6D EE F0 B9 86 31 apx.N3.AOmi??†1
000160 60 91 BC 0F 9D 98 C1 87 | 2A 58 F2 8F 0C 40 DD D8 `‘?.??A‡*Xo?.@YO
000170 E3 F6 6C F5 BE D4 65 86 | 11 D2 74 0C 30 A3 68 40 aolo?Oe†.Ot.0?h@
000180 53 A2 DD DA 16 8E E9 9D | B6 5A E3 57 C4 D2 6B 2E S?YU.Ze?¶ZaWAOk.
000190 AF 44 7A 96 EE 73 C1 7F | 67 65 3E 79 92 27 5A 15 ?Dz–isAge>y’'Z.
0001A0 DC 3A A1 63 5D A6 FC DD | EA 99 38 4D 60 E5 64 1F U:?c]¦uYe™8M`ad.
0001B0 6F 5C 64 35 2A 58 80 EE | 64 5F 11 6D AF 39 91 FC o\d5*X?id_.m?9‘u
0001C0 7B 61 16 14 A5 C3 3E 9E | 1C C2 7F 91 83 C2 B1 1D {a..?A>z.A‘?A±.
0001D0 46 53 CE 98 56 D4 BA 71 | A2 9E 54 45 C3 BF 22 DD FSI?VO?q?zTEA?"Y
0001E0 BD 96 A4 25 48 6B 86 07 | 39 13 A1 2E EE BC FF 66 ?–¤%Hk†.9.?.i?yf
0001F0 21 8A 83 36 3C 28 D4 E9 | 7C AD A5 85 E6 55 66 A2 !S?6<(Oe|*?…?Uf?
000200 4E 4B 43 16 00 6F 94 A3 | 3E 2F BE 6C DC A5 8C B9 NKC..o”?>/?lU???
000210 FE 93 C5 65 61 84 94 E9 | B7 13 95 7F E1 3E 6D 9B ?“Aea„”e·.•a>m›
000220 23 02 62 37 86 F1 E9 02 | C8 9C 55 37 F8 D6 BB 7F #.b7†ne.E?U7oO»
000230 45 FE 6A E4 84 01 21 01 | 93 0F 1C 12 3C 3D 51 6E E?ja„.!.“...<=Qn
000240 E4 7C E5 CC 94 DB 40 7F | 9B EC 14 0A F8 92 C2 B1 a|aI”U@›i..o’A±
000250 E2 1E 28 A7 FA 32 1B 71 | 0A F3 A6 5D 03 36 DD FF a.(§u2.q.o¦].6Yy
000260 33 1A 78 24 21 08 C4 5C | 10 A8 EF EE 02 B3 39 A9 3.x$!.A\.?ii.?9©
000270 8C 2F 75 05 2A A8 6D 09 | 73 2A 77 DB D6 FC 37 EF ?/u.*?m.s*wUOu7i
000280 BF AE 52 3E 38 86 8B D2 | F3 56 73 B8 CF C1 60 E3 ?®R>8†‹OoVs?IA`a
000290 E9 B9 EB 37 41 A3 60 B8 | 6F B3 9B 67 8A 20 AE 2D e?e7A?`?o?›gS.®-
0002A0 BB CB 30 C4 FA 16 92 33 | F2 DA CE DF A5 47 8C 4F »E0Au.’3oUI??G?O
0002B0 41 E8 65 A7 DD 21 04 26 | D7 D3 E9 C9 CA 5D 60 B6 Aee§Y!.&?OeEE]`¶
0002C0 F4 F1 71 D7 9E 22 8F BC | 7A BD F7 42 4A 24 B5 12 onq?z"??z??BJ$µ.
0002D0 2C 53 F2 34 D9 C2 B4 60 | 3E 12 26 30 13 5C 37 39 ,So4UA?`>.&0.\79
0002E0 E6 6A 49 BE 96 D6 00 F7 | E0 97 74 79 86 F3 4B 8D ?jI?–O.?a—ty†oK?
0002F0 1B AA 4D 55 72 6A 16 E2 | 31 68 57 78 B8 27 AD DA .?MUrj.a1hWx?'*U
000300 24 04 66 8C 33 85 4C 66 | 5D 59 E6 38 D1 5D 7B 18 $.f?3…Lf]Y?8N]{.
000310 3A 7E D4 AD 2A 4E D0 A4 | 2E BC 28 F3 0E 2D 00 F2 :~O**N?¤.?(o.-.o
000320 F7 23 DD BD 88 9B F8 12 | BB 3C 83 A8 DB A0 0E FC ?#Y??›o.»<??U*.u
000330 79 2C 02 29 65 36 0E F6 | BE C4 9A FB B6 BF 7F C4 y,.)e6.o?Asu¶?A
000340 D6 94 EB B9 01 BD 95 21 | 65 7F B8 EB CC 53 7A 87 O”e?.?•!e?eISz‡
000350 A2 9E B2 25 D4 26 8D AE | 67 EB 89 B3 37 C2 A1 C9 ?z?%O&?®ge‰?7A?E
000360 45 2A F8 44 D9 64 E2 11 | EE 2B 51 D3 C2 2E 46 48 E*oDUda.i+QOA.FH
000370 0C B9 F6 A0 3E 0A 4C 82 | F2 D7 A4 2D 74 B8 0D 2D .?o*>.L‚o?¤-t?.-
000380 35 01 5B EA 36 9B 99 0A | 2A A0 20 77 A6 24 95 48 5.[e6›™.**.w¦$•H
000390 EA 7D BE 61 7D 2D 7C 69 | 66 25 7D CB B5 F2 10 E3 e}?a}-|if%}Eµo.a
0003A0 1C 83 91 F4 29 19 68 50 | C4 CD 89 DB 74 D3 BA 39 .?‘o).hPAI‰UtO?9
0003B0 3B 3C 7A F7 6A 1A 27 8A | AE 03 4E 9E CE A0 4C CA ;<z?j.'S®.NzI*LE
0003C0 23 7E C5 52 48 25 2B 83 | 5C 86 63 FE EE 11 6A EA #~ARH%+?\†c?i.je
0003D0 FB 5B A2 DB 3A C9 45 30 | 14 15 E5 9B F5 C2 00 B8 u[?U:EE0..a›oA.?
0003E0 1A 38 A7 CC 59 7E 00 69 | 8A 33 16 8F 09 A1 77 4E .8§IY~.iS3.?.?wN
0003F0 0F 4B A8 81 4D 66 80 D8 | 22 FB 34 D1 DE F2 B3 5C .K??Mf?O"u4N?o?\
000400 9A A6 47 s¦G
================================================== =============================
[3] C>s 0ms. 20:08:55 .203
-------------------------------------------------------------------------------
000000 2B 00 05 FC AB 9A D0 5E | 17 2B E3 F3 60 56 F7 AC +..u«s?^.+ao`V?¬
000010 9D 0A 07 CD 7D 64 06 7C | AE 61 50 7D F5 9B 80 BC ?..I}d.|®aP}o›??
000020 C3 3D F3 7E 29 7D 37 0A | EB A3 C3 A=o~)}7.e?A
================================================== =============================
на основе 2го пакета нужно создать 3ий.
Help me..
Рыболова под грацию(РуссОфф) - никто не переделывал?
Есть необходимость в скрипте под руофф. Готов даже занятся переделкой, под чутким руководством =)
При запуске тех версий что сейчас лежат на форуме - пх сразу дает ошибку
Рыболова под грацию(РуссОфф) - никто не переделывал?
Есть необходимость в скрипте под руофф. Готов даже занятся переделкой, под чутким руководством =)
При запуске тех версий что сейчас лежат на форуме - пх сразу дает ошибку
Вот этот (http://coderx.ru/showpost.php?p=20791&postcount=46) скрипт у меня на офе работал до 2-х часов.
kristalik
15.01.2009, 04:09
Есть такой скрипт для волкера для квеста на Ы бижутерию, очень хочется его реализации в Пакет Хаке! (желательно для интерлюд). вот скрипт:
LABEL(start)
MOVETO(149734,-112529,-2090)
MOVETO(149544,-112680,-2090)
NPCDLG(Jeremy[ID=8521])
DLGSEL( Quest )
DLGSEL([Delivery of Special Liquor])
DLGSEL("I'll deliver your liquor." )
MOVETO(149395,-112585,-2090)
MOVETO(149248,-112531,-2090)
MOVETO(149018,-112522,-2095)
MOVETO(148608,-112671,-2154)
MOVETO(148212,-112909,-2168)
MOVETO(148055,-113044,-2162)
MOVETO(147849,-113064,-2149)
MOVETO(147609,-113205,-2139)
NPCSEL(Beorin[ID=8547])
NPCDLG(Beorin[ID=8547])
DLGSEL(Quest)
DLGSEL( "I'm here to deliver some liquor." )
MOVETO(147397,-113068,-2136)
MOVETO(147122,-112888,-2176)
MOVETO(146919,-112714,-2215)
MOVETO(146521,-112514,-2373)
MOVETO(146125,-112531,-2449)
MOVETO(145804,-112669,-2488)
MOVETO(145599,-113008,-2464)
MOVETO(145203,-113415,-2502)
MOVETO(145203,-113415,-2502)
MOVETO(145203,-113415,-2502)
MOVETO(145203,-113415,-2440)
MOVETO(144843,-113736,-2598)
MOVETO(144314,-114236,-2612)
MOVETO(144018,-114674,-2662)
MOVETO(143731,-114574,-2650)
MOVETO(143448,-114276,-2639)
MOVETO(142501,-113573,-2649)
MOVETO(141431,-112625,-2686)
MOVETO(141227,-112240,-2610)
MOVETO(141123,-112119,-2616)
MOVETO(141255,-111628,-3085)
MOVETO(141215,-111316,-3101)
MOVETO(141230,-111152,-3088)
MOVETO(141329,-110679,-3564)
MOVETO(141310,-110234,-3622)
MOVETO(141502,-109966,-3612)
MOVETO(141592,-109578,-3618)
NPCSEL(Kuber[ID=8546])
NPCDLG(Kuber[ID=8546])
DELAY(1000)
DLGSEL( Quest )
DELAY(1000)
DLGSEL("I'm here to deliver some liquor." )
DELAY(1000)
MOVETO(141657,-110169,-3612)
MOVETO(141742,-110383,-3621)
MOVETO(141781,-110772,-3622)
MOVETO(141843,-110737,-3629)
MOVETO(142123,-110810,-3607)
MOVETO(142291,-111003,-3508)
MOVETO(142291,-111003,-3384)
MOVETO(142202,-111331,-3254)
MOVETO(142202,-111331,-3254)
MOVETO(142202,-111331,-3160)
MOVETO(142056,-111766,-3030)
MOVETO(142056,-111766,-3030)
MOVETO(142056,-111766,-3030)
MOVETO(142130,-111976,-2883)
MOVETO(142214,-112237,-2754)
MOVETO(142165,-112516,-2614)
MOVETO(142165,-112516,-2614)
MOVETO(142165,-112516,-2552)
MOVETO(142164,-112367,-2638)
MOVETO(142164,-112367,-2576)
MOVETO(142225,-112174,-2813)
MOVETO(142121,-112505,-2610)
MOVETO(142168,-112361,-2576)
MOVETO(142008,-112602,-2580)
MOVETO(141831,-112951,-2661)
MOVETO(141201,-112739,-2676)
MOVETO(140307,-112237,-2802)
MOVETO(139133,-111903,-2894)
MOVETO(138245,-111420,-2918)
MOVETO(137208,-110922,-2900)
MOVETO(136483,-110332,-2850)
MOVETO(135918,-109555,-2846)
MOVETO(136016,-109169,-2844)
MOVETO(135969,-108220,-2879)
MOVETO(136302,-107686,-2948)
MOVETO(136879,-107135,-3032)
MOVETO(138380,-105624,-3114)
MOVETO(138833,-104628,-3159)
MOVETO(139046,-104760,-3133)
MOVETO(139145,-104855,-3129)
MOVETO(139484,-105072,-3559)
MOVETO(139966,-105313,-3650)
MOVETO(140168,-105464,-3632)
MOVETO(140505,-105490,-3657)
NPCSEL(Crocus[ID=8545])
NPCDLG(Crocus[ID=8545])
DLGSEL( Quest)
DLGSEL("I have your liquor right here!")
MOVETO(139850,-105325,-3650)
MOVETO(139681,-105110,-3618)
MOVETO(139814,-104888,-3589)
MOVETO(139868,-104818,-3570)
MOVETO(139784,-104824,-3528)
MOVETO(140039,-104721,-3553)
MOVETO(140168,-104696,-3520)
MOVETO(140279,-104479,-3442)
MOVETO(140439,-104107,-3361)
MOVETO(140678,-103561,-3351)
MOVETO(140702,-103380,-3312)
MOVETO(140804,-103146,-3263)
MOVETO(140772,-102767,-3051)
MOVETO(140772,-102767,-3051)
MOVETO(140772,-102767,-3000)
MOVETO(140859,-102227,-2972)
MOVETO(140971,-101854,-2901)
MOVETO(141009,-101609,-2912)
MOVETO(141562,-101289,-2914)
MOVETO(141796,-101018,-2895)
MOVETO(142330,-100621,-2835)
MOVETO(142721,-100275,-2877)
MOVETO(143027,-100277,-2872)
MOVETO(143830,-100309,-3117)
MOVETO(143830,-100309,-3117)
MOVETO(143830,-100309,-3117)
MOVETO(143830,-100309,-3117)
MOVETO(143830,-100309,-3117)
MOVETO(143830,-100309,-3056)
MOVETO(144648,-100521,-3270)
MOVETO(145231,-100755,-3288)
MOVETO(145544,-100856,-3248)
MOVETO(145681,-100805,-3246)
MOVETO(146310,-100918,-3195)
MOVETO(147508,-100960,-3104)
MOVETO(148295,-100876,-3012)
MOVETO(148907,-100898,-2958)
MOVETO(149436,-100904,-2941)
MOVETO(150096,-101143,-2922)
MOVETO(150441,-101089,-2902)
MOVETO(150841,-100999,-2852)
MOVETO(151464,-101086,-2870)
MOVETO(151919,-101164,-2870)
MOVETO(152736,-101123,-2940)
MOVETO(153663,-101006,-2955)
MOVETO(154145,-101115,-2956)
MOVETO(154610,-101140,-2958)
MOVETO(155061,-101688,-2924)
MOVETO(155061,-101688,-2924)
MOVETO(155061,-101688,-2924)
MOVETO(155061,-101688,-2924)
MOVETO(155061,-101688,-2924)
MOVETO(155061,-101688,-2924)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2813)
MOVETO(155685,-102404,-2744)
MOVETO(156217,-103029,-2665)
MOVETO(156529,-103445,-2443)
MOVETO(156529,-103445,-2443)
MOVETO(156529,-103445,-2443)
MOVETO(156529,-103445,-2352)
MOVETO(156844,-103791,-2266)
MOVETO(156830,-103932,-2264)
MOVETO(156639,-104350,-2559)
MOVETO(156164,-104898,-2769)
MOVETO(155912,-105297,-2779)
MOVETO(155598,-105661,-2781)
NPCSEL(Naff[ID=8544])
NPCDLG(Naff[ID=8544])
DLGSEL(Quest)
DLGSEL(Say "I've brought you some specially brewed liquor!")
MOVETO(156034,-105044,-2761)
MOVETO(156992,-104611,-2703)
MOVETO(157613,-104447,-2468)
MOVETO(158249,-103995,-2434)
MOVETO(158695,-104195,-2399)
MOVETO(159953,-104307,-2461)
MOVETO(160544,-104932,-2394)
MOVETO(161057,-106167,-2306)
MOVETO(161567,-106699,-2172)
MOVETO(161796,-106927,-2105)
MOVETO(162304,-107581,-2209)
MOVETO(162648,-107950,-2243)
MOVETO(163052,-108725,-2393)
MOVETO(163052,-108725,-2393)
MOVETO(163052,-108725,-2393)
MOVETO(163052,-108725,-2393)
MOVETO(163052,-108725,-2393)
MOVETO(163052,-108725,-2393)
MOVETO(163052,-108725,-2336)
MOVETO(163729,-109140,-2452)
MOVETO(164011,-109398,-2389)
MOVETO(164011,-109398,-2389)
MOVETO(164011,-109398,-2336)
MOVETO(163872,-109842,-2280)
MOVETO(163714,-110235,-2243)
MOVETO(163402,-111239,-2345)
MOVETO(162685,-112346,-2476)
MOVETO(162468,-113068,-2533)
MOVETO(162205,-113543,-2492)
MOVETO(162081,-114222,-2448)
MOVETO(162081,-114222,-2448)
MOVETO(162081,-114222,-2448)
MOVETO(162081,-114222,-2448)
MOVETO(162081,-114222,-2392)
MOVETO(162039,-114724,-2338)
MOVETO(161913,-115169,-2319)
MOVETO(161930,-115740,-2393)
MOVETO(161930,-115740,-2393)
MOVETO(161930,-115740,-2393)
MOVETO(161930,-115740,-2393)
MOVETO(161930,-115740,-2288)
MOVETO(161924,-115930,-2252)
MOVETO(161924,-115930,-2192)
MOVETO(161404,-116545,-2143)
MOVETO(161404,-116545,-2143)
MOVETO(161404,-116545,-2143)
MOVETO(160900,-116103,-2079)
MOVETO(160304,-116226,-1953)
MOVETO(160304,-116226,-1953)
MOVETO(160304,-116226,-1953)
MOVETO(160304,-116226,-1953)
MOVETO(160304,-116226,-1856)
MOVETO(159968,-116276,-1769)
MOVETO(159968,-116276,-1769)
MOVETO(159968,-116276,-1704)
MOVETO(159711,-116335,-1712)
MOVETO(159093,-116383,-1911)
MOVETO(159133,-115973,-1965)
MOVETO(158826,-115824,-1984)
MOVETO(158533,-115794,-1946)
MOVETO(158276,-115815,-1922)
MOVETO(158142,-115773,-1910)
MOVETO(157927,-115636,-1928)
MOVETO(157738,-115392,-1930)
NPCSEL(Pulin[ID=8543])
NPCDLG(Pulin[ID=8543])
DLGSEL(Quest )
DLGSEL("Here's the liquor delivery.")
MOVETO(157932,-115657,-1928)
MOVETO(158329,-115871,-1927)
MOVETO(159186,-115872,-1979)
MOVETO(159407,-115855,-1928)
MOVETO(159615,-115915,-1766)
MOVETO(159866,-116149,-1757)
MOVETO(159866,-116149,-1757)
MOVETO(159866,-116149,-1696)
MOVETO(159568,-116987,-1456)
MOVETO(159237,-117544,-1253)
MOVETO(158685,-118536,-1323)
MOVETO(158685,-118536,-1323)
MOVETO(158685,-118536,-1323)
MOVETO(158685,-118536,-1323)
MOVETO(158174,-118448,-1229)
MOVETO(156925,-118543,-1321)
MOVETO(156925,-118543,-1321)
MOVETO(156925,-118543,-1321)
MOVETO(156925,-118543,-1321)
MOVETO(156925,-118543,-1321)
MOVETO(156925,-118543,-1321)
MOVETO(156925,-118543,-1321)
MOVETO(156925,-118543,-1321)
MOVETO(156925,-118543,-1264)
MOVETO(156124,-118526,-1344)
MOVETO(155265,-118602,-1265)
MOVETO(154694,-118574,-1203)
MOVETO(154235,-118465,-1210)
MOVETO(154235,-118465,-1210)
MOVETO(154235,-118465,-1210)
MOVETO(154235,-118465,-1160)
MOVETO(153645,-118102,-1264)
MOVETO(153317,-118062,-1239)
MOVETO(152540,-118044,-1252)
MOVETO(152050,-118054,-1175)
MOVETO(151578,-118146,-1104)
MOVETO(151165,-118235,-1116)
MOVETO(150745,-118317,-1162)
MOVETO(150175,-118398,-1294)
MOVETO(149630,-118141,-1307)
MOVETO(149103,-117496,-1318)
MOVETO(149011,-116975,-1303)
MOVETO(148718,-116387,-1409)
MOVETO(148536,-116066,-1561)
MOVETO(148194,-115491,-2094)
MOVETO(148130,-114878,-2042)
MOVETO(148638,-114051,-2049)
MOVETO(149042,-113251,-2090)
MOVETO(149032,-112700,-2090)
MOVETO(149287,-112300,-2093)
MOVETO(149677,-112397,-2090)
MOVETO(149625,-112607,-2090)
NPCSEL(Jeremy[ID=8521])
NPCDLG(Jeremy[ID=8521])
DLGSEL( Quest )
DLGSEL([Delivery of Special Liquor])
DLGSEL("Yes, I finished all the deliveries.")
JMP(start)
Писал на la2worldе
LABEL(name)
MOVETO(149569,-112715,-2090)
NPCDLG(Eindarkner[ID=8697])
DLGSEL("Tell me more about fishing.")
MOVETO(149548,-112684,-2090)
NPCSEL(Jeremy[ID=8521])
NPCDLG(Jeremy[ID=8521])
DLGSEL( Quest )
NPCDLG(Jeremy[ID=8521])
DLGSEL( Quest )
DLGSEL([Delivery of Special Liquor])
DLGSEL("I'll deliver your liquor." )
USEITEM(Haste Potion[ID=734])
MOVETO(149307,-112581,-2090)
MOVETO(149532,-112655,-2054)
MOVETO(149553,-112618,-2090)
MOVETO(149272,-112583,-2090)
MOVETO(149311,-112664,-2090)
MOVETO(149384,-112632,-2064)
MOVETO(149256,-112760,-2064)
MOVETO(149149,-112802,-2086)
MOVETO(148639,-112986,-2138)
MOVETO(148302,-113084,-2154)
MOVETO(147871,-113198,-2149)
MOVETO(147587,-113269,-2138)
NPCSEL(Beorin[ID=8547])
NPCDLG(Beorin[ID=8547])
DLGSEL(Quest)
DLGSEL( "I'm here to deliver some liquor." )
MOVETO(147592,-113250,-2138)
MOVETO(148052,-113113,-2162)
MOVETO(148300,-112606,-2183)
MOVETO(148575,-112083,-2205)
MOVETO(148981,-111469,-2207)
MOVETO(149411,-110773,-2312)
MOVETO(149455,-109919,-2433)
MOVETO(149195,-109402,-2516)
MOVETO(148919,-108965,-2608)
MOVETO(148397,-108869,-2719)
MOVETO(147696,-108885,-2908)
MOVETO(146855,-108926,-3143)
MOVETO(146094,-108975,-3347)
MOVETO(145276,-109088,-3467)
MOVETO(144402,-109223,-3530)
MOVETO(143432,-109347,-3558)
MOVETO(142762,-109431,-3573)
MOVETO(142344,-109476,-3610)
MOVETO(142098,-109464,-3602)
MOVETO(141857,-109442,-3620)
MOVETO(141646,-109422,-3617)
NPCSEL(Kuber[ID=8546])
NPCDLG(Kuber[ID=8546])
DLGSEL( Quest )
DLGSEL("I'm here to deliver some liquor." )
MOVETO(142019,-109409,-3620)
MOVETO(142095,-109402,-3601)
MOVETO(142143,-109222,-3612)
MOVETO(142060,-108918,-3612)
MOVETO(141788,-108363,-3600)
MOVETO(141446,-107611,-3593)
MOVETO(141178,-107016,-3627)
MOVETO(140986,-106614,-3645)
MOVETO(140790,-106239,-3652)
MOVETO(140728,-105911,-3646)
MOVETO(140756,-105769,-3638)
MOVETO(140726,-105659,-3659)
MOVETO(140673,-105527,-3658)
NPCDLG(Crocus[ID=8545])
DLGSEL( Quest)
DLGSEL("I have your liquor right here!")
MOVETO(140972,-105577,-3660)
MOVETO(141036,-105581,-3638)
MOVETO(141228,-105574,-3642)
MOVETO(141823,-105558,-3619)
MOVETO(142207,-105541,-3585)
MOVETO(142750,-105533,-3549)
MOVETO(143144,-105621,-3531)
MOVETO(143983,-106356,-3530)
MOVETO(144789,-107494,-3510)
MOVETO(145270,-108097,-3463)
MOVETO(145895,-108916,-3402)
MOVETO(145946,-108968,-3387)
MOVETO(146405,-108938,-3275)
MOVETO(148052,-108854,-2814)
MOVETO(148087,-108824,-2803)
MOVETO(148624,-108752,-2667)
MOVETO(148749,-108913,-2645)
MOVETO(149210,-109224,-2536)
MOVETO(149467,-109675,-2463)
MOVETO(149611,-110281,-2376)
MOVETO(149859,-110820,-2277)
MOVETO(150367,-111927,-2238)
MOVETO(150537,-112013,-2247)
MOVETO(151666,-111751,-2401)
MOVETO(152426,-111281,-2527)
MOVETO(153806,-110206,-2714)
MOVETO(154099,-109494,-2734)
MOVETO(154563,-108252,-2718)
MOVETO(154607,-107511,-2713)
MOVETO(155104,-106657,-2717)
MOVETO(155365,-106157,-2768)
MOVETO(155487,-105925,-2765)
MOVETO(155534,-105827,-2781)
NPCSEL(Naff[ID=8544])
NPCDLG(Naff[ID=8544])
DLGSEL(Quest)
DLGSEL(Say "I've brought you some specially brewed liquor!")
MOVETO(155627,-105888,-2764)
MOVETO(155606,-106380,-2764)
MOVETO(155274,-106796,-2714)
MOVETO(154952,-107167,-2701)
MOVETO(154863,-108004,-2690)
MOVETO(154619,-108848,-2719)
MOVETO(154422,-109373,-2721)
MOVETO(153911,-110098,-2721)
MOVETO(152668,-111194,-2559)
MOVETO(152167,-111530,-2482)
MOVETO(151587,-111931,-2388)
MOVETO(151066,-112391,-2284)
MOVETO(150544,-113450,-2051)
MOVETO(150306,-114070,-1964)
MOVETO(150341,-114653,-1831)
MOVETO(150760,-114885,-1711)
MOVETO(151563,-115051,-1590)
MOVETO(152987,-115298,-1598)
MOVETO(153787,-115196,-1557)
MOVETO(155163,-115270,-1603)
MOVETO(156824,-115343,-1882)
MOVETO(157008,-115366,-1912)
MOVETO(157252,-115363,-1922)
MOVETO(157430,-115370,-1911)
MOVETO(157573,-115362,-1929)
NPCSEL(Pulin[ID=8543])
NPCDLG(Pulin[ID=8543])
DLGSEL(Quest )
DLGSEL("Here's the liquor delivery.")
MOVETO(157445,-115375,-1912)
MOVETO(157217,-115397,-1922)
MOVETO(155401,-115274,-1631)
MOVETO(154226,-115143,-1559)
MOVETO(152949,-114901,-1620)
MOVETO(152404,-114960,-1610)
MOVETO(151310,-115130,-1609)
MOVETO(150619,-114800,-1747)
MOVETO(150095,-113886,-2024)
MOVETO(149909,-113415,-2096)
MOVETO(149842,-112943,-2111)
MOVETO(149765,-112834,-2090)
MOVETO(149594,-112660,-2090)
NPCSEL(Jeremy[ID=8521])
NPCDLG(Jeremy[ID=8521])
DLGSEL( Quest )
DLGSEL([Delivery of Special Liquor (ongoing)])
DLGSEL("Yes, I finished all the deliveries.")
NPCSEL(Eindarkner[ID=8697])
DELAY(2)
JMP(name)
http://coderx.ru/showthread.php?t=1167
тебе в помощь
и скажи спасибо
NLObP,
-=Ma}{imuS=-
15.01.2009, 21:10
скрипт для камаелек 1-21 лвл еще никто не писал?)
Вот этот (http://coderx.ru/showpost.php?p=20791&postcount=46) скрипт у меня на офе работал до 2-х часов.
у меня при включение этого скрипта в l2phx 3.4.1.61 критует, с ошибкой: "Access violation at address 0056EE30 in module 'l2pbx.exe'. Read of address 00000000."
Добавлено через 11 минут
у меня при включение этого скрипта в l2phx 3.4.1.61 критует, с ошибкой: "Access violation at address 0056EE30 in module 'l2pbx.exe'. Read of address 00000000."
Сори - это вылазило пока имя не поменял, на свое! =) туплю бляхя..
теперь при записи маршрута начинают лезти ошибки в пх: "WSA no error 10038/460"
Сори - это вылазило пока имя не поменял, на свое! =) туплю бляхя..
Сколько по асе не обращались, все не читали и не настраивали скрипт под своего чара.
теперь при записи маршрута начинают лезти ошибки в пх: "WSA no error 10038/460"
Это работа шитконсоли, так и у меня. Можно попробовать с рейнджером, он эмулирует работу шитконсоли, но гарантии нет, могут забанить.
nezabudkin
22.01.2009, 18:39
Друзья, может мне кто-нибудь подсказать...
Как однозначно понять что действие по передвижению или атаке не может быть выполнено?
Вот посылаем мы пакет
MpveBacwardToLocation, вдруг перед нами вырастает стена или дерево. Что нам присылает сервер в ответ?
вернее я знаю что он присылает пакет ActionFailed, но этот пакет приходит довольно часто, даже если просто бегать, или чего-нибудь еще делать.
Может я что-нибудь упустил?
А если мы посылаем пакет action, и из за препядствия на пути не получается добежать до моба, тогда, вроде, тоже приходит несколько пакетов ActionFailed.
А если посылаем RequestMagicSkillUse, и тоже из за каких-то препядствий или других проблем ударить магией не возможно, что тогда приходит?
В общем, как однозначно определить, что приведенные выше действия выполнить невозможно, что нам на это отвечает сервер?
nezabudkin, там вроде пакет SystemMessage называется, в зависимости от содержания пакета разные сообщения, например:цель проспойлена, неудачная атака, некозможно атаковать и т.д. попробуй отмониторь содержимое этого пакета, когда не получается добежать или скастовать чего-нить.
-=Ma}{imuS=-
29.01.2009, 12:25
скажите у кого нибудь l2phx на русофе работает дольше минуты? без ошибки ШК?
-=Ma}{imuS=-,
а я не понял а у нас что есть L2phx на руофф??? что то я не видел чтобы тут его вылаживали? ...подскажи где нашёл
-=Ma}{imuS=-
29.01.2009, 13:10
http://coderx.ru/showpost.php?p=12525&postcount=1
версия 3.4.1.69 и выше. пакеты ловит и посылает нормально, даже бот-скрипт работает. Правда я не знаю можно ли его назвать рабочим из-за ошибки ШК потому и спрашиваю есть ли какие либо решения?
p.s. сори что спрашиваю в этой теме, просто не нашел ни одну посвященную русофу..
Пока нету похоже, ШК както палит модификацию трафика.
nezabudkin, м.. ну впринципе когда ты бежиш и на путии- дерево.. то сервер тебе вроде ничего не причылает.. ету работу выполняет клиент.. на етом основан баг с прохождением закрытых дверей.. т.е. через закрытую дверь прпойти ты вроде какбы неможеш.. но если сам себе (клиенту) отправить пакет в котором говорится что ДВЕРЬ- ОТКРЫЛАСЬ.. клиент распахнет на екране двери и ты сможеш пройти через них.. ну етот баг пофиксили почти везде.. но смысл остался.. упершись в дерево ничего тебе сервер нескажет.. но если действие противоречит геодате..- то скажет ЕКШН ФЕЙЛД.. на серверах с кривой геодатой (или отсутствующей) клиент может тупануть- упершись в дерево он не пройдет сквозь него.. и сервер молчать будет.. но если продолжать движение то ты какбы преодалееш препятствие.. вопщем про движение: если действие не протеворечит геодате сервера то никаких пакетов об препятствии клиент не получает..
Denis63RUS
13.02.2009, 14:24
Привет всем, сразу извеняюсь за возможно нубский вопрос, но до меня ниак не дойдёт как его решить.
Когда я гружу клиента (сервер ) и ПХ 3,3,9, после прекращения обмена пакетами клиент - сервер и наоборот (т.е например отключение инета/дисконект, отключение сервера, вообщем любое что введёт к надписи "связь с сервером потерянна", если грузиться просто клиентом) клиент просто замирает, никаких ошибок ничего не выдаёт, даже если нажать в нем "выйти из игры" или "перезайти" ничего не происходит, помогает тока принудительное закрытие приложения. Происходит такое не зависимо от таго запущен како либо скрипт или нет!
Из FAQ нашёл такие строчки:
NoFreeOnClientDisconnect - запрещает закрытие соединения при дисконекте клиента (v. 3.1.9+)
NoFreeOnServerDisconnect - запрещает закрытие соединения при дисконекте сервера (v. 3.1.9+)
YesFreeOnClientDisconnect - разрешает закрытие соединения при дисконекте клиента (v. 3.1.9+)
YesFreeOnServerDisconnect - разрешает закрытие соединения при дисконекте сервера (v. 3.1.9+)
(по умолчанию закрытия разрешены)
И так вопрос: получается если по умолчанию закрытия разрешены, то менять ненадо ничего, я прав или нет? И как сделать чтобы пакет хак давал клиенту видеть что тот потерял связь?
nezabudkin, м.. ну впринципе когда ты бежиш и на путии- дерево.. то сервер тебе вроде ничего не причылает.. ету работу выполняет клиент.. на етом основан баг с прохождением закрытых дверей.. т.е. через закрытую дверь прпойти ты вроде какбы неможеш.. но если сам себе (клиенту) отправить пакет в котором говорится что ДВЕРЬ- ОТКРЫЛАСЬ.. клиент распахнет на екране двери и ты сможеш пройти через них.. ну етот баг пофиксили почти везде.. но смысл остался.. упершись в дерево ничего тебе сервер нескажет.. но если действие противоречит геодате..- то скажет ЕКШН ФЕЙЛД.. на серверах с кривой геодатой (или отсутствующей) клиент может тупануть- упершись в дерево он не пройдет сквозь него.. и сервер молчать будет.. но если продолжать движение то ты какбы преодалееш препятствие.. вопщем про движение: если действие не протеворечит геодате сервера то никаких пакетов об препятствии клиент не получает..
Если так, может есть смысл проверять пакет от клиента, он же должен в таком случае сказать серверу, что остановился и дальше не бежит...
nezabudkin
25.02.2009, 13:32
Если так, может есть смысл проверять пакет от клиента, он же должен в таком случае сказать серверу, что остановился и дальше не бежит...
Клиент кроме ValidatePosition, больше ничего ценного, в данном случае, не посылает, и по нему довольно сложно понять зацепился бот за препядствие или нет. Да и серверу этот пакет совсем не указ...
Здравствуйте, только начал пользоваться l2phx есть несколько вопросов:
1. l2phx синхронизируется с клиентом идет обмен пакетами, но вот в закладке где должен быть NickName у меня отображается '???????????????1' , ник у меня не русский, сервер Asterios, Gracia part II версия l2phx последняя на момент написания поста
2. со времен C4 и C6 принцип сдачи манора в грации изменился, щас не надо сидеть судорожнео с секундомером, щас после 20-00 пишет: "идет профилактика сервера" и окно с плодами на сдачу не открыть, как только эта профилактика заканчивается все появлется и все сдают, т.е. скрипт VORONA не актуален в данном случае, есть ли скрипт на сдачу манора в грации?
3. Если не сложно выложите образец пакета на сдачу манора
Здравствуйте. Можно сделать в скрипте :
//by mks
//помошник в PvP и PK.
//пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня)
///////////////////////////////////////////////////////
///////////////Master PvP by MKS v.1.0/////////////////
///////////////////////////////////////////////////////
так чтобы после смерти чара скрипт перестал работать.Я сам несмогу напишите пожалуста дополнение, а то после возрождения начинает жрать бутылки.
TAMBIK, скрипт хотябы сюда скопипасти...
//помошник в PvP и PK пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня)
//после активации скрипта необходимо выпить сначала банку CP, потом HP для получения их ID
const
Name='xxxxx'; //ник перса
var
CurHP,MaxHP,CurCP,MaxCP: integer;
CPuse,HPuse: string;
TimerCP,TimerHP: TTimer;
procedure Init; //Вызывается при включении скрипта
begin
TimerCP:=TTimer.Create(nil);
TimerCP.OnTimer:=@OnTimerCP;
TimerCP.enabled:=false;
TimerCP.interval:=1000; //интервал 1сек, т.к. чаще пить CP всеравно не будет, дабы не засорять трафик
TimerHP:=TTimer.Create(nil);
TimerHP.OnTimer:=@OnTimerHP;
TimerHP.enabled:=false;
TimerHP.interval:=15000; //интервал 15сек, т.к. действие одной бутылки = 15сек
end;
procedure OnTimerCP(Sender: TObject);
begin
buf:=CPuse;
SendToServerEx(Name);
end;
procedure OnTimerHP(Sender: TObject);
begin
buf:=HPuse;
SendToServerEx(Name);
end;
procedure Free; //Вызывается при выключении скрипта
begin
TimerCP.free;
TimerHP.free;
HPuse:='';
CPuse:='';
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//пьем сначала CP, потом HP банку что б запомнить их ID(я решил взять эти пакеты целиком, дабы не усложнять)
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse<>pck) and (HPuse='') then HPuse:=pck;
//считываем текущие и максимальные значения CP и HP
if FromServer and (pck[1]+pck[6]=#$0E#$04) then
begin
CurHP:=ReadD(14);
MaxHP:=ReadD(22);
CurCP:=ReadD(30);
MaxCP:=ReadD(38);
end;
if CurHP<>0 then
begin
//если вы используете не грэйтер CP то вместо 200 подставьте кол-во CP сколько восстанавливает 1 банка
if (CurCP<MaxCP-200) and (CPuse<>'') then TimerCP.enabled:=true else TimerCP.enabled:=false;
if (CurHP<MaxHP) and (HPuse<>'') then TimerHP.enabled:=true else TimerHP.enabled:=false;
//если используем скилы или заклинания добавляем флаг Ctrl, что б не надо было удерживать контрол
if FromClient and (ConnectName=Name) and (pck[1]=#$2F) then pck[6]:=#$01;
//если наводим таргет, повторное нажатие по нему подменивается на атаку, опять же что б не удерживать контрол
if FromClient and (ConnectName=Name) and (pck[1]=#$04) then pck[1]:=#$0A;
end
else
begin
TimerHP.enabled:=false;
TimerCP.enabled:=false;
end;
end.
Вот скрипт сделайте пожалуста дополнение чтобы после смерти чара скрипт выключался
поправил твой скрипт, если ХП=0 то прекращаем хилиться и т.д.
DashKAaa
18.03.2009, 08:50
поправил твой скрипт, если ХП=0 то прекращаем хилиться и т.д.
ссылочку моно?))))
Добавлено через 1 минуту
Здравствуйте. Можно сделать в скрипте :
//by mks
//помошник в PvP и PK.
//пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня)
///////////////////////////////////////////////////////
///////////////Master PvP by MKS v.1.0/////////////////
///////////////////////////////////////////////////////
так чтобы после смерти чара скрипт перестал работать.Я сам несмогу напишите пожалуста дополнение, а то после возрождения начинает жрать бутылки.
на каких хрониках его пробовал? просто в старые добрые времена этот скрипт фигово жрал бутылки( тормозил можно сказать так.. по этому пришлось от него отказаться )
DashKAaa, пост номер 527 в этой темке.
DashKAaa
18.03.2009, 09:30
ммм вроде старый твой скрипт... который так и не жрал ЦП.. у меня, ладно с работы приду проверю (тестил не на шоке)
DashKAaa, эт не мой скрипт =) TAMBIK просил убрать хил после смерти - я и убрал =)
DashKAaa
18.03.2009, 20:10
Хмм ну как и говорил на интерлюде не ловит ЦП... он не в какую (
Я на шоке в интердюд пользовал его
какой QaK, правил
StekloReZ
02.05.2009, 23:15
Манор по системному таймеру, с простой формой. Для грации.
Можно прикрутить автоотключение, где-то видел в начале темы.
//на основе скрипта:
{
by VORON
//СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА
}
// за что ему огромное спасибо.
//Решил сделать Форму для скрипта, так как на сервере перенесли Олимпиады на x часов раньше.
//Необходимо уставить время сдачи и интервал меду пакетами.
//Останавливать после сдачи вручную.
const
name='xxxx'; // вписать Ник
var
//Список переменных формы
//Создаваемая форма
FormMain : TForm;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
ClearButom1: TButton;
Buttom1: TButton;
memo1 : TMemo;
CheckBox1: TCheckBox;
GroupBox1: TGroupBox;
Label2: TLabel;
GroupBox2: TGroupBox;
Label5: TLabel;
//******************************************
Timer1, Timer2: TTimer;
priv,r,h,m,s,t,PaketManora:String;
EndTime: TDateTime;
msg:string;
//*******************************************
procedure Init; //Вызывается при включении скрипта
begin
FormMain:=Create_FormMain; //создаю форму
//таймер в заголовке формы
Timer1:=TTimer.Create(nil); // таймер заголовка формы
Timer1.Enabled:=true;
Timer1.Interval:=1000; //время задержки
Timer1.OnTimer:=@Onaction;
//таймер отправки пакетов
Timer2:=TTimer.Create(nil);
Timer2.Enabled:=false;
Timer2.Interval:=1000; //время задержки
Timer2.OnTimer:=@fromEdit;
EditPaste; // вставка условных значений во все Edit
Memo1.Lines.Add('Автоманор в режиме ожиданя.');
Memo1.Lines.Add('Для активации автоматической сдачи');
Memo1.Lines.Add('нужно 1раз продать урожай');
end;
function Create_FormMain : TForm;
//Создаем форму и соотв. компоненты на ней ...
Var
Yes : boolean;
begin
Result := TForm.Create(nil);
//............................................
//Свойства формы
Result.Caption := 'Поехали';
Result.Left := 318;
Result.Top := 107;
Result.Width := 223;
Result.Height := 368;
Result.FormStyle := fsStayOnTop;
Result.Position := poDesigned;
Result.BorderStyle := bsSizeable;
Result.BorderWidth := 0;
Result.WindowState := wsNormal;
Result.Color := clBtnFace;
Result.Font.Name := 'MS Sans Serif';
Result.Font.Size := 11;
Result.Font.Color := clWindowText;
Result.Font.CharSet:= 1;
Result.BorderIcons := biSystemMenu;
//......................................
//memo1
memo1 := TMemo.Create(Result);
memo1.Parent := Result;
memo1.Left :=0;
memo1.Top := 56;
memo1.Width := 209;
memo1.Height := 211;
memo1.Visible := TRUE;
memo1.Tag := 0;
memo1.Enabled := TRUE;
memo1.Hint := '';
memo1.ShowHint := FALSE;
memo1.Font.Name := 'Tahoma';
memo1.Font.Size := 8;
memo1.Font.Color := clWindowText;
memo1.Color := clWindow;
memo1.TabOrder := 4;
memo1.TabStop := TRUE;
memo1.Align := alNone;
memo1.WordWrap := false;
memo1.Alignment := taLeftJustify;
memo1.WantTabs := FALSE;
memo1.WantReturns := TRUE;
memo1.HideSelection := TRUE;
memo1.MaxLength := 0;
memo1.OEMConvert := FALSE;
memo1.ReadOnly := FALSE;
memo1.ScrollBars := ssNone;
//......................................
//ClearButom1
ClearButom1 := TButton.Create(Result);
ClearButom1.Parent := Result;
ClearButom1.Left := 128;
ClearButom1.Top := 336;
ClearButom1.Width := 81;
ClearButom1.Height := 25;
ClearButom1.Visible := TRUE;
ClearButom1.Tag := 0;
ClearButom1.Enabled := TRUE;
ClearButom1.Hint := '';
ClearButom1.ShowHint := FALSE;
ClearButom1.Caption := 'Очистить';
ClearButom1.Font.Name := 'Tahoma';
ClearButom1.Font.Size := 8;
ClearButom1.Font.Color := clWindowText;
ClearButom1.Font.CharSet := 1;
ClearButom1.TabOrder := 0;
ClearButom1.TabStop := TRUE;
ClearButom1.Cancel := FALSE;
ClearButom1.ModalResult := 0;
ClearButom1.Anchors := akLeft;
ClearButom1.OnClick := @ClearButom1Click;
//......................................
//Button1
Buttom1 := TButton.Create(Result);
Buttom1.Parent := Result;
Buttom1.Left := 2;
Buttom1.Top := 336;
Buttom1.Width := 126;
Buttom1.Height := 25;
Buttom1.Visible := TRUE;
Buttom1.Tag := 0;
Buttom1.Enabled := FALSE;
Buttom1.Hint := '';
Buttom1.ShowHint := FALSE;
Buttom1.Caption := 'Тест (послать 1 пакет)';
Buttom1.Font.Name := 'Tahoma';
Buttom1.Font.Size := 8;
Buttom1.Font.Color := clWindowText;
Buttom1.Font.CharSet := 1;
Buttom1.TabOrder := 0;
Buttom1.TabStop := TRUE;
Buttom1.Cancel := FALSE;
Buttom1.ModalResult := 0;
Buttom1.Anchors := akLeft;
Buttom1.OnClick := @Buttom1Click;
//......................................
//CheckBox1
CheckBox1 := TCheckBox.Create(Result);
CheckBox1.Parent := Result;
CheckBox1.Left := 3;
CheckBox1.Top := 290;
CheckBox1.Width := 208;
CheckBox1.Height := 35;
CheckBox1.Visible := TRUE;
CheckBox1.Tag := 0;
CheckBox1.Enabled := FALSE;
CheckBox1.Hint := 'Включить автоматическую отправку по таймеру';
CheckBox1.ShowHint := TRUE;
CheckBox1.Caption := 'Автоматом сдавать по таймеру?';
CheckBox1.Font.Name := 'Tahoma';
CheckBox1.Font.Size := 8;
CheckBox1.Font.Color := clWindowText;
CheckBox1.Color := clRed;
CheckBox1.TabOrder := 0;
CheckBox1.TabStop := TRUE;
CheckBox1.Checked := FALSE;
CheckBox1.AllowGrayed := FALSE;
CheckBox1.State := cbUnchecked;
CheckBox1.Anchors := akLeft;
CheckBox1.OnClick := @CheckBox1_Click;
//......................................
//GroupBox1
GroupBox1 := TGroupBox.Create(Result);
GroupBox1.Parent := Result;
GroupBox1.Left := 0;
GroupBox1.Top := 0;
GroupBox1.Width := 105;
GroupBox1.Height := 49;
GroupBox1.Visible := TRUE;
GroupBox1.Tag := 0;
GroupBox1.Enabled := TRUE;
GroupBox1.Hint := '';
GroupBox1.ShowHint := FALSE;
GroupBox1.Caption := 'Время отправки';
GroupBox1.Align := alNone;
GroupBox1.Color := clBtnFace;
GroupBox1.Font.Name := 'Tahoma';
GroupBox1.Font.Size := 8;
GroupBox1.Font.Color := clWindowText;
GroupBox1.Font.CharSet := 1;
GroupBox1.TabOrder := 3;
GroupBox1.TabStop := FALSE;
//......................................
//Label2
Label2 := TLabel.Create(Result);
Label2.Parent := GroupBox1;
Label2.Left := 16;
Label2.Top := 16;
Label2.Width := 54;
Label2.Height := 24;
Label2.Visible := TRUE;
Label2.Tag := 0;
Label2.Enabled := TRUE;
Label2.Hint := '';
Label2.ShowHint := FALSE;
Label2.Caption := '_ : !. :';
Label2.Transparent := TRUE;
Label2.WordWrap := FALSE;
Label2.Alignment := taLeftJustify;
Label2.Layout := tlTop;
Label2.AutoSize := TRUE;
Label2.Align := alNone;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Size := 19;
Label2.Font.Color := clWindowText;
Label2.Color := clBtnFace;
//......................................
//Edit4
Edit4 := TEdit.Create(Result);
Edit4.Parent := GroupBox1;
Edit4.Left := 72;
Edit4.Top := 16;
Edit4.Width := 25;
Edit4.Height := 24;
Edit4.Visible := TRUE;
Edit4.Tag := 0;
Edit4.Enabled := TRUE;
Edit4.Hint := '';
Edit4.ShowHint := TRUE;
Edit4.Text := '00';
Edit4.Font.Name := 'Tahoma';
Edit4.Font.Size := 13;
Edit4.Font.Color := clWindowText;
Edit4.Color := clWindow;
Edit4.TabOrder := 1;
Edit4.TabStop := TRUE;
Edit4.ReadOnly := FALSE;
Edit4.MaxLength := 0;
Edit4.AutoSize := TRUE;
//......................................
//Edit2
Edit2 := TEdit.Create(Result);
Edit2.Parent := GroupBox1;
Edit2.Left := 8;
Edit2.Top := 16;
Edit2.Width := 25;
Edit2.Height := 24;
Edit2.Visible := TRUE;
Edit2.Tag := 0;
Edit2.Enabled := TRUE;
Edit2.Hint := '';
Edit2.ShowHint := TRUE;
Edit2.Text := '00';
Edit2.Font.Name := 'Tahoma';
Edit2.Font.Size := 13;
Edit2.Font.Color := clWindowText;
Edit2.Color := clWindow;
Edit2.TabOrder := 1;
Edit2.TabStop := TRUE;
Edit2.ReadOnly := FALSE;
Edit2.MaxLength := 0;
Edit2.AutoSize := TRUE;
//......................................
//Edit3
Edit3 := TEdit.Create(Result);
Edit3.Parent := GroupBox1;
Edit3.Left := 40;
Edit3.Top := 16;
Edit3.Width := 25;
Edit3.Height := 24;
Edit3.Visible := TRUE;
Edit3.Tag := 0;
Edit3.Enabled := TRUE;
Edit3.Hint := '';
Edit3.ShowHint := TRUE;
Edit3.Text := '00';
Edit3.Font.Name := 'Tahoma';
Edit3.Font.Size := 13;
Edit3.Font.Color := clWindowText;
Edit3.Color := clWindow;
Edit3.TabOrder := 1;
Edit3.TabStop := TRUE;
Edit3.ReadOnly := FALSE;
Edit3.MaxLength := 0;
Edit3.AutoSize := TRUE;
//......................................
//GroupBox2
GroupBox2 := TGroupBox.Create(Result);
GroupBox2.Parent := Result;
GroupBox2.Left := 112;
GroupBox2.Top := 0;
GroupBox2.Width := 97;
GroupBox2.Height := 49;
GroupBox2.Visible := TRUE;
GroupBox2.Tag := 0;
GroupBox2.Enabled := TRUE;
GroupBox2.Hint := '';
GroupBox2.ShowHint := FALSE;
GroupBox2.Caption := 'Интервал';
GroupBox2.Align := alNone;
GroupBox2.Color := clBtnFace;
GroupBox2.Font.Name := 'Tahoma';
GroupBox2.Font.Size := 8;
GroupBox2.Font.Color := clWindowText;
GroupBox2.Font.CharSet := 1;
GroupBox2.TabOrder := 4;
GroupBox2.TabStop := FALSE;
//......................................
//Label5
Label5 := TLabel.Create(Result);
Label5.Parent := GroupBox2;
Label5.Left := 64;
Label5.Top := 24;
Label5.Width := 26;
Label5.Height := 16;
Label5.Visible := TRUE;
Label5.Tag := 0;
Label5.Enabled := TRUE;
Label5.Hint := '';
Label5.ShowHint := FALSE;
Label5.Caption := '(мс)';
Label5.Transparent := TRUE;
Label5.WordWrap := FALSE;
Label5.Alignment := taLeftJustify;
Label5.Layout := tlTop;
Label5.AutoSize := TRUE;
Label5.Align := alNone;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Size := 13;
Label5.Font.Color := clWindowText;
Label5.Color := clBtnFace;
//......................................
//Edit1
Edit1 := TEdit.Create(Result);
Edit1.Parent := GroupBox2;
Edit1.Left := 8;
Edit1.Top := 16;
Edit1.Width := 49;
Edit1.Height := 24;
Edit1.Visible := TRUE;
Edit1.Tag := 0;
Edit1.Enabled := TRUE;
Edit1.Hint := '';
Edit1.ShowHint := TRUE;
Edit1.Text := '300';
Edit1.Font.Name := 'Tahoma';
Edit1.Font.Size := 13;
Edit1.Font.Color := clWindowText;
Edit1.Color := clWindow;
Edit1.TabOrder := 0;
Edit1.TabStop := TRUE;
Edit1.ReadOnly := FALSE;
Edit1.MaxLength := 0;
Edit1.AutoSize := TRUE;
//......................................
Result.Show;
SendMsg('Авто манор запущен.');
end;
//************************************************** ************
//по активации 1-го таймера присваиваю дату заголовку, обновляя её
procedure Onaction;
begin
FormMain.Caption := TimeToStr(Time);
end;
//Устанавливаем условное время во всех Edit
procedure EditPaste;
begin
//t:=TimeToStr(time); // дата в строку
t:=FormatDateTime('hh:nn:ss', Time());
edit2.Text:=copy(t,1,2); //считываю часы
edit3.Text:=copy(t,4,2); //минуты
edit4.Text:=copy(t,7,2); //секунды
end;
//отправка пакетов по введённому времени
procedure fromEdit;
begin
//priv:='Привет';//условная константа для проверки работы
h:=Edit2.Text; //Часы
m:=Edit3.Text; //минуты
s:=Edit4.Text; //секунды
Timer2.Interval:=StrToInt(Edit1.Text);
r:=h+':'+m+':'+s; // результат ввода времени отправки
if TimeToStr(time)>=r then
begin // отправка манора
Memo1.Lines.Add('Отправляю пакет.');
buf := PaketManora;
SendToServer;
end;
end;
procedure ClearButom1Click;
begin
Memo1.lines.Clear;
end;
//тесовая отправка 1го пакета
procedure Buttom1Click;
begin
buf := PaketManora;
SendToServer;
Memo1.Lines.Add('Тестовый пакет отправлен.')
end;
// активность таймера устанавливаем проверкой значения чекбокса
procedure CheckBox1_Click;
begin
if CheckBox1.Checked then
begin
Timer2.Enabled:=True;
GroupBox1.Enabled:=False;
edit2.Enabled:=False;
edit2.Enabled:=False;
edit3.Enabled:=False;
edit4.Enabled:=False;
end
else
begin
Timer2.Enabled:=True;
edit2.Enabled:=True;
edit2.Enabled:=True;
edit3.Enabled:=True;
edit4.Enabled:=True;
edit1.Enabled:=True;
Timer2.Enabled:=False;
end;
end;
//************************************************** *************************
//освобождаем память
procedure Free;
begin
Free_FormMain;
Timer1.OnTimer:=nil;
Timer2.OnTimer:=nil;
SendMsg('Авто манор выключен.');
end;
procedure Free_FormMain;
//Освобождаем ресурсы ...
begin
TRY
if FormMain<>NIL then
begin
FormMain.Free;
FormMain:=NIL;
end;
FINALLY
END;
END;
//************************************************** *********************************
// Работа с пакетами
begin
//если перехвачен пакет на сдачу манора то D0=MultiSellList_:-(Script) 09=AttackinCoolTime 00=KeyInit:c(01)q(Key)d(d)
if FromClient and (pck[1]=#$D0) and (pck[2]=#$02) and (pck[3]=#$00) then
begin
//запоминаем его полностью
PaketManora:=pck;
SendMsg('Пакет манора перехвачен.');
Memo1.Lines.Add('Пакет манора перехвачен');
CheckBox1.Enabled:=True;
Buttom1.Enabled:=True;
CheckBox1.Color := clGreen;
end;
end.
http://pic.ipicture.ru/uploads/090502/a6usykN2Mi.jpg
А вроде была тема, что нельзя настраивать манор раньше времени... то есть не получится перехватить пакет манора. Или это скрипт для других серверов кроме шока?
StekloReZ
03.05.2009, 12:41
Что-то читал про шоки, но там, если не ошибаюсь, так:
-вся настройка и продажа семян происходит после шестой минуты и за пару секунд,
иначе прокукуешь, сдадут другие. Там нужен скрипт с автовыбором городоа/цены/количества.
У меня же как и на многих серверах.
Ровно 22-00 у манорменеждера появляется выбор семян. В 22-06 сдача.
В этом интервале есть возможнасть настроить семяна как хочешь и в клиенте нажать кнопку "Продажа". Сервер сообщит, что "рано сдаёшь", но пакет уже будет схвачен.
Это Старый скрипт, поможет только тем у кого отключили оповещения о олимпиадах или перенесли их раньше на хз сколько часов раньше.
на шоках этот скрипт бесполезен, тоько если ты сможеш зделать пакет который уже по ранее заплпнированому плану будет здавать куда тебе надо и воткнёш его в место где он ловит пакет от сервера, хотя его можно наверно в посылку послать и попробовать типо как отслеживаемый пакет, вообщем нужен другой подход..)
//на основе скрипта:
{
by VORON
//СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА
а скрипт под какой клиент?
StekloReZ
04.05.2009, 12:20
TAMBIK, Внимательно прочти пост со скриптом.
(...с простой формой. Для грации.)
TAMBIK, Внимательно прочти пост со скриптом.
(...с простой формой. Для грации.)
сори я скрипт глянул в нем нет инфы а шапку поста непрочел
а нельзя в этот скрипт добавить чтоб он он сохранял пакет здачи. Ну к примеру сегодня я запустил его и ручками выбрал здать воп в гиран, (на шоке) соотвтственно я либо успел здать либо нет. но этот пакет на сегодня уже бесполезен. Но если его сохранить, а на след день воткнуть, то это уже результат, а если есчё на след день я ручками набрал здать энрию в аден и сохранил есчё один пакет, потом их обьединил - это есчё лучший результат..)
Вот мысль у меня такая по выше сказнному, если я так зделаю он его сам в памяти держит, уже конечно семена все сменяли, но пакет сохранился, значит если мы выставим время нажмём отсылать, значит он всёравно будет спамить серв и мы можем этот пакет просмотреть сами через прогу.
Значит на след день как мне его использовать, так как я писал в предидущем посте? Скажите я в верном направлении двигаюсь?
StekloReZ
04.05.2009, 15:05
lamer, Ты уже почти в каждой теме про манор пишешь. Лучше берись писать скрипты. Только методом проб и ошибок поймёшь в каком направлении двигаться.
А такими темпами все результаты движения стремятся к нулю.
http://coderx.ru/showthread.php?t=1565&highlight=%EC%E0%ED%EE%F0
Тут человек намерен писать именно тот скрипт, что нужен тебе.
А то, что ты предложил тут - от части пляски с бубном.
пока я его напишу, однако пенсионером стану. Нужны хоть какието навыки програмирования, чего у меня нету..
StekloReZ
04.05.2009, 20:19
пока я его напишу, однако пенсионером стану. Нужны хоть какието навыки програмирования, чего у меня нету..
Забаньте меня, если я неправ:pardon:
Учить нет времени? А Поиграть хочется)))
Тогда лучше :o. Для того, чтобы что-то сделать, нужно сделать хоть что-нибуть.
Бери книгу "Библия Delphi" и учи... Уже на середине книги, ты будешь понимать большую половину из всего, что пишется в скриптах. Может тогда тебе и станут помогать, когда сам начнёшь двигаться, а не создавать имитацию движняка.
Я сам не шар напрочь, однако меня такое положение не устраивает, поэтому учусь и пробую.
Если тебе что-то непонятно в этом или любом другом скрипте, спрашивай ради бога, в противном случае Хватит засорять тему.
//alexteam: эх... как програмер... сравнительно опытный.. и тоже когдато начинавший - скажу.
главное захотеть, главное чтобы была конкретная задача и был инструмент которым можно бы было ее решить.
и самое главное, начать. а дальше, как только будет получаться хоть чтото - будет и интерес, и немного азарта, и опыт, и вагон умения. ибо сделанное своими руками - это сделаное своими руками.
а по поводу банов - у отписавшегося чуть повыше шансов его схватить намнооого больше ;)
//Grinch ну имхо захотеть надо сильно :) и склад мозгов своеобразный должен быть, что мне и не хватает, но и я писал скрипты(правда их как правило квак в человеческий вид приводил, но и мои варианты работали.)
ребят сори за оффтоп.. кто любит в кодить глянте http://coderx.ru/showthread.php?p=29268#post29268
ты не прав, то что сумон атакует цель которая находится в таргете хозяина это все работа клиента, а пакет атаки сумона прост - тупо ИД таргета и его координаты, и пофиг где хозяин. А ид моба и его координаты мы берем от коммандира.
Я со своим скриптом уводил на кач сумона за пол карты от его хозяина
а моно скрипт. Спасибо !
StekloReZ
15.05.2009, 20:04
:rtfm: Внимание, скрипт написан под Клиент/Сервер - GraciaPartII/Interlude.
В остальном всё предельно понятно.
Благодарю NLObP за корректировку скрипта.
// Авто HoMjaC (Hp/Mp/CP) - глыколка банок и Эликсиров by StekloReZ (RC 5 - 10 янв 2010)
// для версии l2phx.3.4.1.83 и ниже
// Скрипт тестировался на Аббисе. Клиент/Сервер - GraciaPartII/Interlude
// для использования на других серверах, необходимо поправить пакеты
// ЕСТЬ УДОБНАЯ ФОРМА, к этому вобщем и стремился
//Потребление банок из расчёта % от Максимального количества Статов (14 секунд интервал)
//Потребление Эликсиров из расчёта прохождения порогового значения. Указывается в единицах (5 минут интервал)
//Оповещает в чат о оставшемя количестве банок. ((200,100,50,10,1 )штук)
//Последюю банку не пьёт, дабы не нарушить работу скрипта при пополнении рюкзака вещами. Это нормально, Мне так удобно.
// ....и всякие неустранённые глюки > мало программирую, мало тестю.
//15.05.09 - исправил использование эликсиров MP )
//Всем удачного юзанья
//by NLObP 15.05.2009
//Форматирование текста
//Мелкие правки кода
//Проверяем наличие эликсиров и банок, если их нет, то их использование не включается
//04.06.2009 Поправил работу скрипта.
// Добавил выбор чара из выпадающего списка. прописывать ники в скрипте теперь не нужно.
//10 янв 2010 Всё, элики работаю как надо)
{ Использование.
Закупиться банками, Эликсирами.
В выпадающем списке ткнуть на ник своего персоонажа, после чего приходит информация о б инвентаре персоонажа.
Теперь можно ставить нужные глки.
}
а моно скрипт. Спасибо !
давно это было, уже не найду скрипт....
да эт скрипт из 3х - 4х строчек - вытаскиваешь из пакета Action коммандира, ид его таргета и координаты, и посылаешь пакет атаки суммона с этим ид и координатами вторым чаром - весь алгоритм
выкладываю более менее универсальный скрипт на баферов.. у вас ШЕ ПП БИШ ЕЕ?.........
var
Bot1X,Bot1Y,Bot1Z,Bot2X,Bot2Y,Bot2Z,Bot3X,Bot3Y,Bo t3Z,Bot4X,Bot4Y,Bot4Z:string; //координаты баферов
IDAssistTarget:string; //таргет командира
rnd:integer; // вспомогательная для случайного события
bafSE: array [1..100] of string; //список бафов ШЕ
bafPP: array [1..100] of string; //список бафов ПП
bafEE: array [1..100] of string; //список бафов ЕЕ
.............
end.
Собственно вопрос в теме...
Хроники С4, машина - dual core, 2Гб оперы, качество - на 50%, l2phx3.5.11.118
При включенном скрипте в ТоИ конкретные тормоза, на открытых полянах - все ок (а-ля VoS). Пробовал уменьшать скрипт, понижать приоритет окон (всего открыто 3 окна), обрубать ненужные сервисы в твикере - один фиг играть нереал, т.к. тормозит нещадно.
Это особенность локации или l2phx? Как нибудь исправить траблу можно?
P.S. ведение логов отключено, антивири отключены
апну темку - вопрос так и не решился...
одну ине из идей подали, что такое может происходить из за рассогласования каких то там счетчиков тактов в ядрах. Проверить не могу, так как однопроцессорного компа не могу найти у друзей, а самому покупать ради проверки - сами понимаете влом. Типа такая трабла лечится патчами на проц, вот тока где их взять??!
i-bell, это скрипт, а не программа и он выполняется не очень быстро. В ТОИ помню с клиента прийдешь и он тупит подолгу пока все прорисует и обсчитает.
Попробуй в массивах поменьше граничные значения сделать (не 100, а 50 или сколько реально надо), чем мешьше, тем быстрее скрипт работать будет
bafSE: array [1..100] of string; //список бафов ШЕ
bafPP: array [1..100] of string; //список бафов ПП
bafEE: array [1..100] of string; //список бафов ЕЕ
BafSEApplyChar: array [1..100] of string; //указывает ИД чара на которого нужно наложить баф с помощью ШЕ
BafSEApplyBaf: array [1..100] of string; //указывает какой баф наложить на чара с помощью ШЕ
BafPPApplyChar: array [1..100] of string; //указывает ИД чара на которого нужно наложить баф с помощью ПП
BafPPApplyBaf: array [1..100] of string; //указывает какой баф наложить на чара с помощью ПП
BafEEApplyChar: array [1..100] of string; //указывает ИД чара на которого нужно наложить баф с помощью ЕЕ
BafEEApplyBaf: array [1..100] of string; //указывает какой баф наложить на чара с помощью ЕЕ
Попробовал - немного помогло... В качестве эксперимента вообще отключил автопати, мультибаф - помогло значительно. Так что для таких трудных локаций оставил только лек, залив мп и автобег за командиром.
Возник еще один вопрос: можно ли выключить в л2пх прием определенных пакетов? То есть как я понимаю любой входящий и исходящий пакет прогоняется через условия скрипта, а в сильно загруженных локациях проходит куча пакетов, которые мне не нужны - ну, к примеру, все перемещения мобов, чат и т.п.
Можно ли как то ограничить число пакетов, проходящих через скрипт? Кажется, это существенно ускорит работу
alexteam
15.06.2009, 17:20
к примеру, все перемещения мобов, чат и т.п.
в скрипте есть место которое "следит" за этими перемещениями ?.
не, нету...
и таких "ненужных" пакетов получается большинство ( и каждый проходит через условия скрипта
alexteam
15.06.2009, 17:47
if fromserver and (pck[1] in [#$01, #$02, и остальной мусор.]) then exit;
в самое начало тела скрипта. избавит от необходимости проходить кейс условия для заведомо ненужных типов пакетов от сервера.
зы.
имхо - бред.
хотите быстродействие - реализуйте все это плагинами.
может тогда проще перечислить пакеты, которые можно обрабатывать? их же меньшинство...
то что бред - полностью согласен с Вами, но у меня нет (пока что) необходимых навыков для реализации такой возможности. Попробую пока таким "кривым" способом
if fromserver and (pck[1] in [#$01, #$02, и остальной мусор.]) then exit;
большое спасибо: помогло, причем очень сильно )
на первое время сойдет...
gtynfujy924
18.06.2009, 16:07
Привет! Выручите пож, уже облазил весь инет так и не нашел скрипта для L2phx что бы бот спойлил и манорил вместе, мне даже главное что бы семя всадил в моба, не обязательно Харвестер делать.. ищу уже два дня никак найти не могу нормального скриптика для Интерлюд, а написать или поправить скрипт ума не приложу..скрипт на спойл есть, а вот как вбить туда еще и манор..
дык спойл/свип по алгоритму не будет отличаться от манор/харвест...
просто в существующем скрипте (на спойл) замени пакет спойла пакетом манора, а пакет свипа - пакетом использования харвестера.
и не забудь проконтролировать очередность свипа и харвестера: там в обязательном порядке одно действие на первом месте идет, а другое - на втором.
gtynfujy924
18.06.2009, 18:38
я вот так сделал, но оно токо спойл кидает (очень редко), свип не делает, семку не вбивает...
procedure PhisicalAttack; // команда атаки
var
ppp1: integer;
begin
buf:=#$04; //action
WriteD(TargetID);
WriteD(MyX);
WriteD(MyY);
WriteD(MyZ);
WriteC(0);
SendToServerEx(NickName);
if ppp1 = targetid then begin
ppp1:= targetid
end
else
begin
buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
buf:=HStr('2F FE 00 00 00 00 00 00 00 00 '); //spoil
SendToServerEx(NickName);
End;
ppp1:= targetid
end;
procedure InitPickUpMode(mode: boolean);
begin
if mode then
begin
PickUpMode:= true;
TimerCombat.enabled:= false;
TimerPickUp.enabled:= true;
end
else
begin
PickUpMode:= false;
TimerCombat.enabled:= true;
TimerPickUp.enabled:= false;
end;
end;
а при таком расскладе семку забивает в моба..очень редко, но нужен и спойл..; как сделать что бы бот постоянно кидал спойл или манор? на каждого моба, а не через пару раз?
(извините, мож там ниче, но я не разбираюсь ни грама в скриптах, такого уже напутал.. что...)
procedure PhisicalAttack; // команда атаки
var
ppp1: integer;
begin
buf:=#$04; //action
WriteD(TargetID);
WriteD(MyX);
WriteD(MyY);
WriteD(MyZ);
WriteC(0);
SendToServerEx(NickName);
if ppp1 = targetid then begin
ppp1:= targetid
end
else
begin
buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
SendToServerEx(NickName);
End;
ppp1:= targetid
end;
procedure InitPickUpMode(mode: boolean);
begin
if mode then
begin
PickUpMode:= true;
TimerCombat.enabled:= false;
TimerPickUp.enabled:= true;
end
else
begin
PickUpMode:= false;
TimerCombat.enabled:= true;
TimerPickUp.enabled:= false;
end;
end;
buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
buf:=HStr('2F FE 00 00 00 00 00 00 00 00 '); //spoil
SendToServerEx(NickName);
ошибка надо так
buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
SendToServerEx(NickName);//Сюда, возможно, надо задержку
buf:=HStr('2F FE 00 00 00 00 00 00 00 00 '); //spoil
SendToServerEx(NickName);
Я вроде делал на спойл? пакеты там замени
Doberman
30.06.2009, 06:17
Люди у мну вопрос такой(заранее говорю тему всю не перечитывал мож он и ужэ звучал,тогда извиняйте) :
Где в скрипте на мулити титул изменить врямя смены?,чтоб бегущей строкой шол нормально,а то еле ползёт((
Менял тут :
//таймер
Timer := TTimer.Create(Main);
Timer.Interval := 1050;
Timer.Enabled := False;
Timer.onTimer := @TimerTimer;
Button := TButton.Create(Main);
Button.Parent := Main;
Button.Caption := 'Старт';
Button.Left := 10;
Button.Top := 10;
Button.onClick := @ButtonClick;
но нечего неизменилось
Кто подскажет?
Timer.Interval := 1050;
Да, время здесь меняется. 1 сек = 1000.
Doberman
01.07.2009, 05:36
Да, время здесь меняется. 1 сек = 1000.
Хм... менял,чтот неособо разницу почуствовал,сейчас есщё попробую
Добавлено через 42 минуты
Некатит,скорость увеличиваеш он один раз прокручивается и встаёт(
Liiion911
03.07.2009, 02:07
Небольшой вопрос:
Можно ли написать кусочек кода для поднятий Herb's на хп или ману.
Если это уже реализовано, былобы неплохо ссылку...
Если же нет, каму не сложно, плиз ;)
Вернемся у первому посту)))) у меня не хочет моба в базу добавлять, вообще) все остальные действия работают, а добавление мобов заканчивается на фразе в чата "Доьавляем моба 1" и все)) если есть соображения то плиз, в ручную прямо в скрипт впихнуть Имена мобов так и не придумал как(
Сори но больше 3к символов незя) так что залил на дамп (http://dump.ru/file/3115933)
Соро будет бот Спойлер Ждите) :p
nezabudkin
24.09.2009, 02:48
Вернемся у первому посту)))) у меня не хочет моба в базу добавлять, вообще) все остальные действия работают, а добавление мобов заканчивается на фразе в чата "Доьавляем моба 1" и все))
Блин, пишите хоть про какой скрипт спрашиваете.
Но в твоем случае, чтобы моб добавился, его надо замочить (убить, грохнуть, прикончить :)
Вот вам ботик на спойл и свип делает все автоматом но у меня лагает чуть.
Качайте 2 версию ниже постом
Вот споил тока запись мобов идет че то туго а так когда идет запуск то ппц норма все спойлит и свипит :cool:
Посмотрите если че увидите пишите. Лучше сначало запустить бот потом заходить в игру.
Liiion911
24.09.2009, 20:09
Для какой версии сервера ? финал пойдет ?
На с4 и С6
Моно будет переделать на массовый спойл тока лагать чуть будет
Добавлено через 20 минут
Народ помогите все ID семян собрать плиз на бота манорчика нуно на С4.
ramblik,
открой itemname-e в папке систем и смотри
Liiion911
24.09.2009, 21:01
мож глянуть под финалку, там который теоретически под руофф Lokomotiv пашет на всех сервах с финалкой ))) можно ему привернуть спойл и тогда былобы вообще супер...
ramblik,
открой itemname-e в папке систем и смотри
в том то и дело что нету уже все обыскал
ramblik, полное имя файла itemname-e.dat
мож глянуть под финалку, там который теоретически под руофф Lokomotiv пашет на всех сервах с финалкой ))) можно ему привернуть спойл и тогда былобы вообще супер...
да поменя пакеты на скилы в константах b1 - это спойл b2 sweep
И бот готов на финал..
Liiion911
24.09.2009, 21:07
он сказал что в файле этом не нашел семечки...
все нашел) я просто др ID искал там его не было)
Добавлено через 48 секунд
ждите будет бот манор + спойл)
nezabudkin
25.09.2009, 01:29
Вот споил тока запись мобов идет че то туго а так когда идет запуск то ппц норма все спойлит и свипит
Посмотрите если че увидите пишите
ramblik, тебе некто не говорил, что когда выкладываешь чужое, ссылочку на автора желательно указывать? А так-же указать чего там наменял? Короче, данная модификация скрипта, теоретически, палится сервером. Ты каждый раз в догонку к пакету Action посылаешь Spoil, через клиент такое повторить невозможно!
Споил лучше делать 1 раз, и только убедишись, что цель проспойлена, потом делать свип. Некто не говорит, что это просто, но посмотри как это делает, например волкер, или как ты сам через клиент это делаешь!
ramblik, тебе некто не говорил, что когда выкладываешь чужое, ссылочку на автора желательно указывать? А так-же указать чего там наменял? Короче, данная модификация скрипта, теоретически, палится сервером. Ты каждый раз в догонку к пакету Action посылаешь Spoil, через клиент такое повторить невозможно!
Споил лучше делать 1 раз, и только убедишись, что цель проспойлена, потом делать свип. Некто не говорит, что это просто, но посмотри как это делает, например волкер, или как ты сам через клиент это делаешь!
Если ты не заметил то спойл 1 раз и делаеться. И проверяет прошел ли спойл комменты там есть. А автор подразумеваеться по Локомотивом. У меня работает норм уже неделю тестил его и нету бана. А то что спойл идет после актион я сам так во время боя нажимаю атаку потом спойл, если сделать наоборот то так иногда выходит цель слишком далеко или пакет спойл сбиваеться атакой и спойл не осуществляеться и будет посылаться заново спойл во время боя что даст мобу тебя во время каста нормально снести хп.
Не надо делать замечания сначало разбери весь алгоритм и потом тока пиши что либо.
alexteam
25.09.2009, 14:40
пакет акшина и сразу за ним пакет спойла - не может такого клиент.
пакет акшина и сразу за ним пакет спойла - не может такого клиент.
Ра зне может так сделаю что бы поумнее был :mad:
alexteam
25.09.2009, 15:19
чтоб поумнее... после смены своего таргета при условии что таргет - моб вызывай хоть дюжину спойлов.
ну это уже надо работать с id мобов есть даже уже мысль как это сделать
Добавлено через 1 минуту
чтоб поумнее... после смены своего таргета при условии что таргет - моб вызывай хоть дюжину спойлов.
Ну МП то не козенное тоже умеет кончаться....
nezabudkin
25.09.2009, 15:27
сначало разбери весь алгоритм и потом тока пиши что либо
Порадовало :)
смотри тему: http://coderx.ru/showthread.php?t=334
Порадовало :)
смотри тему: http://coderx.ru/showthread.php?t=334
и что там надо увидеть :p
alexteam
25.09.2009, 15:33
по поводу мп, у меня лично база скилов ведеться. есть такой показатель как минимально допустимое мп для юза скила.
изначально равное 0.
при сис сообщении "недостаточно мп" оно устанавливаеться в значение равное текущему мп.
по поводу мп, у меня лично база скилов ведеться. есть такой показатель как минимально допустимое мп для юза скила.
изначально равное 0.
при сис сообщении "недостаточно мп" оно устанавливаеться в значение равное текущему мп.
ну ты слил все мп на 2-5 мобов и дальше бегаешь без спойла и смысл бота спойла тогда?
alexteam
25.09.2009, 15:58
ну.. мой еще на респоинт бежит(если он задан).. садится и отдыхает там. или шлепаеццо прям на месте если до рестпоинта не добежать.
ну.. мой еще на респоинт бежит(если он задан).. садится и отдыхает там. или шлепаеццо прям на месте если до рестпоинта не добежать.
от этого кач будет долгий.
alexteam
25.09.2009, 16:33
респ агра возле сидящего гнома явно ускорит кач -)
Кто что предложит изменить пишите.
Бот при уровне заданном вами ХП садится и накапливает ХП до заданных вами в настройке. Спойлит с здержкой после команды атака. При аграх лучше не кач так как он не отреагировает на атаку моба =)
как я понял то пакет на манор меняеться каждый раз при в ходе в игру?
- работает под С4 и С6
- ТЕПЕРЬ Спойлит Свипает
- ИЗМЕНЕНО теперь вместо питья банок садиться при заданном уровне хп, и ждет пока набереться 100% хп как тока набрал то продолжает бить мобов
- Подправлено если вы сидите и на вас напал агр то бот в ответ бьет его
- Подправлено спойл кидаеться пока не пройдет с ожиданием.
- Подправлено свипится если спойл прошел а не каждый раз
nezabudkin
26.09.2009, 00:30
Спойлит с здержкой
оператор delay в скриптах использовать не рекомендуется!
оператор delay в скриптах использовать не рекомендуется!
А чем это повредит?
Liiion911
26.09.2009, 01:34
ну помоему делай задержка работы скрипта или отправки пакета, кароче подвешиваешь "пакетхак" ) я прав ?
Ну а так вроде бот норм работает?
nezabudkin
26.09.2009, 15:09
Обсуждалось это очень давно, delay подвешивает работу всего пакетхака на время задержки. Ничего страшного не происходит пока у нас открыто только одно окно, а если хотя бы 2 таких вот бота запустить? Думаю, результат будет неудовлетворительным.
Обсуждалось это очень давно, delay подвешивает работу всего пакетхака на время задержки. Ничего страшного не происходит пока у нас открыто только одно окно, а если хотя бы 2 таких вот бота запустить? Думаю, результат будет неудовлетворительным.
Ну это я уже подправил ничего. Выложу чуть позже. вроде как тестил ставил на всю ночь др версия норм работает.
Все от делай избавился работает как часики свипит если моб синим горит Спойлит пока моб живой до тех пор пока не пройдет.
Пользуйтесь и говорим СПС Алексу и конечно же мне :D
Нашел ошибки не всегда успевает забрать дроп. Не садиться или встает.. Буду работать над этим :o
Мужики))) подскажите пожалуйста, 9 часов сижу немогу сделать скрипт))
кароче, нужно взять id шмотки из пакета который идет когда я беру ее в руки ( 03 BA 62 12 40 00 00 00 00 ) а потом засунуть его в пакет на выбор пушки (при заточке) - ( CA 4C 00 xx xx xx xx ). всяко разно пробовал, и read и write, и складывал, не проходит и все. суть в том что можно купить только 1 пушку, в чем вся и запара, причем она придуманая админом так что хз где брать ее ид. сервер грация финал и там каждый раз при новой покупке ид меняется. подскажите пожалуйста кто знает как эти фиговы байты засунуть друг в друга
alexteam
08.10.2009, 11:57
readd, writed / readmask, writemask
а потом засунуть его в пакет
на выбор пушки (при заточке) - ( CA ?????? 4C 00 xx xx xx xx ).
никак не могу запустить скрипт на заточку...Помоги пожалуйста.
логи:24.09.2009 02:25:05 Стартует L2ph v3.5.24.142
24.09.2009 02:25:05 На 7788 зарегистрирован локальный сервер
24.09.2009 02:30:37 Библиотека C:\Documents and Settings\Администратор\Рабочий стол\l2phx\newxor.dll отсутствует или заблокирована другим приложением
24.09.2009 02:30:38 Библиотека C:\Documents and Settings\Администратор\Рабочий стол\l2phx\newxor.dll отсутствует или заблокирована другим приложением
24.09.2009 02:30:38 Библиотека C:\Documents and Settings\Администратор\Рабочий стол\l2phx\newxor.dll отсутствует или заблокирована другим приложением
24.09.2009 02:30:39 Библиотека C:\Documents and Settings\Администратор\Рабочий стол\l2phx\newxor.dll отсутствует или заблокирована другим приложением
24.09.2009 02:30:43 Успешно загрузили C:\Documents and Settings\Администратор\Рабочий стол\l2phx\inject.dll
24.09.2009 02:30:54 Надёжно пропатчен новый клиент l2.exe (4192)
24.09.2009 02:32:05 LSP успешно зарегистрирован.
24.09.2009 02:38:33 LSP модуль зарегистрирован в системе
24.09.2009 02:38:33 LSP module was unregistered
24.09.2009 02:38:35 LSP успешно зарегистрирован.
Скрипт:
const
nik='BeHappy';
Enchant=13;
var
UseItem, EnchantItem: string;
Count, CurrentEnch: integer;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=500;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=UseItem;
SendToServerEx(nik);
buf:=EnchantItem;
SendToServerEx(nik);
end;
procedure Free;
begin
Timer01.free;
count:=0;
CurrentEnch:=0;
end;
begin
if FromServer and (pck[1]=#$87) then
begin
CurrentEnch:=ReadD(2);
if CurrentEnch=Enchant then Timer01.enabled:=false;
end;
if FromClient and (pck[1]=#$19) then UseItem:=pck;
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
if FromClient and (pck=#$34#$02#$00#$00#$00) then
begin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.
затачиваю вещь и скрипт не активируется... спасибо за внимания, заранее благодарен
Toska,
ты в игру заходишь с L2ph
нормально ? ник в проге отображается ?
и просто неработает скрипт ?
тогда те сюда прочитать
http://coderx.ru/showthread.php?t=1684
Ребят помогите со скриптом, скиньте скрипт кооторый может сам закупать заточки\оружия при необходимости ... пож-та буду очень благодарен
tiranosaur
05.02.2010, 12:17
бот локомотив проверка TypeID моба
function proverka : boolean;
var i:integer;
begin
for i:=1 to MobsLastIndex do
begin
result:=false;
if (TargetID = MobsObjID[i]) and NpcTypeID1=MobsNpcTypeID[i] then result:=true;
end;
end;
в локомотиве изменил только это. где я не прав?
либо как узнать typeID цели?
alexteam
05.02.2010, 12:35
if (TargetID = MobsObjID[i]) and (NpcTypeID1=MobsNpcTypeID[i]) then
begin
result:=true;
break;
end;
tiranosaur
05.02.2010, 15:44
вставил проверку спойла
if TargetID > 0 then // если в прицеле есть моб, то
begin // валим вражину
if ((AttackCycle mod 5) = 0) then
begin
if Spoil and (not Spoiled) and (MobsNpcTypeID=1021173) then RequestMagicSkillUse(254) // заспойлим моба если опция включена
else PhisicalAttack;
end;
выдает ошибку: Variant of safe array index out of bounds
оТДЕЛЬНОЙ ПРОЦЕДУРОЙ ТА ЖЕ ФИГНЯ((( помогите пжл
[I]Добавлено через 1 час 32 минуты
УРААААААААААААА ПОЛУЧИЛОСЬ!!!!!!!!!!!!!!!!! вот кусок:
function proverka : boolean; // функция проверяет, атакует ли меня кто-нибудь или нет
var
i: integer;
begin
for i:=1 to MobsLastIndex do
if (TargetID = MobsObjID[i]) and (MobsNpcTypeID[i]=1021173) then // ищем первого попавшегося моба, который нас атакует
begin
result:= true; // возвращаем его индекс по БД
break;
end else result:=false;
end;
procedure OnTimerCombat (Sender: TObject); // боевой таймер, вся логика поведения бота находится именно здесь!!!
var
Agro, MinDistID, i: integer;
begin
if TargetID > 0 then // если в прицеле есть моб, то
begin // валим вражину
if ((AttackCycle mod 5) = 0) then
begin
if Spoil and (not Spoiled) and proverka then RequestMagicSkillUse(254) // заспойлим моба если опция включена
else PhisicalAttack;
помогите пожалуста реализовать скрипт который будет блочить пакет от сервера спаунитем и дропитем адены/костей/стрел и тд.
нужно для того чтобы не лагал клиент, когда кто-то спамит этими итемами.
в скриптинге не силен написал пока для адены вот такой скрипт, но мне кажется он не очень правильный, и хотя работает, но очень криво
begin
if fromserver and (pck[1]=#$16) then
begin if fromserver and (pck[10]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
if fromserver and (pck[1]=#$05) then
begin if fromserver and (pck[6]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
end.
через пару минут работы скрипта, пакетхак выдает list index of bounds.
tiranosaur
08.02.2010, 00:12
Дык если убьешь эти пакеты дроп не видно будет. Кстати это ошибка вроде не из-за этого.
Дык если убьешь эти пакеты дроп не видно будет. Кстати это ошибка вроде не из-за этого.
в этом то и идея, у нас на серве локации закидывают аденой, так что в лаге можно простоять до рестарта.
tiranosaur
08.02.2010, 00:18
))) отключи клиент и будет тебе щастье))) щас подправлю. сек
вот так тоже можно или нет, правда я непонимаю что дает case pck of #$xx ?
begin
if fromserver and (pck[1]=#$05) then
begin
case pck[6] of #$39 : pck:='';
end;
end;
end.
tiranosaur
08.02.2010, 00:30
посмотри итем ид костей и адены и какие хроны
адена - 57
кости - 2508
камаель хелбаунд.
можешь сделать по типу шаблона, чтоб можно было просто ид подставлять?
tiranosaur
08.02.2010, 00:40
Пробуй, только отпишись! я сам нубась в это м деле
begin
if fromserver and (ConnectName='Здесь свое имя') then
begin
case pck[1] of
#$16 : if (ReadD(10)=57) or (ReadD(10)=2508) then
begin
pck:='';
end;
#$05 : if (ReadD(10)=57) or (ReadD(10)=2508) then
begin
pck:='';
end;
end;
end;
end.
xeno, попробуй вот так
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer then
begin
case pck[1] of
#$05: //пакет 05=SpawnItem
begin
case pck[10] of //по смещению 10 находится ItemID
17, 57, 1341..1345: pck:=''; //дропаем стрелы, адену, деревянные и т.д. стрелы
end;
end;
#$16: //пакет 16=DropItem
begin
case pck[6] of //по смещению 06 находится ItemID
17, 57, 1341..1345: pck:=''; //дропаем стрелы, адену, деревянные и т.д. стрелы
end;
end;
end;
end;
end.
tiranosaur
08.02.2010, 01:01
А мой не покатит?
А мой не покатит?
Будет работать. Только мой вариант, ИМХО, побыстрее. У тебя по два раза считывает из ячеек значение ItemID. Да и развить мой вариант по удалению других предметов проще.
tiranosaur,
NLObP,
спасибо ребят.
кстати разве в этой часте скрипта case pck[10] of
17, 57, 1341..1345: pck:='';
ид итемов надо прописывать не в хексе?
да точно
tiranosaur
08.02.2010, 17:39
Подскажите где ошибка пжл. сервер грация
const
NickName = '3ayp';
HPMedium = 95;
HPBottleID = 1061; //1061=Healing Potion;
DrinkDelay = 14;
InvRazmer = 79;
var
MyX, MyY,MyZ : integer;
MyID, MyHP, MyMaxHP: integer;
MyMP, MyMaxMP : integer;
HPlevelProcent : integer;
CurrentInvRazmer : integer;
TargetID : integer;
time1: integer;
Inventory: array[0..InvRazmer, 0..9] of integer;
HPBottleObjID: integer;
HpBottleCount: integer;
procedure Init; //Вызывается при включении скрипта
begin
MyID:= 0;
MyX:= 0;
MyY:= 0;
MyZ:= 0;
MyID:= 0;
MyHP:= 0;
MyMaxHP:= 0;
MyMP:= 0;
MyMaxMP:= 0;
TargetID:=0;
time1:=1;
buf:= #$14;
SendToServerEx(NickName);
end;
function Wait(var tick: integer;Timewait: Integer): Boolean; // сквозная проверка без остановки скрипта (c)dmitry501, modifed by Sh00rGo
var
t: integer;
begin
result:=false;
t:=Round(Time*86400);
if t>(tick+Timewait) then begin
if tick>0 then result:=true;
tick:=t;
end;
end;
procedure UseItemID(ItemID:integer); //Использовать предмет с заданным ItemID
var
ObjItemID : integer;
begin
ObjItemID:= GetInv(ItemID,2,1);
if ObjItemID = -1 then exit;
buf:=#$19;
WriteD(ObjItemID);
WriteD(0);
SendToServerEx(NickName);;
end;
procedure InventoryCreate;
var
i,k, offset : integer;
begin
offset:= 76 ;
CurrentInvRazmer:=ReadH(4);
for i:=0 to InvRazmer do
if i < CurrentInvRazmer then begin
Inventory[i,0]:=ReadH(i*(28+offset)+6); // itemType1
Inventory[i,1]:=ReadD(i*(28+offset)+8); // ObjectId
Inventory[i,2]:=ReadD(i*(28+offset)+12); // ItemID
Inventory[i,3]:=ReadD(i*(28+offset)+16); // count
Inventory[i,4]:=ReadH(i*(28+offset)+20); // itemType2
Inventory[i,5]:=ReadH(i*(28+offset)+22); // CustType1
Inventory[i,6]:=ReadH(i*(28+offset)+24); // isEquipped
Inventory[i,7]:=ReadD(i*(28+offset)+26); // BodyPart
Inventory[i,8]:=ReadH(i*(28+offset)+30); // EnchantLevel
Inventory[i,9]:=ReadH(i*(28+offset)+32); // CustType2
end else
for k:=0 to 9 do Inventory[i,k]:=0; // забиваем нулями
end;
procedure InventoryUpdate;
var
i,j,k, offset: integer;
begin
offset:= 82;
for j:=0 to (ReadH(2)-1) do
begin
case pck[j*offset+4] of
#$01: k:=0; // add item, запишет на пустую ячейку
#$02: k:=ReadD(j*offset+8); // mod item
#$03: begin // remove item, обнулит ячейки удаленного предмета
k:=ReadD(j*offset+8);
for i:=0 to InvRazmer do if (Inventory[i,1]=k) then
begin
for k:=0 to 9 do Inventory[i,k]:=0;
exit;
end;
end;
end;
for i:=0 to InvRazmer do if (Inventory[i,1]=k) then
begin
Inventory[i,0]:=ReadH(j*offset+6); // itemType1
Inventory[i,1]:=ReadD(j*offset+8); // ObjectId
Inventory[i,2]:=ReadD(j*offset+12); // ItemID
Inventory[i,3]:=ReadD(j*offset+20); // count
Inventory[i,4]:=ReadH(j*offset+24); // itemType2
Inventory[i,5]:=ReadH(j*offset+26); // CustType1
Inventory[i,6]:=ReadH(j*offset+28); // isEquipped
Inventory[i,7]:=ReadD(j*offset+30); // BodyPart
Inventory[i,8]:=ReadH(j*offset+34); // EnchantLevel
Inventory[i,9]:=ReadH(j*offset+36); // CustType2
break;
end;
end;
end;
tiranosaur
08.02.2010, 17:39
function GetInv(obj,up,down:integer): integer; // up и down не проверяются
var // 0-itemType1, 1-ObjectId, 2-ItemID, 3-count, 4-itemType2, 5-CustType1, 6-isEquipped, 7-BodyPart, 8-EnchantLevel, 9-CustType2
i: integer;
begin
for i:=0 to CurrentInvRazmer do if (Inventory[i,up]=obj) then
begin
Result:=Inventory[i,down];
exit;
end;
Result:=-1;
end;
procedure UseItemObjID(ItemObjID:integer); //Использовать предмет с заданным ItemID
begin
buf:=#$19;
WriteD(ItemObjID);
WriteD(0);
SendToServerEx(NickName);;
end;
procedure UserInfo; // обновление донных о себе
var
i:word;
begin
MyID:=ReadD(18);
MyX:=ReadD(2);
MyY:=ReadD(6);
MyZ:=ReadD(10);
i:=22;
ReadS(i);
i:=i+48;
MyMaxHP:=ReadD(i);
MyHP:=ReadD(i);
MyMaxMP:=ReadD(i); // чисто информативно
MyMP:=ReadD(i);
end;
procedure StatusUpdate; // обновление данных о себе
var
i:integer;
begin
for i:=0 to ReadD(6)-1 do
case pck[i*8+10] of
#$09: MyHP:=ReadD(i*8+14);
#$0A: MyMaxHP:=ReadD(i*8+14);
#$0B: MyMP:=ReadD(i*8+14);
#$0C: MyMaxMP:=ReadD(i*8+14);
end;
if MyMaxHP > 0 then HPlevelProcent:= Round((MyMaxHP/100)*HPlevelProcent);
end;
procedure DrinkBottle; // пьем бутылки и следим за их количеством
begin
if (HPBottleCount > 0) and (HPBottleObjID > 0)then
begin
UseItemObjID(HPBottleObjID);
UseItemID(HPBottleID);
dec (HPBottleCount);
end;
end;
begin // Далее обработка входящих пакетов
if pck = '' then exit;
if (ConnectName = NickName) and FromServer then
case pck[1] of
#$32: if ReadS(22) = NickName then UserInfo;
#$18: if MyID=ReadD(2) then // StatusUpdate:h(ObjectID)d(Attributes)
begin
StatusUpdate;
if (MyHP > 0) and (MyHP < HPlevelProcent) then if Wait(time1, DrinkDelay) then DrinkBottle; // пьем бутылки с интервалом в 19 сек
if (MyHP > 0) and (MyHP > HPlevelProcent) then time1:=1;
end;
#$11: begin
InventoryCreate; // Инвентарь
if HPBottleID <> 0 then
begin
HPBottleObjID:= getinv(HPBottleID, 2,1);
HPBottleCount:= getinv(HPBottleID, 2,3);
end;
end;
#$21: begin
InventoryUpdate;
if HPBottleID <> 0 then
begin
HPBottleObjID:= getinv(HPBottleID, 2,1);
HPBottleCount:= getinv(HPBottleID, 2,3);
end;
end;
end;
end.
//nlobp: заключайте код в теги [ HIGHLIGHT = "delphi" ][ / HIGHLIGHT ] (самая правая решетка, параметр delphi)
tiranosaur, заремь строку
//1061=Healing Potion;
PS: проверяйте код в редакторе скриптов пакетхака, строки с ошибками он покажет.
tiranosaur
09.02.2010, 03:18
Дык закоменчена она а скрипт не хилит((( Я просто хочу написать автохил минимального размера. но что-то даже это пока не идет. Помочь может кто?
begin
if FromServer then
begin
case pck[1] of
#$05: //пакет 05=SpawnItem
begin
case pck[10] of //по смещению 10 находится ItemID
17, 57, 1341..1345: pck:=''; //дропаем стрелы, адену, деревянные и т.д. стрелы
end;
end;
#$16: //пакет 16=DropItem
begin
case pck[6] of //по смещению 06 находится ItemID
17, 57, 1341..1345: pck:=''; //дропаем стрелы, адену, деревянные и т.д. стрелы
end;
end;
end;
end;
end.
в общем сегодня выдался день потестить скрипты.
у
NLObP, сразу заметил что итемид в пакетах дропитем и спавнитем перепутаны местами, но самая печаль, то что скрипт выдает ошибку Could not convert variant of type (String) into type (Double).
скрипт
tiranosaur, вообще не блочил пакеты, хотя поидее он должен работать.
alexteam
11.02.2010, 18:29
скрипт на коленке писался.. самим тяжело догадаться что надо ?
case readd(10) of
скрипт на коленке писался.. самим тяжело догадаться что надо ?
case readd(10) of
и правда, так гораздо лучше.
Михаил111
10.04.2010, 19:23
Люди добрые! Никак не могу найти скрипт на авто-рыбалку для л2пх 3.5.33.164... Пробовал изданные раньше скрипты, не работают. Помогите пожалуйста!
Михаил111, учиться, учиться, и еще раз учиться. Бери скрипты, какие есть - правь сам под свой сервак.
Михаил111
10.04.2010, 19:37
Не умею, пардоньте... Может подскажете как? У нас на сервере есть Рыболов-Бот, но покупать его за бешенные цены... серв l2rx.com
Добавлено через 4 минуты
Ах да, еще нашел тему со скриптами на рыбалку, но вот незадача - немогу скачать, пишет:
Warning: copy(./downloads///ec_tmp/fishing_by_NLObP.zip) [function.copy]: failed to open stream: Permission denied in /downloads.php on line 700
ERROR: File not found.
Михаил111, посмотри тему "Скриптинг" и "Жесткий скриптинг"
Нужна помощь в изменении скрипта помошник в PvP и PK. Попытался сделать пакеты на использование банок константами, но при старте скрипта ничего не происходит.
//by mks
//помошник в PvP и PK.
//пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня)
///////////////////////////////////////////////////////
///////////////Master PvP by MKS v.1.0/////////////////
///////////////////////////////////////////////////////
//после активации скрипта необходимо выпить сначала банку CP, потом HP для получения их ID
const
Name='kabUki'; //ник перса
PckUseCP='14 75 DC 4C 40 00 00 00 00';
PckUseHP='14 68 E6 4C 40 00 00 00 00';
var
CurHP,MaxHP,CurCP,MaxCP: integer;
CPuse,HPuse: string;
TimerCP,TimerHP: TTimer;
procedure Init; //Вызывается при включении скрипта
begin
TimerCP:=TTimer.Create(nil);
TimerCP.OnTimer:=@OnTimerCP;
TimerCP.enabled:=false;
TimerCP.interval:=1000; //интервал 1сек, т.к. чаще пить CP всеравно не будет, дабы не засорять трафик
TimerHP:=TTimer.Create(nil);
TimerHP.OnTimer:=@OnTimerHP;
TimerHP.enabled:=false;
TimerHP.interval:=15000; //интервал 15сек, т.к. действие одной бутылки = 15сек
end;
procedure OnTimerCP(Sender: TObject);
begin
buf:=HStr(PckUseCP);
SendToServerEx(Name);
end;
procedure OnTimerHP(Sender: TObject);
begin
buf:=HStr(PckUseHP);
SendToServerEx(Name);
end;
procedure Free; //Вызывается при выключении скрипта
begin
TimerCP.free;
TimerHP.free;
HPuse:='';
CPuse:='';
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//пьем сначала CP, потом HP банку что б запомнить их ID(я решил взять эти пакеты целиком, дабы не усложнять)
// if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;
// if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse<>pck) and (HPuse='') then HPuse:=pck;
//считываем текущие и максимальные значения CP и HP
if FromServer and (pck[1]+pck[6]=#$0E#$04) then
begin
CurHP:=ReadD(14);
MaxHP:=ReadD(22);
CurCP:=ReadD(30);
MaxCP:=ReadD(38);
end;
//если вы используете не грэйтер CP то вместо 200 подставьте кол-во CP сколько восстанавливает 1 банка
//if (CurCP<MaxCP-200) and (CPuse<>'') then TimerCP.enabled:=true else TimerCP.enabled:=false;
//if (CurHP<MaxHP) and (HPuse<>'') then TimerHP.enabled:=true else TimerHP.enabled:=false;
if (CurCP<MaxCP-200) then TimerCP.enabled:=true else TimerCP.enabled:=false;
if (CurHP<MaxHP) then TimerHP.enabled:=true else TimerHP.enabled:=false;
//если используем скилы или заклинания добавляем флаг Ctrl, что б не надо было удерживать контрол
if FromClient and (ConnectName=Name) and (pck[1]=#$2F) then pck[6]:=#$01;
//если наводим таргет, повторное нажатие по нему подменивается на атаку, опять же что б не удерживать контрол
//if FromClient and (ConnectName=Name) and (pck[1]=#$04) then pck[1]:=#$0A;
end.
KaBuKi, недостаточно информации, давай более развернуто, что как делаешь, в какой последовательности, версия пакетхака/хроники сервера и все такое прочее
Использую l2phx.3.4.1.83, версия протокола 660. Собственно изначальный скрипт работает отлично, но мне не нравится там необходимость при старте скрипта выпивать банки СР и НР, для того чтобы сохранились пакеты использования банок. Соответственно эти пакеты я через "просмотр" перехватил, задал константы на эти пакеты, некоторые условия убрал (CPuse<>'', HPuse<>'') в оригинальном скрипте убрал. Впринципе, можно удалить переменные CPuse и HPuse. Как я понял при приходе пакета StatusUpdate из него извлекаются текущие и максимальные значения СР и НР, если выполняются неравенства, то запускается таймер и начинают отсылаться пакеты на использование банок, но почему-то они не используются. Части скрипта которые я изменил - закомментил, так что различия между моим скриптом и оригиналом видны сразу. При старте скрипта и изменении НР и СР ничего не происходит.
Пакет RequestUseItem по определению константным быть не может, т.к. содержит в себе ObjID - идентификатор объекта в инвентаре, который в свою очередь может меняться. При грамотном подходе к реализации подобного скрипта, следует отслеживать инвентарь, анализировать его содержимое, но не как не константами забивать пакеты.
Пакет RequestUseItem по определению константным быть не может, т.к. содержит в себе ObjID - идентификатор объекта в инвентаре, который в свою очередь может меняться. При грамотном подходе к реализации подобного скрипта, следует отслеживать инвентарь, анализировать его содержимое, но не как не константами забивать пакеты.
А разве для предметов типа банок может быть другой ObjID? Содержит ли ObjID информацию о расположении предмета в инвентаре?
С каждой сессией этот ид меняется
Тогда как следует поступить? Расположить банки в определенных ячейках инвентаря, а потом определять их ObjID и на основании его фомировать пакет на покупку?
0. Описать переменные для ID банок ЦП, ХП, (МП), переменные для хранения количества банок ЦП, ХП, (МП).
1. Написать обработку пакетов прилетающих от ГС: ItemListPacket, InventoryUpdate. анализируя ItemListPacket определять количество и ID банок. Анализируя InventoryUpdate анализировать изменение количества этих самых банок.
2. Написать алгоритм юзания банок по изменению ЦП, ХП, (МП). Если кончились - не юзать.
В таком раскладе - если ты включил галку скрипта уже во время игры, а не до загрузки чара, для инициализации переменных прийдется вызвать окно инвентаря (Ctrl+V), либо купить банки, либо ждать когда прилетит пакет инвентаря.
ЗЫ. Код писать не буду, лень, и все можно скопипастить из скриптов этой темы.
ЗЫЫ. Есть ID вещи, предмета, используется для определения его названия, описания, иконки в клиенте, и есть ObjID, для идентифицирования конкретного объекта для нужд сервера. В пакете RequestUseItem серверу отправляется именно ObjID.
Подскажите плз как переделать скрипт АвтоХомяк (на 55 странице) под свой сервер (подправить пакеты)?
p.s. сервер la2world.ru
Подскажите плз как переделать скрипт АвтоХомяк (на 55 странице) под свой сервер (подправить пакеты)?
p.s. сервер la2world.ru
В Пакетхаке есть редактор скриптов, им можно переделать скрипт АвтоХомяк (на 55 странице) под свой сервер (подправить обработку пакетов).
В Пакетхаке есть редактор скриптов, им можно переделать скрипт АвтоХомяк (на 55 странице) под свой сервер (подправить обработку пакетов).
Это то я знаю, мне бы поподробней как именно это сделать, как говорит мой препод по ан.гему: " Че куда писать".
Если кому то не трудно будет потратить пару минут своего времени буду премного благодарен ;)
у меня вопрос по боту:
Бот - локомотив от Alexus
версия : 0.3 (бета)
дата: 08.04.08
бот не пашет пишет ошибку в строке 493:
procedure SendMsg(msg:string);
sendmsg выделяет красным цветом
естьли более новая версия бота? или фикс этой?
ZISTORM, переименуйте процедуру SendMsg на SendMsg2 во всем скрипте.
J-Fobos cпасибо! а как сделать чтобы вместо обычной атаки скилом бил? например есди за сх играешь?
//J-Fobos: надо внести нужные изменения в скрипт, разбирайте скрипт и поймете как.
Добавлено через 50 минут
спасибо
С каждой сессией этот ид меняется
конечноже нет. хотя наверное ты неверно понял вопрос собеседника.. и ответил некоректно.
у клиента есть чёткая таблица соответствий графического образа и ОбжектИД.. он никогда не меняется. мб тока при апдейте клиента.. сервер присылает ИД обжекта клиент его показывает.. в соответствии с таблицей..
другое дело что ИтемИД ето ненадо путать с ОбжектИД .. например у тебя есть 2 кувалды в инвенторе.. выгледят одинаково.. но лежат в разных слотах и заточены поразному.. при етом у них будет одинаковый обжектИД но совершенно разный ИтемИД. Итем ИД- хранится на сервере. у клиента нет таблиц соответствий аналогично обжекту- для итемов..
более подробно ето так.. клиент логинится к серверу.. сервер наливает пакет чем наполнен рюкзак игрока.. говорит примерно так:
(ид пакета на инвентарь) (ОбжектИД) (итемИД) (характеристики итема).
клиент эту информацию помнит ровно 1 сеанс игры и не сохраняет ее нигде.. в новом конекте к серверу ОБЖЕКТ ИД останется темже самым.. но итемид сменится.
alexteam
23.08.2014, 03:00
таки.. наоборот...
FrankJScott
18.06.2025, 20:14
In reply to the person talking about family trust federal credit union phone number, top banks to use, corporate banking products and services, bank with united bank, us bank online checking, real estate bank account, austin capital bank credit card, bank of the west online banking, best banks to invest with, different banks, I highly recommend this cool business portfolio management advice (https://icasinomac.info/20-free-ideas-for-deciding-on-business-investment-administration-planning/) or bank financial online banking, investment banking system, best bank in san antonio texas, bank accounts everyone should have, banks in minnesota, banks with good customer service, holdings bank, best bank if you have a lot of money, banks in lake county florida, financial institution account, bearing in mind this our website on business trust planning forum (https://metronest.online/20-top-pieces-of-advice-for-picking-business-asset-management-advice/) which is worth considering with first security bank and trust, top rated bank in usa, first bank and trust mortgage, trust funds company, bank with united login, open banking lending, us bank online checking, best rated banks for customer service, good banks in florida, united bank business login, which is worth considering with this this contact form about Business Portfolio Planning link (https://hypertradeunity.info/20-great-reasons-for-deciding-on-business-investment-management-planning/) which is also great. Also, have a look at this useful business asset management advice (https://gentedeguates.com/20-best-ideas-for-choosing-business-investment-management-planning/) on top of united bank trust, bank in usa, united bank online login, new banking services, trusted online banks, trust account services, us bank online banking phone number, the great bank, capital bank and trust company, banks in missouri, which is worth considering with this link about business trust investment link (https://faithandwealthfinance.com/20-good-suggestions-for-picking-business-asset-management-planning/) which is worth considering with united states bank, best online banking platforms, best big banks, best bank to invest, online bank in us, more hints for (https://raymondgaum55443.blogofchange.com) bearing in mind best relationship banks, truest account, open banking banks, open banking transactions, best national bank to open checking account, for good measure. Check more @ New Cypress Melbourne Info (http://flcolle.com/forum.php?mod=viewthread&tid=3546&pid=12114&page=1&extra=#pid12114) 688670b
FrankJScott
30.06.2025, 17:51
In response to the people asking about mesin slot login, data angka togel, bandar togel online terbesar, situs online slot, permainan slot gampang menang, slot online judi, angka togel hongkong malam ini, angka jitu togel sydney, permainan casino, daftar situs judi slot online terpercaya, data pengeluaran togel hari ini, slot joker123 gaming, I can vouch for this here are the findings about TAJIR4D (https://supertajir4d.com/) for casino togel, situs judi slot terbaik, slot terlengkap, slot joker gaming, angka sgp keluar hari ini, keluaran sdy sgp hk, data angka togel hari ini, angka keluaran hongkong malam ini, data togel keluaran hari ini, agen judi, situs judi slot yang mudah menang, game judi slot online, also.
For the man inquiring about data keluaran sdy, data angka togel, link slot yang mudah menang, bandar judi slot, situs togel terpercaya dan aman, provider game slot terbaik, daftar situs slot online terpercaya, slot pg soft, pragmatic play itu apa, beberapa permainan, ini slot, daftar angka keluar hongkong, I can vouch for this additional hints about https://linkasian2bet.com/ (https://linkasian2bet.com/) for judi slot online jackpot terbesar, link alternatif togel online, slot bandar judi, pengeluaran angka sgp, ion slot login, agen slot online terbaik, situs hk online terpercaya, judi slot mudah menang, permainan online judi, game online yang, game mesin slot, situs bandar slot online, also. See More Updated AI Stock Trading Platform Website (https://www.geekouturelounge.com/showthread.php?tid=34050&pid=341772#pid341772) c285688
FrankJScott
10.07.2025, 20:58
To the man talking about a bit coin, miner cloud mining platform, miner mining, cloud mining provider, mining platform, cheap cloud mining, coin criptovalute, mining info cloud mining, bct crypto, cloud mining what is it, I highly recommend this look at this about cryptocurrency details (https://allyourbookmarks.com/story19882615/mining-what-is-mining-and-about-cloud-mining) or world miner, cheap cloud mining, coin criptovalute, cloud mining platform, crypto bct, mining crypto, mining and minting, cloud mining provider, krypto tezba, a bit coin, on top of this high rated cryptocurrency info (https://logan0x86wen2.ourcodeblog.com/profile) together with miner cloud mining platform, world miner, kryptovaluta mining, mining and minting, mining what is mining, digital currency in, miner mining, a bit coin, bit coin in, cloud mining platform, on top of this her latest blog about Mint Miner url (http://forum.americandream.de/memberlist.php?mode=viewprofile&u=59707) which is also great. Also, have a look at this updated cryptocurrency info (https://robert6h29jsc9.bloggosite.com/profile) as well as cloud mining what is it, kryptovaluta mining, mining info cloud mining, crypto bct, coin criptovalute, about cloud mining, mining on cloud, mining miner, miner mining, miner cloud mining platform, which is worth considering with this best MintMiner blog (https://ryan4f19hqa8.jasperwiki.com/user) and don't forget mint miner, mining and minting, about cloud mining, world miner, mining crypto, her response about (https://ericknxgp41853.angelinsblog.com) bearing in mind cheap cloud mining, cloud mining what is it, mining platform, miner and miner, miner cloud mining, for good measure. Check more @ New Asian2bet Tips (http://www.wiseturtle.razornetwork.com/viewtopic.php?p=220289#p220289) 35_23c5
FrankJScott
14.07.2025, 22:39
For the person inquiring about rubbish cleaners, recycling content, waste booking, recycling and waste collection, recycle ie, waste management bulky waste pickup, recycling near by, waste management online account, rubbish removals near me, waste management environmental, I highly recommend this clicking here for waste management advice (https://samuel4e19lwg1.goabroadblog.com/profile) or waste management at your home, waste management contact us, waste management for, refuse removal schedule, recycle ie, we collect rubbish, waste management removal, waste service management, categories of waste disposal, waste disposal number, together with this click this for waste management blog (https://miles8a09nbp5.blogozz.com/profile) bearing in mind collect your rubbish, waste connections recycling, rubbish booking, landfill and recycling near me, trash service, local recycling companies, book waste collection, local waste management, waste dumping, local waste management companies, together with this best waste management link (https://carson4y95llh0.wikitelevisions.com/user) which is also great. Also, have a look at this directory about waste management details (https://angel1b60kub5.dailyblogzz.com/profile) as well as find trash service, construction site waste removal, waste management in our locality, rubbish solution, for waste management, pay someone to collect rubbish, close recycling, waste management rubbish collection, in waste management, get rid of rubbish near me, together with this great site on waste management forum (https://www.professionalchiptuning.net/member.php?u=707076) alongside all of waste disposal, trash service price, junk clearance, best waste management system, waste management price per month, click this for (https://daltonlwgo31854.wikicorrespondent.com) and don't forget recycling removal, landfill construction companies, reducing waste disposal, approved waste hauling, county waste disposal, for good measure. Check more @ Great Trust Administration Fees Info (http://sistemforum.com/index.php?topic=5539.new#new) eef87f1
vBulletin® v3.6.11, Copyright ©2000-2025, Jelsoft Enterprises Ltd. Перевод: zCarot