Jump to content
MaxCheaters Official Group on Discord
-> Place your ad text here <-
LINEAGE2.GOLD INTERLUDE SERVER ON ESSENCE CLIENT

Крафтер

klizmabeqa1992
 Share

Recommended Posts

klizmabeqa1992 Newbie

klizmabeqa1992

Posted
Posted

Предлагаю на суд общественности вот такой вот небольшой крафтер-бот. Спорить не буду, скрипт сыроват, кое-где может и остался мусор, хотя, старался убрать всё лишнее.

Возможности: крафт и продажа сосок всех видов в автоматическом режиме, закупка соул/спирит оре.

Надо только закидывать кристаллы. Думаю, в будущем научу его делать себе Д, Ц и Б кристаллы. Только не судите слишком строго. С паскалем я практически впервые общаюсь - первый раз был в школе лет этак 10 назад. Потому, есть один огромный вопрос к знатокам: а есть ли возможность в этом самом FastScript'е запускать альтернативные потоки, которые имели бы доступ к данным основного потока? Если да, это ОЧЕНЬ сильно упростило бы дело написания ботов.

Просьба ко всем, кто будет пользоваться этим скриптом: переправьте в массиве pathX, pathY и pathZ последнюю точку пути. Или сам массив измените, чтоб бегал по другому маршруту. Иначе, все боты будут сидеть в одном месте.

 

 

kod:

 

const

 

crafterName = 'crafterBot';

shopMessage = 'Ваша реклама';

minMP = 200;

maxMPtoCraft = 500;

shopResetupTime = 200;

 

minSoulOre = 500;

minSpiritOre = 500;

maxSoulOre = 7000;

maxSpiritOre = 7000;

 

SSDprice = 30;              //цены на соски. чего не понятного?

SSCprice = 60;

SSBprice = 120;

SSAprice = 240;

SSSprice = 1500;

BSSDprice = 125;

BSSCprice = 250;

BSSBprice = 300;

BSSAprice = 600;

BSSSprice = 3000;

 

maxSSD = 20000;                                // максимальное число шотов для крафта на продажу, которое бот будет

maxSSC = 20000;                            // стремиться поддерживать. Ноль означает не крафтить, но если в инвентаре уже есть

maxSSB = 0;                                // соски, он будет пытаться их продать.

maxSSA = 0;                                // Если установлено число больше 0, соответствующий рецепт должен быть изучен

maxSSS = 0;

maxBSSD = 20000;

maxBSSC = 20000;

maxBSSB = 0;

maxBSSA = 0;

maxBSSS = 0;

 

SSDid = 1463;

SSCid = 1464;

SSBid = 1465;

SSAid = 1466;

SSSid = 1467;

BSSDid = 3948;

BSSCid = 3949;

BSSBid = 3950;

BSSAid = 3951;

BSSSid = 3952;

soulOreID = 1785;

spiritOreID = 3031;

 

pathWayPoints = 11; //число точек пути в массиве path

buyPoint = 5;      //точка пути, по достижению которой можно начинать закупку сырья

 

var

out:TForm;

m:TMemo;

infoUpdate, moveOn, mainLoop, crafting, shop, delayedProc, fixTrade :TTimer;

act:integer;

initMode, trading :boolean;

 

pathX, pathY, pathZ :array[1..pathWayPoints] of integer;

shopping :array[1..3] of String;

 

posX, posY, posZ, currentWayPoint, targetWayPoint, lastRSM :integer;

 

SSD, SSC, SSB, SSA, SSS, BSSD, BSSC, BSSB, BSSA, BSSS, soulOre, spiritOre :integer;

SSDoid, SSCoid, SSBoid, SSAoid, SSSoid, BSSDoid, BSSCoid, BSSBoid, BSSAoid, BSSSoid :integer;

 

MyID, MP, maxMP, traderId, buyListID, shopPhase, requestShopManage :integer;

 

i, count, resetupTimer :integer;

 

 

procedure OnTimer;

