2012-11-26 19:26:15 +04:00
//CODED by Veliant, Leency, Nable. GNU GPL licence.
2015-07-22 21:32:54 +03:00
# ifndef INCLUDE_KOLIBRI_H
2015-07-20 02:09:56 +03:00
# define INCLUDE_KOLIBRI_H
2015-08-04 18:48:36 +03:00
# print "[include <kolibri.h>]\n"
# pragma option OST
# pragma option ON
# pragma option cri-
# pragma option -CPA
# initallvar 0
# jumptomain FALSE
2015-07-16 04:44:30 +03:00
2012-11-26 19:26:15 +04:00
# startaddress 0
2015-08-04 18:48:36 +03:00
2012-11-26 19:26:15 +04:00
# code32 TRUE
2015-08-04 18:48:36 +03:00
2012-11-26 19:26:15 +04:00
char os_name [ 8 ] = { ' M ' , ' E ' , ' N ' , ' U ' , ' E ' , ' T ' , ' 0 ' , ' 1 ' } ;
dword os_version = 0x00000001 ;
2015-08-02 17:40:41 +03:00
dword start_addr = # ______INIT______ ;
dword final_addr = # ______STOP______ + 32 ;
2013-03-11 22:16:24 +04:00
dword alloc_mem = MEMSIZE ;
dword x86esp_reg = MEMSIZE ;
2012-11-26 19:26:15 +04:00
dword I_Param = # param ;
dword I_Path = # program_path ;
char param [ 4096 ] ;
char program_path [ 4096 ] ;
2013-03-11 22:16:24 +04:00
# define NULL 0
# define OLD -1
# define true 1
# define false 0
2012-11-26 19:26:15 +04:00
//Events
2015-08-04 18:48:36 +03:00
2012-11-26 19:26:15 +04:00
# define evReDraw 1
2014-01-27 23:34:00 +04:00
# define evKey 2
# define evButton 3
2015-07-16 04:44:30 +03:00
# define evDesktop 5
2014-01-27 23:34:00 +04:00
# define evMouse 6
2015-07-16 04:44:30 +03:00
# define evIPC 7
2014-01-27 23:34:00 +04:00
# define evNetwork 8
2015-07-16 04:44:30 +03:00
# define evDebug 9
2012-11-26 19:26:15 +04:00
2015-08-03 03:06:27 +03:00
# define EVENT_MOUSE case 6: mouse.get();
2012-11-26 19:26:15 +04:00
//Button options
# define BT_DEL 0x80000000
# define BT_HIDE 0x40000000
# define BT_NOFRAME 0x20000000
2015-02-24 23:47:16 +03:00
//ASCII KEYS
# define ASCII_KEY_BS 008
# define ASCII_KEY_TAB 009
# define ASCII_KEY_ENTER 013
# define ASCII_KEY_ESC 027
# define ASCII_KEY_DEL 182
# define ASCII_KEY_INS 185
# define ASCII_KEY_SPACE 032
# define ASCII_KEY_LEFT 176
# define ASCII_KEY_RIGHT 179
# define ASCII_KEY_DOWN 177
# define ASCII_KEY_UP 178
# define ASCII_KEY_HOME 180
# define ASCII_KEY_END 181
# define ASCII_KEY_PGDN 183
# define ASCII_KEY_PGUP 184
2015-08-10 00:59:25 +03:00
//SCAN CODE KEYS
# define SCAN_CODE_BS 014
# define SCAN_CODE_TAB 015
# define SCAN_CODE_ENTER 028
# define SCAN_CODE_ESC 001
# define SCAN_CODE_DEL 083
# define SCAN_CODE_INS 082
# define SCAN_CODE_SPACE 057
# define SCAN_CODE_LEFT 075
# define SCAN_CODE_RIGHT 077
# define SCAN_CODE_DOWN 080
# define SCAN_CODE_UP 072
# define SCAN_CODE_HOME 071
# define SCAN_CODE_END 079
# define SCAN_CODE_PGDN 081
# define SCAN_CODE_PGUP 073
2015-09-05 01:47:08 +03:00
# define KEY_LSHIFT 00000000001b
# define KEY_RSHIFT 00000000010b
# define KEY_LCTRL 00000000100b
# define KEY_RCTRL 00000001000b
# define KEY_LALT 00000010000b
# define KEY_RALT 00000100000b
# define KEY_CAPSLOCK 00001000000b
# define KEY_NUMLOCK 00010000000b
# define KEY_SCROLLLOCK 00100000000b
# define KEY_LWIN 01000000000b
# define KEY_RWIN 10000000000b
2015-08-10 13:47:21 +03:00
inline fastcall word GetKey ( ) //+Gluk fix
{
$ push edx
GETKEY :
$ mov eax , 2
$ int 0x40
$ cmp eax , 1
$ jne GETKEYI
$ mov ah , dh
$ jmp GETKEYII //jz?
GETKEYI :
$ mov dh , ah
$ jmp GETKEY
GETKEYII :
$ pop edx
$ shr eax , 8
}
2015-08-29 23:14:17 +03:00
2015-08-10 13:47:21 +03:00
unsigned char key_ascii ;
dword key_scancode , key_modifier ;
int GetKeys ( )
{
2015-08-29 23:14:17 +03:00
$ push edx
GETKEY :
$ mov eax , 2
$ int 0x40
$ cmp eax , 1
$ jne GETKEYI
$ mov eax , edx
$ jmp GETKEYII
GETKEYI :
$ mov edx , eax
$ jmp GETKEY
GETKEYII :
$ pop edx
2015-08-10 13:47:21 +03:00
key_ascii = AH ;
$ shr eax , 16
key_scancode = AL ;
//get alt/shift/ctrl key status
$ mov eax , 66
$ mov ebx , 3
$ int 0x40
key_modifier = EAX ;
}
2015-07-16 04:44:30 +03:00
//allow event mask
# define EVENT_MASK_REDRAW 000000001b
# define EVENT_MASK_KEYBOARD 000000010b
# define EVENT_MASK_BUTTONS 000000100b
# define EVENT_MASK_DESKTOP 000010000b
# define EVENT_MASK_MOUSE 000100000b
# define EVENT_MASK_IPC 001000000b
# define EVENT_MASK_NETWORK 010000000b
# define EVENT_MASK_DEBUG 100000000b
//ARGS FUNCTION
# define END_ARGS 0xFF00FF
2012-11-26 19:26:15 +04:00
//-------------------------------------------------------------------------
2015-08-04 17:36:07 +03:00
# ifndef INCLUDE_SYSTEM_H
# include "../lib/system.h"
# endif
2015-07-23 14:54:26 +03:00
2015-08-04 17:36:07 +03:00
# ifndef INCLUDE_MOUSE_H
# include "../lib/mouse.h"
# endif
2015-07-23 14:54:26 +03:00
2015-08-04 17:36:07 +03:00
: struct raw_image {
dword w , h , data ;
2015-07-16 04:44:30 +03:00
} ;
2012-11-26 19:26:15 +04:00
//------------------------------------------------------------------------------
2015-07-20 02:09:56 +03:00
: dword wait_event_code ;
2012-11-26 19:26:15 +04:00
inline fastcall dword WaitEvent ( )
{
$ mov eax , 10
$ int 0x40
2015-07-16 04:44:30 +03:00
wait_event_code = EAX ;
2015-07-21 04:10:37 +03:00
//if(wait_event_code==evMouse) MOUSE.get();
//return wait_event_code;
2012-11-26 19:26:15 +04:00
}
inline fastcall dword CheckEvent ( )
{
$ mov eax , 11
$ int 0x40
}
2015-07-16 04:44:30 +03:00
inline fastcall dword WaitEventTimeout ( EBX )
2012-11-26 19:26:15 +04:00
{
$ mov eax , 23
$ int 0x40
}
2015-07-16 04:44:30 +03:00
inline fastcall SetEventMask ( EBX )
2012-11-26 19:26:15 +04:00
{
$ mov eax , 40
$ int 0x40
}
2015-07-16 04:44:30 +03:00
inline fastcall pause ( EBX )
2012-11-26 19:26:15 +04:00
{
$ mov eax , 5
$ int 0x40
}
inline fastcall word GetButtonID ( )
{
$ mov eax , 17
$ int 0x40
$ shr eax , 8
}
inline fastcall dword GetFreeRAM ( )
{
$ mov eax , 18
$ mov ebx , 16
$ int 0x40
//return eax = <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
}
2015-07-20 02:09:56 +03:00
inline void draw_line ( dword x1 , y1 , x2 , y2 , color )
{
x2 - - ; y2 - - ; y1 - - ;
$ mov EAX , 38
EBX = x1 < < 16 ;
EBX | = x2 ;
ECX = y1 < < 16 ;
ECX | = y2 ;
$ mov EDX , color
$ int 0x40
}
2015-07-16 04:44:30 +03:00
inline fastcall dword LoadDriver ( ECX ) //ECX - <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
2012-11-26 19:26:15 +04:00
{
$ mov eax , 68
$ mov ebx , 16
$ int 0x40
//return 0 - <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> , <20> <> <EFBFBD> <EFBFBD> <EFBFBD> eax = <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
}
2015-07-16 04:44:30 +03:00
inline fastcall dword RuleDriver ( ECX ) //<2F> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
2012-11-26 19:26:15 +04:00
{
$ mov eax , 68
$ mov ebx , 17
$ int 0x40
//return eax = <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
}
struct proc_info
{
# define SelfInfo -1
dword use_cpu ;
word pos_in_stack , num_slot , rezerv1 ;
2013-10-30 05:12:01 +04:00
unsigned char name [ 11 ] ;
2012-11-26 19:26:15 +04:00
char rezerv2 ;
dword adress , use_memory , ID , left , top , width , height ;
word status_slot , rezerv3 ;
dword work_left , work_top , work_width , work_height ;
char status_window ;
2012-12-15 04:16:06 +04:00
dword cwidth , cheight ;
byte reserved [ 1024 - 71 - 8 ] ;
2012-11-26 19:26:15 +04:00
} ;
2015-07-16 04:44:30 +03:00
inline fastcall void GetProcessInfo ( EBX , ECX )
2012-11-26 19:26:15 +04:00
{
$ mov eax , 9 ;
$ int 0x40
2012-12-15 04:16:06 +04:00
DSDWORD [ EBX + 71 ] = DSDWORD [ EBX + 42 ] - 9 ; //set cwidth
DSDWORD [ EBX + 75 ] = DSDWORD [ EBX + 46 ] - GetSkinHeight ( ) - 4 ; //set cheight
2012-11-26 19:26:15 +04:00
}
inline fastcall int GetPointOwner ( EBX , ECX ) //ebx=m.x, ecx=m.y
{
$ mov eax , 34
$ int 0x40
}
inline fastcall int GetProcessSlot ( ECX )
{
EAX = 18 ;
EBX = 21 ;
$ int 0x40
}
inline fastcall int GetActiveProcess ( )
{
EAX = 18 ;
EBX = 7 ;
$ int 0x40
}
2013-10-24 22:26:04 +04:00
: int CheckActiveProcess ( int Form_ID )
{
2013-11-05 03:27:39 +04:00
int id9 = GetProcessSlot ( Form_ID ) ;
if ( id9 = = GetActiveProcess ( ) ) return 1 ;
2013-10-24 22:26:04 +04:00
return 0 ;
}
2012-12-15 19:56:24 +04:00
inline fastcall void ActivateWindow ( ECX )
{
EAX = 18 ;
EBX = 3 ;
$ int 0x40
}
2015-02-18 22:52:40 +03:00
inline fastcall int MinimizeWindow ( )
{
EAX = 18 ;
EBX = 10 ;
$ int 0x40
}
2015-07-16 04:44:30 +03:00
inline fastcall int CreateThread ( ECX , EDX )
2012-11-26 19:26:15 +04:00
{
$ mov eax , 51
$ mov ebx , 1
$ int 0x40
}
inline fastcall void SwitchToAnotherThread ( )
{
$ mov eax , 68
$ mov ebx , 1
$ int 0x40
}
2013-04-08 17:21:32 +04:00
inline fastcall int SendWindowMessage ( ECX , EDX )
2013-04-04 21:07:38 +04:00
{
$ mov eax , 72
$ mov ebx , 1
$ int 0x40
}
2012-11-26 19:26:15 +04:00
inline fastcall int KillProcess ( ECX )
{
$ mov eax , 18 ;
$ mov ebx , 18 ;
$ int 0x40
}
# define TURN_OFF 2
# define REBOOT 3
# define KERNEL 4
inline fastcall int ExitSystem ( ECX )
{
$ mov eax , 18
$ mov ebx , 9
$ int 0x40
}
inline fastcall ExitProcess ( )
{
$ mov eax , - 1 ;
$ int 0x40
}
//------------------------------------------------------------------------------
//eax = <20> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> (1=eng, 2=fi, 3=ger, 4=rus)
inline fastcall int GetSystemLanguage ( )
{
EAX = 26 ;
EBX = 5 ;
$ int 0x40
}
inline fastcall GetSkinHeight ( )
{
$ push ebx
$ mov eax , 48
$ mov ebx , 4
$ int 0x40
$ pop ebx
}
inline fastcall void SetSystemSkin ( ECX )
{
EAX = 48 ;
EBX = 8 ;
$ int 0x40
}
inline fastcall int GetScreenWidth ( )
{
$ mov eax , 14
$ int 0x40
$ shr eax , 16
}
inline fastcall int GetScreenHeight ( )
{
$ mov eax , 14
$ int 0x40
$ and eax , 0x0000FFFF
}
2015-02-18 22:52:40 +03:00
inline fastcall int GetClientTop ( )
{
$ mov eax , 48
$ mov ebx , 5
$ int 0x40
$ mov eax , ebx
$ shr eax , 16
}
inline fastcall int GetClientHeight ( )
{
$ mov eax , 48
$ mov ebx , 5
$ int 0x40
$ mov eax , ebx
}
2012-11-26 19:26:15 +04:00
inline fastcall dword LoadLibrary ( ECX )
{
$ mov eax , 68
$ mov ebx , 19
$ int 0x40
}
inline fastcall int TestBit ( EAX , CL )
{
$ shr eax , cl
$ and eax , 1
}
inline fastcall int PlaySpeaker ( ESI )
{
$ mov eax , 55
$ mov ebx , 55
$ int 0x40
}
2014-03-14 23:06:48 +04:00
inline fastcall void debugln ( EDX )
2012-11-26 19:26:15 +04:00
{
2012-12-19 21:37:24 +04:00
$ push eax
2012-11-26 19:26:15 +04:00
$ push ebx
$ push ecx
$ mov eax , 63
$ mov ebx , 1
2012-12-15 04:16:06 +04:00
NEXT_CHAR :
2012-11-26 19:26:15 +04:00
$ mov ecx , DSDWORD [ edx ]
$ or cl , cl
2012-12-15 04:16:06 +04:00
$ jz DONE
2012-11-26 19:26:15 +04:00
$ int 0x40
$ inc edx
2012-12-15 04:16:06 +04:00
$ jmp NEXT_CHAR
DONE :
2012-11-26 19:26:15 +04:00
$ mov cl , 13
$ int 0x40
$ mov cl , 10
$ int 0x40
$ pop ecx
$ pop ebx
2012-12-19 21:37:24 +04:00
$ pop eax
2012-11-26 19:26:15 +04:00
}
2012-12-06 11:49:06 +04:00
2014-03-15 14:23:06 +04:00
inline fastcall void debug ( EDX )
{
$ push eax
$ push ebx
$ push ecx
$ mov eax , 63
$ mov ebx , 1
NEXT_CHAR :
$ mov ecx , DSDWORD [ edx ]
$ or cl , cl
$ jz DONE
$ int 0x40
$ inc edx
$ jmp NEXT_CHAR
DONE :
$ pop ecx
$ pop ebx
$ pop eax
}
2013-03-11 22:16:24 +04:00
2012-12-06 11:49:06 +04:00
inline fastcall void debugch ( ECX )
{
2012-12-19 21:37:24 +04:00
$ push eax
$ push ebx
2012-12-06 11:49:06 +04:00
$ mov eax , 63
$ mov ebx , 1
$ int 0x40
2012-12-19 21:37:24 +04:00
$ pop ebx
$ pop eax
2012-12-06 11:49:06 +04:00
}
2012-11-26 19:26:15 +04:00
//------------------------------------------------------------------------------
2013-10-01 02:03:07 +04:00
void DefineAndDrawWindow ( dword x , y , size_w , size_h , byte WindowType , dword WindowAreaColor , EDI , ESI )
2012-11-26 19:26:15 +04:00
{
EAX = 12 ; // function 12:tell os about windowdraw
EBX = 1 ;
$ int 0x40
2015-07-16 04:44:30 +03:00
$ xor EAX , EAX
2013-10-01 02:03:07 +04:00
EBX = x < < 16 + size_w ;
ECX = y < < 16 + size_h ;
2015-07-16 04:44:30 +03:00
2012-11-26 19:26:15 +04:00
EDX = WindowType < < 24 | WindowAreaColor ;
$ int 0x40
EAX = 12 ; // function 12:tell os about windowdraw
EBX = 2 ;
$ int 0x40
}
inline fastcall MoveSize ( EBX , ECX , EDX , ESI )
{
$ mov eax , 67
$ int 0x40
}
inline fastcall void DrawTitle ( ECX )
{
EAX = 71 ;
EBX = 1 ;
$ int 0x40 ;
}
2012-12-15 04:16:06 +04:00
void WriteTextB ( dword x , y , byte fontType , dword color , EDX )
{
EAX = 4 ;
EBX = x < < 16 + y ;
ECX = fontType < < 24 + color ;
2013-03-11 22:16:24 +04:00
ESI = 0 ;
2012-12-15 04:16:06 +04:00
$ int 0x40 ;
$ add ebx , 1 < < 16
$ int 0x40
}
void WriteText ( dword x , y , byte fontType , dword color , EDX )
2012-11-26 19:26:15 +04:00
{
EAX = 4 ;
EBX = x < < 16 + y ;
ECX = fontType < < 24 + color ;
$ int 0x40 ;
}
2013-04-12 04:15:39 +04:00
dword WriteBufText ( dword x , y , byte fontType , dword color , EDX , EDI )
{
EAX = 4 ;
EBX = x < < 16 + y ;
ECX = fontType < < 24 + color ;
$ int 0x40 ;
}
2012-11-26 19:26:15 +04:00
void WriteNumber ( dword x , y , byte fontType , dword color , count , ECX )
{
EAX = 47 ;
EBX = count < < 16 ;
EDX = x < < 16 + y ;
ESI = fontType < < 24 + color ;
$ int 0x40 ;
}
2013-03-11 22:16:24 +04:00
void CopyScreen ( dword EBX , x , y , w , h )
2012-11-26 19:26:15 +04:00
{
EAX = 36 ;
2013-03-11 22:16:24 +04:00
ECX = w < < 16 + h ;
2012-11-26 19:26:15 +04:00
EDX = x < < 16 + y ;
$ int 0x40 ;
}
2013-04-12 04:15:39 +04:00
: dword GetPixelColor ( dword x , x_size , y )
2012-11-26 19:26:15 +04:00
{
$ mov eax , 35
EBX = y * x_size + x ;
$ int 0x40
}
void _PutImage ( dword x , y , w , h , EBX )
{
EAX = 7 ;
ECX = w < < 16 + h ;
EDX = x < < 16 + y ;
$ int 0x40
}
void PutPaletteImage ( dword EBX , w , h , x , y , ESI , EDI )
{
EAX = 65 ;
ECX = w < < 16 + h ;
EDX = x < < 16 + y ;
EBP = 0 ;
$ int 0x40
}
inline fastcall void PutPixel ( EBX , ECX , EDX )
{
EAX = 1 ;
$ int 0x40
}
void DrawBar ( dword x , y , w , h , EDX )
{
2013-02-04 17:15:13 +04:00
if ( h < = 0 ) | | ( h > 60000 ) | | ( w < = 0 ) | | ( w > 60000 ) return ; //bad boy :)
2012-11-26 19:26:15 +04:00
EAX = 13 ;
EBX = x < < 16 + w ;
ECX = y < < 16 + h ;
$ int 0x40
}
void DefineButton ( dword x , y , w , h , EDX , ESI )
{
2012-12-15 04:16:06 +04:00
EAX = 8 ;
$ push edx
EDX + = BT_DEL ;
$ int 0x40 ;
$ pop edx
EBX = x < < 16 + w ;
ECX = y < < 16 + h ;
$ int 0x40
}
2015-07-20 02:09:56 +03:00
inline RefreshWindow ( dword ID_REFRESH , ID_ACTIVE )
{
EAX = 18 ;
EBX = 22 ;
ECX = 3 ;
EDX = ID_REFRESH ;
$ int 0x40
EAX = 18 ;
EBX = 3 ;
EDX = ID_ACTIVE ;
$ int 0x40
}
2015-07-21 04:10:37 +03:00
inline getIPC ( ECX , EDX )
{
$ mov EAX , 60
$ mov EBX , 2
$ int 0x40
}
inline sendIPC ( ECX , EDX , ESI )
{
$ mov EAX , 60
$ mov EBX , 1
$ int 0x40
}
2012-12-15 04:16:06 +04:00
void UnsafeDefineButton ( dword x , y , w , h , EDX , ESI )
{
EAX = 8 ;
2012-11-26 19:26:15 +04:00
EBX = x < < 16 + w ;
ECX = y < < 16 + h ;
$ int 0x40
}
inline fastcall void DeleteButton ( EDX )
{
EAX = 8 ;
EDX + = BT_DEL ;
2015-07-30 17:54:30 +03:00
$ int 0x40
2015-03-25 14:46:22 +03:00
}
inline fastcall dword GetStartTime ( )
{
$ mov eax , 26
$ mov ebx , 9
$ int 0x40
2015-07-12 02:45:19 +03:00
}
2015-07-23 14:54:26 +03:00
: dword X_EventRedrawWindow , Y_EventRedrawWindow ;
: void _EventRedrawWindow ( )
{
loop ( ) switch ( WaitEvent ( ) )
{
case evReDraw :
DefineAndDrawWindow ( X_EventRedrawWindow , Y_EventRedrawWindow , 100 , 1 , 1 , 0x34 , 0xFFFFFF , " " ) ;
pause ( 10 ) ;
ExitProcess ( ) ;
break ;
}
}
2015-08-21 23:20:08 +03:00
: char REDRAW_BUFF_EVENT_ [ 4096 ] ;
2015-07-23 14:54:26 +03:00
: void EventRedrawWindow ( dword x , y )
{
X_EventRedrawWindow = x ;
Y_EventRedrawWindow = y ;
2015-08-21 23:20:08 +03:00
CreateThread ( # _EventRedrawWindow , # REDRAW_BUFF_EVENT_ + 4092 ) ;
2015-07-23 14:54:26 +03:00
}
2015-07-16 04:44:30 +03:00
: dword ALERT_TEXT ;
: void dialog_alert ( )
{
byte id ;
loop ( ) switch ( WaitEvent ( ) )
{
case evReDraw :
DefineAndDrawWindow ( 215 , 100 , 250 , 200 , 0x34 , 0xFFFFFF , " Alert " ) ;
WriteTextB ( 5 , 5 , 0x90 , 0x0 , ALERT_TEXT ) ;
break ;
2015-07-21 04:10:37 +03:00
case evKey :
2015-07-16 04:44:30 +03:00
case evButton :
id = GetButtonID ( ) ;
if ( id = = 1 ) ExitProcess ( ) ;
break ;
}
}
: dword alert ( dword text )
{
dword mem = malloc ( 4096 ) ;
ALERT_TEXT = text ;
CreateThread ( # dialog_alert , mem + 4092 ) ;
return mem ;
}
2015-07-20 02:09:56 +03:00
: struct _screen
{
dword width , height ;
} screen ;
: struct _skin
{
dword width , height ;
2015-07-20 02:38:20 +03:00
} SKIN ;
2015-07-20 02:09:56 +03:00
2015-08-02 01:08:58 +03:00
: void DrawDate ( dword x , y , color , in_date )
{
//char text[15];
EDI = in_date ;
EAX = 47 ;
EBX = 2 < < 16 ;
EDX = x < < 16 + y ;
ESI = 0x80 < < 24 + color ;
ECX = EDI . date . day ;
$ int 0x40 ;
EDX + = 18 < < 16 ;
ECX = EDI . date . month ;
$ int 0x40 ;
EDX + = 18 < < 16 ;
EBX = 4 < < 16 ;
ECX = EDI . date . year ;
$ int 0x40 ;
PutPixel ( x + 14 , y + 6 , color ) ;
PutPixel ( x + 32 , y + 6 , color ) ;
//sprintf(#text,"%d",EDI.date.year);
//WriteText(x, y, 0x80, 0x000000, #text);
}
2015-08-02 14:41:41 +03:00
: void __path_name__ ( dword BUF , PATH )
{
dword beg = PATH ;
dword pos = PATH ;
dword sav = PATH ;
dword i ;
while ( DSBYTE [ pos ] )
{
if ( DSBYTE [ pos ] = = ' / ' ) sav = pos ;
pos + + ;
}
i = sav - beg ;
while ( i )
{
DSBYTE [ BUF ] = DSBYTE [ beg ] ;
beg + + ;
BUF + + ;
i - - ;
}
/*while(DSBYTE[beg])
{
DSBYTE [ BUF1 ] = DSBYTE [ beg ] ;
beg + + ;
BUF1 + + ;
} */
//DSBYTE[BUF1] = 0;
DSBYTE [ BUF ] = 0 ;
}
2015-08-02 17:40:41 +03:00
char __BUF_DIR__ [ 4096 ] ;
: struct SELF
{
dword dir ;
dword file ;
dword path ;
} self ;
2015-08-02 14:41:41 +03:00
2015-07-12 02:45:19 +03:00
dword __generator ; // random number generator - <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD>
2015-07-20 02:09:56 +03:00
: dword program_path_length ;
2015-07-16 04:44:30 +03:00
2015-07-12 02:45:19 +03:00
//The initialization of the initial data before running
2015-08-02 17:40:41 +03:00
void ______INIT______ ( )
2015-07-12 02:45:19 +03:00
{
2015-08-02 17:40:41 +03:00
self . dir = # __BUF_DIR__ ;
self . file = 0 ;
self . path = I_Path ;
__path_name__ ( # __BUF_DIR__ , I_Path ) ;
2015-07-20 02:09:56 +03:00
2015-08-02 14:41:41 +03:00
SKIN . height = GetSkinHeight ( ) ;
2015-07-20 02:09:56 +03:00
screen . width = GetScreenWidth ( ) ;
screen . height = GetScreenHeight ( ) ;
//program_path_length = strlen(I_Path);
2015-07-16 04:44:30 +03:00
MOUSE_TIME = 50 ; //Default 500 ms.
2015-07-12 02:45:19 +03:00
__generator = GetStartTime ( ) ;
2015-08-02 18:15:15 +03:00
$ push ebx
$ mov eax , 68
$ mov ebx , 11
$ int 0x40
$ pop ebx
2015-07-12 02:45:19 +03:00
main ( ) ;
2015-07-22 21:32:54 +03:00
}
2015-08-02 17:40:41 +03:00
______STOP______ :
2015-07-22 21:32:54 +03:00
# endif