function	script	EvilObelisk	{
    mesn l("Evil Obelisk");
    mes l("(A mystical aura surrounds this stone. It seems to crave money.)");
    next;

    .@Cost_jacko = 6500;
    .@Cost_gy1 = 4000;
    .@Cost_gy2 = 3000;
    .@Cost_skull = 2800;
    .@Cost_snake = 2500;
    .@Cost_keshlam = 10000;

    menu
        "Don't pay it anything.", -,
        "Pay it " + .@Cost_jacko + " gold.", L_JACKO,
        "Pay it " + .@Cost_gy1 + " gold.", L_GRAVEYARD1,
        "Pay it " + .@Cost_gy2 + " gold.", L_GRAVEYARD2,
        "Pay it " + .@Cost_skull + " gold.", L_SKULL,
        "Pay it " + .@Cost_snake + " gold.", L_SNAKE,
        "Pay it " + .@Cost_keshlam + " gold.", L_KESHLAM;
    return;

L_JACKO:
    if (Zeny < .@Cost_jacko)
        goto L_NotEnough;
    Zeny = Zeny - .@Cost_jacko;
    @mob_id = JackO;
    @mob_count = rand(1,2);
    goto L_Summon;

L_GRAVEYARD1:
    if (Zeny < .@Cost_gy1)
        goto L_NotEnough;
    @temp = rand(2);
    if(@temp == 0)
        set @mob_id, Zombie;  // Zombie
    if(@temp == 1)
        set @mob_id, Fallen;  // Fallen
    @mob_count = rand(1,2);
    Zeny = Zeny - .@Cost_gy1;
    goto L_Summon;

L_GRAVEYARD2:
    if (Zeny < .@Cost_gy2)
        goto L_NotEnough;
    @temp = rand(2);
    if(@temp == 0)
        set @mob_id, LadySkeleton;  // Lady Skelly
    if(@temp == 1)
        set @mob_id, Skeleton;      // Normal Skelly
    @mob_count = rand(1,2);
    Zeny = Zeny - .@Cost_gy2;
    goto L_Summon;

L_SKULL:
    if (Zeny < .@Cost_skull)
        goto L_NotEnough;
    @temp = rand(2);
    if(@temp == 0)
        set @mob_id, PoisonSkull;  // Poison
    if(@temp == 1)
        set @mob_id, FireSkull;    // Fire
    @mob_count = rand(1,4);
    Zeny = Zeny - .@Cost_skull;
    goto L_Summon;

L_SNAKE:
    if (Zeny < .@Cost_snake)
        goto L_NotEnough;
    @temp = rand(5);
    if(@temp == 0)
        set @mob_id, GrassSnake;     // Grass
    if(@temp == 1)
        set @mob_id, MountainSnake;  // Mnt.
    if(@temp == 2)
        set @mob_id, Snake;          // Normal
    if(@temp == 3)
        set @mob_id, CaveSnake;      // Cave
    if(@temp == 4)
        set @mob_id, VoidSnake;      // Void
    @mob_count = rand(1,4);
    Zeny = Zeny - .@Cost_snake;
    goto L_Summon;

L_KESHLAM:
    if (Zeny < .@Cost_keshlam)
        goto L_NotEnough;
    set @mob_id, any(Tengu, Sasquatch, ManaSlayer);
    @mob_count = rand(1,3);
    Zeny = Zeny - .@Cost_keshlam;
    goto L_Summon;

L_Summon:
    areamonster @map$, @x0, @y0, @x1, @y1, "Evil", @mob_id, @mob_count;
    return;

L_NotEnough:
    mes l("You don't have that much money");
    return;

}