Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9484 → Rev 9485

/programs/bcc32/games/blocks/models/model_b1_scarlet_macaw.bjs
0,0 → 1,115
// block name, color, step, coord: x,y,z, rotation: x,y,z
 
const m1 = 0xff0000; //red
const m2 = 0xff; //blue
const m3 = 0x808080; //gray
const m4 = 0xffff00; //yellow
const m5 = 0x080808; //black
const m6 = 0xffffff; //white
 
model_list=[
['b10x10x1', m3, 0,-20, -20, 0, 0,0,0],
['b2x3x1', m1, 1, 0, 4, 39, 0,0,90],
['b1x1x1', m1, 1, 0, 0, 39, 0,0,0],
['b1x1x1', m1, 1, -8, 0, 39, 0,0,0],
['b1x3x1', m2, 1, 0, 12, 39, 0,0,90],
['b1x4x1', m2, 1, 4, 8, 39, 0,0,0],
['b1x4x1', m2, 1,-12, 8, 39, 0,0,0],
['b1x4x1', m2, 2,-12, 4, 42, 0,0,0],
['b1x4x1', m2, 2, 4, 4, 42, 0,0,0],
['b1x4x1', m1, 2, -8, -4, 42, 0,0,0],
['b1x4x1', m1, 2, 0, -4, 42, 0,0,0],
['b1x3x1', m2, 2, 0, 12, 42, 0,0,90],
['b2x4x1', m2, 3,-12, 0, 45, 0,0,0],
['b2x4x1', m2, 3, 0, 0, 45, 0,0,0],
['b1x2x1', m4, 3, -4, 8, 45, 0,0,0],
['b2x3x1', m1, 3, 0, -8, 45, 0,0,90],
['b2x3x1', m1, 4, 0,-12, 48, 0,0,90],
['b2x4x1', m2, 4, 0, -4, 48, 0,0,0],
['b2x4x1', m2, 4,-12, -4, 48, 0,0,0],
['b1x3x1', m4, 4, 0, 12, 48, 0,0,90],
['b1x3x1', m4, 5, 0, 12, 51, 0,0,90],
['b2x2x1', m4, 5,-12, 4, 51, 0,0,0],
['b2x2x1', m4, 5, 0, 4, 51, 0,0,0],
['b2x3x1', m2, 5,-12, -8, 51, 0,0,0],
['b2x3x1', m2, 5, 0, -8, 51, 0,0,0],
['b1x3x1', m1, 5, 0,-12, 51, 0,0,90],
['b2x3x1', m1, 6, 0,-16, 54, 0,0,90],
['b2x3x1', m1, 6, 0, 8, 54, 0,0,90],
['b1x2x1', m2, 6,-12,-12, 54, 0,0,0],
['b1x2x1', m2, 6, 4,-12, 54, 0,0,0],
['b1x4x1', m4, 6,-12, -4, 54, 0,0,0],
['b1x4x1', m4, 6, 4, -4, 54, 0,0,0],
['b2x3x1', m1, 7, 0,-16, 57, 0,0,90],
['b2x3x1', m1, 7, 0, 4, 57, 0,0,90],
['b1x1x1', m2, 7,-12,-12, 57, 0,0,0],
['b1x1x1', m2, 7, 4,-12, 57, 0,0,0],
['b1x4x1', m4, 7,-12, -8, 57, 0,0,0],
['b1x4x1', m4, 7, 4, -8, 57, 0,0,0],
['b1x2x1', m4, 8,-12,-12, 60, 0,0,0],
['b1x2x1', m4, 8, 4,-12, 60, 0,0,0],
['b2x3x1', m1, 8, 0,-16, 60, 0,0,90],
['b2x3x1', m1, 8,-12, -4, 60, 0,0,0],
['b2x3x1', m1, 8, 0, -4, 60, 0,0,0],
['b1x3x1', m1, 8, 0, 8, 60, 0,0,90],
['b2x3x1', m1, 9, 0,-12, 63, 0,0,90],
['b2x3x1', m1, 9, 0, 0, 63, 0,0,90],
['b1x4x1', m1, 9,-12,-12, 63, 0,0,0],
['b1x4x1', m1, 9, 4,-12, 63, 0,0,0],
['b2x3x1', m1, 10,-12, -8, 66, 0,0,0],
['b1x3x1', m1, 10, -4, -8, 66, 0,0,0],
['b2x3x1', m1, 10, 0, -8, 66, 0,0,0],
['b1x3x1', m6, 10, 0,-12, 66, 0,0,90],
['b1x3x1', m5, 10, 0,-16, 66, 0,0,90],
['b1x3x1', m5, 10, 0,-20, 66, 0,0,90],
['b1x1x1', m5, 10, -4,-32, 66, 0,0,0],
['b1x1x1', m6, 11, -4,-32, 69, 0,0,0],
['b2x3x1', m6, 11, 0,-16, 69, 0,0,90],
['b1x3x1', m5, 11, -4,-28, 69, 0,0,0],
['b1x1x1', m5, 11, -8,-20, 69, 0,0,0],
['b1x1x1', m5, 11, 0,-20, 69, 0,0,0],
['b1x3x1', m1, 11, 0, 0, 69, 0,0,90],
['b2x3x1', m1, 11, 0, -8, 69, 0,0,90],
['b1x3x1', m6, 12, -4,-32, 72, 0,0,0],
['b2x3x1', m6, 12, 0,-20, 72, 0,0,90],
['b1x3x1', m6, 12, 0,-12, 72, 0,0,90],
['b2x3x1', m1, 12, 0, -8, 72, 0,0,90],
['b1x3x1', m6, 13, -4,-28, 75, 0,0,0],
['b1x3x1', m6, 13, 0,-12, 75, 0,0,90],
['c1x1x1', m5, 13, -8,-16, 75, 0,0,0],
['c1x1x1', m5, 13, 0,-16, 75, 0,0,0],
['b2x3x1', m1, 13, 0, -8, 75, 0,0,90],
['b2x3x1', m6, 14, 0,-20, 78, 0,0,90],
['b1x1x1', m6, 14, -4,-24, 78, 0,0,0],
['b2x3x1', m1, 14, 0,-12, 78, 0,0,90],
['b2x3x1', m1, 15, 0,-16, 81, 0,0,90],
['b1x3x1', m1, 15, 0,-20, 81, 0,0,90],
['b2x2x1', m3, 16, 8, -4, 3, 0,0,0],
['b2x2x1', m3, 17, 8, -4, 6, 0,0,0],
['b2x2x1', m3, 18, 8, -4, 9, 0,0,0],
['b2x2x1', m3, 19, 8, -4, 12, 0,0,0],
['b2x2x1', m3, 20, 8, -4, 15, 0,0,0],
['b2x2x1', m3, 21, 8, -4, 18, 0,0,0],
['b2x2x1', m3, 22, 8, -4, 21, 0,0,0],
['b2x2x1', m3, 23, 8, -4, 24, 0,0,0],
['b2x2x1', m3, 24, 8, -4, 27, 0,0,0],
['b2x2x1', m3, 25, 8, -4, 30, 0,0,0],
['b2x8x1', m3, 25, 4, -4, 30, 0,0,90],
['b2x8x1', m3, 26, 16, -4, 33, 0,0,90],
['c1x1x1', m5, 26, -8, -8, 33, 0,0,0],
['c1x1x1', m5, 26, 0, -8, 33, 0,0,0],
['b1x3x1', m6, 27, -8, -8, 36, 0,0,0],
['b1x3x1', m6, 27, 0, -8, 36, 0,0,0],
['b1x1x1', m2, 28, -4, 12, 9, 0,0,90],
['b1x1x1', m2, 29, -4, 12, 12, 0,0,90],
['b1x2x1', m2, 30, -2, 12, 15, 0,0,90],
['b1x2x1', m2, 31, -2, 12, 18, 0,0,90],
['b1x2x1', m1, 32, -2, 12, 21, 0,0,90],
['b1x3x1', m1, 33, 0, 12, 24, 0,0,90],
['b1x3x1', m1, 34, 0, 12, 27, 0,0,90],
['b1x1x1', m1, 35, -4, 12, 30, 0,0,0],
['b1x1x1', m2, 36, -8, 12, 30, 0,0,0],
['b1x1x1', m2, 37, 0, 12, 30, 0,0,0],
['b2x3x1', m2, 38, 0, 8, 33, 0,0,90],
['b2x3x1', m2, 39, 0, 8, 36, 0,0,90],
];
/programs/bcc32/include/kos_lib.h
1,8 → 1,13
#ifndef __KOS_LIB_H_INCLUDED_
#define __KOS_LIB_H_INCLUDED_
 
