;==================================
; 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