Rev 7090 | Rev 7890 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
3545 | hidnplayr | 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2 | ;; ;; |
||
7300 | hidnplayr | 3 | ;; Copyright (C) KolibriOS team 2004-2018. All rights reserved. ;; |
3545 | hidnplayr | 4 | ;; Distributed under terms of the GNU General Public License ;; |
5 | ;; ;; |
||
6 | ;; IRC client for KolibriOS ;; |
||
7 | ;; ;; |
||
8 | ;; Written by hidnplayr@kolibrios.org, ;; |
||
9 | ;; text encoder/decoder by Clevermouse. ;; |
||
10 | ;; ;; |
||
11 | ;; GNU GENERAL PUBLIC LICENSE ;; |
||
12 | ;; Version 2, June 1991 ;; |
||
13 | ;; ;; |
||
14 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
15 | |||
7300 | hidnplayr | 16 | version equ '0.31' |
3545 | hidnplayr | 17 | |
18 | ; connection status |
||
6023 | hidnplayr | 19 | STATUS_DISCONNECTED = 0 |
20 | STATUS_RESOLVING = 1 |
||
21 | STATUS_CONNECTING = 2 |
||
22 | STATUS_CONNECTED = 3 |
||
6027 | hidnplayr | 23 | STATUS_LOGGED_IN = 4 |
3545 | hidnplayr | 24 | |
25 | ; window flags |
||
6023 | hidnplayr | 26 | FLAG_UPDATED = 1 shl 0 |
27 | FLAG_RECEIVING_NAMES = 1 shl 1 |
||
28 | FLAG_SCROLL_LOW = 1 shl 2 |
||
3545 | hidnplayr | 29 | |
30 | ; window types |
||
6023 | hidnplayr | 31 | WINDOWTYPE_NONE = 0 |
32 | WINDOWTYPE_SERVER = 1 |
||
33 | WINDOWTYPE_CHANNEL = 2 |
||
34 | WINDOWTYPE_CHAT = 3 |
||
35 | WINDOWTYPE_LIST = 4 |
||
36 | WINDOWTYPE_DCC = 5 |
||
3545 | hidnplayr | 37 | |
38 | ; supported encodings |
||
6023 | hidnplayr | 39 | CP866 = 0 |
40 | CP1251 = 1 |
||
41 | UTF8 = 2 |
||
3545 | hidnplayr | 42 | |
43 | ; settings |
||
6023 | hidnplayr | 44 | USERCMD_MAX_SIZE = 400 |
3545 | hidnplayr | 45 | |
6023 | hidnplayr | 46 | WIN_MIN_X = 600 |
6026 | hidnplayr | 47 | WIN_MIN_Y = 183 |
3545 | hidnplayr | 48 | |
6026 | hidnplayr | 49 | TEXT_X = 2 |
6023 | hidnplayr | 50 | TEXT_Y = TOP_Y + 2 |
3545 | hidnplayr | 51 | |
6023 | hidnplayr | 52 | TOP_SPACE = 2 |
53 | TAB_HEIGHT = 14 |
||
54 | TAB_WIDTH = 120 |
||
55 | TAB_SPACE = 5 |
||
56 | TOP_Y = TOP_SPACE+ TAB_HEIGHT |
||
57 | INPUTBOX_HEIGHT = 13 |
||
3545 | hidnplayr | 58 | |
6023 | hidnplayr | 59 | MAX_WINDOWS = 20 |
60 | MAX_USERS = 4096 |
||
61 | TEXT_BUFFERSIZE = 1024*1024 |
||
3545 | hidnplayr | 62 | |
6023 | hidnplayr | 63 | MAX_NICK_LEN = 32 |
64 | MAX_REAL_LEN = 32 ; realname |
||
7300 | hidnplayr | 65 | QUIT_MSG_LEN = 250 |
6023 | hidnplayr | 66 | MAX_SERVER_NAME = 256 |
3545 | hidnplayr | 67 | |
6023 | hidnplayr | 68 | MAX_CHANNEL_LEN = 40 |
69 | MAX_CHANNELS = 37 |
||
3545 | hidnplayr | 70 | |
6023 | hidnplayr | 71 | MAX_COMMAND_LEN = 512 |
3545 | hidnplayr | 72 | |
7300 | hidnplayr | 73 | PACKETBUF_SIZE = 1024 |
74 | PATH_SIZE = 1024 |
||
75 | PARAM_SIZE = 1024 |
||
76 | SERVERCOMMAND_SIZE = 600 |
||
77 | |||
6023 | hidnplayr | 78 | TIMESTAMP = 3 ; 3 = hh:mm:ss, 2 = hh:mm, 0 = no timestamp |
3545 | hidnplayr | 79 | |
6023 | hidnplayr | 80 | MAX_WINDOWNAME_LEN = 256 |
3545 | hidnplayr | 81 | |
6023 | hidnplayr | 82 | WINDOW_BTN_START = 100 |
83 | WINDOW_BTN_CLOSE = 2 |
||
84 | WINDOW_BTN_LIST = 3 |
||
3545 | hidnplayr | 85 | |
6023 | hidnplayr | 86 | SCROLLBAR_WIDTH = 14 |
6026 | hidnplayr | 87 | USERLIST_WIDTH = 160 |
3545 | hidnplayr | 88 | |
6026 | hidnplayr | 89 | FONT_WIDTH = 8 |
90 | FONT_HEIGHT = 16 |
||
3545 | hidnplayr | 91 | |
92 | format binary as "" |
||
93 | |||
94 | use32 |
||
95 | |||
6023 | hidnplayr | 96 | org 0x0 |
3545 | hidnplayr | 97 | |
6023 | hidnplayr | 98 | db 'MENUET01' ; 8 byte id |
99 | dd 1 ; header version |
||
100 | dd START ; program start |
||
101 | dd I_END ; program image size |
||
102 | dd IM_END+2048 ; required amount of memory |
||
103 | dd IM_END+2048 |
||
104 | dd param |
||
105 | dd path |
||
3545 | hidnplayr | 106 | |
3618 | hidnplayr | 107 | include "../../macros.inc" |
108 | include "../../proc32.inc" |
||
109 | include "../../dll.inc" |
||
110 | include "../../network.inc" |
||
111 | include "../../struct.inc" |
||
4477 | hidnplayr | 112 | include "../../develop/libraries/box_lib/trunk/box_lib.mac" |
3545 | hidnplayr | 113 | |
6023 | hidnplayr | 114 | struct window |
115 | data_ptr dd ? |
||
116 | flags db ? |
||
117 | type db ? |
||
118 | name rb MAX_WINDOWNAME_LEN |
||
119 | users dd ? |
||
120 | users_scroll dd ? |
||
121 | selected dd ? ; selected user, 0 if none selected |
||
4143 | hidnplayr | 122 | |
6023 | hidnplayr | 123 | text_start dd ? ; pointer to current textbox data |
124 | text_end dd ? |
||
125 | text_print dd ? ; pointer to first character to print on screen |
||
126 | text_line_print dd ? ; line number of that character |
||
127 | text_write dd ? ; write pointer |
||
128 | text_lines dd ? ; total number of lines |
||
129 | text_scanned dd ? ; pointer to beginning of unscanned data (we still need to count number of lines, insert newline characters,..) |
||
4143 | hidnplayr | 130 | |
3545 | hidnplayr | 131 | ends |
132 | |||
6023 | hidnplayr | 133 | struct window_data |
134 | text rb TEXT_BUFFERSIZE |
||
135 | names rb MAX_NICK_LEN * MAX_USERS |
||
3545 | hidnplayr | 136 | ends |
137 | |||
138 | include "encodings.inc" |
||
4143 | hidnplayr | 139 | include "window.inc" |
3545 | hidnplayr | 140 | include "serverparser.inc" |
141 | include "userparser.inc" |
||
142 | include "socket.inc" |
||
143 | include "gui.inc" |
||
144 | include "users.inc" |
||
4060 | hidnplayr | 145 | include "textbox.inc" |
3545 | hidnplayr | 146 | |
147 | |||
148 | START: |
||
149 | |||
6023 | hidnplayr | 150 | mcall 68, 11 ; init heap so we can allocate memory dynamically |
3545 | hidnplayr | 151 | |
152 | ; wanted events |
||
6023 | hidnplayr | 153 | mcall 40, EVM_REDRAW+EVM_KEY+EVM_BUTTON+EVM_STACK+EVM_MOUSE+EVM_MOUSE_FILTER |
3545 | hidnplayr | 154 | |
155 | ; load libraries |
||
6023 | hidnplayr | 156 | stdcall dll.Load, @IMPORT |
157 | test eax, eax |
||
158 | jnz exit |
||
3545 | hidnplayr | 159 | |
160 | ; find path to main settings file (ircc.ini) |
||
6023 | hidnplayr | 161 | mov edi, path ; Calculate the length of zero-terminated string |
162 | xor al, al |
||
7300 | hidnplayr | 163 | mov ecx, PATH_SIZE |
6023 | hidnplayr | 164 | repne scasb |
165 | dec edi |
||
166 | mov eax, '.ini' |
||
167 | stosd |
||
168 | xor al, al |
||
169 | stosb |
||
3545 | hidnplayr | 170 | |
171 | ; Fill the window buffer with zeros |
||
6023 | hidnplayr | 172 | mov edi, windows |
173 | mov ecx, (sizeof.window*MAX_WINDOWS+3)/4 |
||
174 | xor eax, eax |
||
175 | rep stosd |
||
3545 | hidnplayr | 176 | |
177 | ; clear command area too |
||
6023 | hidnplayr | 178 | mov edi, servercommand |
7300 | hidnplayr | 179 | mov ecx, SERVERCOMMAND_SIZE/4 |
6023 | hidnplayr | 180 | rep stosd |
3545 | hidnplayr | 181 | |
182 | ; allocate window data block |
||
6023 | hidnplayr | 183 | mov ebx, windows |
184 | call window_create_textbox |
||
185 | test eax, eax |
||
7300 | hidnplayr | 186 | jz exit |
6023 | hidnplayr | 187 | mov [ebx + window.type], WINDOWTYPE_SERVER |
3545 | hidnplayr | 188 | |
189 | ; get system colors |
||
6023 | hidnplayr | 190 | mcall 48, 3, colors, 40 |
3545 | hidnplayr | 191 | |
192 | ; set edit box and scrollbar colors |
||
6023 | hidnplayr | 193 | mov eax, [colors.work] |
194 | mov [scroll1.bg_color], eax |
||
195 | mov [scroll2.bg_color], eax |
||
3545 | hidnplayr | 196 | |
6023 | hidnplayr | 197 | mov eax, [colors.work_button] |
198 | mov [scroll1.front_color], eax |
||
199 | mov [scroll2.front_color], eax |
||
3545 | hidnplayr | 200 | |
6023 | hidnplayr | 201 | mov eax, [colors.work_text] |
202 | mov [scroll1.line_color], eax |
||
203 | mov [scroll2.line_color], eax |
||
3545 | hidnplayr | 204 | |
6023 | hidnplayr | 205 | mov [scroll1.type], 1 ; 0 = simple, 1 = skinned |
206 | mov [scroll2.type], 1 |
||
4143 | hidnplayr | 207 | |
3545 | hidnplayr | 208 | ; get settings from ini |
6023 | hidnplayr | 209 | invoke ini.get_str, path, str_user, str_nick, user_nick, MAX_NICK_LEN, default_nick |
210 | invoke ini.get_str, path, str_user, str_real, user_real_name, MAX_REAL_LEN, default_real |
||
211 | invoke ini.get_str, path, str_user, str_quitmsg, quit_msg, 250, default_quit |
||
3545 | hidnplayr | 212 | |
213 | ; Welcome user |
||
6023 | hidnplayr | 214 | mov esi, str_welcome |
215 | call print_asciiz |
||
3545 | hidnplayr | 216 | |
4477 | hidnplayr | 217 | ; Check if parameter contains an URL |
6023 | hidnplayr | 218 | cmp byte[param], 0 |
219 | je @f |
||
220 | mov esi, param |
||
7300 | hidnplayr | 221 | mov ecx, PARAM_SIZE |
6023 | hidnplayr | 222 | call cmd_usr_server.now |
4477 | hidnplayr | 223 | @@: |
3545 | hidnplayr | 224 | |
225 | redraw: |
||
6023 | hidnplayr | 226 | call draw_window |
3545 | hidnplayr | 227 | |
4477 | hidnplayr | 228 | mainloop: |
6023 | hidnplayr | 229 | mcall 10 ; wait for event |
3545 | hidnplayr | 230 | |
6023 | hidnplayr | 231 | dec eax |
232 | jz redraw |
||
3545 | hidnplayr | 233 | |
6023 | hidnplayr | 234 | dec eax |
235 | jz main_window_key |
||
3545 | hidnplayr | 236 | |
6023 | hidnplayr | 237 | dec eax |
238 | jz button |
||
3545 | hidnplayr | 239 | |
6023 | hidnplayr | 240 | cmp al, 3 |
241 | je mouse |
||
3545 | hidnplayr | 242 | |
6023 | hidnplayr | 243 | call process_network_event |
3545 | hidnplayr | 244 | |
6023 | hidnplayr | 245 | mov edi, [window_active] |
246 | test [edi + window.flags], FLAG_UPDATED |
||
247 | jz .no_update |
||
248 | call draw_channel_text |
||
249 | mov edi, [window_active] |
||
250 | cmp [edi + window.type], WINDOWTYPE_CHANNEL |
||
251 | jne .no_update |
||
6026 | hidnplayr | 252 | call draw_user_list |
3545 | hidnplayr | 253 | .no_update: |
6023 | hidnplayr | 254 | call highlight_updated_tabs |
3545 | hidnplayr | 255 | |
6023 | hidnplayr | 256 | jmp mainloop |
3545 | hidnplayr | 257 | |
258 | button: |
||
259 | |||
6023 | hidnplayr | 260 | mcall 17 ; get id |
261 | ror eax, 8 |
||
3545 | hidnplayr | 262 | |
6023 | hidnplayr | 263 | cmp ax, 1 ; close program |
7300 | hidnplayr | 264 | je quit |
3545 | hidnplayr | 265 | |
6023 | hidnplayr | 266 | cmp ax, WINDOW_BTN_CLOSE |
267 | jne @f |
||
268 | call cmd_usr_close_window |
||
269 | jmp mainloop |
||
3981 | hidnplayr | 270 | |
271 | @@: |
||
6023 | hidnplayr | 272 | cmp ax, WINDOW_BTN_LIST |
273 | jne @f |
||
3981 | hidnplayr | 274 | |
6023 | hidnplayr | 275 | push eax |
3981 | hidnplayr | 276 | |
6023 | hidnplayr | 277 | mcall 37, 1 ; Get mouse position |
278 | sub ax, TEXT_Y |
||
279 | mov bl, FONT_HEIGHT |
||
280 | div bl |
||
281 | and eax, 0x000000ff |
||
282 | inc eax |
||
283 | add eax, [scroll1.position] |
||
284 | mov ebx, [window_active] |
||
285 | mov [ebx + window.selected], eax |
||
3545 | hidnplayr | 286 | |
6026 | hidnplayr | 287 | call draw_user_list |
3545 | hidnplayr | 288 | |
6023 | hidnplayr | 289 | pop eax |
290 | test eax, 1 shl 25 ; Right mouse button pressed? |
||
291 | jz mainloop |
||
3981 | hidnplayr | 292 | |
4477 | hidnplayr | 293 | ; TODO: check if selected nick is my nick! |
294 | |||
3981 | hidnplayr | 295 | ; Right mouse BTN was pressed, open chat window |
6023 | hidnplayr | 296 | mov ebx, [window_active] |
297 | mov eax, [ebx + window.selected] |
||
298 | dec eax |
||
299 | imul eax, MAX_NICK_LEN |
||
300 | mov ebx, [ebx + window.data_ptr] |
||
301 | lea esi, [ebx + window_data.names + eax] |
||
7090 | hidnplayr | 302 | ; Strip user prefixes |
303 | cmp byte[esi], '~' |
||
304 | je .inc |
||
305 | cmp byte[esi], '&' |
||
306 | je .inc |
||
307 | cmp byte[esi], '@' |
||
308 | je .inc |
||
309 | cmp byte[esi], '%' |
||
310 | je .inc |
||
311 | cmp byte[esi], '+' |
||
312 | je .inc |
||
313 | .open: |
||
6023 | hidnplayr | 314 | call window_open |
315 | test ebx, ebx |
||
316 | jz mainloop |
||
317 | mov [window_active], ebx |
||
318 | call redraw |
||
3981 | hidnplayr | 319 | |
6023 | hidnplayr | 320 | jmp mainloop |
7090 | hidnplayr | 321 | .inc: |
322 | inc esi |
||
323 | jmp .open |
||
3545 | hidnplayr | 324 | |
325 | @@: |
||
6023 | hidnplayr | 326 | sub ax, WINDOW_BTN_START |
7300 | hidnplayr | 327 | jb quit |
3545 | hidnplayr | 328 | |
6023 | hidnplayr | 329 | cmp ax, MAX_WINDOWS |
7300 | hidnplayr | 330 | ja quit |
3545 | hidnplayr | 331 | |
4623 | hidnplayr | 332 | ; Save users scrollbar position |
6023 | hidnplayr | 333 | push [scroll1.position] |
334 | mov edx, [window_active] |
||
335 | pop [edx + window.users_scroll] |
||
4623 | hidnplayr | 336 | |
4143 | hidnplayr | 337 | ; OK, time to switch to another window. |
6023 | hidnplayr | 338 | mov dx, sizeof.window |
339 | mul dx |
||
340 | shl edx, 16 |
||
341 | mov dx, ax |
||
342 | add edx, windows |
||
343 | cmp [edx + window.type], WINDOWTYPE_NONE |
||
7300 | hidnplayr | 344 | je quit |
6023 | hidnplayr | 345 | mov [window_active], edx |
4143 | hidnplayr | 346 | |
6023 | hidnplayr | 347 | push [edx + window.text_line_print] |
348 | pop [scroll2.position] |
||
4621 | hidnplayr | 349 | |
6023 | hidnplayr | 350 | push [edx + window.users_scroll] |
351 | pop [scroll1.position] |
||
4623 | hidnplayr | 352 | |
6023 | hidnplayr | 353 | call draw_window |
354 | jmp mainloop |
||
3981 | hidnplayr | 355 | |
7300 | hidnplayr | 356 | quit: |
6023 | hidnplayr | 357 | cmp [socketnum], 0 |
358 | je @f |
||
359 | mov esi, quit_msg |
||
360 | call quit_server |
||
3981 | hidnplayr | 361 | @@: |
362 | |||
7300 | hidnplayr | 363 | exit: |
4143 | hidnplayr | 364 | |
7300 | hidnplayr | 365 | ; Close all open windows |
366 | call window_close_all |
||
367 | |||
368 | ; Erase RAM areas which could contain the connection details |
||
369 | xor eax, eax |
||
370 | mov edi, irc_server_name |
||
371 | mov ecx, MAX_SERVER_NAME |
||
372 | rep stosb |
||
373 | |||
374 | mov edi, user_nick |
||
375 | mov ecx, MAX_NICK_LEN |
||
376 | rep stosb |
||
377 | |||
378 | mov edi, user_real_name |
||
379 | mov ecx, MAX_REAL_LEN |
||
380 | rep stosb |
||
381 | |||
382 | mov edi, sockaddr1 |
||
383 | mov ecx, SOCKADDR1_SIZE |
||
384 | rep stosb |
||
385 | |||
6023 | hidnplayr | 386 | mcall -1 |
3545 | hidnplayr | 387 | |
388 | |||
389 | |||
390 | main_window_key: |
||
391 | |||
6023 | hidnplayr | 392 | mcall 2 |
3545 | hidnplayr | 393 | |
6023 | hidnplayr | 394 | push dword edit1 |
395 | call [edit_box_key] |
||
3545 | hidnplayr | 396 | |
4143 | hidnplayr | 397 | ; cmp ah, 178 |
398 | ; jne .no_up |
||
399 | ; |
||
4477 | hidnplayr | 400 | ; jmp mainloop |
4143 | hidnplayr | 401 | ; |
402 | ; |
||
403 | ; .no_up: |
||
404 | ; cmp ah, 177 |
||
405 | ; jne .no_down |
||
406 | ; |
||
4477 | hidnplayr | 407 | ; jmp mainloop |
4143 | hidnplayr | 408 | ; |
409 | ; .no_down: |
||
6023 | hidnplayr | 410 | cmp ah, 13 ; enter |
411 | jne no_send2 |
||
3545 | hidnplayr | 412 | |
6023 | hidnplayr | 413 | call user_parser |
3545 | hidnplayr | 414 | |
6023 | hidnplayr | 415 | mov eax, [edit1.size] |
4143 | hidnplayr | 416 | |
6023 | hidnplayr | 417 | mov [edit1.size], 0 |
418 | mov [edit1.pos], 0 |
||
3545 | hidnplayr | 419 | |
6026 | hidnplayr | 420 | invoke edit_box_draw, edit1 |
3545 | hidnplayr | 421 | |
6023 | hidnplayr | 422 | call draw_channel_text |
3545 | hidnplayr | 423 | |
6023 | hidnplayr | 424 | jmp mainloop |
3545 | hidnplayr | 425 | no_send2: |
426 | |||
6023 | hidnplayr | 427 | jmp mainloop |
3545 | hidnplayr | 428 | |
429 | mouse: |
||
6026 | hidnplayr | 430 | invoke edit_box_mouse, edit1 |
3545 | hidnplayr | 431 | |
4477 | hidnplayr | 432 | ; mcall 37, 7 |
433 | ; movsx eax, ax |
||
434 | ; add [scroll2.position], eax |
||
435 | |||
4143 | hidnplayr | 436 | ; TODO: check if scrollbar is active? |
6023 | hidnplayr | 437 | mov edi, [window_active] |
438 | cmp [edi + window.type], WINDOWTYPE_CHANNEL |
||
439 | jne @f |
||
440 | push [scroll1.position] |
||
6026 | hidnplayr | 441 | invoke scrollbar_mouse, scroll1 |
6023 | hidnplayr | 442 | pop eax |
443 | cmp eax, [scroll1.position] ; did the scrollbar move? |
||
444 | je @f |
||
6026 | hidnplayr | 445 | call draw_user_list |
3545 | hidnplayr | 446 | @@: |
447 | |||
4143 | hidnplayr | 448 | ; TODO: check if scrollbar is active? |
6023 | hidnplayr | 449 | mov edi, [window_active] |
450 | mov eax, [edi + window.text_lines] |
||
451 | cmp eax, [textbox_height] |
||
452 | jbe @f |
||
6026 | hidnplayr | 453 | invoke scrollbar_mouse, scroll2 |
6023 | hidnplayr | 454 | mov edi, [window_active] |
455 | and [edi+window.flags], not FLAG_SCROLL_LOW |
||
456 | mov edx, [scroll2.position] |
||
457 | add edx, [scroll2.cur_area] |
||
458 | sub edx, [scroll2.max_area] |
||
459 | jne .not_low |
||
460 | or [edi+window.flags], FLAG_SCROLL_LOW |
||
4828 | gtament | 461 | .not_low: |
6023 | hidnplayr | 462 | mov edx, [scroll2.position] |
463 | sub edx, [edi + window.text_line_print] |
||
464 | je @f |
||
465 | call draw_channel_text.scroll_to_pos |
||
4143 | hidnplayr | 466 | @@: |
467 | |||
6023 | hidnplayr | 468 | jmp mainloop |
3545 | hidnplayr | 469 | |
470 | |||
471 | ; DATA AREA |
||
472 | |||
473 | encoding_text: |
||
6023 | hidnplayr | 474 | db 'CP866 ' |
475 | db 'CP1251' |
||
476 | db 'UTF-8 ' |
||
3545 | hidnplayr | 477 | encoding_text_len = 6 |
478 | |||
6023 | hidnplayr | 479 | join_header db 3, '3* ', 0 |
480 | quit_header db 3, '5* ', 0 |
||
481 | nick_header db 3, '2* ', 0 |
||
482 | kick_header db 3, '5* ', 0 |
||
483 | mode_header db 3, '2* ', 0 |
||
484 | part_header db 3, '5* ', 0 |
||
485 | topic_header db 3, '3* ', 0 |
||
486 | action_header db 3, '6* ', 0 |
||
487 | ctcp_header db 3, '13-> [', 0 |
||
7300 | hidnplayr | 488 | ctcp_header_recv db 3, '13', 0 |
6023 | hidnplayr | 489 | msg_header db 3, '7-> *', 0 |
490 | ctcp_version db '] VERSION', 10, 0 |
||
491 | ctcp_ping db '] PING', 10, 0 |
||
492 | ctcp_time db '] TIME', 10, 0 |
||
4477 | hidnplayr | 493 | |
6023 | hidnplayr | 494 | has_left_channel db ' has left ', 0 |
495 | joins_channel db ' has joined ', 0 |
||
496 | is_now_known_as db ' is now known as ', 0 |
||
497 | has_quit_irc db ' has quit IRC', 10, 0 |
||
4477 | hidnplayr | 498 | |
6023 | hidnplayr | 499 | sets_mode db ' sets mode ', 0 |
500 | str_kicked db ' is kicked from ', 0 |
||
501 | str_by db ' by ', 0 |
||
502 | str_nickchange db 'Nickname is now ', 0 |
||
503 | str_realchange db 'Real name is now ', 0 |
||
504 | str_talking db 'Now talking in ', 0 |
||
505 | str_topic db 'Topic is "', 0 |
||
506 | str_topic_end db '"', 10, 0 |
||
507 | str_setby db 'Set by ', 0 |
||
3545 | hidnplayr | 508 | |
6023 | hidnplayr | 509 | str_connecting db 3, '3* Connecting to ', 0 |
510 | str_sockerr db 3, '5* Socket error', 10, 0 |
||
511 | str_dnserr db 3, '5* Unable to resolve hostname', 10, 0 |
||
512 | str_refused db 3, '5* Connection refused', 10, 0 |
||
513 | str_srv_disconnected db 3, '5* Server disconnected', 10, 0 |
||
514 | str_disconnected db 3, '5* Disconnected', 10, 0 |
||
515 | str_reconnect db 3, '5* Connection reset by user', 10, 0 |
||
6027 | hidnplayr | 516 | str_notconnected db 3, '5* You are not connected', 10, 0 |
6023 | hidnplayr | 517 | str_notchannel db 3, '5* You are not on a channel', 10, 0 |
6027 | hidnplayr | 518 | str_notloggedin db 3, '5* You are not logged in to the server', 10, 0 |
4477 | hidnplayr | 519 | |
6023 | hidnplayr | 520 | str_1 db 3, '13 -', 0 |
521 | str_2 db '- ', 0 |
||
4477 | hidnplayr | 522 | |
6023 | hidnplayr | 523 | str_list db 'list', 0 |
4623 | hidnplayr | 524 | |
6023 | hidnplayr | 525 | str_help db 'The following commands are available:', 10 |
526 | db 10 |
||
7300 | hidnplayr | 527 | db '/nick |
528 | db '/real |
||
529 | db '/server : connect to server', 10 |
||
530 | db '/code |
||
531 | db '/join |
||
532 | db '/part |
||
533 | db '/quit : quit server', 10 |
||
534 | db '/msg |
||
535 | db '/ctcp |
||
6023 | hidnplayr | 536 | db 10 |
7300 | hidnplayr | 537 | db 'Other commands are sent straight to a server', 10 |
6023 | hidnplayr | 538 | db 10, 0 |
4477 | hidnplayr | 539 | |
6023 | hidnplayr | 540 | str_welcome db 3, '3 ___', 3, '7__________', 3, '6_________ ', 3, '4 __ __ __', 10 |
541 | db 3, '3| \', 3, '7______ \', 3, '6_ ___ \ ', 3, '4 ____ | | |__| ____ _____/ |_', 10 |
||
542 | db 3, '3| |', 3, '7| _/', 3, '6 \ \/ ', 3, '4 _/ ___\| | | |/ __ \ / \ __\', 10 |
||
543 | db 3, '3| |', 3, '7| | \', 3, '6 \____', 3, '4 \ \___| |_| \ ___/| | \ |', 10 |
||
544 | db 3, '3|___|', 3, '7|____|_ /', 3, '6\______ /', 3, '4 \___ >____/__|\___ >___| /__|', 10 |
||
545 | db 3, '3 ', 3, '7 \/ ', 3, '6 \/ ', 3, '4 \/ \/ \/', 10 |
||
546 | db 'Welcome to KolibriOS IRC client ', version, 10 |
||
6026 | hidnplayr | 547 | db 'Type /help for help', 10, 0 |
4477 | hidnplayr | 548 | |
6023 | hidnplayr | 549 | str_version db 'VERSION KolibriOS ' |
550 | str_programname db 'IRC client ', version, 0 |
||
3545 | hidnplayr | 551 | |
6023 | hidnplayr | 552 | str_user db 'user', 0 |
553 | str_nick db 'nick', 0 |
||
554 | str_real db 'realname', 0 |
||
555 | str_email db 'email', 0 |
||
556 | str_quitmsg db 'quitmsg', 0 |
||
3545 | hidnplayr | 557 | |
6023 | hidnplayr | 558 | default_nick db 'kolibri_user', 0 |
559 | default_real db 'Kolibri User', 0 |
||
560 | default_quit db 'KolibriOS forever', 0 |
||
3545 | hidnplayr | 561 | |
6023 | hidnplayr | 562 | irc_colors dd 0xffffff ; 0 white |
563 | dd 0x000000 ; 1 black |
||
564 | dd 0x00007f ; 2 blue (navy) |
||
565 | dd 0x009300 ; 3 green |
||
566 | dd 0xff0000 ; 4 red |
||
567 | dd 0x7f0000 ; 5 brown (maroon) |
||
568 | dd 0x9c009c ; 6 purple |
||
569 | dd 0xfc7f00 ; 7 olive |
||
570 | dd 0xffff00 ; 8 yellow |
||
571 | dd 0x00fc00 ; 9 light green |
||
572 | dd 0x009393 ; 10 teal |
||
573 | dd 0x00ffff ; 11 cyan |
||
574 | dd 0x0000fc ; 12 royal blue |
||
575 | dd 0xff00ff ; 13 pink |
||
576 | dd 0x7f7f7f ; 14 grey |
||
577 | dd 0xd4d0c4 ; 15 light grey (silver) |
||
4143 | hidnplayr | 578 | |
3545 | hidnplayr | 579 | sockaddr1: |
6023 | hidnplayr | 580 | dw AF_INET4 |
581 | .port dw 0x0b1a ; 6667 FIXMEEEEEE |
||
582 | .ip dd 0 |
||
583 | rb 10 |
||
3545 | hidnplayr | 584 | |
7300 | hidnplayr | 585 | SOCKADDR1_SIZE = 18 |
3545 | hidnplayr | 586 | |
6023 | hidnplayr | 587 | status dd STATUS_DISCONNECTED |
3545 | hidnplayr | 588 | |
6023 | hidnplayr | 589 | window_active dd windows |
590 | window_print dd windows |
||
3545 | hidnplayr | 591 | |
592 | align 4 |
||
593 | @IMPORT: |
||
594 | |||
6023 | hidnplayr | 595 | library network, 'network.obj',\ |
596 | libini, 'libini.obj',\ |
||
597 | boxlib, 'box_lib.obj' |
||
3545 | hidnplayr | 598 | |
6023 | hidnplayr | 599 | import network,\ |
600 | getaddrinfo, 'getaddrinfo',\ |
||
601 | freeaddrinfo, 'freeaddrinfo',\ |
||
602 | inet_ntoa, 'inet_ntoa' |
||
3545 | hidnplayr | 603 | |
6023 | hidnplayr | 604 | import libini,\ |
605 | ini.get_str, 'ini_get_str',\ |
||
606 | ini.get_int, 'ini_get_int' |
||
3545 | hidnplayr | 607 | |
6023 | hidnplayr | 608 | import boxlib,\ |
609 | edit_box_draw, 'edit_box',\ |
||
610 | edit_box_key, 'edit_box_key',\ |
||
611 | edit_box_mouse, 'edit_box_mouse',\ |
||
612 | scrollbar_draw, 'scrollbar_v_draw',\ |
||
613 | scrollbar_mouse,'scrollbar_v_mouse' |
||
3545 | hidnplayr | 614 | |
6023 | hidnplayr | 615 | ; width, left, top |
6027 | hidnplayr | 616 | edit1 edit_box 0, 0, 0, 0xffffff, 0x6f9480, 0, 0, 0x000000, USERCMD_MAX_SIZE, input_text, mouse_dd, ed_always_focus, 25, 25 |
6023 | hidnplayr | 617 | ; xsize, xpos, ysize, ypos, btn_height, max, cur, pos, bgcol, frcol, linecol |
4143 | hidnplayr | 618 | scroll1 scrollbar SCROLLBAR_WIDTH, 0, 0, TOP_Y, SCROLLBAR_WIDTH, 0, 0, 0, 0, 0, 0, 1 |
619 | scroll2 scrollbar SCROLLBAR_WIDTH, 0, 0, TOP_Y, SCROLLBAR_WIDTH, 0, 0, 0, 0, 0, 0, 1 |
||
3545 | hidnplayr | 620 | |
6027 | hidnplayr | 621 | input_text db '/server chat.freenode.net', 0 |
6023 | hidnplayr | 622 | rb MAX_COMMAND_LEN |
3618 | hidnplayr | 623 | |
4477 | hidnplayr | 624 | I_END: |
625 | |||
6027 | hidnplayr | 626 | user_command rb MAX_COMMAND_LEN*4 |
627 | .size dd ? |
||
628 | |||
6023 | hidnplayr | 629 | utf8_bytes_rest dd ? ; bytes rest in current UTF8 sequence |
630 | utf8_char dd ? ; first bits of current UTF8 character |
||
4477 | hidnplayr | 631 | |
7300 | hidnplayr | 632 | packetbuf rb PACKETBUF_SIZE ; buffer for packets to server |
633 | path rb PATH_SIZE |
||
634 | param rb PARAM_SIZE |
||
3545 | hidnplayr | 635 | |
7300 | hidnplayr | 636 | servercommand rb SERVERCOMMAND_SIZE |
3545 | hidnplayr | 637 | |
6023 | hidnplayr | 638 | thread_info process_information |
639 | xsize dd ? |
||
640 | ysize dd ? |
||
641 | mouse_dd dd ? |
||
3545 | hidnplayr | 642 | |
6023 | hidnplayr | 643 | textbox_height dd ? ; in characters |
644 | textbox_width dd ? ; in characters, not pixels ;) |
||
4621 | hidnplayr | 645 | |
6023 | hidnplayr | 646 | colors system_colors |
3545 | hidnplayr | 647 | |
6023 | hidnplayr | 648 | irc_server_name rb MAX_SERVER_NAME ; TODO: move this server URL into window struct |
649 | socketnum dd ? ; TODO: same for socket |
||
3545 | hidnplayr | 650 | |
6023 | hidnplayr | 651 | user_nick rb MAX_NICK_LEN |
652 | user_real_name rb MAX_REAL_LEN |
||
7300 | hidnplayr | 653 | quit_msg rb QUIT_MSG_LEN |
3545 | hidnplayr | 654 | |
6023 | hidnplayr | 655 | windows rb MAX_WINDOWS*sizeof.window |
3545 | hidnplayr | 656 | |
4623 | hidnplayr | 657 | IM_END: |