int memcmp(const void *buf1, const void *buf2, long int count);
void *memcpy(void *dest, const void *src, unsigned int n);
void *memset(void *s, char c, unsigned int n);
 
unsigned int strlen(const char *str);
char *strcpy(char *dest, const char *src);
void *memcpy(void *dest, const void *src, unsigned int n);
void *memset(void *s, char c, unsigned int n);
char *strncpy(char *dest, const char *src, long int n);
int strcmp(const char *str1, const char *str2);
char *strchr(const char *str, int ch);
char *strstr(const char *str1, const char *str2);
12,4 → 17,6
double StrToDouble(char *str);
long StrToInt(char *str);
 
void MessageBox(char *str);
void MessageBox(char *str);
 
#endif
/programs/bcc32/include/kos_lib.inc
143,6 → 143,41
endp
 
align 4
proc @strncpy$qpcpxcl uses esi edi
cld
mov edi,[esp+16]
mov ecx,[esp+20]
jecxz @f
mov esi,edi
xor al,al
repnz scasb
not ecx
mov edi,[esp+12]
mov edx,ecx
mov eax,edi
shr ecx,2
rep movsd
mov ecx,edx
and ecx,3
rep movsb
@@:
ret
endp
 
align 4
proc @memcmp$qpxvt1l uses esi edi
cld
mov ecx,[esp+20]
mov edi,[esp+16]
mov esi,[esp+12]
repe cmpsb
movzx eax,byte[esi-1]
movzx edx,byte[edi-1]
sub eax,edx
ret
endp
 
