Jump to content

Крафтер


Recommended Posts

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

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

Надо только закидывать кристаллы. Думаю, в будущем научу его делать себе Д, Ц и Б кристаллы. Только не судите слишком строго. С паскалем я практически впервые общаюсь - первый раз был в школе лет этак 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.

Link to comment
Share on other sites

  • 4 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Posts

    • Their innovative approach combines cutting-edge technology with expert insights to create resumes that truly stand out. As I explored their website https://skillroads.com/ , I was impressed by the user-friendly interface and the seamless process of using their AI Resume Writer tool. With just a few clicks, I was able to generate a professional resume tailored to my skills and experiences. Skillroads' commitment to excellence and their utilization of AI technology make them a standout choice for anyone looking to enhance their career prospects with a compelling resume.
    • We are giving out promo codes for 3GBs for testing Asocks proxy. All you need to do is post a reply in this thread.
    • Slim X Keto Gummies Slim X Keto Gummies Weight loss is everyone’s hassle those days. Many humans combat with themselves to reduce off their greater weight however couldn’t get a result. This demotivates a number of them and they will lose preference of dropping weight. Overweight reasons many health-associated issues that might create troubles for your ordinary life. If you observed that your every day exercise or a few tablets can also furthermore need to make you shed pounds in a brief fraction of time. Then this isn't always flow that will help you solely. You want to perform a piece detail that is useful for you frame as well. You want to begin following keto fast as possible. It is the super form of  however it can restriction your flavor buds however doesn’t restriction your eating. It allows you to consume however limits to a few form of food. But to cope with keto flu and to offer hundreds of power there’s a supplement.   https://atozsupplement.com/slim-x-keto-gummies/ https://www.facebook.com/slimxketogummies/ https://slimxketogummies.wixsite.com/slim-x-keto-gummies/ https://slim-x-keto-gummies.hp.peraichi.com/ https://slim-x-keto-gummies.jimdosite.com/ https://slim-x-keto-gummies.yolasite.com/ https://slim-x-keto-gummies.company.site/ https://slim-x-keto-gummies.webflow.io/ https://github.com/slim-x-keto-gummies https://slim-x-keto-gummies.tilda.ws/
    • GRAND OPENING  19.04.2024 OPEN BETA TEST  15.04.2024 - 18.04.2024     RATES XP/SP - x3 Adena Drop Chance - x2 Adena Drop Amount - x1 Drop Chance - x2 Drop Amount - x1 Spoil Chance - x2 Spoil Amount - x1 Raidboss Drop Chance - x5 Raidboss Drop Amount - x1 Quest Chance - x1 Quest Reward - x1   FEATURES 1. Added NPC Buffer with basic buffs (duration 60m). 2. Added Mana Drugs and Greater Mana Drugs, which work like Healing Potions. 3. Added skills "Summon Mana Drug" & "Summon Greater Mana Drug" to Elven and Shillen Elders. 4. Basic Mana Drugs can be bought in Grocery Store. 5. Blade Dancer and Sword Singer have both, Dances and Songs from Second Profession. 6. No need duals for dances from Second Profession 7. Increase Weight Limit +30% 8. Increase Inventory Slots from 80 to 120 9. Set Raidboss's respawn 24h +/- 30 minutes. 10. Remake monsters spawns. 11. Olympiad Period - 2 weeks. 12. Change Queen Ant, Core, Orfen, Zaken lvl to 75. 13. Increase Epic Jewelery Bonus. -Ring of Core +2 INT/WIT/MEN -Earring of Orfen +2 STR/DEX/CON     website - https://www.primeinterlude.com  facebook - https://www.facebook.com/profile.php?id=61550083156269 discord - https://discord.gg/2T7nTTz2Gt   Promo Video
  • Topics

×
×
  • Create New...