; ; HSP3.0 Default define and macros ; #ifdef __hsp30__ #ifndef __hspdef__ #define __hspdef__ #addition "userdef.as" #define global and & #define global or | #define global xor ^ #define global not ! #define global screen_normal 0 #define global screen_palette 1 #define global screen_hide 2 #define global screen_fixedsize 4 #define global screen_tool 8 #define global screen_frame 16 #define global gmode_gdi 0 #define global gmode_mem 1 #define global gmode_rgb0 2 #define global gmode_alpha 3 #define global gmode_rgb0alpha 4 #define global gmode_add 5 #define global gmode_sub 6 #define global gmode_pixela 7 #define global ginfo_mx ginfo(0) #define global ginfo_my ginfo(1) #define global ginfo_act ginfo(2) #define global ginfo_sel ginfo(3) #define global ginfo_wx1 ginfo(4) #define global ginfo_wy1 ginfo(5) #define global ginfo_wx2 ginfo(6) #define global ginfo_wy2 ginfo(7) #define global ginfo_vx ginfo(8) #define global ginfo_vy ginfo(9) #define global ginfo_sizex ginfo(10) #define global ginfo_sizey ginfo(11) #define global ginfo_winx ginfo(12) #define global ginfo_winy ginfo(13) #define global ginfo_mesx ginfo(14) #define global ginfo_mesy ginfo(15) #define global ginfo_r ginfo(16) #define global ginfo_g ginfo(17) #define global ginfo_b ginfo(18) #define global ginfo_paluse ginfo(19) #define global ginfo_dispx ginfo(20) #define global ginfo_dispy ginfo(21) #define global ginfo_cx ginfo(22) #define global ginfo_cy ginfo(23) #define global ginfo_intid ginfo(24) #define global ginfo_sx ginfo(26) #define global ginfo_sy ginfo(27) #define global ctype objinfo_mode(%1) objinfo(%1,0) #define global ctype objinfo_bmscr(%1) objinfo(%1,1) #define global ctype objinfo_hwnd(%1) objinfo(%1,2) #define global notemax noteinfo(0) #define global notesize noteinfo(1) #define global dir_cur dirinfo(0) #define global dir_exe dirinfo(1) #define global dir_win dirinfo(2) #define global dir_sys dirinfo(3) #define global dir_cmdline dirinfo(4) #define global dir_desktop dirinfo($10000) #define global dir_mydoc dirinfo($10005) #define global font_normal 0 #define global font_bold 1 #define global font_italic 2 #define global font_underline 4 #define global font_strikeout 8 #define global font_antialias 16 #define global objmode_normal 0 #define global objmode_guifont 1 #define global objmode_usefont 2 #define global msgothic "‚l‚r ƒSƒVƒbƒN" #define global msmincho "‚l‚r –¾’©" #define global do %tbreak %i0 %tcontinue %i0 %tdo *%i #define global until(%1=1) %tcontinue *%o : %tdo if %1=0 { goto *%o } %tbreak *%o #define global while(%1=1) %tcontinue %i0 %twhile *%i :%tbreak if %1=0 { goto *%i } #define global wend %tcontinue *%o : %twhile goto *%o: %tbreak *%o #define global for(%1,%2=0,%3=0,%4=1) %tcontinue %i0 %tfor %1=%2:*%i %s4 %s1 :%tbreak exgoto %1,%4,%3,*%i #define global next %tcontinue *%o :%tfor %o +=%o :goto *%o :%tbreak *%o #define global _break %tbreak goto *%p #define global _continue %tcontinue goto *%p #define global switch(%1) %tswitch %i0 %s1 _switch_val=%p : if 0 { #define global case(%1) %tswitch _switch_sw++} if _switch_val == (%1) | _switch_sw { _switch_sw = 0 #define global default %tswitch } if 1 { #define global swbreak %tswitch goto *%p1 #define global swend %tswitch %o0 } *%o #define global ddim(%1,%2,%3=0,%4=0,%5=0) dimtype %1,3,%2,%3,%4,%5 #define global alloc sdim #ifndef _DEBUG #undef assert #define assert(%1) : #undef logmes #define logmes(%1) : #endif #endif #else #addition "hsp261cmp.as" #endif