{ HACK.PAS Copyright (c) Patrik Benyak } { V tejto textovej hre sa zahráte na hackera. } { Nepôjde pritom o ¾iaden skutocní hacking. V¹etko co musíte vediet } { je mat rychle reflexi, dobrú pamät a tip. } { Prosím ospravedlnte v¹etky chibi a ak bi ste nieco vá¾nej¹ie } { na¹li ta neváhajte a napí¹e mi. Jednoduchá textová hra } { } { http://www.trsek.com } { Datum: 1.1.2009 http://pato1.ic.cz } program hacking; uses crt, graph; label konec; var i, a, heslo, heslik: integer; ch: char; konhes: boolean; kodiki: array[1..50] of integer; mena: array[1..20] of string; procedure nacitat(akcia: string; cas: integer); begin ClrScr; writeln(akcia); writeln('(........................)'); for a:= 2 to 26 do begin Delay(cas); GotoXY(a, 2); writeln('*'); end; ClrScr; end; procedure kontrolheslo(akcia: string; casik, heliko: integer); begin ClrScr; writeln(akcia); readln(heslik); nacitat('Kontrola hesla', casik); if heslik = heliko then begin konhes := true; end else begin konhes := false; end; end; begin {intro} writeln('###############################################################################'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('############## ####### #### ## ####### ##########################'); writeln('############## ## ##### # ####### ##### #### ##### # ##########################'); writeln('############## ## #### ### ###### #### ###### ### ## ##########################'); writeln('############## ## #### ### ###### ### ######## ##### ##########################'); writeln('############## #### ##### #### ###### ###### ##########################'); writeln('############## ##### ####### #### ##### #### ####### ##########################'); writeln('############## ##### ####### #### ###### ######## ##########################'); writeln('###############################################################################'); writeln('############## #### #### #### ### ## ###### ### ##########'); writeln('############## ## ### ## ### ######## ###### ###### # ##### ###### ############'); writeln('############## ## ### ## ### ######## ###### ###### ## #### ###### ############'); writeln('############## ## ### #### ###### ### #### ### ### ###### ############'); writeln('############## #### # #### ############ ## ###### #### ## ###### ############'); writeln('############## ###### ## ### ############ ## ###### ##### # ###### ############'); writeln('############## ###### ### ## #### ### ## ###### ###### ############'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('###############################################################################'); Delay(2000); writeln('###############################################################################'); writeln('###############################################################################'); Delay(500); writeln('######## ##### ######## ########## ##### #### #############################'); Delay(500); writeln('######## ##### ####### # ######## ########## ### ##############################'); Delay(500); writeln('######## ##### ####### # ####### ########### ## ###############################'); Delay(500); writeln('######## ##### ###### ### ##### ############ ################################'); Delay(500); writeln('######## ###### ### ##### ############ ################################'); Delay(500); writeln('######## ##### ##### ##### #### ############ ## ###############################'); Delay(500); writeln('######## ##### ##### ##### ########### ### ##############################'); Delay(500); writeln('######## ##### #### ####### ##### ########## #### #############################'); Delay(500); writeln('######## ##### #### ####### ###### ##### ##### ############################'); Delay(500); writeln('###############################################################################'); for i:= 1 to 3 do begin Delay(750); ClrScr; writeln('###############################################################################'); writeln('############## #### #### #### ### ## ###### ### ##########'); writeln('############## ## ### ## ### ######## ###### ###### # ##### ###### ############'); writeln('############## ## ### ## ### ######## ###### ###### ## #### ###### ############'); writeln('############## ## ### #### ###### ### #### ### ### ###### ############'); writeln('############## #### # #### ############ ## ###### #### ## ###### ############'); writeln('############## ###### ## ### ############ ## ###### ##### # ###### ############'); writeln('############## ###### ### ## #### ### ## ###### ###### ############'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('######## ##### ######## ########## ##### #### #############################'); writeln('######## ##### ####### # ######## ########## ### ##############################'); writeln('######## ##### ####### # ####### ########### ## ###############################'); writeln('######## ##### ###### ### ##### ############ ################################'); writeln('######## ###### ### ##### ############ ################################'); writeln('######## ##### ##### ##### #### ############ ## ###############################'); writeln('######## ##### ##### ##### ########### ### ##############################'); writeln('######## ##### #### ####### ##### ########## #### #############################'); writeln('######## ##### #### ####### ###### ##### ##### ############################'); writeln('###############################################################################'); writeln('###############################################################################'); writeln('######## #######################################'); writeln('######## Stla¼ pre pokra¼ovanie #######################################'); writeln('######## #######################################'); writeln('###############################################################################'); end; ch := readkey; {Menu} if ch=chr(13) then begin ClrScr; Delay(1500); nacitat('Na¼·tavanie', 300); writeln('Zvolte di heslo ktor‚ budete pou§·va¶ behom hry!! heslo je len pre jednu rel ciu'); Readln(heslo); writeln('Kontrola: zadajte heslo znovu pre kontrolu. Ako heslo ste zvolili: ', heslo); Readln(heslo); {GAME} nacitat('Vytv ranie hry: ', 250); kontrolheslo('Zadaj svoje heslo pre pokra¼ovanie', 100, heslo); if konhes = true then begin writeln('Cing cing...(Zvon· telef¢n) Hal¢ ?'); writeln(''); writeln('Jano ? To si ty ?'); writeln(''); writeln('Peter ? œno to som ja.'); writeln(''); writeln('Potrebujem pomoc !'); writeln(''); writeln('Žo sa stalo ? Zase si sa do nie¼oho zaplietol ?'); writeln(''); writeln('Ist teroristick organiz cia mi ide po krku.'); writeln('Potrebujem aby si hackol p r, no troch viac organiz cii.'); writeln('Ak sa ti to nepodar· tak zomriem ja aj ostatn·: Alex, Domino, aj Faith'); writeln('Ale ak sa ti to podar· zachr niç n s a z·ska¼ obrovsk£ sl vu a bohatstvo'); writeln('Podrobnosti nesk“r'); writeln(''); writeln('Dobre, idem do toho'); writeln('{Stla¼ }'); readln; ClrScr; writeln('No, ako vid·ç tvoj naj kamoç m probl‚mi'); writeln('U§ trochu h–adal a hackoval a naçiel jednu organiz ciu'); writeln('Skrìva sa pod kvetin rstvo'); writeln('Tu s£ £daje ktor‚ ti dal:'); writeln('Meno organiz cie: Kvetin rstvo pod ve§ou'); writeln('Prihlasovacie meno: peto223'); writeln('Heslo: 332457'); writeln('Navrhujem aby si si to rychlo napisal :D'); Delay(7000); ClrScr; writeln('Spomenul si si na "Stì¼ka Googla"'); writeln('Zapol si si http://google.sk'); writeln('Na¶ukal si si : "Kvetin rstvo pod ve§ou"'); writeln('Naçlo ti domovsk£ str nku'); writeln('Otvoril si ju, ale ¼o to nevid·ç ? Oby¼ajn‚ kvetin rstvo.'); writeln('Ale zrazu sa stal z zrak a ty si zbadal prihlasovcie okno...'); Delay(4000); ClrScr; writeln('Prihlasovacie meno: '); readln(mena[1]); if mena[1] = 'peto223' then begin writeln('Prihlasovacie heslo: '); readln(kodiki[3]); if kodiki[3] = 332457 then begin nacitat('Na¼·tavanie str nky', 2000); writeln('Ta d a zo str nky oby¼ajn‚ho kvetin rstva sa stala str nka'); writeln('nebezpe¼nej tajnej organiz cie obchoduj£cej s menami a heslami'); kontrolheslo('Pre hackovanie zadaj heslo', 100, heslo); readln; if konhes = true then begin nacitat('Hackovanie...', 1000); readln; end else begin ClrScr; writeln('Zle !!! koncis !!! Sorry. ;-((hack)'); readln; Delay(2500); end; end else begin ClrScr; writeln('Zle !!! koncis !!! Sorry. ;-((hewslo)'); readln; Delay(2500); end; end else begin ClrScr; writeln('Zle !!! koncis !!! Sorry. ;-((meno)'); readln; Delay(2500); end; end else begin end; end; readln; end.