Jump to content

fahir1

Members
  • Posts

    21
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Posts posted by fahir1

  1.  Hello,

     

    Currently selling adena on L2 E-GLOBAL

     

    Currently on stock: ~2800 MC

     

    Price 50 COL for 1 euro / 1,10 USD

     

    For big amounts has discount

     

    Leave skype or pm me for more info.

     

    You can check my previous sales with good feedback here (also can search my profile for even previous posts with sales): 

     

     

     

  2.  Hello,

     

    Currently selling adena on Valhalla Age NEW remastered

     

    Currently on stock: 1500 COL 750 all sold

     

    Price 30 COL for 1 euro / 1,10 USD

     

    Leave skype or pm me for more info.

     

    You can check my previous sales with good feedback here (also can search my profile for even previous posts with sales): 

     

     

     

  3. Hello,

     

    Currently selling adena on NA Classic server - Aden and Gludio.

     

    Currently on stock ADEN = 2.500k   1.500k  3.000k 1.000k 2.950k ZERO left

    Currently on stock GLUDIO = 1.000k 1.600k  ZERO left

     

    Price 100k for 1,50 euro

    or

    Price 100k for 1,70 U$D

     

    Leave skype or pm me for more info.

     

    You can check my previous sales with good feedback here (also can search my profile for even previous posts with sales): 

     

     

  4. Hello,

     

    Currently selling adena on Lineage 2 7x E-global interlude.

     

    Currently on stock = 1.500kk  

    750kk left

    09/06 restock = 2.400kk 

    1.200kk left

     

    Price 75kk for 1e

     

    WTS Eva Saint 78 3rd job (offer) SOLD

    WTS Warsmith 77 (offer) SOLD

     

    WTS WC 79 3rd job (offer)

    WTS SE 78 3rd job (offer)

    WTS BD 78 3rd job (offer)

    WTS DESTRO 78 3rd job (offer)

    WTS SPOILER 78 3rd job (offer)

     

    Leave skype or pm me for more info.

     

    You can check my previous sales with good feedback here (also can search my profile for even previous posts with sales):  

     

  5. ***OUT OF STOCK - OFF THE MARKET***

     

    Hello,

     

    As title says, I'm selling adena @ RPG club new server PEACE 7x.

     

    Prices are cheap and can get discount on big purchases, message me or talk in skype. Currently on stock:

     

    800kk 600kk sold 200kk sold

    15/12: 150kk 100kk sold
    16/12: (out of stock until monday 18/12)

    18/12 1.600kk stock

    20/12 2.000kk stock 200kk sold 100kk sold 500kk sold

    23/12 2.100kk stock 140kk sold

    25/12 1.800kk stock 350kk sold 1.100kk sold

    26/12 800kk stock

    02/01 1.000kk stock 1.000kk sold

     

    For trust/safety purposes, you can check my previous sales with good feedback (from 2014/2015 RPG servers). As always, we can make small transactions time by time if you are not 100% sure.

     

    Leave message or private message me with your skype so we can talk better.

     

    Thanks in advance.

  6.  

    well anyone if need with auto login, its not perfect but better than nothing

    uses SysUtils;
    
    const
    buff_ID:integer = 7029;
    
    var
    loggedIn:boolean;
     
    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 = 'qq';
      password = 'aa';
      gamePath = 'C:\Users\Pc\Desktop\server\Lineage II\system\l2.exe';
    begin
      while engine.Delay(3000) do begin  
        if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin
          loggedIn:=true;
          print('dc');
          Engine.FaceControl(0, false);
          Delay(1000);
          Engine.GameClose;
          Delay(1000);
          ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
          Delay(15000);
          enterText(login);
          Engine.UseKey('Tab');
          Delay(300);
          enterText(password);
          Delay(300);
          Engine.UseKey('Enter');
          Delay(2000);
          Engine.UseKey('Enter');
          Delay(2000);
          Engine.UseKey('Enter');
          Delay(2000);
          Engine.UseKey('Enter');
          Delay(10000);
          ShowWindow(engine.gamewindow, 6);
        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 = '013456789';
    var
      i: cardinal;
    begin
      result:= false;
      for i:= 0 to length(digits) do
        if digits[i] = ch then begin
          result:= true;
          exit;
        end;
    end;
    
    function buffCheck: Boolean;
    var buff: TL2Buff;
    begin
    Result:=false;
        if not User.Buffs.ByID(buff_ID, buff) then begin
            Result:=true;
            Print('Buffs are needed...');
            if Engine.SetTarget(31692) then begin //NPC ID
               engine.useskill(7029);
               delay(1111);
               //buff part here
               Print('Buffed.');
            end else begin
               if (user.target.valid) and (user.target.attackable) then
               while not user.target.dead do delay(50);
               Engine.FaceControl(0, false);
               print('No buffer - doing soe...');
               if engine.entertext('/unstuck') and engine.delay(1111) then
               while user.cast.endtime <> 0 do delay(2222);
               delay(5555);
            end;
        end;
    end;
    
    function deadCheck: Boolean;
    begin
    Result := false;
        if User.Dead then begin
            Result := true;
            Print('Dead. Pressing to village.');
            Delay(1000);
            Engine.FaceControl(0,false);
            Engine.GoHome;
            Delay(5555);
        end;
    end;
    
    procedure farmAndBack;
    begin
    while true do begin
    delay(1111);
    if not loggedIn then begin
    if engine.status = lsonline then begin
    //---------------------------------------------------
    // Goddard
    //---------------------------------------------------
    if user.inrange(146272, -58176, -2976, 250, 150) then begin
    if User.InRange(146272, -58176, -2971, 300, 150) then Engine.MoveTo(145849, -57856, -2983);
    if User.InRange(145849, -57856, -2983, 300, 150) then Engine.MoveTo(145708, -57656, -2983);
    if User.InRange(145708, -57656, -2983, 300, 150) then Engine.MoveTo(145480, -56995, -2983);
    if User.InRange(145480, -56995, -2983, 300, 150) then Engine.MoveTo(145600, -56820, -2979);
    if User.InRange(145600, -56820, -2979, 300, 150) then Engine.MoveTo(145770, -56703, -2888);
    if User.InRange(145770, -56703, -2888, 300, 150) then Engine.MoveTo(146136, -56468, -2783);
    if User.InRange(146136, -56468, -2783, 300, 150) then Engine.MoveTo(147158, -56153, -2783);
    if User.InRange(147158, -56153, -2783, 300, 150) then Engine.MoveTo(147523, -56004, -2775);
    if User.InRange(147523, -56004, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(145264, -57680, -2976, 250, 150) then begin
    if User.InRange(145264, -57680, -2971, 300, 150) then Engine.MoveTo(145484, -56907, -2983);
    if User.InRange(145484, -56907, -2983, 300, 150) then Engine.MoveTo(145773, -56699, -2886);
    if User.InRange(145773, -56699, -2886, 300, 150) then Engine.MoveTo(146107, -56480, -2784);
    if User.InRange(146107, -56480, -2784, 300, 150) then Engine.MoveTo(147192, -56142, -2783);
    if User.InRange(147192, -56142, -2783, 300, 150) then Engine.MoveTo(147520, -55983, -2775);
    if User.InRange(147520, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(145696, -57696, -2976, 250, 150) then begin
    if User.InRange(145696, -57696, -2971, 300, 150) then Engine.MoveTo(145500, -56937, -2983);
    if User.InRange(145500, -56937, -2983, 300, 150) then Engine.MoveTo(145773, -56701, -2886);
    if User.InRange(145773, -56701, -2886, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
    if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147265, -56109, -2783);
    if User.InRange(147265, -56109, -2783, 300, 150) then Engine.MoveTo(147500, -55930, -2767);
    if User.InRange(147500, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(144944, -55392, -2976, 250, 150) then begin
    if User.InRange(144944, -55392, -2971, 300, 150) then Engine.MoveTo(144913, -55647, -2983);
    if User.InRange(144913, -55647, -2983, 300, 150) then Engine.MoveTo(145027, -56285, -2983);
    if User.InRange(145027, -56285, -2983, 300, 150) then Engine.MoveTo(145092, -56489, -2983);
    if User.InRange(145092, -56489, -2983, 300, 150) then Engine.MoveTo(145356, -56891, -2983);
    if User.InRange(145356, -56891, -2983, 300, 150) then Engine.MoveTo(145539, -56846, -2983);
    if User.InRange(145539, -56846, -2983, 300, 150) then Engine.MoveTo(145763, -56692, -2887);
    if User.InRange(145763, -56692, -2887, 300, 150) then Engine.MoveTo(146103, -56477, -2784);
    if User.InRange(146103, -56477, -2784, 300, 150) then Engine.MoveTo(147008, -56177, -2783);
    if User.InRange(147008, -56177, -2783, 300, 150) then Engine.MoveTo(147497, -55998, -2775);
    if User.InRange(147497, -55998, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(144752, -56752, -2976, 250, 150) then begin
    if User.InRange(144752, -56752, -2971, 300, 150) then Engine.MoveTo(145283, -56881, -2983);
    if User.InRange(145283, -56881, -2983, 300, 150) then Engine.MoveTo(145480, -56896, -2983);
    if User.InRange(145480, -56896, -2983, 300, 150) then Engine.MoveTo(145769, -56691, -2885);
    if User.InRange(145769, -56691, -2885, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
    if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147223, -56110, -2783);
    if User.InRange(147223, -56110, -2783, 300, 150) then Engine.MoveTo(147480, -55983, -2775);
    if User.InRange(147480, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(149120, -58064, -2976, 250, 150) then begin
    if User.InRange(149120, -58064, -2971, 300, 150) then Engine.MoveTo(149581, -57760, -2983);
    if User.InRange(149581, -57760, -2983, 300, 150) then Engine.MoveTo(149689, -57638, -2983);
    if User.InRange(149689, -57638, -2983, 300, 150) then Engine.MoveTo(149962, -57118, -2983);
    if User.InRange(149962, -57118, -2983, 300, 150) then Engine.MoveTo(149948, -56913, -2983);
    if User.InRange(149948, -56913, -2983, 300, 150) then Engine.MoveTo(149650, -56697, -2885);
    if User.InRange(149650, -56697, -2885, 300, 150) then Engine.MoveTo(149265, -56443, -2783);
    if User.InRange(149265, -56443, -2783, 300, 150) then Engine.MoveTo(148211, -56093, -2783);
    if User.InRange(148211, -56093, -2783, 300, 150) then Engine.MoveTo(147914, -55957, -2774);
    if User.InRange(147914, -55957, -2774, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(150400, -56752, -2976, 250, 150) then begin
    if User.InRange(150400, -56752, -2971, 300, 150) then Engine.MoveTo(150019, -56918, -2983);
    if User.InRange(150019, -56918, -2983, 300, 150) then Engine.MoveTo(149663, -56695, -2889);
    if User.InRange(149663, -56695, -2889, 300, 150) then Engine.MoveTo(149320, -56465, -2783);
    if User.InRange(149320, -56465, -2783, 300, 150) then Engine.MoveTo(149125, -56366, -2783);
    if User.InRange(149125, -56366, -2783, 300, 150) then Engine.MoveTo(148213, -56122, -2783);
    if User.InRange(148213, -56122, -2783, 300, 150) then Engine.MoveTo(147934, -55937, -2767);
    if User.InRange(147934, -55937, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(150704, -55744, -2976, 250, 150) then begin
    if User.InRange(150704, -55744, -2971, 300, 150) then Engine.MoveTo(150450, -56378, -2983);
    if User.InRange(150450, -56378, -2983, 300, 150) then Engine.MoveTo(150249, -56735, -2983);
    if User.InRange(150249, -56735, -2983, 300, 150) then Engine.MoveTo(150018, -56927, -2983);
    if User.InRange(150018, -56927, -2983, 300, 150) then Engine.MoveTo(149657, -56697, -2888);
    if User.InRange(149657, -56697, -2888, 300, 150) then Engine.MoveTo(149335, -56480, -2784);
    if User.InRange(149335, -56480, -2784, 300, 150) then Engine.MoveTo(149183, -56379, -2783);
    if User.InRange(149183, -56379, -2783, 300, 150) then Engine.MoveTo(148654, -56222, -2783);
    if User.InRange(148654, -56222, -2783, 300, 150) then Engine.MoveTo(148065, -56072, -2783);
    if User.InRange(148065, -56072, -2783, 300, 150) then Engine.MoveTo(147935, -55915, -2767);
    if User.InRange(147935, -55915, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(147680, -58208, -2976, 250, 150) then begin
    if User.InRange(147680, -58208, -2971, 300, 150) then Engine.MoveTo(147709, -57988, -2983);
    if User.InRange(147709, -57988, -2983, 300, 150) then Engine.MoveTo(147712, -57707, -2886);
    if User.InRange(147712, -57707, -2886, 300, 150) then Engine.MoveTo(147720, -57307, -2784);
    if User.InRange(147720, -57307, -2784, 300, 150) then Engine.MoveTo(147744, -56149, -2783);
    if User.InRange(147744, -56149, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(148288, -58304, -2976, 250, 150) then begin
    if User.InRange(148288, -58304, -2971, 300, 150) then Engine.MoveTo(147728, -58113, -2983);
    if User.InRange(147728, -58113, -2983, 300, 150) then Engine.MoveTo(147719, -57704, -2884);
    if User.InRange(147719, -57704, -2884, 300, 150) then Engine.MoveTo(147723, -57327, -2784);
    if User.InRange(147723, -57327, -2784, 300, 150) then Engine.MoveTo(147747, -56101, -2783);
    if User.InRange(147747, -56101, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(147232, -58480, -2976, 250, 150) then begin
    if User.InRange(147232, -58480, -2971, 300, 150) then Engine.MoveTo(147654, -58136, -2983);
    if User.InRange(147654, -58136, -2983, 300, 150) then Engine.MoveTo(147710, -57978, -2983);
    if User.InRange(147710, -57978, -2983, 300, 150) then Engine.MoveTo(147707, -57704, -2885);
    if User.InRange(147707, -57704, -2885, 300, 150) then Engine.MoveTo(147709, -57313, -2784);
    if User.InRange(147709, -57313, -2784, 300, 150) then Engine.MoveTo(147733, -56181, -2783);
    if User.InRange(147733, -56181, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;  
    if user.inrange(149088, -56256, -2776, 250, 150) then begin
    if User.InRange(149088, -56256, -2771, 300, 150) then Engine.MoveTo(148389, -56149, -2783);
    if User.InRange(148389, -56149, -2783, 300, 150) then Engine.MoveTo(148043, -56064, -2783);
    if User.InRange(148043, -56064, -2783, 300, 150) then Engine.MoveTo(147912, -55922, -2767);
    if User.InRange(147912, -55922, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(146832, -55904, -2776, 250, 150) then begin
    if User.InRange(146832, -55904, -2771, 300, 150) then Engine.MoveTo(147303, -56054, -2783);
    if User.InRange(147303, -56054, -2783, 300, 150) then Engine.MoveTo(147490, -56005, -2775);
    if User.InRange(147490, -56005, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(146368, -56256, -2776, 250, 150) then begin
    if User.InRange(146368, -56256, -2771, 300, 150) then Engine.MoveTo(146968, -56156, -2783);
    if User.InRange(146968, -56156, -2783, 300, 150) then Engine.MoveTo(147349, -56110, -2783);
    if User.InRange(147349, -56110, -2783, 300, 150) then Engine.MoveTo(147498, -55988, -2775);
    if User.InRange(147498, -55988, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(147664, -56464, -2776, 250, 150) then begin
    if User.InRange(147664, -56464, -2771, 300, 150) then Engine.MoveTo(147701, -56046, -2775);
    if User.InRange(147701, -56046, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(147680, -56928, -2776, 250, 150) then begin
    if User.InRange(147680, -56928, -2771, 300, 150) then Engine.MoveTo(147707, -56086, -2783);
    if User.InRange(147707, -56086, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(148560, -55904, -2776, 250, 150) then begin
    if User.InRange(148560, -55904, -2771, 300, 150) then Engine.MoveTo(148213, -56048, -2783);
    if User.InRange(148213, -56048, -2783, 300, 150) then Engine.MoveTo(147970, -56030, -2783);
    if User.InRange(147970, -56030, -2783, 300, 150) then Engine.MoveTo(147927, -55934, -2767);
    if User.InRange(147927, -55934, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(149872, -57424, -2976, 250, 150) then begin
    if User.InRange(149872, -57424, -2971, 300, 150) then Engine.MoveTo(149954, -56966, -2983);
    if User.InRange(149954, -56966, -2983, 300, 150) then Engine.MoveTo(149857, -56845, -2983);
    if User.InRange(149857, -56845, -2983, 300, 150) then Engine.MoveTo(149650, -56703, -2887);
    if User.InRange(149650, -56703, -2887, 300, 150) then Engine.MoveTo(149320, -56472, -2784);
    if User.InRange(149320, -56472, -2784, 300, 150) then Engine.MoveTo(149157, -56414, -2783);
    if User.InRange(149157, -56414, -2783, 300, 150) then Engine.MoveTo(148651, -56204, -2783);
    if User.InRange(148651, -56204, -2783, 300, 150) then Engine.MoveTo(147991, -56027, -2783);
    if User.InRange(147991, -56027, -2783, 300, 150) then Engine.MoveTo(147888, -55926, -2767);
    if User.InRange(147888, -55926, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(144960, -56224, -2976, 250, 150) then begin
    if User.InRange(144960, -56224, -2971, 300, 150) then Engine.MoveTo(145058, -56508, -2983);
    if User.InRange(145058, -56508, -2983, 300, 150) then Engine.MoveTo(145266, -56844, -2983);
    if User.InRange(145266, -56844, -2983, 300, 150) then Engine.MoveTo(145477, -56903, -2983);
    if User.InRange(145477, -56903, -2983, 300, 150) then Engine.MoveTo(145776, -56696, -2884);
    if User.InRange(145776, -56696, -2884, 300, 150) then Engine.MoveTo(146140, -56448, -2783);
    if User.InRange(146140, -56448, -2783, 300, 150) then Engine.MoveTo(146776, -56191, -2783);
    if User.InRange(146776, -56191, -2783, 300, 150) then Engine.MoveTo(147356, -56089, -2783);
    if User.InRange(147356, -56089, -2783, 300, 150) then Engine.MoveTo(147516, -55930, -2767);
    if User.InRange(147516, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;   
    if user.inrange(144496, -55088, -2976, 250, 150) then begin
    if User.InRange(144496, -55088, -2971, 300, 150) then Engine.MoveTo(144742, -55433, -2983);
    if User.InRange(144742, -55433, -2983, 300, 150) then Engine.MoveTo(144847, -56003, -2983);
    if User.InRange(144847, -56003, -2983, 300, 150) then Engine.MoveTo(145064, -56560, -2983);
    if User.InRange(145064, -56560, -2983, 300, 150) then Engine.MoveTo(145339, -56939, -2983);
    if User.InRange(145339, -56939, -2983, 300, 150) then Engine.MoveTo(145563, -56858, -2983);
    if User.InRange(145563, -56858, -2983, 300, 150) then Engine.MoveTo(145799, -56680, -2884);
    if User.InRange(145799, -56680, -2884, 300, 150) then Engine.MoveTo(146159, -56446, -2783);
    if User.InRange(146159, -56446, -2783, 300, 150) then Engine.MoveTo(146788, -56217, -2783);
    if User.InRange(146788, -56217, -2783, 300, 150) then Engine.MoveTo(147374, -56057, -2783);
    if User.InRange(147374, -56057, -2783, 300, 150) then Engine.MoveTo(147521, -55936, -2767);
    if User.InRange(147521, -55936, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(145392, -56960, -2976, 250, 150) then begin
    if User.InRange(145392, -56960, -2971, 300, 150) then Engine.MoveTo(145577, -56837, -2983);
    if User.InRange(145577, -56837, -2983, 300, 150) then Engine.MoveTo(145791, -56684, -2884);
    if User.InRange(145791, -56684, -2884, 300, 150) then Engine.MoveTo(146151, -56432, -2783);
    if User.InRange(146151, -56432, -2783, 300, 150) then Engine.MoveTo(146760, -56200, -2783);
    if User.InRange(146760, -56200, -2783, 300, 150) then Engine.MoveTo(147179, -56107, -2783);
    if User.InRange(147179, -56107, -2783, 300, 150) then Engine.MoveTo(147476, -56003, -2775);
    if User.InRange(147476, -56003, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(147705, -58490, -2981, 500, 150) then begin
    if User.InRange(147705, -58490, -2976, 300, 150) then Engine.MoveTo(147720, -57977, -2983);
    if User.InRange(147720, -57977, -2983, 300, 150) then Engine.MoveTo(147713, -57704, -2885);
    if User.InRange(147713, -57704, -2885, 300, 150) then Engine.MoveTo(147711, -57295, -2783);
    if User.InRange(147711, -57295, -2783, 300, 150) then Engine.MoveTo(147723, -56053, -2783);
    if User.InRange(147723, -56053, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(150257, -57162, -2981, 500, 150) then begin
    if User.InRange(150257, -57162, -2976, 300, 150) then Engine.MoveTo(149917, -56883, -2983);
    if User.InRange(149917, -56883, -2983, 300, 150) then Engine.MoveTo(149643, -56689, -2884);
    if User.InRange(149643, -56689, -2884, 300, 150) then Engine.MoveTo(149271, -56442, -2783);
    if User.InRange(149271, -56442, -2783, 300, 150) then Engine.MoveTo(148627, -56183, -2783);
    if User.InRange(148627, -56183, -2783, 300, 150) then Engine.MoveTo(148028, -56075, -2783);
    if User.InRange(148028, -56075, -2783, 300, 150) then Engine.MoveTo(147923, -55927, -2767);
    if User.InRange(147923, -55927, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    if user.inrange(145152, -57116, -2981, 500, 150) then begin
    if User.InRange(145152, -57116, -2976, 300, 150) then Engine.MoveTo(145552, -56852, -2983);
    if User.InRange(145552, -56852, -2983, 300, 150) then Engine.MoveTo(145797, -56682, -2884);
    if User.InRange(145797, -56682, -2884, 300, 150) then Engine.MoveTo(146120, -56451, -2783);
    if User.InRange(146120, -56451, -2783, 300, 150) then Engine.MoveTo(146788, -56201, -2783);
    if User.InRange(146788, -56201, -2783, 300, 150) then Engine.MoveTo(147303, -56071, -2783);
    if User.InRange(147303, -56071, -2783, 300, 150) then Engine.MoveTo(147508, -55967, -2775);
    if User.InRange(147508, -55967, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
    end;
    
        if user.inrange(147963, -55257, -2736, 500) then begin
            buffCheck;
        end;                                                
        
        if user.inrange(147963, -55257, -2736, 150) and User.Buffs.ByID(buff_ID, buffCheck) then begin
            //teleport
            engine.settarget(31275);
            delay(1111);
            engine.dlgopen;
            delay(1111);
            engine.dlgsel(1);
            delay(1111);
            engine.dlgsel(11);
            Delay(5000);
        end;    
                    
        if user.inrange(149574, -112680, -2060, 500) then begin
            //coord to spot
            Engine.MoveTo(150009, -111081, -2236);
        
            Delay(500);
            engine.loadzone('hs');
            Engine.FaceControl(0, true);
            while (not (deadCheck or buffCheck)) and (engine.status = lsonline) do delay(2000);
        end;
    end;
    end else begin
    if engine.status = lsonline then begin
    if engine.entertext('/unstuck') and engine.delay(1111) then
    while user.cast.endtime <> 0 do delay(2222);
    delay(5555);
    loggedIn:=false;
    end;
    end;
    end;
    end;
                            
    begin
    if engine.status <> lsonline then loggedIn:= true else loggedIn:= false;
      Script.NewThread(@disconnectMonitor);
      Script.NewThread(@farmAndBack);
    end. 
    

     

    Nice dude! Very nice!

     

    I managed to understand a bit how it works, but I tried to add it on my own auto level script and couldnt make it.

     

    My auto level script is very similar to that one, can you help me which parts should I add in order to make autoreconnect work?

    Thanks in advance.

  7. Very good prices!

    125kk = 1 U$D

    138kk = 1 Euro

     

    Working with paypal. During week from 10pm to 1am (GMT -3). Weekend all day available.

     

    Leave PM with your skype and we can talk better. All amounts and flexible trades (as many transactions as you need to feel safe and comfortable).

  8. As title says, I'm currently selling adena on lineage.ru Lira 7x GF.

     

    Prices will be cheaper than others because I'm not known as "top seller". If you are afraid of buying or dont trust, we can make small transactions untill you buy your wanted amount.

     

    Very good prices!

    125kk = 1 U$D

    138kk = 1 Euro

     

    -> Currently on stock ~350kk ~700kk 950kk 250kk 500kk 650kk  Out of stock atm 800kk  1800kk 1000kk Out of stock 550kk 2.700kk 3.700kk 2900kk  4.300KK 3.300kk 2.200kk

     

    Trade summary:

    700kk sold @26/09

    790kk sold @26/09

    650kk sold @30/09

    500kk sold @07/10

    800kk sold @11/10

    1000kk sold @12/10

    800kk sold @23/10

    1000kk sold @27/10

    1000kk sold @28/10

    2.200kk sold @01/11

     

    -> I have AA / materials / crystals if interested aswell (very cheap price)

     

    Still, I already sold adena before, you can check that topic with good rep: http://www.maxcheaters.com/topic/186978-adenachar-l2rpgclub-3x-motherland/?do=findComment&comment=2438062

     

    I'll be available this weekend. During monday to friday I work and study, so I dont have much time to sell.

     

    Please feel free to pm me or leave skype so we can talk!

  9. Hello guys,

     

    I'm currently developing my own 1-40 auto level script and it's going pretty smooth, eventhough my scripting knowledge is very narrow and dumb.

     

    Anyway, what I'm doing is setting functions that have prerequisites to trigger, such as: position, check level, check items, check buffs, and if everything is ok they start. It's not the best way, but it's working and I'm pretty excited about it.

     

    The main problem I'm facing atm is that after I get to my designated spot of leveling, I wanna keep checking 3 conditions to stay there:

     

    1) Level restriction (user.level>=32)

    2) Buffs ended User.Buffs.ByID(4326, buff)

    3) Dead (User.Dead)

     

    I have set those 3 functions written properly, but I dont know how to keep checking them in the previous function to be triggered. I managed to set one of them at a time, by using this:

    while not level32check do Delay(1000); // while not level >31, keep leveling

    But if I die, my script will be stuck in this loop, same if I ran out of buffs, it will probably die and do nothing. I tried to do something like this code below with "while not" at the end of the spot function, but it failed to work because it only considers the first if:

    function spot3check: Boolean;
              var buff: TL2Buff;
              begin
              if User.Dead then begin
              deadcheck;             
              end else User.Buffs.ByID(4326, buff) then begin
              soe;
              end else (user.level>=32) then begin
              level32check

    The point is that after it get to the spot, keep checking buff,level and dead. If any of them, begin that function and end the previous one. Glad if you can help me, Im breaking my head for 4h already.

     

    Some bonus questions: :D

     

    1) How can I set a function to keep checking if my char is standing (not moving, not sitting, not dead, not fighting) for more than xx seconds and if true, use SOE (stuck check)

    2) How can I check a specific skill from my character and check if he doenst have it. Same if he has it, then check it's level?

  10. PRICES LOWERED

     

    As topic says:

     

    WTS adena / items on L2HEL 30x.

     

    Adena 3kkk = 1 Euro

     

    Ant Queen

    PP 83 with Counter Critical 

    Vesper Shaper SA +300 WIND

    Moirai light/heavy set

    Vorpal jewel set

    Attribute stones

    Noble stones and so on...

     

    You can check my previous sales on RPGclub to confirm I'm trusted. Leave skype on message and we talk. You can also leave what you want on message to get your answer faster.

     

    Thanks.

  11. Hello,

     

    As topic says, Im selling adena from RPG club 3x because I quit playing. I dont work selling adena, just trying to sell the items because I work/study now and dont have time to play. So if you are afraid to buy, we can make small transactions by time and sending you the requested items.

     

    Payments through paypal. Leave skype here or PM so we can talk about transactions.

     

    Currently what I have for sale:

     

    950kk 850kk 600kk 100kk adena left

    LOTS of materials

    BD account 74

    WC account 74

    SWS account 62

    SE account 61

    Spoiler account 72

    Spoiler account 60 (x2)

    WS account 60

     

    Prices? We can talk, it will be around 10£ / 13 U$D 9£ / 12 U$D for 100kk.

     

    Portuguese only below:

     

    Se tem alguém querendo comprar os itens acima, também aceito pagamentos em depósito/transferência para banco Itaú, basta informar o skype que conversamos (Deixa skype em pm ou aqui no thread). Seria em torno de R$ 30,00 a cada 100kk.

×
×
  • Create New...