begin

    m.Lines.Clear;

    m.Lines.Add('Current position: '+IntToStr(posX)+', '+IntToStr(posY)+', '+IntToStr(posZ));

    m.Lines.Add('Target waypoint: #'+IntToStr(targetWayPoint)+' ('+IntToStr(pathX[targetWayPoint])+', '+IntToStr(pathY[targetWayPoint])+', '+IntToStr(pathZ[targetWayPoint])+')');

    m.Lines.Add('Current waypoint: #'+IntToStr(currentWayPoint));

    m.Lines.Add('MP: '+IntToStr(MP)+'/'+IntToStr(maxMP));

    m.Lines.Add('SSD count:'+IntToStr(SSD));

    m.Lines.Add('SSC count:'+IntToStr(SSC));

    m.Lines.Add('SSB count:'+IntToStr(SSB));

    m.Lines.Add('SSA count:'+IntToStr(SSA));

    m.Lines.Add('SSS count:'+IntToStr(SSS));

    m.Lines.Add('BSSD count:'+IntToStr(BSSD));

    m.Lines.Add('BSSC count:'+IntToStr(BSSC));

    m.Lines.Add('BSSB count:'+IntToStr(BSSB));

    m.Lines.Add('BSSA count:'+IntToStr(BSSA));

    m.Lines.Add('BSSS count:'+IntToStr(BSSS));

    m.Lines.Add('SpiritOre count:'+IntToStr(spiritOre));

    m.Lines.Add('SoulOre count:'+IntToStr(soulOre));

    m.Lines.Add('Last shop request: '+IntToStr(lastRSM));

    if trading then m.Lines.Add('Trading...') else m.Lines.Add('Trading stopped.');

    if infoUpdate.enabled then m.Lines.Add('infoUpdate: enabled') else m.Lines.Add('infoUpdate: disabled');

    if moveOn.enabled then m.Lines.Add('moveOn: enabled') else m.Lines.Add('moveOn: disabled');

    if mainLoop.enabled then m.Lines.Add('mainLoop: enabled') else m.Lines.Add('mainLoop: disabled');

    if crafting.enabled then m.Lines.Add('crafting: enabled') else m.Lines.Add('crafting: disabled');

    if shop.enabled then m.Lines.Add('shop: enabled') else m.Lines.Add('shop: disabled');

 

end;

 

procedure moveOnTimer;

var

  dx, dy, dz, d :integer;

begin

    dx:=posX-pathX[currentWayPoint];

    dy:=posY-pathY[currentWayPoint];

    dz:=posZ-pathZ[currentWayPoint];

    d:=Round(sqrt(dx*dx+dy*dy));

 

    if (d<40) and (sqrt(dz*dz)<500) then

    begin

          if (currentWayPoint=targetWayPoint) then moveOn.enabled:=false

          else begin

              currentWayPoint:=currentWayPoint+1;

              if (currentWayPoint>pathWayPoints) then currentWayPoint:=1;

          end;

          exit;

    end

    else begin

          buf:='';

          WriteC(1);

          WriteD(pathX[currentWayPoint]);

          WriteD(pathY[currentWayPoint]);

          WriteD(pathZ[currentWayPoint]);

          WriteD(posX);

          WriteD(posY);

          WriteD(posZ);

          WriteD(1);

          SendToServerEx(crafterName);

    end;

end;

 

procedure StartTrade;

begin

    mainLoop.enabled:=false;

    requestShopManage:=1;

    buf:=#$73;

    SendToServerEx(crafterName);

    fixTrade.enabled:=true;

end;

 

procedure StartTrade2;

begin

    requestShopManage:=0;

    buf:=#$77;

    WriteS(shopMessage);

    SendToServerEx(crafterName);

    delay(100);

    buf:=#$74;

    WriteD(0); WriteD(0);

    count:=0;

    if (SSD>0) then begin inc(count); WriteD(SSDoid); WriteD(SSD); WriteD(SSDprice); end;

    if (SSC>0) then begin inc(count); WriteD(SSCoid); WriteD(SSC); WriteD(SSCprice); end;

    if (SSB>0) then begin inc(count); WriteD(SSBoid); WriteD(SSB); WriteD(SSBprice); end;

    if (SSA>0) then begin inc(count); WriteD(SSAoid); WriteD(SSA); WriteD(SSAprice); end;

    if (SSS>0) and (count<4) then begin inc(count); WriteD(SSSoid); WriteD(SSS); WriteD(SSSprice); end;

    if (BSSD>0) and (count<4) then begin inc(count); WriteD(BSSDoid); WriteD(BSSD); WriteD(BSSDprice); end;

    if (BSSC>0) and (count<4) then begin inc(count); WriteD(BSSCoid); WriteD(BSSC); WriteD(BSSCprice); end;

    if (BSSB>0) and (count<4) then begin inc(count); WriteD(BSSBoid); WriteD(BSSB); WriteD(BSSBprice); end;

    if (BSSA>0) and (count<4) then begin inc(count); WriteD(BSSAoid); WriteD(BSSA); WriteD(BSSAprice); end;

    if (BSSS>0) and (count<4) then begin inc(count); WriteD(BSSSoid); WriteD(BSSS); WriteD(BSSSprice); end;

    if (count=0) then exit;

    WriteD(count,6);

    SendToServerEx(crafterName);

    resetupTimer:=0;

    trading:=true;

    mainLoop.enabled:=true;

    delayedProc.enabled:=false;

    fixTrade.enabled:=false;

