viewing paste Entregador WOE | Athena

Posted on the | Last edited on
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
prontera,150,155,5  script  Entregador WoE  50,{
 
set @npc$, "[Entregador WoE]";
set @duracao, 604800; //duração do item, em segundos
 
if(gettime(4)==(0) && gettime(3)>=(01)) goto premio; //1ª WoE da semana
else if(gettime(4)==(2) && gettime(3)>=(20)) goto premio; //2ª WoE da semana
else if(gettime(4)==(4) && gettime(3)>=(20)) goto premio; //3ª WoE da semana
else if(gettime(4)==(6) && gettime(3)>=(23)) goto premio2; //configure aqui quandoo npc irá fechar a premiação(só valido para ultimo dia da WoE)
 
script:
if(pegou == 1){
mes @npc$;
mes "Lamento, você já pegou seu prêmio!";
close;
}else{
mes @npc$;
mes "Olá "+strcharinfo(0)+", gostaria de pegar seu prêmio?";
next;
if(select("Sim:Não")== 2){
mes @npc$;
mes "Tudo bem!";
mes "Mas tenho que te levar para Prontera!";
next;
warp "prontera", 150, 150;
}
 
switch(select(""+getitemname(20552)+"",""+getitemname(20553)+"",""+getitemname(20554)+"")){
 
case 1:
rentitem 20552, @duracao;
dispbottom "Você ganhou um "+getitemname(20552)+" por 7 dias!";
callsub pegou1;
end;
 
case 2:
rentitem 20553, @duracao;
dispbottom "Você ganhou um "+getitemname(20553)+" por 7 dias!";
callsub pegou1;
end;
 
case 3:
rentitem 20554, @duracao;
dispbottom "Você ganhou um "+getitemname(20554)+" por 7 dias!";
callsub pegou1;
end;
}
 
pegou1:
mes @npc$;
mes "Ok, aqui está!";
mes "Te levarei á Prontera agora!";
next;
set pegou, 1;
warp "prontera", 155, 186;
end;
}
 
premio:
set pegou, 0;
callsub script;
end;
 
premio2:
set pegou, 1;
mes @npc$;
mes "Estou no meu dia de folga, volte quando estiver acontecendo uma WoE!";
close;
end;
}
Viewed 1228 times, submitted by OverCrash.