| 1 | //===== eAthena Script =============== |
|---|
| 2 | //= Comodo 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 | //= 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 | //= Corrected savepoint for in town kafra.[kobra_k88] |
|---|
| 23 | //= 2.2 New teleport destinations, prices [Lupus] |
|---|
| 24 | //= 2.21 from Pharos, both warps are now 1200z [Evera] |
|---|
| 25 | //= 2.3 Updated function calls with new arguments. [L0ne_W0lf] |
|---|
| 26 | //= Added unique Kafra Welcome message2. |
|---|
| 27 | //===================================================================== |
|---|
| 28 | |
|---|
| 29 | |
|---|
| 30 | // In Town ==============================================>\\ |
|---|
| 31 | comodo,195,150,4 script Kafra Employee::kaf_comodo 721,{ |
|---|
| 32 | cutin "kafra_07",2; |
|---|
| 33 | cleararray @wrpC$[0],"",getarraysize(@wrpC$); |
|---|
| 34 | setarray @wrpD$[0], "Morroc", "Comodo Pharos Beacon", "Umbala"; |
|---|
| 35 | setarray @wrpP[0], 1800, 1200, 1800; |
|---|
| 36 | set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0]; |
|---|
| 37 | set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1]; |
|---|
| 38 | set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2]; |
|---|
| 39 | set @wrpC$[3], "Cancel"; |
|---|
| 40 | mes "[Kafra Employee]"; |
|---|
| 41 | mes "Welcome to the"; |
|---|
| 42 | mes "Kafra Corporation."; |
|---|
| 43 | mes "You know that our"; |
|---|
| 44 | mes "service is always"; |
|---|
| 45 | mes "on your side~"; |
|---|
| 46 | callfunc "F_Kafra",5,0,1,80,1000; |
|---|
| 47 | |
|---|
| 48 | M_Save: |
|---|
| 49 | savepoint "comodo",204,143; |
|---|
| 50 | callfunc "F_KafEnd",0,1,"in Pyros Lighthouse"; |
|---|
| 51 | } |
|---|
| 52 | |
|---|
| 53 | // Comodo Pharos Lighthouse (Beacon Island) ===================>\\ |
|---|
| 54 | cmd_fild07,136,134,4 script Kafra Employee::kaf_cmd_fild07 721,{ |
|---|
| 55 | cutin "kafra_07",2; |
|---|
| 56 | cleararray @wrpC$[0],"",getarraysize(@wrpC$); |
|---|
| 57 | setarray @wrpD$[0], "Comodo", "Morroc"; |
|---|
| 58 | setarray @wrpP[0], 1200, 1200; |
|---|
| 59 | set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0]; |
|---|
| 60 | set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1]; |
|---|
| 61 | set @wrpC$[2], "Cancel"; |
|---|
| 62 | mes "[Kafra Employee]"; |
|---|
| 63 | mes "Welcome to the"; |
|---|
| 64 | mes "Kafra Corporation."; |
|---|
| 65 | mes "You know that our"; |
|---|
| 66 | mes "service is always"; |
|---|
| 67 | mes "on your side~"; |
|---|
| 68 | callfunc "F_Kafra",5,0,1,80,1000; |
|---|
| 69 | |
|---|
| 70 | M_Save: |
|---|
| 71 | savepoint "cmd_fild07",127,134; |
|---|
| 72 | callfunc "F_KafEnd",0,1,"in the town of Comodo"; |
|---|
| 73 | } |
|---|
