Advertisement
Guest User

Untitled

a guest
Nov 19th, 2017
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.42 KB | None | 0 0
  1. ################################################################################
  2. ####+-+-+ +-+ +-+-+-+-+####
  3. ####|P|M| |2| |W|A|R|P|####
  4. ####+-+-+ +-+ +-+-+-+-+####
  5. #### +-+-+ ####
  6. #### |B|Y| ####
  7. #### +-+-+ ####
  8. ####+-+-+-+-+-+-+-+-+-+####
  9. ####|G|a|m|e|N|i|k|k|o|####
  10. ####+-+-+-+-+-+-+-+-+-+####
  11.  
  12. ###########################
  13. ##########WARPS############
  14. ###########################
  15.  
  16. automacro warp {
  17. console /\(From: (.*)\) : (warp 1|warp 2|warp 3|warp 4)/
  18. call {
  19. $x = @arg ("$.pos", 1)
  20. $y = @arg ("$.pos", 2)
  21. $xx = @eval ($x + @random ("-1", "1"))
  22. $yy = @eval ($y + @random ("-1", "1"))
  23. $followSetting = @config (followAtWarp)
  24. $name = $.lastMatch1
  25. $loc = $.lastMatch2
  26. do sl 27 $xx $yy
  27. pause 2
  28. if ($loc = "warp 1") goto warp1
  29. if ($loc = "warp 2") goto warp2
  30. if ($loc = "warp 3") goto warp3
  31. if ($loc = "warp 4") goto warp4
  32. stop
  33. ###########################
  34. :warp1
  35. do warp 0
  36. stop
  37. ###########################
  38. :warp2
  39. do warp 1
  40. stop
  41. ###########################
  42. :warp3
  43. do warp 2
  44. stop
  45. ###########################
  46. :warp4
  47. do warp 3
  48. stop
  49. }
  50. }
  51. ###########################
  52. ######FOLLOW SETTINGS######
  53. ###########################
  54.  
  55. automacro followOptions {
  56. console /\(From: (.*)\) : (set 0|set 1)/
  57. call {
  58. $followSetting = @config (followAtWarp)
  59. $name = $.lastMatch1
  60. $value = $.lastMatch2
  61. if ($value = set 0) goto set0
  62. if ($value = set 1) goto set1
  63. stop
  64. ###########################
  65. :set0
  66. do conf followAtWarp 0
  67. do pm "$name" Config 'followAtWarp' is set to 0
  68. stop
  69. ###########################
  70. :set1
  71. do conf followAtWarp 1
  72. do pm "$name" Config 'followAtWarp' is set to 1
  73. }
  74. }
  75. ###########################
  76.  
  77. automacro portalOpened {
  78. exclusive 1
  79. console /You opened Warp Portal on \((.*), (.*)\)/i
  80. call {
  81. $followSetting = @config (followAtWarp)
  82. do pm "$name" I'm warping...
  83. do pm "$name" SHOULD I FOLLOW AT WARP? 0 - don't | 1 - follow. CURRENTLY: @config (followAtWarp)
  84. do pm "$name" Just PM me your settings. example: set 0 (changes may work next at warp)
  85. $followSetting = @config (followAtWarp)
  86. ###########################
  87. if ($followSetting = 0) stayDontGo
  88. if ($followSetting = 1) goto enterPortal
  89. stop
  90. ###########################
  91. :stayDontGo
  92. do move stop
  93. pause 25
  94. stop
  95. :enterPortal
  96. do move stop
  97. pause 10
  98. do move $.lastMatch1 $.lastMatch2
  99. }
  100. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement