First steps. Message box and display item ID/Type

[BadManiac]

Here are my first few steps in LUA land. I've coded a lot of languages so the syntax is pretty easy, code will get prettier with time. Just need to get as fluent with the new UO.dll interace as I am with the old EUO client functions and variables...

Any comments?

Code: [Select]

function Display(type, msg)
  MsgBox = Obj.Create("TMessageBox")
  MsgBox.Title = 'Message'
  if type == "OK" then
    MsgBox.Button = 0
    MsgBox.Icon = 4
  else if type == "YESNO" then
    MsgBox.Button = 4
    MsgBox.Icon = 2
  end end
  MsgBox.Default = 0
  return MsgBox.Show(msg)
end

function FindItem(fid)
  cnt = UO.ScanItems(true)
  i = 0
  while i < cnt do
    id,type = UO.GetItem(i)
    if id == fid then break end
    i = i + 1
  end
  return type
end
    
--Main
repeat
  Display("OK", "Please target the item you wish to ID")
  UO.TargCurs = true
  while UO.TargCurs == true do wait(100) end
  findtype = FindItem(UO.LTargetID)
until Display("YESNO", "Item ID: " .. UO.LTargetID .. " | Item Type: " .. findtype .. "\n\nID Another Item?") == 7

[Toptwo]

Hey BM...I am beta testing this now and it seems to work great with one exception...you have to push play everytime you want to ID something. Is there any way to make this like TM's findinfo1.txt where the window will stay up and let you just keep clicking different things rather then having to close the mini window everytime you get 1 id, then having to hit play each time...if that makes sense..

but it is working like a million bucks...I am chugging along happily finding ID's   Thanks!!!!!

[BadManiac]

Yeah just slap a "while true" around the main body. I'll do that and change the message box to an ok/cancel so you can stop it.

Now how do you read the return from a message box?...

[Endless Night]

Code: [Select]

function msgbox()
    return 5 , 6 ,7
end

x,y,z = functions msgbox()
print(x..y..z)
above will print 567

[BadManiac]

Yeah but how do you read which button was pressed in the message box?

[Endless Night]

return MsgBox.Show(msg)

Add the return infrom of your show function this will return the value from msgbox to the calling function

result =Display(type, msg)

[Adenocard]

--Main
Display("OK", "Please target the item you with to ID")
UO.TargCurs = true
while UO.TargCurs == true do wait(100) end
findtype = FindItem(UO.LTargetID)



 Typo... " Please target the item you wish to ID" 


 Sorry I can't help myself sometimes.

[BadManiac]

Updated:
Fixed the typo and made it loop until you hit "No" on the ID message box.

[NObama]

This is the version of the same concept I posted on 14 Oct.  Fun little project to cut our teeth...I'll miss Guadah's Item Finder and I wanted a replacement for use and nostalgia.

http://www.scriptuo.com/index.php?topic=6298.0