Advertisement
bls000

TrocarMoedasPoring

Nov 18th, 2015
324
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.22 KB | None | 0 0
  1. automacro trocarMoedas {
  2.         hp > 1%
  3.         exclusive 1
  4.         priority 3
  5.         overrideAI 1
  6.         inventory "Moeda do Rei Poring" >= 50
  7.         call {
  8.                 [
  9.                 log ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  10.                 log ~ Indo trocar as moedas ~
  11.                 log ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  12.                 ]
  13.                 pause 5
  14.                 do move prontera @rand(140, 155) @rand(50, 65)
  15.                 pause 3
  16.                 do talknpc 146 60 c r3 c
  17.                 release
  18.         }
  19.         timeout 30
  20. }
  21.  
  22. automacro relatorioEvntPoring {
  23.     hp > 1%
  24. call {
  25.         # $quntMoedas = @invamount (Moeda do Rei Poring)
  26.         $quntMoedas = @eval(@invamount (Moeda do Rei Poring) + @storamount (Moeda do Rei Poring))
  27.         $quntAlbum = @eval(@invamount (Álbum Mágico de Cartas) + @storamount (Álbum Mágico de Cartas))
  28.         $quntMelArmas = @eval(@invamount (Caixa das Melhores Armas) + @storamount (Caixa das Melhores Armas))
  29.        
  30.         [
  31.         log ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  32.         log ~ Agora eu tenho $quntMoedas Moedas do Rei Poring ~
  33.         log ~ Agora eu tenho $quntAlbum Álbums de Cartas Mágicas ~
  34.         log ~ Agora eu tenho $quntMelArmas Caixas das Melhores Armas ~
  35.         log ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  36.         ]
  37.     }
  38.     timeout 30
  39. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement