;==================================
; Script Name:  Bone Cutter
; Author: Necro|FS
; Version: 1.00
; Client Tested with: 4.0.4b
; EUO version tested with: 0098
; Shard OSI / FS: OSI
; Revision Date: 09-23-04
; Public Release: 09-23-04
; Global Variables Used: n/a
; Purpose: Cuts Bones
; Modified by: Ba'al and Toxic Touch
;==================================
;determines if SysMessages are enabled
set %sysmsg sys in #opts
; id types of all blades
set %bladetypes bnf_hsf_inf_gmh_rrh_mtf_guo_xrh_cuo_opo_xth_buo_zto_
+uoh_lph_rmh_zrf_nsf_bsf_lsf_bph_soh_jtf_vrh_nmh_tsf_jph_npo_atf_fuo
; id types of cutable bones
set %bonetypes MNF_QNF_PNF_KNF_JNF_LNF_YNF
; finds proper blade in your pack
gosub FindBlade
set %WEAPON #result
; script start

loop1:
finditem %bonetypes G_15
if #findkind <> -1
{
set #lobjectid %WEAPON
set #ltargetid #findid
set #ltargetkind 1
event macro 17 0
target
event macro 22 0
if you_may_not in #sysmsg || that_is in #sysmsg
ignoreitem #findid
wait 10
if %sysmsg
event sysmessage JUST CUT!
goto loop1
}
if #findkind = -1
goto loop1


sub FindBlade

finditem %bladetypes C
if #findkind = -1
{
  set #ltargetid notpick
  set #targcurs 1
  display OK Please target your bladed weapon, I could not find one automatically..
targLoop:
  if #ltargetid = notpick
    goto targLoop
  return #ltargetid
}
return #findid