Ung


Administrador

    Como funciona
  1. Tener el primer slot de equip vació.
  2. Tener todas las caja en los primeros slots de use.
  3. Activar el script y listo.

Este script automáticamente dropea los helados.
Recuerda que solo se pueden sacar 20 coins cada día de las Frozen R.


Código:
program FrozenRBoxOpener;
var counter, i, j, stacks, lastStackNumber : integer;
s : String;
function NumberOfDigits(number : integer) : integer;
var temp, digits : integer;
begin
    temp := number;
    digits := 0;
    while temp <> 0 do
    begin
        digits := digits + 1;
        temp := temp / 10;
    end;
    Result := digits;
end;
function Prize (szPacket : String) : String;
begin
    if szPacket = 'E6 01 05 01 48 C4 41 00 01 00 00 00' then
    begin
        counter := counter + 1;
    end
    else if (szPacket = 'E6 01 05 01 C0 72 0F 00 01 00 00 00') OR
            (szPacket = 'E6 01 05 01 C1 72 0F 00 01 00 00 00') OR
    (szPacket = 'E6 01 05 01 C2 72 0F 00 01 00 00 00') OR
    (szPacket = 'E6 01 05 01 C3 72 0F 00 01 00 00 00') then
    begin
        SendPacket('94 00 ** ** ** 00 01 01 00 00 00 01 00');
    end;
    Result := szPacket;
end;
BEGIN
RegisterRecvPacketHandler($1E6, 'Prize');
counter := 0;
stacks := Inventory.GetItemCount(2431884) / 100;
lastStackNumber := Inventory.GetItemCount(2431884) MOD 100;
while counter <> 20 do
begin
    MaplePrint(IntToStr(stacks) + ' - stack');
    MaplePrint(IntToStr(lastStackNumber) + ' - last stack');
    for i := 0 to stacks do
    begin
        if i = stacks then
        begin
            for j := 1 to lastStackNumber do
    begin
        SendPacket('9E 00 ** ** ** 00 ' +IntToHex(i+1, NumberOfDigits(i+1))+ ' 00 8C 1B 25 00 01 00 00 00');
        WaitRecvHeader($1E6);
    end;      
        end
        else
        begin
            for j := 1 to 100 do
            begin
                SendPacket('9E 00 ** ** ** 00 ' +IntToHex(i+1, NumberOfDigits(i+1))+ ' 00 8C 1B 25 00 01 00 00 00');
                WaitRecvHeader($1E6);
            end;
        end;
    end;
end;
END.

Supuestamente este script se debería detener al conseguir 20 coins pero no funciona muy bien.
Dom 15 Dic - 8:02     editar
           

petersom


Usuario
valla esto si es de ayuda esta bueno el aporte ....
Dom 15 Dic - 10:09     editar
           

nexking


Usuario
pues ami me da DC!!
Dom 15 Dic - 10:41     editar
           

ShearNight


Usuario
wow gracias si funciona
Dom 15 Dic - 12:29     editar
           

HeroGorz


Usuario
ami tambien me da dc cuando le doy run al script
Dom 15 Dic - 15:51     editar
           

josecio07


Usuario
dar usa sola vez x qe a la segunda vez qe lo hagas te da DC seguro
Dom 15 Dic - 18:59     editar
           

cuerazos1


Usuario
como c le da run a un script?
Lun 16 Dic - 15:07     editar
           

VANESA451


Usuario
Si Funka .. Gracias.
Lun 16 Dic - 15:13     editar
           

killernoobs


Usuario
Excelente aporte!
Lun 16 Dic - 18:48     editar
           

khal


Usuario
de lujo muchas gracias!!!
Mar 17 Dic - 7:34     editar