This is my Friend Niks looter. He has since quite playing and I have not been able to contact him. I was hopping some one could show me what I am missing. I have read threw every section trying to find out why this thing will not loot brigands, murderers, or other humanoid type mobs.
;===================
; Script Name: NiksLooter
; Author: Nik
; Version: 3.4.1
; Client Tested with: Latest
; EUO version tested with: 1.5 Build 183
; Shard OSI / FS: FS Paradise Found
; Public Release: 13 Mar 2011
; Purpose: This loots corpses with either Grab All or Loot
; NOTE: To use LOOT you must set a loot to bag!
; If using Claim it will claim regardless of whats left on the corpse.
; make sure you add item types for things you want to loot to the list below.
;===================
;############################## YOU MUST SET ME!!!!! ##############################
set %GrabBag #BACKPACKID
;################## You can change / add to me if you want ########################
set %loot RQF_XZY_KDF_EU_POF_ZSL_SVH_ATS_HTD_HEJ_ETH_DTH_QUF_VMK_DWR_EWR_WY_FWR_DWR_GWR_DUN_UDF_DYM_QFAB_HAG_ITK_HZG_TKG_GLG ;list of items to manualy loot.
set %knife GFR_HNF_XFR_NMH ;ItemTYPE of knife to skin with.
; UDF Fishing Net
; KDF Magical Fishing Pole
;###################################################################################
;###################################################################################
;###################################################################################
;############################ ############################
;############################ DONT TOUCH BELOW HERE ############################
;############################ ############################
;###################################################################################
;###################################################################################
;###################################################################################
set #LPC 500
menu clear
Menu window size 205 150
Menu show
Menu window color $F2F2F2
Menu Window Title NikLooter
Menu font bgcolor $F2F2F2
menu font color red
menu font size 10
menu text text3 95 29 OR
Menu Text text1 3 3 Select One
menu font color blue
menu text text2 3 60 Options
Menu font color Black
Menu font size 18
menu shape blah 5 20 195 35 4 7 2 red 2 black
menu shape blah1 5 77 195 35 4 7 2 blue 2 black
menu check grab 15 25 80 25 #FALSE Grab
menu check loot 120 25 70 25 #FALSE Loot
menu check skin 120 82 70 25 #FALSE Skin
menu check Claim 15 82 90 25 #FALSE Claim
menu check Reset 15 118 200 25 #FALSE Reset Ignores
main:
menu get grab
if #menures = -1
gosub grab
menu get loot
if #menures = -1
gosub loot
menu get Reset
if #MENURES = -1
gosub reset
wait 1
goto main:
;################## Grab ########################
sub Grab
finditem YFM G_2
event property #FINDID
if remains in #PROPERTY
{
ignoreitem #FINDID
return
}
if #FINDCNT > 0
{
set %jstart #JINDEX
set %grabmob #FINDID
ignoreitem #FINDID
menu get skin
if #menures = -1
gosub skin
grab:
set #LTARGETID %grabmob
set #LTARGETKIND 1
set #TARGCURS 0
event macro 1 0 [ga
target
event macro 22
wait 10
set %jend #jindex
for %ji %jstart %jend
{
scanjournal %ji
if You_grabbed_the_loot in #journal
{
ignoreitem %grabmob
deletejournal
}
}
menu get claim
if #menures = -1
gosub claim
}
return
;################## loot ########################
sub loot
finditem YFM G_2
event property #FINDID
if remains in #PROPERTY
{
ignoreitem #FINDID
return
}
if #FINDCNT > 0
{
set %lootmob #FINDID
set #LOBJECTID %lootmob
set #NEXTCPOSX 552
set #NEXTCPOSY 784
event macro 17 0
wait 10
loot:
gosub CheckBookCheck
gosub CorpseCheck
finditem POF_CPF_IGR_YFM C_ , %lootmob
if #FINDCNT > 0
{
exevent drag #FINDID #FINDSTACK
wait 7
exevent dropc %golddrop
wait 7
goto loot:
}
gosub CorpseCheck
finditem %loot C_ , %lootmob
if #FINDCNT > 0
{
exevent drag #FINDID #FINDSTACK
wait 7
exevent dropc %GrabBag
wait 7
goto loot:
}
menu get skin
if #menures = -1
gosub skin
grab:
finditem %lootmob G_2 IGR_YFM
if #FINDCNT > 0
{
set %jstart #JINDEX
event sysmessage .
set #LTARGETID %lootmob
set #LTARGETKIND 1
set #TARGCURS 0
event macro 1 0 [ga
target 2s
event macro 22
wait 10
set %jend #JINDEX
for %ji %jstart %jend
{
scanJournal %ji
if You_grabbed_the_loot! in #journal
goto moveon
}
goto grab:
moveon:
ignoreitem %lootmob
menu get claim
if #menures = -1
gosub claim
}
}
return
sub CorpseCheck
if #findtype in CTD_DLN_CUD_UXM_CKF_JKF_TXM_ZTD_VMF_TMF_LKF_AUD_OKF_ZJF_YFM
if #CONTID = %lootmob
return
finditem * C_IGR , %lootmob
if #FINDCNT = 0
gosub loot
}
return
;################## skin ########################
sub skin
chooseskill forensic
if #SKILL >= 1000
{
set #LTARGETKIND 1
set #LTARGETID %lootmob
event macro 13 19
target
event macro 22 0
wait 10
}
finditem GFR C
if #FINDCNT > 0
{
set #LOBJECTID #FINDID
set #TARGCURS 0
event macro 17
target 2s
set #LTARGETKIND 1
set #LTARGETID %lootmob
event macro 22
wait 10
return
}
finditem %knife C
if #FINDCNT > 0
{
set #LOBJECTID #FINDID
set #TARGCURS 0
event macro 17
target 2s
set #LTARGETKIND 1
set #LTARGETID %lootmob
event macro 22
wait 10
}
else
{
display ok No Knife Found, Pausing
Pause
}
return
;################## claim ########################
sub claim
claim:
set #TARGCURS 0
event macro 1 0 [cl
target 2s
set #LTARGETID %lootmob
set %LTARGETKIND 1
event macro 22 0
wait 10
finditem %lootmob G_2
if #FINDCNT > 0
goto claim:
return
;################## reset ########################
sub reset
wait 20
ignoreitem Reset
menu set reset 0
return
;################## CheckBook Check ########################
sub CheckBookCheck
; CHECKBOOK CHECK
check:
finditem DYM C
if #FINDCNT > 0 && #FINDCOL = 2033
{
set %golddrop #FINDID
return
}
if #FINDCNT > 1 && #FINDCOL <> 2033
{
ignoreitem #FINDID
goto check:
}
else
set %golddrop #BACKPACKID
return