| 0,0 → 1,372 |
|---|
| //CODED by Veliant, Leency. GNU GPL licence. |
| |
| #startaddress 0 |
| #code32 TRUE |
| |
| byte os_name[8] = {'M','E','N','U','E','T','0','1'}; |
| dword os_version = 0x00000001; |
| dword start_addr = #main; |
| dword final_addr = #stop+32; |
| dword alloc_mem = 0x00100000; |
| dword x86esp_reg = 0x00100000; // 0x0007fff0; |
| dword I_Param = #param; |
| dword I_Icon = 0x0; |
| char param[256]=""; |
| |
| //Events |
| #define evMouse 6 |
| #define evButton 3 |
| #define evKey 2 |
| #define evReDraw 1 |
| |
| //Button options |
| #define BT_DEL 0x80000000 |
| #define BT_HIDE 0x40000000 |
| #define BT_NOFRAME 0x20000000 |
| |
| #define OLD -1 |
| #define true 1 |
| #define false 0 |
| |
| |
| |
| struct mouse{ |
| int x,y,lkm,pkm,hor,vert; |
| void get(); |
| }; |
| |
| void mouse::get() |
| { |
| EAX = 37; |
| EBX = 1; |
| $int 0x40 |
| $mov ebx, eax |
| $shr eax, 16 |
| $and ebx,0x0000FFFF |
| x = EAX; |
| y = EBX; |
| EAX = 37; |
| EBX = 2; |
| $int 0x40 |
| $mov ebx, eax |
| $and eax, 0x00000001 |
| $shr ebx, 1 |
| $and ebx, 0x00000001 |
| lkm = EAX; |
| pkm = EBX; |
| EAX = 37; //áªà®«« |
| EBX = 7; |
| $int 0x40 |
| $mov ebx, eax |
| $shr eax, 16 |
| $and ebx,0x0000FFFF |
| //hor = EAX; |
| vert = EBX; |
| } |
| |
| //--------------------------------------------------------------------------- |
| struct proc_info{ |
| dword use_cpu; |
| word pos_in_stack,num_slot,rezerv1; |
| char name[11]; |
| 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; |
| void GetInfo(dword ECX); |
| byte reserved[1024-71]; |
| #define SelfInfo -1 |
| }; |
| |
| void proc_info::GetInfo(dword ECX) |
| { |
| EAX = 9; |
| EBX = #use_cpu; |
| $int 0x40 |
| } |
| //------------------------------------------------------------------------------- |
| |
| inline fastcall dword WaitEvent(){ |
| EAX = 10; // wait here for event |
| $int 0x40 |
| } |
| |
| inline fastcall void SetEventMask(dword EBX) |
| { |
| EAX = 40; |
| $int 0x40 |
| } |
| |
| inline fastcall word GetKey(){ |
| EAX = 2; // just read this key from buffer |
| $int 0x40 |
| EAX = EAX >> 8; |
| } |
| |
| inline fastcall word GetButtonID(){ |
| EAX = 17; // Get ID |
| $int 0x40 |
| EAX = EAX >> 8; |
| } |
| |
| inline fastcall void ExitProcess(){ |
| EAX = -1; // close this program |
| $int 0x40 |
| } |
| |
| inline fastcall void Pause(dword EBX){ |
| $mov eax, 5 // 㧠, ¢ á®âëå ¤®«ïå ᥪã¤ë |
| $int 0x40 |
| } |
| |
| //------------------------------------------------------------------------------ |
| void DefineAndDrawWindow(dword x,y,sizeX,sizeY,byte mainAreaType,dword |
| mainAreaColor,byte headerType,dword headerColor,EDI) |
| { |
| EBX = x << 16 + sizeX; |
| ECX = y << 16 + sizeY; |
| EDX = mainAreaType << 24 | mainAreaColor; |
| ESI = headerType << 24 | headerColor; |
| $xor eax,eax |
| $int 0x40 |
| } |
| |
| inline fastcall void CreateThread(dword ECX,EDX) |
| { |
| EAX = 51; |
| EBX = 1; |
| $int 0x40 |
| } |
| |
| inline fastcall void DrawTitle(dword ECX){ |
| EAX = 71; |
| EBX = 1; |
| $int 0x40; |
| } |
| |
| |
| inline fastcall void WindowRedrawStatus(dword EBX){ |
| EAX = 12; //tell os about windowdraw |
| $int 0x40 |
| } |
| |
| inline fastcall dword GetSkinWidth(){ |
| EAX = 48; |
| EBX = 4; |
| $int 0x40 |
| } |
| |
| inline fastcall void MoveSize(dword EBX,ECX,EDX,ESI){ |
| EAX = 67; |
| $int 0x40 |
| } |
| |
| //------------------------------------------------------------------------------ |
| |
| inline fastcall dword strlen(EDI){ |
| asm { |
| xor ecx, ecx |
| xor eax, eax |
| dec ecx |
| repne scasb |
| sub eax, 2 |
| sub eax, ecx |
| } |
| } |
| |
| |
| inline fastcall copystr(dword ESI,EDI) |
| { |
| $cld |
| l1: |
| $lodsb |
| $stosb |
| $test al,al |
| $jnz l1 |
| } |
| |
| byte fastcall TestBit(EAX, CL) |
| { |
| $shr eax,cl |
| $and eax,1 |
| } |
| |
| |
| char buffer[11]=""; |
| inline fastcall dword IntToStr(dword ESI) |
| { |
| $mov edi, #buffer |
| $mov ecx, 10 |
| $test esi, esi |
| $jns f1 |
| $mov al, '-' |
| $stosb |
| $neg esi |
| f1: |
| $mov eax, esi |
| $push -'0' |
| f2: |
| $xor edx, edx |
| $div ecx |
| $push edx |
| $test eax, eax |
| $jnz f2 |
| f3: |
| $pop eax |
| $add al, '0' |
| $stosb |
| $jnz f3 |
| $mov eax, #buffer |
| $ret |
| } |
| |
| |
| dword StrToCol(char* htmlcolor) |
| { |
| dword j=1, color=0; char ch=0x00; |
| IF (ESBYTE[htmlcolor]<>'#') RETURN; |
| FOR (;j<7;j++) |
| { |
| ch=ESBYTE[htmlcolor+j]; |
| IF ((ch>='0') && (ch<='9')) ch -= '0'; |
| IF ((ch>='A') && (ch<='F')) ch -= 'A'-10; |
| IF ((ch>='a') && (ch<='f')) ch -= 'a'-10; |
| color = color*0x10 + ch; |
| } |
| EAX=color; |
| } |
| |
| |
| inline fastcall int strcmp(ESI, EDI) |
| { |
| loop() |
| { |
| IF (DSBYTE[ESI]<DSBYTE[EDI]) RETURN -1; |
| IF (DSBYTE[ESI]>DSBYTE[EDI]) RETURN 1; |
| IF (DSBYTE[ESI]=='\0') RETURN 0; |
| ESI++; |
| EDI++; |
| } |
| } |
| |
| |
| inline fastcall unsigned int find_symbol(ESI,BL) |
| { |
| int jj=0, last=-1; |
| do{ |
| jj++; |
| $lodsb |
| IF(AL==BL) last=jj; |
| } while(AL!=0); |
| return last; |
| } |
| |
| |
| inline fastcall ChangeCase(dword EDX) |
| { |
| AL=DSBYTE[EDX]; |
| IF(AL>='a')&&(AL<='z')DSBYTE[EDX]=AL&0x5f; |
| IF (AL>=160) && (AL<=175) DSBYTE[EDX] = AL - 32; //à-ï |
| IF (AL>=224) && (AL<=239) DSBYTE[EDX] = AL - 80; //à-ï |
| do{ |
| EDX++; |
| AL=DSBYTE[EDX]; |
| IF(AL>='A')&&(AL<='Z'){DSBYTE[EDX]=AL|0x20; continue;} |
| IF(AL>='')&&(AL<='')DSBYTE[EDX]=AL|0x20; // -¯ |
| IF (AL>=144) && (AL<=159) DSBYTE[EDX] = AL + 80; //à-ï |
| }while(AL!=0); |
| } |
| |
| |
| //------------------------------------------------------------------------------ |
| inline fastcall void PutPixel(dword EBX,ECX,EDX){ |
| EAX=1; |
| $int 0x40 |
| } |
| |
| void DefineButton(dword x,y,w,h,EDX,ESI){ |
| EAX = 8; |
| EBX = x<<16+w; |
| ECX = y<<16+h; |
| $int 0x40 |
| } |
| |
| inline fastcall void DeleteButton(dword EDX) |
| { |
| EAX = 8; |
| EDX += BT_DEL; |
| $int 0x40; |
| } |
| |
| void WriteText(dword x,y,byte fontType, dword color, EDX, ESI) |
| { |
| EAX = 4; |
| EBX = x<<16+y; |
| ECX = fontType<<24+color; |
| $int 0x40; |
| } |
| |
| void DrawBar(dword x,y,w,h,EDX) |
| { |
| #speed |
| EAX = 13; |
| EBX = x<<16+w; |
| ECX = y<<16+h; |
| $int 0x40 |
| #codesize |
| } |
| |
| void DrawRegion_3D(dword x,y,width,height,color1,color2) |
| { |
| DrawBar(x,y,width+1,1,color1); //¯®«®á £®à ᢥàåã |
| DrawBar(x,y+1,1,height-1,color1); //¯®«®á á«¥¢ |
| DrawBar(x+width,y+1,1,height,color2); //¯®«®á á¯à ¢ |
| DrawBar(x,y+height,width,1,color2); //¯®«®á £®à ᨧã |
| } |
| |
| void DrawFlatButton(dword x,y,width,height,id,color,text) |
| { |
| DrawRegion_3D(x,y,width,height,0x94AECE,0x94AECE); |
| DrawRegion_3D(x+1,y+1,width-2,height-2,0xFFFFFF,0xC7C7C7); |
| DrawBar(x+2,y+2,width-3,height-3,color); //§ «¨¢ª |
| IF (id<>0) DefineButton(x,y,width,height,id+BT_HIDE,0xEFEBEF); //ª®¯ª |
| WriteText(-strlen(text)*6+width/2+x+1,height/2-3+y,0x80,0,text,0); |
| } |
| |
| void PutImage(dword EBX,w,h,x,y) |
| { |
| EAX = 7; |
| ECX = w<<16+h; |
| EDX = x<<16+y; |
| $int 0x40 |
| } |
| |
| void PutPaletteImage(dword EBX,w,h,x,y, EDI) |
| { |
| EAX = 65; |
| ECX = w<<16+h; |
| EDX = x<<16+y; |
| ESI = 8; |
| EBP = 0; |
| $int 0x40 |
| } |
| |
| //------------------------------------------------------------------------------ |
| void WriteDebug(dword EDX) |
| { |
| $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: |
| $mov cl, 13 |
| $int 0x40 |
| $mov cl, 10 |
| $int 0x40 |
| } |