JadeCurt1ss

I could only have so much of my music made by my university's music team. I have a WIP board for my game "darkRedemption" if you're interested check it out.

Yep. Somone should lock it before other people's feelins are hurt.

Boston's More than a Feeling? _More Than a feeling…(More than a feeling) When I hear that Old song played, more than a feeling... My baby's dreaming, more than a feeling..._ Great classic and a good song. I would also recommend Kansas' Carry on My Wayward Son. You also might want to try some Oasis.

wow, thats a great start.

I'll add that to the features. A pedobear Killing game XD!!!

Do you want me to post some of your first work, Oracle ;D

LMFAO!!!! the expansion pack: darkRedemption: Pedobear's Redemption (Warning: may contain massive amounts of loli's and raep.) Rated /b/ for … ... ... OVER 9000!!

I'm workin' on it! Remember I got classes + a life while trying to work on the game. Geeze… xD jk. I love developing this. When I'm a doctor, I'll probbably kill somone because I rescheduled a life-saving surgery just to finish a source edit >

Hey, I'm JadeCurtiss, creator of darkRedemption. Check out our WIP board and then PM me or leave us a note if you're interested. With a bit more guidance, I could use you as a mapper.

darkRedemption could really use one. We're a high-speed game that is really going places. I have done numerous source edits to make the game very user-friendly. Look at our WIP board in the forums if you get to it.

Hey Sy. Didn't know you much, but wb. I hope things go well for ya.

I dimmed it so I wouldn't have to say player(index) blah all the time. So, where is the code going wrong?

2.7, right? Search in the source for the use of some of them in the server. Remember to search the entire project, not just a specific module.

I got that same problem. >=[

*Star Jumper.

Bump for people to notice.

I'm still working on the createparty sub. I want confirmation that the party is now existing with me as its first member and leader. EDIT AGAIN: Bobosk: they are in use in the server, trust me. Search for them, and you'll see they are used extensively in the source. I forgot to put the dim in there xD. The new pic on frmmirage works nicely, however. There > Public Sub Packet_CreateParty(ByVal Index As Long, Name As String) > Dim I As Long > Dim PlayerIndex As Long > PlayerIndex = Player(Index).Char(Player(Index).CharNum).Name > > For I = 1 And I + 1 = 2 To MAX_PARTY_MEMBERS > If Player(PlayerIndex).InParty Then > Call PlayerMsg(Index, "You are already in a party. Leave your party and try again.", PINK) > > If Not Player(PlayerIndex).InParty Then > Call SetPMember(PlayerIndex, PlayerIndex) > Player(PlayerIndex).InParty = True > Call SetPShare(PlayerIndex, True) > End If > > Player(Index).InParty = True > Player(Index).Party.Leader = PlayerIndex > > Call PlayerMsg(Index, "You are now the leader of a party. Happy Hunting!", PINK) > > End If > Next I > End Sub Rewrote it again, but now whenever I use theis command client side, I get a loss of connection. I think this means I'm getting somewhere. I'll post the Client-side code for everyone. modHandledata > If LCase$(parse(0)) = "createparty" Then > For n = 1 To MAX_PARTY_MEMBERS > Player(MyIndex).Party.Member(n) = 1 > Player(MyIndex).Party.Leader(n) = 1 > Next n > Exit Sub > End If > End If modClientTCP > Sub SendCreateParty() > Call SendData("createparty" & END_CHAR) > End Sub That's it.

They are in use, but this makes the code much simpler I think: all it needs to be is > Public Sub Packet_CreateParty(ByVal Index As Long) > Dim i As Long > Do While i < MAX_PARTY_MEMBERS > If Player(Index).InParty = True Then > Call PlayerMsg(Index, "You are already in a party. Leave your party and try again.", PINK) > Else: > Call SetPMember(i, i + 1) > Call PlayerMsg(Index, "You are now in a party. Happy Hunting!", PINK) > End If > End Sub and above it: Case "createparty" Call Packet_CreateParty(index) Exit Sub So now that I've made a createparty packet, how do I get it across to the client? Edit, I think I have it… In modTCP make a Sub SendCreateParty() Call SendData("createparty" & END_CHAR) End Sub

Can I use those functions in a packet to send clinet-side?

*Strums guitar to Gwen's tune.

I get to be either Picard or Riker. Or Data… xD

The only thing "PartyStarter" is used for is on startup, the game checks if you are in a party, or sets you to not be in a party. I think the code we wrote out will work, I just need to edit it a bit with everyone's help. It needs to set the player making the request as Player(index).Party.Leader…

It's ok, nice of you to help out with what you did. EDIT: I worte out a createparty sub with a friend's help. This is all server side. > Added to modTypes: > > 'Most of that was there already, I forgot what I added ^^ > Type PartyRec > PartyID As Integer > Leader As Byte > Member() As Byte > ShareExp As Boolean > End Type > > Public Party() As PartyRec > Public CurrentPartyAmount As Long > > In AccountRec > PartyID As Long > 'End of ModTypes additions > > In modHandleData > > Case "createparty" > Call Packet_CreateParty(index) > Exit Sub > > Public Sub Packet_CreateParty(ByVal index As Long) > Dim GotParty As Boolean > Dim PartyCount As Long > Dim i As Long > > Player(index).InParty = False > If CurrentPartyAmount < 1 Then > CurrentPartyAmount = 1 > ReDim Preserve Party(1 To CurrentPartyAmount) As PartyRec > End If > For i = 1 To CurrentPartyAmount > If Party(i).PartyID = 0 Then > Player(index).PartyID = i > Party(i).PartyID = Player(index).PartyID > GotParty = True > End If > Next > > If Player(index).InParty = True Then > PartyCount = PartyCount + 1 > ReDim Preserve Party(1 To PartyCount) As PartyRec > Player(index).PartyID = PartyCount > Party(PartyCount).PartyID = Player(index).PartyID > End If > > Party(Player(index).PartyID).PartyNum = 0 > Party(Player(index).PartyID).PartyNum = Party(Player(index).PartyID).PartyNum + 1 > > Party(Player(index).GroupID).PartyLeader = GetPlayerName(index) > CreateParty = Player(index).PartyID > Player(index).PartyPlayer = index > > End Sub I'm missing something. I just know it… Critique this, I'm a novice coder, and she is an intermediate coder. Some things she wrote that don't make sense to me: > Party(Player(index).PartyID).PartyNum = 0 > Party(Player(index).PartyID).PartyNum = Party(Player(index).PartyID).PartyNum + 1 Would that be the same as > Party(Player(index).PartyID).PartyCount = 0 > Party(Player(index).PartyID).PartyCount = Party(Player(index).PartyID).PartyCount+ 1 ? Lastly, this appears to say if you are not in a party, nothing happens, but if you are then you create a new one… The way she wrote it was confusing. unnown, you out there!?

I got the picture: Don't make fun of her appearance.

I got the picture. I actually need to work on teasing. Any suggestions?