kafras_mosk.txt 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153
  1. //===== eAthena Script =======================================
  2. //= Moscovia Kafras
  3. //===== By: ==================================================
  4. //= Kisuka
  5. //===== Current Version: =====================================
  6. //= 1.0
  7. //===== Compatible With: =====================================
  8. //= eAthena SVN
  9. //===== Description: =========================================
  10. //= Kafras for the town of Moscovia.
  11. //===== Additional Comments: =================================
  12. //= 1.0 First Version. [Kisuka]
  13. //============================================================
  14. moscovia,223,191,4 script Kafra Staff#mosk 114,{
  15. cutin "kafra_04",2;
  16. mes "[Kafra Staff]";
  17. mes "Welcome to the";
  18. mes "Kafra Corporation.";
  19. mes "The Kafra services";
  20. mes "are always on your side.";
  21. mes "How may I assist you?";
  22. next;
  23. switch(select("Save:Use Storage:Rent a Pushcart:Check Other Information:Cancel")) {
  24. case 1:
  25. mes "[Kafra Staff]";
  26. mes "Your Respawn Point has";
  27. mes "been saved in the city of";
  28. mes "Moscovia. Thank you for";
  29. mes "using the Kafra Service.";
  30. savepoint "moscovia",221,194;
  31. close2;
  32. cutin "", 255;
  33. end;
  34. case 2:
  35. if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
  36. mes "[Kafra Staff]";
  37. mes "I'm sorry, but you";
  38. mes "need the Novice's";
  39. mes "Basic Skill Level 6 to";
  40. mes "use the Storage Service.";
  41. close2;
  42. cutin "", 255;
  43. end;
  44. }
  45. if(countitem(7059)) delitem 7059,1;
  46. else {
  47. if(Zeny<80){
  48. mes "[Kafra Staff]";
  49. mes "I'm sorry, but you don't";
  50. mes "have enough zeny to use";
  51. mes "the Storage Service. Our";
  52. mes "Storage access fee is 80 zeny.";
  53. close2;
  54. cutin "", 255;
  55. end;
  56. }
  57. set Zeny, Zeny-80;
  58. set RESRVPTS, RESRVPTS + (80/5);
  59. }
  60. mes "[Kafra Staff]";
  61. mes "Here, let me open";
  62. mes "your Storage for you.";
  63. mes "Thank you for using";
  64. mes "the Kafra Service.";
  65. callfunc("F_CheckKafCode"); //check your storage password, if set
  66. close2;
  67. openstorage;
  68. cutin "", 255;
  69. end;
  70. case 3:
  71. if(baseClass != Job_Merchant){
  72. mes "[Kafra Staff]";
  73. mes "I'm sorry, but the";
  74. mes "Pushcart rental service";
  75. mes "is only available to Merchants,";
  76. mes "Blacksmiths, Master Smiths,";
  77. mes "Alchemists and Biochemists.";
  78. close2;
  79. cutin "", 255;
  80. end;
  81. }
  82. else if(checkcart() == 1){
  83. mes "[Kafra Staff]";
  84. mes "You already have";
  85. mes "a Pushcart equipped.";
  86. mes "Unfortunately, we can't";
  87. mes "rent more than one to";
  88. mes "each customer at a time.";
  89. close2;
  90. cutin "", 255;
  91. end;
  92. }
  93. if(countitem(7061) > 0) delitem 7061,1;
  94. else {
  95. mes "[Kafra Staff]";
  96. mes "The Pushcart rental";
  97. mes "fee is 700 zeny. Would";
  98. mes "you like to rent a Pushcart?";
  99. next;
  100. if(select("Rent a Pushcart.:Cancel.") == 1) {
  101. if(Zeny<700){
  102. mes "[Kafra Staff]";
  103. mes "I'm sorry, but you";
  104. mes "don't have enough";
  105. mes "zeny to pay the Pushcart";
  106. mes "rental fee of 700 zeny.";
  107. close2;
  108. cutin "", 255;
  109. end;
  110. }
  111. set Zeny,Zeny-700;
  112. set RESRVPTS, RESRVPTS + 48;
  113. }else{
  114. close2;
  115. cutin "", 255;
  116. end;
  117. }
  118. }
  119. setcart;
  120. close2;
  121. cutin "", 255;
  122. end;
  123. case 4:
  124. if(select("Check Special Reserve Points.:Cancel") == 2) {
  125. cutin "", 255;
  126. close;
  127. }
  128. mes "[Kafra Staff]";
  129. mes strcharinfo(0) + ", you have a total of";
  130. mes RESRVPTS+ " Special Reserve Points.";
  131. next;
  132. mes "[Kafra Staff]";
  133. mes "You can exchange your";
  134. mes "Special Reserve Points for";
  135. mes "rewards at the Kafra Main Office in Al De Baran. Please use our";
  136. mes "convenient services to see the benefits of our rewards program.";
  137. close2;
  138. cutin "", 255;
  139. end;
  140. case 5:
  141. mes "[Kafra Staff]";
  142. mes "We, here at Kafra Corporation,";
  143. mes "are always endeavoring to provide you with the best services. We hope that we meet your adventuring needs and standards of excellence.";
  144. close2;
  145. cutin "", 255;
  146. end;
  147. }
  148. }