;Beginning ;Wolfe's Ingot-Ore counter - Displays in your journal ;OPEN all containers containing INGOTS or ORE you want counted. ;This will count stacks and add them up! Displays Each Type. ;This should not count ingots on the floor or locked down BUT ;it will add any in your open backpack to the total. display YESNO Are we counting Ingots? Select YES for Ingots or NO for Ore if #dispres = no { set %item dwj } else set %item enk set %color1 1085 set %color2 1181 set %ironcount 0 set %dull_coppercount 0 set %shadow_ironcount 0 set %bronzecount 0 set %coppercount 0 set %goldencount 0 set %agapitecount 0 set %veritecount 0 set %valoritecount 0 set %mythrylcount 0 set %blackrockcount 0 set %medievalcount 0 set %sheightscount 0 set %devilsbanecount 0 set %count 0 ;==================================== main: finditem %item C_ , if #findkind <> -1 { set %count %count + #findstack gosub count_type wait 5 ignoreitem #findid goto main } set #sysmsgcol %color1 event sysmessage #dot set #sysmsgcol %color2 event sysmessage "Wolfes Lazyman Ingot/Ore Count is: (Drumroll please)" set #sysmsgcol %color1 event sysmessage ========================= set #sysmsgcol %color2 if %item = enk event sysmessage %count total_ingots if %item = dwj event sysmessage %count total_ore set #sysmsgcol %color1 event sysmessage ========================= event sysmessage #dot gosub display wait 5 halt ;===================================== sub count_type if #findcol = 0 set %ironcount %ironcount + #findstack if #findcol = 2413 set %coppercount %coppercount + #findstack if #findcol = 1325 set %mythrylcount %mythrylcount + #findstack if #findcol = 2418 set %bronzecount %bronzecount + #findstack if #findcol = 2207 set %veritecount %veritecount + #findstack if #findcol = 2425 set %agapitecount %agapitecount + #findstack if #findcol = 2219 set %valoritecount %valoritecount + #findstack if #findcol = 2213 set %goldencount %goldencount + #findstack if #findcol = 2021 set %medievalcount %medievalcount + #findstack if #findcol = 1108 set %blackrockcount %blackrockcount + #findstack if #findcol = 2419 set %dull_coppercount %dull_coppercount + #findstack if #findcol = 2406 set %shadow_ironcount %shadow_ironcount + #findstack if #findcol = 1551 set %sheightscount %sheightscount + #findstack if #findcol = 2550 set %devilsbanecount %devilsbanecount + #findstack return ;===================================== sub display set #sysmsgcol %color2 event sysmessage %ironcount iron event sysmessage %dull_coppercount dull_copper event sysmessage %shadow_ironcount shadow_iron event sysmessage %coppercount copper event sysmessage %bronzecount bronze event sysmessage %goldencount golden event sysmessage %agapitecount agapite event sysmessage %veritecount verite event sysmessage %valoritecount valorite event sysmessage %mythrylcount mythryl event sysmessage %blackrockcount blackrock event sysmessage %medievalcount medieval event sysmessage %sheightscount sheights event sysmessage %devilsbanecount devilsbane return ;====================================== ;fin