kafras_mor.txt 2.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  1. //===== eAthena Script =======================================
  2. //= Morroc Kafras
  3. //===== By: =========================
  4. //= eAthena Dev Team
  5. //===== Current Version: ===================
  6. //= 2.3
  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. //===== Additional Comments: ==========================================
  17. //= v1.1 Now using functions :)
  18. //= v2.1b Minor changes to function calls. Using arguments.
  19. //= This version uses arrays .[kobra_k88]
  20. //= 2.2 New teleport destinations, prices [Lupus]
  21. //= 2.3 Can't save outside city [Evera[
  22. //=====================================================================
  23. // South ================================
  24. morocc.gat,156,97,4 script Kafra::kaf_morocc 115,{
  25. cutin "kafra_03",2;
  26. callfunc "F_KafSetMoc";
  27. callfunc "F_Kafra",0,0,0;
  28. M_Save:
  29. savepoint "morocc.gat",156,46;
  30. callfunc "F_KafEnd",0,1;
  31. }
  32. // North =================================
  33. morocc.gat,162,271,4 script Kafra::kaf_morocc2 114,{
  34. cutin "kafra_04",2;
  35. callfunc "F_KafSetMoc";
  36. callfunc "F_Kafra",0,0,0;
  37. M_Save:
  38. savepoint "morocc.gat",157,272;
  39. callfunc "F_KafEnd",0,1;
  40. }
  41. // West =================================
  42. morocc.gat,28,167,6 script Kafra::kaf_morocc3 116,{
  43. cutin "kafra_02",2;
  44. callfunc "F_KafSetMoc";
  45. callfunc "F_Kafra",0,0,0;
  46. M_Save:
  47. savepoint "morocc.gat",31,164;
  48. callfunc "F_KafEnd",0,1;
  49. }
  50. // East =================================
  51. morocc.gat,292,211,4 script Kafra::kaf_morocc4 112,{
  52. cutin "kafra_06",2;
  53. callfunc "F_KafSetMoc";
  54. callfunc "F_Kafra",0,0,0;
  55. M_Save:
  56. savepoint "morocc.gat",294,207;
  57. callfunc "F_KafEnd",0,1;
  58. }
  59. // Function: Sets variables for Morroc Kafras --------------------------------
  60. function script F_KafSetMoc {
  61. cleararray @wrpC$[0],"",getarraysize(@wrpC$);
  62. setarray @wrpD$[0], "Prontera", "Payon", "Alberta", "Comodo", "Comodo Pharos Lighthouse";
  63. setarray @wrpP[0], 1200, 1200, 1800, 1800, 1200;
  64. set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0];
  65. set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1];
  66. set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2];
  67. set @wrpC$[3], @wrpD$[3]+" -> "+@wrpP[3];
  68. set @wrpC$[4], @wrpD$[4]+" -> "+@wrpP[4];
  69. set @wrpC$[5], "Cancel";
  70. setarray @viewpX[0], 156, 163, 28, 292;
  71. setarray @viewpY[0], 97, 260, 167, 211;
  72. return;
  73. }