mining system with error in command

[ADM Ytallo]

I need to resolve this error on the command '' close ''

// - NPC Evento Minerador
// - Progamado por ACSII 12/12/2013
//-------------------------------------------------------
prontera,155,175,5    script    Evento Minerador#ncuda1    848,{
    
// === Configurações da Bagaça Lek Lek ====
set .@id_pica,60002;        // Id da picareta
set .@id_hat,5009;            // Id do hat
set .@timerent,1500;        // Tempo que as bagaça ficara no inventário em segundos
set .@id_qtz,1010;            // Id do quartzo azul fracon
set .@id_zcr,985;            // Id da zicronia Eluniu
setarray .@quatzq1[0],100,200,150,200,200;            // Quantidade de quartz a entregar para o NPC
setarray .@quatzid[0],20665,7146,12912,12902,12103;    // Ids dos premios a receber
setarray .@quatzq2[0],10,1,2,2,2;                    // Quantidade dos premios a receber
setarray .@zicroq1[0],100,500,350,600;            // Quantidade de quartz a entregar
setarray .@zicroid[0],607,7146,674,608;        // Ids dos premios a receber
setarray .@zicroq2[0],1,5,1,1;                    // Quantidade dos premios a receber

// === Fim das Configurações da Bagaça Lek Lek ====


    mes "[^FF0000Evento Minerador^000000]";
    mes "Ola ^0000CD"+strcharinfo(0)+"^000000,";
    mes "bem vindo ao ^FF0000Evento minerador^000000 !";
    mes "Eu posso teleportar você para a ^FF0000Mina^000000, ^0000FFTrocar seus minérios^000000 ou dar Informações sobre evento.";
     next;

    switch (select ( "- ^ FF0000Entrar há eventos 000000 ^ ^ ^ 0000FFTrocar Prêmios 000000: Information")) 
    { 
        case 1: 
        mes "[^ ^ FF0000Evento Minerador 000000]" 
        if ($ ncuda == 0) {mes "Desculpas nâo voz Poder ENTRAR carrinho!", perto; end;} 
        (. countitem (@ id_pica)> 0) {. esquecimento id_pica @ 1;} if 
        if (countitem (. @id_hat)> 0) {esquecimento id_hat @ 1;.} 
            mes "Boa Sorte!" 
            sc_end sc_all; 
            Avançar; 
            atcommand "@disguise 1169"; 
            // AL_DECAGI sc_start, 1.500.000,0; 
            // SC_DECAGI sc_start, 1.500.000,0; 
            rentitem id_pica @ @ ,. tenha medo.; 
            . Rentitem id_hat @ @ ,. tenha medo;
            equipar @ id_pica.; equipar @ id_hat.; 
            warp "bossnia_04", 0,0; 
            pausa; 
    
        case 2: 
            mes "[^ FF0000Evento Minerador ^ 000000]"; 
            mes "^ 0000CDQual Mineral ^ 000000?"; 
            if (select ( "^ 0000FFQuartzo Azul ^ 000000: ^ FF0000Zicrônia ^ 000000") == 1)  
            { 
                . switch (select ( "". + @ quatzq2 [0] +" "+ getitemname (@ quatzid [0]) +" : "+ @ quatzq2 [1] +." "+ getitemname + (@ quatzid [1].)": "+ @ quatzq2 [2] +" "+ getitemname + (@ quatzid [2].)":." . + @ quatzq2 [3] + " "+ + getitemname (@ quatzid [3].)": " + @ quatzq2 [4] +"(. @ quatzid [4]) "+ getitemname +""


                    if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
                    if(countitem(.@id_qtz) < .@quatzq1[0]){mes "Você não tem Quartzos Azuis suficientes"; close; end;}
                        delitem .@id_qtz,.@quatzq1[0];
                        getitem .@quatzid[0],.@quatzq2[0];
                        mes "Aqui está."; close; end;
                    
                    case 2: mes "São nescassários "+.@quatzq1[1]+" ^0000FFQuartzos Azuis^000000"; mes "Deseja trocar ?";
                        if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
                        if(countitem(.@id_qtz) < .@quatzq1[1]){mes "Você não tem Quartzos Azuis suficientes"; close; end;}
                            delitem .@id_qtz,.@quatzq1[1];
                            getitem .@quatzid[1],.@quatzq2[1];
                            mes "Aqui está."; close; end;
                        
                        case 3: mes "São nescassários "+.@quatzq1[2]+" ^0000FFQuartzos Azuis^000000"; mes "Deseja trocar ?";
                            if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
                            if(countitem(.@id_qtz) < .@quatzq1[2]){mes "Você não tem Quartzos Azuis suficientes"; close; end;}
                                delitem .@id_qtz,.@quatzq1[2];
                                getitem .@quatzid[2],.@quatzq2[2];
                                mes "Aqui está."; close; end;
                        
                            case 4: mes "São nescassários "+.@quatzq1[3]+" ^0000FFQuartzos Azuis^000000"; mes "Deseja trocar ?";
                                if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
                                if(countitem(.@id_qtz) < .@quatzq1[3]){mes "Você não tem Quartzos Azuis suficientes"; close; end;}
                                    delitem .@id_qtz,.@quatzq1[3];
                                    getitem .@quatzid[3],.@quatzq2[3];
                                    mes "Aqui está."; close; end;
                
                                case 5: mes "São nescassários "+.@quatzq1[4]+" ^0000FFQuartzos Azuis^000000"; mes "Deseja trocar ?";
                                    if (select ( "Sim: Não") == 2) {mes "Volte when Quiser."; perto; end;} 
                                    if (countitem (@ id_qtz) <@ quatzq1 [4]..) {mes "Você Não Tem Quartzos Azuis suficientes"; perto; final;} 
                                    delItem @ id_qtz, @ quatzq1 [4]..; 
                                    getitem @ quatzid [4], @ quatzq2 [4]..; 
                                    mes "Aqui esta."; perto; fim; 
                } 
            } 
                                        
    Switch (select ( "" + @ zicroq2 [0] + " "+ getitemname (@ zicroid [0]) +.": ". + @ Zicroq2 [1] +"" + getitemname (@ zicroid [1 ]) + ":" + @ zicroq2 [2] + " "+ getitemname (@ zicroid [2]) +.":. " + @ zicroq2 [3] +""

    case 1: mes "São nescassários "+.@zicroq1[0]+" ^FF0000Zicrônias^000000"; mes "Deseja trocar ?";
        if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
        if(countitem(.@id_zcr) < .@zicroq1[0]){mes "Você não tem Zicrônias suficientes"; close; end;}
            delitem .@id_zcr,.@zicroq1[0];
            getitem .@zicroid[0],.@zicroq2[0];
            mes "Aqui está."; close; end;
            
        case 2: mes "São nescassários "+.@zicroq1[1]+" ^FF0000Zicrônias^000000"; mes "Deseja trocar ?";
            if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
            if(countitem(.@id_zcr) < .@zicroq1[1]){mes "Você não tem Zicrônias suficientes"; close; end;}
                delitem .@id_zcr,.@zicroq1[1];
                getitem .@zicroid[1],.@zicroq2[1];
                mes "Aqui está."; close; end;
            
            case 3: mes "São nescassários "+.@zicroq1[2]+" ^FF0000Zicrônias^000000"; mes "Deseja trocar ?";
                if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
                if(countitem(.@id_zcr) < .@zicroq1[2]){mes "Você não tem Zicrônias suficientes"; close; end;}
                delitem .@id_zcr,.@zicroq1[2];
                getitem .@zicroid[2],.@zicroq2[2];
                mes "Aqui está."; close; end;            
            
                case 4: mes "São nescassários "+.@zicroq1[3]+" ^FF0000Zicrônias^000000"; mes "Deseja trocar ?";
                if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
                if(countitem(.@id_zcr) < .@zicroq1[3]){mes "Você não tem Zicrônias suficientes"; close; end;}
                delitem .@id_zcr,.@zicroq1[3];
                getitem .@zicroid[3],.@zicroq2[3];
                mes "Aqui está."; close; end;
            
                    case 5: mes "São nescassários "+.@zicroq1[4]+" ^FF0000Zicrônias^000000"; mes "Deseja trocar ?";
                    if(select("Sim:Não") == 2){mes "Volte quando quiser."; close; end;}
                    if(countitem(.@id_zcr) < .@zicroq1[4]){mes "Você não tem Zicrônias suficientes"; close; end;} 
                    Divide @ Id_zcr ,. @ Zicroq1 [4].;
                    getitem @ zicroid [4], @ zicroq2 [4]..; 
                    mes "Aqui esta."; perto; fim;            
                    }
                    
                

    case 3:
    mes "[^FF0000Evento Minerador^000000]";
    mes "Você vai ser teleportado para o mapa do evento.Você receberá capacete segurança e Picareta, para seguir enfrente da sua jornada de minerador.Ao equipar os dois itens você já vai estar habito para começar a escavação,você vai se transformar em esqueleto operário ao equipar não se assuste.";
    next;
    mes "Esses equipes são temporários.Os itens vai ficar em seu inventario por 25minutos.";
    next;
    mes "Há dois tipos de minérios Quartzo Azul e Zircônia. Você poderá trocar esses minérios por Prêmios.";
    next;
    mes "É possível pegar 10 minérios de cada rocha de evento.Sendo 40%Chance Quartzo Azul,20%Chance Zircônia  e 40%Chance de não conseguir nada.";
    next;
    mes "Importante: Não desequipe os itens chapéu Segurança e Picareta dentro do evento ou será teleportado para fora,e necessário ter espaço livre no seu inventário para receber os itens.";
    close;
    end;
    break:
}
}
bossnia_04,209,29,5    script    Evento Minerador#ncuda2    -1,{
    
OnClock1315:
OnClock1900:
OnClock0100:
//OnClock1900:

set $ncuda,1;
initnpctimer;
Announce "A Mineração está aberta, você tem 5 min. para entrar na mina.",0;end;
    OnTimer60000:
    Announce "A Mina fechará em 4 min.",8; end;
        OnTimer120000:
        Announce "A Mina fechará em 3 min.",8; end;
            OnTimer180000:
            Announce "A Mina fechará em 2 min.",8; end;
                OnTimer240000:
                Announce "A Mina fechará em 1 min.",8; end;
                    OnTimer300000:
                        set $ncuda,0;
                        Announce "Mina Fechada, Boa sorte aos Mineiros !",0;
                        killmonsterall "bossnia_04";
                        monstro "bossnia_04", 0,0, "Rocha COM Minérios", 1907.400; fim; 
                                OnTimer1200000: 
                                anunciar "Mineração Encerrada", 0; 
                                mapwarp "bossnia_04", "prontera", 155.182; 
                                stopnpctimer; 
                            
                fim;

OnInit: 
set $ ncuda, 0; 
fim;        
}

