// TMW2 scripts.
// Author:
//    Jesusalva
// Description:
//    Soul Menhir

018-5,111,52,0	script	Soul Menhir#lil	NPC_SOUL_MOSS,{
    mesc l("This is a Soul Menhir, but seems more magical than the others.");
    select
        l("Look closer."),
        l("I wanna return home...");
    mes "";
    if (@menu == 2) {
        closeclientdialog;
        teleporthome();
        close;
    }
    @map$ = "018-5";
    setarray @Xs, 110, 111, 112;
    setarray @Ys,  53,  53,  53;
    @x = 0;
    @y = 0;
    callfunc "SoulMenhir";
    @map$ = "";
    cleararray @Xs[0], 0, getarraysize(@Xs);
    cleararray @Ys[0], 0, getarraysize(@Ys);
    @x = 0;
    @y = 0;
    close;
}