Server~Side
Vá em frmServer na aba control painel ou painel de controle [pra quem usa elysium]
aumente um pouco o tamanho do server para criar uma frame com qualquer nome.

Caption= Evento de Experiencia
Dentro da frame Crie uma TextBox

Name=scrlEventos

Dê 2 click's na TextBox e coloque este código:

Código:

Dim lol As Long
lol = scrlEventos.Text
lblEventos.caption = "Exp " & lol & "x"


Ainda na frame crie uma Label

Name=lblEventos

Caption=Exp 0x

Agora crie um CheckBox no frmserver em frente ao seu Evento, Dê 2 clicks no seu checkBox e adicione isto:

Código:

If Check2.Value = 0 Then
scrlEventos.Enabled = True
Call GlobalMsg("Evento finalizado!", White)
Else
scrlEventos.Enabled = False
Call GlobalMsg("Evento de experiência, começou, o coeficiente multiplicador é o: " & scrlEventos.text, White)
End If


Na "Sub AttackNpc" depois da linha:

Código:

If Exp < 0 Then
    Exp = 1
End If


Adicione este código:

Código:

    'Evento de Experiencia
                    If GetPlayerAccess(Attacker) = 0 And frmServer.NOMEBOX.Value = 1 Then
                Exp = Exp * frmServer.scrlEventos.Text
            Else
                Exp = Exp
            End If


Caso você queira colocar o evento para os VIPs também, éah soh adicionar este código abaixo do código acima:

Código:

 'Evento de Experiencia
                If GetPlayerAccess(Attacker) = 1 And frmServer.NOMEBOX.Value = 1 Then
            Exp = Exp * frmServer.scrlEventos.Text
        Else
            Exp = Exp
        End If


OBS: NOMEBOX é para você colocar o nome do seu CheckBox qe você criou.

Explicando o Que Mudou :

Em vez de por HScrollbar
Pois TextBox

Créditos:Skyper e Lucas Roberto