-	script	list_same_ip	-1,{

OnCheck:
mes "Enter Player Name:";
input .@name$;
if( query_sql( "SELECT `name` FROM `char` WHERE `name` LIKE '%"+escape_sql( .@name$ )+"%' LIMIT 50",.@name_list$ ) ){
	set .@size,getarraysize( .@name_list$ );
	for( set .@i,0; .@i < .@size; set .@i,.@i + 1 )
		set .@name_list_menu$,.@name_list_menu$ + .@name_list$[.@i] +":";
	set .@i,select( .@name_list_menu$ ) - 1;
	set .@name$,escape_sql( .@name_list$[.@i] );
	if( query_sql( "SELECT `last_ip` FROM `login` WHERE `account_id` >= 2000000 AND `account_id` = ( SELECT `account_id` FROM `char` WHERE `name` = '"+.@name$+"' LIMIT 1 )",.@last_ip$ ) ){

		query_sql( "SELECT `account_id`,`name`,`online` FROM `char` WHERE `account_id` IN ( SELECT `account_id` FROM `login` WHERE `last_ip` = '"+.@last_ip$+"' ) ORDER BY `account_id` ASC",.@match_aid,.@match_name$,.@match_online );
		mes "Char same IP with ^0055FF"+.@name$+"^000000";
		set .@userid_size,getarraysize( .@match_aid );
		mes "--- ^0055FFIP : "+.@last_ip$+" ^FF0000( "+.@userid_size+" )^000000 ---";
		while( .@id < .@userid_size ){
			if( .@name$ != .@match_name$[.@id] )
				mes "^777777 > "+.@match_aid[.@id]+" -^"+( ( .@match_online[.@id] )?"0055FF":"777777" )+" "+.@match_name$[.@id]+"^000000";
			set .@id,.@id + 1;
		}
	}
}else{
	mes "No Record Found(s) with ^0055FF"+.@ip$+"^000000.";
}
close;
}