end;

 

procedure StopTrade;

begin

    mainLoop.enabled:=false;

    buf:=HStr('1D 01 00 00 00');

    SendToServerEx(crafterName);

    delay(200);

    requestShopManage:=2;

    buf:=#$73;

    SendToServerEx(crafterName);

    fixTrade.enabled:=true;

end;

 

procedure StopTrade2;

begin

    requestShopManage:=0;

    buf:=#$76;

    SendToServerEx(crafterName);

    delay(100);

    trading:=false;

    mainLoop.enabled:=true;

    delayedProc.enabled:=false;

    fixTrade.enabled:=false;

end;

 

procedure mainLoopTick;

var

  toCraft :boolean;

begin

    if moveOn.enabled then exit;

 

    if (currentWayPoint=buyPoint) then

    begin

          mainLoop.enabled:=false;

          targetWayPoint:=pathWayPoints;

          shop.enabled:=true;

          exit;

    end;

 

    if(soulOre<minSoulOre) or (spiritOre<minSpiritOre) then

    begin

          if (SSD+SSC+SSB+SSA+SSS+BSSD+BSSC+BSSB+BSSA+BSSS=0) then

          begin buf:=HStr('1D 01 00 00 00'); SendToServerEx(crafterName); end

          else StopTrade;

          targetWayPoint:=buyPoint;

          moveOn.enabled:=true;

          exit;

    end;

 

    resetupTimer:=resetupTimer+10;

    toCraft:=false;

    if (SSD<maxSSD) then toCraft:=true;

    if (SSC<maxSSC) then toCraft:=true;

    if (SSB<maxSSB) then toCraft:=true;

    if (SSA<maxSSA) then toCraft:=true;

    if (SSS<maxSSS) then toCraft:=true;

    if (BSSD<maxBSSD) then toCraft:=true;

    if (BSSC<maxBSSC) then toCraft:=true;

    if (BSSB<maxBSSB) then toCraft:=true;

    if (BSSA<maxBSSA) then toCraft:=true;

    if (BSSS<maxBSSS) then toCraft:=true;

    if toCraft and (MP>maxMPtoCraft) and trading then

    begin

          mainLoop.enabled:=false;

          crafting.enabled:=true;

          exit;

    end;

    if (trading=false) then begin StartTrade; exit; end;

    if (resetupTimer<shopResetupTime) then exit;

    if (SSD+SSC+SSB+SSA+SSS+BSSD+BSSC+BSSB+BSSA+BSSS=0) then begin

                                                                  buf:=HStr('1D 01 00 00 00');

                                                                  SendToServerEx(crafterName);

                                                                  exit;

                                                              end;

    StopTrade;

end;

 

procedure craftingTick;

var

nocraft :boolean;

begin

    nocraft:=true;

    if (SSD<maxSSD) then begin buf:=HStr('AF 14 00 00 00'); SendToServerEx(crafterName); delay(33); nocraft:=false; end;

    if (SSC<maxSSC) then begin buf:=HStr('AF 15 00 00 00'); SendToServerEx(crafterName); delay(33); nocraft:=false; end;

    if (SSB<maxSSB) then ;

    if (SSA<maxSSA) then ;

    if (SSS<maxSSS) then ;

    if (BSSD<maxBSSD) then begin buf:=HStr('AF 43 01 00 00'); SendToServerEx(crafterName); delay(33); nocraft:=false; end;

    if (BSSC<maxBSSC) then begin buf:=HStr('AF 44 01 00 00'); SendToServerEx(crafterName); delay(33); nocraft:=false; end;

    if (BSSB<maxBSSB) then ;

    if (BSSA<maxBSSA) then ;

    if (BSSS<maxBSSS) then ;

 

    if (MP<minMP) or nocraft then

    begin

          crafting.enabled:=false;

          mainLoop.enabled:=true;

          exit;

    end;

