viewing paste topic/16001-autoevent-trivia | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
//=====From eAthena to rAthena to Hercules==================================================
//==========Without this original author, this script will never exist======================
//========Original author Credits===========================================================
//=====================================================DONT=================================
// ToastOfDoom ================================================REMOVE=======================
// RxChris         =========================================================THIS================
// Hellflaem   ================================================================CREDIT=======
//==========================================================================================
//==========================================================================================
 
prontera,155,185,5      script  Trivia  4_F_JOB_ASSASSIN,{
        mes "["+ F_MesColor(C_BLUE) +"::: Trivia :::"+ F_MesColor(C_BLACK) +"]";
        if ( !.start ) {
                mes "event not running.";
                close;
        }
        mes "\rVery simple event!";
        mes "\rI will be asking random questions.";
        mes "\rAll you have to do is shout the answer in the main chat!";
        mes "\rDo not worry about the capital letters, I can recognize the right answer, when I see one ;)";
        mes "Worry about the spelling though.";
        close;
OnMinute33:
        announce "The Trivia Event has begun!", bc_all | bc_blue;
        .start = true;
        sleep 60000;
        npctalk "Please answer all my questions:";
        sleep 2000;
        npctalk "If your answer is correct, you will obtain prizes!";
        sleep 2000;
        callfunc "F_ShuffleNumbers", 0, .total_question -1, .random, .ask_no_of_question;
        do {
                .answered = false;
                npctalk "["+( .round +1 )+"/"+ .ask_no_of_question +"] "+ .question$[.random[.round]];
                defpattern 1, "([^:]+):.*\\s" + .answer$[.random[.round]] + "(.*)", "L_RightAnswer";
//              defpattern 1, "[^:]+: "+ .answer$[.random[.round]] +"$", "L_RightAnswer"; // not allow space and no random stupid gibberish at the end string
                activatepset 1;
                sleep 15000; // 15 seconds to get a hint
                if ( !.answered ) {
                        npctalk "[Hint] : "+ .hint$[.random[.round]];
                        sleep 15000; // another 15 seconds before the npc announce its too late
                        if ( !.answered )
                                npctalk "Sorry, You took too long to answer.";
                }
                deactivatepset 1;
                deletepset 1;
                sleep 3000;
        } while ( ++.round < .ask_no_of_question );
        npctalk "That's all for now. Thanks for participating in this event ^^";
        emotion e_thx;
        .start = .round = false;
        end;
L_RightAnswer:
        npctalk "Correct, " + strcharinfo(PC_NAME) + "! The answer is  " + .answer$[.random[.round]] + ".";
        .answered = true;
        awake strnpcinfo(NPC_NAME);
        getitem Poring_Coin, 1; // configure prize here
        end;
OnInit:
        .ask_no_of_question = 10; // ask how many question
 
//      bindatcmd "test", strnpcinfo(NPC_NAME) +"::OnMinute33", 99, 100; // use to debug the script only
 
        function        DefineQuestion  {
                .question$[.total_question] = getarg(0);
                .answer$[.total_question] = getarg(1);
                .hint$[.total_question] = getarg(2);
                ++.total_question;
                return;
        }
        DefineQuestion("When you create a character in this game, how many primary stats are there?","6", "STR, AGI, VIT, INT, DEX, LUK");
        DefineQuestion("Wizard skill Water Ball can only be cast over deluge or ____?", "water", "It is liquid.");
        DefineQuestion("Which item is required to create a guild?", "emperium", "An Emperial item");
        DefineQuestion("which skill is beneficial to the living and damaging to the undead?", "heal", "It restores health.");
        DefineQuestion("In which town Thieves guild is located?", "morocc", "A town in the sorgat desert.");
        DefineQuestion("In which town Merchants guild is located?", "alberta", "It's a portuary town.");
        DefineQuestion("In which town Archers guild is located?", "payon", "");
        DefineQuestion("What property do Izlude dungeon monsters possess?", "water", "It is liquid.");
        DefineQuestion("What status can be inflicted with the Hammer Fall skill?", "stun", "Did I see the stars around your head?");
        DefineQuestion("How much Zeny one Jellopy is worth?", "3", "Just get it from a Poring.");
        DefineQuestion("Which town has the most Dancers?", "comodo", "An island in the warm waters.");
        DefineQuestion("How many different poring-like monsters you can meet near prontera, including mini bosses?", "9", "poring, drops, poporing, marin, santa poring, mastering, angeling, arcangeling, ghostring");
        DefineQuestion("What property counters best the water property?", "wind", "It's Blowing");
        DefineQuestion("What property counters best the undead property?", "holy", "Perhaps an acolyte or a priest can tell you?");
        DefineQuestion("What kind of food both Vanilmirth and Christmas Goblin like?", "cell", "Yellow jeloppy");
        DefineQuestion("How many cities are in Rune-Midgrad kingdom?", "11", "Prontera, Izlude, Jawaii, Geffen, Payon, Morocc, Alberta, Comodo, Umbala, Al De Baran, Lutie");
        DefineQuestion("What city is the capital of Rune-Midgrad kingdom?", "prontera", "The most central town of all.");
        DefineQuestion("Which food is able to fully restore health and mana? _________ _____", "yggdrasil berry", "A berry growing on the most majestic tree!");
        DefineQuestion("Which one of those is the fastest weapon type? Sword, Dagger, Staff, Mace", "dagger", "Something that has to do with the length of the blade.");
        DefineQuestion("Which one of those id the cheapest? Jellopy  Large Jellopy   Royal Jelly   Honey", "jellopy", "Dropped by Porings.");
        DefineQuestion("Which monster drops a pet taming item to tame Deviruchi?", "joker", "Why so serious?");
        end;
}
Viewed 900 times, submitted by AnnieRuru.