Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

I need help with the Eclipse Stable Source (frmStable)


ImmortalDreams
 Share

Recommended Posts

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 If

If (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 If

If (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 If

If (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 If

If (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 If

If (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 If

If (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 If

If (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 If

If (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 If

Exit 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 If
Call 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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...