| [1] | 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 | |
|---|
| 28 | |
|---|
| 29 | // NorthWest ----------------------------------------------------------------- |
|---|
| 30 | alberta,28,229,0 script Kafra Employee::kaf_alberta 116,{ |
|---|
| 31 | cutin "kafra_02",2; |
|---|
| 32 | callfunc "F_KafSetAlb"; |
|---|
| 33 | mes "[Kafra Employee]"; |
|---|
| 34 | mes "Welcome to the"; |
|---|
| 35 | mes "Kafra Corporation."; |
|---|
| 36 | mes "Kafra's Employees are"; |
|---|
| 37 | mes "always ready to serve you."; |
|---|
| 38 | mes "How can I help you today?"; |
|---|
| 39 | callfunc "F_Kafra",5,0,0,50,850; |
|---|
| 40 | |
|---|
| 41 | M_Save: |
|---|
| 42 | savepoint "alberta",31,231; |
|---|
| 43 | callfunc "F_KafEnd",0,1,"in the city of Alberta"; |
|---|
| 44 | } |
|---|
| 45 | |
|---|
| 46 | // South --------------------------------------------------------------------- |
|---|
| 47 | alberta,113,60,6 script Kafra Employee::kaf_alberta2 112,{ |
|---|
| 48 | cutin "kafra_06",2; |
|---|
| 49 | callfunc "F_KafSetAlb"; |
|---|
| 50 | mes "[Kafra Employee]"; |
|---|
| 51 | mes "Welcome to the"; |
|---|
| 52 | mes "Kafra Corporation~"; |
|---|
| 53 | mes "The Kafra Services are"; |
|---|
| 54 | mes "always here to support"; |
|---|
| 55 | mes "you. So how can I be"; |
|---|
| 56 | mes "of service today?"; |
|---|
| 57 | callfunc "F_Kafra",5,0,0,50,850; |
|---|
| 58 | |
|---|
| 59 | M_Save: |
|---|
| 60 | savepoint "alberta",117,57; |
|---|
| 61 | callfunc "F_KafEnd",0,1,"in the city of Alberta"; |
|---|
| 62 | } |
|---|
| 63 | |
|---|
| 64 | |
|---|
| 65 | // Function: Sets variables for Ablerta Kafras ------------------------------- |
|---|
| 66 | function script F_KafSetAlb { |
|---|
| 67 | cleararray @wrpC$[0],"",getarraysize(@wrpC$); |
|---|
| 68 | setarray @wrpP[0], 1200, 1800, 1800; |
|---|
| 69 | setarray @wrpD$[0], "Payon", "Morroc", "Prontera"; |
|---|
| 70 | set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0]; |
|---|
| 71 | set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1]; |
|---|
| 72 | set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2]; |
|---|
| 73 | set @wrpC$[3], "Cancel"; |
|---|
| 74 | setarray @viewpX[0], 28, 113, 0, 0; |
|---|
| 75 | setarray @viewpY[0], 229, 60, 0, 0; |
|---|
| 76 | return; |
|---|
| 77 | } |
|---|
