Advertisement
bls000

Buff_Vip

Jun 30th, 2015
410
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.28 KB | None | 0 0
  1. ##############    Buff Vip    ###############
  2. # EFST_FOOD_STR # Steamed Tongue            #
  3. # EFST_FOOD_AGI # Steamed Scorpion          #
  4. # EFST_FOOD_VIT # Stew Of Immortality       #
  5. # EFST_FOOD_DEX # Hwergelmir's Tonic        #
  6. # EFST_FOOD_INT # Dragon Breath Cocktail    #
  7. # EFST_FOOD_LUK # Cooked Nine Tail's Tails  #
  8. #############################################
  9. automacro Cumida {
  10.     # mude o status de acordo com o buff que vc vai pegar
  11.     status not EFST_FOOD_AGI
  12.     inventory "Pergaminho de Ganância" < 1
  13.     zeny > 10000
  14.         call {
  15.     #--------------  Configuração  ------------------#
  16.     # 0 # Primeiro, FOR+8, AGI+6, DES+4, ATQ+32, Esquiva+5!
  17.     # 1 # Segundo,INT+8,DES+6,VIT+4, ATQM+40!
  18.     # 2 # Terceiro, DES+8, AGI+6, SOR+4,ATQ+24, ATQM+24!
  19.     # 3 # Quarto, Todos os atributos +6, ATQ+24,ATQM+24!!
  20.     $buff = 0
  21.    
  22.     #Cidade do npc
  23.     $City = rachel
  24.    
  25.     # Adicione o Were do npc X Y
  26.     $npc = 111 143
  27.    
  28.     #--------------  Configuração  ------------------#
  29.     $rx = @eval(@arg("$npc", 1) + @random("-5","5"))
  30.     $ry = @eval(@arg("$npc", 2) + @random("-5","5"))
  31.        
  32.         log [ Indo Pegar Buff ]
  33.         do conf autoTalkCont 0
  34.         do move $City $rx $ry
  35.         pause 2
  36.         do talknpc $npc c c c c r0 c c c c c r$buff c c n
  37.         do conf autoTalkCont 1
  38.     }
  39. timeout 15
  40. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement