kafras_alb.txt 2.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677
  1. //===== eAthena Script ============
  2. //= Alberta Kafras
  3. //===== By: =========================
  4. //= eAthena Dev Team
  5. //===== Current Version: ===================
  6. //= 2.4
  7. //===== Compatible With: =====================
  8. //= eAthena 1.0
  9. //===== Description: ============================================
  10. //= Description of argument settings for callfunc "F_Kafra".
  11. //= arg(0): When set at 0 the default Kafra message is displayed.
  12. //= When set to 1 the Niflhiem Kafra message is displayed.
  13. //= When set to 2 the Guild Kafra message is displayed.
  14. //= arg(1): Set to 1 to disable teleport menu option. Otherwise set to 0.
  15. //= arg(2): Set to 1 to disable info menu. Otherwise set to 0.
  16. //= arg(3): Cost of Storage service
  17. //= arg(4): Cost of Rent a Pushcart service
  18. //===== Additional Comments: ==========================================
  19. //= v1.1 Now using functions :)
  20. //= v2.1b Minor changes to function calls. Using arguments.
  21. //= This version uses arrays .[kobra_k88]
  22. //= 2.2 New Teleport list and prices [Lupus]
  23. //= 2.3 Can't save outside city anymore [Evera]
  24. //= 2.4 Updated function calls with new arguments. [L0ne_W0lf]
  25. //= Added unique Kafra Welcome message.
  26. //=====================================================================
  27. // NorthWest -----------------------------------------------------------------
  28. alberta,28,229,0 script Kafra Employee::kaf_alberta 116,{
  29. cutin "kafra_02",2;
  30. callfunc "F_KafSetAlb";
  31. mes "[Kafra Employee]";
  32. mes "Welcome to the";
  33. mes "Kafra Corporation.";
  34. mes "Kafra's Employees are";
  35. mes "always ready to serve you.";
  36. mes "How can I help you today?";
  37. callfunc "F_Kafra",5,0,0,50,850;
  38. M_Save:
  39. savepoint "alberta",31,231;
  40. callfunc "F_KafEnd",0,1,"in the city of Alberta";
  41. }
  42. // South ---------------------------------------------------------------------
  43. alberta,113,60,6 script Kafra Employee::kaf_alberta2 112,{
  44. cutin "kafra_06",2;
  45. callfunc "F_KafSetAlb";
  46. mes "[Kafra Employee]";
  47. mes "Welcome to the";
  48. mes "Kafra Corporation~";
  49. mes "The Kafra Services are";
  50. mes "always here to support";
  51. mes "you. So how can I be";
  52. mes "of service today?";
  53. callfunc "F_Kafra",5,0,0,50,850;
  54. M_Save:
  55. savepoint "alberta",117,57;
  56. callfunc "F_KafEnd",0,1,"in the city of Alberta";
  57. }
  58. // Function: Sets variables for Ablerta Kafras -------------------------------
  59. function script F_KafSetAlb {
  60. cleararray @wrpC$[0],"",getarraysize(@wrpC$);
  61. setarray @wrpP[0], 1200, 1800, 1800;
  62. setarray @wrpD$[0], "Payon", "Morroc", "Prontera";
  63. set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0];
  64. set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1];
  65. set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2];
  66. set @wrpC$[3], "Cancel";
  67. setarray @viewpX[0], 28, 113, 0, 0;
  68. setarray @viewpY[0], 229, 60, 0, 0;
  69. return;
  70. }