play4fan.ru

Коды клавиш Delphi

Sonik — Mon, 02 Oct 2017 04:55:34 GMT

В скриптах иногда встречаются обозначения кнопок как $12, $2D и другие и понять что это за кнопка сложно. Здесь представлены все обозначения кнопок чтобы было проще понять что это за кнопка и поставить свою поменяв значение на нужное.

Клавиша<|>Шестнадцатеричное число<|>Десятичное число<|>Символическое имя<|>Функции ord
F1 $70 112 VK_F1
F2 $71 113 VK_F2
F3 $72 114 VK_F3
F4 $73 115 VK_F4
F5 $74 116 VK_F5
F6 $75 117 VK_F6
F7 $76 118 VK_F7
F8 $77 119 VK_F8
F9 $78 120 VK_F9
F10 $79 121 VK_F10
пробел    $20 32 VK_SPACE
BackSpace $8    8 VK_BACK
Tab $9    9 VK_TAB
Enter $0D 13 VK_RETURN
Shift $10 16 VK_SHIFT
Ctrl $11    17 VK_CONTROL
Alt $12    18 VK_MENU
CapsLock $14 20    VK_CAPITAL
Esc $1B 27 VK_ESCAPE
Insert $2D 45    VK_INSERT
PageUp    $21 33 VK_PRIOR
PageDown $22 34 VK_NEXT
End $23 35 VK_END
Home $24 36 VK_HOME
Стрелка назад $25 37 VK_LEFT
Стрелка вверх $26 38 VK_UP
Стрелка вперед $27 39 VK_RIGHT
Стрелка вниз $28 40 VK_DOWN
Delete $2E 46 VK_DELETE
PrintScreen $2C 44 VK_SNAPSHOT
ScrollLock $91 145 VK_SCROLL
Pause $13 19 VK_PAUSE
NumLock $90 144 VK_NUMLOCK
0,)    $30 48 Ord(‘0’)
1!    $31 49 Ord(‘1’)
2@ $32 50    Ord(‘2’)
3#    $33 51 Ord(‘3’)
4$ $34 52 Ord(‘4’)
5% $35 53 Ord(‘5’)
6^ $36 54 Ord(‘6’)
7& $37 55 Ord(‘7’)
8* $38 56 Ord(‘8’)
9( $39 57 Ord(‘9’)
`~ $C0 192
-_ $BD 189
=+ $BB 187
[{ $DB 219
]} $DD 221
:; $BA 186
‘” $DE 222
| $DC    220
,< $BC 188
.> $BE 190
/?    $BF 191
A a    $41 65 Ord(‘A’)
B b $42    66 Ord(‘B’)
С с $43    67 Ord(‘С’)
D d    $44 68 Ord(‘D’)
E e $45 69 Ord(‘E’)
F f $46 70 Ord(‘F’)
G g $47 71 Ord(‘G’)
H h $48 72 Ord(‘H’)
I i $49 73    Ord(‘I’)
J j    $4A    74    Ord(‘J’)
K k    $4B    75    Ord(‘K’)
L l $4C 76 Ord(‘L’)
M m $4D 77 Ord(‘M’)
N n $4E 78 Ord(‘N’)
O o $4F 79 Ord(‘O’)
P p $50 80 Ord(‘P’)
Q q $51    81 Ord(‘Q’)
R r $52 82 Ord(‘R’)
S s $53 83    Ord(‘S’)
T t $54       84 Ord(‘T’)
U u $55       85 Ord(‘U’)
V v $56 86 Ord(‘V’)
W w $57    87 Ord(‘W’)
X x $58 88 Ord(‘X’)
Y y $59 89 Ord(‘Y’)
Z z $5A 90    Ord(‘Z’)

Правая клавиатура при выключенной клавише NumLock:

Клавиша<|>Шестнадцатеричное число<|>Десятичное число <|> Символическое имя
1 $61 97 VK_NUMPAD1
2 $62 98 VK_NUMPAD2
3 $63 99 VK_NUMPAD3
4 $64 100 VK_NUMPAD4
5 $65 101 VK_NUMPAD5
6 $66 102 VK_NUMPAD6
7 $67 103 VK_NUMPAD7
8 $68 104 VK_NUMPAD8
9 $69 105 VK_NUMPAD9
* $6A 106 VK_NYLTIPLY
+ $6B 107 VK_ADD
— $6D 109 VK_SUBTRACT
. $6E 110 VK_DECIMAL
/ $6F 111 VK_DIVIDE

Скрипт Рыбалки

Sonik — Sat, 16 Jan 2016 11:42:15 GMT

Этот скрипт на рыбалку добавляет возможность при появлении моба одеть пушку у бить его и продолжить рыбалку. В стандартной рыбалке в адреналине это го сделать нельзя а со скриптом можно. Так же лучше взять с сбой баночек на хил.

Кач в ЕВ (лвл 30+)на L2 classic

Sonik — Sat, 16 Jan 2016 11:16:52 GMT

Кач в ЕВ на L2 Classic - скрипт ена авто кач в ЕГ (Execution Ground) тп туда из города Дион лвл персонанжа примерно 30+. Персонаж будет сам телепортироваться бежать в указаное место и убивать мобов, при мерти будет телепортироваться в город и бежать снова на место кача.

Скрипты для adrenalin L2 classic

Sonik — Mon, 28 Dec 2015 16:27:07 GMT

У кого есть готовые скрипты для adrenalin под lineage 2 classic если не сложно добавьте на форум. Не играю на классике да и этим ботом не пользуюсь, так бы может и сам скрипты делал. А для кого это не сложно уже и рука наметана, если не затруднит поделитесь с другими своим опытом.

Скрипт кач на хрониках GOD Ertheia 1-85 лвл

Sonik — Fri, 18 Dec 2015 17:03:13 GMT

[GoD]Ertheia 1-85 leveling script - скрипт для авто прокачки персонажа, рекомендуется использовать мага, тк с воина бывают некоторые глюки, так же рекомендуется избегать дисконектов из игры скрипт полсе дисконекта не сможет продолжаться.

Инфа от автора можете скопировать и перевести с помощью гугл переводчика или яндекс или другим.

Цитата

Hi,

I have stopped botting on Core almost a year ago and have finally decided to "share" the scripts that did me in and acquired me an auto-ban from Innova. Of course this is most likely because I created countless characters each day, using this, and not because of how the script actually works

The script is super long but basically takes your Ertheia character through the leveling and quests to 85 (and subclass! ). I used it mostly to level wizards because they were easier and faster, and in the end I only cared about subclassing them to Wynn Summoners anyway. Because of this favouring, the Wizard script does actually do all of this fancy stuff, while the Warrior_C script stops around 76 as the characters just can't keep lvling in C grade effectively anymore. The Warrior_A script continues to 85 and does the change quests.

So to summarise:
1. Make an Ertheia character
2. Run 1-40 script (this will level the character up, do the quests, get the EQ, buy SOE/shots etc). Your character should be standing in front of the NPC in Faeron Village.
3. Run 40-76 script, character will go to Gludio (buy SOE/shots etc), then Dion, then Cruma and continue leveling up.

When on quests, script can easily break if you disconnect etc. It can't really recover so try avoiding this

When leveling up in spots 40-85, the script will recover if you are in the right city for that level range:
40-54 Faeron, Dion, Oren
54-64 Oren, Aden
64-70 Aden, Goddard
70+ Goddard

Finally - these scripts worked well in Ertheia update, but I have not installed L2 since then so I do not know how do they behave in the latest update. If you want to, you can fix the scripts yourself. I will provide no much further support.

Also - please edit all instances of YOUR BOT FOLDERin all of the scripts to what it's supposed to be for you.

Готовый скрипт на ТТ рецы бижы

Sonik — Fri, 11 Dec 2015 15:21:54 GMT

Скрипт на фарм S рецептов на бижутерю, работал на русском кленте Интерлюде, хотя на на более новых хрониках изменений неблыо должен работать на ХФ. В скрипте есть так же авто баф, но нужно сделать шаблон бафов.

Пати на баф

Sonik — Tue, 08 Dec 2015 15:11:13 GMT

Пати на баф скрипт полезне тем кто качается с твинами типо бд, свс или еще кто нибудь кто дает баф только в пати. Этот скрипт проверяет оставшееся время бафа и кидает пати если бафам осталось 10 сек до конца, кидает баф, а потом выходит из пати и так по кругу. Так же имеется проверка вермени бафа если больше определенного то будет кик из пати.

Код

var buff:tl2buff;
begin
  while true do
  begin
    if((user.buffs.byid(тут id бафа,buff) and (buff.endtime<10000)) or not user.buffs.byid(тут id бафа ,buff)) then
    begin
      engine.inviteparty('Dissy');
    end;

    if(user.buffs.byid(тут id бафа ,buff) and (buff.endtime>90000)) then
    begin
      engine.dismissparty('Dissy');
    end;
    delay(3000);
  end;
end.

Как искать байпасы, парсинг байпассов

Sonik — Mon, 07 Dec 2015 18:17:37 GMT

Парсинг байпассов - в этом примере парсинг будет с помощью HEX редактора, описание в картинках вы может посмотреть по тут.

Инструкция как это делается.

Проверка на смерть

Sonik — Sat, 05 Dec 2015 16:13:20 GMT

Проверка на смерть - скрипт проверяет не умер ли ваш персонаж и после это будет выполнено какое либо действие которое вам нужно задать

Код

function CheckDeath: Boolean;//Проверка на смерть
begin
  Result:=false;
    if User.Dead then //умерли
    begin
        Result:=true;
        Print('Bot Umer');//печатаем в лог
        Delay(1000);
        Engine.FaceControl(0,false);//выключаем бота
        Engine.GoHome;//встаем в город
        Delay(10000);//отдыхаем
    end;
end;

Пользоваться так:
Копируем весь текст в начало скрипта после Uses classes,sysutils; строки и дальше в самом коде, там где нужно проверить на смерть пишем:

Код

if CheckDeath then
begin
//Тут маршрут по городу и возврат назад на спот
end;

Фарм варки

Sonik — Sat, 05 Dec 2015 16:08:55 GMT

Бот фармит варку. В случае смерти он встает в гдд, бежит к тп и летит обратно в варку. Помимо этого, в скрипте есть оповещалка о появлении капчи. Так же есть наработки обхода капчи, где нужно просто нажать "продолжить", для этого достаточно раскомментировать строки в процедуре PassCaptcha. Ну и если нужно, бот будет проверять, не слетели ли у него бафы. И, если слетели, он сделает сое (раскомментируйте строки 74-79). Как узнать номера строк в скрипте просто скопируйте в нотпад++ там и смотрите.

Код

var Captcha, Cap:string;
var i: integer;

procedure Goddart();
BEGIN
delay(5000);
// Подлетим к гк
Engine.BypassToServer('_bbshome', True);
           Delay (500);
           Engine.BypassToServer('15', True);
           Delay (500);
           Engine.BypassToServer('1a', True);
           Delay (500);
           Engine.BypassToServer('10', True);
           Delay (2000);

           // Го в варку
  Engine.SetTarget('Tatiana');
  Delay(5000);
  Engine.DlgOpen;
  //Здесь диалог с NPC ГК Tatiana (GDD)
   Delay(500);
  Engine.DlgSel(1);
  Delay(500);
  Engine.BypassToServer('08', True); // To Varka

  //Engine.CancelTarget;
END;

procedure PassCaptcha();
begin
    Captcha := Engine.DlgText;

  i:=pos('LEVEL>',Captcha);
  Cap:=copy(Captcha,i+6,5);

    if (Pos('снятия', Captcha) <> 0) then
    begin

    PlaySound('Sounds/hp.wav',false);

    Engine.EnterText(Cap);
    Engine.BypassToServer('00 '+Cap);

    //print(Captcha);
    //print(Cap);
    //Engine.DlgSel('Продолжить');
    //Engine.BypassToServer('00');
    end;
   // Delay(1800);
end;

var obj:TL2Effect;
BEGIN
  while true do
  begin
    while true do begin
       PassCaptcha();
       Delay (5000);

        if not user.InRange(125937, -40863, -3728,15000,15000) then
          Goddart();


       if User.Dead then
       begin
       Engine.GoHome;
       Delay(7000);
       break;
       end;

     //  if not User.Buffs.Byid(1085, Obj)  then
     //  begin
     //   Engine.UseItem(736, false);
     //   Delay(25000);
     //   break;
     //  end;

    end;
    // Если померли, пора ребаф и лететь обратно

    Goddart();

  Delay (5000);
  end;

END.