Ultima Online Antares

#lpc 1000

set #sysmsgcol 1359
set *3 0
event sysmessage ###Script Crafted By Gign###
while 1 = 1
{
begin:
set %xbuf #CHARPOSX
set %ybuf #CHARPOSY
while *3 = 0 && G in #charstatus
{
while %xbuf = #CHARPOSX && %ybuf = #CHARPOSY
{
  if *3 = 1 || G notin #charstatus
  {
  goto begin
  }
}
if G in #charstatus
{
  event macro 6 0
}
event sysmessage Stop Attacking...
while %xbuf <> #CHARPOSX || %ybuf <> #CHARPOSY
{
  set %xbuf #CHARPOSX
  set %ybuf #CHARPOSY
   if G in #charstatus
{
  event macro 6 0
}
  wait 4
}
event macro 6 0
set %lasttbuf #LTARGETID
set #LTARGETID #ENEMYID
event macro 27 0
event sysmessage Continue Attacking...
set %lasttbuf #LTARGETID
}

}

set #lpc 1000
set #sysmsgcol 1359
event sysmessage ###Script Crafted By Gign###
repeat
{
onhotkey z ctrl
gosub archery
}
until #False

sub archery
{
if *3 = 0
{
set *3 1
event sysmessage Archery OFF
}
else
{
set *3 0
event sysmessage Archery ON
}
return
}