| 1 | //===== eAthena Script ======================================= |
|---|
| 2 | //= Morroc 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 destinations, prices [Lupus] |
|---|
| 23 | //= 2.3 Can't save outside city [Evera[ |
|---|
| 24 | //= 2.4 Updated function calls with new arguments. [L0ne_W0lf] |
|---|
| 25 | //= Added unique Kafra Welcome messages. |
|---|
| 26 | //= removed West and East Kafra |
|---|
| 27 | //===================================================================== |
|---|
| 28 | |
|---|
| 29 | |
|---|
| 30 | // South ================================ |
|---|
| 31 | morocc,156,97,4 script Kafra Employee::kaf_morocc 113,{ |
|---|
| 32 | cutin "kafra_05",2; |
|---|
| 33 | callfunc "F_KafSetMoc"; |
|---|
| 34 | mes "[Kafra Employee]"; |
|---|
| 35 | mes "The Kafra Corporation"; |
|---|
| 36 | mes "is always working to provide"; |
|---|
| 37 | mes "you with convenient services."; |
|---|
| 38 | mes "How may I be of assistance?"; |
|---|
| 39 | callfunc "F_Kafra",5,0,0,60,930; |
|---|
| 40 | |
|---|
| 41 | M_Save: |
|---|
| 42 | savepoint "morocc",156,46; |
|---|
| 43 | callfunc "F_KafEnd",0,1,"in the city of Morroc"; |
|---|
| 44 | } |
|---|
| 45 | |
|---|
| 46 | // North ================================= |
|---|
| 47 | morocc,160,258,4 script Kafra::kaf_morocc2 114,{ |
|---|
| 48 | cutin "kafra_04",2; |
|---|
| 49 | callfunc "F_KafSetMoc"; |
|---|
| 50 | mes "[Kafra Employee]"; |
|---|
| 51 | mes "Welcome!"; |
|---|
| 52 | mes "The Kafra Corporation"; |
|---|
| 53 | mes "will always support the"; |
|---|
| 54 | mes "adventurers of Rune-Midgard"; |
|---|
| 55 | mes "with its excellent service. So"; |
|---|
| 56 | mes "what can I do for you today?"; |
|---|
| 57 | callfunc "F_Kafra",5,0,0,60,930; |
|---|
| 58 | |
|---|
| 59 | M_Save: |
|---|
| 60 | savepoint "morocc",157,272; |
|---|
| 61 | callfunc "F_KafEnd",0,1,"in the city of Morroc"; |
|---|
| 62 | } |
|---|
| 63 | |
|---|
| 64 | // Function: Sets variables for Morroc Kafras -------------------------------- |
|---|
| 65 | function script F_KafSetMoc { |
|---|
| 66 | cleararray @wrpC$[0],"",getarraysize(@wrpC$); |
|---|
| 67 | setarray @wrpD$[0], "Prontera", "Payon", "Alberta", "Comodo", "Comodo Pharos Beacon"; |
|---|
| 68 | setarray @wrpP[0], 1200, 1200, 1800, 1800, 1200; |
|---|
| 69 | set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0]; |
|---|
| 70 | set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1]; |
|---|
| 71 | set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2]; |
|---|
| 72 | set @wrpC$[3], @wrpD$[3]+" -> "+@wrpP[3]; |
|---|
| 73 | set @wrpC$[4], @wrpD$[4]+" -> "+@wrpP[4]; |
|---|
| 74 | set @wrpC$[5], "Cancel"; |
|---|
| 75 | setarray @viewpX[0], 156, 163, 28, 292; |
|---|
| 76 | setarray @viewpY[0], 97, 260, 167, 211; |
|---|
| 77 | return; |
|---|
| 78 | } |
|---|
