76 lines
1.9 KiB
Plaintext
76 lines
1.9 KiB
Plaintext
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=TXTMSG4
|
|
TXTMSG4:TYPE=TEXT
|
|
TXTMSG4:VISIBLE=FALSE
|
|
TXTMSG4:HYPERTEXT=
|
|
TXTMSG4:FONT=ARIAL14
|
|
TXTMSG4:TOCANVAS=TRUE
|
|
TXTMSG4:RECT=0,350,800,600
|
|
TXTMSG4:PRIORITY=10000
|
|
TXTMSG4:HJUSTIFY=CENTER
|
|
TXTMSG4:VJUSTIFY=BOTTOM
|
|
TXTMSG4:MONITORCOLLISION=FALSE
|
|
TXTMSG4:MONITORCOLLISIONALPHA=FALSE
|
|
|
|
OBJECT=TIMERKUR
|
|
TIMERKUR:TYPE=TIMER
|
|
TIMERKUR:ELAPSE=100
|
|
TIMERKUR:TICKS=0
|
|
TIMERKUR:ONINIT={THIS^DISABLE();}
|
|
TIMERKUR:ONTICK={TXTMSG3^SETTEXT(["TIMER_PRZED_BREAKIEM__"+TIMERKUR^GETTICKS()]);COND1^BREAK(TRUE);TXTMSG2^SETTEXT(["TIMER__"+TIMERKUR^GETTICKS()]);}
|
|
TIMERKUR:ONTICK^110={THIS^DISABLE();}
|
|
|
|
OBJECT=COND1
|
|
COND1:TYPE=CONDITION
|
|
COND1:OPERAND1=TIMERKUR^GETTICKS()
|
|
COND1:OPERATOR=GREATER
|
|
COND1:OPERAND2=100
|
|
COND1:ONRUNTIMESUCCESS={TXTMSG4^SETTEXT("Jest_okej");}
|
|
COND1:ONRUNTIMEFAILED={TXTMSG4^SETTEXT("Nie_jest_okej");}
|
|
|
|
OBJECT=__INIT__
|
|
__INIT__:TYPE=BEHAVIOUR
|
|
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_timera_i_conditionali"]);TXTMSG^SHOW();TXTMSG2^SHOW();TXTMSG3^SHOW();TXTMSG4^SHOW();TXTMSG4^SETTEXT("Test");TIMERKUR^ENABLE();COND1^CHECK(TRUE);}
|