viewing paste Npc Cota | 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
prontera,150,155,5  script  Caixa   50,{
 
set @npc$, "[Caixa "+$nome$+"]";
 
if(getgroupid() == 99) goto configurar;
 
mes @npc$;
mes "Olá "+strcharinfo(0)+", Gostaria de saber quanto temos em caixa este mês?";
next;
if(select("Sim:Não") == 2){
mes @npc$;
mes "Tudo Bem! Volte quando quiser!";
close;
}
mes @npc$;
mes "Deixe-me ver...";
query_sql "SELECT `cota` FROM `caixa`", @cota$;
mes "Ok, nós temos R$"+@cota$+" em caixa!";
close;
 
 
 
configurar:
if($configurado == 1){
mes @npc$;
mes "Eu já estou configurado! Gostaria de resetar as configurações?";
next;
if(select("Sim:Não")== 2){
mes @npc$;
mes "Tudo Bem!";
close;
}else{ set $configurado, 1;
callsub configurar2;
}
}else goto configurar2;
 
configurar2:
mes @npc$;
mes "Olá Sr. [ADM], gostaria me configurar? xD";
next;
if(select("Sim:Não")== 2){
mes @npc$;
mes "Ok, mas lembre-se de que precisa me configurar para eu poder funcionar corretamente!";
close;
}
 
mes @npc$;
mes "Digite o Nome do servidor:";
next;
input $nome$;
query_sql "UPDATE `caixa` SET `server_name`='"+$nome$+"'";
mes @npc$;
mes "Pronto, estou configurado agora!";
set $configurado, 1;
close;
}
Viewed 1281 times, submitted by OverCrash.