;=============================================================
; Script Name:  BadManiac's Automagic Looting 2
; Author: BadManiac
; Version: 2.62
; Client Tested with: 5.0.1c
; EUO version tested with: 1.5 Test Version 62
; Shard OSI / FS: OSI / works on FS with correct item types
; Revision Date: 22/11/2005
; Public Release: 05/12/2004
; Global Variables Used:
;	*bml_busy Denotes Script is busy looting
;	*bml_minvalue Contains the last min value for equipment
;	*bml_settings Contains the last used settings for the script
;	*bml_hotkey Stores the current looting hotkey
; Purpose:
; Powerful fast Automagic Looting with item evaluation, corpse cutting,
; resource gathering and cutting, and looting equipment over a certain value
;=============================================================
SET #LPC 50
;=============================================================
;###############  USER SETTINGS BELOW ONLY!  #################
;=============================================================
; One delay timing, this timer is the only thing you need to
; edit if the script has problems.
; Should be around 5, but lowering it to 2-3 works fine for
; low ping high speed conn's. FS'ers should leave it at 4-5
; Dialup and high ping users might have to set it as high as
; 6 or 7.
;=============================================================
SET %bml_waittime 4
;=============================================================
; Time to wait between actions to prevent errors.
; Minimum on EA is 10, and for freeshards 5, for fast conn's.
; Recommended 13 as this is UO's default action delay.
;=============================================================
SET %bml_action_wait 10
;=============================================================
; user1 and user2 are for the users personal lists. They are selectable
; in the menu and you can add your own loot types to them.
; The lists below are examples of what you may want to include
;=============================================================
;Plate of Cookies, Fertile Dirt, Tribal Mask,Mask of Orcish Kin, Evil Orc Helm, Fire Horn
SET %user1 SLI_NZF_PZH_VSH_NWL_IWL_ZWF_
;Bandage, Raw Ribs
SET %user2 ZLF_VRD_
;=============================================================
;#############  EDIT NOTHING BELOW THIS LINE  ################
;=============================================================
; The lootlists are set here, other is a list of various
; other loot that doesn't fit anywhere else.
;=============================================================
SET %gold POF_
SET %jewels HVF_UVF_FVF_EVF_OVF_VUF_GVF_RVF_BVF_VVF_NVF_ZVF_MWF_
SET %reagents KUF_JUF_KZF_JZF_MZF_WZF_RZF_SZF_DUF_TZF_UZF_YZF_IUF_DAG_EUF_HUF_PZF_LZF_QZF_VZF_GUF_OZF_EAG_NZF_FUF_XZF_
SET %scrolls AUL_BUL_CUL_DUL_EUL_FUL_GUL_HUL_IUL_JUL_KUL_LUL_MUL_NUL_OUL_PUL_QUL_RUL_SUL_TUL_UUL_VUL_WUL_XUL_YUL_ZUL_AVL_GVL_FVL_IVL_HVL_CVL_NTL_OTL_PTL_QTL_RTL_STL_TTL_UTL_VTL_WTL_XTL_YTL_ZTL_QXL_PXL_ZXL_NXL_WXL_VXL_YXL_XXL_ZFJ_BYL_CYL_DYL_EYL_FYL_GYL_HYL_IYL_JYL_KYL_KYM_PYM_SYM_TYM_WYM_UYM_GCR_ZBR_NCR_ACR_HCR_LCR_ICR_CCR_UCR_OCR_KCR_DCR_JCR_FCR_
SET %arrowsbolts RWF_LNK_FKF_
SET %solenloot GMF_OKF_TTO_IJG_
SET %jukaloot JSL_USL_WOH_YWL_
SET %paragonloot IIF_IKF_BUD_HIF_
set %questloot YJM_MSG_GHH_UVH_RY_QY_SY_PY_
;Resource loot lists
SET %feather VLK_
SET %wool HFG_
SET %scale STO_
SET %bones OJK_XIK_SJK_IJK_TJK_BJK_UJK_DJK_MJK_AJK_LJK_FJK_RJK_EJK_ZIK_YIK_JJK_GJK_KJK_HJK_
SET %leather EEG_GED_DEG_
;Itemtypes for bones and leather after cutting with scissor
SET %cutresources JJG_GUF_
;Seeds, TMap, Gargoyle Pickaxe, Demon Bones, Tribal Berry, Origami Paper, Healthy Gland
SET %other PDF_XVH_QPF_OZF_QQD_QIP_NWK_
;=============================================================
;This is a list of the different bags types that will be opened and looted,
;as well as types for knives and scissors for cutting corpses and leather.
;DON'T EDIT.
;=============================================================
SET %bags ZJF_LKF_CKF_YKK
SET %knives TSF_GMH_BNF_CNF_FMH_WSF
SET %scissors KAG_JAG
;=====================================
;Set lootlists for equippment
;=====================================
GOSUB SetEquipLootlists
;=====================================
; Script INIT
;=====================================
GOSUB BMEuoVer
IF #RESULT < 15000
{
   DISPLAY OK This script does not support your version of EasyUO. , $ , You must use Version 1.5 , $ , HALTED!
   HALT
}
GOSUB CheckFreeShard bml_freeshard
GOSUB ShowLootMenu
GOSUB LootInit
;=====================================
; Script MAIN LOOP
;=====================================
WHILE #TRUE
{
	;Make script less intrusive by checking for lifted objects, target cursor, charcter status or char movement.
  REPEAT
  {
    GOSUB CheckStatus
    WAIT 1
  }
  UNTIL #RESULT
	GOSUB CheckWeight
	;If hotkey is set, wait until the specified key is pressed before starting to loot.
	IF %bml_hotkey
	{
    WHILE #TRUE
    {
        ONHOTKEY *bml_hotkey
           BREAK
        WAIT 0
    }
	}
	;All is well, go ahead and look for corpses in range to loot.
	GOSUB LookForCorpse
	IF #RESULT <> #FALSE
	{
		;Set global to denote that we are busy looting
		SET *bml_busy #TRUE
		GOSUB LootPack %bml_corpseid %bml_corpsetype
		IF #RESULT = #TRUE
		{
       FINDITEM %bml_corpseid
       IF #FINDCNT > 0
          IGNOREITEM %bml_corpseid BmLooter
    }
		IF #RESULT = lootright || #RESULT = instanced
       GOSUB IgnoreList %bml_corpseid
  }
	;Set global to denote that we are done looting
	SET *bml_busy #FALSE
	GOSUB IgnoreList
	WAIT %bml_waittime
}
;================================================================
;SUBROUTINES START HERE.
;================================================================
;LootInit=====================
SUB LootInit
{
	IF %bml_cutcorpse
	{
		FINDITEM %scissors C_ , #BACKPACKID
		IF #FINDKIND = -1
		{
			DISPLAY OK You need scissors to cut looted resources. $ HALTED!
			HALT
		}
		FINDITEM %knives C_ , #BACKPACKID
		IF #FINDKIND = -1
		{
			DISPLAY OK You need a knife to cut corpses to loot resources. $ HALTED!
			HALT
		}
	}
	IF %bml_lootequipment
	{
    SET #RESULT #FALSE
    CALL BMItemEval.euo INIT
    IF #RESULT <> BMItemEval_OK
    {
      DISPLAY YESNO You selected equipment loot options , $ , But you don't have the BMItemEval.euo script file in the same folder as this file. , $ , Would you like to simply loot all equipment items regardless of item value?
      IF #DISPRES = NO
      {
        DISPLAY OK Please read the setup instructions in the EasyUO PSL thread for this script. , $ , HALTED!
        HALT
      }
      SET *bml_minvalue 0
    }
  }
	IF %lootbag = #TRUE
	{
		SET #LTARGETID N/A
		DISPLAY OK Please target your LOOTBAG and click it. $
		SET #TARGCURS 1
    WHILE #TARGCURS = 1
      WAIT 0
		SET %lootbagid #LTARGETID
		SET %regbagid %lootbagid
	}
	IF %regbag = #TRUE
	{
		DISPLAY OK Please target our REGBAG and click it.$
		SET #LTARGETID N/A
		SET #TARGCURS 1
    WHILE #TARGCURS = 1
      WAIT 0
		SET %regbagid #LTARGETID
	}
	IGNOREITEM RESET BmLooter
	EXEVENT DROPC #BACKPACKID
	GOSUB BMWaitAction
	SET %idx 0
	;Reset globals for Seg'sBandage healer and CEOMedic
	SET *510 ok
	SET *BUSY 0
	RETURN
}
;LookForCorpse================
SUB LookForCorpse
{
	FINDITEM YFM G_2
	;If the corpse is too far away. Don't loot it.
	IF #FINDCNT < 1 || #FINDDIST > 2 || #FINDTYPE <> YFM
		RETURN #FALSE
	;If everything is fine, the found object is a corpse, and it is within range.
	;Confirm the loot- and reg bags
	SET %bml_corpseid #FINDID
	SET %bml_corpsetype #FINDTYPE
	FINDITEM %lootbagid C
	IF #FINDKIND = -1
	{
		EVENT EXMSG #CHARID 3 33 Can't find lootbag, paused.
		PAUSE
		RETURN #FALSE
	}
	IF %regbag = #TRUE
	{
	  FINDITEM %regbagid C
	  IF #FINDKIND = -1
	  {
		  EVENT EXMSG #CHARID 3 33 Can't find regbag, paused.
		  PAUSE
		  RETURN #FALSE
	  }
  }
  RETURN %bml_corpseid
}
;LootPack=====================
; %1 is the source cont ID
; %2 is the source cont type
;=============================
SUB LootPack
{
  IF %1 = %lootbagid || %1 = %regbagid || %1 = #BACKPACKID || %1 = #CHARID || %0 <> 2
     RETURN #FALSE
  SET %idx %idx + 1
  NAMESPACE PUSH
  NAMESPACE LOCAL BMLootPack . %idx
  SET !fcontid . %idx %1
  SET !conttype . %idx %2
  SET !success #TRUE
  ;Make script less intrusive by checking for lifted objects, target cursor, or char movement.
  REPEAT
  {
    GOSUB CheckStatus
    WAIT 1
  }
  UNTIL #RESULT
	;Cut corpse if specified
	IF %bml_cutcorpse && %idx = 1
	{
		GOSUB CutCorpse !fcontid . %idx
		IF #RESULT <> #TRUE
		{
        NAMESPACE CLEAR
        NAMESPACE POP
        SET %idx %idx - 1
        RETURN #RESULT
	  }
  }
  REPEAT
  {
    GOSUB CheckStatus
    WAIT 1
  }
  UNTIL #RESULT
  ;Open corpses and containers near the lower right corner of the game area for 800x600 res.
  IF %idx = 1 || !conttype . %idx = YFM
    GOSUB OpenCorpse !fcontid . %idx
  IF %idx > 1 || !conttype . %idx <> YFM
    GOSUB OpenContainer !fcontid . %idx !conttype . %idx
	IF #RESULT <> #TRUE
	{
     NAMESPACE CLEAR
     NAMESPACE POP
     SET %idx %idx - 1
     RETURN #RESULT
  }
	SET !contid . %idx #CONTID
	IF !contid . %idx <> !fcontid . %idx
	{
    FINDITEM YFM CA_ , !fcontid . %idx
    IF #FINDCNT > 1
	    SET !success instanced
  }
 	IF ! %bml_freeshard
 	{
    WAIT %bml_waittime
    GOSUB BMWaitAction
  }
  ;=====================
  ; Looting starts here
  ;=====================
  GOSUB LootItems !contid . %idx
  IF %bml_lootequipment
     GOSUB LootEquipment !contid . %idx
  WHILE %bml_openbags
  {
    FINDITEM %bags C_ , !contid . %idx
    IF #FINDCNT < 1 || #FINDBAGID <> !contid . %idx
      BREAK
    SET !bml_currentbag #FINDID
    GOSUB LootPack !bml_currentbag #FINDTYPE
    IF #RESULT <> #TRUE
      IGNOREITEM !bml_currentbag BmLooter_temp
  }
  ; Loot end-----
  ;=====================
  ; Close Container
  ;=====================
  IF %bml_closecorpse || %idx > 1
	{
		SET !closetimeout #SCNT2 + 20
    WHILE #SCNT2 < !closetimeout
		{
			IF #CONTID <> !contid . %idx
			{
				CLICK 730 440 F DMC
				WAIT %bml_waittime
      }
			IF #CONTID = !contid . %idx
   			CLICK 730 440 F R DMC
      GOSUB WaitForVar CONTID <> !contid . %idx 10
			IF #RESULT
        BREAK
    }
	}
	FINDITEM %bml_corpseid G
  IF #FINDDIST > 2
    SET !success range
  FINDITEM !contid . %idx
	IF #FINDCNT > 0 && %idx > 1
		IGNOREITEM !contid . %idx BmLooter
	SET %idx %idx - 1
	SET #RESULT !success
  NAMESPACE CLEAR
  NAMESPACE POP
	RETURN #RESULT
}
;LootItems====================
; %1 is the source cont ID
;=============================
SUB LootItems
{
  SET !contid %1
  SET !done #FALSE
  WHILE #TRUE
  {
    FINDITEM %bml_corpseid G
    IF #FINDCNT < 1 || #FINDDIST > 2
      BREAK
  	;Make script less intrusive by checking for target cursor, or char movement and waiting.
    REPEAT
    {
      GOSUB CheckStatus
      WAIT 1
    }
    UNTIL #RESULT
    ;Check weight before each drag operation to make sure we're not overweight.
	  GOSUB CheckWeight
	  FINDITEM %bml_lootlist C_ , !contid
    IF #FINDCNT < 1 && !done
       BREAK
	  IF #FINDCNT < 1 && ! !done
	  {
       IGNOREITEM RESET BmLooter_once
       SET !done #TRUE
       CONTINUE
    }
    IF #FINDBAGID <> !contid
    {
       IGNOREITEM #FINDID BmLooter_temp
       CONTINUE
    }
	  SET #RESULT #TRUE
	  SET !lastitem #FINDID
	  IF #findtype IN %reagents , %necroregs
	  {
		   GOSUB MoveItem !lastitem #FINDBAGID %regbagid
		   GOTO li_finishcurrent
	  }
	  IF #FINDTYPE IN %leather , %bones
	  {
		   GOSUB MoveAndCut !lastitem %lootbagid
		   GOTO li_finishcurrent
	  }
	  IF #FINDTYPE IN IJG_QPF
	  {
       GOSUB BMGetProperty !lastitem
		   IF binding NOTIN #PROPERTY && gargoyle NOTIN #PROPERTY
		   {
		     IGNOREITEM !lastitem BmLooter_temp
		     GOTO li_finishcurrent
		   }
	  }
	  GOSUB MoveItem !lastitem #FINDBAGID %lootbagid
li_finishcurrent:
	  ;Last drag failed, temporarily ignore the item before proceeding.
	  IF #RESULT = #FALSE
		   IGNOREITEM !lastitem BmLooter_once
	  ELSE
		   IGNOREITEM RESET BmLooter_once
  }
  IGNOREITEM RESET BmLooter_temp
  RETURN
}
;LootEquipment================
; %1 is the source cont ID
;=============================
SUB LootEquipment
{
  SET !contid %1
  SET !done #FALSE
  WHILE #TRUE
  {
    FINDITEM %bml_corpseid G
    IF #FINDCNT < 1 || #FINDDIST > 2
      BREAK
    REPEAT
    {
      GOSUB CheckStatus
      WAIT 1
    }
    UNTIL #RESULT
    ;Check weight before each drag operation to make sure we're not overweight.
	  GOSUB CheckWeight
    SET #RESULT 0
	  FINDITEM %bml_equiplootlist C_ , !contid
    IF #FINDCNT < 1 && !done
       BREAK
	  IF #FINDCNT < 1 && ! !done
	  {
       IGNOREITEM RESET BmLooter_once
       SET !done #TRUE
       CONTINUE
    }
    IF #FINDBAGID <> !contid
    {
       IGNOREITEM #FINDID BmLooter_temp
       CONTINUE
    }
	  SET !lastitem #FINDID
	  CALL BMItemEval.euo !lastitem
	  IF %bml_lootsets
	  {
		   IF Only , #SPC , When , #SPC , Full , #SPC , Set , #SPC , Is , #SPC , Present: IN #PROPERTY
			   SET #RESULT *bml_minvalue
	  }
	  IF #RESULT < *bml_minvalue
	     IGNOREITEM !lastitem BmLooter
	  ELSE
		   GOSUB MoveItem !lastitem #FINDBAGID %lootbagid
	  ;Last drag failed, temporarily ignore the item before proceeding.
    IF #RESULT = #FALSE
		   IGNOREITEM %lootitem BmLooter_once
	  ELSE
		   IGNOREITEM RESET BmLooter_once
  }
  IGNOREITEM RESET BmLooter_temp
  RETURN
}
;OpenCorpse================
; %1 is the ID of the corpse to open
;=============================
SUB OpenCorpse
{
	IF %1 = %lootbagid || %1 = %regbagid || %1 = #BACKPACKID || %1 = #CHARID
		RETURN #FALSE
  NAMESPACE PUSH
  NAMESPACE LOCAL opencorpse
  SET !corpseid %1
oc_opencorpse:
  SET #LOBJECTID !corpseid
  SET !timeout #SCNT2 + 50
  SET !jstart #JINDEX + 1
  GOSUB BMWaitAction %bml_action_wait
  SET #nextCPosX 656
	SET #nextCPosY 388
  EVENT MACRO 17 0
  GOSUB BMWaitAction
  WAIT %bml_waittime
  SET !success #TRUE
  WHILE YFM NOTIN #CONTTYPE && !success = #TRUE
  {
    IF #SCNT2 > !timeout
      RETURN #FALSE
    FOR !i !jstart #JINDEX
    {
      SCANJOURNAL !i
      IF You_must_wait IN #JOURNAL
       GOTO oc_opencorpse
  		IF may_not_loot IN #JOURNAL || criminal_action IN #JOURNAL || did_not_earn_the_right IN #JOURNAL || did_not_slay_this_creature IN #JOURNAL
        SET !success lootright
      IF I_can't_reach_that. IN #JOURNAL || Out_of_sight || #JOURNAL
		    SET !success range
    }
    WAIT %bml_waittime
  }
  IF !success && ( #CONTPOSX <> 656 || #CONTPOSY <> 388 )
    CONTPOS 656 388
  SET #RESULT !success
  NAMESPACE CLEAR
  NAMESPACE POP
  RETURN #RESULT
}
;OpenContainer================
; %1 is the ID of the container to open
; %2 is the TYPE of the container
;=============================
SUB OpenContainer
{
	IF %1 = %lootbagid || %1 = %regbagid || %1 = #BACKPACKID || %1 = #CHARID
		RETURN #FALSE
	NAMESPACE PUSH
	NAMESPACE LOCAL opencont
	SET !contid %1
	SET !conttype %2
oc_opencont:
	SET !timeout #SCNT2 + 50
	SET !success #TRUE
	SET #LOBJECTID !contid
	GOSUB BMWaitAction %bml_action_wait
	SET !jstart #JINDEX + 1
	SET !oldcontid #CONTID
 	SET #nextCPosX 660
	SET #nextCPosY 390
	EVENT MACRO 17 0
	GOSUB BMWaitAction
	WAIT %bml_waittime
  WHILE #CONTID = !oldcontid && #CONTID <> !contid && #CONTTYPE <> !conttype
  {
		IF #SCNT2 > !timeout
		{
		  SET !success #FALSE
		  BREAK
    }
    FOR !j !jstart #JINDEX
    {
      SCANJOURNAL !j
		  IF You_must_wait IN #JOURNAL
    	  GOTO oc_opencont
		  IF I_can't_reach_that. IN #JOURNAL || Out_of_sight || #JOURNAL
		  {
			  SET !success range
			  BREAK
      }
    }
    IF !success <> #TRUE
      BREAK
    WAIT 0
	}
	SET #RESULT !success
	NAMESPACE CLEAR
	NAMESPACE POP
	RETURN #RESULT
}
;############################################################
;==================================
;* @packageversion   1.10
;* @purpose   move an item from one location to another
;* @author   Tecmo, Bad_Maniac
;* @param
;      %1 req Item to move
;      %2 req Move from location
;      %3 req Move to location
;      %4 opt Quantity
;* @return      Returns the value True or False
;* @Calling Example
;           Inside script = gosub moveItem [Item to Move] [From location] [To location] [Quantity] (nothing in qty uses #findstack)
;         Outside calling = call subMoveItem.txt [Item to Move] [From location] [To location] [Quantity] (nothing in qty uses #findstack)
;==================================
SUB MoveItem
{
    IF %0 < 3 || %0 > 4
        RETURN #FALSE
    SET !_itemId %1
    IF G_ notin %2 && %2 <> C
        SET !_itemLocation C_ , %2
    ELSE
        SET !_itemLocation %2
    SET !_newItemLocation %3
    IF %0 = 4
        SET !_qty %4
    ELSE
        SET !_qty 0
    IF %bml_freeshard
    {
        SET !actionwait 5
        SET !dragdropwait 5 ; Increase this number if you recieve 'You must wait' messages
        SET !dropg dropg , #SPC , #CHARPOSX , #SPC , #CHARPOSY
    }
    ELSE
    {
        SET !actionwait %bml_action_wait
        SET !dragdropwait %bml_waittime
        SET !_XdropOffset #CHARPOSX - 1
        SET !dropg dropg , #SPC , #CHARPOSX , #SPC , !_XdropOffset
    }
    moveLoop:
    FINDITEM !_itemId !_itemLocation
    IF #FINDKIND <> -1
    {
       SET !_litemID #FINDID
       GOSUB BMWaitAction !actionwait
       IF !_qty = 0
         SET !qty #FINDSTACK
       ELSE
         SET !qty !_qty
       EXEVENT drag #FINDID !qty
       WAIT !dragdropwait
       SET !droptimeout #SYSTIME + 2000
       REPEAT
       {
         IF !_newItemLocation = ground
           EXEVENT !dropg
         ELSE
           EXEVENT dropc !_newItemLocation
         FINDITEM !_litemID !_itemLocation
       }
       UNTIL #FINDKIND = -1 || #FINDCNT = 0 || #SYSTIME < !droptimeout
       GOSUB BMWaitAction
    }
    RETURN
}
;############################################################
; MoveAndCut====================
; %1 is the item ID to drag
; %2 ID of the dest container
;===============================
SUB MoveAndCut
	SET %mi_itemid %1
	SET %mi_destcont %2
	IF %mi_itemid <> #FINDID
	  FINDITEM %mi_itemid
	IF #FINDCNT < 1
		RETURN #FALSE
	SET %mac_cont #FINDBAGID
	IF %bml_freeshard
	{
		;Cut the resource on the corpse
		GOSUB Cut %mi_itemid
    FINDITEM %cutresources C_ , %mac_cont
  	IF #RESULT = #FALSE || #FINDCNT < 1
			RETURN #FALSE
		SET %mi_itemid #FINDID
	}
	SET %mac_dragtimer #SCNT2 + 25
  IF %bml_freeshard
    GOSUB MoveItem %mi_itemid %mac_cont %mi_destcont
  ELSE
	  GOSUB MoveItem %mi_itemid %mac_cont #BACKPACKID
  REPEAT
	{
		FINDITEM %mi_itemid C_ , %mac_cont
	}
	UNTIL #FINDCNT = 0 || #SCNT2 > %mac_dragtimer
	IF ! %bml_freeshard
	{
  	GOSUB Cut %mi_itemid
  	IF %bml_dragcut
  	{
  	  WHILE #TRUE
      {
	      FINDITEM %cutresources C_ , #BACKPACKID
	      IF #FINDCNT < 1
          BREAK
        IF #FINDBAGID <> %mi_destcont
          GOSUB MoveItem #FINDID #FINDBAGID %mi_destcont
      }
    }
	}
RETURN #TRUE
; Cut===========================
; %1 ID of the item to cut
;===============================
SUB Cut
{
  SET %cut_itemid %1
	SET #LTARGETKIND 1
	SET #LTARGETID %cut_itemid
	FINDITEM %scissors C_ , #BACKPACKID
	SET #LOBJECTID #FINDID
	SET %bml_cut_timeout #SCNT2 + 50
	SET %bml_jindex #JINDEX
cut_start:
    GOSUB BMWaitAction %bml_action_wait
  	EVENT MACRO 17 0
   	TARGET 5s
   	WAIT %bml_waittime
	  IF You_must_wait_to_perform_another_action IN #SYSMSG
	  {
      GOSUB BMWaitAction
      GOTO cut_start
	  }
	  EVENT MACRO 22 0
	  GOSUB BMWaitAction
	  WAIT %bml_waittime
    REPEAT
    {
      FINDITEM %cut_itemid
      FOR %i %bml_jindex #JINDEX
	    {
		    SCANJOURNAL %i
		    IF That_is_too_far_away IN #JOURNAL
			    RETURN #FALSE
	    }
    }
    UNTIL #FINDCNT < 1 || #SCNT2 > %bml_cut_timeout
  }
	RETURN #TRUE
}
; CutCorpse=====================
; %1 ID of the corpse to cut
;===============================
SUB CutCorpse
{
  FINDITEM !fcontid . 1 G
  IF #FINDCNT < 1 || #FINDDIST > 2
    RETURN #FALSE
cut_corpse:
	FINDITEM %knives C
	SET #LOBJECTID #FINDID
	SET #LTARGETID %1
	SET #LTARGETKIND 1
	GOSUB BMWaitAction %bml_action_wait
	SET !bml_jstart #JINDEX + 1
	EVENT MACRO 17 0
	TARGET 5s
	EVENT MACRO 22 0
	GOSUB BMWaitAction
	WAIT %bml_waittime
	SET !cut_corpse_timeout #SCNT2 + 25
	SET !bml_jend #JINDEX + 1
  WHILE #SCNT2 < !cut_corpse_timeout
  {
    FOR !ji !bml_jstart !bml_jend
    {
      SCANJOURNAL !ji
			IF You_see_nothing_useful_to_carve IN #JOURNAL || You_carve_some IN #JOURNAL || You_skin_it IN #JOURNAL || You_pluck_the_bird IN #JOURNAL || You_may_not_dismember_that IN #JOURNAL
         RETURN #TRUE
			IF  I_can't_reach_that. IN #JOURNAL || too_far IN #JOURNAL
				RETURN range
			IF may_not_loot IN #JOURNAL || criminal_action IN #JOURNAL || You_did_not_earn_the_right_to_loot IN #JOURNAL || did_not_slay_this_creature IN #JOURNAL
				RETURN lootright
			IF You_must_wait_to_perform_another_action. IN #JOURNAL
				GOTO cut_corpse
		}
	}
	RETURN #FALSE
}
; CheckStatus===================
SUB CheckStatus
{
	IF %cs_statustimer = N/A
		SET %cs_statustimer #SYSTIME + 600
	IF %cs_charpos = N/A
		SET %cs_charpos #CHARPOSX , #CHARPOSY
	IF %cs_charpos <> #CHARPOSX , #CHARPOSY
	{
		IF #SYSTIME > %cs_statustimer
		{
      SET %cs_charpos #CHARPOSX , #CHARPOSY
      SET %cs_statustimer #SYSTIME + 600
    }
		RETURN #FALSE
	}
	IF #LLIFTEDKIND = 1 || #CONTNAME = drag_gump || #CONTNAME = stack_gump || #TARGCURS = 1
		RETURN #FALSE
	IF #CLILOGGED = 0 || #CHARGHOST = YES || H IN #CHARSTATUS
		RETURN #FALSE
	;Check if other scripts are busy.
	;Currently supports CEOMedic and Seg's stable bandage healer 11.0
	IF ( N/A NOTIN *BUSY && *BUSY <> 0 ) || ok NOTIN *510 && paused NOTIN *510
		GOSUB BMWaitAction
	RETURN #TRUE
}
; CheckWeight==================
SUB CheckWeight
{
	IF %bml_maxweight = N/A
	{
		SET %bml_maxweight #MAXWEIGHT - 30
    IF ! %bml_freeshard
		{
		  FINDITEM #CHARID
      IF #FINDTYPE IN HS_IS
        SET %bml_maxweight %bml_maxweight + 60
    }
	}
	IF #WEIGHT >= %bml_maxweight
	{
		EVENT EXMSG #CHARID 3 33 Nearly overweight, please unload some loot.
    WHILE #WEIGHT >= %bml_maxweight
	    WAIT 20
  }
	RETURN
}
; BMWaitAction==================
; %1 time to wait in 10th of a second
; If no arguments are passed, it sets
; the timer to the current time
;===============================
SUB BMWaitAction
{
	IF %0 < 1 || %1 = N/A || %bmwatimer = N/A
	{
		SET %bmwatimer #SCNT2
    SET %1 0
	}
	WHILE ( %bmwatimer + %1 ) > #SCNT2
    WAIT 0
	RETURN
}
; WaitForVar====================
; %1 sysvar to wait for without #
; %2 comparison operator = <> ...
; %3 value to compare with
; %4 optional timeout, default 5 seconds
;===============================
SUB WaitForVar
{
	SET %wfv_timeout #SCNT2 + 50
	IF %0 = 4
		SET %wfv_timeout #SCNT2 + %4
wfv_waitloop:
		IF #SCNT2 > %wfv_timeout
			RETURN #FALSE
		IF ! ( # . %1 %2 %3 )
			GOTO wfv_waitloop
	RETURN #TRUE
}
; IgnoreList====================
; %1 Item to ignore for 3 minutes
;===============================
SUB IgnoreList
{
  NAMESPACE PUSH
  NAMESPACE LOCAL IgnoreList
  SET !item #FALSE
  IF %0 > 0
    SET !item %1
  IF !timer < #SCNT || !timer = N/A
  {
    IF !timer <> N/A
       SET !resetcnt ( #SCNT - !timer ) / 10 + 1
    ELSE
      SET !resetcnt 1
    SET !timer #SCNT - ( #SCNT % 10 ) + 10
    FOR !i 1 !resetcnt
    {
      SET !resetlist !timer - ( 190 + ( !i * 10 ) )
      IGNOREITEM RESET !resetlist
    }
  }
  IF !item <> #FALSE
    IGNOREITEM !item !timer
  NAMESPACE POP
  RETURN
}
;SetEquipLootlists===============
SUB SetEquipLootlists
{
	;WEAPON TYPES=============================================================
	SET %sword YPO_BNF_CPH_INF_FSF_OSF_ASF_HNF_FMH_CNF_LSF_NSF_ISF_SMH_RMH_CSF_ZRF_MPH_LPH_MSF_BSF_KPO_GUO_KTF_JTF_BPH_EPH_ZSF_ATF_JPH_SOH_POH_NMH_OMH_LPO_ZTO_XTH_YTH_HSF_KSF_NPO_XPO_FUO_JPO_QPF_NPF_KPH_FYG_RHM_SFR_
	SET %fencing SRH_AQF_PPF_TSF_WSF_BUO_VPO_WPO_WRH_VRH_XRH_YRH_LTF_MTF_OPO_RRH_CUO_
	SET %mace OLH_JOH_URH_EMH_WTH_DMH_QMH_CFF_BFF_PMH_GMH_ZPF_CQF_FFF_RPF_TRH_YSF_XSF_FBG_VTH_AUH_ZTH_UOH_VOH_AUO_MPO_BUH_CUH_DMH_GFF_QOH_HFF_TLH_GBG_
	SET %bow WOH_TOH_QPO_SPO_WOH_TOH_JSF_USF_LMH_MMH_QPO_SPO_PPO_RPO_JSF_USF_LMH_MMH_PPO_RPO_JSF_
	;Samurai Empire Weapons---
	SET %se_sword CSF_ZRF_MPH_LPH_MSF_BSF_KPO_GUO_KTF_JTF_BPH_EPH_ZSF_ATF_JPH_SOH_POH_NMH_OMH_LPO_ZTO_XTH_YTH_HSF_KSF_NPO_XPO_FUO_JPO_QPF_NPF_KPH_FYG_RHM_JDP_EDP_YCP_KDP_
	SET %se_fencing LDP_HDP_ZCP_FDP_
	SET %se_mace DDP_ADP_IDP_
	SET %se_bow XCP_
	;Mondain's Legacy Weapons---
	SET %ml_sword RFR_NFR_SFR_OFR_EFR_YFR_XFR_DFR_
	SET %ml_fencing KFR_GFR_LFR_HFR_IFR_MFR_FFR_JFR_
	SET %ml_mace VFR_BFR_WFR_CFR_
	SET %ml_bow VER_PFR_wer_QFR_
	;ARMOR TYPES================================================================
	;Medable first----
	SET %leatherarmor VKH_NJL_QJL_JKH_QKH_DLH_HKH_PKH_SKH_KKH_ELH_PSF_QSK_ATK_ZSK_OSK_YSK_NSK_
	SET %medhelmet NJL_QJL_NZH_TDI_VVI_KZH_PZH_DZH_
	SET %medgorget JKH_RJG_SJG_FJG_MWL_
	SET %medarm HKH_PKH_
	SET %medtunic QKH_DLH_
	SET %femalemedtunic ATK_ZSK_OSK_NSK_
	SET %medglove KKH_SKH_WTO_
	SET %medlegging VKH_ELH_
	SET %femalemedlegging QSK_YSK_PSK_
	;Hats---
	SET %hats CZH_HZH_GZH_BWI_WVI_XVI_YVI_IWI_HWI_KWI_JWI_EWI_JJN_OZH_DZH_BZH_EZH_VSH_QSH_VSH_NWL_
	;Samurai Empire Medable Armor---
	SET %se_leatherarmor RWO_GCP_UBP_OWO_LCP_SWO_GWO_CCP_NCP_OCP_
	SET %se_medhelmet GWO_CCP_
	SET %se_medgorget SWO_
	SET %se_medarm OWO_
	SET %se_medtunic RWO_NCP_
	SET %se_medglove OCP_
	SET %se_medleggins GCP_UBP_LCP_ECP_
	SET %se_medarmor %se_leatherarmor , %se_medhelmet , %se_medgorget , %se_medarm , %se_medtunic , %se_medglove , %se_medleggins
	;Mondain's Legacy Medable Armor---
	SET %ml_medhelmet IJQ_
	SET %ml_medgorget BAS_
	SET %ml_medarm MAS_
	SET %ml_medtunic ZZR_
	SET %ml_medglove CAS_
	SET %ml_medleggings OAS_LAS_
	SET %ml_medarmor %ml_medhelmet , %ml_medgorget , %ml_medarm , %ml_medtunic , %ml_medglove , %ml_medleggings
	;---
	SET %medarmor %leatherarmor , %medHelmet , %hats , %medGorget , %medArm , %medTunic , %femaleMedTunic , %medGlove , %medLegging , %femaleMedLegging , %se_medarmor , %ml_medarmor
	;Non medable---
	SET %studdedarmor ALH_ULH_LLH_YKH_GLH_XKH_FLH_RLH_MLH_SSK_RSK_
	SET %bonearmor ZPH_YPH_WPH_PPH_BQH_QPH_VPH_XPH_CQH_AQH_
	SET %nonmedhelmet DSH_ASH_TSH_ESH_YPH_GSH_OSH_ZPH_ZRH_IWL_CSH_CSH_BSH_FSH_DPH_LKO_NWL_MKH_
	SET %nonmedgorget NSH_ALH_
	SET %nonmedarm BQH_JSH_XLH_GLH_MSH_YLH_QPH_YKH_DLO_
	SET %nonmedtunic HSH_ULH_LLH_ZOH_IKH_VLH_KSH_WLH_WPH_PKO_PPH_RSK_
	SET %femalenonmedtunic USK_SSK_MSK_TSK_LSK_USK_
	SET %nonmedglove VPH_ISH_AQH_BMH_USH_XKH_FLH_KMH_RKO_
	SET %nonmedlegging HMH_LSH_IMH_CQH_WSH_APH_MLH_RLH_NKH_XPH_NKO_
	;Samurai Empire Non Medable Armor---
	SET %se_studdedarmor MWO_NWO_FCP_PCP_TBP_
	SET %se_nonmedhelmet RBP_DCP_QWO_DWO_SBP_VBP_FWO_
	SET %se_nonmedgorget PCP_
	SET %se_nonmedarm NWO_WBP_
	SET %se_nonmedtunic MWO_LWO
	SET %se_nonmedleggins FCP_TBP_ZBP_
	SET %se_nonmedarmor %se_studdedarmor , %se_nonmedhelmet , %se_nonmedgorget , %se_nonmedarm , %se_nonmedtunic , %se_nonmedleggins
	;Mondain's Legacy Non Medable Armor---
	SET %ml_nonmedhelmet RJQ_UJQ_TJQ_
	SET %ml_nonmedgorget QJQ_JJQ_
	SET %ml_nonmedarm PJQ_GJQ_
	SET %ml_nonmedtunic OJQ_ZIQ_
	SET %ml_nonmedgloves NJQ_MJQ_
	SET %ml_nonmedleggings AKQ_LJQ_
	SET %ml_nonmedarmor %ml_nonmedhelmet , %ml_nonmedgorget , %ml_nonmedarm , %ml_nonmedtunic , %ml_nonmedgloves , %ml_nonmedleggings
	;---
	SET %nonmedarmor %studdedarmor , %bonearmor , %nonmedHelmet , %nonmedGorget , %nonmedArm , %nonmedTunic , %femaleNonMedTunic , %nonmedGlove , %nonmedLegging , %se_nonmedarmor , %ml_nonmedarmor
	;INIT LISTS====================================================================
	SET %bml_swordlist %sword  , %se_sword , %ml_sword
	SET %bml_fencinglist %fencing , %se_fencing , %ml_fencing
	SET %bml_macelist %mace , %se_mace , %ml_mace
	SET %bml_bowlist %bow , %se_bow , %ml_bow
	SET %bml_armorlist %medarmor , %nonmedarmor
	SET %bml_shieldlist LIK_MIK_CLK_AIK_CIK_LYD_GIK_NIK_ZHK_HLK_BLK_FIK_BIK_OIK_
	SET %bml_jewelerylist CWL_LWL_UJG_IJG
	SET %bml_instrumentlist OQF_LQF_PRF_KRF_MQF_QRF_RGP_ ;RGP is the Samurai Empire Instrument
	RETURN
}
;--------- EasyUO Menu Designer Code Begin ---------
sub showLootMenu
{
	menu Clear
	menu Window Title Automagic Looting
	menu Window Color BtnFace
	menu Window Size 222 330
	menu Font Transparent #true
	menu Font Align Right
	menu Shape EUOShape1 0 216 221 2 3 7 1 Black 7 Black
	menu Shape EUOShape2 0 124 225 2 3 7 1 Black 7 Black
	menu Shape EUOShape3 52 268 109 29 3 7 2 Black 7 BtnFace
	menu Shape EUOShape4 0 100 225 2 3 7 1 Black 7 Black
	menu Shape EUOShape5 0 268 221 2 3 7 1 Black 7 Black
	menu Font Name MS Sans Serif
	menu Font Size 8
	menu Font Style
	menu Font Color WindowText
	menu Font Transparent #false
	menu Font Align Left
	;---
	menu Text EUOLabel1 28 196 Minimum Loot Score:
	menu Text EUOLabel2 156 196 (1-40)
	menu Font BGColor Window
	menu Edit value 128 192 25 10
	menu Edit hotkey 144 272 13 A
	menu Font BGColor BtnFace
	;---
	menu Check goldchk 0 0 109 17 #false Gold
	menu Check gemchk 0 16 109 17 #false Gems
	menu Check regchk 0 32 109 17 #false Reagents
	menu Check ammochk 0 48 109 17 #false Ammo
	menu Check scrollchk 0 64 109 17 #false Scrolls
	menu Check instrumentchk 0 80 109 17 #false Instruments
	menu Check solenchk 112 0 109 17 #false Solen Loot
	menu Check jukachk 112 16 109 17 #false Juka Loot
	menu Check paragonchk 112 32 109 17 #false Paragon Loot
	menu Check questchk 112 48 109 17 #false Quest Loot
	menu Check resourcechk 112 64 109 17 #false Resources
	menu Check otherchk 112 80 109 17 #false Other
	;---
	menu Check user1chk 0 104 109 17 #false User1
	menu Check user2chk 112 104 109 17 #false User2
	;---
	menu Check swordchk 0 128 109 17 #false Swords
	menu Check fencechk 112 128 109 17 #false Fencing
	menu Check macechk 0 144 109 17 #false Maces
	menu Check bowchk 112 144 109 17 #false Bows
	menu Check armorchk 0 160 109 17 #false Armor
	menu Check shieldchk 112 160 109 17 #false Shields
	menu Check jewelchk 0 176 109 17 #false Jewellery
	menu Check setchk 112 176 109 17 #false Equipment Sets
	;---
	menu Check allchk 0 220 109 13 #false Everything
	menu Check closechk 112 220 109 13 #true Close Corpse
	menu Check regbagchk 0 236 109 13 #false Use Regbag
	menu Check cutchk 112 236 109 13 #false Cut Corpses
	menu Check dragcutchk 0 252 109 13 #false Drag After Cut
	menu Check bagchk 112 252 109 13 #false Open Sub Bags
	menu Check hotkeychk 56 276 85 13 #false Use HotKey
	;---
	menu Button startbutton 52 298 109 29 [ START ]
	;---
	SET %null
	IF *bml_minvalue <> %null && *bml_minvalue <> N/A
		MENU SET value *bml_minvalue
	IF *bml_hotkey  <> %null && *bml_hotkey <> N/A
		MENU SET hotkey *bml_hotkey
	IF *bml_settings <> %null && *bml_settings <> N/A
	{
		IF gold IN *bml_settings
			menu SET goldchk #TRUE
		IF gem IN *bml_settings
			menu SET gemchk #TRUE
		IF reg IN *bml_settings
			menu SET regchk #TRUE
		IF ammo IN *bml_settings
			menu SET ammochk #TRUE
		IF scroll IN *bml_settings
			menu SET scrollchk #TRUE
		IF instrument IN *bml_settings
			menu SET instrumentchk #TRUE
		IF solen IN *bml_settings
			menu SET solenchk #TRUE
		IF juka IN *bml_settings
			menu SET jukachk #TRUE
		IF paragon IN *bml_settings
			menu SET paragonchk #TRUE
		IF quest IN *bml_settings
			menu SET questchk #TRUE
		IF resource IN *bml_settings
			menu SET resourcechk #TRUE
		IF sword IN *bml_settings
			menu SET swordchk #TRUE
		IF fence IN *bml_settings
			menu SET fencechk #TRUE
		IF mace IN *bml_settings
			menu SET macechk #TRUE
		IF bow IN *bml_settings
			menu SET bowchk #TRUE
		IF armor IN *bml_settings
			menu SET armorchk #TRUE
		IF shield IN *bml_settings
			menu SET shieldchk #TRUE
		IF jewel IN *bml_settings
			menu SET jewelchk #TRUE
		IF sets IN *bml_settings
			menu SET setchk #TRUE
		IF other IN *bml_settings
			menu SET otherchk #TRUE
		IF user1 IN *bml_settings
			menu SET user1chk #TRUE
		IF user2 IN *bml_settings
			menu SET user2chk #TRUE
		IF all IN *bml_settings
			menu SET allchk #TRUE
		IF close NOTIN *bml_settings
			menu SET closechk #FALSE
		IF regbag IN *bml_settings
			menu SET regbagchk #TRUE
		IF cut IN *bml_settings
			menu SET cutchk #TRUE
		IF dragcut IN *bml_settings
      menu SET dragcutchk #TRUE
    IF openbags IN *bml_settings
      menu SET bagchk #TRUE
		IF hotkey IN *bml_settings
			menu SET hotkeychk #TRUE
	}
	menu Show
	SET #MENUBUTTON N/A
  WHILE #TRUE
  {
    IF #MENUBUTTON = startbutton
      BREAK
	  IF #MENUBUTTON = closed
		  HALT
  }
	Menu HIDE
	;=========================================================================================================
	;Below the lootlist is set according to the users menu choices, everything specified will be looted automagically.
	;=========================================================================================================
	GOSUB ClearGlobal bml_settings
	GOSUB ClearGlobal bml_minvalue
	SET %bml_lootlist
	SET %lootbag #TRUE
	SET %bml_closecorpse #FALSE
	SET %bml_openbags #FALSE
	SET %bml_hotkey #FALSE
	MENU GET goldchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %gold
		GOSUB WriteToGlobal bml_settings gold
	}
	MENU GET gemchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %jewels
		GOSUB WriteToGlobal bml_settings gem
	}
	MENU GET regchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %reagents
		GOSUB WriteToGlobal bml_settings reg
		MENU GET regbagchk
		SET %regbag #MENURES
		IF #MENURES
			GOSUB WriteToGlobal bml_settings regbag
	}
	MENU GET ammochk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %arrowsbolts
		GOSUB WriteToGlobal bml_settings ammo
	}
	MENU GET solenchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %solenloot
		GOSUB WriteToGlobal bml_settings solen
	}
	MENU GET jukachk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %jukaloot
		GOSUB WriteToGlobal bml_settings juka
	}
	MENU GET paragonchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %paragonloot
		GOSUB WriteToGlobal bml_settings paragon
	}
	MENU GET questchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %questloot
		GOSUB WriteToGlobal bml_settings quest
	}
	MENU GET resourcechk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %leather
		SET %bml_lootlist %bml_lootlist , %feather
		SET %bml_lootlist %bml_lootlist , %bones
		SET %bml_lootlist %bml_lootlist , %wool
		SET %bml_lootlist %bml_lootlist , %scale
		GOSUB WriteToGlobal bml_settings resource
	}
	MENU GET instrumentchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %bml_instrumentlist
		GOSUB WriteToGlobal bml_settings instrument
	}
	MENU GET otherchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %other
		GOSUB WriteToGlobal bml_settings other
	}
	MENU GET scrollchk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %scrolls
		GOSUB WriteToGlobal bml_settings scroll
	}
	MENU GET user1chk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %user1
		GOSUB WriteToGlobal bml_settings user1
	}
	MENU GET user2chk
	IF #MENURES
	{
		SET %bml_lootlist %bml_lootlist , %user2
		GOSUB WriteToGlobal bml_settings user2
	}
	MENU GET cutchk
	SET %bml_cutcorpse #MENURES
	IF #MENURES
		GOSUB WriteToGlobal bml_settings cut
	;=======================================
	;Set the Equipment lootlist from the user selection
	;=======================================
	SET %bml_equiplootlist
	SET %bml_lootequipment #FALSE
	SET %bml_lootsets #FALSE
	MENU GET value
	SET *bml_minvalue #MENURES
	MENU GET swordchk
	IF #MENURES
	{
		SET %bml_equiplootlist %bml_equiplootlist , %bml_swordlist
		GOSUB WriteToGlobal bml_settings sword
	}
	MENU GET  fencechk
	IF #MENURES
	{
		SET %bml_equiplootlist %bml_equiplootlist , %bml_fencinglist
		GOSUB WriteToGlobal bml_settings fence
	}
	MENU GET macechk
	IF #MENURES
	{
		SET %bml_equiplootlist %bml_equiplootlist , %bml_macelist
		GOSUB WriteToGlobal bml_settings mace
	}
	MENU GET bowchk
	IF #MENURES
	{
		SET %bml_equiplootlist %bml_equiplootlist , %bml_bowlist
		GOSUB WriteToGlobal bml_settings bow
	}
	MENU GET armorchk
	IF #MENURES
	{
		SET %bml_equiplootlist %bml_equiplootlist , %bml_armorlist
		GOSUB WriteToGlobal bml_settings armor
	}
	MENU GET shieldchk
	IF #MENURES
	{
		SET %bml_equiplootlist %bml_equiplootlist , %bml_shieldlist
		GOSUB WriteToGlobal bml_settings shield
	}
	MENU GET jewelchk
	IF #MENURES
	{
		SET %bml_equiplootlist %bml_equiplootlist , %bml_jewelerylist
		GOSUB WriteToGlobal bml_settings jewel
	}
	MENU GET setchk
	IF #MENURES
	{
		SET %bml_lootsets #TRUE
		GOSUB WriteToGlobal bml_settings sets
	}
	;=====================
	; Other check boxes
	;=====================
	MENU GET closechk
	IF #MENURES
	{
		GOSUB WriteToGlobal bml_settings close
		SET %bml_closecorpse #TRUE
	}
	MENU GET hotkeychk
	IF #MENURES
	{
		GOSUB WriteToGlobal bml_settings hotkey
		MENU GET hotkey
		SET *bml_hotkey #MENURES
		SET %bml_hotkey #TRUE
	}
	IF %bml_equiplootlist <> %null
		SET %bml_lootequipment #TRUE
	MENU GET bagchk
  IF ! #MENURES
    SET %bml_lootlist %bml_lootlist , %bags
  IF #MENURES
  {
    GOSUB WriteToGlobal bml_settings openbags
    SET %bml_openbags #TRUE
  }
  MENU GET dragcutchk
  IF #MENURES
  {
    GOSUB WriteToGlobal bml_settings dragcut
    SET %bml_dragcut #TRUE
  }
	MENU GET allchk
	IF #MENURES
	{
		GOSUB WriteToGlobal bml_settings all
		SET %bml_lootlist *
		RETURN
	}
	;=======================================
	IF %bml_lootlist = %reagents
	{
		SET %lootbag #FALSE
		SET %regbag #TRUE
	}
	IF %bml_lootlist = %null && %bml_equiplootlist = %null
	{
		DISPLAY OK No loot selected!$Halting script.
		HALT
	}
RETURN
;------------------------------
;* @name CheckFreeShard
;* @ver 1.0 2Feb05
;* @author  Roadkill
;* @purpose  checks if you're on a known OSI shard or not
;* @params %1 optional, variablename to return #true/#false in, #true if on a freeshard
;* @returns #result and @%1 #true if on a freeshard, #false if on a known OSI shard.
;* @example call rksubs.txt CheckFreeShard <@%1 varname, opt><@#result #true if #shard notin osi list
;------------------------------
sub CheckFreeShard
	set !OSIshards pacific_sonoma_baja_legends_atlantic_chesapeake_catskills_lake , #spc , austin
	+_napa , #spc , valley_lake , #spc , superior_great , #spc , lakes_siege , #spc , perilous_europa
	+_drachenfels_oceania_origin_wakoku_formosa_arirang_balhae_asuka_yamato_mugen_hokuto_misuho_izumo_sakura_
	set !result #shard notin !OSIshards
	if %0 >= 1 && %1 <> n/a
		set % . %1 !result
return !result
;BMEuoVer========================
; Returns the numerical EUO version
;================================
SUB BMEuoVer
{
	SET %euover #EUOVER
  REPEAT
	{
		STR POS %euover _
		IF #STRRES > 0
		{
			STR DEL %euover #STRRES 1
			SET %euover #STRRES
		}
	}
  UNTIL #STRRES = 0
}
RETURN %euover
;BMGetProperty======================
;%1 is the itemID to get the property of
;================================
SUB BMGetProperty
{
  SET %prop_timeout #SYSTIME + 1500
  EVENT PROPERTY %1
  WHILE #PROPERTY = $ || No , #SPC , Data IN #PROPERTY
  {
    IF No , #SPC , Data IN #PROPERTY
      EVENT PROPERTY %1
    IF #SYSTIME > %prop_timeout
      RETURN #FALSE
  }
  RETURN #TRUE
}
;WriteToGlobal======================
;%1 is the global to write to (no *)
;%2 to %N are the words or values to write
;================================
SUB WriteToGlobal
{
	FOR %i 2 %0
	{
		IF % . %i NOTIN * . %1
			SET * . %1 * . %1 , % . %i , _
	}
	RETURN
}
;ClearGlobal=======================
;%1 is the global to clear (no *)
;================================
SUB ClearGlobal
{
	SET * . %1
	RETURN
}