jrbiii1 Posted February 16, 2010 Author Share Posted February 16, 2010 Ok i was told by Lam3r that this will be a very big source edit well what i want to know is what will be needed in it exacxtly? This is the information on what this source edit will need to acomplishThis makes it so when u kill a enemy (not a player) u can play as themand keep your origanal player and this one and be able to switch between them. You get the stats and the sprite of the character you got.Like you do in pokemon mystery dungeon games. Link to comment Share on other sites More sharing options...
evilbunnie Posted February 16, 2010 Share Posted February 16, 2010 Easy source edit.Fucking easy.PM me your source. Link to comment Share on other sites More sharing options...
Minilinkki Posted February 16, 2010 Share Posted February 16, 2010 why everyone is copying pmu? Link to comment Share on other sites More sharing options...
jrbiii1 Posted February 16, 2010 Author Share Posted February 16, 2010 not rrly copying ti there are tons of games like pmu Link to comment Share on other sites More sharing options...
evilbunnie Posted February 19, 2010 Share Posted February 19, 2010 So, ima make it so, that when you kill, it will copy there NPC#.dat file to yours and rename it Namehere.dat, and in the char screen have it in a section called 'PLAY OTHER NPC'S' Link to comment Share on other sites More sharing options...
evilbunnie Posted February 19, 2010 Share Posted February 19, 2010 So far, i got this :```Function ConvertNpcToPlayer(BlankPlayerFile As String, NpcNum As Integer) As PlayerRec Dim OldRec As ConNpcPly Dim NewRec As PlayerRec Dim f As Long Dim n As Integer f = FreeFile Open BlankPlayerFile For Binary As #f Get #f, , OldRec Close #f ' General NewRec.Name = NPC(NpcNum).Name NewRec.Guild = OldRec.Guild NewRec.GuildAccess = OldRec.GuildAccess NewRec.Sex = OldRec.Sex NewRec.Class = OldRec.Class NewRec.Sprite = NPC(NpcNum).Sprite NewRec.LEVEL = OldRec.LEVEL NewRec.Exp = OldRec.Exp NewRec.Access = OldRec.Access NewRec.PK = OldRec.PK ' Vitals NewRec.HP = OldRec.HP NewRec.MP = OldRec.MP NewRec.SP = OldRec.SP ' Stats NewRec.STR = NPC(NpcNum).STR NewRec.DEF = NPC(NpcNum).DEF NewRec.Speed = NPC(NpcNum).Speed NewRec.Magi = NPC(NpcNum).Magi NewRec.POINTS = OldRec.POINTS ' Worn equipment NewRec.ArmorSlot = OldRec.ArmorSlot NewRec.WeaponSlot = OldRec.WeaponSlot NewRec.HelmetSlot = OldRec.HelmetSlot NewRec.ShieldSlot = OldRec.ShieldSlot NewRec.LegsSlot = OldRec.LegsSlot NewRec.RingSlot = OldRec.RingSlot NewRec.NecklaceSlot = OldRec.NecklaceSlot ' Inventory For n = 1 To MAX_INV NewRec.Inv(n) = OldRec.Inv(n) Next n For n = 1 To MAX_PLAYER_SPELLS NewRec.Spell(n) = OldRec.Spell(n) Next n For n = 1 To MAX_BANK NewRec.Bank(n) = OldRec.Bank(n) Next n ' Position NewRec.Map = OldRec.Map NewRec.X = OldRec.X NewRec.Y = OldRec.Y NewRec.Dir = OldRec.Dir NewRec.TargetNPC = OldRec.TargetNPC NewRec.Head = OldRec.Head NewRec.Body = OldRec.Body NewRec.Leg = OldRec.Leg NewRec.PAPERDOLL = OldRec.PAPERDOLL NewRec.MAXHP = NPC(NpcNum).MAXHP NewRec.MAXMP = OldRec.MAXMP NewRec.MAXSP = OldRec.MAXSP NewRec.Vflag = 128 NewRec.Ver = 2 NewRec.SubVer = 8 NewRec.Rel = 0 ConvertNpcToPlayer = NewRecEnd Function``` Link to comment Share on other sites More sharing options...
Guest Posted February 21, 2010 Share Posted February 21, 2010 Wow. Finally someone who is trying to make this source Edit. Hope you will get it work case lots of people (includes me) asked for this and never got replyed :P Would be Epic if you get it work ^^Good Luck =)~ Domii Link to comment Share on other sites More sharing options...
Pikachu Posted February 21, 2010 Share Posted February 21, 2010 @Captain:> So far, i got this :> > ```> Function ConvertNpcToPlayer(BlankPlayerFile As String, NpcNum As Integer) As PlayerRec> Dim OldRec As ConNpcPly> Dim NewRec As PlayerRec> Dim f As Long> Dim n As Integer> > f = FreeFile> Open BlankPlayerFile For Binary As #f> Get #f, , OldRec> Close #f> > ' General> NewRec.Name = NPC(NpcNum).Name> NewRec.Guild = OldRec.Guild> NewRec.GuildAccess = OldRec.GuildAccess> NewRec.Sex = OldRec.Sex> NewRec.Class = OldRec.Class> NewRec.Sprite = NPC(NpcNum).Sprite> NewRec.LEVEL = OldRec.LEVEL> NewRec.Exp = OldRec.Exp> NewRec.Access = OldRec.Access> NewRec.PK = OldRec.PK> > ' Vitals> NewRec.HP = OldRec.HP> NewRec.MP = OldRec.MP> NewRec.SP = OldRec.SP> > ' Stats> NewRec.STR = NPC(NpcNum).STR> NewRec.DEF = NPC(NpcNum).DEF> NewRec.Speed = NPC(NpcNum).Speed> NewRec.Magi = NPC(NpcNum).Magi> NewRec.POINTS = OldRec.POINTS> > ' Worn equipment> NewRec.ArmorSlot = OldRec.ArmorSlot> NewRec.WeaponSlot = OldRec.WeaponSlot> NewRec.HelmetSlot = OldRec.HelmetSlot> NewRec.ShieldSlot = OldRec.ShieldSlot> NewRec.LegsSlot = OldRec.LegsSlot> NewRec.RingSlot = OldRec.RingSlot> NewRec.NecklaceSlot = OldRec.NecklaceSlot> > ' Inventory> For n = 1 To MAX_INV> NewRec.Inv(n) = OldRec.Inv(n)> Next n> For n = 1 To MAX_PLAYER_SPELLS> NewRec.Spell(n) = OldRec.Spell(n)> Next n> For n = 1 To MAX_BANK> NewRec.Bank(n) = OldRec.Bank(n)> Next n> > ' Position> NewRec.Map = OldRec.Map> NewRec.X = OldRec.X> NewRec.Y = OldRec.Y> NewRec.Dir = OldRec.Dir> > NewRec.TargetNPC = OldRec.TargetNPC> > NewRec.Head = OldRec.Head> NewRec.Body = OldRec.Body> NewRec.Leg = OldRec.Leg> > NewRec.PAPERDOLL = OldRec.PAPERDOLL> > NewRec.MAXHP = NPC(NpcNum).MAXHP> NewRec.MAXMP = OldRec.MAXMP> NewRec.MAXSP = OldRec.MAXSP> > NewRec.Vflag = 128> NewRec.Ver = 2> NewRec.SubVer = 8> NewRec.Rel = 0> > ConvertNpcToPlayer = NewRec> > End Function> > ```Not the best way to do it, since you should be able to switch characters when already logged in, and not at the character select screen… Link to comment Share on other sites More sharing options...
roxas313 Posted February 25, 2010 Share Posted February 25, 2010 theres no way anyone can actually copy pmu because theres been pmd mmorpg's way before pmu so u cant really say that copying its just pmu is the most popular Link to comment Share on other sites More sharing options...
evilbunnie Posted February 26, 2010 Share Posted February 26, 2010 @Raichu!:> @Captain:> > > So far, i got this :> > > > ```> > Function ConvertNpcToPlayer(BlankPlayerFile As String, NpcNum As Integer) As PlayerRec> > Dim OldRec As ConNpcPly> > Dim NewRec As PlayerRec> > Dim f As Long> > Dim n As Integer> > > > f = FreeFile> > Open BlankPlayerFile For Binary As #f> > Get #f, , OldRec> > Close #f> > > > ' General> > NewRec.Name = NPC(NpcNum).Name> > NewRec.Guild = OldRec.Guild> > NewRec.GuildAccess = OldRec.GuildAccess> > NewRec.Sex = OldRec.Sex> > NewRec.Class = OldRec.Class> > NewRec.Sprite = NPC(NpcNum).Sprite> > NewRec.LEVEL = OldRec.LEVEL> > NewRec.Exp = OldRec.Exp> > NewRec.Access = OldRec.Access> > NewRec.PK = OldRec.PK> > > > ' Vitals> > NewRec.HP = OldRec.HP> > NewRec.MP = OldRec.MP> > NewRec.SP = OldRec.SP> > > > ' Stats> > NewRec.STR = NPC(NpcNum).STR> > NewRec.DEF = NPC(NpcNum).DEF> > NewRec.Speed = NPC(NpcNum).Speed> > NewRec.Magi = NPC(NpcNum).Magi> > NewRec.POINTS = OldRec.POINTS> > > > ' Worn equipment> > NewRec.ArmorSlot = OldRec.ArmorSlot> > NewRec.WeaponSlot = OldRec.WeaponSlot> > NewRec.HelmetSlot = OldRec.HelmetSlot> > NewRec.ShieldSlot = OldRec.ShieldSlot> > NewRec.LegsSlot = OldRec.LegsSlot> > NewRec.RingSlot = OldRec.RingSlot> > NewRec.NecklaceSlot = OldRec.NecklaceSlot> > > > ' Inventory> > For n = 1 To MAX_INV> > NewRec.Inv(n) = OldRec.Inv(n)> > Next n> > For n = 1 To MAX_PLAYER_SPELLS> > NewRec.Spell(n) = OldRec.Spell(n)> > Next n> > For n = 1 To MAX_BANK> > NewRec.Bank(n) = OldRec.Bank(n)> > Next n> > > > ' Position> > NewRec.Map = OldRec.Map> > NewRec.X = OldRec.X> > NewRec.Y = OldRec.Y> > NewRec.Dir = OldRec.Dir> > > > NewRec.TargetNPC = OldRec.TargetNPC> > > > NewRec.Head = OldRec.Head> > NewRec.Body = OldRec.Body> > NewRec.Leg = OldRec.Leg> > > > NewRec.PAPERDOLL = OldRec.PAPERDOLL> > > > NewRec.MAXHP = NPC(NpcNum).MAXHP> > NewRec.MAXMP = OldRec.MAXMP> > NewRec.MAXSP = OldRec.MAXSP> > > > NewRec.Vflag = 128> > NewRec.Ver = 2> > NewRec.SubVer = 8> > NewRec.Rel = 0> > > > ConvertNpcToPlayer = NewRec> > > > End Function> > > > ```> > Not the best way to do it, since you should be able to switch characters when already logged in, and not at the character select screen…No, I did it so only at char screen. Link to comment Share on other sites More sharing options...
deathtaker26 Posted February 28, 2010 Share Posted February 28, 2010 @Raichu!:> @Captain:> > > So far, i got this :> > > > ```> > Function ConvertNpcToPlayer(BlankPlayerFile As String, NpcNum As Integer) As PlayerRec> > Dim OldRec As ConNpcPly> > Dim NewRec As PlayerRec> > Dim f As Long> > Dim n As Integer> > > > f = FreeFile> > Open BlankPlayerFile For Binary As #f> > Get #f, , OldRec> > Close #f> > > > ' General> > NewRec.Name = NPC(NpcNum).Name> > NewRec.Guild = OldRec.Guild> > NewRec.GuildAccess = OldRec.GuildAccess> > NewRec.Sex = OldRec.Sex> > NewRec.Class = OldRec.Class> > NewRec.Sprite = NPC(NpcNum).Sprite> > NewRec.LEVEL = OldRec.LEVEL> > NewRec.Exp = OldRec.Exp> > NewRec.Access = OldRec.Access> > NewRec.PK = OldRec.PK> > > > ' Vitals> > NewRec.HP = OldRec.HP> > NewRec.MP = OldRec.MP> > NewRec.SP = OldRec.SP> > > > ' Stats> > NewRec.STR = NPC(NpcNum).STR> > NewRec.DEF = NPC(NpcNum).DEF> > NewRec.Speed = NPC(NpcNum).Speed> > NewRec.Magi = NPC(NpcNum).Magi> > NewRec.POINTS = OldRec.POINTS> > > > ' Worn equipment> > NewRec.ArmorSlot = OldRec.ArmorSlot> > NewRec.WeaponSlot = OldRec.WeaponSlot> > NewRec.HelmetSlot = OldRec.HelmetSlot> > NewRec.ShieldSlot = OldRec.ShieldSlot> > NewRec.LegsSlot = OldRec.LegsSlot> > NewRec.RingSlot = OldRec.RingSlot> > NewRec.NecklaceSlot = OldRec.NecklaceSlot> > > > ' Inventory> > For n = 1 To MAX_INV> > NewRec.Inv(n) = OldRec.Inv(n)> > Next n> > For n = 1 To MAX_PLAYER_SPELLS> > NewRec.Spell(n) = OldRec.Spell(n)> > Next n> > For n = 1 To MAX_BANK> > NewRec.Bank(n) = OldRec.Bank(n)> > Next n> > > > ' Position> > NewRec.Map = OldRec.Map> > NewRec.X = OldRec.X> > NewRec.Y = OldRec.Y> > NewRec.Dir = OldRec.Dir> > > > NewRec.TargetNPC = OldRec.TargetNPC> > > > NewRec.Head = OldRec.Head> > NewRec.Body = OldRec.Body> > NewRec.Leg = OldRec.Leg> > > > NewRec.PAPERDOLL = OldRec.PAPERDOLL> > > > NewRec.MAXHP = NPC(NpcNum).MAXHP> > NewRec.MAXMP = OldRec.MAXMP> > NewRec.MAXSP = OldRec.MAXSP> > > > NewRec.Vflag = 128> > NewRec.Ver = 2> > NewRec.SubVer = 8> > NewRec.Rel = 0> > > > ConvertNpcToPlayer = NewRec> > > > End Function> > > > ```> > Not the best way to do it, since you should be able to switch characters when already logged in, and not at the character select screen…pmu does have a system like this but its another menu or something on top of the game screen i would like this source to but i think it would be better to have it like a minimenu that comes up when you hit a button on the gamescreen like how inventory works when you hit it your inventory pops up. Link to comment Share on other sites More sharing options...
johrey Posted August 1, 2010 Share Posted August 1, 2010 were to add it? Link to comment Share on other sites More sharing options...
kibbelz Posted August 1, 2010 Share Posted August 1, 2010 I have done it for a freind of mine whitewing. useing custom menus most of it was source edits i had a small amount of scripting involved too.I wish people would stop trying to copy other games >.> be imaginative.No pmd game can challenge pmu that IS A FACT! so just face it, now to all pmd games who read this. YOUR GAME WONT BE A SUCCESS. Link to comment Share on other sites More sharing options...
blackkat9666 Posted August 1, 2010 Share Posted August 1, 2010 @kibbelz:> I have done it for a freind of mine whitewing. useing custom menus most of it was source edits I had a small amount of scripting involved too.> I wish people would stop trying to copy other games >.> be imaginative.> No pmd game can challenge pmu that IS A FACT! so just face it, now to all pmd games who read this. YOUR GAME WONT BE A SUCCESS.lol games can't read *smartass moment*And as if people would stop copying games…They wont, trust me on that. If they fail, none of our problems eh? Link to comment Share on other sites More sharing options...
jrbiii1 Posted August 10, 2010 Author Share Posted August 10, 2010 @kibbelz:> I have done it for a freind of mine whitewing. useing custom menus most of it was source edits I had a small amount of scripting involved too.> I wish people would stop trying to copy other games >.> be imaginative.> No pmd game can challenge pmu that IS A FACT! so just face it, now to all pmd games who read this. YOUR GAME WONT BE A SUCCESS.LOL pmu has gone down the drain to most player it used to be fn and awsome but now it just bad rrly I learnd that ames can have their limits pmu never will be good in my books unless they change drimasticaly. (fired mod) ya was mod then was fired because it was unificial O>o 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