Jump to content
MaxCheaters Official Group on Discord
-> Place your ad text here <-
We're Rebuilding – Join Our Staff Team

Крафтер

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

    • L2ElixirOfficial
      [L2J] L2Elixir

      By L2ElixirOfficial · Posted

      Hundreds of players have already jumped into the world of L2Elixir x3, and the server grows bigger every day! A truly international community is forming — EU, NA, LATAM, Asia — all gathering for the same purpose: To relive the L2Elixir era the right way. Join now and be part of the early wave!   Website: https://l2elixir.org/ Discord: https://discord.gg/5ydPHvhbxs   🎄 Christmas Event Activated! 🎄 Craft your Ordinary or Special Christmas Tree, place it outside of a peace zone, and enjoy festive outfits, boosted EXP/SP, Adena, and Drop Rates, plus the Holiday Festival buff  (more HP/MP/CP, higher P.Def/P.Atk/M.Atk, faster movement, reduced MP cost!) every 12-hours! 🎁 Santa’s Hourly Gifts While you’re actively farming, Santa appears worldwide to drop special rewards such as: Special Christmas Tree Christmas Red Sock Santa’s Weapon Exchange Ticket (12h) Gift from Santa Santa Hats & Rudolph accessories Agathion: Rudolph Chest of Experience Shadow Hats Scrolls Event b.soe / b.rez Loot Crates 🔥 Santa’s Weapon Ticket Gives you a D/C/B-grade weapon based on your level, randomly enchanted +4 to +10!  4-hour expiration time. Celebrate, fight, farm — and let Santa upgrade your holidays! 🎅✨
    • DarkPL
      Help hero glow on weapons

      By DarkPL · Posted

      what do u mean i want to change the normal weapons some weapons are working perftect some not getting th effect and the arcana has the effect above the weapons as u see ... i dont what is the probkenm
    • GX-Ext
      🌟 [RELEASE] Full Lineage 2 C4 Accumulative

      By GX-Ext · Posted

      Stop paying for files that are already public and free. Here you can download a fully working Interlude server with C4-like gameplay, including source code so you can compile it yourself and verify everything. People will try to convince you that free releases are “broken”, “full of backdoors”, etc. That’s exactly why I’m also providing the SVN with the full source – so you can: Review the code yourself Remove / modify whatever you don’t like Compile your own binaries What’s included GX-EXT Interlude server (C4-style gameplay) – L2Off Client Interlude tweaked for C4 gameplay Public SVN with source code Downloads: Server GX-EXT: https://www.mediafire.com/file/q5ipkjd36tnhfxv/L2OFF_C4_C4_ACU_GXEXT.rar/file Client Interlude C4 Gameplay: https://www.mediafire.com/file/rdkfc8wwau042oh/Cliente_Interlude_Jugabilidad_C4.rar/file SVN (source code, delayed a couple of months to avoid reselling fresh work): https://svn.l2servers.com.ar/!/#GX-EXT_INTERLUDE User: gx Pass: gx How to compile To compile the source you will need: Visual Studio 2005 (x64 toolset) (Classic L2Off toolchain – yes, it’s old, but that’s what the original server uses.) Use this as you want: learn, test, open your own server, or just audit the code. But please, stop buying the same leaked/resold files over and over when you can get them here for free, with source, and actually know what you’re running.  
    • paparas22
      🌟 [RELEASE] Full Lineage 2 C4 Accumulative

      By paparas22 · Posted

      @GX-Ext Please reupload the pack+web+client because all the links inside that post or in the https://l2servers.com.ar/ are dead
    • Atom
      Help hero glow on weapons

      By Atom · Posted

      Weapon dat is not the same for all, since you have custom things for sure no. You can contact @NevesOma

  • 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