Auto-Cast Warp Portal

this macro auto-cast warp portal on place that no one standing...

good for support on town and warping parties on WoE


automacro Warping {
  console /\[dist=(.*)\] (.*) \((\d+)\): (.*)warp(1|2|3|4)(.*)$/
  run-once 1
# class 4, 8, 23, 4005, 4009, 15, 4016

  call {
  if (@invamount(Blue Gemstone) == 0) goto nogem

  $dist = $.lastMatch1
  if ($dist > 6) stop
   
  $warpslot = $.lastMatch5
   
  :loop
  $posx = @rand (1,7)
  $posy = @rand (1,7)
  $cellIsFull = 0

  do eval $::Macro::Data::varStack{cellIsFull} = 0;foreach (@{$::playersList->getItems()}) { next if (($_->{pos_to}{x} != $posx) || ($_->{pos_to}{y} != $posy));$::Macro::Data::varStack{cellIsFull} = 1; last;}

  if ($cellIsFull == 1) goto loop
  $mex = @arg ("$.pos", 1)
  $mey = @arg ("$.pos", 2)
  $herex = @eval ($mex + $posx)
  $herey = @eval ($mey + $posy)
  do sl 27 $herex $herey
  timeout 3
  do warp $warpslot
  release Warping

  :nogem
  do c no gem
  release Warping
  }
}