thallada/BazaarRealmMod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
5e36e7bb6b
BazaarRealmMod/Source/Scripts/BRMCMConfigMenu.psc

270 lines
8.3 KiB
Plaintext
Raw Normal View History

Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
scriptname BRMCMConfigMenu extends SKI_ConfigBase
BRQuestScript property BR auto
bool modStarted = false
int function GetVersion()
return 1
endFunction
event OnPageReset(string page)
SetCursorFillMode(LEFT_TO_RIGHT)
AddHeaderOption("Server Config")
SetCursorPosition(2)
AddTextOptionST("SERVER_URL_LABEL", "API Server URL: ", "", OPTION_FLAG_DISABLED)
if modStarted
AddInputOptionST("SERVER_URL_VALUE", "", BR.ApiUrl, OPTION_FLAG_DISABLED)
else
AddInputOptionST("SERVER_URL_VALUE", "", BR.ApiUrl)
endif
if modStarted
AddTextOptionST("API_KEY", "Reveal API key", "")
endif
Add shop name & desc update, better error handling
2020-10-18 06:33:26 +00:00
SetCursorPosition(5)
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
if modStarted
AddToggleOptionST("START_MOD", "Mod Started", modStarted, OPTION_FLAG_DISABLED)
else
AddToggleOptionST("START_MOD", "Start Mod", modStarted)
endif
Add shop name & desc update, better error handling
2020-10-18 06:33:26 +00:00
SetCursorPosition(8)
if modStarted
AddHeaderOption("Shop Config")
SetCursorPosition(10)
AddTextOptionST("SHOP_NAME_LABEL", "Shop name: ", "", OPTION_FLAG_DISABLED)
AddInputOptionST("SHOP_NAME", "", BR.ShopName)
AddTextOptionST("SHOP_DESC_LABEL", "Shop description: ", "", OPTION_FLAG_DISABLED)
AddInputOptionST("SHOP_DESC", "", BR.ShopDescription)
AddTextOptionST("LOAD_SHOP_CONFIG", "Load shop config from server", "")
SetCursorPosition(18)
AddHeaderOption("Shop Actions")
SetCursorPosition(20)
AddTextOptionST("SAVE_REFS", "Save current shop state", "")
AddTextOptionST("LOAD_REFS", "Load saved shop state", "")
Add ListShops action to MCM menu Very bare-bones and expiremental right now as I figure out the best UI for choosing shops.
2020-10-19 05:13:18 +00:00
AddTextOptionST("LIST_SHOPS", "List shops", "")
Add shop name & desc update, better error handling
2020-10-18 06:33:26 +00:00
endif
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
endEvent
state SERVER_URL_VALUE
event OnInputOpenST()
SetInputDialogStartText(BR.ApiUrl)
endEvent
event OnInputAcceptST(string textInput)
BR.ApiUrl = textInput
SetInputOptionValueST(textInput)
endEvent
event OnHighlightST()
SetInfoText("The Bazaar Realm Server URL. Leave this at the default value to play on the main server with other players. If you would like to use your own private server, read the README for instructions on how to set one up, and then set this value to your server's URL.")
endEvent
event OnDefaultST()
BR.ApiUrl = "https://api.bazaarrealm.com"
SetInputOptionValueST(BR.ApiUrl)
endEvent
endState
state API_KEY
event OnHighlightST()
SetInfoText("Click to see your unique server API key. Keep it secret since it allows modifying your shop data.")
endEvent
event OnSelectST()
ShowMessage(BR.ApiKey)
endEvent
endState
state START_MOD
event OnSelectST()
if BR.StartMod()
Get/Set merch and refs by shop id Also, rename placeholder to activator. Some MCM UI improvements.
2020-10-25 07:21:08 +00:00
SetOptionFlagsST(OPTION_FLAG_DISABLED)
Reset MCM UI when StartMod fails
2020-10-17 00:20:51 +00:00
int attempts = 0
while BR.ShopId == 0 && !BR.StartModFailed && attempts < 100
attempts += 1
Utility.WaitMenuMode(0.1)
endWhile
if attempts >= 100
Debug.Trace("BRMCMConfigMenu StartMod failed. ShopId still unset after 100 polls (10 seconds)")
endif
if BR.StartModFailed
Debug.Trace("BRMCMConfigMenu StartMod failed. BR.StartModFailed == true")
else
Debug.Trace("BRMCMConfigMenu StartMod succeeded")
modStarted = true
SetToggleOptionValueST(true, true)
SetOptionFlagsST(OPTION_FLAG_DISABLED, true)
SetOptionFlagsST(OPTION_FLAG_DISABLED, true, "SERVER_URL_VALUE")
endif
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
endif
ForcePageReset()
endEvent
event OnHighlightST()
SetInfoText("Starts the mod on the configured server. WARNING: You cannot change the server URL once the mod is started.")
endEvent
endState
state SAVE_REFS
event OnSelectST()
Reset MCM UI when StartMod fails
2020-10-17 00:20:51 +00:00
BR.SaveInteriorRefs()
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
endEvent
event OnHighlightST()
SetInfoText("If you are currently in your shop, clicking this will save the current state of its interior to the server.")
endEvent
endState
state LOAD_REFS
event OnSelectST()
Get/Set merch and refs by shop id Also, rename placeholder to activator. Some MCM UI improvements.
2020-10-25 07:21:08 +00:00
SetTextOptionValueST("Loading...")
Reset MCM UI when StartMod fails
2020-10-17 00:20:51 +00:00
BR.LoadInteriorRefs()
Get/Set merch and refs by shop id Also, rename placeholder to activator. Some MCM UI improvements.
2020-10-25 07:21:08 +00:00
SetTextOptionValueST("")
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
endEvent
event OnHighlightST()
SetInfoText("If you are currently in your shop, clicking this will load the last saved state of its interior from the server.")
endEvent
endState
Add shop name & desc update, better error handling
2020-10-18 06:33:26 +00:00
state SHOP_NAME
event OnInputOpenST()
SetInputDialogStartText(BR.ShopName)
endEvent
event OnInputAcceptST(string textInput)
Debug.Trace("BRMCMConfigMenu BRQuest properties: ShopId: " + BR.ShopId + " ShopName: " + BR.ShopName + " ShopDescription: " + BR.ShopDescription)
SetInputOptionValueST("Updating...")
BR.UpdateShop(BR.ShopId, textInput, BR.ShopDescription)
int attempts = 0
while !BR.UpdateShopComplete && attempts < 100
attempts += 1
Utility.WaitMenuMode(0.1)
endWhile
if attempts >= 100
Debug.Trace("BRMCMConfigMenu BR.UpdateShop failed. BR.UpdateShopComplete still unset after 100 polls (10 seconds)")
endif
SetInputOptionValueST(BR.ShopName)
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
endEvent
event OnHighlightST()
Add shop name & desc update, better error handling
2020-10-18 06:33:26 +00:00
SetInfoText("The name of your shop. This is displayed to other players in the shop menu.")
endEvent
event OnDefaultST()
SetInputOptionValueST("Updating...")
BR.UpdateShop(BR.ShopId, Game.GetPlayer().GetBaseObject().GetName() + "'s Shop", BR.ShopDescription)
int attempts = 0
while !BR.UpdateShopComplete && attempts < 100
attempts += 1
Utility.WaitMenuMode(0.1)
endWhile
if attempts >= 100
Debug.Trace("BRMCMConfigMenu BR.UpdateShop failed. BR.UpdateShopComplete still unset after 100 polls (10 seconds)")
endif
SetInputOptionValueST(BR.ShopName)
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
endEvent
endState
Add shop name & desc update, better error handling
2020-10-18 06:33:26 +00:00
state SHOP_DESC
event OnInputOpenST()
SetInputDialogStartText(BR.ShopDescription)
endEvent
event OnInputAcceptST(string textInput)
SetInputOptionValueST("Updating...")
BR.UpdateShop(BR.ShopId, BR.ShopName, textInput)
int attempts = 0
while !BR.UpdateShopComplete && attempts < 100
attempts += 1
Utility.WaitMenuMode(0.1)
endWhile
if attempts >= 100
Debug.Trace("BRMCMConfigMenu BR.UpdateShop failed. BR.UpdateShopComplete still unset after 100 polls (10 seconds)")
endif
SetInputOptionValueST(BR.ShopDescription)
endEvent
event OnHighlightST()
SetInfoText("The description of your shop. This is displayed to other players in the shop menu. This is a useful place to advertise what your shop sells.")
endEvent
event OnDefaultST()
SetInputOptionValueST("Updating...")
BR.UpdateShop(BR.ShopId, BR.ShopName, "")
int attempts = 0
while !BR.UpdateShopComplete && attempts < 100
attempts += 1
Utility.WaitMenuMode(0.1)
endWhile
if attempts >= 100
Debug.Trace("BRMCMConfigMenu BR.UpdateShop failed. BR.UpdateShopComplete still unset after 100 polls (10 seconds)")
endif
SetInputOptionValueST(BR.ShopDescription)
endEvent
endState
state LOAD_SHOP_CONFIG
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
event OnSelectST()
Add shop name & desc update, better error handling
2020-10-18 06:33:26 +00:00
SetTextOptionValueST("Fetching...")
BR.GetShop(BR.ShopId)
int attempts = 0
while !BR.GetShopComplete && attempts < 100
attempts += 1
Utility.WaitMenuMode(0.1)
endWhile
if attempts >= 100
Debug.Trace("BRMCMConfigMenu BR.GetShop failed. BR.GetShopComplete still unset after 100 polls (10 seconds)")
endif
ForcePageReset()
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
endEvent
event OnHighlightST()
Add shop name & desc update, better error handling
2020-10-18 06:33:26 +00:00
SetInfoText("Overwrites the shop name and description with values saved on the server. Run this after updating any of your shop config values on the website.")
Initial commit, all scripts and esp
2020-10-13 01:26:16 +00:00
endEvent
Add ListShops action to MCM menu Very bare-bones and expiremental right now as I figure out the best UI for choosing shops.
2020-10-19 05:13:18 +00:00
endState
state LIST_SHOPS
event OnSelectST()
SetTextOptionValueST("Fetching...")
BR.ListShops()
int attempts = 0
while !BR.ListShopsComplete && attempts < 100
attempts += 1
Utility.WaitMenuMode(0.1)
endWhile
if attempts >= 100
Debug.Trace("BRMCMConfigMenu BR.ListShops failed. BR.ListShopsComplete still unset after 100 polls (10 seconds)")
endif
ForcePageReset()
endEvent
event OnHighlightST()
SetInfoText("Displays a list of shops on the server.")
endEvent
Reset MCM UI when StartMod fails
2020-10-17 00:20:51 +00:00
endState
Reference in New Issue Copy Permalink