ADDED   hub-01-loot.euo
Index: hub-01-loot.euo
==================================================================
--- hub-01-loot.euo
+++ hub-01-loot.euo
@@ -0,0 +1,77 @@
+;==================================
+; Script Name: hub-01-loot
+; Author: Lord_Zero
+; Version: 2rc1
+; Client Tested with: 5.0.1j (Patch 12)
+; EUO version tested with: 1.5 69
+; Shard OSI / FS: FS
+; Revision Date: May 21, 2006
+; Public Release: May 21, 2006
+; Global Variables Used: None
+; Purpose: A packet-based looting solution.
+;==================================
+
+ignoreItem reset
+event Macro 8 3
+set %ls
+set %lse
+prestart:
+event sysMessage hub-01-loot script by Lord_Zero loaded.
+event sysMessage Press 'a' to add an item type to the loot list.
+event sysMessage Press 's' to start looting.
+event sysMessage Looting so far - %ls -
+
+ikloop:
+onHotKey A
+ goto ItemAdd
+onHotKey S
+ goto prestart2
+goto ikloop
+
+prestart2:
+key BACK
+start:
+findItem YFM G_2
+if #findkind = -1
+  goto start
+set %body #findid
+set #lobjectid #findid
+event macro 17 0
+wait 10
+ignoreItem %body
+gosub loot
+goto start
+
+sub loot
+prior1:
+findItem %ls C
+if #findkind <> -1
+{
+  exevent drag #findid #findstack
+  wait 5
+  exevent dropc #backpackid
+  exevent dropc #backpackid
+  wait 5
+  ignoreItem #findid
+  goto prior1
+}
+return
+
+ItemAdd:
+key BACK
+event sysMessage Target an item, so that it's type will be added to the loot list.
+set #targcurs 1
+w8fortrg:
+while #targcurs = 1
+goto w8fortrg
+set #lobjectid #ltargetid
+event Macro 17 0
+set %ct #lobjecttype
+ignoreItem %ct
+if %ls = %lse
+ set %ls %ct
+else
+ set %ls %ls , _ , %ct
+wait 1s
+event sysMessage Targeted type added, returning to the main menu.
+goto prestart