Advertisement
emsjustin

[Macro] 11anos

Oct 7th, 2015
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.58 KB | None | 0 0
  1. automacro quest11anosBRo {
  2.     lvl > 45
  3.     hp > 10%
  4.         call Comodo
  5.     timeout 60
  6.   }
  7.  
  8.     Macro Comodo {
  9.         log [ Movendo Comodo ]
  10.         do ai manual
  11.         do move geffen 118 64
  12.         do talknpc 120 62 c r2 r0
  13.         do move prontera 15 89
  14.         do talknpc 146 89 c r2 r3
  15.         do move morocc 158 88
  16.         do talknpc 156 97 c r2 r3
  17.         log [ ESTOU EM COMODO ]
  18.         do move comodo 211 123
  19.         do talknpc 210 125 c
  20.         do move comodo 240 125 #começa a catar meleca
  21.         call PegaMeleca {
  22.  
  23.     automacro PegaMeleca {
  24.  
  25.         eval $::questList->{15072}->{'active'} eq 1
  26.                 exclusive 1            
  27.         call {
  28.                 if (@invamount (Restos de Lixo) < 20 ) {
  29.                         log Movendo-se para o ponto fixo
  30.                         do move 238 125
  31.                                
  32.                         log Falando com NPC A
  33.                         do talknpc 248 120 c
  34.  
  35.                         log Falando com NPC B
  36.                         do talknpc 233 119 c
  37.                        
  38.                         log Falando com NPC C
  39.                         do talknpc 236 133 c
  40.                         }else{
  41.                         do move @rand(205, 215) @rand(120, 130)
  42.                         do talknpc 210 125 c
  43.                         pause 3
  44.                         do autostorage
  45.                         }
  46.         }
  47.         timeout 6
  48. }
  49.     automacro moeda {
  50. #quando atingir 20 meleca pegar moeda
  51.         inventory Resto de Lixo = 20
  52.         do move comodo 218 124
  53.         do tallnpc 210 125 c
  54. #pegar premio
  55.         do move comodo 189 137
  56.         do talknpc 190 141 c2 c0 c0
  57.         do talknpc 190 141 c2 c1 c0
  58. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement