;==================================
; Script Name: Non-Intrusive Doom Bone Cutter
; Author: Aastrom
; Version: 1.2
; Client Tested with: 6.0.11.0 (patch 72)
; EUO version tested with: 1.5
; Shard OSI / FS:
; Revision Date: 2008-12-06
; Public Release: 2006-11-04
; Purpose: Unintrusively cuts Unholy Bones that the Dark Father in Doom places.
;==================================



;==================================
set %bones MNF_QNF_PNF_KNF_JNF_LNF_YNF_VNF_
SET %knive TSF_GMH_BNF_CNF_FMH_WSF
FINDITEM %knive C_ , #BACKPACKID
      IF #FINDKIND = -1
      {
        DISPLAY OK You need a knife to cut up bones. $ HALTED!
        HALT
      }
set %dagger #findid
;==================================

;==== The Lower the # the slower you cut
set #lpc 50
;==== Beware of going to fast, it gets quite obvious

;DO NOT EDIT BELOW THIS POINT
scan:
if #targCurs = 1
 goto scan
finditem %bones G_9
if #findkind = -1
  goto scan
set #ltargetid #findid
set #ltargetkind 1
event property #findid
if corpse in #property
  {
    ignoreitem #findid
    goto scan
  }
if bones in #property
  gosub cut
while #charghost = yes
 {
  Display ok Paused!
  pause
 }
goto scan

sub cut
if #targCurs = 1
 goto scan
set #lobjectid %dagger
event macro 17 0
target
event macro 22 0
return

