Well again thanks for the code, but sadly ![](http://s14.directupload.net/images/141120/j7u778pz.png) my character has no name anymore :P ( yes deleted account) /EDIT -> I fixxed it ``` If Player(Index).afk = 0 Then Select Case GetPlayerAccess(Index) Case 0 color = RGB(255, 96, 0) Case 1 color = QBColor(DarkGrey) Case 2 color = QBColor(Cyan) Case 3 color = QBColor(BrightGreen) Case 4 color = QBColor(Yellow) End Select Else color = RGB(65, 65, 65) End If ``` i changed it with this cause QBColor etc ( using Directx8 :P ``` If Player(Index).afk = 0 Then Select Case GetPlayerAccess(Index) Case 0 color = Orange Case 1 color = DarkGrey Case 2 color = Cyan Case 3 color = BrightGreen Case 4 color = Yellow End Select Else color = DarkGrey End If ``` also you got a little mistake in the code nothing important ``` Sub HandleToggleAfk(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) If Player(index).afk = 1 Then Player(index) = 0 Else Player(index).afk = 1 End If SendPlayerToggledAfk (index) End Sub ``` ``` If Player(index).afk = 1 Then Player(index) = 0 Else ``` instead of ``` Player(index).afk = 0 ``` you wrote ``` Player(index) = 0 ```