scope Quest1
{   
    #include "QuestModel.j"
    
    #define private <Action1()> =
    {
        if(GetRandomInt(0,1) == 1)
        {
            Answer = "Прости прости, я просто пошутил, вот твои деньги"; GoldAdd(Value); 
            Value = 0;
            Value1 = 0;
            Value2 = 0;
            SetQuestCompleted();
        }
        else
        { 
            Answer = "Чего ты сказал?! А ну проваливай отсюда!"; 
            int id = QuestMobs_SpawnOnTerrainType('hfoo', 3, 0.0, 0.0, 0, 350 , onANY, 60.0)
            QuestMobs_onCompleteToStage[id] = 1
            QuestMobs_onCompleteToDialog[id] = 6;
        } 
    }
    
    StartQuest
        QuestInitData
        {
            // параметры квеста
            Id = 7
            IsSingle = false;
            IsRepeated = false;
            Name = "Джан-Кен-Пон";
            Description = "Эй! Не желаешь сыграть в \"Камень-Ножницы-Бумага\" на деньги?"
            Reputation = -1;
            Rang = -1;
            Clan = -1;
            AllyClanId = -1;
            EnemyClanId = -1;
            // параметры для настройки цепочки квестов
            ConditionQuestId = -1 ;
            CheckAll = false;
            ConditionStatus = -1;
            // сопутствующий квест
            AttendantQuestId = 0;
            AttendantQuestInfo = "";
            // квест противостояния
            ContrQuestId = 0;
            ContrQuestInfo = ""
            // награда
            ItemReward = 'belv'
            ExpAutoscore = false;
            Exp = 500
            MoneyAutoscore = false;
            Money = 0
            // участники
            NpcMembersId[1] = 21;
        }
                
        // если ведется диалог нпц c id = 1
        IsNpcIdAndStage(21,1)
        {
            // предложение сыграть
            IsDialogStage(1)
            {
                if (PlayerGold > 0)
                {
                    TReplic("Да", "Хм, а давай, почему бы и нет", "Отлично! Сколько желаешь поставить на кон?", SetQuestInProgress(); ToDialog(2););
                }
                TReplic("Нет", "Мне это не интересно", "Жаль", Exit(););
                TQuestInfo("Узнать правила", "Расскажи о правилах", "Игроки считают вместе вслух «Камень… Ножницы… Бумага… Раз… Два… Три» В общем обычная игра. Побеждает тот кто больше раз выйграет из 3х попыток. Ничьи не считаются.");
            }
            
            // ставка
            IsDialogStage(2)
            {
                Hint = "Сделайте вашу ставку";
                if (PlayerGold >= 100)
                {
                    TReplic("Поставить 100 рё", "Я ставлю 100 рё", "Хорошо, ставка принята, поехали!", Value = 100; GoldRemove(100); ToDialog(3));
                }
                if (PlayerGold >= 500)
                {
                    TReplic("Поставить 500 рё", "Я ставлю 500 рё", "Хорошо, ставка принята, поехали!", Value = 500; GoldRemove(500); ToDialog(3));
                }
                if (PlayerGold >= 1000)
                {
                    TReplic("Поставить 1000 рё", "Я ставлю 1000 рё", "Хорошо, ставка принята, поехали!", Value = 1000; GoldRemove(1000); ToDialog(3));
                }
            }
            
            // игра
            IsDialogStage(3)
            {
                Hint = "«Камень… Ножницы… Бумага… Раз… Два… Три»";
                int rnd = GetRandomInt(0,2)
                string array vars; vars[0] = "Камень"; vars[1] = "Ножницы"; vars[2] = "Бумага"
                TReplic("Камень", "*Вы выбрали Камень*", "*Выбрал " + vars[rnd],
                    Counter++; if(rnd == 1) {SystemMsg = "«Камень затупляет или ломает ножницы» Вы выйграли!"; Counter1++;} elseif (rnd == 2){ SystemMsg = "«Бумага накрывает или заворачивает камень» Вы проиграли!"; Counter2++;} else { SystemMsg = "Ничья!";Counter--;}  
                );
                TReplic("Ножницы", "*Вы выбрали Ножницы*", "*Выбрал " + vars[rnd], 
                    Counter++; if(rnd == 2){SystemMsg = "«Ножницы разрезают бумагу» Вы выйграли!"; Counter1++;} elseif (rnd == 0) { SystemMsg = "«Камень затупляет или ломает ножницы» Вы проиграли!"; Counter2++; } else { SystemMsg = "Ничья!"; Counter--;}  
                );
                TReplic("Бумага", "*Вы выбрали Бумагу*", "*Выбрал " + vars[rnd],
                    Counter++; if(rnd == 0){SystemMsg = "«Бумага накрывает или заворачивает камень» Вы выйграли!"; Counter1++;} elseif (rnd == 1) { SystemMsg = "«Ножницы разрезают бумагу» Вы проиграли!"; Counter2++; } else { SystemMsg = "Ничья!"; Counter--;}  
                );

                if(Counter == 3) 
                {
                    if(Counter1 > Counter2)
                    {
                        SystemMsg = "Вы выйграли в игре!"
                        ToDialog(4);
                    }
                    else
                    {   
                        SystemMsg = "Вы проиграли в игре!"
                        ToDialog(5);
                    } 
                    Counter = 0;
                    Counter1 = 0;
                    Counter2 = 0;
                }
            }
            
            // победный диалог
            IsDialogStage(4)
            {
                TReplic("Забрать награду", "Я победил, давай мой выйгрышь", "Вот ваша награда. Поздравляю", GoldAdd(Value*2);Value =0; SetQuestCompleted(););
            }
            
            // проигрышный диалог диалог
            IsDialogStage(5)
            {
                TReplic("Сыграть еще раз", "Пожалуй я попробую сыграть еще раз", "Отличный настрой, тогда сыграем еще раз!", ToDialog(2););
                TReplic("Обвинить в жульничестве", "Ты меня обманул! Я уверен! Верни мои деньги жулик!", "", Action1(); );
            }
            
            IsDialogStage(6)
            {
                TReplic("Требовать деньги", "Я победил, давай мой выйгрышь", "Вот ваша награда. Поздравляю", GoldAdd(Value*2);Value =0; SetQuestCompleted(););
            }
            
            ToQuestList();
            ExitButton();
        }
        
    EndQuest
}