/status system

[Growlith1223]

Ok so i was bored…and i made this system lol

go into ModInput and goto the Select Case and after

```

Case "/help"

Call AddText("Social Commands:", HelpColor)

Call AddText("'msghere = Broadcast Message", HelpColor)

Call AddText("-msghere = Emote Message", HelpColor)

Call AddText("!namehere msghere = Player Message", HelpColor)

Call AddText("Available Commands: /info, /who, /fps, /fpslock", HelpColor)

```
Add

```

Case "/status"

Select Case UBound(Command)

Case 1

Status = Command(1)

Case 2

Status = Command(1) & " " & Command(2)

Case 3

Status = Command(1) & " " & Command(2) & " " & Command(3)

Case 4

Status = Command(1) & " " & Command(2) & " " & Command(3) & " " & Command(4)

End Select

Set Buffer = New clsBuffer

Buffer.WriteLong CStatus

Buffer.WriteString Status

SendData Buffer.ToArray

Set Buffer = Nothing

```
Then In ModHandleData, in Sub HandlePlayerData add

```

Player(Index).Status = Buffer.ReadString

```
After

```

Call SetPlayerPK(i, Buffer.ReadLong)

```

Once done, go and add

```

Status As String

```
In the PlayerRec Do the same for Server Side

Also Go into modEnumerations and add CStatus in the Client packets same for Server side as well

Go into ModText and goto DrawPlayerName replace

```

Name = Trim$(Player(Index).Name)

```
With

```

If Len(Trim$(Player(Index).Status)) <= 0 Then

Name = Trim$(Player(Index).Name)

Else

Name = Trim$(Player(Index).Name) & "[" & Trim$(Player(Index).Status) & "]"

End If
```

**Server Side**

Goto ModHandleData and Add

```

HandleDataSub(CStatus) = GetAddress(AddressOf HandleSetStatus)

```
Under all the other Messages

Then Add This sub at the bottom

```

Private Sub HandleSetStatus(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dim Buffer As clsBuffer

Dim Status As String

Dim Result As String

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

Status = Buffer.ReadString

Result = Status

Call SetPlayerStatus(Index, Result)

Call SendPlayerData(Index)

Set Buffer = Nothing

End Sub
```

Then, go to Sub PlayerData And add

```

Buffer.WriteString Player(Index).Status

```
Under the GetPlayerPK one

That should be it…Lemme know if any errors come up! :3

Screenshot


EDIT: i have made a mistake, go into ModInput and add

```

Dim Status As String * 20

```
and that should complete everything and also should add a char count limiter

EDIT2:

Ok i forgot a sub…In modPlayer in the server, add this to the bottom of it

```

Sub SetPlayerStatus(ByVal index As Long, Status As String)

Player(index).Status = Status

End Sub
```

[narut0no]

What Status system mean..? You should give a Description about this System… 

BTW nice work you can make the System 

[Matt]

Looks good! Thanks for sharing!

[Guest]

Instead of doing all the Ifs in the /status case, why not just put them all into a Select Case? It's much faster .

[tslusny]

So you posted it growl? Nice 

[Growlith1223]

> Instead of doing all the Ifs in the /status case, why not just put them all into a Select Case? It's much faster .

Yea i figured that would be a whole lot faster x3

Lemme update the original post for that. Thanks for that though!

> Looks good! Thanks for sharing!

Thanks!

[abhi2011]

What does this do? Set the player a status? Like PlayerName_. Looks good._

[Ertzel]

Yes, it basically adds text to the right of your name wrapped inside of the [ ]'s

[Growlith1223]

You can also use this system for other features(AFK, mute, etc.)

[Zzbrandon]

Status: Trolololo

[hisherwin]

Did this tut include the remove status?

[Growlith1223]

just type a /status with nothing else and it will erase the status

[Zzbrandon]

I using Dragon Eclipse would this appear by the Level Status?

[abhi2011]

Most probs yea. It will work just like it worked on the screenshot. I.E if DE uses a string from which it renders the name text.

[hisherwin]

Error , when i type /status , the apperance is PlayerName[SpaceSpaceSpaceSpaceSpaceSpaceSpaceSpace] Long Name 

Change the Space into " "

[iSnow]

There is a hover for player name tutorial around here I believe, I would recommend adapting it to show status only if hovered. Just me.