WebSVN – Kolibri OS – Diff – /programs/network/ircc/ircc.asm

 ;;         GNU GENERAL PUBLIC LICENSE                              ;;
 ;;          Version 2, June 1991                                   ;;
 ;;                                                                 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-version equ '0.19'
+version equ '0.20'
 ; connection status
 STATUS_DISCONNECTED     = 0
         invoke  ini.get_str, path, str_user, str_real, user_real_name, MAX_REAL_LEN, default_real
         invoke  ini.get_str, path, str_user, str_quitmsg, quit_msg, 250, default_quit
 ; Welcome user
         mov     esi, str_welcome
-        call    print_text2
+        call    print_asciiz
 ; Check if parameter contains an URL
         cmp     byte[param], 0
         mov     edi, [window_active]
         cmp     [edi + window.type], WINDOWTYPE_CHANNEL
         jne     .no_update
         call    draw_channel_list
   .no_update:
+        call    highlight_updated_tabs
         jmp     mainloop
         dec     eax
         imul    eax, MAX_NICK_LEN
         mov     ebx, [ebx + window.data_ptr]
         lea     esi, [ebx + window_data.names + eax]
         call    window_open
+        test    ebx, ebx
-        push    [window_print]
+        jz      mainloop
-        pop     [window_active]
+        mov     [window_active], ebx
         call    redraw
         jmp     mainloop
         jb      exit
         cmp     ax, MAX_WINDOWS
+        ja      exit
+; Save users scrollbar position
+        push    [scroll1.position]
+        mov     edx, [window_active]
-        ja      exit
+        pop     [edx + window.users_scroll]
 ; OK, time to switch to another window.
         mov     dx, sizeof.window
         mul     dx
         mov     [window_active], edx
         push    [edx + window.text_line_print]
+        pop     [scroll2.position]
+        push    [edx + window.users_scroll]
-        pop     [scroll2.position]
+        pop     [scroll1.position]
         call    draw_window
 ctcp_time               db '] TIME', 10, 0
 has_left_channel        db ' has left ', 0
 joins_channel           db ' has joined ', 0
 is_now_known_as         db ' is now known as ', 0
-has_quit_irc            db ' has quit IRC.', 10, 0
+has_quit_irc            db ' has quit IRC', 10, 0
 sets_mode               db ' sets mode ', 0
 str_kicked              db ' is kicked from ', 0
 str_by                  db ' by ', 0
 str_nickchange          db 'Nickname is now ', 0
 str_realchange          db 'Real name is now ', 0
 str_talking             db 'Now talking in ', 0
 str_topic               db 'Topic is "', 0
-str_topic_end           db '".', 10, 0
+str_topic_end           db '"', 10, 0
 str_setby               db 'Set by ', 0
 str_connecting          db 3, '3* Connecting to ', 0
 str_sockerr             db 3, '5* Socket error', 10, 0
 str_dnserr              db 3, '5* Unable to resolve hostname', 10, 0
 str_refused             db 3, '5* Connection refused', 10, 0
-str_disconnected        db 3, '5* Server disconnected', 10, 0
-str_reconnect           db 3, '5* Connection reset by user', 10, 0
-str_notconnected        db 3, '5* Not connected to server', 10, 0
+str_disconnected        db 3, '5* Server disconnected', 10, 0
 str_reconnect           db 3, '5* Connection reset by user', 10, 0
+str_notconnected        db 3, '5* Not connected to server', 10, 0
-str_dotnewline          db '.',10, 0
+str_1                   db 3, '13 -', 0
+str_2                   db '- ', 0
+str_list                db 'list', 0
+str_help                db 'The following commands are available:', 10
+                        db 10
+                        db '/nick         : change nickname', 10
+                        db '/real    : change real name', 10
+                        db '/server    : connect to server', 10
+                        db '/code         : change codepage (cp866, cp1251, or utf8)', 10
-str_newline             db 10, 0
+                        db '/join      : join a channel', 10
-str_1                   db 3, '13 -', 0
+                        db '/part      : part from a channel', 10
-str_2                   db '- ', 0
+                        db '/quit               : quit server', 10
-str_help                db 10, 'following commands are available:', 10
-                        db 10
+                        db '/msg          : send a private message', 10
-                        db '/nick         : change nickname to ', 10
+                        db '/ctcp         : send a message using client to client protocol', 10
-                        db '/real    : change real name to ', 10
+                        db 10
-                        db '/server    : connect to server ', 10
+                        db 'Other commands are send straight to server.', 10
 quit_msg        rb 250
 windows         rb MAX_WINDOWS*sizeof.window
-IM_END:

Subversion Repositories Kolibri OS

(root)/programs/network/ircc/ircc.asm – Rev 4622 → 4623