utility : GM charinfo

-	script	charinfo	-1,{
OnInit:
	bindatcmd "charinfo","charinfo::OnCharInfo", 0, 2;
	end;
OnCharInfo:
	if(getgroupid() >= 2) {
		mes " [ Character Info ] ";
		mes " Hello GM ^00CC00"+strcharinfo(0)+"^000000!";
		mes " What would you like to check? ";
		switch (select("Character Name:Username")) {

		case 1:
		input .@chrnm$;
		query_sql "SELECT `account_id` FROM `char` WHERE `name` = '" + .@chrnm$ + "'",.@acid;
		next;
		break;

		case 2:
		input .@acnme$;
		query_sql "SELECT `account_id` FROM `login` WHERE `userid` = '" + .@acnme$ + "'",.@acid;
		next;
		break;
		}
		query_sql "SELECT `userid`,`email`,`group_id`,`last_ip`,`birthdate`,`last_mac` FROM `login` WHERE `account_id` ='" + .@acid + "'", .@usrd$,.@eml$,.@ggm,.@lstip$,.@brtdy$,.@macad$;
		if ( .@ggm > 0 ) { mes "[ Account Information ]"; mes "GM Account Information are not available"; close; }
		else if ( .@acid < 2000000 || .@acid > 3000000 ) { mes "[ Account Information ]"; mes "Character Not Found"; close; }
		query_sql "SELECT `name`, `base_level`, `job_level` FROM `char` WHERE `account_id` =" + .@acid + "  ORDER BY `base_level` DESC",.@chrlst$, .@blvl, .@jlvl;
		mes "[Character List]"	;
		for(set .@i, 0; .@i < getarraysize(.@chrlst$); set .@i, .@i + 1){
			mes .@i+1+". ^00CC00"+.@chrlst$[.@i]+"^000000 ";
			mes "Level: "+.@blvl[.@i]+"/"+.@jlvl[.@i]+" ";
		}
		next;
		mes "[ Account Information ]";
		mes "Account ID: "+.@acid;
		mes "Username: "+.@usrd$;
		mes "Email: "+.@eml$;
		mes "Last IP: ^00CC00"+.@lstip$+"^000000";
		mes "Birthdate: "+.@brtdy$;
		mes "Mac Address: ^FF0000"+.@macad$+"^000000";
		query_sql "SELECT `account_id`,`last_mac` FROM `freebies` WHERE `account_id` =" + .@acid + " ",.@rcvfrbs, .@lstmc$;
		if (.@rcvfrbs > 0) { set .@rcvfrbs, 1; } else { set .@rcvfrbs, 0; }
		if (.@rcvfrbs > 0) { set .@rcvfrbs$, "^00CC00Yes^000000"; }
		if (.@rcvfrbs == 0) { set .@rcvfrbs$, "^FF0000No^000000"; }
		mes "Freebies from account: "+.@rcvfrbs$;
		for(set .@i1, 0; .@i1 < getarraysize(.@lstmc$); set .@i1, .@i1 + 1){
		set .@lstmc, .@lstmc +1;
		}
		if (.@lstmc < 1) { set .@lstmc$, "^FF0000No^000000"; }
		if (.@lstmc > 0) { set .@lstmc$, "^00CC00Yes^000000"; }
		mes "Freebies from MAC: "+.@lstmc$;
		close;
	}
}