Hex Artifact Content

Artifact 70ef75ea3cb862ba37d08d56569b10186fd9310a:


0000: 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ;===============
0010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0020: 3d 3d 3d 0d 0a 3b 20 53 63 72 69 70 74 20 4e 61  ===..; Script Na
0030: 6d 65 3a 20 68 75 62 2d 30 31 2d 6c 6f 6f 74 0d  me: hub-01-loot.
0040: 0a 3b 20 41 75 74 68 6f 72 3a 20 4c 6f 72 64 5f  .; Author: Lord_
0050: 5a 65 72 6f 0d 0a 3b 20 56 65 72 73 69 6f 6e 3a  Zero..; Version:
0060: 20 32 72 63 31 0d 0a 3b 20 43 6c 69 65 6e 74 20   2rc1..; Client 
0070: 54 65 73 74 65 64 20 77 69 74 68 3a 20 35 2e 30  Tested with: 5.0
0080: 2e 31 6a 20 28 50 61 74 63 68 20 31 32 29 0d 0a  .1j (Patch 12)..
0090: 3b 20 45 55 4f 20 76 65 72 73 69 6f 6e 20 74 65  ; EUO version te
00a0: 73 74 65 64 20 77 69 74 68 3a 20 31 2e 35 20 36  sted with: 1.5 6
00b0: 39 0d 0a 3b 20 53 68 61 72 64 20 4f 53 49 20 2f  9..; Shard OSI /
00c0: 20 46 53 3a 20 46 53 0d 0a 3b 20 52 65 76 69 73   FS: FS..; Revis
00d0: 69 6f 6e 20 44 61 74 65 3a 20 4d 61 79 20 32 31  ion Date: May 21
00e0: 2c 20 32 30 30 36 0d 0a 3b 20 50 75 62 6c 69 63  , 2006..; Public
00f0: 20 52 65 6c 65 61 73 65 3a 20 4d 61 79 20 32 31   Release: May 21
0100: 2c 20 32 30 30 36 0d 0a 3b 20 47 6c 6f 62 61 6c  , 2006..; Global
0110: 20 56 61 72 69 61 62 6c 65 73 20 55 73 65 64 3a   Variables Used:
0120: 20 4e 6f 6e 65 0d 0a 3b 20 50 75 72 70 6f 73 65   None..; Purpose
0130: 3a 20 41 20 70 61 63 6b 65 74 2d 62 61 73 65 64  : A packet-based
0140: 20 6c 6f 6f 74 69 6e 67 20 73 6f 6c 75 74 69 6f   looting solutio
0150: 6e 2e 0d 0a 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  n...;===========
0160: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0170: 3d 3d 3d 3d 3d 3d 3d 0d 0a 0d 0a 69 67 6e 6f 72  =======....ignor
0180: 65 49 74 65 6d 20 72 65 73 65 74 0d 0a 65 76 65  eItem reset..eve
0190: 6e 74 20 4d 61 63 72 6f 20 38 20 33 0d 0a 73 65  nt Macro 8 3..se
01a0: 74 20 25 6c 73 0d 0a 73 65 74 20 25 6c 73 65 0d  t %ls..set %lse.
01b0: 0a 70 72 65 73 74 61 72 74 3a 0d 0a 65 76 65 6e  .prestart:..even
01c0: 74 20 73 79 73 4d 65 73 73 61 67 65 20 68 75 62  t sysMessage hub
01d0: 2d 30 31 2d 6c 6f 6f 74 20 73 63 72 69 70 74 20  -01-loot script 
01e0: 62 79 20 4c 6f 72 64 5f 5a 65 72 6f 20 6c 6f 61  by Lord_Zero loa
01f0: 64 65 64 2e 0d 0a 65 76 65 6e 74 20 73 79 73 4d  ded...event sysM
0200: 65 73 73 61 67 65 20 50 72 65 73 73 20 27 61 27  essage Press 'a'
0210: 20 74 6f 20 61 64 64 20 61 6e 20 69 74 65 6d 20   to add an item 
0220: 74 79 70 65 20 74 6f 20 74 68 65 20 6c 6f 6f 74  type to the loot
0230: 20 6c 69 73 74 2e 0d 0a 65 76 65 6e 74 20 73 79   list...event sy
0240: 73 4d 65 73 73 61 67 65 20 50 72 65 73 73 20 27  sMessage Press '
0250: 73 27 20 74 6f 20 73 74 61 72 74 20 6c 6f 6f 74  s' to start loot
0260: 69 6e 67 2e 0d 0a 65 76 65 6e 74 20 73 79 73 4d  ing...event sysM
0270: 65 73 73 61 67 65 20 4c 6f 6f 74 69 6e 67 20 73  essage Looting s
0280: 6f 20 66 61 72 20 2d 20 25 6c 73 20 2d 0d 0a 0d  o far - %ls -...
0290: 0a 69 6b 6c 6f 6f 70 3a 0d 0a 6f 6e 48 6f 74 4b  .ikloop:..onHotK
02a0: 65 79 20 41 0d 0a 20 67 6f 74 6f 20 49 74 65 6d  ey A.. goto Item
02b0: 41 64 64 0d 0a 6f 6e 48 6f 74 4b 65 79 20 53 0d  Add..onHotKey S.
02c0: 0a 20 67 6f 74 6f 20 70 72 65 73 74 61 72 74 32  . goto prestart2
02d0: 0d 0a 67 6f 74 6f 20 69 6b 6c 6f 6f 70 0d 0a 0d  ..goto ikloop...
02e0: 0a 70 72 65 73 74 61 72 74 32 3a 0d 0a 6b 65 79  .prestart2:..key
02f0: 20 42 41 43 4b 0d 0a 73 74 61 72 74 3a 0d 0a 66   BACK..start:..f
0300: 69 6e 64 49 74 65 6d 20 59 46 4d 20 47 5f 32 0d  indItem YFM G_2.
0310: 0a 69 66 20 23 66 69 6e 64 6b 69 6e 64 20 3d 20  .if #findkind = 
0320: 2d 31 0d 0a 20 20 67 6f 74 6f 20 73 74 61 72 74  -1..  goto start
0330: 0d 0a 73 65 74 20 25 62 6f 64 79 20 23 66 69 6e  ..set %body #fin
0340: 64 69 64 0d 0a 73 65 74 20 23 6c 6f 62 6a 65 63  did..set #lobjec
0350: 74 69 64 20 23 66 69 6e 64 69 64 0d 0a 65 76 65  tid #findid..eve
0360: 6e 74 20 6d 61 63 72 6f 20 31 37 20 30 0d 0a 77  nt macro 17 0..w
0370: 61 69 74 20 31 30 0d 0a 69 67 6e 6f 72 65 49 74  ait 10..ignoreIt
0380: 65 6d 20 25 62 6f 64 79 0d 0a 67 6f 73 75 62 20  em %body..gosub 
0390: 6c 6f 6f 74 0d 0a 67 6f 74 6f 20 73 74 61 72 74  loot..goto start
03a0: 0d 0a 0d 0a 73 75 62 20 6c 6f 6f 74 0d 0a 70 72  ....sub loot..pr
03b0: 69 6f 72 31 3a 0d 0a 66 69 6e 64 49 74 65 6d 20  ior1:..findItem 
03c0: 25 6c 73 20 43 0d 0a 69 66 20 23 66 69 6e 64 6b  %ls C..if #findk
03d0: 69 6e 64 20 3c 3e 20 2d 31 0d 0a 7b 0d 0a 20 20  ind <> -1..{..  
03e0: 65 78 65 76 65 6e 74 20 64 72 61 67 20 23 66 69  exevent drag #fi
03f0: 6e 64 69 64 20 23 66 69 6e 64 73 74 61 63 6b 0d  ndid #findstack.
0400: 0a 20 20 77 61 69 74 20 35 0d 0a 20 20 65 78 65  .  wait 5..  exe
0410: 76 65 6e 74 20 64 72 6f 70 63 20 23 62 61 63 6b  vent dropc #back
0420: 70 61 63 6b 69 64 0d 0a 20 20 65 78 65 76 65 6e  packid..  exeven
0430: 74 20 64 72 6f 70 63 20 23 62 61 63 6b 70 61 63  t dropc #backpac
0440: 6b 69 64 0d 0a 20 20 77 61 69 74 20 35 0d 0a 20  kid..  wait 5.. 
0450: 20 69 67 6e 6f 72 65 49 74 65 6d 20 23 66 69 6e   ignoreItem #fin
0460: 64 69 64 0d 0a 20 20 67 6f 74 6f 20 70 72 69 6f  did..  goto prio
0470: 72 31 0d 0a 7d 0d 0a 72 65 74 75 72 6e 0d 0a 0d  r1..}..return...
0480: 0a 49 74 65 6d 41 64 64 3a 0d 0a 6b 65 79 20 42  .ItemAdd:..key B
0490: 41 43 4b 0d 0a 65 76 65 6e 74 20 73 79 73 4d 65  ACK..event sysMe
04a0: 73 73 61 67 65 20 54 61 72 67 65 74 20 61 6e 20  ssage Target an 
04b0: 69 74 65 6d 2c 20 73 6f 20 74 68 61 74 20 69 74  item, so that it
04c0: 27 73 20 74 79 70 65 20 77 69 6c 6c 20 62 65 20  's type will be 
04d0: 61 64 64 65 64 20 74 6f 20 74 68 65 20 6c 6f 6f  added to the loo
04e0: 74 20 6c 69 73 74 2e 0d 0a 73 65 74 20 23 74 61  t list...set #ta
04f0: 72 67 63 75 72 73 20 31 0d 0a 77 38 66 6f 72 74  rgcurs 1..w8fort
0500: 72 67 3a 0d 0a 77 68 69 6c 65 20 23 74 61 72 67  rg:..while #targ
0510: 63 75 72 73 20 3d 20 31 0d 0a 67 6f 74 6f 20 77  curs = 1..goto w
0520: 38 66 6f 72 74 72 67 0d 0a 73 65 74 20 23 6c 6f  8fortrg..set #lo
0530: 62 6a 65 63 74 69 64 20 23 6c 74 61 72 67 65 74  bjectid #ltarget
0540: 69 64 0d 0a 65 76 65 6e 74 20 4d 61 63 72 6f 20  id..event Macro 
0550: 31 37 20 30 0d 0a 73 65 74 20 25 63 74 20 23 6c  17 0..set %ct #l
0560: 6f 62 6a 65 63 74 74 79 70 65 0d 0a 69 67 6e 6f  objecttype..igno
0570: 72 65 49 74 65 6d 20 25 63 74 0d 0a 69 66 20 25  reItem %ct..if %
0580: 6c 73 20 3d 20 25 6c 73 65 0d 0a 20 73 65 74 20  ls = %lse.. set 
0590: 25 6c 73 20 25 63 74 0d 0a 65 6c 73 65 0d 0a 20  %ls %ct..else.. 
05a0: 73 65 74 20 25 6c 73 20 25 6c 73 20 2c 20 5f 20  set %ls %ls , _ 
05b0: 2c 20 25 63 74 0d 0a 77 61 69 74 20 31 73 0d 0a  , %ct..wait 1s..
05c0: 65 76 65 6e 74 20 73 79 73 4d 65 73 73 61 67 65  event sysMessage
05d0: 20 54 61 72 67 65 74 65 64 20 74 79 70 65 20 61   Targeted type a
05e0: 64 64 65 64 2c 20 72 65 74 75 72 6e 69 6e 67 20  dded, returning 
05f0: 74 6f 20 74 68 65 20 6d 61 69 6e 20 6d 65 6e 75  to the main menu
0600: 2e 0d 0a 67 6f 74 6f 20 70 72 65 73 74 61 72 74  ...goto prestart