delete cmm/ttf_viewer, upload Almaz game (unplayable because player can't move to the top)

git-svn-id: svn://kolibrios.org@6218 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/cmm/eolite/include/about.h

@@ -3,25 +3,19 @@
 #define BROWSER_PATH    "/sys/network/webview"
 #define BROWSER_LINK    "http://kolibri-n.org/inf/eolite/eolite_p1"
 
-#ifdef LANG_RUS
-	?define DEVELOPERS_TEXT "<EFBFBD> §à ¡®â稪¨:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016"
-	?define CLOSE_BUTTON_TEXT "‡ ªàëâì"
-#else
-	?define DEVELOPERS_TEXT "Developers:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016"
-	?define CLOSE_BUTTON_TEXT "Close"
-#endif
 
 void about_dialog()
 {   
 	byte id;
 	proc_info about_form;
+	int about_x;
 
 	if (active_about) {cmd_free=2;ExitProcess();} else active_about=1;
 	loop() switch(WaitEvent())
 	{
 		case evButton: 
 				id=GetButtonID();
-				IF (id==1) || (id==10) 
+				IF (id==1)
 				{
 					active_about=0;
 					cmd_free = 2;
@@ -40,17 +34,18 @@ void about_dialog()
 				break;
 				
 		case evReDraw:
-				DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,440,200+GetSkinHeight(),0x34,system.color.work,0);
+				DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,310,300+GetSkinHeight(),0x34,system.color.work,0);
 				GetProcessInfo(#about_form, SelfInfo);
 				if (about_form.status_window>2) break;
 				logo_pal[0] = system.color.work;
-				PutPaletteImage(#logo,86,86,10,23,8,#logo_pal);
+				PutPaletteImage(#logo,86,86,about_form.cwidth-86/2,10,8,#logo_pal);
-				WriteTextB(112,16,0x82,0xD49CD2,ABOUT_TITLE);
+				about_x = -strlen(ABOUT_TITLE)*18+about_form.cwidth/2;
-				WriteTextB(110,14,0x82,0xBF40BF,ABOUT_TITLE);
+				WriteTextB(about_x+2,107,0x82,0xD49CD2,ABOUT_TITLE);
-				WriteTextLines(110,53,10010000b,0,DEVELOPERS_TEXT,21);
+				WriteTextB(about_x,105,0x82,0x9D129D,ABOUT_TITLE);
+				DrawRectangle3D(0,154,about_form.cwidth/5*3,1,system.color.work_dark,system.color.work_light);
+				WriteTextLines(7,163,0x90,system.color.work_text,"KolibriOS File Manager\nAuthors: Leency, Veliant\nPunkJoker, Pavelyakov\n(c) 2008 - 2016",20);
 				#ifdef LANG_RUS
-				DrawFlatButton(about_form.cwidth-310,about_form.cheight-38,180,26,11,"ˆáâ®à¨ï ࠧࠡ®âª¨");
+				DrawFlatButton(about_form.cwidth-180/2,about_form.cheight-38,180,26,11,"ˆáâ®à¨ï ࠧࠡ®âª¨");
 				#endif
-				DrawFlatButton(about_form.cwidth-110,about_form.cheight-38, 90,26,10,CLOSE_BUTTON_TEXT);
 	}
 }

programs/cmm/ttf_viewer/compile_en.bat

@@ -1,11 +0,0 @@
-@del lang.h--
-@echo #define LANG_ENG 1 >lang.h--
-
-@del ttf_viewer
-cls
-c-- ttf_viewer.c
-@rename ttf_viewer.com ttf_viewer
-@del warning.txt
-@del lang.h--
-@pause
-kpack ttf_viewer

programs/cmm/ttf_viewer/compile_ru.bat

@@ -1,11 +0,0 @@
-@del lang.h--
-@echo #define LANG_RUS 1 >lang.h--
-
-@del ttf_viewer
-cls
-c-- ttf_viewer.c
-@rename ttf_viewer.com ttf_viewer
-@del warning.txt
-@del lang.h--
-@pause
-kpack ttf_viewer

programs/cmm/ttf_viewer/ttf_viewer.c

@@ -1,111 +0,0 @@
-#ifndef AUTOBUILD
-#include "lang.h--"
-#endif
-
-#define MEMSIZE 397113
-#include "..\lib\strings.h" 
-#include "..\lib\mem.h" 
-#include "..\lib\file_system.h"
-#include "..\lib\gui.h"
-#include "..\lib\obj\truetype.h"
-#include "..\lib\obj\proc_lib.h"
-#include "..\lib\patterns\simple_open_dialog.h"
-
-char default_dir[] = "/rd/1";
-od_filter filter2 = {"TTF",0};
-
-dword font_data;
-stbtt_fontinfo font_info;
-dword font_mem;
-
-proc_info Form;
-char test_text[] = "The quick brown fox jumps over the lazy dog";
-char win_title[4096] = "TTF Viewer v0.1 - ";
-
-#ifdef LANG_RUS
-	?define T_INTRO "<EFBFBD>â® ¯à®áâ ï ¯à®£à ¬¬  ¤«ï ¯à®á¬®âà  èà¨ä⮢ ä®à¬ â  TTF"
-	?define T_INTRO_BUTTON_TEXT "Žâªàëâì èà¨äâ"
-#else
-	?define T_INTRO "This is simple program to view TTF fonts."
-	?define T_INTRO_BUTTON_TEXT "Open font"
-#endif
-
-
-void main()
-{
-	int id, key;
-
-	load_dll(libtruetype, #truetype, 1);
-	load_dll(Proc_lib, #OpenDialog_init,0);
-	OpenDialog_init stdcall (#o_dialog);
-
-	if (param[0]) OpenFont(#param);
-
-	loop()
-   {
-      switch(WaitEvent())
-      {	
-         case evButton:
-            id=GetButtonID();               
-            if (id==1) ExitProcess();
-			if (id==10)
-			{
-			OpenDialog_start stdcall (#o_dialog);
-			OpenFont(#openfile_path);
-			}
-			break;
-      
-        case evKey:
-			key = GetKey();
-			break;
-         
-         case evReDraw:
-			draw_window();
-      }
-   }
-}
-
-
-void draw_window()
-{
-	system.color.get();
-	DefineAndDrawWindow(30, 100, 800, 250+GetSkinHeight(), 0x34, 0xFFFfff, #win_title);
-	GetProcessInfo(#Form, SelfInfo);
-	DrawFonts();	
-}
-
-
-word DrawFonts()
-{
-	if (!font_data) 
-	{
-		WriteTextCenter(0,85,Form.cwidth,0x555555, T_INTRO);
-		DrawCaptButton(Form.cwidth - 140 / 2, Form.cheight - 30 / 2, 140, 30, 10, system.color.work_button, system.color.work_button_text, T_INTRO_BUTTON_TEXT);
-		return;
-	}
-	text_out stdcall (#test_text, #font_info, 10, 0x000000, 0xFFFfff, 3, 4);
-	text_out stdcall (#test_text, #font_info, 12, 0x000000, 0xFFFfff, 3, 18);
-	text_out stdcall (#test_text, #font_info, 24, 0x000000, 0xFFFfff, 3, 35);
-	text_out stdcall (#test_text, #font_info, 36, 0x000000, 0xFFFfff, 3, 60);
-	text_out stdcall (#test_text, #font_info, 48, 0x000000, 0xFFFfff, 3, 110);
-	text_out stdcall (#test_text, #font_info, 58, 0x000000, 0xFFFfff, 3, 170);
-}
-
-
-void OpenFont(dword font_path) 
-{
-	BDVK FontFile_atr;
-	GetFileInfo(font_path, #FontFile_atr);
-	font_data = malloc(FontFile_atr.sizelo);
-	ReadFile(0, FontFile_atr.sizelo, #font_data, font_path);
-	init_font stdcall (#font_info, #font_data);
-	if (EAX==0)
-	{
-		font_data = 0;
-		notify("'Can\096t open font: init_font failed' - E");
-	}
-	strcpy(#win_title + 18, font_path);
-	draw_window();
-}
-
-stop:

programs/games/almaz/ASCL.INC

@@ -0,0 +1,835 @@
+lang equ ru ; ru en fr ge fi
+
+;
+;   Assembler
+;     SMALL
+;       CODE
+;         Libary
+;
+;  Ver 0.14 By Pavlushin Evgeni (RUSSIA)
+;  www.waptap@mail.ru
+
+;Please compile aplications on FASM ver1.54 or higer!!!
+
+;InfoList
+;0.01 scank,putpix,puttxt
+;0.02 label,random,colors
+;0.03 window,startwd,endwd,attributes
+;0.04 close,delay,scevent ~30.04.2004
+;0.05 small random, ~04.05.2004
+;0.06 wtevent ~09.05.2004
+;0.07 timeevent ~23.05.2004
+;0.08 txtput ~14.06.2004
+;0.09 opendialog,savedialog ~20.06.2004
+;0.10 wordstoreg by halyavin, add at ~30.08.2004
+; random bug deleted eax is use.
+;0.11 loadfile from me +puttxt bug del ~07.09.2004
+;0.12 open/save dialog ~13.09.2004
+;0.13 dialogs bugs deleted
+;0.14 drawlbut ~03.10.2004
+
+; LOADFILE
+; (SYNTAX)  LOADFILE 'full_path_to_file',file_load_area,file_temp_area
+; (SAMPLE)  LOADFILE '/rd/1/clock.bmp',load_area,temp_area
+
+macro loadfile file_name,file_load_area,file_temp_area
+{
+local open,fileinfo,string
+    jmp open
+fileinfo:
+    dd 0
+    dd 0
+    dd 1
+    dd file_load_area
+    dd file_temp_area
+string:
+    db file_name,0
+open:
+    mov  dword [fileinfo+8],1 ; how many blocks to read (1)
+    mov  eax,58
+    mov  ebx,fileinfo
+    int  0x40
+    mov  eax,[file_load_area+2]
+    shr  eax,9 ; ¯®¤¥«¨¬ ­  512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ã稬 ç¨á«® ¡«®ª®¢
+    inc  eax
+    mov  dword [fileinfo+8],eax
+    mov  eax,58
+    mov  ebx,fileinfo
+    int  0x40
+}
+
+
+macro wordstoreg reg,hiword,loword
+{
+if  hiword eqtype 0 & loword eqtype 0
+    mov  reg,hiword*65536+loword
+else if hiword eqtype 12 & loword eqtype eax
+    mov  reg,hiword*65536
+    add  reg,loword
+else if hiword eqtype 12 & loword eqtype [123]
+    mov  reg,hiword*65536
+    add  reg,loword
+else
+    mov  reg,hiword
+    shl  reg,16
+    add  reg,loword
+end if
+}
+
+
+; DRAW BUTTON with label
+
+macro drawlbut x,y,xs,ys,text,id,bcolor,tcolor
+{
+local asd,lab
+    jmp asd
+lab db  text                 ;arg label
+asd:
+    wordstoreg ebx,x,xs
+    wordstoreg ecx,y,ys
+    mov edx,id
+    mov esi,bcolor
+    mov eax,8
+    int 0x40
+
+    mov eax,asd-lab          ;calc size
+    mov ebx,6
+    mul ebx
+    mov esi,eax
+
+    mov eax,xs
+    sub eax,esi
+    shr eax,1
+    add eax,x
+
+    mov edx,ys
+    sub edx,7
+    shr edx,1
+    add edx,y
+
+    mov ebx,eax
+    shl ebx,16
+    add ebx,edx
+
+    mov ecx,tcolor             ;arg4 color
+    mov edx,lab
+    mov esi,asd-lab          ;calc size
+    mov eax,4
+    int 0x40
+}
+
+
+macro opendialog redproc,openoff,erroff,path
+{
+local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
+local run_fileinfo, param
+local getmesloop, loox, mred, mkey, mbutton, mgetmes
+local dlg_is_work, ready, procinfo
+;
+; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
+; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
+;
+
+    cld
+;;    mov esi,path
+    mov edi,path
+    mov eax,0
+    mov ecx,200
+    rep stosb
+
+;mov [get_loops],0
+mov [dlg_pid_get],0
+
+; Get my PID in dec format 4 bytes
+    mov eax,9
+    mov ebx,procinfo
+    mov ecx,-1
+    int 0x40
+
+; convert eax bin to param dec
+    mov eax,dword [procinfo+30]  ;offset of myPID
+    mov edi,param+4-1            ;offset to 4 bytes
+    mov ecx,4
+    mov ebx,10
+    cld
+new_d:
+    xor edx,edx
+    div ebx
+    add dl,'0'
+    mov [edi],dl
+    dec edi
+    loop new_d
+
+; wirite 1 byte space to param
+    mov [param+4],byte 32    ;Space for next parametr
+; and 1 byte type of dialog to param
+    mov [param+5],byte 'O'   ;Get Open dialog (Use 'S' for Save dialog)
+
+;
+; STEP2 prepare IPC area for get messages
+;
+
+; prepare IPC area
+    mov [path],dword 0
+    mov [path+4],dword 8
+
+; define IPC memory
+    mov eax,60
+    mov ebx,1        ; define IPC
+    mov ecx,path     ; offset of area
+    mov edx,150      ; size 150 bytes
+    int 0x40
+
+; change wanted events list 7-bit IPC event
+    mov eax,40
+    mov ebx,01000111b
+    int 0x40
+
+;
+; STEP 3 run SYSTEM XTREE with parameters
+;
+
+    mov eax,58
+    mov ebx,run_fileinfo
+    int 0x40
+
+    call redproc
+
+    mov [get_loops],0
+getmesloop:
+    mov eax,23
+    mov ebx,50     ;0.5 sec
+    int 0x40
+
+    cmp eax,1
+    je  mred
+    cmp eax,2
+    je  mkey
+    cmp eax,3
+    je  mbutton
+    cmp eax,7
+    je  mgetmes
+
+; Get number of procces
+    mov ebx,procinfo
+    mov ecx,-1
+    mov eax,9
+    int 0x40
+    mov ebp,eax
+
+loox:
+    mov eax,9
+    mov ebx,procinfo
+    mov ecx,ebp
+    int 0x40
+    mov eax,[DLGPID]
+    cmp [procinfo+30],eax    ;IF Dialog find
+    je  dlg_is_work          ;jmp to dlg_is_work
+    dec ebp
+    jnz loox
+
+    jmp erroff
+
+dlg_is_work:
+    cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
+    je  erroff                 ;TESTODP2 terminated too
+
+    cmp [dlg_pid_get],dword 1
+    je  getmesloop
+    inc [get_loops]
+    cmp [get_loops],4  ;2 sec if DLG_PID not get, TESTOP2  terminated
+    jae erroff
+    jmp getmesloop
+
+mred:
+    call redproc
+    jmp  getmesloop
+mkey:
+    mov  eax,2
+    int  0x40                   ; read (eax=2)
+    jmp  getmesloop
+mbutton:
+    mov  eax,17                 ; get id
+    int  0x40
+    cmp  ah,1                   ; button id=1 ?
+    jne  getmesloop
+    mov  eax,-1                 ; close this program
+    int  0x40
+mgetmes:
+
+; If dlg_pid_get then second message get jmp to still
+    cmp  [dlg_pid_get],dword 1
+    je   ready
+
+; First message is number of PID SYSXTREE dialog
+
+; convert PID dec to PID bin
+    movzx eax,byte [path+16]
+    sub eax,48
+    imul eax,10
+    movzx ebx,byte [path+16+1]
+    add eax,ebx
+    sub eax,48
+    imul eax,10
+    movzx ebx,byte [path+16+2]
+    add eax,ebx
+    sub eax,48
+    imul eax,10
+    movzx ebx,byte [path+16+3]
+    add eax,ebx
+    sub eax,48
+    mov [DLGPID],eax
+
+; Claear and prepare IPC area for next message
+    mov [path],dword 0
+    mov [path+4],dword 8
+    mov [path+8],dword 0
+    mov [path+12],dword 0
+    mov [path+16],dword 0
+
+; Set dlg_pid_get for get next message
+    mov [dlg_pid_get],dword 1
+    call redproc   ;show DLG_PID
+    jmp  getmesloop
+
+ready:
+;
+; The second message get
+; Second message is 100 bytes path to SAVE/OPEN file
+; shl path string on 16 bytes
+;
+    cld
+    mov esi,path+16
+    mov edi,path
+    mov ecx,200
+    rep movsb
+    mov [edi],byte 0
+
+    jmp openoff
+
+
+; DATA AREA
+get_loops   dd 0
+dlg_pid_get dd 0
+DLGPID      dd 0
+
+param:
+   dd 0    ; My dec PID
+   dd 0,0  ; Type of dialog
+
+run_fileinfo:
+ dd 16
+ dd 0
+ dd param
+ dd 0
+ dd procinfo ; 0x10000
+;run_filepath
+ db '/RD/1/SYSXTREE',0
+
+procinfo:
+times 256 db 0
+}
+
+
+macro savedialog redproc,openoff,erroff,path
+{
+local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
+local run_fileinfo, run_filepath, param
+local getmesloop, loox, mred, mkey, mbutton, mgetmes
+local dlg_is_work, ready, procinfo
+;
+; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
+; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
+;
+
+    cld
+;;    mov esi,path
+    mov edi,path
+    mov eax,0
+    mov ecx,200
+    rep stosb
+
+;mov [get_loops],0
+mov [dlg_pid_get],0
+
+; Get my PID in dec format 4 bytes
+    mov eax,9
+    mov ebx,procinfo
+    mov ecx,-1
+    int 0x40
+
+; convert eax bin to param dec
+    mov eax,dword [procinfo+30]  ;offset of myPID
+    mov edi,param+4-1            ;offset to 4 bytes
+    mov ecx,4
+    mov ebx,10
+    cld
+new_d:
+    xor edx,edx
+    div ebx
+    add dl,'0'
+    mov [edi],dl
+    dec edi
+    loop new_d
+
+; wirite 1 byte space to param
+    mov [param+4],byte 32    ;Space for next parametr
+; and 1 byte type of dialog to param
+    mov [param+5],byte 'S'   ;Get Open dialog (Use 'S' for Save dialog)
+
+;
+; STEP2 prepare IPC area for get messages
+;
+
+; prepare IPC area
+    mov [path],dword 0
+    mov [path+4],dword 8
+
+; define IPC memory
+    mov eax,60
+    mov ebx,1        ; define IPC
+    mov ecx,path ; offset of area
+    mov edx,120      ; size 150 bytes
+    int 0x40
+
+; change wanted events list 7-bit IPC event
+    mov eax,40
+    mov ebx,01000111b
+    int 0x40
+
+;
+; STEP 3 run SYSTEM XTREE with parameters
+;
+
+    mov eax,58
+    mov ebx,run_fileinfo
+    int 0x40
+
+    call redproc
+
+    mov [get_loops],0
+getmesloop:
+    mov eax,23
+    mov ebx,50     ;0.5 sec
+    int 0x40
+
+    cmp eax,1
+    je  mred
+    cmp eax,2
+    je  mkey
+    cmp eax,3
+    je  mbutton
+    cmp eax,7
+    je  mgetmes
+
+; Get number of procces
+    mov ebx,procinfo
+    mov ecx,-1
+    mov eax,9
+    int 0x40
+    mov ebp,eax
+
+loox:
+    mov eax,9
+    mov ebx,procinfo
+    mov ecx,ebp
+    int 0x40
+    mov eax,[DLGPID]
+    cmp [procinfo+30],eax    ;IF Dialog find
+    je  dlg_is_work          ;jmp to dlg_is_work
+    dec ebp
+    jnz loox
+
+    jmp erroff
+
+dlg_is_work:
+    cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
+    je  erroff                 ;TESTODP2 terminated too
+
+    cmp [dlg_pid_get],dword 1
+    je  getmesloop
+    inc [get_loops]
+    cmp [get_loops],4  ;2 sec if DLG_PID not get, TESTOP2  terminated
+    jae erroff
+    jmp getmesloop
+
+mred:
+    call redproc
+    jmp  getmesloop
+mkey:
+    int  0x40                   ; read (eax=2)
+    jmp  getmesloop
+mbutton:
+    mov  eax,17                 ; get id
+    int  0x40
+    cmp  ah,1                   ; button id=1 ?
+    jne  getmesloop
+    mov  eax,-1                 ; close this program
+    int  0x40
+mgetmes:
+
+; If dlg_pid_get then second message get jmp to still
+    cmp  [dlg_pid_get],dword 1
+    je   ready
+
+; First message is number of PID SYSXTREE dialog
+
+; convert PID dec to PID bin
+    movzx eax,byte [path+16]
+    sub eax,48
+    imul eax,10
+    movzx ebx,byte [path+16+1]
+    add eax,ebx
+    sub eax,48
+    imul eax,10
+    movzx ebx,byte [path+16+2]
+    add eax,ebx
+    sub eax,48
+    imul eax,10
+    movzx ebx,byte [path+16+3]
+    add eax,ebx
+    sub eax,48
+    mov [DLGPID],eax
+
+; Claear and prepare IPC area for next message
+    mov [path],dword 0
+    mov [path+4],dword 8
+    mov [path+8],dword 0
+    mov [path+12],dword 0
+    mov [path+16],dword 0
+
+; Set dlg_pid_get for get next message
+    mov [dlg_pid_get],dword 1
+    call redproc   ;show DLG_PID
+    jmp  getmesloop
+
+ready:
+;
+; The second message get
+; Second message is 100 bytes path to SAVE/OPEN file
+; shl path string on 16 bytes
+;
+    cld
+    mov esi,path+16
+    mov edi,path
+    mov ecx,200
+    rep movsb
+    mov [edi],byte 0
+
+    jmp openoff
+
+
+; DATA AREA
+get_loops   dd 0
+dlg_pid_get dd 0
+DLGPID      dd 0
+
+param:
+   rb 4  ; My dec PID
+   rb 6  ; Type of dialog
+
+run_fileinfo:
+ dd 16
+ dd 0
+ dd param
+ dd 0
+ dd procinfo
+run_filepath:
+ db '/RD/1/SYSXTREE',0
+
+procinfo:
+times 256 db 0
+}
+
+
+
+
+; RANDOM - generate random count (small)
+; (SYNTAX)  RANDOM MaxCount,OutArgument
+; (SAMPLE)  RANDOM 10000,eax
+; ( NOTE )  Maxint<65536 ; use random 65536,eax for more combinations
+
+randomuse = 0
+
+macro random arg1,arg2
+{
+local rxproc
+randomuse = randomuse + 1
+
+      jmp rxproc
+
+if defined randomuse & randomuse = 1
+randomproc:
+      jmp rnj
+rsx1 dw 0x4321
+rsx2 dw 0x1234
+rnj:
+;    mov eax,arg1
+    push bx
+    push cx
+    push dx
+    push si
+    push di
+    mov cx,ax
+    mov ax,word ptr rsx1
+    mov bx,word ptr rsx2
+    mov si,ax
+    mov di,bx
+    mov dl,ah
+    mov ah,al
+    mov al,bh
+    mov bh,bl
+    xor bl,bl
+    rcr dl,1
+    rcr ax,1
+    rcr bx,1
+    add bx,di
+    adc ax,si
+    add bx,0x62e9
+    adc ax,0x3619
+    mov word ptr rsx1,bx
+    mov word ptr rsx2,ax
+    xor dx,dx
+    cmp ax,0
+    je nodiv
+    cmp cx,0
+    je nodiv
+    div cx
+nodiv:
+    mov ax,dx
+    pop di
+    pop si
+    pop dx
+    pop cx
+    pop bx
+    and eax,0000ffffh
+;    mov arg2,0
+;    mov arg2,eax
+    ret
+end if
+
+rxproc:
+    mov eax,arg1
+    call randomproc
+    mov arg2,eax
+}
+
+macro scank
+{
+    mov eax,10
+    int 0x40
+}
+
+macro putpix x,y,color
+{
+    mov ebx,x
+    mov ecx,y
+    mov edx,color
+    mov eax,1
+    int 0x40
+}
+
+macro puttxt x,y,offs,size,color
+{
+;    mov ebx,x
+;    shl ebx,16
+;    add ebx,y
+    wordstoreg ebx,x,y
+    mov ecx,color
+    mov edx,offs
+    mov esi,size
+    mov eax,4
+    int 0x40
+}
+
+macro outcount data, x, y, color, numtype
+{
+    mov ecx,data
+    mov ebx,numtype
+    mov bl,0
+;    mov edx,x*65536+y
+    wordstoreg edx,x,y
+    mov esi,color
+    mov eax,47
+    int 0x40
+}
+
+; SCEVENT - Scan event
+
+macro scevent red,key,but
+{
+    mov eax,11
+    int 0x40
+    dec eax
+    jz  red
+    dec eax
+    jz  key
+    dec eax
+    jz  but
+}
+
+; WTEVENT - Wait event
+
+macro wtevent red,key,but
+{
+    mov eax,10
+    int 0x40
+    dec eax
+    jz  red
+    dec eax
+    jz  key
+    dec eax
+    jz  but
+}
+
+; TIMEEVENT - Wite for event with timeout
+
+macro timeevent xfps,noevent,red,key,but
+{
+    mov eax,23
+    mov ebx,xfps
+    int 0x40
+    cmp eax,0
+    je  noevent
+    dec eax
+    jz  red
+    dec eax
+    jz  key
+    dec eax
+    jz  but
+}
+
+
+; CLOSE - Close program
+
+macro close
+{
+    mov eax,-1
+    int 0x40
+}
+
+; DELAY - Create delay 1/100 sec
+; (SYNTAX)  Delay time
+; (SAMPLE)  Delay 100   ;delay 2 sec 1/100*200=2 sec
+
+macro delay arg1
+{
+    mov eax,5
+    mov ebx,arg1
+    int 0x40
+}
+
+; WINDOW - Draw window
+; (SYNTAX)  WINDOW Xstart,Ystart,'Text',Color
+; (SAMPLE)  WINDOW 10,10,640+8,480+24,window_Skinned
+
+macro window arg1,arg2,arg3,arg4,arg5
+{
+;    mov ebx,arg1*65536+arg3
+;    mov ecx,arg2*65536+arg4
+    wordstoreg ebx,arg1,arg3
+    wordstoreg ecx,arg2,arg4
+    mov edx,arg5
+    mov eax,0
+    int 0x40
+}
+
+macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
+{
+    mov ebx,arg1*65536+arg3
+    mov ecx,arg2*65536+arg4
+    mov edx,arg5
+    mov esi,arg6
+    mov edi,arg7
+    mov eax,0
+    int 0x40
+}
+
+
+; STARTWD - Start of window draw
+
+macro startwd
+{
+    mov eax,12
+    mov ebx,1
+    int 0x40
+}
+
+; ENDWD - End window draw
+
+macro endwd
+{
+    mov eax,12
+    mov ebx,2
+    int 0x40
+}
+
+; LABEL - Put text to frame
+; (SYNTAX)  LABEL Xstart,Ystart,'Text',Color
+; (SAMPLE)  LABEL 10,12,'Hello World!',cl_Green+font_Big
+
+macro label arg1,arg2,arg3,arg4
+{
+local asd,lab
+    jmp asd
+lab db  arg3                 ;arg label
+asd:
+;    mov ebx,arg1             ;arg1=y arg2=x
+;    shl ebx,16
+;    add ebx,arg2
+    wordstoreg ebx,arg1,arg2
+    mov ecx,arg4             ;arg4 color
+    mov edx,lab
+    mov esi,asd-lab          ;calc size
+    mov eax,4
+    int 0x40
+}
+
+;Key's
+key_Up     equ 178
+key_Down   equ 177
+key_Right  equ 179
+key_Left   equ 176
+key_Esc    equ 27
+key_Space  equ 32
+key_Enter  equ 13
+key_Bspace equ 8
+key_F1     equ 50
+key_F2     equ 51
+key_F3     equ 52
+key_F4     equ 53
+key_F5     equ 54
+key_F6     equ 55
+key_F7     equ 56
+key_F8     equ 57
+key_F9     equ 48
+key_F10    equ 49
+key_F11    equ 68
+key_F12    equ 255
+key_Home   equ 180
+key_End    equ 181
+key_PgUp   equ 184
+key_PgDown equ 183
+
+;Attributes
+
+;Window Attributes
+window_Skinned equ 0x03000000
+window_Type2   equ 0x02000000
+window_Type1   equ 0x00000000
+window_Reserve equ 0x01000000
+
+;Font Attributes
+font_Big  equ 0x10000000
+
+;Colors
+cl_White  equ 0x00ffffff
+cl_Black  equ 0x00000000
+cl_Grey   equ 0x00888888
+cl_Red    equ 0x00ff0000
+cl_Lime   equ 0x0000ff00
+cl_Green  equ 0x0000af00
+cl_Blue   equ 0x000000ff
+cl_Purple equ 0x008080ff
+cl_Violet equ 0x008040ff
+cl_Cyan   equ 0x0040e0ff

programs/games/almaz/build_ru.bat

@@ -0,0 +1,6 @@
+@erase lang.inc
+@echo lang fix ru >lang.inc
+@fasm ALMAZ.asm ALMAZ
+@erase lang.inc
+@kpack ALMAZ
+@pause

programs/macros.inc

@@ -467,11 +467,11 @@ struct process_information
 ends
 
 struct system_colors
-  frame            dd ? ;nonset1
+  taskbar          dd ? ;frame
-  grab             dd ? ;nonset2
+  taskbar_text     dd ? ;grab
   work_3d_dark     dd ?
   work_3d_light    dd ?
-  grab_text        dd ? ;nonset3
+  window_title     dd ? ;grab_text
   work             dd ?
   work_button      dd ?
   work_button_text dd ?

programs/system/taskbar/trunk/drawappl.inc

@@ -145,7 +145,7 @@ align 4
 	add	ebx,TAB_SIZE-2	;54
 
 	push	edi
-	mov	edx,[system_colours.work_button]
+	mov	edx,[system_colours.taskbar]
 	xor	edi,edi
 
 	cmp	ebp,[active_slot_number]	;ecx	; ecx=active slot number
@@ -181,7 +181,7 @@ align 4
 	add	bx,cx
 	
 	mov	edx, procinfo_window_tabs+10
-	mcall	4,,[system_colours.work_button_text],,11
+	mcall	4,,[system_colours.taskbar_text],,11
 ;--------------------------------------
 align 4
 .nodraw:

programs/system/taskbar/trunk/drawtray.inc

@@ -192,7 +192,7 @@ draw_list_button:
 ; draw page list number
 	mov	edx,ebx
 	add	edx,9 shl 16
-	mcall	47,0x20000,[page_list],,[system_colours.work_button_text]
+	mcall	47,0x20000,[page_list],,[system_colours.taskbar_text]
 @@:
 	ret
 ;---------------------------------------------------------------

programs/system/taskbar/trunk/drawwind.inc

@@ -10,8 +10,8 @@ draw_window:
 
 	mcall	48,3,system_colours,10*4
 
-	mov	eax, [system_colours+4*6]
+	mov	eax, [system_colours.taskbar]
-	mov	edx,[system_colours+4*6]
+	mov	edx,[system_colours.taskbar]
 	mov	eax,COLOR_CHANGE_MAGNITUDE
 	call	subtract_color_change_magnitude
 	mov	[wcolor], edx