71 lines
2.2 KiB
Plaintext
71 lines
2.2 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();}
|
|
KEYBOARD:DESCRIPTION=CZEMU_SIE_CRASHUJE_JAK_PROBUJE_PRZEJSC_DALEJ
|
|
|
|
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=DANETESTOWE
|
|
DANETESTOWE:TYPE=ARRAY
|
|
|
|
OBJECT=ARRAY_TEMP_NAME
|
|
ARRAY_TEMP_NAME:TYPE=STRING
|
|
ARRAY_TEMP_NAME:VALUE=
|
|
|
|
OBJECT=TEST_STRING
|
|
TEST_STRING:TYPE=STRING
|
|
TEST_STRING:VALUE=
|
|
TEST_STRING:DEFAULT=
|
|
TEST_STRING:ONCHANGED={TXTMSG2^SETTEXT(TEST_STRING^GET());}
|
|
TEST_STRING:TOINI=TRUE
|
|
|
|
OBJECT=ARRAY_TO_STRING
|
|
ARRAY_TO_STRING:TYPE=BEHAVIOUR
|
|
ARRAY_TO_STRING:CODE={@STRING("ARRAY_TEXT", "");ARRAY_TEMP_NAME^SET($1);ARRAY_TEXT^ADD([ARRAY_TEMP_NAME+"_"]);@LOOP("{ARRAY_TEXT^ADD(["_"+_I_]);ARRAY_TEXT^ADD(["__"+GAME^RUN(ARRAY_TEMP_NAME,"GET",_I_)]);}", "0", GAME^RUN(ARRAY_TEMP_NAME,"GETSIZE"), "1");@RETURN(ARRAY_TEXT);}
|
|
|
|
OBJECT=TEST_VALUE
|
|
TEST_VALUE:TYPE=INTEGER
|
|
TEST_VALUE:VALUE=0
|
|
TEST_VALUE:ONCHANGED^1={TEST_STRING^ADD(ARRAY_TO_STRING^RUN("DANETESTOWE"));}
|
|
|
|
OBJECT=TEST_TIMER
|
|
TEST_TIMER:TYPE=TIMER
|
|
TEST_TIMER:ENABLED=TRUE
|
|
TEST_TIMER:ELAPSE=100
|
|
TEST_TIMER:TICKS=0
|
|
TEST_TIMER:ONTICK={TEST_STRING^ADD(ARRAY_TO_STRING^RUN("DANETESTOWE"));TEST_TIMER^DISABLE();}
|
|
|
|
OBJECT=__INIT__
|
|
__INIT__:TYPE=BEHAVIOUR
|
|
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);TEST_STRING^RESETINI();TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_tablic"]);TXTMSG^SHOW();TXTMSG2^SHOW();DANETESTOWE^ADD(0.0,1.0,0.0,0.0);TEST_STRING^ADD("BEHINITFILTERvBEHINITPLAYERvBEHROTATEv");}
|