Random Code Generator

[Onairda]

Hello Everyone,

I was hoping if you could help me, to have the below script work. What I want is create a random generator code "Transaction Code" temporarily, which means only transacting players can see the generated Transaction Code and even 100 players using the script it wont give the same Transaction Code.

prontera,155,155,3	script	TESTSTE	92,{

	setarray .coupon_code$[0],"A","B","C","D","E","F","G","H","I","J","K","L",
							  "M","N","O","P","Q","R","S","T","U","V","W","X",
							  "Y","Z","0","1","2","3","4","5","6","7","8","9";
	
	set .@new_transaction$, "";
	set .@code_exists$, 0;

	mes "test";
	while (@code_exists == 0) {
		for (set @i, 0; @i < 6; set @i, @i+1) {
			set .@random_char$, rand(0, (getarraysize(.coupon_code$) - 1));
			set .@new_transaction$, .@new_transaction$ + .coupon_code$[.@random_char$];
		}

		query_sql("SELECT COUNT(*) FROM transaction_tbl WHERE transaction_code='" + .@new_transaction$ + "'", .@code_count);
		if (.@code_count == 0) {
			set .@code_exists$, 1;
			query_sql("INSERT INTO transaction_tbl (transaction_code) VALUES ('" + .@new_transaction$ + "')");
			mes "Transaction Code: " + .@new_transaction$ + " inserted into the database.";
		} else {
			set .@new_transaction$, "";
		}
	}

	set .@new_transaction$, "";

close;

}

 

Thank you

[Harvin]

untested, but you can try this.

prontera,155,155,3	script	TESTSTE	92,{
	if (.user)
	{
		mes rid2name(.user) +" is currently per-using my service, please try again later.";
		close;
	}
	.user = getcharid(3);
	addtimer 10, strnpcinfo(0) +"::OnReleaseUser";
	mes "Generating new code for you..";
	freeloop(true);
	do
	{
		.@new_coupon$ = "";
		copyarray .@coupon_code$[0], .coupon_code$[0], .coupon_code_size;
		.@coupons = query_sql("SELECT `transaction_code` FROM `transaction_tbl` WHERE 1", .@coupons$);
		for (.@i = 0; .@i < .code_length;.@i++)
		{
			.@s = getarraysize(.@coupon_code$);
			.@r = rand(.@s);
			.@new_coupon$ += .@coupon_code$[.@r];
			deletearray .@coupon_code$[.@r], 1;
		}
		if (.@coupons < 1)
			break;
		if (inarray(.@coupons$, .@new_coupon$) == -1)
			break;
	} while (1);
	freeloop(false);
	clear;
	query_sql("INSERT INTO `transaction_tbl` (transaction_code) VALUES ('" +  escape_sql(.@new_coupon$) + "')");
	mes "New Coupon Code: "+ .@new_coupon$;
	close;

OnPCLogoutEvent:
	if (.user != getcharid(3))
		end;
OnReleaseUser:
	.user = 0;
	end;

OnInit:
	.code_length = 6;

	setarray .coupon_code$[0],
		"A","B","C","D","E","F","G","H","I","J","K","L",
		"M","N","O","P","Q","R","S","T","U","V","W","X",
		"Y","Z","0","1","2","3","4","5","6","7","8","9";

	.coupon_code_size = getarraysize(.coupon_code$);
	end;
}

 

[xeijvro]

On 8/27/2023 at 6:19 PM, Harvin said:

untested, but you can try this.

prontera,155,155,3	script	TESTSTE	92,{
	if (.user)
	{
		mes rid2name(.user) +" is currently per-using my service, please try again later.";
		close;
	}
	.user = getcharid(3);
	addtimer 10, strnpcinfo(0) +"::OnReleaseUser";
	mes "Generating new code for you..";
	freeloop(true);
	do
	{
		.@new_coupon$ = "";
		copyarray .@coupon_code$[0], .coupon_code$[0], .coupon_code_size;
		.@coupons = query_sql("SELECT `transaction_code` FROM `transaction_tbl` WHERE 1", .@coupons$);
		for (.@i = 0; .@i < .code_length;.@i++)
		{
			.@s = getarraysize(.@coupon_code$);
			.@r = rand(.@s);
			.@new_coupon$ += .@coupon_code$[.@r];
			deletearray .@coupon_code$[.@r], 1;
		}
		if (.@coupons < 1)
			break;
		if (inarray(.@coupons$, .@new_coupon$) == -1)
			break;
	} while (1);
	freeloop(false);
	clear;
	query_sql("INSERT INTO `transaction_tbl` (transaction_code) VALUES ('" +  escape_sql(.@new_coupon$) + "')");
	mes "New Coupon Code: "+ .@new_coupon$;
	close;

OnPCLogoutEvent:
	if (.user != getcharid(3))
		end;
OnReleaseUser:
	.user = 0;
	end;

OnInit:
	.code_length = 6;

	setarray .coupon_code$[0],
		"A","B","C","D","E","F","G","H","I","J","K","L",
		"M","N","O","P","Q","R","S","T","U","V","W","X",
		"Y","Z","0","1","2","3","4","5","6","7","8","9";

	.coupon_code_size = getarraysize(.coupon_code$);
	end;
}

 

Can i have sa sql file with this?