44 lines
1.3 KiB
Plaintext
44 lines
1.3 KiB
Plaintext
OBJECT=KEYBOARD
|
|
KEYBOARD:TYPE=KEYBOARD
|
|
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("LOGIC_TEST");}
|
|
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("ANIMO_TEST");}
|
|
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
|
|
|
|
OBJECT=ARIAL14
|
|
ARIAL14:TYPE=FONT
|
|
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
|
|
|
|
OBJECT=TXTMSG
|
|
TXTMSG:TYPE=TEXT
|
|
TXTMSG:VISIBLE=TRUE
|
|
TXTMSG:HYPERTEXT=
|
|
TXTMSG:FONT=ARIAL14
|
|
TXTMSG:TOCANVAS=TRUE
|
|
TXTMSG:RECT=0,0,800,250
|
|
TXTMSG:PRIORITY=10000
|
|
TXTMSG:HJUSTIFY=CENTER
|
|
TXTMSG:VJUSTIFY=TOP
|
|
TXTMSG:MONITORCOLLISION=FALSE
|
|
TXTMSG:MONITORCOLLISIONALPHA=FALSE
|
|
|
|
OBJECT=TXTMSG2
|
|
TXTMSG2:TYPE=TEXT
|
|
TXTMSG2:VISIBLE=TRUE
|
|
TXTMSG2:HYPERTEXT=
|
|
TXTMSG2:FONT=ARIAL14
|
|
TXTMSG2:TOCANVAS=TRUE
|
|
TXTMSG2:RECT=0,0,800,250
|
|
TXTMSG2:PRIORITY=10000
|
|
TXTMSG2:HJUSTIFY=CENTER
|
|
TXTMSG2:VJUSTIFY=BOTTOM
|
|
TXTMSG2:MONITORCOLLISION=FALSE
|
|
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
|
|
|
|
OBJECT=ARPRZESZKODY
|
|
ARPRZESZKODY:TYPE=MULTIARRAY
|
|
ARPRZESZKODY:DIMENSIONS=2
|
|
|
|
OBJECT=__INIT__
|
|
__INIT__:TYPE=BEHAVIOUR
|
|
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);ARPRZESZKODY^SET(0,0,0);ARPRZESZKODY^SET(0,1,1);ARPRZESZKODY^SET(0,2,2);ARPRZESZKODY^SET(1,0,3);ARPRZESZKODY^SET(1,1,4);ARPRZESZKODY^SET(1,2,5);ARPRZESZKODY^SET(2,0,6);ARPRZESZKODY^SET(2,1,7);ARPRZESZKODY^SET(2,2,8);ARPRZESZKODY^SAVE("TEST.MAR");TXTMSG2^SETTEXT(ARPRZESZKODY^GETSIZE(1,1));}
|