end;

 

procedure shoppingTick;

begin

    if(shopPhase<4) then

    begin

          buf:=shopping[shopPhase];

          SendToServerEx(crafterName);

          inc(shopPhase);

          exit;

    end;

    if(buyListID=0) then exit;

    shopPhase:=1;

    shop.enabled:=false;

    buf:=#$1F;

    WriteD(buyListID);

    WriteD(0); i:=0;

    if(soulOre<maxSoulOre) then

    begin

          WriteD(soulOreID); WriteD(maxSoulOre-soulOre);

          inc(i);

    end;

    if(spiritOre<maxSpiritOre) then

    begin

          WriteD(spiritOreID); WriteD(maxSpiritOre-spiritOre);

          inc(i);

    end;

    WriteD(i,6);

    SendToServerEx(crafterName);

    buyListID:=0;

    moveOn.enabled:=true;

    mainLoop.enabled:=true;

end;

 

procedure fixOnTimer;

begin

    buf:=#$76;

    SendToServerEx(crafterName);

    delay(200);

    buf:=#$73;

    SendToServerEx(crafterName);

end;

 

procedure Init; //Вызывается при включении скрипта

begin

    out := TForm.Create(nil);

    out.Caption := 'Status';

    out.BorderStyle := bsSizeable;

    out.Position := poScreenCenter;

    out.Width:=400;

    out.Height:=600;

    m:=TMemo.Create(out);

    m.parent:=out;

    m.align:=alClient;

    m.ReadOnly:=true;

    m.ScrollBars:=ssBoth;

    out.Show;

 

    infoUpdate:=TTimer.Create(nil);

    infoUpdate.OnTimer:=@OnTimer;

    infoUpdate.interval:=1000;

 

    moveOn:=TTimer.Create(nil);

    moveOn.OnTimer:=@moveOnTimer;

    moveOn.interval:=1000;

    moveOn.enabled:=false;

 

    mainLoop:=TTimer.Create(nil);

    mainLoop.OnTimer:=@mainLoopTick;

    mainLoop.interval:=10000;

    mainLoop.enabled:=false;

 

    crafting:=TTimer.Create(nil);

    crafting.OnTimer:=@craftingTick;

    crafting.interval:=333;

    crafting.enabled:=false;

 

    shop:=TTimer.Create(nil);

    shop.OnTimer:=@shoppingTick;

    shop.interval:=500;

    shop.enabled:=false;

 

    delayedProc:=TTimer.Create(nil);

    delayedProc.OnTimer:=nil;

    delayedProc.interval:=333;

    delayedProc.enabled:=false;

 

    fixTrade:=TTimer.Create(nil);

    fixTrade.OnTimer:=@fixOnTimer;

    fixTrade.interval:=30000;

    fixTrade.enabled:=false;

 

    posX:=0; posY:=0; posZ:=0;

    SSD:=0; SSC:=0; SSB:=0; SSA:=0; SSS:=0; BSSD:=0; BSSC:=0; BSSB:=0; BSSA:=0; BSSS:=0;

    act:=0;

    MyID:=0;

    traderId:=0;

    shopPhase:=1;

    buyListID:=0;

 

    currentWayPoint:=pathWayPoints;

    targetWayPoint:=pathWayPoints;

 

    pathX[1]:= 80687; pathY[1]:= 148621; pathZ[1]:= -3490;

    pathX[2]:= 79833; pathY[2]:= 148476; pathZ[2]:= -3559;

    pathX[3]:= 79804; pathY[3]:= 148213; pathZ[3]:= -3559;

    pathX[4]:= 80247; pathY[4]:= 148172; pathZ[4]:= -3534;

    pathX[5]:= 80466; pathY[5]:= 147892; pathZ[5]:= -3533;

 

    pathX[6]:= 80185; pathY[6]:= 148185; pathZ[6]:= -3534;

    pathX[7]:= 79787; pathY[7]:= 148246; pathZ[7]:= -3559;

    pathX[8]:= 79867; pathY[8]:= 148584; pathZ[8]:= -3559;

    pathX[9]:= 80885; pathY[9]:= 148624; pathZ[9]:= -3495;

    pathX[10]:= 81749; pathY[10]:= 148292; pathZ[10]:= -3493;

    pathX[11]:= 0; pathY[11]:= 0; pathZ[11]:= -3493;

 

    shopping[3]:=HStr('21 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 31 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 30 00 00 00');

 

    infoUpdate.enabled:=true;

    initMode:=true;

    trading:=false;

    buf:=#$0F;

    SendToServerEx(crafterName);

    {delay(100);

    buf:=HStr('A0 03 00 00 00');

    SendToServerEx(crafterName);}

