Перейти к содержимому

Фотография
- - - - -

есть добрые люди кто сможет

с таким скриптом

  • Авторизуйтесь для ответа в теме
Сообщений в теме: 7

#1
MOIGOSPODIN

MOIGOSPODIN
  • 14
    6
    Не выбрано
    • Lvl 11
    • Пользователь

добрые люди можно простой скрипт на обмен    

Blood Oath  клятвенная кровь 

в руне у гнома  кто поможет  со скриптом  на хф хрониках


  • 0

#2
MOIGOSPODIN

MOIGOSPODIN
  • 14
    6
    Не выбрано
    • Lvl 11
    • Пользователь

вот разговор с г номоом <html><body>Clan Trader Mulia:<br> Oh, renowned leader of the clan! What business do you have with me?<br> <a action="bypass -h npc_268439780_multisell 1235">Buy a Clan Item.</a><br> <a action="bypass -h npc_268439780_multisell 1236">Upgrade a clan item.</a><br> <a action="bypass -h Quest ClanTrader repinfo">Ask about Clan Reputation Points.</a><br> <a action="bypass -h npc_268439780_TerritoryStatus">Ask about the local lord and tax rate.</a><br> <a action="bypass -h npc_268439780_Quest">Quest.</a><br> </body></html>


  • 1

#3
pups

pups

можно использовать кнопку "Код" при написании сообщения

Спойлер (+/-)


ну и офк, одной добротой не согреться зимой  :pandaredlol:


Сообщение отредактировал pups: 06 Декабрь 2019 - 15:29

  • 0

Discord: pups#9809


#4
MOIGOSPODIN

MOIGOSPODIN
  • 14
    6
    Не выбрано
    • Lvl 11
    • Пользователь

вот я написал тока он работает при нажатии кнопки плей каждый раз а что надо чтоб он нормально работал 

 

 

 

begin
engine.bypasstoserver('npc_268439780_multisell 1235');
engine.bypasstoserver('Quest ClanTrader repinfo');
engine.bypasstoserver('Quest ClanTrader exchange-bo');
engine.bypasstoserver('Quest ClanTrader 32024.html');
delay(1000);
end.

  • 1

#5
Jetmorg

Jetmorg
  • 22
    1
    Все круто
    • Lvl 15
    • Пользователь

MOIGOSPODIN, тебе цикл что ли нужен? давай конкретику


  • 0

#6
fAkeN

fAkeN

MOIGOSPODIN,

begin
  while delay(77) do
    begin
      engine.bypasstoserver('npc_268439780_multisell 1235');
      engine.bypasstoserver('Quest ClanTrader repinfo');
      engine.bypasstoserver('Quest ClanTrader exchange-bo');
      engine.bypasstoserver('Quest ClanTrader 32024.html');
      delay(1000);
    end;
end.

 


  • 0

#7
MOIGOSPODIN

MOIGOSPODIN
  • 14
    6
    Не выбрано
    • Lvl 11
    • Пользователь
procedure reg_na_event;
var
item: TL2Item;
 
begin
while true do begin
delay(500);
 
 Engine.Say('.register');
 
delay(60000);
 
end;
end;
 
begin
  Script.NewThread(@disconnectMonitor); delay(50);
  Script.NewThread(@reg_na_event);
end.
 
 
в начале прописан скрип на автологин когда вошёл  в игру должен регатся на эвенты ну этого не происходит
 
как сделать чтобы он работал

Сообщение отредактировал MOIGOSPODIN: 18 Декабрь 2019 - 11:39

  • 1

#8
tvinpff

tvinpff
  • 45
    1
    Чертик
    • Lvl 24
    • Пользователь
      function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';
function GetAsyncKeyState(vKey: integer): integer; stdcall; external 'user32.dll';
var
  Ench: cardinal;
  p2,p1,p: pointer;    
  action: TL2Action;    
  inv: TInventory;
  e, endEnch: Integer;

procedure mouseClick(_delay : integer = 100);
begin
mouse_event($2, 0, 0, 0, 0);
delay(_delay);
mouse_event($4, 0, 0, 0, 0);
end;



function ShellExecuteW(hwnd: integer; lpOperation, lpFile, lpParameters, lpDirectory: PChar;  nShowCmd: integer): integer; stdcall;
  external 'Shell32.dll';

function keybd_event(bVk, bScan: byte; dwFlags, dwExtraInfo: integer): integer; stdcall;
  external 'user32.dll';

function ShowWindow(hwnd:cardinal; action:integer):boolean; stdcall;
external 'user32.dll';


procedure disconnectMonitor;
const
  login = 'login';
  password = 'password';
  gamePath = 'l2.exe';
begin
  while engine.Delay(40000) do begin  
    if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin
      print('login');
      Engine.FaceControl(0, false);
      Delay(5000);
      Engine.GameClose;
      Delay(25000);
      ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
      Delay(45000);
      Engine.AuthLogin(login, password);
      Engine.UseKey('Enter');
      Delay(12000);
      Engine.UseKey('Enter');
      Delay(12000);
      Engine.UseKey('Enter');
      Delay(12000);
      Engine.UseKey('Enter');
      Delay(20000);
      ShowWindow(engine.gamewindow, 6);
      Engine.FaceControl(0, True);
    end;
  end;
end;
procedure enterText(const text: string);
var
  i: cardinal;
  upperCase: boolean;
begin
  for i:= 1 to length(text) do begin
    if isDigit(text[i]) then
      Engine.UseKey(text[i])
    else begin
      upperCase:= text[i] = UpCase(text[i]);
      if upperCase then begin
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
          Engine.UseKey(text[i]);
          delay(10);
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
      end else
        Engine.UseKey(text[i]);
    end;
    Delay(50);
  end;
end;

function isDigit(ch: char): boolean;
const
  digits = '0123456789';
var
  i: cardinal;
begin
  result:= false;
  for i:= 0 to length(digits) do
    if digits[i] = ch then begin
      result:= true;
      exit;
    end;
end;
procedure reg_na_event;
var
item: TL2Item;

begin
while true do begin
delay(500);

 Engine.Say('.register');

        delay(60000);

end;
end;
begin
  Script.NewThread(@disconnectMonitor); delay(50);
  Script.NewThread(@reg_na_event); delay(50);
end.

  • 1


Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Rawr.pro - Сделано с для игроков.