//================= Hercules Script ======================================= //= _ _ _ //= | | | | | | //= | |_| | ___ _ __ ___ _ _| | ___ ___ //= | _ |/ _ \ '__/ __| | | | |/ _ \/ __| //= | | | | __/ | | (__| |_| | | __/\__ \ //= \_| |_/\___|_| \___|\__,_|_|\___||___/ //================= License =============================================== //= This file is part of Hercules. //= http://herc.ws - http://github.com/HerculesWS/Hercules //= //= Copyright (C) 2012-2020 Hercules Dev Team //= Copyright (C) L0ne_W0lf //= //= Hercules is free software: you can redistribute it and/or modify //= it under the terms of the GNU General Public License as published by //= the Free Software Foundation, either version 3 of the License, or //= (at your option) any later version. //= //= This program is distributed in the hope that it will be useful, //= but WITHOUT ANY WARRANTY; without even the implied warranty of //= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //= GNU General Public License for more details. //= //= You should have received a copy of the GNU General Public License //= along with this program. If not, see . //========================================================================= //= Point Exchanger //================= Description =========================================== //= Point exchanger: Turbo track points -> Arena Points //================= Current Version ======================================= //= 1.0 //========================================================================= prt_are_in,103,11,3 script Arena Point Manager 4_M_JOB_HUNTER,{ 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(PC_NAME) + ","; 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(PC_NAME) + ","; 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; } 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; } .@want_point1 = 10 * .@input; .@want_point = 5 * .@input; .@my_arena_all = arena_point + .@want_point; .@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; } 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."; tt_point -= .@want_point1; arena_point += .@want_point; next; mes "[Arena Point Manager]"; mes "" + strcharinfo(PC_NAME) + ","; 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(PC_NAME) + ","; mes "you've converted "+getarg(1)+" Track"; mes "Points into "+getarg(2)+" Arena Point."; tt_point -= getarg(1); arena_point += getarg(2); next; mes "[Arena Point Manager]"; mes "" + strcharinfo(PC_NAME) + ","; 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; } }