diff options
Diffstat (limited to 'npc/pre-re/other/arena/arena_point.txt')
| -rw-r--r-- | npc/pre-re/other/arena/arena_point.txt | 181 |
1 files changed, 181 insertions, 0 deletions
diff --git a/npc/pre-re/other/arena/arena_point.txt b/npc/pre-re/other/arena/arena_point.txt new file mode 100644 index 000000000..7a6501cfa --- /dev/null +++ b/npc/pre-re/other/arena/arena_point.txt @@ -0,0 +1,181 @@ +//===== rAthena Script ======================================= +//= Point Exchanger +//===== By: ================================================== +//= L0ne_W0lf +//===== Current Version: ===================================== +//= 1.0 +//===== Compatible With: ===================================== +//= rAthena SVN +//===== Description: ========================================= +//= [Aegis Conversion] +//= Point exchanger: Turbo track points -> Arena Points +//===== Additional Comments: ================================= +//= 1.0 First version. [L0ne_W0lf] +//============================================================ + +prt_are_in,103,11,3 script Arena Point Manager 732,{ + mes "[Arena Point Manager]"; + mes "I hope you're having a good"; + mes "time in the Arena. If you've"; + mes "earned Turbo Track Points at"; + mes "Al De Baran's Turbo Track, I can,"; + mes "convert them into Arena Points."; + next; + switch(select("Point Check:Convert Points:^660000Conversion Info^000000")) { + case 1: + mes "[Arena Point Manager]"; + mes "" + strcharinfo(0) + ","; + mes "you currently have"; + mes "" + arena_point + " Arena Points"; + mes "and " + tt_point + " Turbo Track Points."; + close; + case 2: + mes "[Arena Point Manager]"; + mes "" + strcharinfo(0) + ","; + mes "you currently have"; + mes "" + arena_point + " Arena Points"; + mes "and " + tt_point + " Turbo Track Points."; + next; + mes "[Arena Point Manager]"; + mes "Please choose from among"; + mes "the Track Point to Arena Point"; + mes "conversions. Keep in mind that"; + mes "when you convert more than 10"; + mes "Track Points at one time, you can only convert in ^4D4DFFmultiples of 10^000000."; + next; + switch(select("2 TP -> 1 AP:4 TP -> 2 AP:6 TP -> 3 AP:8 TP -> 4 AP:10 TP and more:Cancel")) { + case 1: + callsub S_ExchangePoints,28999,2,1; + case 2: + callsub S_ExchangePoints,28998,4,2; + case 3: + callsub S_ExchangePoints,28997,6,2; + case 4: + callsub S_ExchangePoints,28996,8,4; + case 5: + mes "[Arena Point Manager]"; + mes "Please enter the number"; + mes "of times you wish to convert"; + mes "10 Turbo Track Points into"; + mes "Arena Points. The largest"; + mes "value you may enter is 20."; + mes "To cancel, enter ''^3355FF0^000000.''"; + next; + input .@input; + if (.@input == 0) { + mes "[Arena Point Manager]"; + mes "You have"; + mes "canceled"; + mes "this service."; + close; + } + else if (.@input > 20) { + mes "[Arena Point Manager]"; + mes "Your request exceeds"; + mes "the maximum limit. Please"; + mes "enter a value no greater than 20."; + close; + } + else { + set .@want_point1,10 * .@input; + set .@want_point,5 * .@input; + set .@my_arena_all,arena_point + .@want_point; + set .@my_turbo_all,tt_point - .@want_point1; + if (.@my_arena_all > 28999) { + mes "[Arena Point Manager]"; + mes "You will exceed the"; + mes "maximum amount of"; + mes "Arena Points if we proceed"; + mes "with this conversion of your"; + mes "Turbo Track Points. You cannot"; + mes "have more than 29,000 Arena Points."; + next; + mes "[Arena Point Manager]"; + mes "Please spend some of"; + mes "your Arena Points before"; + mes "using this service again."; + mes "Thank you for your patronage."; + close; + } + if (.@my_turbo_all < 0) { + mes "[Arena Point Manager]"; + mes "I'm sorry, but"; + mes "you don't have enough"; + mes "Turbo Track Points to"; + mes "perform this Arena"; + mes "Point conversion."; + close; + } + else { + mes "[Arena Point Manager]"; + mes "You have converted"; + mes "10 Turbo Track Points"; + mes "into 5 Arena Points " + .@input + " times."; + mes "A total of " + .@want_point1 + " Turbo Track Points were converted into"; + mes "" + .@want_point +" Arena Points."; + set tt_point,tt_point - .@want_point1; + set arena_point,arena_point+.@want_point; + next; + mes "[Arena Point Manager]"; + mes "" + strcharinfo(0) + ","; + mes "you now have"; + mes "^4682B4" + arena_point + "^000000 Arena Points"; + mes "and ^00688B" + tt_point + "^000000 Turbo Track Points."; + mes "Thank you for your patronage."; + close; + } + } + case 6: + mes "[Arena Point Manager]"; + mes "You have"; + mes "canceled"; + mes "this service."; + close; + } + case 3: + // Again. no dialog for this option. + close; + } + close; + +S_ExchangePoints: + if (arena_point > getarg(0) ) { + mes "[Arena Point Manager]"; + mes "You will exceed the"; + mes "maximum amount of"; + mes "Arena Points if we proceed"; + mes "with this conversion of your"; + mes "Turbo Track Points. You cannot"; + mes "have more than 29,000 Arena Points."; + next; + mes "[Arena Point Manager]"; + mes "Please spend some of"; + mes "your Arena Points before"; + mes "using this service again."; + mes "Thank you for your patronage."; + close; + } + if (tt_point >= getarg(1)) { + mes "[Arena Point Manager]"; + mes "" + strcharinfo(0) + ","; + mes "you've converted "+getarg(1)+" Track"; + mes "Points into "+getarg(2)+" Arena Point."; + set tt_point,tt_point-getarg(1); + set arena_point,arena_point+getarg(2); + next; + mes "[Arena Point Manager]"; + mes "" + strcharinfo(0) + ","; + mes "you now have"; + mes "^4682B4" + arena_point + "^000000 Arena Points"; + mes "and ^00688B" + tt_point + "^000000 Turbo Track Points."; + mes "Thank you for your patronage."; + close; + } + else { + mes "[Arena Point Manager]"; + mes "I'm sorry, but you don't have"; + mes "enough Turbo Track Points."; + mes "You need at least 2 Turbo Track Points for this conversion service."; + close; + } +} |