巨集0.0...複製到macros裡頭...- ###
- automacro avoid {
- map ra_fild08
- monster 捕蟲草, 15
- timeout 5
- exclusive 1
- set Move 3
- call check
- }
- macro check {
- [
- $mon = $.lastMonster
- $monID = $.lastMonsterID
- $dist = $.lastMonsterDist
- $monPos = $.lastMonsterPos
- $map = $.map
- $myPos = $.pos
- $myPosX = @arg ("$myPos", 1)
- $myPosY = @arg ("$myPos", 2)
- $monPosX = @arg ("$monPos", 1)
- $monPosY = @arg ("$monPos", 2)
- $map = $.map
- do eval message T("Macro Avoid: $::Macro::Data::varStack{mon} \($::Macro::Data::varStack{monID}\)\n"), "teleport"; message T("Monster Dist\= $::Macro::Data::varStack{dist} \, Monster Loc\: \($::Macro::Data::varStack{monPosX},$::Macro::Data::varStack{monPosY}\) Map\= $::Macro::Data::varStack{map}\n"), "teleport";
- ]
- do as
- if ($myPosX > $monPosX) goto east
- if ($myPosX < $monPosX) goto west
- :X0
- if ($myPosY < $monPosY) goto X0south
- if ($myPosY > $monPosY) goto X0north
- log We have the same co-ord to the Monster
- do @random ("east", "west", "south", "north") $Move
- log Move Random
- stop
- :X0south
- log Monster Loc: North X-axis0
- do south $Move
- log Move South
- stop
- :X0north
- log Monster Loc: South X-axis0
- do north $Move
- log Move North
- stop
- :east
- if ($myPosY < $monPosY) goto eastSouth
- if ($myPosY > $monPosY) goto eastNorth
- :Y0east
- log Monster Loc: West Y-axis0
- do east $Move
- log Move East
- stop
- :eastSouth
- log Monster Loc: NorthWest
- do southeast $Move
- log Move South East
- stop
- :eastNorth
- log Monster Loc: SouthWest
- do northeast $Move
- log Move North East
- stop
- :west
- if ($myPosY < $monPosY) goto westSouth
- if ($myPosY > $monPosY) goto westNorth
- :Y0west
- log Monster Loc: East Y-axis0
- do west $Move
- log Move West
- stop
- :westSouth
- log Monster Loc: NorthEast
- do southwest $Move
- log Move South West
- stop
- :westNorth
- log Monster Loc: SouthEast
- do northwest $Move
- log Move North West
- stop
- }
複製代碼
|