Cretino

que_ng,27,66,4    script    Fogueira#Casa    4_TRACE,{
 
    if (getcharid(CHAR_ID_CHAR) != getpartyleader(getcharid(CHAR_ID_PARTY), 2))
    {
        unittalk getcharid(CHAR_ID_ACCOUNT), "Essa é a famosa " + strnpcinfo(NPC_NAME_VISIBLE) + "!";
        end;
    }
 
    // Se a fogueira estiver acesa, desabilita a opção '- Acender' e ativa '- Assar Peixe' no menu.
    if (select(((.burning == true) ? "- Assar Peixe" : "- Acender") + ":- Sair") == 1)
    {
        if (.burning == true)
        {
            // Se a fogueira estiver acesa, executa o que está aqui...
        }
        else
        {
            .burning = true;
            .burning_time = gettimetick(2) + .burning_duration;
        }
    }
 
    close;
 
    OnInit:
        .burning = false;
        .burning_time = 0;
        .burning_duration = 5;    // Duração da fogueira em segundos.
 
        while(true)
        {
            if (.burning == true)
            {
                specialeffect EF_KAEN;
 
                if (.burning_time <= gettimetick(2))
                {
                    .burning_time = 0;
                    .burning = false;
                }
            }
 
            sleep 312; // Duração da animação do fogo.
        }
    end;
}

$dq_hunting_id_
$dq_hunting_amount_
$dq_collect_id_
$dq_collect_amount_
$dq_prize_id_
$dq_prize_amount_
$dq_zeny_cost_
$dq_cash_cost_
$dq_kafra_point_cost_
$dq_req_lv_
$dq_max_lv_
$dq_zeny_prize_
$dq_cash_prize_
$dq_kafra_point_prize_
$dq_bexp_prize_
$dq_jobexp_prize_
$dq_delay_
$dq_id
$dq_name$
$dq_desc_name$
$dq_count
$dq_type

        // Level 1
        set .monsterset, query_sql "SELECT `ID`, `iName` FROM `mob_db` WHERE `LV` >= '30' AND `LV` <= '50' AND `HP` < '500000' AND `MEXP` = '0' AND NOT `iName` = 'Treasure Chest' ORDER BY rand() LIMIT 100", .monsterid, .monstername$;
 
        for(set .@x, 0; .@x < getmapusers("ordeal_1-1"); set .@x, .@x + 1)
        {
            set .monstercount, 15;
 
            for(set .@y, 0; .@y < .monstercount; set .@y, .@y + 1)
            {
                set .monster, rand(0, .monsterset - 1);
 
                monster "ordeal_1-1", 149, 149, "[DS] " + .monstername$[.monster], .monsterid[.monster], .monstercount, strnpcinfo(0) + "::OnDevilDead";
                set .mob, .mob + .monstercount;
            }
        }
 
 
        // Level 2
        set .monsterset, query_sql "SELECT `ID`, `iName` FROM `mob_db` WHERE `LV` >= '51' AND `LV` <= '70' AND `HP` < '500000' AND `MEXP` = '0' AND NOT `iName` = 'Treasure Chest' ORDER BY rand() LIMIT 100", .monsterid, .monstername$;
 
        for(set .@x, 0; .@x < getmapusers("ordeal_1-1"); set .@x, .@x + 1)
        {
            set .monstercount, 15;
 
            for(set .@y, 0; .@y < .monstercount; set .@y, .@y + 1)
            {
                set .monster, rand(0, .monsterset - 1);
 
                monster "ordeal_1-1", 149, 149, "[DS] " + .monstername$[.monster], .monsterid[.monster], .monstercount, strnpcinfo(0) + "::OnDevilDead";
                set .mob, .mob + .monstercount;
            }
        }