macro incompleta pra ficar com 1.285kk

eventMacro.pm

automacro venderAteTer1kk285 {
    exclusive 1
    BaseLevel > 0
    run-once 1
    Zeny < 4000000 #3kk
    Zeny > 1285000 #1.285kk
    macro_delay 0.5
    call {
        $cidade = yuno
        $coordenada = 218 97
        $npc = Ferramentas
        $item = 1750
        $quantidade = calcularQuantidade($.zeny, $.weight, $.maxweight)
        if (&inventory($item) != -1) {
            $quantidade = &eval(30000 - &invamount($item))
        }
        while ($.zeny > 1285000) {
            [
            warning ===================================
            warning = indo comprar '$quantidade' pegarNomePeloIdDoItem($item)
            warning ===================================
            ]
            
            call comprarItem $cidade "$coordenada" "$npc" $item $quantidade
            do drop &inventory(1750) # Flecha
            $quantidade = calcularQuantidade($.zeny, $.weight, $.maxweight)
        }
        
        [
        log ===================================
        log = cheguei ao final
        log ===================================
        ]
        
    }
}

sub calcularQuantidade {
    my ($zeny, $pesoAtual, $pesoMaximo) = @_;
    
    my $quantoPossoCarregar = ($pesoMaximo - $pesoAtual) * 10;
    if ($zeny - $quantoPossoCarregar >= 1285000) {
        if ($quantoPossoCarregar > 30000) {
            return 30000;
        } else {
            return $quantoPossoCarregar;
        }
    } elsif ($zeny - $quantoPossoCarregar < 1285000) {
        return $zeny - 1285000;
    }
}


macro comprarItem {
    ### $.param[0] tem como valor a cidade
    ### $.param[1] tem como valor as coordenadas
    ### $.param[2] tem como valor o NPC
    ### $.param[3] tem como valor o item
    ### $.param[4] tem como valor a quantidade
    [
    log ===================================
    log = vou em $.param[0] nas coordenadas $.param[1]
    log = conversar com o npc $.param[2] , pode ser
    log = que o nome do npc seja abreviado
    log = para comprar pegarNomePeloIdDoItem($.param[4]) $.param[3]
    log ===================================
    ]
    log movendo-se para $.param[0] $.param[1]
    do move $.param[0] $.param[1] &rand(1,6)
    do talk no
    log conversando com npc de venda
    do talk &npc($.param[1])
    do store
    if (&store($.param[3]) != -1) {
        log o item existe na lista de itens do npc
        log tentando comprar o item
        do buy &store($.param[3]) $.param[4]
    } else {
        [
        log ===================================
        log = ihhhhhhhhhhh deu ruim demais
        log = muita treta vish mano
        log = manda mensagem lá pros criador dessa macro
        log = pq senão vai continuar na treta
        log = E JÁ MANDA AS ÚLTIMAS 20 LINHAS DO CONFIG.TXT
        log = KKKKKKKKKKKKKKKKKKKKKKK
        log ===================================
        ]
        do eval Misc::offlineMode();
    }
}

sub pegarNomePeloIdDoItem {
    my($id) = @_;
    
    if ($id =~ /^\d+$/ && exists $items_lut{$id}) {
        return $items_lut{$id};
    }
    return $id;
}