Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


2 participantes

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

    GalaxyHells
    GalaxyHells
    Ocasional
    Ocasional


    Mensagens : 196
    Créditos : 22

    Ficha do personagem
    Nível: 1
    Experiência:
    [Hells] Mini Evento: Pergunta Rapida [EO X.X] Left_bar_bleue0/0[Hells] Mini Evento: Pergunta Rapida [EO X.X] Empty_bar_bleue  (0/0)
    Vida:
    [Hells] Mini Evento: Pergunta Rapida [EO X.X] Left_bar_bleue30/30[Hells] Mini Evento: Pergunta Rapida [EO X.X] Empty_bar_bleue  (30/30)

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

    Mensagem por GalaxyHells Qua Dez 25, 2019 3:04 am

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

    Como Funciona?
    De tempos em tempos uma pergunta é feita no chat global, quem responder primeiro
    ganha algum premio pré-definido.

    Nivel de dificuldade?
    -1

    Hotel?
    *Piada velha*



    Server-Side


    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-





    Última edição por GalaxyHells em Qua Dez 09, 2020 12:37 pm, editado 3 vez(es)


    _________________
    [Hells] Mini Evento: Pergunta Rapida [EO X.X] 90yel0
    Mizuki
    Mizuki
    Novato
    Novato


    Mensagens : 29
    Créditos : 4

    Ficha do personagem
    Nível: 1
    Experiência:
    [Hells] Mini Evento: Pergunta Rapida [EO X.X] Left_bar_bleue0/0[Hells] Mini Evento: Pergunta Rapida [EO X.X] Empty_bar_bleue  (0/0)
    Vida:
    [Hells] Mini Evento: Pergunta Rapida [EO X.X] Left_bar_bleue30/30[Hells] Mini Evento: Pergunta Rapida [EO X.X] Empty_bar_bleue  (30/30)

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

    Mensagem por Mizuki Qui Abr 02, 2020 11:00 am

    link ta off man arruma ai


    _________________
    vem sempre aqui?  I love you

      Data/hora atual: Qui Mar 28, 2024 5:58 am