Advertisement
bls000

PoringZone

Nov 4th, 2015
370
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.11 KB | None | 0 0
  1. automacro porings {
  2.     map prontera
  3.     exclusive 1
  4.     hp > 5%
  5. call {
  6.         do conf route_randomWalk 0
  7.         do conf route_escape_randomWalk 0
  8.         do conf attackAuto 0
  9.         do move prt_fild08
  10.         pause 5
  11.         do move @rand(155, 165) @rand(362, 372)
  12.         do talknpc 159 371 c c c r0 c
  13.         #do move poring_w01 @rand(86, 108) @rand(100, 110)
  14.         pause 8
  15.         do move @rand(100, 103) @rand(95, 98)
  16.         pause 3
  17.         do chat join 0
  18.         do conf attackAuto 2  
  19.         }
  20.     timeout 20
  21. }
  22.  
  23.  
  24. automacro chatdentro {
  25.     hp > 1%
  26.     location poring_w01 107 65 99 73
  27.     call {
  28.         do chat join @rand(0, 1)
  29.     }
  30.     timeout 10
  31. }
  32.  
  33. automacro entrarNovamente {
  34.     hp > 1%
  35.     location poring_w01 112 138
  36.     call {
  37.         do move @rand(100, 103) @rand(95, 98)
  38.         pause 3
  39.         do chat join 0
  40.         do conf attackAuto 2
  41.     }
  42. timeout 10
  43. }
  44.  
  45.  
  46. automacro trocarSala {
  47.     location poring_w01 107 65 99 73
  48.     packet_chatinfo
  49.     save chatID     #0
  50.     save title      #1
  51.     save num_users  #2
  52.     call {
  53.     log o lado $.hooksave1 está cheio trocando
  54.         if ($.hooksave2 > 5) {
  55.             do chat leave
  56.             if ($.hooksave0 == 0) {
  57.             do chat join 1
  58.             } elsif ($.hooksave0 == 1) {
  59.             do chat join 0
  60.         }
  61.     }
  62.     timeout 3
  63.   }
  64. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement