Jump to content
MaxCheaters Official Group on Discord
Top.MaxCheaters.com is now OPEN – Lineage 2 Top Listing

Help

kr1n0s*
 Share

Recommended Posts

kr1n0s* Newbie

kr1n0s*

Posted
Posted

This is very famous script --> http://www.maxcheaters.com/forum/index.php?topic=66099.0 but also and old scipt.

 

With l2phx 3.5 its make error... so if i want to use it i should connect with older version (3.18) and it work fine.

 

can some1 give me link for 3.5 version? or if some1 can remake it for l2phx3.5

 

here is the script 

const
 Name='Tiara120'; // character
 ItemID=6593; // item id
 LifeID=8762; // lifestone id
 GemsID=2131; // gemstone id
 GemsAmount=25; //gemstone amount
 max=8000;  // max amount of gemstones
var
LifeBase:array[1..max] of integer;    
ColvoLife,ColvoGems,Life,Item,Gems,SocialID,augid:integer;
procedure Init;
var i:integer;
begin
buf:=hstr('0F');
SendToServerEx(Name);
end;
procedure Free;
var i:integer;
begin
for i:=1 to max do
 LifeBase[i]:=0;
end;
function StrToHex(packet: string):string;
var
 i:integer;
 tmp:byte;
 function ByteToHex(b: byte): Char;
 begin
   if b<10 then result:=chr(b+$30)
     else result:=chr(b+$37);
 end;
begin
 result:='';
 for i:=1 to length(packet) do begin
   tmp:=ord(packet[i]) div 16;
   result:=result+ByteToHex(tmp);
   tmp:=ord(packet[i]) - tmp*16;
   result:=result+ByteToHex(tmp)+' ';
 end;
end;
function inttohex(n:integer):string;
var i:integer;
   t:string;
   a:array[0..15] of char;
begin
a[0]:='0';
a[1]:='1';
a[2]:='2';
a[3]:='3';
a[4]:='4';
a[5]:='5';
a[6]:='6';
a[7]:='7';
a[8]:='8';
a[9]:='9';
a[10]:='A';
a[11]:='B';
a[12]:='C';
a[13]:='D';
a[14]:='E';
a[15]:='F';
result:='';
t:='';
i:=0;
while n<>0 do begin
 if (i mod 2=0)and(i>0) then begin
  result:=result+t+' ';
  t:='';
 end;
 t:=a[n mod 16]+t;
 n:=n div 16;
 inc(i);
end;
result:=result+t;
end;
procedure Say;
var i:integer;
   s:string;
begin
 s:='<tr><td>LS='+inttostr(ColvoLife)+' (*'+inttostr(GemsAmount)+'='+inttostr(ColvoLife*GemsAmount)+')</td></tr>';
 s:=s+'<tr><td>Gems='+inttostr(ColvoGems)+' (/'+inttostr(GemsAmount)+'='+inttostr(ColvoGems div GemsAmount)+')</td></tr>';
 s:=s+'<tr><td>---</td></tr>';
 if Item=0 then
  s:=s+'<tr><td>No Weapon</td></tr>'
 else if augid>0 then
  s:=s+'<tr><td>Augmented ('+inttohex(augid)+')</td></tr>'
 else
  s:=s+'<tr><td>Not augmented</td></tr>';
 buf:=hstr('0F 01 00 00 00');
 WriteS('<html><body><br><table width=100%>'+s+'</table><br><br><br><br><br><br>'+
  '"Social Yes" - Cancel Augment(if augmented) and Augment(if you have enough gems and LSs)<br>'+
  '"Social No" - Show this help<br><br>'+
  'Sometimes client dont get packet InventoryUpdate and you see "Not augment" when weapon is augmented.'+
  ' Simply press [Tab] twice or wear weapon.<br><br>'+
  '</body></html>');
//   '<br>'+strtohex(pck)+'</body></html>');
 WriteD(0);
 SendToClientEx(Name);
end;
procedure CreateItemBase; 
var i,ss,j,ObjID,ItmID,ListCount,count,aug:integer;
begin
 Item:=0;
 ss:=1;
 j:=4; 
 ListCount:=ReadH(j); 
 if ListCount>max then ListCount:=max;
 j:=8; 
 for i:=1 to ListCount do begin
    ObjID:=ReadD(j);    
    ItmID:=ReadD(j);    
    Count:=ReadD(j);
    j:=j+14;
    aug:=ReadD(j);
    case ItmID of
       LifeID: begin
           LifeBase[ss]:=ObjID;
           inc(ss);
       end;
       ItemID: begin
           Item:=ObjID;
           augid:=aug;
       end;
       GemsID: begin
           Gems:=ObjID;
           ColvoGems:=Count;
       end;
    end;
   j:=j+6;
 end;
 ColvoLife:=ss-1;
 Say;
end;
procedure UpdateItemBase; 
var i,ii,j,ObjID,ItmID,ListCount,Count,UpdType,aug: integer;
begin
 ListCount:=ReadH(2);
 j:=4;
 for i:=1 to ListCount do begin
   UpdType:=ReadH(j);
   j:=j+2;
   ObjID:=ReadD(j);
   ItmID:=ReadD(j);
   Count:=ReadD(j);
   j:=j+14;
   aug:=ReadD(j);
   case UpdType of
     1:case ItmID of
         ItemID: begin
           Item:=ObjID;
           augid:=aug;
         end;
         LifeID: begin
           for ii:=1 to max do
            if LifeBase[ii]=0 then begin
             LifeBase[ii]:=ObjID;
             ColvoLife:=ColvoLife+1;
             break;
            end;
         end;
       GemsID: begin
           Gems:=ObjID;
           ColvoGems:=Count;
       end;
     end;
     2:case ItmID of
       ItemID: begin
         Item:=ObjID;
         augid:=aug;
       end;
       GemsID: begin
           Gems:=ObjID;
           ColvoGems:=Count;
       end;
     end;
     3:case ItmID of
       ItemID:
         Item:=0;
       GemsID: begin
           Gems:=ObjID;
           ColvoGems:=Count;
       end;
       LifeID: begin
         for ii:=1 to max do
           if LifeBase[ii]=ObjID then begin
            LifeBase[ii]:=0;
            ColvoLife:=ColvoLife-1;
           end;
       end;
     end;
   end;
   j:=j+6;
 end;
Say;
end;
function GetNextLife: integer;
var i:integer;
begin
 Result:=-1;
 for i:=1 to max do begin
   if (LifeBase[i]<>0) then begin
     Result:=LifeBase[i];
     exit;
   end;
 end;
end;
procedure Augment;
begin
buf:=hstr('D0 29 00');
WriteD(Item);
SendToServerEx(Name);
delay(100);
buf:=hstr('D0 2A 00');
WriteD(Item);
WriteD(Life);
SendToServerEx(Name);
delay(100);
buf:=hstr('D0 2B 00');
WriteD(Item);
WriteD(Life);
WriteD(Gems);
WriteD(GemsAmount);
SendToServerEx(Name);
delay(100);
buf:=hstr('D0 2C 00');
WriteD(Item);
WriteD(Life);
WriteD(Gems);
WriteD(GemsAmount);
SendToServerEx(Name);
end;
procedure DisAugment;
begin
buf:=hstr('D0 2D 00');
WriteD(Item);
SendToServerEx(Name);
buf:=hstr('D0 2E 00');
WriteD(Item);
SendToServerEx(Name);
end;
begin
 if pck='' then exit;
 if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
   SocialID:=ReadD(2);
  pck:='';
   case SocialID of
     7: begin
