Added files

dane/game/debug/arraytest/Array_test.cnv

@@ -0,0 +1,188 @@
+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:ONKEYDOWN^UP={@IF("BEHNO",">","1","{BEHNO^DEC();}","");*[ARRAY_TEST_+BEHNO]^RUN();}
+KEYBOARD:ONKEYDOWN^DOWN={@IF("BEHNO","<","28","{BEHNO^INC();}","");*[ARRAY_TEST_+BEHNO]^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=TXTMSG3
+TXTMSG3:TYPE=TEXT
+TXTMSG3:VISIBLE=FALSE
+TXTMSG3:HYPERTEXT=
+TXTMSG3:FONT=ARIAL14
+TXTMSG3:TOCANVAS=TRUE
+TXTMSG3:RECT=0,350,800,650
+TXTMSG3:PRIORITY=10000
+TXTMSG3:HJUSTIFY=CENTER
+TXTMSG3:VJUSTIFY=TOP
+TXTMSG3:MONITORCOLLISION=FALSE
+TXTMSG3:MONITORCOLLISIONALPHA=FALSE
+
+OBJECT=BEHNO
+BEHNO:TYPE=INTEGER
+BEHNO:VALUE=1
+
+OBJECT=DANETESTOWE
+DANETESTOWE:TYPE=ARRAY
+DANETESTOWE:ONINIT={EVENT_DEBUG_TXT^ADD("|INIT");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
+#DANETESTOWE:ONDONE={EVENT_DEBUG_TXT^ADD("|DONE");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
+DANETESTOWE:ONSIGNAL^TEST={EVENT_DEBUG_TXT^ADD("|SIGNAL_TEST");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
+
+OBJECT=TEST_COPY_ARRAY
+TEST_COPY_ARRAY:TYPE=ARRAY
+
+OBJECT=EVENT_DEBUG_TXT
+EVENT_DEBUG_TXT:TYPE=STRING
+EVENT_DEBUG_TXT:VALUE=
+
+OBJECT=ARRAY_TO_STRING
+ARRAY_TO_STRING:TYPE=BEHAVIOUR
+ARRAY_TO_STRING:CODE={@STRING("ARRAY_TEXT", "");@LOOP("{ARRAY_TEXT^ADD([""+_I_+"__"+DANETESTOWE^GET(_I_)]);@IF("_I_","!_", [DANETESTOWE^GETSIZE()-1], "{ARRAY_TEXT^ADD("|");}", "");}", "0", DANETESTOWE^GETSIZE(), "1");@RETURN(ARRAY_TEXT);}
+
+OBJECT=ARRAY2_TO_STRING
+ARRAY2_TO_STRING:TYPE=BEHAVIOUR
+ARRAY2_TO_STRING:CODE={@STRING("ARRAY_TEXT", "");@LOOP("{ARRAY_TEXT^ADD([""+_I_+"__"+TEST_COPY_ARRAY^GET(_I_)]);@IF("_I_","!_", [TEST_COPY_ARRAY^GETSIZE()-1], "{ARRAY_TEXT^ADD("|");}", "");}", "0", TEST_COPY_ARRAY^GETSIZE(), "1");@RETURN(ARRAY_TEXT);}
+
+OBJECT=ARRAY_TEST_1
+ARRAY_TEST_1:TYPE=BEHAVIOUR
+ARRAY_TEST_1:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADD("FALSE");TXTMSG2^SETTEXT(["METODA_ADD|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_2
+ARRAY_TEST_2:TYPE=BEHAVIOUR
+ARRAY_TEST_2:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADDAT(0, "FALSE");TXTMSG2^SETTEXT(["METODA_ADDAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_3
+ARRAY_TEST_3:TYPE=BEHAVIOUR
+ARRAY_TEST_3:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^CHANGEAT(0, "FALSE");TXTMSG2^SETTEXT(["METODA_CHANGEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_4
+ARRAY_TEST_4:TYPE=BEHAVIOUR
+ARRAY_TEST_4:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^CLAMPAT(2, -2, 0.5);TXTMSG2^SETTEXT(["METODA_CLAMPEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_5
+ARRAY_TEST_5:TYPE=BEHAVIOUR
+ARRAY_TEST_5:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_CONTAINS|ZWROCONY_WYNIK__"+DANETESTOWE^CONTAINS(TRUE)+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_6
+ARRAY_TEST_6:TYPE=BEHAVIOUR
+ARRAY_TEST_6:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^COPYTO("TEST_COPY_ARRAY");TXTMSG2^SETTEXT(["METODA_COPYTO|ZWROCONY_WYNIK__void|"+ARRAY2_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_7
+ARRAY_TEST_7:TYPE=BEHAVIOUR
+ARRAY_TEST_7:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_FIND|ZWROCONY_WYNIK__"+DANETESTOWE^FIND("TRUE")+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_8
+ARRAY_TEST_8:TYPE=BEHAVIOUR
+ARRAY_TEST_8:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_FIND__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^FIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_9
+ARRAY_TEST_9:TYPE=BEHAVIOUR
+ARRAY_TEST_9:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_FIND__NIEISTNIEJACY_ELEMENT_TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^FIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_10
+ARRAY_TEST_10:TYPE=BEHAVIOUR
+ARRAY_TEST_10:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__ISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^GET(2)+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_11
+ARRAY_TEST_11:TYPE=BEHAVIOUR
+ARRAY_TEST_11:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^GET(10)+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_12
+ARRAY_TEST_12:TYPE=BEHAVIOUR
+ARRAY_TEST_12:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__NIEISTNIEJACY_ELEMENT_DWA_ARGUMENTY|ZWROCONY_WYNIK__"+DANETESTOWE^GET(8,1)+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_13
+ARRAY_TEST_13:TYPE=BEHAVIOUR
+ARRAY_TEST_13:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GETSIZE|ZWROCONY_WYNIK__"+DANETESTOWE^GETSIZE()+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_14
+ARRAY_TEST_14:TYPE=BEHAVIOUR
+ARRAY_TEST_14:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GETSUMVALUE|ZWROCONY_WYNIK__"+DANETESTOWE^GETSUMVALUE()+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_15
+ARRAY_TEST_15:TYPE=BEHAVIOUR
+ARRAY_TEST_15:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_GETSUMVALUE__TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^GETSUMVALUE()+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_16
+ARRAY_TEST_16:TYPE=BEHAVIOUR
+ARRAY_TEST_16:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^INSERTAT(3, 2.5);TXTMSG2^SETTEXT(["METODA_INSERTAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_17
+ARRAY_TEST_17:TYPE=BEHAVIOUR
+ARRAY_TEST_17:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SAVEINI();TXTMSG2^SETTEXT(["METODA_SAVEINI|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_18
+ARRAY_TEST_18:TYPE=BEHAVIOUR
+ARRAY_TEST_18:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVE(TRUE);TXTMSG2^SETTEXT(["METODA_REMOVE|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_19
+ARRAY_TEST_19:TYPE=BEHAVIOUR
+ARRAY_TEST_19:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVEALL();TXTMSG2^SETTEXT(["METODA_REMOVEALL|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_20
+ARRAY_TEST_20:TYPE=BEHAVIOUR
+ARRAY_TEST_20:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVEAT(2);TXTMSG2^SETTEXT(["METODA_REMOVEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_21
+ARRAY_TEST_21:TYPE=BEHAVIOUR
+ARRAY_TEST_21:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND("TRUE")+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_22
+ARRAY_TEST_22:TYPE=BEHAVIOUR
+ARRAY_TEST_22:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_23
+ARRAY_TEST_23:TYPE=BEHAVIOUR
+ARRAY_TEST_23:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND__NIEISTNIEJACY_ELEMENT_TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_24
+ARRAY_TEST_24:TYPE=BEHAVIOUR
+ARRAY_TEST_24:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SUB(5);TXTMSG2^SETTEXT(["METODA_SUB|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_25
+ARRAY_TEST_25:TYPE=BEHAVIOUR
+ARRAY_TEST_25:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SUM(5);TXTMSG2^SETTEXT(["METODA_SUM|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
+
+OBJECT=ARRAY_TEST_26
+ARRAY_TEST_26:TYPE=BEHAVIOUR
+ARRAY_TEST_26:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADD(ARIAL14);TXTMSG2^SETTEXT(["PROBA_DODANIA_INNEGO_TYPU|WIELKOSC_TABLICY__"+DANETESTOWE^GETSIZE()]);}
+
+OBJECT=ARRAY_TEST_27
+ARRAY_TEST_27:TYPE=BEHAVIOUR
+ARRAY_TEST_27:CODE={TXTMSG3^SHOW();EVENT_DEBUG_TXT^ADD("|PRZED_LOAD");DANETESTOWE^LOAD("TESTOWE_DANE.ARR");EVENT_DEBUG_TXT^ADD("|PO_LOAD|PRZED_SAVE");DANETESTOWE^SAVE("TEST_ZAPISU.ARR");EVENT_DEBUG_TXT^ADD("|PO_SAVE");DANETESTOWE^SEND("TEST");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
+
+OBJECT=__INIT__
+__INIT__:TYPE=BEHAVIOUR
+__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_tablic"]);TXTMSG^SHOW();TXTMSG2^SHOW();ARRAY_TEST_1^RUN();}