[Hells] Mini Evento: Pergunta Rapida [EO X.X]

Oque é?
Um mini evento automatico... '-'

De tempos em tempos uma pergunta é feita no chat global, quem responder primeiro

ganha algum premio pré-definido.

-1

Na sub "HandleBroadcastMsg" em baixo de:

Código:

For i = 1 To Len(Msg)
        ' limit the ASCII
        If AscW(Mid$(Msg, i, 1)) < 32 Or AscW(Mid$(Msg, i, 1)) > 126 Then
            ' limit the extended ASCII
            If AscW(Mid$(Msg, i, 1)) < 128 Or AscW(Mid$(Msg, i, 1)) > 168 Then
                ' limit the extended ASCII
                If AscW(Mid$(Msg, i, 1)) < 224 Or AscW(Mid$(Msg, i, 1)) > 253 Then
                    Mid$(Msg, i, 1) = ""
                End If
            End If
        End If
    Next

Cole: 

Código:

'Quick Question -Hells
    If Msg = "Start QQ" Then 'Digite isso para iniciar o evento manualmente
        StartQuickQuestion
        Exit Sub
    End If
    
    Dim Rnd As Byte
    
    If QuickQuestion.Active = True Then
        If Msg = Trim$(AnswerQuestion(QuickQuestion.CurQuestion)) Then
            GlobalMsg "O jogador " & Trim$(Player(index).Name) & " venceu o evento Pergunta Rapida. Parabéns!", Cyan 'Fala pra geral qm venceu
            
            Rnd = Rand(1, MAX_QUESTIONS_REWARDS) 'randomiza um item da lista de premios
            GiveInvItem index, QuestionReward(Rnd), QuestionRewardQnt(Rnd), 0 'Da o item
            ReceiveItemAlert index, QuestionReward(Rnd), QuestionRewardQnt(Rnd) 'Avisa pra ele q ganhou o item
            
            FinishQuickQuestion
        End If
    End If

Na final da"Private Sub LoadGameData()" antes do "End Sub" Adicione:

Código:

'Quick Question -Hells
    Call SetStatus("Loading Quick Questions...")
    Call LoadQuickQuestions

no "mdoTypes" abaixo de:

Código:

' Public data structures

Adicione:

Código:

'Quick Question -Hells
Public QuickQuestion As QuickQuestionRec

Private Type QuickQuestionRec
    Active As Boolean
    CurQuestion As Byte
End Type

Na "Sub ServerLoop", em baixo de "Dim tmr25 As Long" Cole:

Código:

'Quick Question -Hells
    Dim tmr1h As Long

Ainda na mesma sub, em baixo de:

Código:

UpdateMapLogic
            tmr500 = GetTickCount + 500
        End If

Cole:

Código:

'Quick Question -Hells
        If Tick > tmr1h Then
            StartQuickQuestion
            
            tmr1h = GetTickCount + 3600000'Está configurado para comecar a cada 1 hora. Cada 1000 = 1 segundo. 1000 * 3600 = 3600000 (Ou seja 1 hora)
        End If

Por Fim adicione esse modQuickQuestions ao servidor

> Download <

Ou

Link: https://www.mediafire.com/file/xnk0fmjl1u4d0t6/modQuickQuestion.bas/file
-FIM-