1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
{
}
//{$mode objfpc}
{$INLINE OFF}
{$ifdef FPC_PROFILE}
{$INLINE OFF}
{$endif FPC_PROFILE}
program firework;
uses
ncurses;
CONST
my_bg = COLOR_BLACK;
Procedure showit;
begin
refresh;
napms(120);
end;
Function get_colour(Var bold : chtype) : longint;
Var
attr : longint;
begin
attr:=random(16) + 1;
bold:=A_NORMAL;
if (attr > 8) then
begin
bold:=A_BOLD;
attr:=attr and 7;
end;
get_colour:=attr;
end;
Procedure explode(Row,Col : longint);
var
Bold : chtype;
begin
ncurses.erase;
mvaddstr(row,col,'-');
showit;
init_pair(1,get_colour(bold),my_bg);
attrset(COLOR_PAIR(1) or bold);
mvaddstr(row-1,col-1,' - ');
mvaddstr(row,col-1,'-+-');
mvaddstr(row+1,col-1,' - ');
showit;
init_pair(1,get_colour(bold),my_bg);
attrset(COLOR_PAIR(1) or bold);
mvaddstr(row-2,col-2,' --- ');
mvaddstr(row-1,col-2,'-+++-');
mvaddstr(row, col-2,'-+#+-');
mvaddstr(row+1,col-2,'-+++-');
mvaddstr(row+2,col-2,' --- ');
showit;
init_pair(1,get_colour(bold),my_bg);
attrset(COLOR_PAIR(1) or bold);
mvaddstr(row-2,col-2,' +++ ');
mvaddstr(row-1,col-2,'++#++');
mvaddstr(row, col-2,'+# #+');
mvaddstr(row+1,col-2,'++#++');
mvaddstr(row+2,col-2,' +++ ');
showit;
init_pair(1,get_colour(bold),my_bg);
attrset(COLOR_PAIR(1) or bold);
mvaddstr(row-2,col-2,' # ');
mvaddstr(row-1,col-2,'## ##');
mvaddstr(row, col-2,'# #');
mvaddstr(row+1,col-2,'## ##');
mvaddstr(row+2,col-2,' # ');
showit;
init_pair(1,get_colour(bold),my_bg);
attrset(COLOR_PAIR(1) or bold);
mvaddstr(row-2,col-2,' # # ');
mvaddstr(row-1,col-2,'# #');
mvaddstr(row, col-2,' ');
mvaddstr(row+1,col-2,'# #');
mvaddstr(row+2,col-2,' # # ');
showit;
end;
Var
startp,endp,row,diff,flag : longint;
direction : boolean;
begin
flag:=0;
initscr;
//if (has_colors<>0) then
if has_colors then
start_color;
curs_set(0);
randomize;
cbreak;
nodelay(stdscr, true);
While getch=ERR do
begin
repeat
startp:=random (COLS -3);
endp:=random (COLS - 3);
If startp < 2 then
startp:=2;
If endp <2 then
endp:=2;
direction:=startp > endp ;
diff:=abs(startp-endp);
until (diff>2) and (diff<(LINES-2));
attrset(A_NORMAL);
for row:=0 to diff do
begin;
If direction then
mvaddstr(LINES - row,startp + row ,'/')
else
mvaddstr(LINES - row,startp - row ,'\');
inc(flag);
if flag<>0 then
begin
showit;
erase;
flag:=0;
end;
end;
inc(flag);
if (flag<>0) then
begin
showit;
flag:=0;
end;
randomize;
If Direction then
explode(LINES-row,startp+diff)
Else
explode(LINES-row,startp-diff);
erase;
showit;
end;
endwin();
halt(0);
end.
|
