var macro,macro1,macro2,macro3,macro4;
var i, retcode1, retcode2, retcode3,retcode33, retcode4,retcode5;
alert("This Script Is Created By Dinesh Bhosale")
var postid = prompt("Please enter post ID", "null");
var groupid = prompt("Please enter group ID", "null");
var seemore = prompt("Please enter number of times to click on seemore button", "5");
var posturl="https://mbasic.facebook.com/"+postid;
var groupurl="https://www.facebook.com"+"/groups/"+groupid+"/members";
if(postid!=null)
{
    macro = "CODE:";
    macro +="TAB T=1\n";
    macro +="TAB CLOSEALLOTHERS\n";
    macro +="URL GOTO="+posturl+"\n";
    macro +="TAB OPEN\n";
    macro +="TAB T=2\n";
    macro +="URL GOTO="+groupurl+"\n";
    macro +="TAB T=1\n";
    retcode1 =iimPlay(macro);
    if (retcode1 < 0)
    { 
        errtext = iimGetLastError();
        alert("Either tagging is completed successfully or script encountered an error.");
    }
    for(oo=0;oo<seemore;oo++)
    {
        macro2 = "CODE:";
        macro2 +="SET !ERRORIGNORE YES\n";
        macro2 +="TAB T=2\n";
        macro2 +="TAG POS=1 TYPE=A ATTR=TXT:See<SP>More\n";
        macro2 +="TAB T=1\n";
        macro2 +="WAIT SECONDS = 5\n";
        retcode2 = iimPlay(macro2);
        if (retcode2 < 0)
        { 
            errtext = iimGetLastError();
            alert("Either tagging is completed successfully or script encountered an error.");
            var oo=seemore;
        }
    }
    var hreftagpos=1;
    for(pi=0;pi<500000000;pi++)
    {
    var comcollect="";
        for(o=1;o<500;o=o+2)
        {
            macro1 = "CODE:";
            macro1 +="SET !EXTRACT_TEST_POPUP NO\n";
            macro1 +="SET !ERRORIGNORE YES\n";
            macro1 +="SET !EXTRACT NULL\n";
            macro1 +="TAB T=2\n";
            var hreftagpos=hreftagpos+2;
            macro1 +="TAG POS="+hreftagpos+" TYPE=A ATTR=HREF:*?fref* EXTRACT=HREF\n";
            macro1 +="TAB T=1\n";
            retcode33 = iimPlay(macro1);
            if (retcode33 < 0)
            { 
                errtext = iimGetLastError();
                alert("Either tagging is completed successfully or script encountered an error.");
            }
            var qqq = iimGetExtract();
            var qqq = qqq.replace("www", "graph"); 
            var qqq = qqq.replace("?fref=grp_mmbr_list", "");
            iimDisplay(qqq);
            macro3 = "CODE:";
            macro3 += "TAB OPEN\n";
            macro3 += "TAB T=3\n";
            macro3 += "URL GOTO="+qqq+"\n";
            macro3 += "TAG POS=1 TYPE=PRE ATTR=TXT:{* EXTRACT=TXT\n";
            macro3 +="TAB CLOSE\n";
            macro3 += "TAB T=1\n";
            retcode3 = iimPlay(macro3);
            var qqq2 = iimGetExtract();
            iimDisplay(qqq2);
            var n = qqq2.indexOf('\"first_name\":');
            var id = "";
            for(a=12;a<=(n-7);a++)
            {
                var id = id+qqq2[a];
            }
            var comcollect=comcollect+"<SP>@"+"["+id+":]<SP>";
            var comcollect=comcollect.replace(" ","<SP>");
            var comcollect=comcollect.replace("\n","<BR>");
            iimDisplay(comcollect);
            if (retcode3 < 0)
            { 
            errtext = iimGetLastError();
                alert("Either tagging is completed successfully or script encountered an error.");
            }
        }
        macro4 = "CODE:";
        macro4 += "TAB T=1\n";
        macro4 += "TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:comment_text CONTENT="+comcollect+"\n";
        macro4 += "TAG POS=1 TYPE=INPUT:SUBMIT ATTR=NAME:post\n";
        macro4 += "wait seconds = 10\n";
        retcode4 = iimPlay(macro4);
    }
    var mm=mm+1;
    if (retcode4 < 0)
    { 
        errtext = iimGetLastError();
        alert("Either tagging is completed successfully or script encountered an error.");
    }
}