Subversion Repositories Kolibri OS

; compiler:     FASM 1.67.21

; name:         ICQ client for Kolibri

; version:      0.1.30

; written by:   LV

; e-mail:       lv4evil@yandex.ru

include "lang.inc"

include "MACROS.INC"

;purge mov

;include "ASCL9/ascl.inc"

;include "debug.inc"

include "editbox.inc"

MEOS_APP_START

;include "debug.inc"

include "2000.inc"

include "comp.inc"

;include "fsio.inc"

include "dos2win.inc"

include "parser.inc"

include "ssi.inc"

use_edit_box procinfo,22,5

;

; �᫨ == 0, ��� ��� �ᯮ�짮����� ���⠪� ����

; �� �ࢥ� �� ��ᥬ��������

;

USE_SSI = 1

;

;

CODE

    ;mov eax, 40

    ;mov ebx, 47h

    ;int 40h

    ;

    ; ����㧪� ���䨣��

    ;

    mov  eax, fname

    call    parseconf

    ;

    ; �뢮� ����㦥���� ���ଠ樨

    ;

    mov eax, cfg_message

    xor ebx, ebx

    call writemsg

    call showcfg

    ;call    loaduin

    call    draw_window 	   ; at first create and draw the window

    ;call    buttonbox

  wait_event:			   ; main cycle

    ;mov     eax, 23

    ;mov     ebx, 20

    ;int     0x40

    mcall 23,20

    cmp     eax, 1		   ;   if event == 1

    je	    redraw		   ;     jump to redraw handler

    cmp     eax, 2		   ;   else if event == 2

    je	    key 		   ;     jump to key handler

    cmp     eax, 3		   ;   else if event == 3

    je	    button		   ;     jump to button handler

    ;

    ; ���� ������

    ;

    mcall 53,2,[socket]

    cmp     eax, 0

    jnz     read_socket

    mouse_edit_box inputbox

    ;

    ; �᫨ ���� ᮥ������� � �ࢥ஬, ���뫠�� ������ - ���⢥������ ����� 60 �

    ; �� �ॡ����

;    call    sendkeep

    jmp     wait_event		   ;   else return to the start of main cycle

  redraw:			   ; redraw event handler

    call    draw_window

    jmp     wait_event

  key:				   ; get key code

    mcall 2

    cmp ah, 0Dh                    ; �஡�� - ��ࠢ��� ᮮ�饭��

    jz send

    key_edit_box inputbox

    jmp     wait_event

  button:			   ; button event handler

    ;mov     eax, 17		   ;   get button identifier

    ;int     0x40

    mcall 17

    cmp     ah, 2

    jz      connect

    cmp     ah, 3

    jz      disconnect

    cmp     ah, 4

    jz      send

    ;

    ; �஢��塞, �� ����� �� ������ � ��

    ; 100 

    cmp ah, UINS+100

    jnc @f

    cmp ah, 100

    jc @f

    ;

    ; �����

    ;

    sub ah, 100

    mov [curruser], ah

    ;

    ; �뢮��� �����, ����

    ;

    shr eax, 8

    and eax, 000000FFh

    push eax

    mov eax, CUSER

    call strlen

    mov ecx, eax

    mov eax, CUSER

    mov ebx, buff

    call strcpy

    pop eax

    mov ebx, NAME_LEN

    imul ebx, eax

    lea eax, [names + ebx]

    mov [buff + ecx], ' ' ; �஡��

    lea ebx, [buff + ecx + 1]

    mov ecx, NAME_LEN

    ;debug

     push ebx

     mov ebx, NAME_LEN

     call print_mem

     pop ebx

    ;

    call strcpy

    mov eax, buff

    xor ebx, ebx

    call writemsg

  @@:

    cmp     ah, 1

    jne     wait_event		   ;   return if button id != 1

    ;   exit application

    mcall -1

  draw_window:

    ; start drawing

    mcall 12,1

    mcall 0,(100*65536+700),(100*65536+500),0x14ffffff,0,head

    draw_edit_box inputbox

    rect 10, 30, 500, 450, 0

    draw_button 600, 460, 60, 15, 2, 'CONNECT'

    ;draw_button 600, 460, 60, 15, 3, 'Disconnect'

    draw_button 530, 460, 60, 15, 4, 'SEND'

    call    printbuff

    call    buttonbox

    ;

    ; Image

    ;

    ;mov eax, 7

    ;mov ebx, redicq

    ;mov ecx, 15*65536+15

    ;mov edx, 100*65536+100

    ;int 40h

   ; finish drawing

   mcall 12,2

  ret

;

;  ����������

;

  connect:

  lea eax, [vtable + vartable.icqip]

  call ip_parser

  call htonl

  data_debug 'IP:', eax

  ;mov eax, ICQ_IP

  mov ebx, ICQ_PORT

  call srv_connect

  jmp wait_event

;

;

;

  disconnect:

  mov ecx, [socket]

  call closesocket

  jmp wait_event