end;

 

procedure Free; //Вызывается при выключении скрипта

begin

    mainLoop.Free;

    crafting.Free;

    infoUpdate.Free;

    moveOn.Free;

    m.Free;

    out.Free;

    fixTrade.Free;

    delayedProc.Free;

    shop.free;

end;

 

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения

begin

 

end;

 

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения

begin

 

end;

 

//основная часть скрипта

//вызывается при приходе каждого пакета если скрипт включен

begin

    if (ConnectName<>crafterName) then exit;

    case FromServer of

    true: begin            //Обработка пакетов сервера

 

    if (pck[1]=#$04) then

    begin

          maxMP:=ReadD(84);

          MP:=ReadD(88);

          if initMode=false then exit;

 

          posX:=ReadD(2);

          posY:=ReadD(6);

          posZ:=ReadD(10);

          initMode:=false;

          MyID:=ReadD(18);

 

          moveOn.enabled:=true;

          mainLoop.enabled:=true;

          resetupTimer:=0;

          exit;

    end;

 

    if (pck[1]=#$1B) then                  //Загрузка инвентаря

    begin

        count:=ReadH(4);

        for i:=0 to count-1 do

        case ReadD(i*28+12) of

              SSDid: begin SSD:=ReadD(i*28+16); SSDoid:=ReadD(i*28+8); end;

              SSCid: begin SSC:=ReadD(i*28+16); SSCoid:=ReadD(i*28+8); end;

              SSBid: begin SSB:=ReadD(i*28+16); SSBoid:=ReadD(i*28+8); end;

              SSAid: begin SSA:=ReadD(i*28+16); SSAoid:=ReadD(i*28+8); end;

              SSSid: begin SSS:=ReadD(i*28+16); SSSoid:=ReadD(i*28+8); end;

              BSSDid: begin BSSD:=ReadD(i*28+16); BSSDoid:=ReadD(i*28+8); end;

              BSSCid: begin BSSC:=ReadD(i*28+16); BSSCoid:=ReadD(i*28+8); end;

              BSSBid: begin BSSB:=ReadD(i*28+16); BSSBoid:=ReadD(i*28+8); end;

              BSSAid: begin BSSA:=ReadD(i*28+16); BSSAoid:=ReadD(i*28+8); end;

              BSSSid: begin BSSS:=ReadD(i*28+16); BSSSoid:=ReadD(i*28+8); end;

              soulOreID: begin soulOre:=ReadD(i*28+16); end;

              spiritOreID: begin spiritOre:=ReadD(i*28+16); end;

        end;

        exit;

    end;

 

    if (pck[1]=#$27) then                    //Обновление инвентаря

    begin

          count:=ReadH(2);

          for i:=0 to count-1 do

          begin

              act:=ReadH(i*30+4);

              case ReadD(i*30+12) of

                    SSDid: case act of

                            1: SSD:=SSD+ReadD(i*30+16);

                            2: SSD:=ReadD(i*30+16);

                            3: SSD:=SSD-ReadD(i*30+16);

                            end;

                    SSCid: case act of

                            1: SSC:=SSC+ReadD(i*30+16);

                            2: SSC:=ReadD(i*30+16);

                            3: SSC:=SSC-ReadD(i*30+16);

                            end;

                    SSBid: case act of

                            1: SSB:=SSB+ReadD(i*30+16);

                            2: SSB:=ReadD(i*30+16);

                            3: SSB:=SSB-ReadD(i*30+16);

                            end;

                    SSAid: case act of

                            1: SSA:=SSA+ReadD(i*30+16);

                            2: SSA:=ReadD(i*30+16);

                            3: SSA:=SSA-ReadD(i*30+16);

                            end;

                    SSSid: case act of

                          1: SSS:=SSS+ReadD(i*30+16);

                          2: SSS:=ReadD(i*30+16);

                          3: SSS:=SSS-ReadD(i*30+16);

                          end;

                    BSSDid: case act of

                            1: BSSD:=BSSD+ReadD(i*30+16);

                            2: BSSD:=ReadD(i*30+16);

                            3: BSSD:=BSSD-ReadD(i*30+16);

                            end;

                    BSSCid: case act of

                            1: BSSC:=BSSC+ReadD(i*30+16);

                            2: BSSC:=ReadD(i*30+16);

                            3: BSSC:=BSSC-ReadD(i*30+16);

                            end;

                    BSSBid: case act of

                            1: BSSB:=BSSB+ReadD(i*30+16);

                            2: BSSB:=ReadD(i*30+16);

                            3: BSSB:=BSSB-ReadD(i*30+16);

                            end;

                    BSSAid: case act of

                            1: BSSA:=BSSA+ReadD(i*30+16);

                            2: BSSA:=ReadD(i*30+16);

                            3: BSSA:=BSSA-ReadD(i*30+16);

                            end;

                    BSSSid: case act of

                            1: BSSS:=BSSS+ReadD(i*30+16);

                            2: BSSS:=ReadD(i*30+16);

                            3: BSSS:=BSSS-ReadD(i*30+16);

                            end;

                    soulOreID: case act of

                            1: soulOre:=soulOre+ReadD(i*30+16);

                            2: soulOre:=ReadD(i*30+16);

                            3: soulOre:=soulOre-ReadD(i*30+16);

                            end;

                    spiritOreID: case act of

                            1: spiritOre:=spiritOre+ReadD(i*30+16);

                            2: spiritOre:=ReadD(i*30+16);

                            3: spiritOre:=spiritOre-ReadD(i*30+16);

                            end;

              end;

          end;

          exit;

    end;

 

    if (pck[1]=#$0E) and (ReadD(2)=MyID) then

    begin

          count:=ReadD(6);

          for i:=0 to (count-1) do

          case ReadD(10+i*8) of

              11: MP:=ReadD(14+i*8);

              12: maxMP:=ReadD(14+i*8);

          end;

          exit;

    end;

 

    if (pck[1]=#$9A) and (ReadD(2)=MyID) then begin

                                count:=ReadD(14);

                                for i:=0 to count-1 do

                                case ReadD(i*30+26) of

                                SSDid: SSDoid:=ReadD(i*30+22);

                                SSCid: SSCoid:=ReadD(i*30+22);

                                SSBid: SSBoid:=ReadD(i*30+22);

                                SSAid: SSAoid:=ReadD(i*30+22);

                                SSSid: SSSoid:=ReadD(i*30+22);

                                BSSDid: BSSDoid:=ReadD(i*30+22);

                                BSSCid: BSSCoid:=ReadD(i*30+22);

                                BSSBid: BSSBoid:=ReadD(i*30+22);

                                BSSAid: BSSAoid:=ReadD(i*30+22);

                                BSSSid: BSSSoid:=ReadD(i*30+22);

                                end;

 

                                case requestShopManage of

                                    0: exit;

                                    1: delayedProc.OnTimer:=@StartTrade2;

                                    2: delayedProc.OnTimer:=@StopTrade2;

                                end;

                                delayedProc.enabled:=true;

                                exit;

                          end;

 

    if (pck[1]=#$11) then buyListID:= ReadD(6);

 

    end;          //end of case 'true'

 

    false: begin  //Обработка пакетов клиента

 

    if (pck[1]=#$48) then

    begin

          posX:=ReadD(2);

          posY:=ReadD(6);

          posZ:=ReadD(10);

          exit;

    end;

 

    if (pck[1]=#$04) and (traderId=0) then

    begin

          traderId:=ReadD(2);

          buf:=#$04;

          WriteD(traderID);

          WriteD(posX);

          WriteD(posY);

          WriteD(posZ);

          WriteC(0);

          shopping[1]:=buf;

          shopping[2]:=buf;

    end;

 

    end;  //end of case 'false'

    end;  //end of case

 

end.

  • 4 months later...

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

    • ak4n1
      L2Tool Java 17, Extract Textures

      By ak4n1 · Posted

      Hi everyone, A while ago, I needed to extract some L2 textures and found that acmi's L2Tool was a good way to do it. There might be other methods out there but I'm not aware of them, so I decided to fork this project and improve it to suit my needs. I built this using BellSoft Liberica JDK 17. Since modern Java versions no longer include JavaFX by default, I've made the app handle it automatically. You don't need any manual setup—just use the  run.bat  and it will automatically extract the required JavaFX modules on the first run. Key features of this fork: UI Overhaul: I've tweaked the interface to give it a cleaner look with Dark Mode and more detailed metadata for each texture. Export Formats: You can now extract textures in WEBP, PNG, and DDS. Individual or Batch Export: Flexible options to export a single selected texture or the entire package at once.     I'm leaving the link here in case it's useful to anyone!   Installation and Execution:     Clone the repository:   https://github.com/Ak4n1/l2tool cd l2tool          2.Build the project:   ./gradlew build              3. Run the application:         ./run.bat      Or simply double-click on run.bat.    
    • Kotsidaki
      Wtb items on l2walrand

      By Kotsidaki · Posted

      Wtb full account or items on l2 warland 
    • VegaBoy
      [L2J] L2Old Pride

      By VegaBoy · Posted

      https://discord.gg/k53SZ4DM5z   Interlude Client L2Old Pride is a L2 Pride Interlude Based All functional skills (Not archer/mage server)   L2Old Pride Helper (Works like Woundrous Cubic) https://imgur.com/iYqmHQY Farm Zones: Cave of Trials and Elven Ruins (Chaotic) Olympiads: Every 15 days Various Cosmetic Items https://imgur.com/uoeU6Jw https://imgur.com/oCS2Zed PvP Zone: Gludin Village (No-Parties, Disguised) More than 100 new Skills https://imgur.com/6RaPsQV Max Level: 90 https://imgur.com/z4QVJKZ Gaining Xp by PVP https://imgur.com/LRqI31T Purchasable S-grade items +10 or +20 with random chance to enchant +5 Purchasable Custom Items Depends on Tier Mysterious Merchants https://imgur.com/2ZwWyPH Auto Enchant Via PvPing (with low chance) Custom Raid Bosses Siege Every Weekend (Aden, Rune, Giran) Autofarm / Drop Tracker https://imgur.com/Vz3rha6   RATES: • Start Level 80 • Max level 90  • EXP: 5000x • SP: 5000x • ADENA 6000x   ENCHANT: • Maximum enchant S Grade Items: +35. • Maximum enchant Unique/Epic Items: +25. • Maximum enchant Legendary Items: +18. • Maximum enchant Relic Items: +14. •Descriptions for rate at scrolls!   EVENTS: • TEAMS vs TEAMS • CAPTURE THE FLAG • DOMINATION • DEATH MATCH • DICE OF DEATH • CHAOTIC ZONE   OTHERS: Assistance system in pvps. Where support classes are enabled to receive pvp with a low chance, for supporting a party member during pvp. •  /sit to regen HP/MP/CP • Custom Shots Glows https://imgur.com/FLK0DmR • Achievements System • Daily Tasks System • Monthly Tasks System   CUSTOM ARMORS SETS Dread Armor/Titanium Armor Pride Armor Rykros Armor https://imgur.com/SPxoQp1   CUSTOM WEAPONS SETS Unique Weapons Pride Weapons Legendary Weapons Relic Weapons https://imgur.com/kOHNXhS   CUSTOM ACCESSORIES Standard Superior Legendary https://imgur.com/zPqNiiX   CUSTOM JEWELS/TATTOO Legendary Nightmarish https://imgur.com/gcqS28P There are many more features that you will only understand by playing and following. Beta testing server is currently open. Follow us on our discord and join our server to test it.
    • VPSLab
      — VPSLAB — Fast & Private RDP/VPS | 100% Instant Setup

      By VPSLab · Posted

      Active & Taking Orders!
    • Tryskell
      Attack Speed problem with ultra status server [aCis]

      By Tryskell · Posted

      You shouldn't use rev 382, not sure why everyone keep using that.   I don't make changesets for fun, I don't make new revisions for nothing.   Follow the revisions.

  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock