Jump to content
  • 0
Sign in to follow this  
Pandaaa

Token Quest [Scrip Debug??]

Question

After editing the 25,000z for being a treasure hunter i changed it into 100m in the script and in the THQ_TTSHOP script i removed some items there and added some.. now i got the problem when opening the Token Shop it says in the server 

 

[Debug]: script debug : 2000003 110010970 : thqs_menu_buy: Missing entries in data!

 

also i tried putting back the original script it still reads the script items i added in the token shops and still cant open some shop menu... T_T

 

 

THQS_TTshop.txt

//===== Hercules Script ======================================
//= Treasure Hunter Quests
//===== By: ==================================================
//= Fredzilla
//===== Current Version: =====================================
//= 1.2a
//===== Description: =========================================
//= Start for Treasure hunter quests
//===== Additional Comments: =================================
//= Event_THQS - Used to check if you have already registered
//= #Treasure_Token - used to keep track of tokens
//= 1.0 - Straight conversion of Aegis NPC file
//= 1.1 - balanced some prices, fixed 1 missing label
//=       removed Executioner&Mysteltain swords [Lupus]
//= 1.2 - Optmized and fixed small error [Panikon]
//= 1.2a - Fixed zeny formula [Panikon]
//============================================================

prt_in,159,172,0	warp	thqwrp	3,3,yuno_in01,123,155

// Main configuration object
-	script	THQS#Configuration	FAKE_NPC,{
OnInit:
	// Axes
	setarray $THQS_menu_weapons_1[0], Sabbath, Slaughter, Tomahawk, Great_Axe, Guillotine;
	setarray $THQS_menu_price_1[0], 160, 160, 180, 200, 200;
	// One Handed Swords
	setarray $THQS_menu_weapons_2[0], Edge, Solar_Sword, Scissores_Sword, Nagan, Immaterial_Sword, Excalibur, Byeorrun_Gum, Tale_Fing_;
	setarray $THQS_menu_price_2[0], 130, 150, 170, 180, 200, 200, 240, 320;
	// Two Handed Swords
	setarray $THQS_menu_weapons_3[0],Dragon_Slayer, Schweizersabel, Katzbalger, Muramasa, Masamune;
	setarray $THQS_menu_price_3[0], 140,200,300,300,400;
	// Books
	setarray $THQS_menu_weapons_4[0],Book_Of_Blazing_Sun, Book_Of_Billows, Book_Of_Gust_Of_Wind, Book_Of_Mother_Earth, Book_Of_The_Apocalypse, Bible, Tablet;
	setarray $THQS_menu_price_4[0], 80, 80, 80, 80, 80, 90, 120;
	// Bows
	setarray $THQS_menu_weapons_5[0], Bow_Of_Rudra, Bow_Of_Roguemaster;
	setarray $THQS_menu_price_5[0], 150, 150;
	// Katars
	setarray $THQS_menu_weapons_6[0], Katar_Of_Cold_Icicle,Katar_Of_Thornbush,Katar_Of_Raging_Blaze,Katar_Of_Piercing_Wind,Ghoul_Leg,Infiltrator;
	setarray $THQS_menu_price_6[0],70,70,70,70,125,150;
	// Knuckles
	setarray $THQS_menu_weapons_7[0],Kaiser_Knuckle,Berserk;
	setarray $THQS_menu_price_7[0],75,75;
	// Maces
	setarray $THQS_menu_weapons_8[0],Spike,Slash,Grand_Cross,Quadrille,Mjolnir;
	setarray $THQS_menu_price_8[0],65,90,100,110,1000;
	// Whips
	setarray $THQS_menu_weapons_9[0],Rapture_Rose,Chemeti;
	setarray $THQS_menu_price_9[0],50,65;
	// Wands
	setarray $THQS_menu_weapons_10[0],Mighty_Staff,Wizardy_Staff,Bone_Wand,Staff_Of_Soul;
	setarray $THQS_menu_price_10[0],90,150,110,120;
	// Cards
	setarray $THQS_menu_spec_11[0],Symbol_Of_Sun, Silver_Fancy, Rough_Billows, Slilince_Wave, Anger_Of_Valkurye, Air_Stream,Indication_Of_Tempest,Feather_Of_Angel,Crystal_Of_Snow,Cold_Moonlight,Mystery_Wheel,Golden_Bug_Card,Ghostring_Card,Deviling_Card,Antique_Pipe;
	setarray $THQS_menu_price_11[0],300,300,300,300,300,300,300,300,300,300,300,350,350,350,600;
	end;
}

// Trades tokens
// getarg(0) - number of tokens to be traded
function	script	thqs_trade_token	{
	@type = getarg(0);
	if( @type == 4 )
		close;

	// 10^0, 10^1, 10^2
	@type -= 1;
	@price = pow(10, @type);

	// 10^3, 10^4, 10^5
	@type += 3; // So we can use pow later to determine the qt of Zeny
	@prize = pow(10, @type);

	if( #Treasure_Token < @price ) {
		mes "You don't have enough tokens!";
		close;
	}

	if( Zeny == MAX_ZENY ) {
		mes "You can't add more zeny to your character";
		close;
	}

	Zeny += @prize;
	#Treasure_Token -= @price;
	close;
}

// Creates a buying menu
// getarg(0) - .@mw$ -> ID
// getarg(1) - .@mp$ -> PRICE
function	script	thqs_menu_buy	{
	if( getargcount() != 2 ) {
		debugmes "thqs_menu_buy: Wrong number of arguments!!";
		close;
	}

	.@mw$ = getarg(0);
	.@mp$ = getarg(1);

	if( getarraysize( getd(.@mw$) ) != getarraysize( getd(.@mp$) ) ) {
		debugmes "thqs_menu_buy: Missing entries in data!";
		close;
	}

	// Dynamic menu
	// Uses a dynamic string and then applies it to a *select
	.@select_menu$ = "";
	for( .@i = 0; .@i < getarraysize( getd(.@mw$) ); .@i++ ) {
		.@price = getd(.@mp$+"["+.@i+"]");

		if( .@select_menu$ != "")
			.@select_menu$ = .@select_menu$+":"+getitemname( getd(.@mw$+"["+.@i+"]") )+" - "+.@price+"T";
		else
			.@select_menu$ = getitemname( getd(.@mw$+"["+.@i+"]") )+" - "+.@price+"T";
	}
	.@select_menu$ = .@select_menu$ + ":Nevermind";
	select(.@select_menu$);

	if( @menu == (.@i+1) )
		close;

	@index = @menu - 1; // Arrays are 0 indexed while our menu is not
	@item_id = getd(.@mw$+"["+@index+"]");
	@price = getd(.@mp$+"["+@index+"]");
	if( #Treasure_Token < @price ) {
		mes "You don't have enough tokens!";
		close;
	}
	#Treasure_Token -= @price;
	logmes "Treasure Token: Bought a "+getitemname(@item_id);
	getitem @item_id,1;
	close;
}

// Creates the first weapon menu
// getarg(0) - @menu
function	script	ths_menu_weapons	{
	@first_option = getarg(0);
	if( @first_option == 11 )
		close;
	mes "[Ash]";
	mes "This is what we have to offer."+@first_option;
	next;
	// Array names so they can be used by thqs_menu_buy
	.@mw$ = "$THQS_menu_weapons_"+@first_option;
	.@mp$ = "$THQS_menu_price_"+@first_option;

	thqs_menu_buy(.@mw$,.@mp$);
}

// Main script
prt_in,164,174,1	script	Treasure Hunter's Shop	1_M_YOUNGKNIGHT,{
	mes "[Ash]";
	mes "Ahh, "+strcharinfo(PC_NAME)+"! Welcome to the Offical Treasure Hunter's Guild Shop.";
	mes "You currently have ^FF0000"+#Treasure_Token+"^000000 treasure tokens!!!";
	next;
	switch( select("How does this place work?","What do you have in stock?","Nevermind") ) {
		case 1:
			mes "[Ash]";
			mes "Well you see here you can exchange your treasure hunter tokens for zeny or rare weapons forged by our blacksmiths.";
			mes " ";
			mes "Everything has its own price value and the only way you can get the tokens is by completing quests assigned to you,the system normally works like this.";
			mes " ";
			mes "The harder the mission the more Tokens you will earn. All red quests are worth 4-8 Tokens, and the rest are worth 1-5.";
			mes " ";
			mes "Hope that solves your problem and questions.";
			close;
		case 2:
			break;
		case 3:
			close;
	}

	mes "[Ash]";
	mes "Ok here is our Big list of goods.";
	mes " ";
	mes "(Note T stands for a Treasure Token.)";
	next;
	mes "[Ash]";
	mes "This is what we have to offer.";
	next;
	switch( select("Trade for zeny", "Trade for Weapons", "Trade for Special Items", "Nevermind") ) {
		case 1:
			select("5000000z - 1T","50000000z - 10T","600000000z - 100T","Nevermind");
			thqs_trade_token(@menu);
		case 2:
			mes "[Ash]";
			mes "This is what we have to offer.";
			next;
			select("Axe's","1 Handed Swords","2 Handed Swords","Book's","Bow's","Katar's","Knuckle's","Mace's","Whips","Wands","Nevermind");
			ths_menu_weapons(@menu);
		case 3:
			mes "[Ash]";
			mes "This is what we have to offer.";
			next;
			thqs_menu_buy("$THQS_menu_spec","$THQS_menu_price_11");
		case 4:
			close;
	}
	end;
}

THQS_GuildNPC

//===== Hercules Script ======================================
//= Treasure Hunter Quests
//===== By: ==================================================
//= Fredzilla
//===== Current Version: =====================================
//= 1.0
//===== Description: =========================================
//= Start for Treasure hunter quests
//===== Additional Comments: =================================
//= Event_THQS - Used to check if you have already registered
//= #Treasure_Token - used to keep track of tokens
//============================================================

yuno_in01,124,164,6	script	Guild Leader	1_M_PRON_KING,{
	mes "[Keegan]";
	mes "What brings you here? Have something to say?";
	next;
	switch (select("I want to be a Treasure Hunter", "Take a New Quest.", "Take me to the Official Shop.", "Nevermind.",N_NVM)) {
	case 1:
		if (Event_THQS==1)
			goto N_AlreadyReg;
		mes "[Keegan]";
		mes "Well "+strcharinfo(PC_NAME)+" if you want to be a Treasure Hunter first you must.";
		mes " ";
		mes "^FF00001.^000000 You well be changed ^FF0000100,000,000z^000000 for basic training and your proof of being a member.";
		mes " ";
		mes "Umm... Well that is all you need to do. Hahaha.";
		next;
		if (select("Pay ^FF0000100,000,000z^000000.", "Thats way to high!!") != 1) {
			mes "[Keegan]";
			mes "Well if you can't afford a small ^FF0000100,000,000z^000000 you shouldent be a Treasure Hunter yet.";
			close;
		}
		if (Zeny < 100000000)
			goto N_NoZeny;
		Zeny -= 100000000;
		//getitem 7950, 1;
		//getitem 7951, 1;
		Event_THQS = 1;
		mes "[Keegan]";
		mes "Congratulations!";
		emotion(e_grat);
		next;
		mes "[Keegan]";
		mes "Welcome to the Guild of Treasure Hunters.";
		mes "You may now take a Treasure Hunting Quest as you see fit.";
		close;
	case 2:
		if (Event_THQS!=1)
			goto A_NeedReg;
		mes "[Keegan]";
		mes "Well "+strcharinfo(PC_NAME)+" if you wish to take a quest go talk to the fellow Treasure Hunter in the other room there.";
		close;
	case 3:
		if (Event_THQS!=1)
			goto N_NeedMem;
		mes "[Keegan]";
		mes "Yes "+strcharinfo(PC_NAME)+" I will take you to our shop right away!";
		next;
		warp "prt_in",166,171;
		close;
	case 4:
		mes "[Keegan]";
		mes "Alright come back when you have the free time to spare.";
		close;
	}
N_NoZeny:
	mes "[Keegan]";
	mes "Hmmm you don't seem to have ^FF0000100,000,000z^000000 "+strcharinfo(PC_NAME)+". Please come back when you do.";
	close;
N_AlreadyReg:
	mes "[Keegan]";
	mes "Ha ha ha...you are already a member.";
	close;
A_NeedReg:
	mes "[Keegan]";
	mes "Sorry you must be a member of the Treasure Hunter Guild if you wish to take a quest.";
	mes " ";
	mes "Also now that you are a member feel free to use our shops anytime you wish.They are all located on this floor.";
	mes " ";
	mes "We also have another shop for members only,in which we use little metal diamonds called Treasure Hunter Tokens to exchange for rare goods.";
	mes " ";
	mes "You will even have access to our exclusive personal Dungeon.";
	close;
N_NeedMem:
	mes "[Keegan]";
	mes "Im sorry only members may visit our private shop.";
	close;
}

Edited by Pandaaa

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.