bossnia_04,208,29,5 roteiro Evento Minerador # ncuda3 -1, { 
OnNPCKillEvent: 
    setarray @ mobs, de 1907; 
    setarray @ itm_qnt, 1010,1,985,1; 
    set @ chance1, 4000; 
    set @ chance2, 2000; 
        para (conjunto @ c, 0; @c <getarraysize (@mobs); grupo @ C, @ c + 1) 
        if (killedrid == @mobs [@c]) { 
        conjunto @rand, margem (0,10000); 
        se (@rand <= @ chance2) {getitem @itm_qnt [2], @ itm_qnt [3];} 
        if (@rand <= @ chance1) {getitem @itm_qnt [0], @ itm_qnt [1];} 
        set @ margem, margem (0,10); 
        se (@rand <= 2) {fim;} 
    } 
perto; 
} 
Roteiro função F_Eventomin {

if(compare(strcharinfo(3),"bossnia_04")){
mes "Por favor, coloque-o devolta";
mes "- ^0000FFVou te dar 5 seg.^000000";
close2;
sleep2 6000;
if(getequipid(EQI_HEAD_TOP) == 5009 && getequipid(EQI_HAND_R) == 60002){mes "Muito bem..."; close; end;}
dispbottom "Não desequipe seu equipamento de mineração outra vez !";
mes "Você Foi Avisado !";
mes "Agora saia daqui !";
atcommand "@undisguise";
warp "prontera",155,182;
close; end;

} 
Final; 
}

