achap89 Posted January 20, 2012 Author Share Posted January 20, 2012 Ok as the title states I need help with pk points instead of 1 and zero I want them to increase by one everytime a player kills another player can anyone help me plz Link to comment Share on other sites More sharing options...
Notsu Posted January 20, 2012 Share Posted January 20, 2012 Try to comment or delete all of the current PK stuff like Call SetPlayerPK but not the function in modPlayerand then in sub PlayerAttackPlayer add CallSetPlayerPK(attacker, GetPlayerPK(attacker) + 1) to check is this working do simple Call PlayerMsg(attacker, "pk points: " & GetPlayerPK(attacker), BrightRed) maybe necessary will be Call SendPlayerData(attacker) before msg Link to comment Share on other sites More sharing options...
achap89 Posted January 21, 2012 Author Share Posted January 21, 2012 Already tried. setting all the setplayerpk stuff to add 1 but nothing. Link to comment Share on other sites More sharing options...
Scott Posted January 21, 2012 Share Posted January 21, 2012 Would make more sense to just make a new variable instead of redesigning that one. Link to comment Share on other sites More sharing options...
achap89 Posted January 21, 2012 Author Share Posted January 21, 2012 That would be fine, but I am new to visual basic. I have no clue what to do on creating a whole new variable. Or even how to save it with the players data. Link to comment Share on other sites More sharing options...
Scott Posted January 21, 2012 Share Posted January 21, 2012 Just add it to the PlayerRec, and delete all the player files. It just saves the whole rec no need to add anything to have it save.Ex```Private Type PlayerRec ' Account Login As String * ACCOUNT_LENGTH Password As String * NAME_LENGTH ' General Name As String * ACCOUNT_LENGTH Sex As Byte Class As Long Sprite As Long Level As Byte exp As Long Access As Byte PK As Byte Total_PK As Long 'Guild TUT GuildFileId As Long GuildMemberId As Long ' Vitals Vital(1 To Vitals.Vital_Count - 1) As Long ' Stats Stat(1 To Stats.Stat_Count - 1) As Byte POINTS As Long ' Worn equipment Equipment(1 To Equipment.Equipment_Count - 1) As Long ' Inventory Inv(1 To MAX_INV) As PlayerInvRec Spell(1 To MAX_PLAYER_SPELLS) As Long ' Hotbar Hotbar(1 To MAX_HOTBAR) As HotbarRec ' Position Map As Long x As Byte y As Byte Dir As ByteEnd Type```Note the Total_Pk field. 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