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