viewing paste Kyuke | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
////////////////////////////////////////////////////////////////
//------------------------------------------------------------//
// ____  __.             __                                   //
//|    |/ _|___.__.__ __|  | __ ____                          //
//|      < <   |  |  |  \  |/ // __ \                         //
//|    |  \ \___  |  |  /    <\  ___/                         //
//|____|__ \/ ____|____/|__|_ \\___  >                        //
//        \/\/               \/    \/                         //
//                                                            //  
// Por favor não retire os créditos.                          //
//------------------------------------------------------------//
//Versão:1.0                                                  //
//------------------------------------------------------------//
//Data de criação: 18/12/2013                                 //
//------------------------------------------------------------//
//Atualizações:                                               //
// 1 - Criação do NPC.                                        //
//------------------------------------------------------------//
////////////////////////////////////////////////////////////////
//
// - Configuração                                              
set .nome$,"[ ^B22222Removedor de Skill^000000 ]";//Nome do NPC
////////////////////////////////////////////////////////////////
prontera,150,150,4      script  Removedora de Skills    68,{
 
        mes .nome$;
        mes "Olá "+strcharinfo(0)+", vou verificar quantos pontos de habilidade você tem sobrando.";
        next;
        mes .nome$;
        set @skillPoints, skillPointCount();
        mes "Você tem "+@skillPoints+" Pontos de Habilidade sobrando!";
        next;
        mes .nome$;
        mes "Deseja remover "+@skillPoints+" Pontos de Habilidade?";
        next;
        if(select("Sim.:Nao") == 2) close;
        mes .nome$;
        mes "Então eu irei remover estes pontos!";
        next;
        set SkillPoint,0;
        mes "Seus ^FF0000Pontos de Habilidade^000000 foram removidos com sucesso!";
        close;
}
Viewed 360 times, submitted by unknown.