• 0
Sign in to follow this  
Followers 0
iCORE

[HELP] Item Option NPC

Question

Posted (edited)

Hi, how can i make this script work only with accessories and make items as requirements to upgrade

edit: Also how to remove all the choices and make a fix option.

Example: npc will only add VAR_STRAMOUNT in accessory

 

 

//================= Hercules Script =======================================
//=       _   _                     _
//=      | | | |                   | |
//=      | |_| | ___ _ __ ___ _   _| | ___  ___
//=      |  _  |/ _ \ '__/ __| | | | |/ _ \/ __|
//=      | | | |  __/ | | (__| |_| | |  __/\__ \
//=      \_| |_/\___|_|  \___|\__,_|_|\___||___/
//================= License ===============================================
//= This file is part of Hercules.
//= http://herc.ws - http://github.com/HerculesWS/Hercules
//=
//= Copyright (C) 2017  Hercules Dev Team
//= Copyright (C) 2017  Smokexyz
//=
//= 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 <http://www.gnu.org/licenses/>.
//=========================================================================
//= Option Master (Item Options NPC @see db/item_options.conf)
//================= Description ===========================================
//= Select from a list of your equipments, one to enhance with up to 5 options.
//= A list of the first 10 options are provided in this npc.
//================= Current Version =======================================
//= 1.0
//=========================================================================

prontera,153,180,4	script	Option Master	4_DOG01,{
	callsub(StartTalking);
	end;
	
OnInit:
	/**
	 * General Configuration
	 */
	/* Chance of the enhancement process to fail. (0 - 99 in percent) */
	.chance_of_failure = 10;
	/* Delete the item on failure? (true/false) */
	.delete_on_failure = true;
	/* Required amount of zeny for a try. */
	.zeny_requirement = 100;
	/* Minimum amount of the bonus value. 
	 * For negative effects or certain bonuses that require negative values
	 * Maximum possible value is -INT16_MAX)
	 */
	.minimum_bonus_amount = -100; // usually used with delay bonus options, although not provided in the script.
	/* Maximum amount of the bonus value. 
	 * Maximum possible value is INT16_MAX */
	.maximum_bonus_amount = 100;
	/* Disable selection of bonus value (true/false) */
	.enable_random_bonus = false;
	
	/* Item Option Descriptions */
	setarray(.options$[0], "Max HP", "Max SP", "STR", "AGI", "VIT", "INT", "DEX", "LUK");
	/* Item Option Constants */
	setarray(.option_constants[0], VAR_MAXHPAMOUNT, VAR_MAXSPAMOUNT, VAR_STRAMOUNT, VAR_AGIAMOUNT, VAR_VITAMOUNT, VAR_INTAMOUNT, VAR_DEXAMOUNT, VAR_LUKAMOUNT);
	end;
	
StartTalking:
	[email protected]$ = _("[ ^990099Option Master^000000 ]");
	disable_items();
	mes([email protected]$);
	mesf("Hey there %s", strcharinfo(PC_NAME));
	mes("There's a new-found method of adding options to an equipment that I have been working on.");
	next();
	if (.enable_random_bonus) {
		mes([email protected]$);
		mes("Equipment bonuses are added randomly per slot!");
		mes("So if you wind up with a low amount of bonus, don't hesitate to override the slot.");
		next();
	}
	mes([email protected]$);
	mes("Would you like me to add extra stats to your equipment?");
	next();
	if (select("Of course!", "Meh, not right now.") == 2) {
		mes([email protected]$);
		mes("Alright then, catch you later.");
		close();
	}
	// Build the Menu.
	setarray([email protected]$[1], "Head", "Body", "Left Hand", "Right Hand", "Robe", "Shoes", "Accessory 1", "Accessory 2", "Head 2", "Head 3");
	[email protected]$ = "";
	for ([email protected] = 1; [email protected] <= 10; [email protected])
		[email protected]$ += ((getequipisequiped([email protected])) ? getequipname([email protected]) : [email protected]$[[email protected]] + "-[Not equipped]") + ":";
	// Select the part.
	[email protected]_index = select([email protected]$);
	
	// Check if it's worn.
	if (!getequipisequiped([email protected]_index)) {
		mes([email protected]$);
		mes("Brah, your item ain't equipped.");
		close();
	// Check if it allows options
	} else if (!getequipisenableopt([email protected]_index)) {
		mes([email protected]$);
		mes("Brah, this equip can't have options.");
		close();
	// Check if equipment is identified.
	} else if (!getequipisidentify([email protected]_index)) {
		mes([email protected]$);
		mes("Brah, this equip ain't identified.");
		close();
	}
	
	// Present a list of currently infused options.
	do {
		[email protected]$ = "";
		[email protected] = false;
		// Build the menu of current options.
		for ([email protected] = 1; [email protected] <= MAX_ITEM_OPTIONS; [email protected]) {
			// call getequipoption(<equip_index>, <type>, <slot>);
			// if the return is <0, it's a script error.
			// if the return is 0, the slot is empty.
			// if the return is >0, the slot is unavailable.
			[email protected] = getequipoption([email protected]_index, [email protected], IT_OPT_INDEX);
			if ([email protected] > 0)
				[email protected]$ += ([email protected]) + ") " + .options$[[email protected] - 1] + ":";
			else
				[email protected]$ += ([email protected]) + ") ^999999Empty^000000" + ":";
		}
		// Option Slot is the actual option slot 0-MAX_ITEM_OPTIONS (@see mmo.h)
		[email protected]_slot = select([email protected]$);
		
		// Check for used slot and request user action if found.
		if (getequipoption([email protected]_index, [email protected]_slot, IT_OPT_INDEX) > 0) {
			mes([email protected]$);
			mes("This slot is already used up!");
			if (select("^990000Override the slot.^000000", "Choose again.") == 2)
				[email protected] = true;
			next();
		}
	} while ([email protected]); // loop if the slot is not to be overridden
	
	// Present a list of available bonuses.
	mes([email protected]$);
	mes("Which of the following item bonuses would you like to add to this item?");
	next();
	// Build the Options!
	[email protected]$ = "";
	for ([email protected] = 0; [email protected] < getarraysize(.options$); [email protected])
		[email protected]$ += ([email protected] + 1) + ") " + .options$[[email protected]] + ":";
		
	do {
		// Select the options!
		[email protected]_variable = select([email protected]$);
		next();
		mes([email protected]$);
		mesf("You chose ^009900%s^000000!", .options$[[email protected]_variable - 1]);
		mes("Are you sure?");
		next();
	} while (select("Fo Shizzle.", "I'ma re-evaluate, brah.") == 2);
	
	// Select a bonus or randomise.
	if (.enable_random_bonus) {
		[email protected] = rand(.maximum_bonus_amount);
	} else {
		do {
			mes([email protected]$);
			mesf("Please input the bonus amount of ^009900%s^000000 you want to add!", .options$[[email protected]_variable - 1]);
			mesf("(Min: %d, Max: %d)", .minimum_bonus_amount, .maximum_bonus_amount);
			[email protected] = input([email protected], .minimum_bonus_amount, .maximum_bonus_amount);
			next();
		} while ([email protected]);
	}
	
	// If there's a chance of failure, inform the user.
	if (.chance_of_failure) {
		mes([email protected]$);
		mes("Alright so,");
		mes("I'll have you know...");
		mesf("There's a ^990000%d%% chance of failure^000000.", .chance_of_failure);
		mes("Because, well... I didn't go to school.");
		next();
		mes([email protected]$);
		if (.delete_on_failure) {
			mes("If I fail, your item will break and it ^990000will be destroyed^000000!");
		}
		mes("Are you still ready to go forward with this?");
		next();
		if (select("Fo shizzle.", "Hells naw, go back to school.") == 2) {
			mes([email protected]$);
			mes("Geez, you don't have to be so harsh about it.");
			close();
		}
		next();
	}
	
	// If there's a Zeny Requirement, perform the usual.
	if (.zeny_requirement > 0) {
		mes([email protected]$);
		mesf("You also have to pay %dZ.", .zeny_requirement);
		next();
		if (select("Of course!", "No way!") == 2) {
			mes([email protected]$);
			mes("Well, see you around then...");
			close();
		}
		if (Zeny < .zeny_requirement) {
			mes([email protected]$);
			mes("You don't have enough Zeny!");
			close();
		}
		Zeny -= .zeny_requirement;
	}
	
	// Check if there's a chance of failure, set and roll the dice.
	if (.chance_of_failure && rand(100) <= .chance_of_failure) {
		mes([email protected]$);
		mes("^990000I failed!^000000");
		mes("Guess I should go back to school.");
		// Delete the item if flagged.
		if (.delete_on_failure)
			failedrefitem([email protected]_index); // Simulate failed refinement of the item and delete.
	} else {
		// Set the Item Option bonuses in the slot see db/item_options.conf for more info.
		setequipoption([email protected]_index, [email protected]_slot, .option_constants[[email protected]_variable - 1], [email protected]);
		mes([email protected]$);
		mes("^009900Praise Jesus^000000");
		mes("I have added an option to your item.");
		mes("My skills are flawless!");
	}
	next();
	mes([email protected]$);
	mes("See you around!");
	close();
}

 

Edited by iCORE

Share this post


Link to post
Share on other sites

3 answers to this question

  • 0
prontera,153,180,4	script	Option Master	4_DOG01,{
	mes "blah";
//	dispbottom getequipid(EQI_ACC_L) +" "+ getequipid(EQI_ACC_R);
	next;
	if ( getequipid(EQI_ACC_L) == -1 && getequipid(EQI_ACC_R) == -1 ) {
		mes "You don't have Accessory equipped";
		close;
	}
	.@s = select( getequipid(EQI_ACC_L)? getequipname(EQI_ACC_L) : "",  getequipid(EQI_ACC_R)? getequipname(EQI_ACC_R) : "" ) + 6;
//	dispbottom [email protected] +"";
	if ( getequipoption( .@s, 1, IT_OPT_INDEX ) ) {
		mes "this Accessory has already enchanted with Item Options";
		close;
	}
	mes "do you want to add +STR to this Accessory?";
	next;
	if ( select( "Yes", "No" ) == 2 ) close;
	setequipoption .@s, 1, VAR_STRAMOUNT, 1;
	close;
}

 

Share this post


Link to post
Share on other sites
  • 0

thanks again @AnnieRuru , please add (Random Option, Fixed Option, Replace Option) and still fix to only accessories and str only. and can add upto 5 options.

Share this post


Link to post
Share on other sites
  • 0
22 hours ago, iCORE said:

thanks again @AnnieRuru , please add (Random Option, Fixed Option, Replace Option) and still fix to only accessories and str only. and can add upto 5 options.

1. elaborate your question further

2. you post in script support so I assume you know how to fix yourself
if you don't know how to write it yourself, should post in script request

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0