kolibrios-fun/programs/media/scrshoot/scrwin.inc

54 lines
1.3 KiB
PHP
Raw Normal View History

;====================================================================
;===== <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ===========================================
;====================================================================
scr_window:
.start:
.red:
call .draw_window
.still:
wait_event .red, .close
jmp .still
.draw_window:
start_draw_window
xor eax,eax
movsx ebx,word [scr.width]
movsx ecx,word [scr.height]
;xor edx,edx
mov edx,0x01000000
xor esi,esi
xor edi,edi
mcall
mov eax,7
mov ebx,dword [scr_buf.ptr]
mov ecx,dword [scr_buf.size]
xor edx,edx
mcall
mov eax,13
mov ebx,19*65536+231
mov ecx,19*65536+10
mov edx,0x00FF00
mcall
mov edi,.label
call draw_label
stop_draw_window
ret
.close:
bt word [ch3.flags],1 ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ?
jnc @f
mov eax,60
mov ebx,2
mov ecx,[app.pid]
mov edx,messages.act_window
mov esi,2
mcall
@@:
jmp close
.label label 20,20,0x80000000,keyforexit