Hex Artifact Content

Artifact 149564909d18919a5504f597a351c2516b8d6f52:


0000: 73 75 62 20 49 4e 49 54 0d 0a 20 20 69 6e 69 74  sub INIT..  init
0010: 45 76 65 6e 74 73 0d 0a 20 20 69 67 6e 6f 72 65  Events..  ignore
0020: 49 74 65 6d 20 72 65 73 65 74 0d 0a 20 20 73 65  Item reset..  se
0030: 74 20 25 5f 5f 45 4d 50 54 59 5f 5f 0d 0a 72 65  t %__EMPTY__..re
0040: 74 75 72 6e 0d 0a 0d 0a 73 75 62 20 57 41 49 54  turn....sub WAIT
0050: 5f 54 41 52 47 45 54 0d 0a 20 20 73 65 74 20 23  _TARGET..  set #
0060: 74 61 72 67 63 75 72 73 20 31 0d 0a 20 20 74 61  targcurs 1..  ta
0070: 72 67 65 74 6c 6f 6f 70 3a 0d 0a 20 20 49 66 20  rgetloop:..  If 
0080: 23 74 61 72 67 63 75 72 73 20 3d 20 31 0d 0a 20  #targcurs = 1.. 
0090: 20 67 6f 74 6f 20 74 61 72 67 65 74 6c 6f 6f 70   goto targetloop
00a0: 0d 0a 72 65 74 75 72 6e 0d 0a 0d 0a 73 75 62 20  ..return....sub 
00b0: 43 4f 4e 46 49 47 55 52 45 0d 0a 20 20 65 76 65  CONFIGURE..  eve
00c0: 6e 74 20 53 79 73 4d 65 73 73 61 67 65 20 50 6c  nt SysMessage Pl
00d0: 65 61 73 65 20 6d 6f 76 65 20 79 6f 75 72 20 63  ease move your c
00e0: 68 61 72 61 63 74 65 72 20 74 6f 20 74 68 65 20  haracter to the 
00f0: 64 65 73 69 72 65 64 20 68 6f 6d 65 20 6c 6f 63  desired home loc
0100: 61 74 69 6f 6e 20 61 6e 64 20 74 61 72 67 65 74  ation and target
0110: 20 61 6e 20 61 6e 69 6d 61 6c 20 66 6f 72 20 74   an animal for t
0120: 61 6d 69 6e 67 2e 0d 0a 20 20 67 6f 73 75 62 20  aming...  gosub 
0130: 57 41 49 54 5f 54 41 52 47 45 54 0d 0a 20 20 66  WAIT_TARGET..  f
0140: 69 6e 64 49 74 65 6d 20 23 4c 54 41 52 47 45 54  indItem #LTARGET
0150: 49 44 0d 0a 20 20 73 65 74 20 25 54 41 4d 45 5f  ID..  set %TAME_
0160: 54 59 50 45 20 23 46 49 4e 44 54 59 50 45 0d 0a  TYPE #FINDTYPE..
0170: 20 20 73 65 74 20 25 54 41 4d 45 5f 49 44 0d 0a    set %TAME_ID..
0180: 20 20 73 65 74 20 25 48 4f 4d 45 5f 58 20 23 43    set %HOME_X #C
0190: 48 41 52 50 4f 53 58 0d 0a 20 20 73 65 74 20 25  HARPOSX..  set %
01a0: 48 4f 4d 45 5f 59 20 23 43 48 41 52 50 4f 53 59  HOME_Y #CHARPOSY
01b0: 0d 0a 20 20 73 65 74 20 25 44 45 46 41 55 4c 54  ..  set %DEFAULT
01c0: 5f 46 4f 4c 4c 4f 57 45 52 53 20 23 46 4f 4c 4c  _FOLLOWERS #FOLL
01d0: 4f 57 45 52 53 0d 0a 20 20 73 65 74 20 25 4c 41  OWERS..  set %LA
01e0: 53 54 5f 41 54 54 45 4d 50 54 20 30 0d 0a 72 65  ST_ATTEMPT 0..re
01f0: 74 75 72 6e 0d 0a 0d 0a 73 75 62 20 4d 4f 56 45  turn....sub MOVE
0200: 5f 43 48 41 52 0d 0a 20 20 6d 6f 76 65 20 25 31  _CHAR..  move %1
0210: 20 25 32 20 30 20 32 73 0d 0a 20 20 69 66 20 20   %2 0 2s..  if  
0220: 23 43 48 41 52 50 4f 53 58 20 3c 3e 20 25 31 20  #CHARPOSX <> %1 
0230: 7c 7c 20 23 43 48 41 52 50 4f 53 59 20 3c 3e 20  || #CHARPOSY <> 
0240: 25 32 0d 0a 20 20 7b 0d 0a 20 20 20 20 65 76 65  %2..  {..    eve
0250: 6e 74 20 50 61 74 68 46 69 6e 64 20 25 31 20 25  nt PathFind %1 %
0260: 32 0d 0a 20 20 20 20 73 6c 65 65 70 20 32 73 0d  2..    sleep 2s.
0270: 0a 20 20 7d 0d 0a 72 65 74 75 72 6e 0d 0a 0d 0a  .  }..return....
0280: 73 75 62 20 53 45 41 52 43 48 5f 54 41 4d 45 0d  sub SEARCH_TAME.
0290: 0a 20 20 66 69 6e 64 49 74 65 6d 20 25 54 41 4d  .  findItem %TAM
02a0: 45 5f 54 59 50 45 0d 0a 20 20 69 66 20 23 46 49  E_TYPE..  if #FI
02b0: 4e 44 4b 49 4e 44 20 3d 20 2d 31 0d 0a 20 20 7b  NDKIND = -1..  {
02c0: 0d 0a 20 20 20 20 73 65 74 20 25 54 41 4d 45 5f  ..    set %TAME_
02d0: 49 44 0d 0a 20 20 20 20 72 65 74 75 72 6e 0d 0a  ID..    return..
02e0: 20 20 7d 0d 0a 20 20 65 76 65 6e 74 20 50 72 6f    }..  event Pro
02f0: 70 65 72 74 79 20 23 46 49 4e 44 49 44 0d 0a 20  perty #FINDID.. 
0300: 20 69 66 20 50 61 72 61 67 6f 6e 20 69 6e 20 23   if Paragon in #
0310: 50 52 4f 50 45 52 54 59 0d 0a 20 20 7b 0d 0a 20  PROPERTY..  {.. 
0320: 20 20 20 69 67 6e 6f 72 65 49 74 65 6d 20 23 46     ignoreItem #F
0330: 49 4e 44 49 44 0d 0a 20 20 20 20 73 65 74 20 25  INDID..    set %
0340: 54 41 4d 45 5f 49 44 0d 0a 20 20 20 20 72 65 74  TAME_ID..    ret
0350: 75 72 6e 0d 0a 20 20 7d 0d 0a 20 20 73 65 74 20  urn..  }..  set 
0360: 25 54 41 4d 45 5f 49 44 20 23 46 49 4e 44 49 44  %TAME_ID #FINDID
0370: 0d 0a 72 65 74 75 72 6e 0d 0a 0d 0a 73 75 62 20  ..return....sub 
0380: 41 54 54 45 4d 50 54 5f 54 41 4d 45 0d 0a 20 20  ATTEMPT_TAME..  
0390: 69 66 20 25 4c 41 53 54 5f 41 54 54 45 4d 50 54  if %LAST_ATTEMPT
03a0: 20 2b 20 33 35 30 30 20 3c 20 23 53 59 53 54 49   + 3500 < #SYSTI
03b0: 4d 45 0d 0a 20 20 7b 0d 0a 20 20 20 20 65 76 65  ME..  {..    eve
03c0: 6e 74 20 4d 61 63 72 6f 20 31 33 20 33 35 0d 0a  nt Macro 13 35..
03d0: 20 20 20 20 74 61 72 67 65 74 20 32 73 0d 0a 20      target 2s.. 
03e0: 20 20 20 73 65 74 20 23 4c 54 41 52 47 45 54 49     set #LTARGETI
03f0: 44 20 25 54 41 4d 45 5f 49 44 0d 0a 20 20 20 20  D %TAME_ID..    
0400: 65 76 65 6e 74 20 4d 61 63 72 6f 20 32 32 20 30  event Macro 22 0
0410: 0d 0a 20 20 20 20 73 65 74 20 25 4c 41 53 54 5f  ..    set %LAST_
0420: 41 54 54 45 4d 50 54 20 23 53 59 53 54 49 4d 45  ATTEMPT #SYSTIME
0430: 0d 0a 20 20 7d 0d 0a 72 65 74 75 72 6e 0d 0a 0d  ..  }..return...
0440: 0a 73 75 62 20 41 55 54 4f 4d 41 54 45 0d 0a 20  .sub AUTOMATE.. 
0450: 20 67 6f 73 75 62 20 53 45 41 52 43 48 5f 54 41   gosub SEARCH_TA
0460: 4d 45 0d 0a 20 20 77 68 69 6c 65 20 25 54 41 4d  ME..  while %TAM
0470: 45 5f 49 44 20 3d 20 25 5f 5f 45 4d 50 54 59 5f  E_ID = %__EMPTY_
0480: 5f 0d 0a 20 20 7b 0d 0a 20 20 20 20 67 6f 73 75  _..  {..    gosu
0490: 62 20 4d 4f 56 45 5f 43 48 41 52 20 25 48 4f 4d  b MOVE_CHAR %HOM
04a0: 45 5f 58 20 25 48 4f 4d 45 5f 59 0d 0a 20 20 20  E_X %HOME_Y..   
04b0: 20 67 6f 73 75 62 20 53 45 41 52 43 48 5f 54 41   gosub SEARCH_TA
04c0: 4d 45 0d 0a 20 20 7d 0d 0a 20 20 77 68 69 6c 65  ME..  }..  while
04d0: 20 23 46 49 4e 44 4b 49 4e 44 20 3c 3e 20 2d 31   #FINDKIND <> -1
04e0: 0d 0a 20 20 7b 0d 0a 20 20 20 20 67 6f 73 75 62  ..  {..    gosub
04f0: 20 4d 4f 56 45 5f 43 48 41 52 20 23 46 49 4e 44   MOVE_CHAR #FIND
0500: 58 20 23 46 49 4e 44 59 0d 0a 20 20 20 20 67 6f  X #FINDY..    go
0510: 73 75 62 20 41 54 54 45 4d 50 54 5f 54 41 4d 45  sub ATTEMPT_TAME
0520: 0d 0a 20 20 20 20 69 66 20 23 46 4f 4c 4c 4f 57  ..    if #FOLLOW
0530: 45 52 53 20 3e 20 25 44 45 46 41 55 4c 54 5f 46  ERS > %DEFAULT_F
0540: 4f 4c 4c 4f 57 45 52 53 0d 0a 20 20 20 20 7b 0d  OLLOWERS..    {.
0550: 0a 20 20 20 20 20 20 69 67 6e 6f 72 65 49 74 65  .      ignoreIte
0560: 6d 20 25 54 41 4d 45 5f 49 44 0d 0a 20 20 20 20  m %TAME_ID..    
0570: 20 20 67 6f 73 75 62 20 53 45 41 52 43 48 5f 54    gosub SEARCH_T
0580: 41 4d 45 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20  AME..    }..    
0590: 66 69 6e 64 49 74 65 6d 20 25 54 41 4d 45 5f 49  findItem %TAME_I
05a0: 44 0d 0a 20 20 7d 0d 0a 72 65 74 75 72 6e 0d 0a  D..  }..return..
05b0: 0d 0a 67 6f 73 75 62 20 49 4e 49 54 0d 0a 67 6f  ..gosub INIT..go
05c0: 73 75 62 20 43 4f 4e 46 49 47 55 52 45 0d 0a 77  sub CONFIGURE..w
05d0: 68 69 6c 65 20 23 74 72 75 65 0d 0a 7b 0d 0a 20  hile #true..{.. 
05e0: 20 67 6f 73 75 62 20 41 55 54 4f 4d 41 54 45 0d   gosub AUTOMATE.
05f0: 0a 7d 0d 0a 0d 0a 68 61 6c 74 0d 0a              .}....halt..