Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 8919 → Rev 8918

/programs/bcc32/games/blocks/bin/blocks.kex
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programs/bcc32/games/blocks/blocks.cpp
48,8 → 48,7
char* name;
long int color, t_cr;
float x,y,z, r_x,r_y,r_z;
unsigned long level;
long int id_l;
long int level, id_l;
};
 
ModelList* model_list = 0;
74,8 → 73,8
float lmodel_ambient[] = {0.3, 0.3, 0.3, 1.0}; //Параметры фонового освещения
 
char str1[] = "Show active level";
check_box check1 = { {16,310,20,4}, 8, 0xffffff, 0x808080, 0xffffff, str1, ch_flag_middle };
scrollbar sb_tcr = { 200,100,19,4, 16, 1, 20,1,0, 0x808080, 0xffffff, 0x0};
check_box check1 = { {16,280,20,4}, 8, 0xffffff, 0x808080, 0xffffff, str1, ch_flag_middle };
scrollbar sb_tcr = { 200,70,19,4, 16, 1, 20,1,0, 0x808080, 0xffffff, 0x0};
 
void SetLight()
{
196,14 → 195,9
FileInfoBlock* file;
unsigned long int k;
 
k = strlen(CurrentDirectoryPath);
while(CurrentDirectoryPath[k] != '\\' && CurrentDirectoryPath[k] != '/' && k) {k--;};
memcpy(library_path,CurrentDirectoryPath,k);
strcpy(library_path+k,"block.bin");
 
file = FileOpen(library_path);
file = FileOpen("block.bin");
if (!file){
MessageBox("Error open file 'block.bin', file not found");
//SetWindowCaption("Error open file 'block.bin'");
return false;
}
k = FileGetLength(file);
224,13 → 218,8
f_data = 0;
}
}
FileClose(file);
}
else {
MessageBox("Error open file 'block.bin', file length == 0");
FileClose(file);
return false;
}
 
if (b_data){
unsigned long i=0, n=0;
257,9 → 246,6
n++;
};
}
else {
MessageBox("Error open file 'block.bin', can't unpack file");
}
return (bool)b_data;
}
 
484,8 → 470,7
// If button have ID 1, this is close button
DrawButton(2,0xf0f0f0, 10,4,50,19);
DrawText(20,10,0,"Open");
DrawRect(70,7, 24,18, 0x333333);
DrawText(70,7,(1<<24)|0xffffff,DoubleToStr(sb_tcr.position,0,true));
DrawText(10,TOOLBAR_H+3,(1<<24)|0xffffff,DoubleToStr(sb_tcr.position,0,true));
sb_tcr.all_redraw=1;
scrollbar_h_draw(&sb_tcr);
check_box_draw(&check1);
582,7 → 567,7
}
}
 
void KolibriOnSize(int [], TThreadData /*th*/)
void KolibriOnSize(int window_rect[], TThreadData /*th*/)
{
unsigned short int width, height;
GetClientSize(width, height);
/programs/bcc32/include/kos_lib.h
11,5 → 11,3
const char *DoubleToStr(double x, unsigned short digits = 5, bool crop_0 = false);
double StrToDouble(char *str);
long StrToInt(char *str);
 
void MessageBox(char *str);
/programs/bcc32/include/kos_lib.inc
1,4 → 1,4
include "..\..\develop\info3ds\info_fun_float.inc"
include "..\..\..\develop\info3ds\info_fun_float.inc"
 
align 4
proc @DoubleToStr$qduso uses esi edi
292,10 → 292,3
.floor_end:
ret
endp
 
align 4
proc @MessageBox$qpc
mov eax,[esp+4]
notify_window_run eax
ret
endp
/programs/bcc32/include/kos_unpack.inc
1,7 → 1,7
@@unpack$qqspvt1 equ unpack
 
include "..\..\system\skincfg\trunk\kglobals.inc"
include "..\..\system\skincfg\trunk\unpacker.inc"
include "..\..\..\system\skincfg\trunk\kglobals.inc"
include "..\..\..\system\skincfg\trunk\unpacker.inc"
 
IncludeIGlobals
IncludeUGlobals
/programs/bcc32/include/kos_start.inc
17,11 → 17,11
dd 0
end if
 
include "..\..\KOSfuncs.inc"
include "..\..\proc32.inc"
include "..\..\macros.inc"
include "..\..\dll.inc"
include "..\..\load_lib.mac"
include "..\..\..\KOSfuncs.inc"
include "..\..\..\proc32.inc"
include "..\..\..\macros.inc"
include "..\..\..\dll.inc"
include "..\..\..\load_lib.mac"
 
ptr equ
offset equ
33,6 → 33,24
SHORT equ
TBYTE equ TWORD
 
macro movsb a,b
{
if a eq & b eq
movsb
else
movsx a,b
end if
}
macro movsw a,b
{
if a eq & b eq
movsw
else
movsx a,b
end if
}
 
macro segment name {}
 
macro endseg name {}