[1] | 1 | //===== eAthena Script ======================================= |
---|
| 2 | //= Prontera Kafras |
---|
| 3 | //===== By: ========================= |
---|
| 4 | //= eAthena Dev Team |
---|
| 5 | //===== Current Version: =================== |
---|
| 6 | //= 2.7 |
---|
| 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 North Kafra allows you save your position |
---|
| 23 | //= 2.3 New Teleport list, new prices, 2.3a fixed Alberta Teleport [Lupus] |
---|
| 24 | //= 2.3b One Kafra's been moved to Prontera, thx to Vicious_Pucca [Lupus] |
---|
| 25 | //= 2.4 Updated Kafras locations for the mini-map [Lupus] |
---|
| 26 | //= 2.41 New prices [Evera] |
---|
| 27 | //= 2.5 Can't save outside city [Evera] |
---|
| 28 | //= 2.6 Fixed central Kafra position (146,86 -> 146,98) [L0ne_W0lf] |
---|
| 29 | //= 2.7 Updated function calls with new arguments. [L0ne_W0lf] |
---|
| 30 | //= Added unique Kafra Welcome messages. |
---|
| 31 | //===================================================================== |
---|
| 32 | |
---|
| 33 | |
---|
| 34 | // North ================================== |
---|
| 35 | prontera,152,326,3 script Kafra Employee::kaf_prontera 112,{ |
---|
| 36 | cutin "kafra_06",2; |
---|
| 37 | callfunc "F_KafSetPront"; |
---|
| 38 | mes "[Kafra Employee]"; |
---|
| 39 | mes "Welcome to the"; |
---|
| 40 | mes "Kafra Corporation~"; |
---|
| 41 | mes "The Kafra Services are"; |
---|
| 42 | mes "always here to support"; |
---|
| 43 | mes "you. So how can I be"; |
---|
| 44 | mes "of service today?"; |
---|
| 45 | callfunc "F_Kafra",5,0,0,40,800; |
---|
| 46 | |
---|
| 47 | M_Save: |
---|
| 48 | savepoint "prontera",157,327; |
---|
| 49 | callfunc "F_KafEnd",0,1,"in the city of Prontera"; |
---|
| 50 | } |
---|
| 51 | |
---|
| 52 | // SOUTH ====================================== |
---|
| 53 | prontera,151,29,0 script Kafra Employee::kaf_prontera2 115,{ |
---|
| 54 | cutin "kafra_03",2; |
---|
| 55 | callfunc "F_KafSetPront"; |
---|
| 56 | mes "[Kafra Employee]"; |
---|
| 57 | mes "Welcome~!"; |
---|
| 58 | mes "The Kafra Services"; |
---|
| 59 | mes "are always on your side."; |
---|
| 60 | mes "So how can I help you?"; |
---|
| 61 | callfunc "F_Kafra",5,0,0,40,800; |
---|
| 62 | |
---|
| 63 | M_Save: |
---|
| 64 | savepoint "prontera",150,33; |
---|
| 65 | callfunc "F_KafEnd",0,1,"in the city of Prontera"; |
---|
| 66 | } |
---|
| 67 | |
---|
| 68 | //WEST========================================= |
---|
| 69 | prontera,29,207,6 script Kafra Employee::kaf_prontera3 113,{ |
---|
| 70 | cutin "kafra_05",2; |
---|
| 71 | callfunc "F_KafSetPront"; |
---|
| 72 | mes "[Kafra Employee]"; |
---|
| 73 | mes "The Kafra Corporation"; |
---|
| 74 | mes "is always working to provide"; |
---|
| 75 | mes "you with convenient services."; |
---|
| 76 | mes "How may I be of assistance?"; |
---|
| 77 | callfunc "F_Kafra",5,0,0,40,800; |
---|
| 78 | |
---|
| 79 | M_Save: |
---|
| 80 | savepoint "prontera",33,208; |
---|
| 81 | callfunc "F_KafEnd",0,1,"in the city of Prontera"; |
---|
| 82 | } |
---|
| 83 | |
---|
| 84 | // East =========================================== |
---|
| 85 | prontera,282,200,2 script Kafra Employee::kaf_prontera4 114,{ |
---|
| 86 | cutin "kafra_04",2; |
---|
| 87 | callfunc "F_KafSetPront"; |
---|
| 88 | mes "[Kafra Employee]"; |
---|
| 89 | mes "Welcome!"; |
---|
| 90 | mes "The Kafra Corporation"; |
---|
| 91 | mes "will always support the"; |
---|
| 92 | mes "adventurers of Rune-Midgard"; |
---|
| 93 | mes "with its excellent service. So"; |
---|
| 94 | mes "what can I do for you today?"; |
---|
| 95 | callfunc "F_Kafra",5,0,0,40,800; |
---|
| 96 | |
---|
| 97 | M_Save: |
---|
| 98 | savepoint "prontera",281,203; |
---|
| 99 | callfunc "F_KafEnd",0,1,"in the city of Prontera"; |
---|
| 100 | } |
---|
| 101 | |
---|
| 102 | // Center =========================================== |
---|
| 103 | prontera,146,89,6 script Kafra Employee::kaf_prontera5 117,{ |
---|
| 104 | cutin "kafra_01",2; |
---|
| 105 | callfunc "F_KafSetPront"; |
---|
| 106 | mes "[Kafra Employee]"; |
---|
| 107 | mes "Welcome to the"; |
---|
| 108 | mes "Kafra Corporartion."; |
---|
| 109 | mes "The Kafra services"; |
---|
| 110 | mes "are always on your side."; |
---|
| 111 | mes "How may I assist you?"; |
---|
| 112 | callfunc "F_Kafra",5,0,0,40,800; |
---|
| 113 | |
---|
| 114 | M_Save: |
---|
| 115 | savepoint "prontera",116,73; |
---|
| 116 | callfunc "F_KafEnd",0,1,"in the city of Prontera"; |
---|
| 117 | } |
---|
| 118 | |
---|
| 119 | |
---|
| 120 | // Function: Sets variables for Prontera Kafras ---------------------------- |
---|
| 121 | function script F_KafSetPront { |
---|
| 122 | cleararray @wrpC$[0],"",getarraysize(@wrpC$); |
---|
| 123 | setarray @wrpD$[0], "Izlude", "Geffen", "Payon", "Morroc", "Orc Dungeon", "Alberta"; |
---|
| 124 | setarray @wrpP[0], 600, 1200, 1200, 1200, 1200, 1800; |
---|
| 125 | set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0]; |
---|
| 126 | set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1]; |
---|
| 127 | set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2]; |
---|
| 128 | set @wrpC$[3], @wrpD$[3]+" -> "+@wrpP[3]; |
---|
| 129 | set @wrpC$[4], @wrpD$[4]+" -> "+@wrpP[4]; |
---|
| 130 | set @wrpC$[5], @wrpD$[5]+" -> "+@wrpP[5]; |
---|
| 131 | set @wrpC$[6], "Cancel"; |
---|
| 132 | setarray @viewpX[0], 151, 29, 282, 152; |
---|
| 133 | setarray @viewpY[0], 29, 207, 200, 326; |
---|
| 134 | return; |
---|
| 135 | } |
---|