//==Test Event Rental Glove
amatsu,236,223,3    script  Event Dealer 3#ama  4_M_JPNOJI,{

while (true) {
    mes("Hello, would you like to participate in the event?");
    next();
    switch (select(
        "^ff1000I do not want to participate at the moment.",
        "^00ff48I would love to, but what does it entail?",
        "^e5da10Show me what event items I can buy!"
    )) {
    case 1:
        mes("I am sorry but please come back when you are ready.");
        close;

    case 2:
        callsub(S_Yes);
        break;
    case 3:
        callsub(S_Shop);
        break;
    }
}

S_Yes:
    mes("Some text.");
    next;
    return;


S_Shop:
    mes("Let's see what we have in store.");
    close2();
    openshop("Dummy_Shop_xxxxx");
    end;
}

//================Input Event Item Here================
-   trader  Dummy_Shop_xxxxx    FAKE_NPC,{

OnInit:
    tradertype(NST_CUSTOM);
    sellitem(Red_Potion, 2);
    sellitem(Wild_Rose_Hat, 5);
    sellitem(Wit_Pumpkin_Hat, 5);
    sellitem(Vanilmirth_Hat, 3);
    sellitem(Turtle_Hat, 4);
    end;

OnCountFunds:
    setcurrency(countitem(Event_Token));
    end;

OnPayFunds:
    dispbottom(sprintf("Hi: price = %d", @price));
    if (countitem(Event_Token) < @price)
        end;
    delitem(Event_Token, @price);
    purchaseok();
    end;

}