166 lines
8.8 KiB
Plaintext
166 lines
8.8 KiB
Plaintext
OBJECT=MUSIC
|
|
MUSIC:TYPE=MUSIC
|
|
MUSIC:FILENAME=EGIPT.WAV
|
|
|
|
OBJECT=KEYBOARD
|
|
KEYBOARD:TYPE=KEYBOARD
|
|
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("ARRAY_TEST");}
|
|
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
|
|
KEYBOARD:ONKEYDOWN^UP={@IF("BEHNO",">","1","{BEHNO^DEC();}","");*[ANIMO_TEST_+BEHNO]^RUN();}
|
|
KEYBOARD:ONKEYDOWN^DOWN={@IF("BEHNO","<","28","{BEHNO^INC();}","");*[ANIMO_TEST_+BEHNO]^RUN();}
|
|
KEYBOARD:ONKEYDOWN^W={ANIMACJA^MOVE(0,[0-MOVE_SPEED]);*[ANIMO_TEST_+BEHNO]^RUN();}
|
|
KEYBOARD:ONKEYDOWN^S={ANIMACJA^MOVE(0,MOVE_SPEED);*[ANIMO_TEST_+BEHNO]^RUN();}
|
|
KEYBOARD:ONKEYDOWN^A={ANIMACJA^MOVE([0-MOVE_SPEED],0);*[ANIMO_TEST_+BEHNO]^RUN();}
|
|
KEYBOARD:ONKEYDOWN^D={ANIMACJA^MOVE(MOVE_SPEED,0);*[ANIMO_TEST_+BEHNO]^RUN();}
|
|
|
|
OBJECT=ARIAL14
|
|
ARIAL14:TYPE=FONT
|
|
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
|
|
|
|
OBJECT=MOVE_SPEED
|
|
MOVE_SPEED:TYPE=INTEGER
|
|
MOVE_SPEED:VALUE=10
|
|
|
|
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=10
|
|
|
|
OBJECT=ANIMACJA
|
|
ANIMACJA:TYPE=ANIMO
|
|
ANIMACJA:FILENAME=1_KRET.ANN
|
|
ANIMACJA:VISIBLE=TRUE
|
|
ANIMACJA:TOCANVAS=TRUE
|
|
ANIMACJA:PRIORITY=25
|
|
ANIMACJA:FPS=32
|
|
ANIMACJA:PRELOAD=TRUE
|
|
ANIMACJA:RELEASE=TRUE
|
|
ANIMACJA:MONITORCOLLISION=FALSE
|
|
ANIMACJA:MONITORCOLLISIONALPHA=FALSE
|
|
ANIMACJA:ASBUTTON=TRUE
|
|
ANIMACJA:ONINIT={EVENT_DEBUG_TXT^ADD("|INIT");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
|
|
#ANIMACJA:ONDONE={EVENT_DEBUG_TXT^ADD("|DONE");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
|
|
ANIMACJA:ONSIGNAL^TEST={EVENT_DEBUG_TXT^ADD("|SIGNAL_TEST");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
|
|
ANIMACJA:ONFRAMECHANGED={*[ANIMO_TEST_+BEHNO]^RUN();}
|
|
ANIMACJA:ONCLICK={ANIMACJA^PLAY("SPADA");}
|
|
ANIMACJA:ONFINISHED^SPADA={ANIMACJA^SETFRAME("R_IDLE",0);}
|
|
|
|
OBJECT=ANIMACJA2
|
|
ANIMACJA2:TYPE=ANIMO
|
|
ANIMACJA2:FILENAME=REKSIO.ANN
|
|
ANIMACJA2:VISIBLE=FALSE
|
|
ANIMACJA2:TOCANVAS=TRUE
|
|
ANIMACJA2:PRIORITY=25
|
|
ANIMACJA2:FPS=32
|
|
ANIMACJA2:PRELOAD=TRUE
|
|
ANIMACJA2:RELEASE=TRUE
|
|
ANIMACJA2:MONITORCOLLISION=FALSE
|
|
ANIMACJA2:MONITORCOLLISIONALPHA=FALSE
|
|
|
|
OBJECT=EVENT_DEBUG_TXT
|
|
EVENT_DEBUG_TXT:TYPE=STRING
|
|
EVENT_DEBUG_TXT:VALUE=
|
|
|
|
OBJECT=CALCULATE_DISTANCE
|
|
CALCULATE_DISTANCE:TYPE=BEHAVIOUR
|
|
CALCULATE_DISTANCE:CODE={@INT("X_SQUARE", [$1-$3]);X_SQUARE^POWER(2);@INT("Y_SQUARE", [$2-$4]);Y_SQUARE^POWER(2);@DOUBLE("ANIMO_DISTANCE", [X_SQUARE+Y_SQUARE]);ANIMO_DISTANCE^SQRT();@RETURN(ANIMO_DISTANCE);}
|
|
|
|
# OBLICZA PROCENT NAKLADANIA SIE PROSTOKATOW
|
|
# $1 - LEWY X OBIEKTU 1
|
|
# $2 - DOLNY Y OBIEKTU 1
|
|
# $3 - LEWY X OBIEKTU 2
|
|
# $4 - DOLNY Y OBIEKTU 2
|
|
# $5 - PRAWY X OBIEKTU 1
|
|
# $6 - GORNY Y OBIEKTU 1
|
|
# $7 - PRAWY X OBIEKTU 2
|
|
# $8 - GORNY Y OBIEKTU 2
|
|
OBJECT=CALCULATE_IOU
|
|
CALCULATE_IOU:TYPE=BEHAVIOUR
|
|
CALCULATE_IOU:CODE={@INT("INTERSECTIONX",0);@INT("INTERSECTIONY",0);@INT("INTERSECTIONWIDTH",0);@INT("INTERSECTIONHEIGHT",0);INTERSECTIONX^SET(INTERSECTIONX^MAXA($1, $3));INTERSECTIONY^SET(INTERSECTIONY^MAXA($2, $4));INTERSECTIONWIDTH^SET(INTERSECTIONWIDTH^MINA($5, $7));INTERSECTIONWIDTH^SUB(INTERSECTIONX);INTERSECTIONHEIGHT^SET(INTERSECTIONHEIGHT^MINA($6, $8));INTERSECTIONHEIGHT^SUB(INTERSECTIONY);!@IF("INTERSECTIONWIDTH<'0||INTERSECTIONHEIGHT<'0","RETURN_ZERO", "");@INT("INTERSECTIONAREA",[INTERSECTIONWIDTH*INTERSECTIONHEIGHT]);@INT("RECT1AREA",[[$5-$1]*[$6-$2]]);@INT("RECT2AREA",[[$7-$3]*[$8-$4]]);@INT("UNIONAREA",[RECT1AREA+RECT2AREA-INTERSECTIONAREA]);@DOUBLE("IOU",[1.0*INTERSECTIONAREA@UNIONAREA*100]);TXTMSG3^();!TXTMSG3^SETTEXT(["INTERSECTIONX__"+INTERSECTIONX+"|INTERSECTIONY__"+INTERSECTIONY+"|INTERSECTIONY__"+INTERSECTIONWIDTH+"|INTERSECTIONWIDTH__"+INTERSECTIONY+"|INTERSECTIONHEIGHT__"+INTERSECTIONHEIGHT+"|INTERSECTIONAREA__"+INTERSECTIONAREA+"|RECT1AREA__"+RECT1AREA+"|RECT2AREA__"+RECT2AREA+"|UNIONAREA__"+UNIONAREA+"|IOU__"+IOU]);@RETURN(IOU);}
|
|
|
|
OBJECT=RETURN_ZERO
|
|
RETURN_ZERO:TYPE=BEHAVIOUR
|
|
RETURN_ZERO:CODE={@RETURN(0);}
|
|
|
|
OBJECT=ANIMO_TEST_1
|
|
ANIMO_TEST_1:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_1:CODE={TXTMSG2^SETTEXT(["METODA_GETCENTERX__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERX()+"|METODA_GETCENTERX(TRUE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERX(TRUE)+"|METODA_GETCENTERX(FALSE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERX(FALSE)+"|METODA_GETCENTERY__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERY()+"|METODA_GETCENTERY(TRUE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERY(TRUE)+"|METODA_GETCENTERY(FALSE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERY(FALSE)]);}
|
|
|
|
OBJECT=ANIMO_TEST_2
|
|
ANIMO_TEST_2:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_2:CODE={TXTMSG2^SETTEXT(["METODA_GETCFRAMEINEVENT__ZWROCONY_WYNIK__"+ANIMACJA^GETCFRAMEINEVENT()+"|METODA_GETCFRAMEINEVENT(SPADA)__ZWROCONY_WYNIK__"+ANIMACJA^GETCFRAMEINEVENT("SPADA")+"|METODA_GETCFRAMEINEVENT(R_IDLE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCFRAMEINEVENT("R_IDLE")]);}
|
|
|
|
OBJECT=ANIMO_TEST_3
|
|
ANIMO_TEST_3:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_3:CODE={TXTMSG2^SETTEXT(["METODA_GETCURRFRAMEPOSX__ZWROCONY_WYNIK__"+ANIMACJA^GETCURRFRAMEPOSX()+"|METODA_GETCURRFRAMEPOSY__ZWROCONY_WYNIK__"+ANIMACJA^GETCURRFRAMEPOSY()]);}
|
|
|
|
OBJECT=ANIMO_TEST_4
|
|
ANIMO_TEST_4:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_4:CODE={TXTMSG2^SETTEXT(["METODA_GETENDX__ZWROCONY_WYNIK__"+ANIMACJA^GETENDX()+"|METODA_GETENDY__ZWROCONY_WYNIK__"+ANIMACJA^GETENDY()]);}
|
|
|
|
OBJECT=ANIMO_TEST_5
|
|
ANIMO_TEST_5:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_5:CODE={TXTMSG2^SETTEXT(["METODA_GETEVENTNAME__ZWROCONY_WYNIK__"+ANIMACJA^GETEVENTNAME()]);}
|
|
|
|
OBJECT=ANIMO_TEST_6
|
|
ANIMO_TEST_6:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_6:CODE={TXTMSG2^SETTEXT(["METODA_GETCFRAMEINEVENT__ZWROCONY_WYNIK__"+ANIMACJA^GETCFRAMEINEVENT()+"|METODA_GETFRAME__ZWROCONY_WYNIK__"+ANIMACJA^GETFRAME()+"|METODA_GETFRAMENAME__ZWROCONY_WYNIK__"+ANIMACJA^GETFRAMENAME()]);}
|
|
|
|
OBJECT=ANIMO_TEST_7
|
|
ANIMO_TEST_7:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_7:CODE={TXTMSG2^SETTEXT(["METODA_GETHEIGHT__ZWROCONY_WYNIK__"+ANIMACJA^GETHEIGHT()+"|METODA_GETWIDTH__ZWROCONY_WYNIK__"+ANIMACJA^GETWIDTH()+"|METODA_GETMAXHEIGHT__ZWROCONY_WYNIK__"+ANIMACJA^GETMAXHEIGHT()+"|METODA_GETMAXWIDTH__ZWROCONY_WYNIK__"+ANIMACJA^GETMAXWIDTH()]);}
|
|
|
|
OBJECT=ANIMO_TEST_8
|
|
ANIMO_TEST_8:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_8:CODE={TXTMSG2^SETTEXT(["METODA_GETNOE__ZWROCONY_WYNIK__"+ANIMACJA^GETNOE()+"|METODA_GETNOF__ZWROCONY_WYNIK__"+ANIMACJA^GETNOF()+"|METODA_GETNOFINEVENT(SPADA)__ZWROCONY_WYNIK__"+ANIMACJA^GETNOFINEVENT("SPADA")+"|METODA_GETNOFINEVENT(0)__ZWROCONY_WYNIK__"+ANIMACJA^GETNOFINEVENT(0)+"|METODA_GETNOFINEVENT(NIEISTNIEJACY_EVENT)__ZWROCONY_WYNIK__"+ANIMACJA^GETNOFINEVENT("NIEISTNIEJACY_EVENT")]);}
|
|
|
|
OBJECT=ANIMO_TEST_9
|
|
ANIMO_TEST_9:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_9:CODE={TXTMSG2^SETTEXT(["METODA_GETPOSITIONX__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONX()+"|METODA_GETPOSITIONX(TRUE)__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONX(TRUE)+"|METODA_GETPOSITIONX(FALSE)__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONX(FALSE)+"|METODA_GETPOSITIONY__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONY()+"|METODA_GETPOSITIONY(TRUE)__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONY(TRUE)+"|METODA_GETPOSITIONY(FALSE)__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONY(FALSE)]);ANIMACJA2^HIDE();}
|
|
|
|
OBJECT=ANIMO_TEST_10
|
|
ANIMO_TEST_10:TYPE=BEHAVIOUR
|
|
ANIMO_TEST_10:CODE={ANIMACJA2^SHOW();TXTMSG2^SETTEXT(["METODA_ISNEAR__ANIMACJA_NEAR_ANIMACJA2__ZWROCONY_WYNIK__"+ANIMACJA^ISNEAR("ANIMACJA2", 20)+"|METODA_ISNEAR__ANIMACJA2_NEAR_ANIMACJA__ZWROCONY_WYNIK__"+ANIMACJA2^ISNEAR("ANIMACJA", 20)+"|ODLEGLOSC_MIEDZY_CENTRAMI_ANIMACJI__"+CALCULATE_DISTANCE^RUN(ANIMACJA^GETCENTERX(), ANIMACJA^GETCENTERY(), ANIMACJA2^GETCENTERX(), ANIMACJA2^GETCENTERY())+"|ODLEGLOSC_PRAWEJ_STRONY_DO_LEWEJ_STRONY__"+CALCULATE_DISTANCE^RUN(ANIMACJA^GETENDX(), ANIMACJA^GETPOSITIONY(), ANIMACJA2^GETPOSITIONX(), ANIMACJA2^GETENDY())+"|INTERSECTION_OF_UNION__ANIMACJA_NEAR_ANIMACJA2__"+CALCULATE_IOU^RUN(ANIMACJA^GETPOSITIONX(),ANIMACJA^GETPOSITIONY(),ANIMACJA2^GETPOSITIONX(),ANIMACJA2^GETPOSITIONY(),ANIMACJA^GETENDX(),ANIMACJA^GETENDY(),ANIMACJA2^GETENDX(),ANIMACJA2^GETENDY())+"|INTERSECTION_OF_UNION__ANIMACJA2_NEAR_ANIMACJA__"+CALCULATE_IOU^RUN(ANIMACJA2^GETPOSITIONX(),ANIMACJA2^GETPOSITIONY(),ANIMACJA^GETPOSITIONX(),ANIMACJA^GETPOSITIONY(),ANIMACJA2^GETENDX(),ANIMACJA2^GETENDY(),ANIMACJA^GETENDX(),ANIMACJA^GETENDY());]);}
|
|
|
|
OBJECT=__INIT__
|
|
__INIT__:TYPE=BEHAVIOUR
|
|
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_animacji"]);TXTMSG^SHOW();TXTMSG2^SHOW();ANIMACJA^SETPOSITION(400, 500);ANIMACJA^PLAY("SPADA");ANIMACJA^SETFRAME("SPADA",4);ANIMACJA2^MOVE(300, -100);ANIMACJA2^PLAY("STOI");ANIMACJA2^HIDE();}
|