Slasheree

how much RAM do you both have on your systems ?

Cause it's kinda messing my imagination with dungeon floors :\

> What error does it give? Sounds to me like it exceeds the memory limit(s) VB6 implies. Simply makes the game 'stopped working', gonna check through IDE ( or whatever you call it XD ) [EDIT] Runtime Error 9: Subscript out of range it highlights this line: Autotile(x, y).Layer(layerNum).renderState = RENDER_STATE_NONE in Public Sub cacheRenderState(ByVal x As Long, ByVal y As Long, ByVal layerNum As Long)

> I dont get what the problem is… It takes two seconds to change the map size in the map editor.. you could have changed them all manually by now  If I put 100x100 it crashes, or even 50x50 ._.

so, you can't change the map size without changing the 'form.width and form.height' ?

> Along with changing this you have to change the picScreen width and height witch you can find in the objects property's inVB. > > Btw to avoid Screen tear, Win7 areo disable, and proportion issues do this…. > > 1\. Divide the width and height individualy by 32, then change the property's > > Public Const MAX_MAPX As Byte = 14 > > Public Const MAX_MAPY As Byte = 11 > > To that number minus 1. > > 2\. Make sure that the number you decide does not come to a decimal. If it does u got problems > > An easy way to find a native number is to use your calculator and do 32+32= and keep hitting equals till the number gets close to the screen attribute u want and use tht number an a dimension for ur resolution. > > I don't know if this is what u were trying to do or not.... > > Btw sometimes you have I delete all your maps and start again to do this > > Peece Why does the map size have to get involved with screen size ? I just don't get it…

when I changed those values, the map stopped scrolling ( dunno if it's the right term ), my player gets out of the screen

How can I make so that when the server creates new maps ( when map folder is empty ) it makes them in the dimension I want ?

what I mean by refresh is like, if I change the sprite, make it so everyone can see it changing in that moment.

How can I 'refresh' the character in-game ?

this is supposed to be server-side right ? ( still didn't work with LCase$ but I don't think that's the problem )

that's what I did change 'Lower$' for 'LBound'

> change Lower$() to LBound() Compile Error: Expected Array

Compile Error: Sub or Function not defined. It highlight the 'Lower$' what is it meant to do ?

I noticed there was a function to get the player name by his index but how can I retrieve a player's index by it's name ?

I think it doesn't support .png, try making it a .bmp

Was wondering, how can I get player variables for the client to use them. Eg: The variables in the playername.ini (Class,Level,Sprite)

Check if these constants are the same in the client and the server ``` ' Version constants Public Const CLIENT_MAJOR As Byte = 1 Public Const CLIENT_MINOR As Byte = 0 Public Const CLIENT_REVISION As Byte = 0 ```

I already made the sprite changing part but I was wondering how can I change the user file to say he turned to another gender, since some items will be restricted by gender… Do I have to create a new packet or whatever it's called ? O.o ( I'm new to client-server interactions... ). Btw, i'm using CS:DE but guess it's the same for all versions.

Fixed it by comenting out the line that says: If TempPlayer(index).inParty > 0 Then Exit Sub In modHandleData ``` Sub HandlePartyRequest(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) ' make sure it's a valid target If TempPlayer(index).targetType TARGET_TYPE_PLAYER Then Exit Sub If TempPlayer(index).target = index Then Exit Sub ' make sure they're connected and on the same map If Not IsConnected(TempPlayer(index).target) Or Not IsPlaying(TempPlayer(index).target) Then Exit Sub If GetPlayerMap(TempPlayer(index).target) GetPlayerMap(index) Then Exit Sub 'If TempPlayer(index).inParty > 0 Then Exit Sub ' init the request Party_Invite index, TempPlayer(index).target End Sub ``` So I guess this is solved…

maybe it's the main menu music ? O.o

Y IT NO WORK ? D:

> What is the value of: > > ``` > > MAX_PARTY_MEMBERS > > ``` 4

I looked into it with more attention and I noticed It wouldn't say the message 'You are not the party admin' if I tried with another person of the party, that makes me believe the error comes from this fragment of the modGameLogic ( Server-side ) ``` Public Sub Party_Invite(ByVal index As Long, ByVal targetPlayer As Long) Dim partyNum As Long, i As Long ' check if the person is a valid target If Not IsConnected(targetPlayer) Or Not IsPlaying(targetPlayer) Then Exit Sub ' make sure they're not busy If TempPlayer(targetPlayer).partyInvite > 0 Or TempPlayer(targetPlayer).TradeRequest > 0 Or TempPlayer(targetPlayer).InTrade > 0 Then ' they've already got a request for trade/party PlayerMsg index, "This player is busy.", BrightRed ' exit out early Exit Sub End If ' make syure they're not in a party If TempPlayer(targetPlayer).inParty > 0 Then ' they're already in a party PlayerMsg index, "This player is already in a party.", BrightRed 'exit out early Exit Sub End If ' check if we're in a party If TempPlayer(index).inParty > 0 Then partyNum = TempPlayer(index).inParty ' make sure we're the leader If Party(partyNum).Leader = index Then ' got a blank slot? For i = 1 To MAX_PARTY_MEMBERS If Party(partyNum).Member(i) = 0 Then ' send the invitation SendPartyInvite targetPlayer, index ' set the invite target TempPlayer(targetPlayer).partyInvite = index ' let them know PlayerMsg index, "Invitation sent.", Pink Exit Sub End If Next ' no room PlayerMsg index, "Party is full.", BrightRed Exit Sub Else ' not the leader PlayerMsg index, "You are not the party leader.", BrightRed Exit Sub End If Else ' not in a party - doesn't matter! SendPartyInvite targetPlayer, index ' set the invite target TempPlayer(targetPlayer).partyInvite = index ' let them know PlayerMsg index, "Invitation sent.", Pink Exit Sub End If End Sub ```

In this fragment of modServerTCP ``` Sub SendPartyInvite(ByVal index As Long, ByVal targetPlayer As Long) Dim Buffer As clsBuffer Set Buffer = New clsBuffer Buffer.WriteLong SPartyInvite Buffer.WriteString Trim$(Player(targetPlayer).Name) SendDataTo index, Buffer.ToArray() Set Buffer = Nothing End Sub ``` There was a line that was checking if he was on a party ( if he was: Exit Sub ), I erased it, but it still works how I explained… ._.