align 4
proc @memcpy$qpvpxvui uses esi edi
cld
mov edi,[esp+12]
/programs/develop/libraries/box_lib/trunk/box_lib.asm
22,6 → 22,8
include 'box_lib.mac' ;macro which should make life easier :)
;include '../../../../debug.inc'
include 'keys.inc'
include '../../../../system/skincfg/trunk/kglobals.inc'
include '../../../../system/skincfg/trunk/unpacker.inc'
 
;-----------------------------------------------------------------------------
mem.alloc dd ? ;ôóíêöèÿ äëÿ âûäåëåíèÿ ïàìÿòè
170,6 → 172,10
endp
 
 
;äëÿ ðàáîòû ñ KPCK
IncludeIGlobals
IncludeUGlobals
 
align 16
EXPORTS:
 
/programs/develop/libraries/box_lib/trunk/t_edit.asm
1263,20 → 1263,12
cmp ted_increase_size,0
je @f
push eax ebx ecx
mov ecx,ted_increase_size
add ecx,ted_max_chars
mov ted_max_chars,ecx
imul ecx,sizeof.symbol
invoke mem.realloc, ted_tex,ecx
mov ebx,ted_tex
mov ted_tex,eax
mov ted_tex_1,eax
add ted_tex_1,sizeof.symbol
mov ecx,ted_max_chars
call ted_mem_resize.no_2
sub edx,ebx
add edx,eax
add edx,ted_tex
mov ted_ptr_free_symb,edx
add eax,ecx
mov ted_tex_end,eax
pop ecx ebx eax
@@:
ret
2546,11 → 2538,39
ret
endp
 
