ImmortalDreams Posted November 27, 2011 Author Share Posted November 27, 2011 Okay, so before you go bashing me because I'm still using stable, know that I'm not experienced enough with coding in VB6 to use Origins, plus I already have an original Quest System and an original Skill System made with custom menus.The issue I'm having is that I don't know how to add onto the source. I have VB6 and managed to fix at least some of the speed/magic swap bug.That was because the code was already there and all I had to do was change a few things. I have a good eye for code and how it works to a degree, even when it's not something I've used before, as long as it's similar enough to some other programing languages I know.Anyways, to the point. I would like to add two buttons to frmStable. One for opening the Skill custom menu, and one for opening the Quest custom menu. That way, people wont have to type commands to open them.Any help is much appreciated.Here's the Skill custom menu code from Commands.ess(This is just the initial window. More complex options are coded in MenuScripts.ess.):```Call CustomMenuShow(Index, "Skills", "\GUI\Skills.bmp", 1)If (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Mining" ) = "1") And (CanTake(Index, 6, 1)) Then Call CustomMenuPicture(Index, 1, "\GUI\Skills\Mining\Button_Mining.bmp", 0, 0)Else Call CustomMenuPicture(Index, 1, "\GUI\Skills\Mining\Button_Null_Mining.bmp", 0, 0)End IfIf (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Fishing" ) = "1") And (GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Quest17" ) >= "2") Then Call CustomMenuPicture(Index, 2, "\GUI\Skills\Fishing\Button_Fishing.bmp", 0, 32)Else Call CustomMenuPicture(Index, 2, "\GUI\Skills\Fishing\Button_Null_Fishing.bmp", 0, 32)End IfIf (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Farming" ) = "1") And (GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Quest17" ) >= "2") Then Call CustomMenuPicture(Index, 4, "\GUI\Skills\Farming\Button_Farming.bmp", 0, 64)Else Call CustomMenuPicture(Index, 4, "\GUI\Skills\Farming\Button_Null_Farming.bmp", 0, 64)End IfIf (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Smelting" ) = "1") Or (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Smithing" ) = "1") And (GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Quest11" ) >= "2") Then Call CustomMenuPicture(Index, 3, "\GUI\Skills\Smith\Button_Smith.bmp", 32, 0)Else Call CustomMenuPicture(Index, 3, "\GUI\Skills\Smith\Button_Null_Smith.bmp", 32, 0)End IfIf (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Crafting" ) = "1") And (GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Quest17" ) >= "2") Then Call CustomMenuPicture(Index, 18, "\GUI\Skills\Craft\Button_Craft.bmp", 32, 32)Else Call CustomMenuPicture(Index, 18, "\GUI\Skills\Craft\Button_Null_Craft.bmp", 32, 32)End IfIf (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Cooking" ) = "1") And (GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Quest17" ) >= "2") Then Call CustomMenuPicture(Index, 5, "\GUI\Skills\Cook\Button_Cook.bmp", 32, 64)Else Call CustomMenuPicture(Index, 5, "\GUI\Skills\Cook\Button_Null_Cook.bmp", 32, 64)End IfIf (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Mining" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Fishing" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Farming" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Smelting" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Smithing" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Crafting" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Cooking" ) = "0") And (GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Quest10" ) >= "2") Then Call CustomMenuPicture(Index, 22, "\GUI\Skills\Herbalist\Button_Herbalist.bmp", 64, 0)Else Call CustomMenuPicture(Index, 22, "\GUI\Skills\Herbalist\Button_Null_Herbalist.bmp", 64, 0)End IfIf (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Mining" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Fishing" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Farming" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Smelting" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Smithing" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Crafting" ) = "0") And (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Cooking" ) = "0") And (GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Quest170" ) >= "2") Then Call CustomMenuPicture(Index, 20, "\GUI\Skills\Enchant\Button_Enchant.bmp", 64, 32)Else Call CustomMenuPicture(Index, 20, "\GUI\Skills\Enchant\Button_Null_Enchant.bmp", 64, 32)End IfIf (GetVar( "Scripts\Skills\" & GetPlayerName(Index) & ".ini", "Triggers", "Necromancy" ) = "1") And (GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Quest17" ) >= "2") Then Call CustomMenuPicture(Index, 21, "\GUI\Skills\Necromancy\Button_Necromancy.bmp", 64, 64)Else Call CustomMenuPicture(Index, 21, "\GUI\Skills\Necromancy\Button_Null_Necromancy.bmp", 64, 64)End IfExit Sub```Here's the Quest custom menu code from Commands.ess(This is just the initial window. More complex options are coded in MenuScripts.ess.):```Call CustomMenuShow(Index, "Quests", "\GUI\Quest.bmp", 1)Call CustomMenuPicture(Index, 16, "\GUI\World\Button_LightRealm.bmp", 0, 0)If Not GetPlayerClass(Index) = 0 And Not GetPlayerClass(Index) = 1 Then Call CustomMenuPicture(Index, 17, "\GUI\World\Button_Dunes.bmp", 32, 0) Call CustomMenuPicture(Index, 18, "\GUI\World\Button_Jungle.bmp", 64, 0) Call CustomMenuPicture(Index, 19, "\GUI\World\Button_DarkRealm.bmp", 96, 0) Call CustomMenuPicture(Index, 20, "\GUI\World\Button_Orthia.bmp", 128, 0) Call CustomMenuPicture(Index, 21, "\GUI\World\Button_WinterLands.bmp", 160, 0)Else Call CustomMenuPicture(Index, 17, "\GUI\World\Button_Null_Dunes.bmp", 32, 0) Call CustomMenuPicture(Index, 18, "\GUI\World\Button_Null_Jungle.bmp", 64, 0) Call CustomMenuPicture(Index, 19, "\GUI\World\Button_Null_DarkRealm.bmp", 96, 0) Call CustomMenuPicture(Index, 20, "\GUI\World\Button_Null_Orthia.bmp", 128, 0) Call CustomMenuPicture(Index, 21, "\GUI\World\Button_Null_WinterLands.bmp", 160, 0)End IfCall CustomMenuLabel(Index, 22, "Light Realm Progress - " & GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Total") & "/" & GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Max"), 0, 48, 14, 15, 0, 286, 315)Call CustomMenuLabel(Index, 0, "Possible Quests", 0, 72, 11, 15, 0, 286, 315)Call CustomMenuLabel(Index, 1, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name1" ), 0, 92, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name1_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 2, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name2" ), 0, 106, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name2_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 3, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name3" ), 0, 120, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name3_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 4, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name4" ), 0, 134, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name4_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 5, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name5" ), 0, 148, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name5_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 6, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name6" ), 0, 162, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name6_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name7" ), 0, 176, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name7_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 8, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name8" ), 0, 190, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name8_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 9, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name9" ), 0, 204, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name9_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 10, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name10" ), 0, 218, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name10_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 11, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name11" ), 0, 232, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name11_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 12, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name12" ), 0, 246, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name12_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 13, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name13" ), 0, 260, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name13_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 14, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name14" ), 0, 274, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name14_Status" ), 0, 286, 315)Call CustomMenuLabel(Index, 15, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name15" ), 0, 288, 7, GetVar( "Scripts\Quests\" & GetPlayerName(Index) & ".ini", "Quests", "Name15_Status" ), 0, 286, 315)Exit Sub``` Link to comment Share on other sites More sharing options...
Robin Posted November 27, 2011 Share Posted November 27, 2011 We do not offer support for Stable. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now