Guest User

Untitled

a guest
Jul 18th, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.16 KB | None | 0 0
  1. prontera,158,182,3 script Troca de Pontos WoT 97,{
  2.  
  3. //---------------------------------------------------------------------------------------------------------------------------------------------|
  4. set .nomenpc$,"[ ^FF0000"+strnpcinfo(1)+"^000000 ]";
  5. //---------------------------------------------------------------------------------------------------------------------------------------------|
  6. setarray @itens,1000,1001,1002,1003,1004,1005,1006,1007;// Id dos itens que serão entregues.
  7. //---------------------------------------------------------------------------------------------------------------------------------------------|
  8. set @qnt,1; // Quantidade do item entregue.
  9. //---------------------------------------------------------------------------------------------------------------------------------------------|
  10. set @qnt2,100; // Quantidade de pontos que serão necessários para a troca.
  11. //---------------------------------------------------------------------------------------------------------------------------------------------|
  12.  
  13. mes .nomenpc$;
  14. mes "Olá "+strcharinfo(0)+",eu sou o encarregado pela troca de pontos WoT por Itens.";
  15. next;
  16. mes .nomenpc$;
  17. mes "Deseja trocar seus pontos por Itens ?";
  18. if (select ("Sim.","Não") == 2) {
  19. next;
  20. mes .nomenpc$;
  21. mes "Tudo bem, até logo.";
  22. close;
  23. }
  24. next;
  25. mes .nomenpc$;
  26. mes "Escolha o item que deseja trocar:";
  27. for(set @i,0; @i < getarraysize(@itens); set @i, @i+1)
  28. {
  29. set .@menu$, .@menu$ + getitemname(@itens[@i]);
  30. set .@menu$, .@menu$ + ":";
  31. }
  32. set @buy,select(.@menu$)-1;
  33. next;
  34. mes .nomenpc$;
  35. mes "Para receber este item você precisa de:["+@qnt2+"] pontos Wot.";
  36. next;
  37. mes .nomenpc$;
  38. mes "Deseja continuar?";
  39. next;
  40. if(select("Sim","Não")==1) {
  41. if(#pontoswot < @qnt2){
  42. mes .nomenpc$;
  43. mes "Você não possui a quantidade necessária de pontos WoT para adquirir esse item.";
  44. close;
  45. }
  46. set #pontoswot,#pontoswot-@qnt2;
  47. getitem @item[@buy],@qnt[@buy];
  48. mes .nomenpc$;
  49. mes "A troca foi feita com sucesso.";
  50. mes "Até a próxima.";
  51. close;
  52. }
  53. mes .nomenpc$;
  54. mes "Tudo bem, volte quando quiser.";
  55. close;
  56. }
Add Comment
Please, Sign In to add comment