Forensic Evaulation

initevents
Set %SoundFile MacroAlert.wav
set %version 1.0
set %corpsetype YFM
set %dagger TSF
chooseSkill fore
set %startskill #skill
set %evals 0
set %trash MMF

MainLoop:
set %foundcorpse N/A
finditem %corpsetype G_2
set %foundcorpse #findid
if #findkind <> -1 8
;  set #LObjectID %dagger
  finditem %dagger
  set #lobjectid #findid
  event Macro 17
  target
  set #ltargetid %foundcorpse
  event macro 22
  goto DickTracy
wait 1s 1s
goto Mainloop

DickTracy:
  finditem %corpsetype G_2
if #findcnt = 0
 {
  sound %SoundFile
  wait 5s
  goto DickTracy
 }
if #findcnt > 0
{
  set #ltargetid #findid
  set #lTargetKind 1
  event macro 13 19
  wait 5 5
  set %_scnt #scnt + 3
targcurs:
  if #targcurs <> 1 && %_scnt > #scnt
    goto targcurs
  event macro 22
Wait 200
RepeatDumpingScrolls:
finditem %trash C_ , #backpackid
if #FINDCNT = 0 1
 goto DickTracy
if #FINDCNT > 0
{
	Exevent Drag #findid #findstack
	wait 1
	Exevent Dropg #charposx #charposy #charposz
	wait 1
  finditem %trash C_ , #backpackid
}
Goto RepeatDumpingScrolls
Goto DickTracy
}
else
Goto MainLoop