Trailmyx's EUO to OEUO Menu Conversion

[TrailMyx]

---------------------------------------------------------------
-- Script Name: TrailMyx's LUA Subroutine Collection
-- Author: TrailMyx
-- Version: v3
-- Shard OSI / FS: unk
-- Revision Date: 9/29/2007
-- Purpose: Collection of routines, including:
--    Menu converter from EUO menu designer to OEUO native
--    Journal handler (like TM_Adv)
--    etc.
-- Requirements:
--
-- Special Thanks:
--
-- Beta testers:
-- Bug testers:
--
---------------------------------------------------------------

Current Version: v3.0
New to version 3.0:

• Re-written to address everything as an object.

New to version 2.1:

• TM_DeleteControl - user deletable controls
• Adding a control will attempt to delete and existing control with the same name

Todo:

• Journal routines - a.k.a TM_AdvJournalScan
• Gump OCR routines
• Travel subs
• etc

This is a collection of LUA subs and a .NET converter program to take menu designer created menus and port them to native OEUO LUA code.  

The included .NET program will let you cut/paste EUO code into the top window and create LUA compatible code that can be parsed to create menus within your OEUO LUA script.

A button manager is included to automate your existing EUO buttons within the OEUO world!!

P.S. This is my first Lua script.  It's basically written; so please don't be too critical

Sample to get you started:

Code: [Select]

dofile("tm_subs_v30.lua")
-------------------------------------
-- Your functions
-------------------------------------
function EUOButton1()
  print("holy crap, it ran!")
end
-------------------------------------
function EUOButtonExit()
  Obj.Exit()
end
-------------------------------------
-- Your main script
-------------------------------------

mf = MenuInfo:New()

mf:TM_MenuFunction("sub showEUOMenu1")
mf:TM_MenuFunction("menu Clear")
mf:TM_MenuFunction("menu Window Title TrailMyx's SOS Autofarmer v , %version")
mf:TM_MenuFunction("menu Window Color Lime")
mf:TM_MenuFunction("menu Button EUOButton1 20 420 75 25 Totalize")
mf:TM_MenuFunction("menu Window Size 625 455")
mf:TM_MenuFunction("menu Show 421 270")

--mf:TM_DeleteControl("EUOButton1")
mf:TM_MenuFunction("menu Button EUOButtonExit 120 420 75 25 Exit")

Obj.Loop()
Obj.Free(mf.EUOMenu)


[TrailMyx]

reserved

[TrailMyx]

I'm probably going to keep these routines under development for a while.  I'm already learning more about the OOP aspect of Lua, so they might actually get reformatted a bit.  Sorry, but that's the breaks when I only have about 1 week of Lua training...

[TrailMyx]

So I have somewhat re-written the converter to address the data structure I originally designed as a complete object, including embedding the necessary routines into the object.

So the example code looks more like this:

Code: [Select]

dofile("tm_subs_v30.lua")
-------------------------------------
-- Your functions
-------------------------------------
function EUOButton1()
  print("holy crap, it ran!")
end
-------------------------------------
-- Your main script
-------------------------------------

mf = MenuInfo:New()

mf:TM_MenuFunction("sub showEUOMenu1")
mf:TM_MenuFunction("menu Clear")
mf:TM_MenuFunction("menu Window Title TrailMyx's SOS Autofarmer v , %version")
mf:TM_MenuFunction("menu Window Color BtnFace")
mf:TM_MenuFunction("menu Button EUOButton1 20 420 75 25 Totalize")
mf:TM_MenuFunction("menu Window Size 625 455")
mf:TM_MenuFunction("menu Show 421 270")

mf:TM_DeleteControl("EUOButton1")

Obj.Loop()
Obj.Free(mf.EUOMenu)

For you, it's just a cosmetic change, but for me it makes more sense to organize all the associated object information.  I will update the converter with the changes.  I would hold off a day while I get that fixed.  I won't support the older syntax, so please update soon.

[TrailMyx]

Ok, I've updated the first post with the updated converter that makes the correct object information for the new object organization.

[Masscre]

More fluid structure now and that means more speed over all.

[TrailMyx]

Oh cool.  How did you change it?  Why is it better?

I just packaged the methods (routines) into the object (data).  But you'll see the syntax is a bit different.  Probably won't be much faster, but I'm happier about the organization of the data.

[TrailMyx]

