Recruitment source edit

[jrbiii1]

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 acomplish

This makes it so when u kill a enemy (not a player) u can play as them
and 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.

[evilbunnie]

Easy source edit.

Fucking easy.

PM me your source.

[Minilinkki]

why everyone is copying pmu?

[jrbiii1]

not rrly copying ti there are tons of games like pmu

[evilbunnie]

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'

[evilbunnie]

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

```

[Guest]

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

[Pikachu]

@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…

[roxas313]

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

[evilbunnie]

@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.

[deathtaker26]

@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.

[johrey]

were to add it?

[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.

[blackkat9666]

@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?

[jrbiii1]

@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