Clearing a single medal in Tutorials & Snippets

ID:195026
 
Jul 18 2010, 6:32 am
Thus far, with no procedure in BYOND to directly clear, how can you clear a single medal? Well, two ways.
1) Delete the medal and put it back up (well, I haven;t tried this but it should work in theory)

2) Parse through the medal page to get the list of players who earned the medal and clear it.

Obviously, this is the second method. This is essentially a plug-and-play type of script, the only thing that needs to be changed is the URL to the medal, which the information (particularly the medal #) can be obtained through view source on the medal page.
client/New()
    var
        medal_url_page = "http://www.byond.com/games/[Hub key]/[hub name]?command=view_medals_ajax&medal=[medal #]&full=1"   //  You can get the medal # by looking through the page source on the medal section
        medal_name
        http
        i = 1
    src << "Starting erasing"
    for()//     Infinite loop, like while(1)
        http = world.Export(medal_url_page)     //      Gets the HTML from the medal page
        if(!http)
            CRASH("Is your internet working?")
            return  
        http = file2text(http["CONTENT"])       //      Getting the text of the html
        
        if(findtext(http,"no players have earned this medal"))  //  If this cannot be found, that means all of the medals for that has been gone
            break
        if(!medal_name)     //      Making sure you want to delete the medal
            alert(http)
            //  Parsing for the medal name
            var/n = findtext(http,"title=")+7
            n = copytext(http,n,findtext(http,"\"",n))
            if(alert(src,"Are you sure you want to delete the medal \"[n]\"?","Erase Medal: [n]","?_?","No","Yes") != "Yes")
                break

            medal_name = n
        for()
            //  Clearing the people listed on the medal page
            var/Xkey=findtext(http, "http://www.byond.com/members/")
            if(!Xkey) //  If no more members for that page remains, we break out of the loop to get other people
                break
            Xkey+=29
            var/End = findtext(http, "\"", Xkey)
            Xkey = copytext(http, Xkey, End)
            //  src << "world.ClearMedal([medal_name],[Xkey])"
            if(world.ClearMedal(medal_name,Xkey))
                src << "Erased [Xkey] (#[i++])"
            http = copytext(http, End)
    src << "Ending erasing!"
    return