[ALL]Membros da Guild Online

por kiko2 Qua 27 Out 2010, 20:48

Bem, esse tutorial vai criar um comando, /staffon, que irá mostrar os membros da staff que estão online.

Vamo começar... na parte do server, procure pela sub:

Código:: Sub SendWhosOnline(ByVal Index As Long) Dim s As String Dim n As Long, i As Long s = vbNullString n = 0 For i = 1 To MAX_PLAYERS If IsPlaying(i) And i <> Index Then s = s & GetPlayerName(i) & ", " n = n + 1 End If Next If n = 0 Then s = "Não há jogadores online." Else s = Mid$(s, 1, Len(s) - 2) s = "Existem " & n & " jogadores online: " & s & "." End If Call PlayerMsg(Index, s, WhoColor) End Sub

Abaixo coloque:

Código:: Sub SendWhosStaff(ByVal Index As Long) Dim s As String Dim n As Long, i As Long For i = 1 To MAX_PLAYERS If IsPlaying(i) Then If GetPlayerAccess(i) > 0 Then s = s & GetPlayerName(i) & ", " n = n + 1 End If End If Next i If n = 0 Then s = "Não há membros da staff online." Else s = Mid$(s, 1, Len(s) - 2) s = "Existem " & n & " membros da staff online: " & s & "." End If Call PlayerMsg(Index, s, WhoColor) End Sub