clan parser and whoiser

void parse_clan(int clam){
	int page_number = 0;
	string[int] clam_page;
	string clam_pages;
	boolean page_has_people = true;
	int[int] people_to_whois;
	while(page_has_people){
		clam_page[page_number] = visit_url("showclan.php?whichclan="+clam+"&page="+page_number);
		print("visited page "+page_number);
		if(!(clam_page[page_number].contains_text("showplayer.php"))){
			break;
		}
		clam_page[page_number] = clam_page[page_number].substring(clam_page[page_number].index_of("Members:"));
		clam_page[page_number] = clam_page[page_number].substring(0, clam_page[page_number].index_of("</table>"));
		if(!(clam_page[page_number].contains_text("showplayer.php")) || (clam_page[page_number] == clam_page[page_number-1])){
			clam_page[page_number] = "";
			break;
		}
		page_number++;
	}
	foreach i in clam_page{
		clam_pages += clam_page[i];
	}
	string[int][int] pre_people_to_whois = group_string(clam_pages,"showplayer\\.php\\?who=(\\d+)\"\>");
	foreach i,j in pre_people_to_whois{
		if(j==1){
			//print(pre_people_to_whois[i][1]);
			people_to_whois[i] = pre_people_to_whois[i][1].to_int();
		}
	}
	map_to_file(people_to_whois, "people in clan number "+clam+".txt");

	foreach i in people_to_whois{
		cli_execute("/whois "+people_to_whois[i]);
	}
}

string clan_leaderboards = visit_url("museum.php?floor=1&place=leaderboards&whichboard=8");
string[int][int] clan_urls = group_string(clan_leaderboards, "showclan\\.php\\?whichclan=(\\d+)\"");
boolean[string] clans_to_parse;
foreach i,j in clan_urls{
	if(j == 1){
		clans_to_parse[clan_urls[i][1]] = true;
	}
}
foreach i in clans_to_parse{
	parse_clan(i.to_int());
	print("8=================D");
}