Advertisement
Guest User

Untitled

a guest
Nov 1st, 2017
169
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.39 KB | None | 0 0
  1. prontera,164,147,5 script Bonus Pumpkin 1722,{
  2. if(getgroupid() >= 99){
  3. mes "[Mr. Pumpkin]";
  4. mes "Hello, "+strcharinfo(0)+".";
  5. mes "There are total of "+$@TotalCredits+" Credits that player spent on this npc.";
  6. next;
  7. }
  8. mes "[Mr. Pumpkin]";
  9. mes "Hello Sir! Are you out";
  10. mes "shopping in the city?!";
  11. next;
  12. mes "[Mr. Pumpkin]";
  13. mes "I'm Pumpkin! I'll exchange cool";
  14. mes "random prizes for every";
  15. mes "^ff000030 Credit^000000.";
  16. next;
  17. mes "[Mr. Pumpkin]";
  18. mes "Item can get here is random:";
  19. mes "^ff0000Random Consumables^000000";
  20. mes "^ff0000Random Items^000000";
  21. next;
  22. mes "[Mr. Pumpkin]";
  23. mes "You can still get random item";
  24. mes "if you failed to get the grand";
  25. mes "prize and special prizes.";
  26. if (countitem(20234) < 30)
  27. close;
  28. next;
  29. if(select("Deal me in!:No way...")==2)
  30. close;
  31. mes "[Mr. Pumpkin]";
  32. mes "Here we go...";
  33. delitem 20234,30;
  34. set $@TotalCredits,$@TotalCredits+30;
  35. progressbar "",5;
  36. .@item = F_Rand( 20234,671,20718,7776,7491,20719,20720,20721,20722,20723,7339,20725,20726,13973,12210,14159,14160,14161,14162,14163,14164,4236,4425,4372,4147,4168,4386,4142,4134,4137,4123,4330,4324,4047,4263,4318,4419,4376,4276,4146,4132,4131,4143,4144,4121,4005,4342,4305,4374,4441,4399,20619,7076,7077,7078,7079,7080,7081,7082,7083,7084,708,7087,7088,7089,7090,7091,7092,2744,2440,2387 );
  37. getitem .@item, 1;
  38. specialeffect2 248;
  39. close;
  40. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement