Paying for EUO item types lists- Have a look

[vempa]

For some time I've been wanting to compile a complete list of all wearable pieces of equipment categorized by slot.
19 equipment slots amount to an estimate of 250-300 possible items.
Now, I've figured this could be a chance, so I'm offering payment for that information.

If you wish to help, please send a minimum of 5 item types (EUO Item types) categorized into slots.
An example:
Robe: TES (Royal hive robe-Hood up)
Boots: TVI (GoC)
Cloak: DCI (Regular cloak)
And so on.
Please send the information as a PM on the forum.

Hopefully, if I get replies, and the types you've submitted are ones I do not have listed,
I'll pay 3.5K per type for the first 5 and 5K for every subsequent item type you list.

Assuming I get replies, I'll keep this post updated with the types of items I have listed.
If/Once the list is complete, I will post it in the coding section.

The following script can be used to extract the information in an easy to read/use format and will
automatically create a text file called ItemList (Should be in the EUO script folder) with the formatted list.
Note: To signify your finished with the script, press F4 (Or set %hotKey to your preferred hotkey).
Big thanks for Lestat for his coding help.

Code: Select all

set %null
set %hotKey F4
set %writeBuffer
set #targCurs 1
set %continue #false
set #menubutton N/A
menu clear
menu Window Target log
menu Window $000000
menu Window Transparent 99
menu Font Transparent #true
menu Window Size 500 100
menu Font Color $3300FF
menu Font BGColor $000000
menu List Create mainBuffer 0 0 500 100
menu Show

sub onMenuClose
{
   display yesno Do you wish to export the item list?
   if #dispres = yes
   {
      event exmsg #charid 2 80 Exporting list, please wait.
      gosub Export %writeBuffer
      event exmsg #charid 2 80 Done! Script Halting!
   }
   else
      event exmsg #charid 2 80 Script Halting!
   return
}

while %continue = #false
{
   while #targCurs = 1
   {
      if #menubutton = Closed
      {
         key ESC
         gosub onMenuClose
         halt
      }
      wait 1
      OnHotKey %hotKey
      {
         set %continue #true
         key ESC
      }
   }
   if %continue <> #true
   {
      gosub GetItemName #ltargetid
      finditem #ltargetid
      set %singleBuffer #result , #spc ,  #findtype
      menu List Add mainBuffer %singleBuffer
      set %writeBuffer %writeBuffer , #smc , %singleBuffer
      set %singleBuffer
      set #targCurs 1
   }
}
event exmsg #charid 2 80 Exporting list, please wait.
gosub Export %writeBuffer
event exmsg #charid 2 80 Done! Script Halting!
menu Close
halt


sub GetItemName
{
   event Property %1
   str pos #property $
   set %InStr #StrRes - 1
   str left #property %InStr
   return #StrRes
}

sub Export
{
   str count %1 #smc
   set %numOfLines #strRes - 1
   set %i 1
   for %i 1 %numOfLines
   {
      str pos %1 #smc %i
      set %startSmcPos #StrRes + 1
      set %smcInd %i + 1
      str pos %1 #smc %smcInd
      set %lengthToCopy #StrRes - %startSmcPos
      str mid %1 %startSmcPos %lengthToCopy
      execute cmd.exe /c echo #StrRes >>Itemlist.txt
   }
   str pos %1 #smc %i
   set %startSmcPos #StrRes
   str len %1
   set %length #StrRes
   set %lengthToCopy %length - %startSmcPos
   str right %1 %lengthToCopy
   execute cmd.exe /c echo #StrRes >>Itemlist.txt
   return
}

Please let me know if you encounter any problems with the script.

An alternate script that display item type as a SystemMsg:

Code: Select all

set #targCurs 1
targLoop:
if #targCurs = 1
{
  wait 1
  goto targLoop
}

Finditem #ltargetid ; Finds what you targeted
event SysMessage Item Type is: #findtype
halt

Hope you guys read this!
Thanks,

Vempa