
The job of this script is to auto-skin corpses that are 2 tiles away from you, then cut and loot the leather, wool or feathers (depending on the corpse obviously).
This script is in beta at the moment. I'm still looking to add some things in so let me know what you want to see! I'll add the GUI when its finished.
Don't forget your scissors!
Code: Select all
; BlaZin' SkinnR
; by BlaZe Budd of Excelsior's ßud ßrothers
; v0.5b completed 3/5/09
set %stuff OFF_DEG_JJG_VLK
deleteJournal
event exMsg #charID 3 33 Target your knife!
set #targCurs 1
targetLoop:
if #targCurs = 1
goto targetLoop
set %knife #lTargetID
gosub find
sub find
findLoop:
findItem YFM G_ , 2
if #findKind >= 1
{
set %corpse #findID
gosub skin
gosub loot
ignoreItem %corpse
}
goto findLoop
sub skin
set #lTargetKind 1
set #lTargetID #findID
set #lObjectID %knife
event macro 17
target
event macro 22
wait 7
gosub scanner
return
sub loot
set #lObjectID #findID
lootAgain:
event macro 17
gosub scanner
if pathFind in #result
{
event pathFind #findX #findY
wait 1
goto lootAgain
}
wait 7
gumpLoop:
if #contSize <> 144_212
goto gumpLoop
findItem %stuff C_ , %corpse
if #findKind = -1
return
if #findType = OFF || #findType = VLK
goto dragDrop
set %hides #findID
findItem JAG C_ , #backpackID
if #findKind = -1
return
set #lTargetID %hides
set #lObjectID #findID
event macro 17
target
event macro 22
wait 7
findItem JJG C_ , %corpse
dragDrop:
exEvent drag #findID #findStack
exEvent dropC #backpackID
return
sub scanner
for %scan 1 10
{
scanJournal %scan
if too_far_away in #journal || cannot_be_seen in #journal
{
deleteJournal
return pathFind
}
}
deleteJournal
return ok