Necrosoft Office

Матеріал з Інциклопедії — вільної від здорового глузду енциклопедії
Перейти до: навігація, пошук
Stub.png

Ця стаття недописана
Можливо, автор поклав на це діло.
Ви можете допомогти Інциклопедії, дописавши її.

Опис Офісу[псув.]

Перша версія Некрософт Офісу з’явилася у часи NS-DOShки і відтоді змінилася настільки, що тепер вона написана на удоскоглючній мові NECROLANG, глючить при написанні першого ж символу, при роздрукуванні фрази «Necrosoft — козли» форматує всі диски, знищує БІОС, материнку, пам’ять, проц, блок живлення, корпус, а потім користувача разом з кімнатою — все це зроблено в новішій версії Некрософт Офіс 666!

Цілі створення[псув.]

  • Заробити побільше грошей (програма коштуватиме 20000 некротугриків).
  • Роздрукувати побільше пекельних текстів (тільки пекельні тексти друкуются всього лиш з 10 000 глюками).

Виточник[псув.]

Написаний на пекельно креативній мові НЕКРОЛАНГ.

 //Necrosoft Office 666 
 //TOP SECRET CODE
 //PRICE: 2000 NecroTougricks
 necro-soft program(Necrosoft Office);
 include uses: errors,prints,pekelni-texty,necrosft-*errors,format,crashes;
 go
 procedure MainWindow.Show(Mistake:TError)
 go
 Mistake := errormessages(while(60000900));
 Show(TTextEnter,TBatonPrint);
 Mistake := Always(errormessages);
 stop;
 procedure TTextEnter.EditText(Mistake: TError);
 var error: TInteger;
 go
 error := Random(19000000000);
 if error=0 then TTextEnter.Write(tkeyboard.klavishi)
 else Mistake := format C:(now,fastest);
 stop;
 procedure TBatonPrint.Click(Mistake: TError)
 go
 if TTextEnter.Text=Necrosoft - kozly then
 Mistake := (TFormatAllDisk,TCrashMotherboard,TCrashMemory,TCrashCPU,TCrashSysBlock,TFire);
 if TTextEnter=justtext then
 begin
 if Random(5210000)<>0 then Mistake := Format C:
 else Print(someletters);
 if TTextEnter=pekelnyj-text then Mistake := one of 10000;
 Print(pekelnyj-text) 
 end; 
 stop;
 stop.