;description:
; ¨§¬¥­ï¥¬ à §¬¥à ¯ ¬ï⨠¤«ï ⥪áâ  (ãáâ ­®¢ª  ted_ptr_free_symb ­  1 ᨬ¢®«)
;input:
; ecx - ç¨á«® ᨬ¢®«®¢ ¢ ä ©«¥
; edi - pointer to tedit struct
;output:
; eax, ecx - à §àãè îâáï
align 16
ted_mem_resize:
add ecx,2 ;¯ ¬ïâì ¤«ï ⥪áâ  + á«ã¦¥¡­ë¥ ­ ç «ì­ë© ¨ ª®­¥ç­ë© ᨬ¢®«ë
.no_2:
add ecx,ted_increase_size ;¯ ¬ïâì ¤«ï । ªâ¨à®¢ ­¨ï ä ©« 
mov ted_max_chars,ecx
imul ecx,sizeof.symbol
invoke mem.realloc, ted_tex,ecx
mov ted_tex,eax
mov ted_tex_1,eax
add ted_tex_1,sizeof.symbol
add eax,ecx
mov ted_tex_end,eax
mov ecx,ted_tex_1
add ecx,sizeof.symbol
mov ted_ptr_free_symb,ecx
ret
 
;output:
; eax = ª®¤ ®è¨¡ª¨
; ebx = ª®««¨ç¥á⢮ ¯à®ç¨â ­­ëå ¡ ©â
align 16
proc ted_open_file uses ecx edx edi, edit:dword, file:dword, f_name:dword ;äã­ªæ¨ï ®âªàëâ¨ï ä ©« 
proc ted_open_file uses ecx edx edi esi, edit:dword, file:dword, f_name:dword ;äã­ªæ¨ï ®âªàëâ¨ï ä ©« 
locals
unpac_mem dd ?
endl
mov edi,[edit]
 
; *** ¯à®¢¥à塞 à §¬¥à ¯ ¬ï⨠¨ ¥á«¨ ­¥ 墠⠥â ⮠㢥«¨ç¨¢ ¥¬ ***
2580,21 → 2600,8
mov edx,[edx+32] ;+32 = +0x20: qword: à §¬¥à ä ©«  ¢ ¡ ©â å
cmp edx,ecx
jl @f
;㢥«¨ç¨¢ ¥¬ ¯ ¬ïâì ¥á«¨ ­¥ 墠⨫®
mov ecx,edx ;¯ ¬ïâì ­¥®¡å®¤¨¬ ï ¤«ï ®âªàëâ¨ï ä ©« 
add ecx,2 ;¯ ¬ïâì ¤«ï á«ã¦¥¡­ëå ­ ç «ì­®£® ¨ ª®­¥ç­®£® ᨬ¢®«®¢
add ecx,ted_increase_size ;¯ ¬ïâì ¤«ï । ªâ¨à®¢ ­¨ï ä ©« 
mov ted_max_chars,ecx
imul ecx,sizeof.symbol
invoke mem.realloc, ted_tex,ecx
mov ted_tex,eax
mov ted_tex_1,eax
add ted_tex_1,sizeof.symbol
add eax,ecx
mov ted_tex_end,eax
mov ecx,ted_tex_1
add ecx,sizeof.symbol
mov ted_ptr_free_symb,ecx
mov ecx,edx
call ted_mem_resize
@@:
 
; *** ¯à®¡ã¥¬ ®âªàëâì ä ©« ***
2617,6 → 2624,32
cmp ebx,-1
je .ret_f
;if open file
push eax
mov eax,ted_tex
cmp dword[eax],'KPCK'
jne .end_unpack
;¢ë¤¥«¥­¨¥ ¯ ¬ï⨠¤«ï à á¯ ª®¢ª¨ ä ©« 
invoke mem.alloc,[eax+4]
mov [unpac_mem],eax
stdcall unpack,ted_tex,[unpac_mem]
mov ecx,ted_max_chars
sub ecx,2 ;ecx = ¬ ªá¨¬ «ì­®¥ ç¨á«® ¡ ©â, ¤«ï ª®â®àëå ¡ë«  ¢ë¤¥«¥­  ¯ ¬ïâì
mov eax,ted_tex
mov ebx,[eax+4]
cmp ebx,ecx
jl @f ;¥á«¨ ¤«ï à á¯ ª®¢ ­®£® ä ©«  ­¥ 墠⠥⠢뤥«¥­­®© ¯ ¬ïâ¨
mov ecx,ebx
call ted_mem_resize
@@:
mov edi,ted_tex
mov esi,[unpac_mem]
mov ecx,ebx
cld
rep movsb
mov edi,[edit]
invoke mem.free,[unpac_mem]
.end_unpack:
pop eax
call ted_on_open_file
.ret_f:
ret