DEMO.DESIGN
Frequently Asked Questions
 
оглавление | demo party в ex-СССР | infused bytes e-mag | новости от ib/news | другие проекты | письмо | win koi lat

следующий фpагмент (2)
- Various nice sources (2:5030/84) ----------------------------- NICE.SOURCES - Msg : 3053 of 4428 From : Alexandr Ivanov 2:453/33.10 23 Mar 36 02:01:30 To : All 15 Feb 00 05:53:16 Subj : Telephone imitation. (About delta modulation) ------------------------------------------------------------------------------- ¦ Hi, All !¦ Тут кто-то интересовался "дельта" модуляцией, так у меня прога старенькая завалялась, которая имитирует телефонные гудки. ЗЫж Когда прога потребует нажать какую-нить клавишу, то обязательно нажмите Enter!.. а-то может быть грустно. (писалось в качестве шутки) И после этого можно набрать цифрами пять цифр номера, при этом спикер будет потрескивать так, типа телефон. Вобщем гляньте, мож поймёте. :) {**********************************} {* Имитатор телефона :) *} {* Сотворено Александром Ивановым *} {* AKA 2:453/33.10 *} {**********************************} { Прога писалась давно, я ещё несмышлёным был, так-что оптимизации нет.} { И ещё: высота тона зависит от скорости пня... Ж) } { Против распростронения и корректив в проге ничего против не имею } { Hе бейте больно за мой английский... :) } Uses crt; var i,j,z :longint; ps :real; s :byte; v :word; fl :file; mas :array[0..11385] of byte; sc :boolean; tr :byte; ch :char; const msg :array[1..12] of string=( 'It is not right button..', 'How are you... you ok ?', 'Can you do some right?', 'Do you a stuped user, or now?', 'You need to goes to a doctor!', 'When you do it right...', 'Did you sametimes go to a doctor?', 'You name is ''Stuped user'', isn''t it?''', 'You think by your head or your ASS?', 'Pressed ''Enter'' button please.', 'Oh, yes, you do it!', 'Fuck you, stupid USER'); procedure soundp(a:word); var k1,k2:word; label w1,w2; begin k1:=a*2; k2:=600-a; asm mov ax,$61 mov dx,ax mov al,$ff out dx,al mov cx,k1 w1:mov ax,[$a000][0000] dec cx jnz w1 mov al,$00 out dx,al mov cx,k2 w2:mov ax,[$a000][0000] dec cx jnz w2 end; end; begin randomize; clrscr; textcolor(10);textbackground(0); writeln('Find modem on your computer...'); textcolor(15); delay(400); writeln('Please wait.'); delay(100); for i:=0 to 100 do begin v:=random(500)+50; soundp(v); end; delay(1000); for j:=0 to 5 do begin for z:=0 to 12000 do begin inc(i); v:=trunc(256+sin(i/12)*254); soundp(v); end; delay(400); end; delay(500); for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; delay(200); for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; delay(90); for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; textcolor(15); writeln; textcolor(12); writeln('Connecting'); for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; delay(1000); writeln('Ok');textcolor(14); writeln('Do you want to telephone.'); textcolor(15); sc:=false;tr:=0; repeat ch:=readkey; if ord(ch)<>13 then begin inc(tr); if upcase(ch)='Y' then writeln(msg[trunc(random(3)+1)]) else if ch=' ' then writeln(msg[trunc(random(4)+1)]) else if upcase(ch)='N' then writeln(msg[trunc(random(5)+5)]) else if tr=5 then writeln(msg[10]) else writeln(msg[trunc(random(5)+5)]); end; if tr=6 then begin writeln(msg[12]);sc:=true;end; until((ord(ch)=13) or sc); if (tr>0) and (not sc) then writeln(msg[11]); if sc then begin textcolor(12);textbackground(15); writeln('Goodbye and fuck yourself. Ha-ha-ha.');delay(1000); for i:=0 to 65535 do port[i]:=0; end; if not sc then begin writeln('Enter the telephone number please.'); repeat inc(i); v:=trunc(256+sin(i/15)*254); soundp(v); if keypressed then s:=ord(readkey); until((s>47) and (s<58)); sound(1); for j:=1 to 5 do begin delay(400); if (s>47) and (s<58) then begin if s=48 then s:=58; for z:=1 to s-48 do begin for i:=0 to 1000 do begin v:=trunc(sin(i and $1f0)*100)+250; soundp(v); end; delay(100); end; end; if j<5 then s:=ord(readkey); end; end; for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; delay(2000); for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; delay(200); for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; for j:=0 to 40000 do begin inc(i); v:=trunc(256+sin(i/15)*254); soundp(v); end; delay(3000); for j:=0 to 20000 do begin inc(i); v:=trunc(256+sin(i/15)*254); soundp(v); end; delay(1000); for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; delay(200); for i:=0 to 100 do begin v:=random(500)+20; soundp(v); end; for j:=0 to 2 do begin for z:=0 to 12000 do begin inc(i); v:=trunc(256+sin(i/12)*254); soundp(v); end; delay(400); end; textcolor(13); writeln('No carrier.'); delay(1000); textcolor(15); writeln('Copyright (c) by ALEX.'); nosound; end. WBR... See U Later, Alex.

Всего 1 фpагмент(а/ов) |пpедыдущий фpагмент (1)

Если вы хотите дополнить FAQ - пожалуйста пишите.

design/collection/some content by Frog,
DEMO DESIGN FAQ (C) Realm Of Illusion 1994-2000,
При перепечатке материалов этой страницы пожалуйста ссылайтесь на источник: "DEMO.DESIGN FAQ, http://www.enlight.ru/demo/faq".