buf:=hstr('A7 2A A0 00 00 80 84 1E 00 0A 00 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(Name);
buf:=hstr('A7 29 A0 00 00 40 0D 03 00 FA 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(Name);

       exit;
      end;
     6: begin
      if augid>0 then begin
       DisAugment;
       delay(300);
      end;
      Life:=GetNextLife;
      if (Life=-1)or(ColvoGems<GemsAmount)or(ColvoLife<1) then
       exit;
      Augment;
      exit;
     end;
     5: begin
      Say;
      exit;
     end;
   end;
 end;
 if FromServer then
 case pck[1] of
   #$1B: CreateItemBase; 
   #$27: UpdateItemBase; 
 end;
end.

Paul_Greatest Newbie

Paul_Greatest

Posted
Posted

Try it

Program ItemSkill;

 

//uses 'Scripts\PacketsT2.script';


uses 'D:\l2phx.3.5.31.162\Scripts\PacketsT2.script'; //if script situated in athor place , change way

const
    MyName='Vilson';            //<-- char nick
    InventorySize       = 180;  //<-- how long items can be input to the inventory
    InventoryOffset     = 30;   //<--shift of the liast inventory , 
    TimeToSelectItem    = 300;  // нdon't change it
    TimeToWaitAugResult = 1200; //if yours server lagggggggged change it more bigest 

       
var
    BaseItems          : array[1..InventorySize,1..12] of integer;
    TimerItemSelect    : TTimer;
    TimerAugItem       : TTimer;
    ReadAugSkillID     : integer;   
    NeedAugSkillID     : integer = 16283; // which skill we would like , (like) augmentation id, table of the basic lists
    
{     
<augmentation id="16281"> <skillId val="3241"> <skillLevel val="10"> <!-- Passive: Increases your M. Atk. --> 
<augmentation id="16336"> <skillId val="3250"> <skillLevel val="10"> <!-- Passive: Increases the critical attack rate of magic attacks. -->		
<augmentation id="16283"> <skillId val="3240"> <skillLevel val="10"> <!-- Passive: Increases your P. Atk. -->		
<augmentation id="16333"> <skillId val="3249"> <skillLevel val="10"> <!-- Passive: Increases your critical attack rate. -->
<augmentation id="16284"> <skillId val="3244"> <skillLevel val="10"> <!-- Passive: Increases your P. Def. -->
<augmentation id="16282"> <skillId val="3245"> <skillLevel val="10"> <!-- Passive: Increases your M. Def. -->
}        
    AugItemSelectCycle :integer;  
    StartAug           :Boolean;
    TargetItemObjID    :integer; //what we would like to augment
    RefinerItemObjID   :integer; //lifestone
    RefinerItemCount   :integer; //lifestone            
    GemStoneItemObjID  :integer; //gemstone
    GemStoneNeed       :integer;
    GemStoneCount      :integer;                

function SetSkillID :integer;
var
  i:integer;
  TextID:integer;
  MyText:string;  
begin
if (ConnectName=MyName) and (FromClient) then 
begin
    i:=2;
    MyText:=ReadS(i);
    TextID:=ReadD(i);
  if (TextID=3)  then 
  begin     
     SendMsg2( MyName, 'Желаемый AugSkillID: ' + MyText); 
     pck:='';
     try 
      Result:=StrToInt(MyText);
     except
      Result:=0;
     end;               
  end;
end;
end;

procedure ItemList;
var
  i, j, k: integer;
  ListSize: integer;
begin     
  j:=4; //пропускаем дo ListSize
  ListSize:=ReadH(j); 
  for i:=1 to ListSize do
  if (i<=ListSize) then 
  begin
      BaseItems[i,1]:=ReadH(j);  //ItemType1            
      BaseItems[i,2]:=ReadD(j);  //ObjectID      
      BaseItems[i,3]:=ReadD(j);  //ItemID            
      BaseItems[i,4]:=ReadD(j);  //LocationSlot      
      BaseItems[i,5]:=ReadD(j);  //Amount: 
      j:=j+4;                    //Amount:                      
      BaseItems[i,6]:=ReadH(j);  //ItemType2            
      BaseItems[i,7]:=ReadH(j);  //CustomType1      
      BaseItems[i,8]:=ReadH(j);  //isEquipped:             
      BaseItems[i,9]:=ReadD(j);  //BodyPart            
      BaseItems[i,10]:=ReadH(j); //EnchantLevel
      BaseItems[i,11]:=ReadH(j); //CustType2
      BaseItems[i,12]:=ReadD(j); //AugmentationID                  
      inc(j,InventoryOffset);
  end 
  else for k:=1 to 12 do BaseItems[i,k]:=0;
  ReadItems;   
end;

procedure InventoryUpdate; //пакет 21, Создает базу ObjectID по ItemID
var
  i, ii, j, k, ListCount, UpdType : integer;
  ItemType1, ObjectID, ItemID, LocationSlot, Count, ItemType2, CustomType1,
  isEquipped, BodyPart, EnchantLevel, CustType2, AugmentationID :integer;
begin
  ListCount:=ReadH(2); //количество итемов
  j:=4; //смещение для действия с предметом 1-добавлен 2-изменен 3-удален
  for i:=1 to ListCount do
  begin
    UpdType       :=ReadH(j);
    ItemType1     :=ReadH(j);
    ObjectID      :=ReadD(j);
    ItemID        :=ReadD(j);
    LocationSlot  :=ReadD(j);
    Count         :=ReadD(j);
    ItemType2     :=ReadH(j);
    CustomType1   :=ReadH(j);
    isEquipped    :=ReadH(j);
    BodyPart      :=ReadD(j);
    EnchantLevel  :=ReadH(j);
    CustType2     :=ReadH(j);
    AugmentationID:=ReadD(j);
    case UpdType of
//      1: 0;         //добавлен новый предмет, игнорим
      2: //изменен предмет в инвентаре
         for ii:=1 to InventorySize do
         begin
          if (BaseItems[ii,2]=ObjectID) then
           begin
            BaseItems[ii,1]:=ItemType1;
            BaseItems[ii,2]:=ObjectID;
            BaseItems[ii,3]:=ItemID;
            BaseItems[ii,4]:=LocationSlot;
            BaseItems[ii,5]:=Count;
            BaseItems[ii,6]:=ItemType2;
            BaseItems[ii,7]:=CustomType1;
            BaseItems[ii,8]:=isEquipped;
            BaseItems[ii,9]:=BodyPart;
            BaseItems[ii,10]:=EnchantLevel;
            BaseItems[ii,11]:=CustType2;
            BaseItems[ii,12]:=AugmentationID;        
            Break;
           end;
         end;
            
      3: begin         //удален
         for ii:=1 to InventorySize do
          if (BaseItems[ii,2]=ObjectID) then
          begin
            for k:=1 to 12 do BaseItems[ii,k]:=0;
            Break;
          end;
         end;
    end;     
    Inc(j,InventoryOffset);
  end;
  ReadItems;
end;

procedure ReadItems;
begin        
  RefinerItemCount:=GetObjectCount(RefinerItemObjID);
  GemStoneCount:=GetObjectCount(GemStoneItemObjID);
end;

function GetObjectCount(inObjectID :integer) : integer;
var
  i : integer;
begin    
for i:=1 to InventorySize do
if (BaseItems[i,2]=inObjectID) then begin  Result:=BaseItems[i,5]; exit; end;
Result:=-1;  
end;

function GetItemId(inObjectID :integer) : integer;
var
  i  : integer;
begin
for i:=1 to InventorySize do
if (BaseItems[i,2]=inObjectID) then begin  Result:=BaseItems[i,3]; exit; end;
Result:=-1;  
end;

function GetObjectId(inItemID :integer) : integer;
var
  i : integer;
begin    
for i:=1 to InventorySize do
if (BaseItems[i,3]=inItemID) then begin  Result:=BaseItems[i,2]; exit; end;
Result:=-1;  
end;
  
procedure onTimerItemSelect(Sender: TObject);
begin 
  if (GemStoneItemObjID<1) or (RefinerItemCount<1) or (TargetItemObjID<1) then
  begin
    StartAug:=False;
    TimerItemSelect.Enabled:=False;
    TimerAugItem.Enabled:=False;
    SendMsg2 (MyName, 'не установлены параметры или нет предметов! ');    
    Exit;               
  end;      
  if (RefinerItemCount<1) then 
  begin
    StartAug:=False;
    TimerItemSelect.Enabled:=False;
    TimerAugItem.Enabled:=False;
    SendMsg2 (MyName, ' закончились lifestone ');
    Exit;
  end;         
if (GemStoneCount<50) then 
  begin
    StartAug:=False;
    TimerItemSelect.Enabled:=False;
    TimerAugItem.Enabled:=False;
    StartAug:=False;
    SendMsg2 (MyName, ' закончились GemStone ');    
    Exit;               
  end;
    
case AugItemSelectCycle of
1:begin   
    RequestExRqItemLink(MyName, TargetItemObjID);            
    Inc(AugItemSelectCycle);
    Exit;   
  end;
2:begin  
    if (TargetItemObjID>1) then RequestConfirmTargetItem(MyName, TargetItemObjID) 
    else begin StartAug:=False;  TimerItemSelect.Enabled:=False; TimerAugItem.Enabled:=False; Exit; end;   
    Inc(AugItemSelectCycle);
    Exit;    
  end;
3:begin
    if (RefinerItemObjID>1) and (TargetItemObjID>1) then
     RequestConfirmRefinerItem(MyName, TargetItemObjID, RefinerItemObjID) 
    else begin StartAug:=False;  TimerItemSelect.Enabled:=False; TimerAugItem.Enabled:=False; Exit; end;   
    Inc(AugItemSelectCycle);
    Exit;          
   end;
4:begin
    if (RefinerItemObjID>1) and (TargetItemObjID>1) and (GemStoneItemObjID>1) and (GemStoneCount>50)  then
     RequestConfirmGemStone(MyName, TargetItemObjID, RefinerItemObjID, GemStoneItemObjID, GemStoneNeed)
    else begin StartAug:=False;  TimerItemSelect.Enabled:=False; Exit; end;        
    TimerAugItem.Enabled:=True;
    AugItemSelectCycle  := 1;
    TimerItemSelect.Enabled :=False;
    Exit;
   end;   
end;
end;

procedure OnTimerAugItem(Sender: TObject);
begin
  RequestRefine(MyName, TargetItemObjID, RefinerItemObjID, GemStoneItemObjID, GemStoneNeed);  
  TimerAugItem.Enabled:=False;
  TimerItemSelect.Enabled:=True;  
end;

procedure Init;
var
i,k: integer;
begin
   for i:=1 to InventorySize do for k:=1 to 12 do BaseItems[i,k]:=0;
   NeedAugSkillID         :=0; 
   AugItemSelectCycle     :=0;  
   StartAug               :=False;
   TargetItemObjID        :=0;    
   RefinerItemObjID       :=0;
   RefinerItemCount       :=0;            
   GemStoneItemObjID      :=0;
   GemStoneCount          :=0; 
              
   TimerItemSelect:=TTimer.Create(nil);
   TimerItemSelect.OnTimer:=@onTimerItemSelect;
   TimerItemSelect.Enabled:=False;
   TimerItemSelect.Interval:=TimeToSelectItem; 
   
   TimerAugItem:=TTimer.Create(nil);
   TimerAugItem.OnTimer:=@OnTimerAugItem;
   TimerAugItem.Enabled:=False;
   TimerAugItem.Interval:=TimeToWaitAugResult; 
   
   SendMsg2( MyName, '________________________________________' );     
   SendMsg2( MyName, 'В парти чат пишем ID аугментации' );
   SendMsg2( MyName, 'Потом аугментировать вещь один раз' );
   SendMsg2( MyName, 'что бы скрипт распознал предметы ' );            
   SendMsg2( MyName, 'Есть вопросы? "Vilson или *****@ua.fm' );   
   SendMsg2( MyName, '________________________________________' ); 
   SendMsg2( MyName, ' ' );   
   SendMsg2( MyName, 'После распознания предметов: ' );            
   SendMsg2( MyName, '  ТАНЕЦ  сброс парметров' );   
   SendMsg2( MyName, '  СТАРТ  соцдействие  ДА ' );
   SendMsg2( MyName, '  СТОП   соцдействие  НЕТ' );
end;

procedure Free;
begin
  TimerItemSelect.Free;
  TimerAugItem.Free;
end;

procedure myRequestActionUse;
var
i,k: integer;
begin
case ReadD(2) of
  24:begin    // /socialyes 
      RequestItemList(MyName);  
      StartAug:=true;
      AugItemSelectCycle:=1;
      TimerItemSelect.enabled:=true;
      SendMsg2( MyName, ' ПЕРЕБИРАЕМ ВАРИАНТЫ ' );
      pck:='';
      exit;     
     end;
  25:begin    // /socialno
      StartAug:=False;
      TimerItemSelect.Enabled:=False;
      TimerAugItem.Enabled:=False;
      SendMsg2( MyName, '   П А У З А  ' );
      pck:='';
      exit;     
     end; 
  34:begin    // /socialdance
      for i:=1 to InventorySize do for k:=1 to 12 do BaseItems[i,k]:=0;
      NeedAugSkillID         :=0; 
      AugItemSelectCycle     :=0;  
      StartAug               :=False;
      TargetItemObjID        :=0;    
      RefinerItemObjID       :=0;
      RefinerItemCount       :=0;            
      GemStoneItemObjID      :=0;
      GemStoneCount          :=0; 
            
      TimerItemSelect.Enabled:=False;
      TimerAugItem.Enabled:=False;
      SendMsg2( MyName, '   Праметры обнулены  ' );
      pck:='';
      exit;                                
     end;     
end;
end;

begin
if (ConnectName=MyName) and (FromServer) then 
case pck[1] of
#$11:ItemList;    
#$21:InventoryUpdate;
#$FE:if ReadH(2)=108 then //RequestExRqItemLinkReply
     begin
      ReadAugSkillID:=ReadH(34);
      if NeedAugSkillID=ReadAugSkillID then 
      begin       
       TimerItemSelect.Enabled:=False; 
       TimerAugItem.Enabled:=False;
       StartAug:=False;
       SendMsg2(MyName, ' УСПЕШНО ПОЛУЧЕН СКИЛ  : '+IntToStr(NeedAugSkillID));       
       Exit;           
      end;            
      SendMsg2(MyName, 'НУЖЕН : '+IntToStr(NeedAugSkillID)+ ', ПОЛУЧЕНО : '+IntToStr(ReadAugSkillID));
      RequestRefineCancel(MyName, TargetItemObjID);            
      pck:='';
      exit;      
     end;   
end;

if (ConnectName=MyName) and (FromClient) then 
case pck[1] of  
#$49:NeedAugSkillID:=SetSkillID; //Say2
#$56:myRequestActionUse;
#$D0:if  ReadH(2)=65 then //RequestConfirmGemStone 
      begin
       if (TargetItemObjID<1) then TargetItemObjID:=ReadD(4);
       if (RefinerItemObjID<1) then RefinerItemObjID:=ReadD(8); 
       if (GemStoneItemObjID<1) then GemStoneItemObjID:=ReadD(12);
       if (GemStoneCount<1) then GemStoneNeed:=ReadD(16);
       SendMsg2(MyName, ' TargetItemObjID     : '+IntToStr(TargetItemObjID));       
       SendMsg2(MyName, ' NeedAugSkillID     : '+IntToStr(NeedAugSkillID));
       SendMsg2(MyName, ' RefinerItemObjID    : '+IntToStr(RefinerItemObjID));
       SendMsg2(MyName, ' GemStoneItemObjID    : '+IntToStr(GemStoneItemObjID));       
       SendMsg2(MyName, ' GemStoneNeed    : '+IntToStr(GemStoneNeed));                                                
      end;      
end
else exit;

end.

PwNNNz0r.^ Newbie

PwNNNz0r.^

Posted
Posted

At least u could hide the script cause it's still hided in the original topic...

Btw on what chronicle u tried it and it gives u error?

well also take in consideration that Anumis made it for IL..

so i'd suggest u the l2phx 3.1.8 version and it should work w/o errors..

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing


  • Posts

    • pannicattack
      L2 Reborn, Who are they?

      By pannicattack · Posted

      p0w3rf1y was Nikita? also how do these things work, they take a base lets say acis or lucera version XXX and then they build up from that to whatever they have today themselves without further company from..again, lucera or acis for example?
    • l2viserion
      L2VISERION CHAPTER IV - 16.05.2026

      By l2viserion · Posted

      - CHAPTER IV NEW START FROM 16.MAY.2026 - RATES Experience (EXP) 30x Skill Points (SP) 30x Adena 10x Drop for Spoil 10x General Drop 10x RaidBoss Drop 3x Manor 4x Quest Drop 2x Quest Reward 3x Fishing Drop 10x Vitality System 25x Clan Reputation Point 2x ENCHANTS Safe Enchant +3 Max. Enchant +16 Normal Scroll chance 70% Blessed Scroll chance 80% Max donation enchant is +8 Yogi event enchant rate is 35% -Olf Max Enchant +9 enchant rates: +1 to +3 100%, +4 65%, +5 65%, +6 60%, +7 60%, +8 50%, +9 45% Elemental Max. Level Level 7 Elemental Stone chance 55% Elemental Crystal chance 50% CONFIGURATION Buffs, Dances, Songs Duration 2 hours Buff Slots 28+4+12 Max. Clients per PC 2 / IP 4 Olympiads Max. Enchant +8 Premium Geodata and Pathnodes Sub-Class Max. Level 85 Offline Shop mode Auto Learn Skills Vitality System Champions System Wedding System Class Master AUTO EVENTS Team vs. Team Last Man Standing Treasure Hunt Korean Style Capture the Flag Lucky Creatures Protect the King Russian Roulette Fight For Throne Deathmatch Domination TvT VIP Advanced Zombies Treasure Hunt No-PvP Hunting Grounds Mass Domination Lucky Chests Mutant Battlefields Mini Events Rabbits Simon Says Summer Meleons Pirates Treasure Hitman - Bounty Hunters Medal Collector Boss Random Etc. RAIDS RESPAWN TIME Valakas 72 hours / 24 hours random spawn Antharas 72 hours / 8 hours random spawn Baium 48 hours / 2 hours random spawn Baylor 24 hours/ 12 hours random spawn Beleth 48 hour OTHER Special Goddess of Destruction and Heroic Cloaks Goddess of Destruction .dress me Armors PvP + Rank + RPC Reward system Daily Quests available in community board New Achievements system Tournament system 1vs1 + Daily Tournament Academy Search for newbies, with payment Party Matching with class filter and manage Register to Fortress Siege as single player Cancelled buffs will return in 60 seconds (disabled) Improved .acpon will use now: MP, CP, GCP, GHP. SOULS Maximum number of slots for Private Store is 50 The maximum level for subclass is up to level 85 Multiple commands with advanced options, see them in com board You can view a monster drop rate and list by using shift+click Olympiad - Heroes are formed every Saturday at 01:05 GMT+2 Advanced Community Board with lots of new features for perfect play Advanced NPC buffer with almost all skills and up to 4 schemes per character Special Quiz event every 5 hours with over 500 questions and good reward Custom special Raids with special drop, with A.I against bots All major raids drop Donation Coins and Divine S Scrolls Super T.Rex with better drop and starting premium pets Glittering Medals from all mobs to exchange for special items Reduced number of clan members to raise the clan level and less reputation required Clan / Alliance has a reduced penalty AutoFarm, Community Cleaner, Weapon Repair system, Player Info, Server Online Statistics And many more... http://l2viserion.com https://www.facebook.com/l2viserion
    • l2viserion
      [L2] VISERION CHAPTER IV - 16.05.2026

      By l2viserion · Posted

      - CHAPTER IV NEW START FROM 16.MAY.2026 - RATES Experience (EXP) 30x Skill Points (SP) 30x Adena 10x Drop for Spoil 10x General Drop 10x RaidBoss Drop 3x Manor 4x Quest Drop 2x Quest Reward 3x Fishing Drop 10x Vitality System 25x Clan Reputation Point 2x ENCHANTS Safe Enchant +3 Max. Enchant +16 Normal Scroll chance 70% Blessed Scroll chance 80% Max donation enchant is +8 Yogi event enchant rate is 35% -Olf Max Enchant +9 enchant rates: +1 to +3 100%, +4 65%, +5 65%, +6 60%, +7 60%, +8 50%, +9 45% Elemental Max. Level Level 7 Elemental Stone chance 55% Elemental Crystal chance 50% CONFIGURATION Buffs, Dances, Songs Duration 2 hours Buff Slots 28+4+12 Max. Clients per PC 2 / IP 4 Olympiads Max. Enchant +8 Premium Geodata and Pathnodes Sub-Class Max. Level 85 Offline Shop mode Auto Learn Skills Vitality System Champions System Wedding System Class Master AUTO EVENTS Team vs. Team Last Man Standing Treasure Hunt Korean Style Capture the Flag Lucky Creatures Protect the King Russian Roulette Fight For Throne Deathmatch Domination TvT VIP Advanced Zombies Treasure Hunt No-PvP Hunting Grounds Mass Domination Lucky Chests Mutant Battlefields Mini Events Rabbits Simon Says Summer Meleons Pirates Treasure Hitman - Bounty Hunters Medal Collector Boss Random Etc. RAIDS RESPAWN TIME Valakas 72 hours / 24 hours random spawn Antharas 72 hours / 8 hours random spawn Baium 48 hours / 2 hours random spawn Baylor 24 hours/ 12 hours random spawn Beleth 48 hour OTHER Special Goddess of Destruction and Heroic Cloaks Goddess of Destruction .dress me Armors PvP + Rank + RPC Reward system Daily Quests available in community board New Achievements system Tournament system 1vs1 + Daily Tournament Academy Search for newbies, with payment Party Matching with class filter and manage Register to Fortress Siege as single player Cancelled buffs will return in 60 seconds (disabled) Improved .acpon will use now: MP, CP, GCP, GHP. SOULS Maximum number of slots for Private Store is 50 The maximum level for subclass is up to level 85 Multiple commands with advanced options, see them in com board You can view a monster drop rate and list by using shift+click Olympiad - Heroes are formed every Saturday at 01:05 GMT+2 Advanced Community Board with lots of new features for perfect play Advanced NPC buffer with almost all skills and up to 4 schemes per character Special Quiz event every 5 hours with over 500 questions and good reward Custom special Raids with special drop, with A.I against bots All major raids drop Donation Coins and Divine S Scrolls Super T.Rex with better drop and starting premium pets Glittering Medals from all mobs to exchange for special items Reduced number of clan members to raise the clan level and less reputation required Clan / Alliance has a reduced penalty AutoFarm, Community Cleaner, Weapon Repair system, Player Info, Server Online Statistics And many more... http://l2viserion.com https://www.facebook.com/l2viserion
    • sellerking
      ⭐ buyingproxy.com | ⭐ $0.95/GB ⭐ Residential Proxies - 80M+

      By sellerking · Posted

      TG Support: Buying Proxy | Channel: Buying Proxy Discord support: #buyingproxy | Server: Join the BuyingProxy Discord Server! Create your account for free here
    • Celestine
      Maxtor is giving reputation points to GX-EXT

      By Celestine · Posted

      It’s been a while since this situation started. As I’ve mentioned before, you are no longer kids you’re grown adults. Please resolve your disagreements through DMs, not forum threads.   I understand that you are competitors, but the rest of the community isn’t interested in your disputes. Stop publicly accusing each other and focus on handling issues privately.   The reputation system is not to be abused. Hearing complaints like “he downvoted me” every day is not productive. This thread will remain locked. Please grow up and handle your problems through private messages.

  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..