~~Server-Side~~
Na sub:
- Código:
Private Sub UpdateSavePlayers
Em baixo de:
- Código:
Dim i As Long
Adicione:
- Código:
Dim n As byte
Na mesma sub, em baixo de:
- Código:
Call TextAdd("Saving all online players")
Adicione:
- Código:
n = Random(1, 3)
' Aqui estao as mensagem que serao randomizadas
if n = "1" Then
GlobalMsg "Mensagem 1", BrightCyan
ElseIf n = "2" Then
GlobalMsg "Mensagem 2", BrightCyan
ElseIf n = "3" Then
GlobalMsg "Mensagem 3", BrightCyan
End If
Pronto!
Mude o 3 do "(1, 3)" para o numero maximo de mensagem que voce quer que randomizem.
Creditos: GalaxyHells
Última edição por GalaxyHells em Qua Ago 29, 2018 1:24 pm, editado 1 vez(es)