I'm going to tweak the button handling a bit to link them to the containing object.  Right now, if you include more than one EUO menu, you might have the same button names (i.e. EUOButton1, etc.)  But if you reference the button to the containing object, you can have different buttons all named "EUOButton1" but can call unique functions for each menu. 

I'll post this tonight sometime after I do a bit of testing.

[TrailMyx]

With some example code right?

Of course; I always update my sample code.  The change for you is VERY minor.

My knowledge of Lua is still pretty darn basic, but what I'm putting out should be pretty useful for most people.  I still script OEUO like one might script EUO, so the stuff I produce won't melt your brain too much. 

[TrailMyx]

I've updated this to fix a little issue.  I'm going to be adding a bunch of stuff to this because I'm starting to uses these for my own purposes.

[Superslayer]

Busy?

Error: tm_subs_v31.lua:49: bad argument #2 to 'remove' (number expected, got table)

The example code calls version 30, not version 31.

[TrailMyx]

I have a whole new version of this I haven't posted yet.  I think I fixed that one.  I thought I posted that already.

[TrailMyx]

Ok, I updated to the latest version.  I switched to a numerical version system so you can verify compatibility by referencing the included global version number for this group of subs.  Sorry, the posted version was really old.  I didn't see anyone using these, so I didn't get excited to update.  This one has many fixes.  Note the name has changed, so you'll need to update your "dofile" reference.

Also, if you have problems with it, please post the "menu" command that's giving you issues so I can make sure it's not a corner case I haven't thought of yet.

[Superslayer]

Ack! Lime green !

..continues to try out with burnt eye-balls!

[Superslayer]

error:
tm_menu_subs5.lua:78: attempt to index field 'EUOMenu' (a nil value)

Code: [Select]

dofile("tm_menu_subs5.lua")
-------------------------------------
-- Your functions
-------------------------------------
function EUOButton1()
  print("holy crap, it ran!")
end
-------------------------------------
function EUOButtonExit()
  Obj.Exit()
end
-------------------------------------
-- Your main script
-------------------------------------

