Stap 1: de code
code
doen
x = msgbox ("Niet op", 0, "fout")
x = msgbox ("* ahem * ik SAID druk niet op", 0, "Fout")
x = msgbox ("..." U DRUKT HET WEER." & vbCrLf & "PUNK OK, druk op het AGAIN.", 0, "Fout")
x = msgbox ("YEAH, thats IT." & vbCrLf & "COME ON, één meer tijd.", 0, "Fout")
x=MsgBox("again.",0,"Error")
x = msgbox ("DO IT", 0, "Fout")
x = msgbox ("Oke, nu heb je je vulling." & vbCrLf & "STOP klikken!", 0, "Fout")
x = msgbox ('U, dit is de reden waarom we niet zijn vrienden.', 0, "fout")
x = msgbox ("Je bent gewoon te egoïstisch.", 0, "fout")
x = msgbox ("Grrr... nu hebt u gevraagd om het." & vbCrLf & "Niet op de OK knop!", 0, "fout")
x = msgbox ("Je lijkt te zijn immuun voor mijn mening controle.", 0, "fout")
x = msgbox ("tijd voor PLAN B." & vbCrLf & "druk op het! je weet dat je wilt.", 0,"fout")
x = msgbox ("Mhahahahahahaha! Nu laten we eens kijken hoe druk je het op! " & vbCrLf & "LOSER!", 3, "Fout")
x = msgbox ("... dit displeases me.", 0, "Fout")
x = msgbox ("..." Ik haat je.", 0,"fout")
x = msgbox ("daarin ' afgesneden je hoofd met een" & vbCrLf & "tandenborstel" soort manier. ", 0,"Fout")
x = msgbox ("Quick, wat is achter je!.", 0, "Fout")
x = msgbox ("welke is het?" & vbCrLf & "Niet zo slim, nu ya?!", 2, "fout")
x = msgbox ("Oke, oke. U kunt druk op de knop OK. " & vbCrLf & "I don't care.", 0, "fout")
x = msgbox ("Nee echt, I don't care anymore.", 0, "fout")
x = msgbox ("In feite I lost rente een tijdje geleden.", 0, "fout")
x = msgbox ("Ik doe dit gewoon om u te vermaken.", 0, "fout")
x=MsgBox("really.",0,"Error")
x = msgbox ("Do u zoals tekenfilms?", 0, "Fout")
x = msgbox ("... en verf? ', 0,"Fout")
x = msgbox ('Cartoons en verf?', 0, "fout")
x = msgbox ("Nou moet u.', 0,"Fout")
x = msgbox ("Let me use your internet.", 0, "fout")
x = msgbox ("U hebt een virus.", 0, "fout")
x = msgbox ("zien, je gewoon niet vertrouwen mij." & vbCrLf & "Of kan je?", 0, "fout")
x = msgbox ("Weet je, ik ben blij dat we krijgen" & vbCrLf & "om zo veel tijd met elkaar doorbrengen.", 0, "Fout")
x = msgbox ("Het maakt je wilt stoppen met" & vbCrLf & "Klikken OK knoppen.", 0, "Fout")
x = msgbox ("Nee serieus.", 0, "Fout")
x = msgbox ("Kijk diep in je.", 0, "Fout")
x=MsgBox("Deeper.",0,"Error")
x=MsgBox("DEEPER!!!.",0,"Error")
x = msgbox ("wat als ik vertelde u dat de volgende" & vbCrLf & "tijd u druk op de OK knop, de wereld" & vbCrLf & "zal ontploffen?", 0, "fout")
x = msgbox ("See.You gekund" & vbCrLf & "dood gelijk daar.", 0, "Fout")
x = msgbox ("en er.", 0, "Fout")
x = msgbox ("You know, uiteindelijk" & vbCrLf & "Ik verhuur je wegkomen met dit stop.", 0, "fout")
x = msgbox ("De wereld gaat ontploffen" & vbCrLf & "en alles wat je zorg over dringt OK knoppen.", 0, "fout")
x = msgbox ("Oke, ditmaal de wereld zal" & vbCrLf & "ontploffen. Ik garantie. ", 0,"Fout")
x = msgbox ("BOOM!" & vbCrLf & "You 're dead.", 0, "Fout")
x = msgbox ("dat was niet erg slim nu, was het?", 0, "fout")
x = msgbox ("ieders doden. zelfs als u", 0,"Fout")
x = msgbox ("Ik ben niet. Ik ben gewoon tekst.", 0,"fout")
x = msgbox ('Maar je bent dood.', 0, "fout")
x = msgbox ("Ha! Dode-face!', 0, "Fout")
x = msgbox ("Stop te klikken.", 0, "Fout")
x = msgbox ("Heb ik ooit verteld hoeveel ik haat u?", 0, "fout")
x = msgbox ("Nou ik doen", 0, "fout")
x = msgbox ("I 'm gonna beginnen te praten achteruit" & vbCrLf & "als u me één meer tijd.", 0, "fout")
x = msgbox ("? uoy nac, em daer t'naC won! AH", 0,"FOUT")
x = msgbox ("Wat u niet wilt me voorlezen?", 0, "fout")
x = msgbox ("Dan zal ik u tonen.", 0, "fout")
x = msgbox ("", 0, "Fout")
x = msgbox ("", 0, "Fout")
x = msgbox ("U echt zijn koppig.", 0, "fout")
x = msgbox ("Stop te klikken! Gelieve... ", 0,"FOUT")
x = msgbox ("Kijk, u hebt verlaagd mij" & vbCrLf & "om te bedelen. so please stop.", 0,"fout")
x=MsgBox("Please!!!",0,"Error")
x = msgbox ("Ik geef je een nikkel.", 0, "fout")
x = msgbox ("Dime?", 0, "Fout")
x = msgbox ("kwartaal?", 0, "Fout")
x = msgbox ("aw kom op! Net stop!", 0,"Fout")
x = msgbox ("Alle recht...", 0, "fout")
x = msgbox ("Let's get funky!", 48, "fout")
x = msgbox ("Ik wed dat je begint af te vragen" & vbCrLf & "waarom je heb hiervoor" & vbCrLf & "voor zo lang!", 0, "fout")
x = msgbox ("Jeeze, alles wat je hebt gedaan is" & vbCrLf & "te klikken op een knop OK.", 0, "Fout")
x = msgbox ("hoe lame is dat?", 0, "fout")
x = msgbox ("maar er is een bonus aan allen deze", 0, "Fout")
x = msgbox ("maar het is een geheim." & vbCrLf & "So I can't tell you.", 0, "Fout")
x = msgbox ("I got you gaat, niet ik?", 0, "fout")
x = msgbox ("U moet hebben gezien de look" & vbCrLf & "op je gezicht! HAHA!", 0,"FOUT")
x = msgbox ("maar serieus, is er een geheim." & vbCrLf & "Ziedaar heeft geweest een de hele tijd.", 0, "fout")
x = msgbox ("U overboden drukke weg te klikken op" & vbCrLf & "dit foutbericht...", 0, "fout")
x = msgbox ("... als al die tijd een beetje onzichtbaar" & vbCrLf & 'bericht heeft been watching uw elke beweging.', 0, "fout")
x=MsgBox("Bugagagahahaha!",0,"Error")
x=MsgBox("hahaha!",0,"Error")
x=MsgBox("Bugagagahahaha!",0,"Error")
x=MsgBox("Bugaga!",0,"Error")
x=MsgBox("haha!",0,"Error")
x=MsgBox("hehe!",0,"Error")
x=MsgBox("lol",0,"Error")
x=MsgBox("rofl",0,"Error")
x=MsgBox("roflmao",0,"Error")
x=MsgBox("roflmaoqwerty",0,"Error")
x = msgbox ("enzovoort enzovoort", 0, "fout")
x=MsgBox("...",0,"Error")
x=MsgBox("*Whistles*",0,"Error")
x = msgbox ("Hebt u het gevonden?", 0, "fout")
x = msgbox ("Kijk harder!" & vbCrLf & "Het is recht onder je neus.", 0, "fout")
x = msgbox ("Ik weet waar het is." & vbCrLf & "Maar ik zal nooit vertellen.", 0, "fout")
x = msgbox ('Of misschien ik zal...', 0, "fout")
x = msgbox ("maar u moet stoppen te klikken op de" & vbCrLf & "OK knop eerst!", 0, "fout")
x=MsgBox("stop.",0,"Error")
x=MsgBox("Now.",0,"Error")
x = msgbox ("Prima, zal ik niet vertellen u" & vbCrLf & "het geheim.", 0, "Fout")
x = msgbox ("ga je gang. Probeer om het te vinden jezelf"& vbCrLf &"Je vindt nooit it.", 0,"fout")
x = msgbox ("Goed u misschien... maar de kansen" & vbCrLf & "zijn tegen je.", 0, "fout")
x=MsgBox("~",0,"Error")
x = msgbox ("Wat is uw favoriete brief?", 0, "fout")
x = msgbox ("Mine is de kronkelende", 0, "fout")
x=MsgBox("~",0,"Error")
x = msgbox ("Nog niet gevonden het?", 0, "Fout")
x=MsgBox("no?",0,"Error")
x = msgbox ("dan stoppen te klikken en ik zal je vertellen.", 0, "fout")
x = msgbox ("U know what?", 0, "fout")
x = msgbox ("POOF! HET IS GEGAAN!", 3,"FOUT")
x = msgbox ("Heeft iemand ooit geslagen u?", 0, "fout")
x = msgbox ("Cuz ik wil.", 0, "Fout")
x = msgbox ("echt, ik wil.", 0, "Fout")
x = msgbox ("Het kan geen kwaad hoor.", 0, "fout")
x = msgbox ("Cuz you're dead.", 0, "Fout")
x=MsgBox("D-E-A-D",0,"Error")
x = msgbox ("Remember je ging en opgeblazen" & vbCrLf & "de hele planeet!", 0, "Fout")
x = msgbox ("Dacht dat ik zou vergeten over die" & vbCrLf & "hè?", 0, "Fout")
x = msgbox ("Maar een olifant vergeet nooit!", 0, "fout")
x = msgbox ("... of iets langs deze lijnen. ', 0,"Fout")
x = msgbox ("U gedood iedereen.", 0, "fout")
x=MsgBox("Sikko",0,"Error")
x = msgbox ("Wat zou je moeder zeggen", 0, "fout")
x = msgbox ("dat klopt... het gevoel slecht.", 0, "Fout")
x = msgbox ('de wereld is null en je schuld.', 0, "fout")
x = msgbox ("Ik zou aanraden zelfmoord" & vbCrLf & "maar je bent dood al.", 0, "fout")
x = msgbox ("dus er is slechts één ding links" & vbCrLf & "kunt doen...", 0, "fout")
x = msgbox ("Stop te klikken op de knop.", 0, "fout")
x = msgbox ("Dude, je dood." & vbCrLf & "wat zijn je winnen hieruit?.", 0, "Fout")
x = msgbox ("Oke, telkens wanneer u op klikt, u" & vbCrLf & "krijgen verzonden naar een lagere laag van de hel.", 0, "fout")
x = msgbox ("Welcome to layer 2.", 0, "fout")
x=MsgBox("3",0,"Error")
x=MsgBox("4",0,"Error")
x=MsgBox("5",0,"Error")
x=MsgBox("6",0,"Error")
x=MsgBox("7",0,"Error")
x=MsgBox("8",0,"Error")
x=MsgBox("9",0,"Error")
x = msgbox ("BOOM!" & vbCrLf & "You 've uitgelichte hel.", 0, "fout")
x = msgbox ("Ik hoop dat u tevreden bent.", 0, "fout")
x = msgbox ("Heaven gone ook." & vbCrLf & "Thats hoe glad je bent.", 0, "fout")
x = msgbox ("nu uw doden, en er is" & vbCrLf & "geen hemel of hel.", 0, "fout")
x = msgbox ("How does it feel?" & vbCrLf & "U hebt de wereld limbo. veroordeeld", 0, "fout")
x = msgbox ("Ik schoot eenmaal een man om zich in limbo.", 0, "fout")
x = msgbox ("... of deed hij de limbo?", 0, "Fout")
x = msgbox (van de cd "Meh, tomaat Tomahto", 0, "Fout")
x = msgbox ("Dit is saai is het niet?", 0, "fout")
x = msgbox ("maar je kunt niet stoppen!" & vbCrLf & "U enkel probeert om te sluiten dit foutbericht weergegeven.", 0, "fout")
x = msgbox ("u wilt beëindigen dit." & vbCrLf & 'Wilt laten...', 0, "fout")
x = msgbox ("Maar je kunt niet!", 0, "fout")
x = msgbox ("Je moet om te zien of er een pot met goud" & vbCrLf & "at the end of the rainbow!", 0, "fout")
x = msgbox ("maar ik heb al verteld u hoe te" & vbCrLf & "vind de pot met goud', 0,"Fout")
x = msgbox ("Volg het witte konijn.", 0, "Fout")
x = msgbox ("... erm, OK knop.", 0, "Fout")
x = msgbox ("Remember de verborgen knop?", 0, "Fout")
x = msgbox ("of bent u zo egocentrisch u" & vbCrLf & "over dat hebt vergeten ook?", 0, "fout")
x = msgbox ("Ik kon gewoon houdt u hier hele dag" & vbCrLf & "als ik wilde.", 0, "Fout")
x = msgbox ("Je bent in mijn wereld nu.", 0, "fout")
x = msgbox ("het maakt niet uit hoeveel u" & vbCrLf & "haat het, je moet druk op de OK knop.", 0, "Fout")
x=MsgBox("again...",0,"Error")
x = msgbox ("en opnieuw...", 0, "Fout")
x = msgbox ("en weer", 0, "fout")
x = msgbox ("U gewoon blijven hopen iets" & vbCrLf & "good will come uit.", 0, "fout")
x = msgbox ("Sure I could tell you of ik wilde" & vbCrLf & ", maar ik ga niet.", 0, "Fout")
x = msgbox ("u hebt beslist te blijven klikken." & vbCrLf & "Dus ik ga om te genieten van it.", 0, "Fout")
x = msgbox ("Ik bedoel, er is niets anders om van te genieten.", 0, "fout")
x = msgbox ("u blies het allemaal onthouden?", 0, "Fout")
x = msgbox ("je waarschijnlijk je afvraagt wie i am... ', 0,"Fout")
x = msgbox ("Nou, laat me je vertellen een verhaal over mijn zelf.", 0, "fout")
x = msgbox ("één dag ik naar huis liep van" & vbCrLf & "werk en ik zag een klein beetje huis.", 0, "fout")
x = msgbox ("Ik klopte op de deur uit curiosety." & vbCrLf & "om te zien of om het even wie home.", 0, "Fout")
x = msgbox ("de deur geopend!", 0, "Fout")
x = msgbox ("Maar niemand was er.", 0, "fout")
x = msgbox ("Ik ging naar binnen om het te controleren" & vbCrLf & 'en vond niets...', 0, "fout")
x = msgbox ("niets anders dan een lege computer geval.", 0, "Fout")
x = msgbox ("Dus ik opende it.", 0, "fout")
x = msgbox ("Het geval was een laag Inside" & vbCrLf & 'schuim beschermt de inhoud.', 0, "fout")
x = msgbox ("Ik verwijderde het schuim en het was er...", 0, "fout")
x=MsgBox("...",0,"Error")
x = msgbox ("......", 0, "Fout")
x=MsgBox("ZZZZZzzzzz",0,"Error")
x=MsgBox("zzzzzZZZZZzzzzz",0,"Error")
x=MsgBox("ZZzZZzzZzzZZzZZ",0,"Error")
x=MsgBox("huh?",0,"Error")
x = msgbox ("Oh! Recht! "The story", 0, "Fout")
x = msgbox ("dus daar ik, hield" & vbCrLf & "dit computer geval in mijn handen.", 0, "fout")
x = msgbox ("de top was open en zitten" & vbCrLf & "binnen was dit...", 0, "fout")
x = msgbox ("Foutmelding en OK knop.", 0, "fout")
x = msgbox ("En weet je wat er gezegd?", 0, "fout")
x = msgbox ("Oh, ik zal je vertellen wat er gezegd." & vbCrLf & "The foutbericht zei...', 0,"Fout")
lus
