prontera,156,160,4 script Presença 82,{
set .@n$, "[Presença]";
set @TempoHora, 3600;
mes .@n$;
mes "Olá, "+strcharinfo(0)+"!";
mes "O que você gostaria de fazer ?";
next;
switch(select("Marcar Presença:Ver Meus Pontos:Trocar Meus Pontos:Sair")){

case 1:
if(#presenca != 1){
set #TimeOn, gettimetick(2) + @TempoHora;
set #presenca,1;
mes .@n$;
mes "Seu tempo foi marcado !";
close;
}
if(#TimeOn >= gettimetick(2)){
mes .@n$;
mes "Você ainda não pode pegar os seu Ponto de Presença.";
mes "Espere ^FF0000"+((#TimeOn-gettimetick(2))/60)+"^000000 minutos.";
close;
}
mes .@n$;
mes "Receba agora os seu ponto de presença.";
set #pontos,#pontos+1;
set #presenca,0;
next;
mes .@n$;
mes "Ponto de presença Entrege.";
close;

case 2:
mes .@n$;
mes "Você tem: ^FF0000"+#pontos+"^000000 Pontos de Presença!";
close;

case 3:
mes .@n$;
mes "Você tem: ^FF0000"+#pontos+"^000000 Pontos de Presença!";
mes "Deseja trocar 4 Pontos por Uma Moeda Vip?";
if(select("Sim:Não") == 2) close;
next;
mes .@n$;
if(#pontos < 1){
mes "Você não tem Ponto de Presença.";
close;
}
set #pontos,#pontos-1;
getitem 674,1;
for (set @i,0; @i < getarraysize(.premios); set @i,@i+1) getitem .premios[@i],.quantds[@i];
mes "Ponto trocado com sucesso & você acaba de receber itens!.";
close;

case 4:
mes .@n$;
mes "Volte quando quiser marcar seu tempo!";
close;
}
OnWhisperGlobal:
if(#presenca == 0){
dispbottom "Você ainda não marcou presença !";
end;
}
dispbottom "Faltam apenas "+((#TimeOn-gettimetick(2))/60)+" minutos.";
end;
OnPCLogoutEvent:
if(#presenca == 1){
if(checkvending(strcharinfo(0))){
set #presenca,0;
end;
}
set #TimeOff,#TimeOn - gettimetick(2);
end;
}
OnPCLoginEvent:
if(#presenca == 1){
set #TimeOn, gettimetick(2) + #TimeOff;
end;

OnInit:
/* Coloque na ordem [ID (1) - Quantidade (1), e assim por diante] */
setarray .premios[0],0,0,0,0,0,0,0,0,0;
setarray .quantds[0],0,0,0,0,0,0,0,0,0;
end;
}
}