mf = MenuInfo:New()
mf:TM_MenuFunction("menu Clear")
mf:TM_MenuFunction("menu Window Title test")  -- error occurs in this function
pause()
mf:TM_MenuFunction("menu Window Color Maroon")
mf:TM_MenuFunction("menu Window Size 420 230")
mf:TM_MenuFunction("menu Font Name MS Sans Serif")
mf:TM_MenuFunction("menu Font Size 8")
mf:TM_MenuFunction("menu Font BGColor Maroon")
mf:TM_MenuFunction("menu Shape Idoc_def_off_Outline 4 92 114 110 3 7 1 Black 7 Maroon")
mf:TM_MenuFunction("menu Shape TopOutline 4 4 413 84 3 7 1 Black 7 Maroon")
mf:TM_MenuFunction("menu Shape Script_Skill_Outline 172 8 241 73 3 7 1 Black 7 Maroon")
mf:TM_MenuFunction("menu Shape Control_Panel 8 8 53 76 3 7 1 Black 7 Maroon")
mf:TM_MenuFunction("menu Shape Checks_Outline 120 92 209 101 3 7 1 Black 7 Maroon")
mf:TM_MenuFunction("menu Shape Facet_Outline 4 206 413 22 3 7 1 Black 7 Maroon")
mf:TM_MenuFunction("menu Shape Skill_selection_box 310 12 97 21 3 7 1 Black 7 InactiveCaption")
mf:TM_MenuFunction("menu Shape MTM 66 63 100 21 3 7 1 Black 7 InactiveCaption")
mf:TM_MenuFunction("menu Shape Heal_selection_box 310 34 97 21 3 7 1 Black 7 InactiveCaption")
mf:TM_MenuFunction("menu Font Transparent #true")
mf:TM_MenuFunction("menu text _Hours")
mf:TM_MenuFunction("menu text _Mins")
mf:TM_MenuFunction("menu text Homecount 55 182 HmCnt:")
mf:TM_MenuFunction("menu text Homecount_result 90 182 %homecnt")
mf:TM_MenuFunction("menu text Structure_Status 12 136 Current House Status:")
mf:TM_MenuFunction("menu text Structure_Status2 20 151 %housestatus")
mf:TM_MenuFunction("menu text Idocs_Found 12 166 Idoc's:")
mf:TM_MenuFunction("menu text Idocs_result 46 166 %Idocsfound")
mf:TM_MenuFunction("menu text Grtly_Found 62 166 Grtly's:")
mf:TM_MenuFunction("menu text Grtly_result 96 166 %Grtlysfound")
mf:TM_MenuFunction("menu text Laps 12 182 Laps:")
mf:TM_MenuFunction("menu text Lap_status 38 182 %laps")
mf:TM_MenuFunction("menu Text Script_Status 180 60 Script Status:")
mf:TM_MenuFunction("menu Text Status_result 245 60 Awaiting Start Button")
mf:TM_MenuFunction("menu Text And_Or 96 34 And/Or")
mf:TM_MenuFunction("menu Text Search 12 210 Search facets:")
mf:TM_MenuFunction("menu Font Style u")
mf:TM_MenuFunction("menu Text Method_Travel_Text 74 6 Method of Travel")
mf:TM_MenuFunction("menu Font Name Book Antiqua")
mf:TM_MenuFunction("menu Font Style i")
mf:TM_MenuFunction("menu font color white")
mf:TM_MenuFunction("menu font bgcolor black")
mf:TM_MenuFunction("menu font bgcolor maroon")
mf:TM_MenuFunction("menu font color black")
mf:TM_MenuFunction("menu Font Style ; turns off italic")
mf:TM_MenuFunction("menu Font Align Right")
mf:TM_MenuFunction("menu Font Name MS Sans Serif")
mf:TM_MenuFunction("menu Check IslandCheck 125 96 97 13 #false Go To Islands ?")
mf:TM_MenuFunction("menu Check DeadCheck 125 116 97 13 #false Stay Dead ?")
mf:TM_MenuFunction("menu Check RunFlyCheck 125 136 97 13 #false Run/Fly ?")
mf:TM_MenuFunction("menu Check BoatCheck 125 156 97 13 #false Use a Boat ?")
mf:TM_MenuFunction("menu Check HRCheck 125 176 97 13 #false Home Roam ?")
mf:TM_MenuFunction("menu Check LoopScriptCheck 236 96 88 13 #false Loop Script ?")
mf:TM_MenuFunction("menu Check ChivalryCheck 80 19 65 17 #false Chivalry")
mf:TM_MenuFunction("menu Check Magery_Check 80 45 65 17 #false Magery")
mf:TM_MenuFunction("menu Check Skill_Check 180 16 95 13 #false Use a skill ?")
mf:TM_MenuFunction("menu Check Home 236 116 88 13 #false Home Secure")
mf:TM_MenuFunction("menu Check Bank 236 136 88 13 #false Bank Secure")
mf:TM_MenuFunction("menu Check Go_to_MSL 236 156 88 13 #false Go to MSL's")
mf:TM_MenuFunction("menu Check Make_MSL 236 176 88 13 #false Make MSL's")
mf:TM_MenuFunction("menu Check Heal_Check 180 35 95 13 #false Heal Method ?")
mf:TM_MenuFunction("menu Check Fel_Check 95 210 65 13 #false Felucca")
mf:TM_MenuFunction("menu Check Tram_Check 165 210 60 13 #false Trammel")
mf:TM_MenuFunction("menu Check Malas_Check 230 210 50 13 #false Malas")
mf:TM_MenuFunction("menu Check Tok_Check 285 210 60 13 #false Tokuno")
mf:TM_MenuFunction("menu Check TerM_Check 350 210 58 13 #false Ter Mer")
mf:TM_MenuFunction("menu Font Color White")
mf:TM_MenuFunction("menu Font BGColor Black")
mf:TM_MenuFunction("menu Button Erase_Log 12 118 100 18 Erase House File")
mf:TM_MenuFunction("menu Button Start_Button 12 12 45 21 Start")
mf:TM_MenuFunction("menu Button Pause_Button 12 36 45 21 Pause")
mf:TM_MenuFunction("menu Button Quit_Button 12 60 45 21 Quit")
mf:TM_MenuFunction("menu Button Load_Button 334 116 82 22 Load Profile")
mf:TM_MenuFunction("menu Button Save_Button 334 92 82 22 Save Profile")
mf:TM_MenuFunction("menu Button Reset_Button 334 140 82 22 Reset Profile")
mf:TM_MenuFunction("menu Edit Username 12 96 99 %username")
mf:TM_MenuFunction("menu Font Align left")
mf:TM_MenuFunction("menu Show 275 675")


Obj.Loop()
Obj.Free(mf.EUOMenu)