Skin with Config by DarkDragon, special thanks to Zwabbe_Wolfy
Start by going to Mod Types and at the top put
' Skin Variables
Public Skin as String
then in modClientTCP find Sub TcpInit()
in there add
Dim SETTINGS as string
SETTINGS = App.Path & "\settings.ini"
Skin = GetVar(SETTINGS, "Skinning", "Skin")
now
The files should be
Button_buy.bmp
Button_cancel.bmp
button_connect.bmp
button_create.bmp
button_credits.bmp
button_delchar.bmp
button_delete.bmp
button_exit.bmp
button_login.bmp
button_new.bmp
button_newchar.bmp
button_repair.bmp
button_train.bmp
buttong_usechar.bmp
ingame_itemfix.bmp
ingame_shop.bmp
ingame_training.bmp
mainscreen.bmp
the mirage gui (You will see why i sperated these later)
inbtn_exit.bmp
inbtn_inv.bmp
inbtn_spells.bmp
inbtn_trade.bmp
inbtn_train.bmp
inbtn_who.bmp
gui.bmp
Now you need to go through each form and make it call its gui. Also make sure you set the picture to none instead of a bitmap or it wont call your outside one.
frmChars:
frmChars.Picture = LoadPicture(App.Path & "\Skins\"skin"\mainscreen.bmp")
picUseChar.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_usechar.bmp")
picNewChar.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_newchar.bmp")
picDelChar.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_delchar.bmp")
picCancel.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_cancel.bmp")
frmCredits:
frmCredits.Picture = LoadPicture(App.Path & "\Skins\"skin"\mainscreen.bmp")
picCancel.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Cancel.bmp"
frmDeleteAccount:
Quote:
frmDeleteAccount.Picture = LoadPicture(App.Path & "\Skins\"skin"\mainscreen.bmp")
picCancel.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Cancel.bmp")
picConnect.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Connect.bmp")
frmLogin:
Quote:
frmLogin.Picture = LoadPicture(App.Path & "\Skins\"skin"\mainscreen.bmp")
picCancel.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Cancel.bmp")
picConnect.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Connect.bmp")
frmMainMenu:
Quote:
frmMainMenu.Picture = LoadPicture(App.Path & "\Skins\"skin"\mainscreen.bmp")
picNewAccount.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_new.bmp")
picDeleteAccount.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_delete.bmp")
picLogin.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_login.bmp")
picCredits.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_credits.bmp")
picQuit.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_exit.bmp")
frmNewAccount
Quote:
frmNewAccount.Picture = LoadPicture(App.Path & "\Skins\"skin"\mainscreen.bmp")
picCancel.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Cancel.bmp")
picConnect.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Connect.bmp")
frmNewChar
Quote:
frmNewChar.Picture = LoadPicture(App.Path & "\Skins\"skin"\mainscreen.bmp")
picCancel.Picture = LoadPicture(App.Path & "\Skins\"skin\button_Cancel.bmp")
picAddChar.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Create.bmp")
frmTrade:
Quote:
frmTrade.Picture = LoadPicture(App.Path & "\Skins\"skin"\ingame_shop.bmp")
picCancel.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Cancel.bmp")
picDeal.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_buy.bmp")
picFixItems.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Repair.bmp")
frmTraining:
Quote:
frmTraining.Picture = LoadPicture(App.Path & "\Skins\"skin"\ingame_training.bmp")
picTrain.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Train.bmp")
picCancel.Picture = LoadPicture(App.Path & "\Skins\"skin"\button_Cancel.bmp")
and because Zwabbe_Wolfy Left it out of his, i will leave the frmmirage , frmsendgetdata and frmfixitem code cout of mine
Now you need a settings.ini in the root folder and in it you need
[Skinning]
Skin= SKINNAME
and the image files should be in:
ROOT/skins/SKINNAME/
|