V tejto textovej hre sa zahráte na hackera

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorů)

Autor: Patrik Benyak
web: pato1.ic.cz

Program: Hack.pas
Soubor exe: Hack.exe

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.
{ 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ź <ENTER> 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ź <ENTER>}');
 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.