viewing paste Unknown #38401 | Text

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 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Npc criado por Ferraz
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Nome do Npc Dias vip
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Versão atual 1.5
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Npc criado em 15/11/2013
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Compatível com A porra toda
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// 1.5 Adicionado aluguel de itens por Wenden
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
-       script  Welcome -1,{
 
 
OnPCLoginEvent:
setarray .premio[0],5286,5068,5305; // Ids dos itens que serão entregues
set .tmp,7; // Tempo que os itens ficarão com o jogador
set .n$, "[^008000Recepcionista xRO^000000]";
 
        if(getgroupid() >= 20) end;
        if(#vipfree == 0) {
        query_sql "UPDATE `login` SET `group_id`='1',`diasvip`='30' WHERE `account_id` = '"+ getcharid(3) +"'";    
        mes .n$;
        mes "Olá ^FF0000"+strcharinfo(0)+"^000000,";
        mes "seja bem vindo ao";
        mes "xRO Ragnarök Online!";
    mes "De início você acaba de receber";
        mes "30 dias de VIP com direito a";
        mes "escolher uma classe no Level/Job máximo 750/200!";
        next;
        mes .n$;
        mes "Também lhe darei alguns itens";
        mes "para que possa seguir sua jornada no xRO, boa sorte!";
        next;
        mes .n$;
        mes "Escolha uma classe.";
        mes " ";
        mes "- ^FF0000Não se esqueça de relogar para ativar seu vip^000000.";
        next;
                switch(select("Lorde","Sum"+(Sex?"o":"a")+"-"+(Sex?"Sacerdote":"Sacerdotiza")+"","Arquimag"+(Sex?"o":"a")+"","Mestr"+(Sex?"e":"a")+"-Ferreir"+(Sex?"o":"a")+"","Atirado"+(Sex?"r":"ra")+" de Elite","Algoz","Paladin"+(Sex?"o":"a")+"","Mestr"+(Sex?"e":"a")+"","Professo"+(Sex?"r":"ra")+"","Desordeir"+(Sex?"o":"a")+"",
                                          "Criado"+(Sex?"r":"ra")+"",""+(Sex?"Menestrel":"Cigana")+"","Ninja","Justicei"+(Sex?"ro":"ra")+"","Espiritualista","Mestr"+(Sex?"e":"a")+" Taekwon")) { next;
               
                        case 1:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Lorde";
                                jobchange 4008; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 2:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Sumo-"+(Sex?"Sacerdote":"Sacerdotiza")+"";
                                jobchange 4009; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 3:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Arquimag"+(Sex?"o":"a")+"";
                                jobchange 4010; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 4:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Mestr"+(Sex?"e":"a")+"-Ferreir"+(Sex?"o":"a")+"";
                                jobchange 4011; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 5:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Atirado"+(Sex?"r":"a")+" de Elite";
                                jobchange 4012; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 6:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Algoz";
                                jobchange 4013; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 7:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Paladin"+(Sex?"o":"a")+"";
                                jobchange 4015; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 8:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Mestre";
                                jobchange 4016; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 9:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Professo"+(Sex?"r":"ra")+"";
                                jobchange 4017; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 10:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+"Desordeir"+(Sex?"o":"a")+"";
                                jobchange 4018; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 11:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Criado"+(Sex?"r":"ra")+"";
                                jobchange 4019; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 12:
                                if(sex == 0) {
                                mes .n$;
                                mes "Você agora é uma Cigana";
                                jobchange 4020; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                                }
                                mes .n$;
                                mes "Você agora é um Menestrel";
                                jobchange 4021; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close; 
                        case 13:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Ninja";
                                jobchange 25; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 14:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Justiceir"+(Sex?"o":"a")+"";
                                jobchange 24; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 15:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Espiritualista";
                                jobchange 4049; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                        case 16:
                                mes .n$;
                                mes "Você agora é u"+(Sex?"m":"ma")+" Mestre Taekwon";
                                jobchange 4047; set BaseLevel, 750;set JobLevel, 200;
                                callsub receberitem;
                                close;
                               
                                receberitem:
                                set @t,86400*.tmp;
                                for (set @i,0; @i < getarraysize(.premio); set @i,@i+1)
                                rentitem .premio[@i],@t;
                                set #vipfree,1;
                                return;
        }    
}
end;
 
OnClock0000:
        query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `group_id`>='1'";
        query_sql "UPDATE `login` SET `group_id`='0' WHERE `diasvip`<='0' AND `group_id`='1'";
        end;
}
Viewed 683 times, submitted by unknown.