maxi_d_great
Members-
Posts
16 -
Joined
-
Last visited
Never
maxi_d_great's Achievements
Newbie (1/14)
0
Reputation
-
hey man , why is your sprite is 4x5? im curious . :D
-
1st u need to edit ur char gui to make that , 2nd go to your frmMain code in Private function IsEqItem, find these line ``` With tempRec ```and below that make it look like these ``` .top = EqTop + ((EqOffsetY + 32) * ((i - 1) \ EqColumns)) .Bottom = .top + PIC_Y .Left = EqLeft + ((EqOffsetX + 32) * (((i - 1) Mod EqColumns))) .Right = .Left + PIC_X ```and then go to ur modDD7 in BltEquipment find these line ``` With rec_pos ```below that will be look like these too ``` .top = EqTop + ((EqOffsetY + 32) * ((i - 1) \ EqColumns)) .Bottom = .top + PIC_Y .Left = EqLeft + ((EqOffsetX + 32) * (((i - 1) Mod EqColumns))) .Right = .Left + PIC_X ``` and finally go to your modConstant in ur ` Character consts make it look like these ``` Public Const EqTop As Long = 114 Public Const EqLeft As Long = 18 Public Const EqOffsetY As Long = 7 Public Const EqOffsetX As Long = 10 Public Const EqColumns As Long = 4 ``` now ur eq slot will be look like these oooo oooo oooo oooo but if u want urs, like ur requesting ooo ooo ooo just change this code ``` Public Const EqColumns As Long = 4 ```to ``` Public Const EqColumns As Long = 3 ``` and to align it just play with this code ``` Public Const EqLeft As Long = 18 ``` I HIGHLY RECOMMEND TO REMOVE THE FACE
-
dont forget ``` Sub SetPlayerStat(ByVal Index As Long, Stat As Stats, ByVal Value As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub If Value MAX_BYTE Then Value = MAX_BYTE Player(Index).Stat(Stat) = Value ' Error handler Exit Sub errorhandler: HandleError "SetPlayerStat", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` change this line ``` If Value > MAX_BYTE Then Value = MAX_BYTE ``` give thanks to lightning
-
*bump
-
pls before you answer , if ur not sure on ur answer , pls try it before u post it , thank you
-
where in modconstant? i cant find anything related to the max price in item editor?
-
how can i change the max price in the item editor ? i try setting it to 50000 but it say its invalid , in what subs i can find it? in modype the price is already set to as long.
-
what's the matter with comin sans ?? :cheesy:
-
Paperdoll problem(repost:i accidentally hit the lock topic)
maxi_d_great replied to maxi_d_great's topic in Q & A
my code on modGeneral: ``` ' set the paperdoll order ReDim PaperdollOrder(1 To Equipment.Equipment_Count - 1) As Long PaperdollOrder(16) = Equipment.Weapon PaperdollOrder(15) = Equipment.Shield PaperdollOrder(14) = Equipment.Acc1 PaperdollOrder(13) = Equipment.Acc2 PaperdollOrder(12) = Equipment.Ear1 PaperdollOrder(11) = Equipment.Ear2 PaperdollOrder(10) = Equipment.Ring1 PaperdollOrder(9) = Equipment.Ring2 PaperdollOrder(8) = Equipment.Helmet PaperdollOrder(7) = Equipment.Hair PaperdollOrder(6) = Equipment.Boots PaperdollOrder(5) = Equipment.Gloves PaperdollOrder(4) = Equipment.Belt PaperdollOrder(3) = Equipment.Necklace PaperdollOrder(2) = Equipment.Charm PaperdollOrder(1) = Equipment.Armor ``` question: why did the hair pd is on top of helmet pd ?? pic: -
my code ``` ' set the paperdoll order ReDim PaperdollOrder(1 To Equipment.Equipment_Count - 1) As Long PaperdollOrder(1) = Equipment.Armor PaperdollOrder(2) = Equipment.Hair PaperdollOrder(3) = Equipment.Helmet PaperdollOrder(4) = Equipment.Belt PaperdollOrder(5) = Equipment.Boots PaperdollOrder(6) = Equipment.Gloves PaperdollOrder(7) = Equipment.Ring1 PaperdollOrder(8) = Equipment.Ring2 PaperdollOrder(9) = Equipment.Ear1 PaperdollOrder(10) = Equipment.Ear2 PaperdollOrder(11) = Equipment.Necklace PaperdollOrder(12) = Equipment.Charm PaperdollOrder(13) = Equipment.Acc1 PaperdollOrder(14) = Equipment.Acc2 PaperdollOrder(15) = Equipment.Shield PaperdollOrder(16) = Equipment.Weapon ``` question: why did the hair is on the top of helmet?? | | v
-
how about on bank?
-
thanks yami :cheesy:
-
i already do that , but no color is match with my inventory's bg color? or how can i change vb6 palette color?