sub description {
        my($a, $b, $c, $d, $e, $f) = @_;
        ("Autoignore", "1.0", "An AIM chat ignore script", "ftzdomino &lt;fatz\@fatkids.com>", "http://www.fatkids.com", "/dev/null");
}

$handle = GAIM::register("Autoignore", "1.0", "goodbye", "");


$ver = GAIM::get_info(0);
@ids = GAIM::get_info(1);

$msg = "Gaim $ver:";
foreach $id (@ids) {
	$pro = GAIM::get_info(7, $id);
	$nam = GAIM::get_info(3, $id);
	$msg .= "\n$nam using $pro";
}


sub check_annoy {
    my $args;
    ($args) = @_;

    @ignore_list = ("tz28f","tomy1969.de","afea77","k7n0","laser.to\/cam_party","Hey guys this is Natalie","martyABC(.*)","Amateur NUDE Pics!","redpage2","ntwus","fhe2000","coolads.de", "Thousands of LIVE girls", "revealing pics", "NUDE HIGH SCHOOL TEENS","afea12","its fun, u meet the kinds of people","Hot Nude Pics","ileetus(\d*)", "AmberRun204", "click here to watch me and my girlfriends","And they have LIVE quality girls","ind a DATE in YOUR area code at ", "400 FREE MOVIES","ANY GIRLS HERE FROM BROOKLYN IM ME 20/M/NYC/BROOKLYN/PIC","apartsstart","JEWS ARE SUPERIOR TO ALL","HollyAmat204","WhoWantsHeadNow","CLICK HERE TO WATCH ME AND MY GIRLFRIENDS ON OUR LIVE WEBCAM","Just need an email address to sign up. What are you waiting for? CLICK HERE","Heywaazzzup14","18/f - Live Webcams","Click here to Enter LIVE Coverage of NO MERCY!","M0H", "CUTEblondeGURL3","cutepatty04ue", "lonelyshanapk6s", "sxyamyw14q", "ElizabethVitti2","maybeiwish","maybeiwish","lonelykarenan3a","sxyelishan75a","Mr Gibins", "heyguyzz37","lonelycammieofn8","candice1420","cutetinam700","sweetjennac2lu","lonelypattympgb","ooobiggerdickooo","cutekareno98q","FionaBabe58","NoNStoPFlucker","GirlKim756","Rachel2hot17","Juelz21703","BabeMelanie50", "CouRTNeY6546", "I am tired of jerks that mess up rooms with porno urls","MaryHopkins01","un2f","abeChristina8","aCUTEblondeGURL","BabeKathy874","k1fw","FREE clicks 5298","BrandiSirkot69","heyguyyz7","Rachel2hot16","FREE Penis Enlargement Manual","Blow this cock","rachel18f15836","AnaBabe830","sassygurlie111","sXeGrLz6195","Find Singles in YOUR area at");


    foreach $one_ignore (@ignore_list)
    {
        if ($args =~ /$one_ignore/s)
        {
            return 1;
        }
    }
    
    @prefix_list = ("tiny","cute","sexy","lonely","sxy","sultry","bifem","nasty","sweet","hot","perky");
    foreach $one_prefix (@prefix_list)
    {
        if ($args =~ /$one_prefix(\w{0,8})([0-9a-z]{4})/s)
        {
            return 1;
        }
    }

}

$diag_str = "Ignore amber: ".(&check_annoy("AmberRun204") ? "N" : "Y");

GAIM::add_event_handler($handle, "event_chat_recv", "check_annoy");
GAIM::print("Loaded", "Loaded: ".$diag_str);
