initevents
linespercycle 50
set %mobcnt 0
set #MenuButton 0

event macro 8 7
ignoreitem #contid

display alert Make sure that Options | Configuration $ Allow execute and Enable event sysmessage are checked. $ These are needed to make the loot tracker run properly.
display alert Welcome to Loot Tracker v1.3 $ Copyright UOMart 2003-2004 $ $ http://homepages.ihug.co.nz/~monte $ EMAIL:uomart@ihug.co.nz $ ICQ#18204089$Many thanks to Orngrimm over at www.easyuo.com for save.js

gosub instruct

set *842 @@ ,  #shard , $ , #date , $
execute save.js loot_log.txt 842

gosub totluck

start:

onhotkey f11
  gosub instruct

onhotkey f12
  gosub totluck

if #conttype = YFM
{
  set %corpse #contid
  finditem POF C_ , %corpse
  if #findkind = -1 1
    goto start
  set %gold #findstack
  event property %corpse
  set %mobname #property
  set %mobcnt %mobcnt + 1
  ignoreitem #findid
  set *842 ^^ , #time , $ , %mobcnt , $ , %gold , $ , %mobname
  execute save.js loot_log.txt 842
  wait 5
  items:
    finditem * C_ , %corpse
    if #findkind = -1 2
      display ok KILL %mobcnt recorded. Grab your loot!
      goto start
    event property #findid
    set *842 $ , #findtype , $ , #property , //
    execute save.js loot_log.txt 842
    wait 5
    ignoreitem #findid
  goto items    
}
goto start

sub instruct
  display alert SIMPLE TO USE $ 1) Kill monster $ 2) Open corpse $ 3) Wait until dialog box pops up $ 4) LOOT! $ $ SENDING ME DATA $ 1) Zip the file $ 2) Email file as attachment (uomart@ihug.co.nz)$ $ Press F11 anytime to see this box again.
return

sub totluck
  Menu clear
  Menu hideEUO
  Menu show
  Menu window title Enter luck
  Menu window size 140 60
  Menu window color black
  Menu font bgcolor black
  Menu font color red
  Menu font size 8
  Menu font style B
  Menu font name Arial
  Menu button but_1 5 40 125 17 Save luck value
  Menu font color white
  Menu edit eLuck 5 15 125
  ButtonLoop:
   if #MenuButton = but_1
   {
      Menu GetNum eLuck -1
      if #MenuRes = -1
      {
         Display OK Please enter luck value in edit box.
         Menu show
         set #MenuButton 0
         goto ButtonLoop
      }
     gosub luck_type
     set *842 PLUCK , _ , #menuRes , $ , %luck_type
     execute save.js loot_log.txt 842
     Menu hide
     display ok Ok, luck of #menuRes recorded in database $ Press F12 at anytime to enter a new luck value!
     return
   }
goto ButtonLoop

sub luck_type
     set %luck_type -1
     Menu clear
     Menu window title Select type of luck on suit items
     Menu window size 310 50
     Menu window color black
     Menu font bgcolor black
     Menu font color red
     Menu font size 8
     Menu font style B
     Menu font name Arial
     Menu button but_2 5 20 95 17 All pieces<100
     Menu button but_3 105 20 95 17 All pieces>100
     Menu button but_4 205 20 95 17 Mixed pieces
     Menu font color white
ButtonLoop1:
   if #MenuButton = but_2
   {
     set %luck_type 1
     return
   }
   if #MenuButton = but_3
   {
     set %luck_type 2
     return
   }
   if #MenuButton = but_4
   {
     set %luck_type 3
     return
   }
goto ButtonLoop1