Partial Class Administration_EspacePerso_generation
    Inherits System.Web.UI.Page

    Public strGeneration As String

    Public MesActions As New Collection
    Public MesSujets As New Collection
    Public MesFacons As New Collection
    Public MesCarac As New Collection

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If (Request.QueryString("code") = Nothing) Then
            InitActions()
            InitSujets()
            InitCarac()
            InitFacon()
            Generer()
        End If

    End Sub

    Private Sub Generer()
        '<xml>
        '<result>Ca trucide du rat de patagonie à la hache !11one</result>
        '</xml>
        Dim nAction, nSujet, nFacon, nCarac As Integer
        nAction = RandomNumber(1, MesActions.Count)
        nSujet = RandomNumber(1, MesSujets.Count)
        nCarac = RandomNumber(1, MesCarac.Count)
        nFacon = RandomNumber(1, MesFacons.Count)

        strGeneration = "<xml><result>" & MesActions.Item(nAction).ToString & " " & MesSujets.Item(nSujet).ToString & " " & MesCarac.Item(nCarac).ToString & " " & MesFacons.Item(nFacon).ToString & " !!! :D</result></xml>"

    End Sub

    Public Function RandomNumber(ByVal low As Int32, ByVal high As Int32) As Integer

        Static RandomNumGen As New System.Random
        Return RandomNumGen.Next(low, high + 1)

    End Function

    Private Sub InitActions()

        MesActions.Add("Ca agresse")
        MesActions.Add("Ca annihile")
        MesActions.Add("Ca atomise")
        MesActions.Add("Ca brise")
        MesActions.Add("Ca brule")
        MesActions.Add("Ca caramélise")
        MesActions.Add("Ca carbonise")
        MesActions.Add("Ca carbonise")
        MesActions.Add("Ca casse")
        MesActions.Add("Ca castre")
        MesActions.Add("Ca circoncise")
        MesActions.Add("Ca claque")
        MesActions.Add("Ca crame")
        MesActions.Add("Ca customize")
        MesActions.Add("Ca décalotte")
        MesActions.Add("Ca décompile")
        MesActions.Add("Ca decompose")
        MesActions.Add("Ca defenestre")
        MesActions.Add("Ca defonce")
        MesActions.Add("Ca defouraille")
        MesActions.Add("Ca dematerialise")
        MesActions.Add("Ca démembre")
        MesActions.Add("Ca démonte")
        MesActions.Add("Ca dépiote")
        MesActions.Add("Ca desanusse")
        MesActions.Add("Ca dessoude")
        MesActions.Add("Ca disseque")
        MesActions.Add("Ca ecartele")
        MesActions.Add("Ca eclabousse")
        MesActions.Add("Ca eclate")
        MesActions.Add("Ca ecrabouille")
        MesActions.Add("Ca electrocute")
        MesActions.Add("Ca émascule ")
        MesActions.Add("Ca enucle")
        MesActions.Add("Ca épile")
        MesActions.Add("Ca etale")
        MesActions.Add("Ca explose")
        MesActions.Add("Ca fait briller")
        MesActions.Add("Ca fait fondre")
        MesActions.Add("Ca fait vibrer")
        MesActions.Add("Ca fist")
        MesActions.Add("Ca fouette")
        MesActions.Add("Ca fouette")
        MesActions.Add("Ca freepost")
        MesActions.Add("Ca fusionne")
        MesActions.Add("Ca galvanise")
        MesActions.Add("Ca karchèrise")
        MesActions.Add("Ca ligotte")
        MesActions.Add("Ca lime")
        MesActions.Add("Ca liquéfie")
        MesActions.Add("Ca lolifie")
        MesActions.Add("Ca lustre")
        MesActions.Add("Ca mortifére")
        MesActions.Add("Ca overcloock")
        MesActions.Add("Ca own")
        MesActions.Add("Ca penetre")
        MesActions.Add("Ca photocopie")
        MesActions.Add("Ca ponce")
        MesActions.Add("Ca ponctionne")
        MesActions.Add("Ca poutre")
        MesActions.Add("Ca pulverise")
        MesActions.Add("Ca putrifie")
        MesActions.Add("Ca r0x")
        MesActions.Add("Ca retourne")
        MesActions.Add("Ca sodomise")
        MesActions.Add("Ca sulfate")
        MesActions.Add("Ca syphonne")
        MesActions.Add("Ca telecharge")
        MesActions.Add("Ca torture")
        MesActions.Add("Ca trifouille")
        MesActions.Add("Ca tringle")
        MesActions.Add("Ca troll")
        MesActions.Add("Ca trucide")
        MesActions.Add("Ca vermifuge ")
        MesActions.Add("Ca vieillit")
        MesActions.Add("Ca viol")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")
        'MesActions.Add("")

    End Sub

    Private Sub InitSujets()

        MesSujets.Add("de la chienne")
        MesSujets.Add("de la coccinelle")
        MesSujets.Add("de la cochonne")
        MesSujets.Add("de la fan de Lorie")
        MesSujets.Add("de la femme enceinte")
        MesSujets.Add("de la flamme olympique")
        MesSujets.Add("de la loutre")
        MesSujets.Add("de la Marion")
        MesSujets.Add("de la morue")
        MesSujets.Add("de la racaille")
        MesSujets.Add("de la salope")
        MesSujets.Add("de la standardiste")
        MesSujets.Add("de la staracadémicienne")
        MesSujets.Add("de la taupe")
        MesSujets.Add("de la taupe-garou")
        MesSujets.Add("de la Titia")
        MesSujets.Add("de la tortue")
        MesSujets.Add("de l'agoraphobe")
        MesSujets.Add("de l'araignée")
        MesSujets.Add("de l'autruche")
        MesSujets.Add("de l'éléphant")
        MesSujets.Add("de l'escalope")
        MesSujets.Add("de l'extraterrestre")
        MesSujets.Add("de l'handicapé")
        MesSujets.Add("de l'informaticien")
        MesSujets.Add("des asticots")
        MesSujets.Add("des castors juniors")
        MesSujets.Add("des chatons")
        MesSujets.Add("des chauve-souris")
        MesSujets.Add("des foetus")
        MesSujets.Add("des INpactiens")
        MesSujets.Add("des lombrics")
        MesSujets.Add("des lutins")
        MesSujets.Add("des Père Noëls")
        MesSujets.Add("des poissons")
        MesSujets.Add("des poules")
        MesSujets.Add("des scouts des bois")
        MesSujets.Add("des taureaux")
        MesSujets.Add("du bébé requin")
        MesSujets.Add("du Belge")
        MesSujets.Add("du Bicounet")
        MesSujets.Add("du bogoss")
        MesSujets.Add("du canard")
        MesSujets.Add("du castor")
        MesSujets.Add("du cheater à CS")
        MesSujets.Add("du Chinois")
        MesSujets.Add("du chiot")
        MesSujets.Add("du communiste")
        MesSujets.Add("du dauphin")
        MesSujets.Add("du dindon")
        MesSujets.Add("du Duck")
        MesSujets.Add("du Fanboy Microsoft")
        MesSujets.Add("du Fanboy Nintendo")
        MesSujets.Add("du Fanboy Sony")
        MesSujets.Add("du FBBF")
        MesSujets.Add("du flic")
        MesSujets.Add("du geek")
        MesSujets.Add("du Gizmo")
        MesSujets.Add("du goomba")
        MesSujets.Add("du hamster")
        MesSujets.Add("du karatéka")
        MesSujets.Add("du Kasa")
        MesSujets.Add("du Kevin")
        MesSujets.Add("du lapin crétin")
        MesSujets.Add("du lapin-garou")
        MesSujets.Add("du lepreu")
        MesSujets.Add("du leucémique")
        MesSujets.Add("du modérateur PCI")
        MesSujets.Add("du mogwai")
        MesSujets.Add("du nolife")
        MesSujets.Add("du nourisson")
        MesSujets.Add("du pangolin")
        MesSujets.Add("du patron")
        MesSujets.Add("du Pete Boule")
        MesSujets.Add("du pongiste")
        MesSujets.Add("du poulet tandori")
        MesSujets.Add("du présentateur du JT")
        MesSujets.Add("du psychiatre")
        MesSujets.Add("du puceau")
        MesSujets.Add("du Sarkozyste")
        MesSujets.Add("du saumon")
        MesSujets.Add("du saumon")
        MesSujets.Add("du skybloggeur")
        MesSujets.Add("du stagiaire")
        MesSujets.Add("du superhero")
        MesSujets.Add("du tecktonikeur")
        MesSujets.Add("du Teuf")
        MesSujets.Add("du top model")
        MesSujets.Add("du Trazom")
        MesSujets.Add("du T-Rex")
        MesSujets.Add("du troll")
        MesSujets.Add("du Typhoon")
        MesSujets.Add("du vampire")
        MesSujets.Add("du ver de terre")
        MesSujets.Add("une INpactienne")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")
        'MesSujets.Add("")

    End Sub

    Private Sub InitCarac()

        MesCarac.Add("acariatre")
        MesCarac.Add("amoureux")
        MesCarac.Add("apatride")
        MesCarac.Add("asthmatique")
        MesCarac.Add("autiste")
        MesCarac.Add("binoclard")
        MesCarac.Add("borgne")
        MesCarac.Add("bouddhiste")
        MesCarac.Add("catastrophique")
        MesCarac.Add("chômeur")
        MesCarac.Add("chrétien")
        MesCarac.Add("collant")
        MesCarac.Add("comique")
        MesCarac.Add("de la montagne")
        MesCarac.Add("de Moldavie")
        MesCarac.Add("de Noël")
        MesCarac.Add("degoulinant")
        MesCarac.Add("demoniste")
        MesCarac.Add("depressif")
        MesCarac.Add("des bites")
        MesCarac.Add("des bois")
        MesCarac.Add("des cavernes")
        MesCarac.Add("des iles")
        MesCarac.Add("des landes")
        MesCarac.Add("des mers")
        MesCarac.Add("des ténébres")
        MesCarac.Add("des tétons")
        MesCarac.Add("diabétique")
        MesCarac.Add("drogué")
        MesCarac.Add("ejaculateur précoce")
        MesCarac.Add("en décomposition")
        MesCarac.Add("enragé")
        MesCarac.Add("euphorique")
        MesCarac.Add("exhibitionniste")
        MesCarac.Add("farouche")
        MesCarac.Add("faschiste")
        MesCarac.Add("filiforme")
        MesCarac.Add("freeposteur")
        MesCarac.Add("gastronome")
        MesCarac.Add("geek")
        MesCarac.Add("globe-trotter")
        MesCarac.Add("gondolé")
        MesCarac.Add("homosexuel")
        MesCarac.Add("humide")
        MesCarac.Add("hyperactif")
        MesCarac.Add("hypocrite")
        MesCarac.Add("impétueux")
        MesCarac.Add("impuissant")
        MesCarac.Add("incapable")
        MesCarac.Add("incapables")
        MesCarac.Add("innocent")
        MesCarac.Add("inutile")
        MesCarac.Add("islamiste")
        MesCarac.Add("junkie")
        MesCarac.Add("lubrique")
        MesCarac.Add("malicieux")
        MesCarac.Add("malnutrit")
        MesCarac.Add("manchot")
        MesCarac.Add("neurastémique")
        MesCarac.Add("obése")
        MesCarac.Add("paraplégique")
        MesCarac.Add("pensif")
        MesCarac.Add("pensif")
        MesCarac.Add("pervers")
        MesCarac.Add("poilu")
        MesCarac.Add("ridé")
        MesCarac.Add("romantique")
        MesCarac.Add("ronchon")
        MesCarac.Add("sauvage")
        MesCarac.Add("solitaire")
        MesCarac.Add("suicidaire")
        MesCarac.Add("syndicaliste")
        MesCarac.Add("transexuel")
        MesCarac.Add("transgénique")
        MesCarac.Add("trisomique")
        MesCarac.Add("trolleur")
        MesCarac.Add("tuméfié")
        MesCarac.Add("unijambiste")
        MesCarac.Add("vierge")
        MesCarac.Add("vindicatif")
        MesCarac.Add("visionnaire")
        MesCarac.Add("zen")
        'MesCarac.Add("")
        'MesCarac.Add("")
        'MesCarac.Add("")
        'MesCarac.Add("")
        'MesCarac.Add("")
        'MesCarac.Add("")
        'MesCarac.Add("")
        'MesCarac.Add("")

    End Sub

    Private Sub InitFacon()

        MesFacons.Add("à coup d'admin réseau")
        MesFacons.Add("a coup de boule de boowling")
        MesFacons.Add("a coup de clavier")
        MesFacons.Add("a coup de ctrl+alt+sup")
        MesFacons.Add("a coup de dents")
        MesFacons.Add("à coup de dhiarée")
        MesFacons.Add("a coup de dictionnaire")
        MesFacons.Add("a coup de machine a café")
        MesFacons.Add("a coup de Mike Tyson")
        MesFacons.Add("a coup de Pete Boule")
        MesFacons.Add("à coup de playstation")
        MesFacons.Add("a coup de Vincent H")
        MesFacons.Add("a coups de pied")
        MesFacons.Add("à coups de wizz")
        MesFacons.Add("a grand coup de chaises")
        MesFacons.Add("a grands coups de b***")
        MesFacons.Add("à la bombe lacrymo")
        MesFacons.Add("a la chaise electrique")
        MesFacons.Add("a la clef a molette")
        MesFacons.Add("a la fourchette")
        MesFacons.Add("a la lampe à UV")
        MesFacons.Add("a la lime à ongles")
        MesFacons.Add("a la perforatrice")
        MesFacons.Add("a la petite cuillere")
        MesFacons.Add("a la photocopieuse")
        MesFacons.Add("a la pince monseigneur")
        MesFacons.Add("a la seringue hypodermique")
        MesFacons.Add("a la tondeuse")
        MesFacons.Add("a la tronconeuse")
        MesFacons.Add("a la wiimote")
        MesFacons.Add("a l'acide")
        MesFacons.Add("a l'ouvre boite")
        MesFacons.Add("a main nues")
        MesFacons.Add("au canon de 105")
        MesFacons.Add("au cirage")
        MesFacons.Add("au demonte pneu")
        MesFacons.Add("au desintégrateur de poche")
        MesFacons.Add("au fulguro poing")
        MesFacons.Add("au fusil à plasma")
        MesFacons.Add("au fusil sniper")
        MesFacons.Add("au lance-flamme")
        MesFacons.Add("au laser")
        MesFacons.Add("au piolet")
        MesFacons.Add("au sabre-laser")
        MesFacons.Add("au turd twister")
        MesFacons.Add("au vibromasseur")
        MesFacons.Add("avec Hannibal Lecter")
        MesFacons.Add("avec les ongles")
        MesFacons.Add("avec un cable usb")
        MesFacons.Add("avec une rape à fromage")
        MesFacons.Add("dans les dents de la mer")
        MesFacons.Add("dans un distributeur de canettes")
        MesFacons.Add("dans un mixer")
        MesFacons.Add("en commencant par la tête")
        MesFacons.Add("en freepostant à vue")
        MesFacons.Add("en mode swordage")
        MesFacons.Add("en se jetant par la fenetre")
        MesFacons.Add("en se touchant le nez avec la fesse gauche")
        MesFacons.Add("en trollant à mort")
        MesFacons.Add("par MP")
        MesFacons.Add("sans faire de dentelle")
        MesFacons.Add("sans les pieds")
        MesFacons.Add("sans passer par la case départ")
        MesFacons.Add("sans passer par le RRoD")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")
        'MesFacons.Add("")

    End Sub

End Class