Jump to content

pablicic

Members
  • Posts

    12
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Posts posted by pablicic

  1. 5 hours ago, KejbL said:

    its Classic from la2dream server 🙂 and owner movie is Tough 🙂

     yes this video is l2 dream and classic but I will not use in this server. I want to modify it for another server which is L2dex. the problem that this server does not allow to modify its files and any modification has to be from its own updater.

     

  2. hello guys, I look for help with any animations skills.

     

    in this video:

    - what animmation use the ol to see the debuffs area? ( circle green)

    - animation to aura flare and aura flash

    -What animations do you advise me to change and which one to put to have less lag in mass pvp?

     

    thank you!

     

  3. Hi all, I would like to know how it is possible to put these animations or interface inside my L2 interlude. I do not know anything about programming and I have been looking for and I have not seen anything here so I ask.
    In serious matter:

    - screen damage
    - transparent skill bars
    - change of color according to the target.

    In the image you can appreciate everything I ask. Thank you all and I hope you can help me

    post-101033-0-58137800-1502892605_thumb.png

  4. I dont know if I put fine the code, but dont work. :-[

                    uses sysutils;
    
    procedure buff;
    
    var
    buff1: TL2Effect;
    item: TL2Item;
    
    
    function deadCheck: Boolean;
    begin
    Result := false;
        if User.Dead then begin
            Result := true;
            Print('Dead. Pressing to village.');
            Delay(1000);
            Engine.GoHome;
            Delay(1000);
        end
        else
        begin
         Delay(1000);
        end;
        end;
    ///////////////////////////////////////////////////////////
    
           begin
     while true do begin
     deadcheck;
             
    
    
    
    
            
       if user.inrange(83919, 145686, -3431, 250, 150) then begin
       Engine.MoveTo(83900, 147584, -3431);
       Engine.MoveTo(83428, 147832, -3454);
    
       end;
    
    
    
      //////////////////////////////
    
    if user.inrange(81800, 149262, -3490, 250, 150) then begin
        
    Engine.MoveTo(83400, 147951, -3431);
     end;  
    
    if user.inrange(85534, 147315, -3426, 250, 150) then begin
    
    Engine.MoveTo(83997, 147729, -3408);
    Engine.MoveTo(83465, 147935, -3431);
    
        end;  
    	if user.inrange(81237, 148658, -3464, 250, 150) then begin
    Engine.MoveTo(82026, 148139, -3493);
      Engine.MoveTo(83312, 148193, -3431);
       Engine.MoveTo(83450, 147939, -3431);
       
        end;  
    	if user.inrange(85613, 149637, -3413, 250, 150) then begin
    Engine.MoveTo(85611, 149584, -3418);
    Engine.MoveTo(83677, 149412, -3431);
    Engine.MoveTo(83455, 147979, -3431);
        end;
    
        	if user.inrange(78688, 148638, -3618, 250, 150) then begin
    Engine.MoveTo(80517, 148614, -3508);
    Engine.MoveTo(81450, 148419, -3493);
    Engine.MoveTo(83018, 148038, -3495);
    Engine.MoveTo(83431, 148020, -3431);
    Engine.MoveTo(83450, 147929, -3431); 
      end;
          	if user.inrange(81509, 151069, -3533, 250, 150) then begin
      Engine.MoveTo(81428, 151050, -3533);
      Engine.MoveTo(81587, 149337, -3495);
      Engine.MoveTo(83423, 147922, -3406);
      
      end;
    
          	if user.inrange(78688, 148638, -3618, 250, 150) then begin
    Engine.MoveTo(81514, 151060, -3554);
    Engine.MoveTo(81467, 151092, -3559);
    Engine.MoveTo(81554, 149572, -3495);
    Engine.MoveTo(83184, 148254, -3448);
     Engine.MoveTo(83425, 147959, -3431);
     
      end;
     
        
    ///////////////////////////////////////////////////////////  
    
      if user.inrange(83483, 147918, -3431, 700) then begin
      
       Engine.FaceControl(0,false);
           Print('Go Buffer');
     Engine.Settarget('Albatross');
    Engine.DlgOpen;
    delay(1000);
    engine.dlgsel(6);
    delay(1000);
    Engine.BypassToServer('bypass');
    
      Engine.SetTarget('Galaxy Express');
      Engine.DlgOpen;
      delay(500);
      engine.dlgsel(6);
      delay(500);
      engine.dlgsel(5);
      Engine.CancelTarget;
      delay(500);
    if user.inrange(174232, -89196, -5122, 1000)
    
     then begin
     print('Moveing to spawn');
     Engine.MoveTo(174249, -88028, -5140);
     
    
      if user.inrange(174249, -88028, -5140, 3000) then begin
    	Delay(500);
    	Engine.FaceControl(0, true);
       print('Arrived');
    
    
    
    end;
    end;
    end;
    end;
    end;
    begin 
    Script.NewThread(@buff);
    end.
    
  5. I'm doing my script to get npc buffs and teleport with the gk. Everything goes perfectly less when you open the buffs dialog and do not catch the buffs, however if you do teleport. Can any tell me what I'm doing wrong?
     
    look image.

                      uses sysutils;
    
    procedure buff;
    
    var Figth_Flag:boolean;
         Item: TL2Item;
         Npc: TL2Npc;
         Obj: TL2Buff;
         IdBuff: integer;
         Buffs:TL2Buff;
    var L2Skill: TL2Skill;
    
    
    function deadCheck: Boolean;
    begin
    Result := false;
        if User.Dead then begin
            Result := true;
            Print('Dead. Pressing to village.');
            Delay(1000);
            Engine.GoHome;
            Delay(1000);
        end
        else
        begin
         Delay(1000);
        end;
        end;
    ///////////////////////////////////////////////////////////
    
           begin
     while true do begin
     deadcheck;
             
    
    
    
    
            
       if user.inrange(83919, 145686, -3431, 250, 150) then begin
       Engine.MoveTo(83900, 147584, -3431);
       Engine.MoveTo(83428, 147832, -3454);
    
       end;
     
        
    ///////////////////////////////////////////////////////////  
    
      if user.inrange(83483, 147918, -3431, 700) then begin
      
       Engine.FaceControl(0,false);
           Print('Go Buffer');
     Engine.Settarget('Albatross');
    Engine.DlgOpen;
      delay(500);
      engine.dlgsel(6);
      delay(200);
      engine.dlgsel(2);
      Engine.CancelTarget;
      delay(500);
    
      Engine.SetTarget('Galaxy Express');
      Engine.DlgOpen;
      delay(500);
      engine.dlgsel(6);
      delay(500);
      engine.dlgsel(5);
      Engine.CancelTarget;
      delay(500);
    if user.inrange(174232, -89196, -5122, 1000)
    
     then begin
     print('Moveing to spawn');
     Engine.MoveTo(174249, -88028, -5140);
     
    
      if user.inrange(174249, -88028, -5140, 3000) then begin
    	Delay(500);
    	Engine.FaceControl(0, true);
       print('Arrived');
    
    
    
    end;
    end;
    end;
    end;
    end;
    begin 
    Script.NewThread(@buff);
    end.
    

    post-101033-0-50318900-1502749632_thumb.png

×
×
  • Create New...