Created
April 28, 2019 18:56
-
-
Save Nipodemos/695ce7f9e89044de4564e011ae1a8399 to your computer and use it in GitHub Desktop.
macro incompleta pra ficar com 1.285kk
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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; | |
| } |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment