Jump to content
  • 0
Thyr

Token Quest Shop

Asked by Thyr

Question

Thyr    0

Thyr
Posted (edited)

Hello anyone here can help me edit the Token to Zeny? I don't understand how it is working I want it to make 5m - 1 T,  50m - 10T, and  500m - 100T

Here's the script I use. 

// 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 = (10 ** @type);

	// 10^3, 10^4, 10^5
	@type += 3; // So we can use pow later to determine the qt of Zeny
	@prize = (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;
}

// 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 Cards", "Nevermind") ) {
		case 1:
			select("1000z - 1T","10000z - 10T","100000z - 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_cards","$THQS_menu_price");
		case 4:
			close;
	}
	end;
}

 

Edited by Thyr

Share this post

Link to post
Share on other sites

7 answers to this question

Recommended Posts

  • 0

Rebel    23

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

then change

Zeny += @prize; -- to -- Zeny += @fnlprize;

 

Share this post

Link to post
Share on other sites
  • 0

Thyr    0

Thyr
Posted
On 5/7/2018 at 3:26 PM, Rebel said: 

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

then change

Zeny += @prize; -- to -- Zeny += @fnlprize;

 

How can i determine if it exchange 5m - 1 T,  50m - 10T, and  500m - 100T?

Share this post

Link to post
Share on other sites
  • 0

Rebel    23

Rebel
Posted
4 hours ago, Thyr said:

How can i determine if it exchange 5m - 1 T,  50m - 10T, and  500m - 100T?

TRY IT.

Share this post

Link to post
Share on other sites
  • 0

AnnieRuru    958

AnnieRuru
Posted (edited) 
prontera,158,185,1	script	Debug	1_F_MARIA,{
	input #Treasure_Token, 0, 10000;
	Zeny = 0;
}

prontera,161,185,1	script	Debug 2	1_F_MARIA,{
	select "5m Zeny -> 1 Token", "50m Zeny -> 10 Token", "500m -> 100 Token", "Nevermind";
	dispbottom @menu +" "+ 5000000 * 10 ** (@menu -1) +" "+ 10 ** (@menu -1);
	close;
}
prontera,155,185,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:
		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 with zeny", "Nevermind" ) ) {
		case 1:
			select "5m Zeny -> 1 Token", "50m Zeny -> 10 Token", "500m -> 100 Token", "Nevermind";
			if ( @menu == 4 )
				close;
			if ( #Treasure_Token < 10 ** (@menu -1) ) {
				mes "[Ash]";
				mes "You don't have enough tokens!";
				close;
			}
			if ( Zeny > MAX_ZENY - 5000000 * 10 ** (@menu -1) ) {
				mes "[Ash]";
				mes "You can't add more zeny to your character";
				close;
			}
			Zeny += 5000000 * 10 ** (@menu -1);
			#Treasure_Token -= 10 ** (@menu -1);
			close;
		default:
		}
	default:
	}
	close;
}

btw your way of handling the MAX_ZENY is wrong, can cause integer overflow 

[Warning]: script:op_2num: overflow detected op=C_ADD i1=2147483647 i2=500000000
[Debug]: Source (NPC): Treasure Hunter's Shop at prontera (155,185)

 

 

if you don't like mathematics then just hard-code the value 

prontera,155,185,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:
		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 with zeny", "Nevermind" ) ) {
		case 1:
			switch( select( "5m Zeny -> 1 Token", "50m Zeny -> 10 Token", "500m -> 100 Token", "Nevermind" ) ) {
			case 1:
				.@zeny = 5000000;
				.@token = 10;
				break;
			case 2:
				.@zeny = 50000000;
				.@token = 10;
				break;
			case 3:
				.@zeny = 500000000;
				.@token = 100;
				break;
			case 4:
				close;
			}
			if ( #Treasure_Token < .@token ) {
				mes "[Ash]";
				mes "You don't have enough tokens!";
				close;
			}
			if ( Zeny > MAX_ZENY - .@zeny ) {
				mes "[Ash]";
				mes "You can't add more zeny to your character";
				close;
			}
			Zeny += .@zeny;
			#Treasure_Token -= .@token;
			close;
		default:
		}
	default:
	}
	close;

}

 

Edited by AnnieRuru

Share this post

Link to post
Share on other sites
  • 0

ThyroDree    3

ThyroDree
Posted

I got this problem too, possible to fix? 

[Warning]: script:op_2num: overflow detected op=C_ADD i1=2147483647 i2=500000000
[Debug]: Source (NPC): Treasure Hunter's Shop at prontera (155,185)

 

Share this post

Link to post
Share on other sites
  • 0

Winterfox    83

Winterfox
Posted (edited)

@ThyroDree you could use the script AnnieRuru provided here:

Spoiler
On 3.6.2018 at 1:01 PM, AnnieRuru said:

if you don't like mathematics then just hard-code the value 



prontera,155,185,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:
		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 with zeny", "Nevermind" ) ) {
		case 1:
			switch( select( "5m Zeny -> 1 Token", "50m Zeny -> 10 Token", "500m -> 100 Token", "Nevermind" ) ) {
			case 1:
				.@zeny = 5000000;
				.@token = 10;
				break;
			case 2:
				.@zeny = 50000000;
				.@token = 10;
				break;
			case 3:
				.@zeny = 500000000;
				.@token = 100;
				break;
			case 4:
				close;
			}
			if ( #Treasure_Token < .@token ) {
				mes "[Ash]";
				mes "You don't have enough tokens!";
				close;
			}
			if ( Zeny > MAX_ZENY - .@zeny ) {
				mes "[Ash]";
				mes "You can't add more zeny to your character";
				close;
			}
			Zeny += .@zeny;
			#Treasure_Token -= .@token;
			close;
		default:
		}
	default:
	}
	close;

}

 

 

Edited by Winterfox

Share this post

Link to post
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
Go To Question Listing
×
×
  • Create New...

Important Information

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

  I accept