구버전 바람 주술사 고차 승급 스킬 무간지옥

@무간지옥    {
    set @sd, mysd();
    set @id, myid();

    callfunc "SPELL_MOMENT";
    callfunc "MANA_DELAY", 22000, name2spellid("무간지옥"), @sd;
    set_mp @sd, get_mp(@sd)-22000;

    set $dark_storm_move, get_mapid(@sd)+get_x(@id)+get_y(@id)+get_side(@id);

    action @id, 6, 30, 0;

    spellaether @sd, name2spellid("무간지옥"), 9;
    message @sd, 3, "무간지옥을 외웠습니다.";
}

@무간지옥지속    {
    set @sd, mysd();
    set @id, myid();
    set @x, get_x(@id);
    set @y, get_y(@id);
    set @move, (get_mapid(@sd)+get_x(@id)+get_y(@id)+get_side(@id));

    if(spellaethered(@sd, name2spellid("무간지옥")) == 0) { end; }

    if(spellaethered(@sd, name2spellid("스턴")) == 1) { spelluncast @sd, name2spellid("무간지옥"); end; }
    else if($huntbegin != 1)
    {
        if(@move != $dark_storm_move) { spelluncast @sd, name2spellid("무간지옥"); end; }
    }

    set @value, callfunc("calculate_damage", get_maxmp(@sd)-(get_maxmp(@sd)/10*3), 3);
    set @damage, callfunc("calc_multiply", @value);

    setarray @x[0], @x  , @x-1, @x  , @x+1, @x-2, @x-1, @x+1, @x+2, @x-1, @x  , @x+1, @x  , @x-3, @x-3, @x-3, @x-1, @x-2, @x-1, @x+1, @x+2, @x+3, @x+4, @x+3, @x+5, @x+3, @x+3, @x+1, @x+3, @x+2, @x+1, @x-1, @x-2, @x-3, @x-4, @x-3, @x-5;
    setarray @y[0], @y-2, @y-1, @y-1, @y-1, @y  , @y  , @y  , @y  , @y+1, @y+1, @y+1, @y+2, @y-1, @y-2, @y-3, @y-3, @y-4, @y-5, @y-3, @y-3, @y-3, @y-2, @y-1, @y-1, @y+1, @y+2, @y+3, @y+3, @y+4, @y+5, @y+3, @y+3, @y+3, @y+2, @y+1, @y+1;

    for(set @loop, 0; @loop < 36; set @loop, @loop+1)
    {
        if(@x[@loop] >= 0 && @x[@loop] < get_mapwidth(@sd) && @y[@loop] >= 0 && @y[@loop] < get_mapheight(@sd))
        {
            set @target_id, obj_getxy(@x[@loop], @y[@loop]);
            if(@target_id > 0)
            {
                if(istype(@target_id) == 1)
                {
                    set @target_sd, id2sd(@target_id);
                    if(clan_exist(@sd) != 0 && get_clanname(@sd) == get_clanname(@target_sd)) { continue; }

                    if(ismapoption(@target_sd, 6) && get_state(@target_sd) != 1)
                    {
                        set @healhp, get_hp(@sd)+(get_hp(@target_sd)/100*3);
                        if(get_maxhp(@sd) <= @healhp) { set_hp @sd, get_maxhp(@sd); }
                        else { set_hp @sd, @healhp; }

                        set @healmp, get_mp(@sd)+(get_mp(@target_sd)/100*3);
                        if(get_maxmp(@sd) <= @healmp) { set_mp @sd, get_maxmp(@sd); }
                        else { set_mp @sd, @healmp; }

                        set @downhp, get_hp(@target_sd)-(get_hp(@target_sd)/100*3);
                        if(@downhp <= 0) { set_hp @target_sd, 1; }
                        else { set_hp @target_sd, @downhp; }

                        set @downmp, get_mp(@target_sd)-(get_mp(@target_sd)/100*3);
                        if(@downmp <= 0) { set_mp @target_sd, 1; }
                        else { set_mp @target_sd, @downmp; }

                        message @target_sd, 3, get_name(@sd) + "님이 무간지옥을 가합니다.";
                    }

                    if(rand(1, 100) <= 2)
                    {
                        if(get_x(@target_id) != 20 || get_y(@target_id) != 8)
                        {
                            if(istype(@target_id) == 1 && ismapoption(@sd, 6) == 1)
                                spellcast @target_sd, name2spellid("아공간격리술");
                        }
                    }
                    else
                    {
                        effect @target_id, 177;
                        sound @target_id, 502;

                        callfunc "ATTACKDAMAGE", @target_id,  @damage, 0;

                    }
                }
                else if(istype(@target_id) == 2)
                {
                    set @healhp, get_hp(@sd)+(get_mobhp(@target_id)/100*3);

                    if(get_maxhp(@sd) <= @healhp) { set_hp @sd, get_maxhp(@sd); }
                    else { set_hp @sd, @healhp; }

                    effect @target_id, 177;
                    sound @target_id, 502;

                    callfunc "ATTACKDAMAGE", @target_id,  @damage, 0;
                }
            }
        }
    }

    deletearray @x[0], getarraysize(@x);
    deletearray @y[0], getarraysize(@y);

    action @id, 6, 30, 0;
}

@무간지옥해제    {
    set @sd, mysd();
    set @id, myid();

    spelldelay @sd, name2spellid("무간지옥"), 165;
    message @sd, 3, "무간지옥 해제.";
}