// Mapflags 
bossnia_04 mapflag nosave 
bossnia_04 mapflag nomemo 
bossnia_04 mapflag nopenalty 
bossnia_04 mapflag nobranch 
bossnia_04 mapflag nowarp 
bossnia_04 mapflag nowarpto 
bossnia_04 mapflag noteleport 
bossnia_04 mapflag noicewall 
bossnia_04 mapflag noreturn 
bossnia_04 mapflag noskill

// Para instalar
// ===============
// db/item_db2.txt
// 20700,Picareta_do_Evento,Picareta_do_Evento,4,0,,10,20,,1,0,0xFFFFFFFF,7,2,2,1,1,0,1,{},{},{ callfunc "F_Eventomin"; }
// 20701,Elmo_do_Evento,Elmo_do_Evento,5,0,,10,,0,,0,0xFFFFFFFF,7,2,256,,1,0,116,{},{},{ callfunc "F_Eventomin"; }
// 20702,Zicrônia,Zicrônia,3,20,,50,,,,,,,,,,,,,{},{},{}
// 20703,Quartzo_Azul,Quartzo Azul,3,20,,50,,,,,,,,,,,,,{},{},{}
// ================
// db/item_avail.txt
// 20700,7318
// 20701,5031
// 20702,7575
// 20703,7576
// ================
// db/mob_db.txt
// 20015,S_EMPEL_1,Rocha,Rocha,1,10,10,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,20,0x40,300,1288,288,384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
// ================
// db/mob_avail.txt
// 20015,1907
// ===============

 

Edited April 9, 2019 by Emistry

[mirabell]

i dont think you need both close and end. Try removing the end; every time you have already have a close; 

mes "Aqui está."; close; end;